From 5f82695525a27fcf660603cf85db38ed5895bbbe Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Thu, 12 Aug 2021 21:03:26 -0300 Subject: [PATCH 01/26] add ChezScheme and chez-exe as binaries --- .gitmodules | 6 ++++++ bin/scm/ChezScheme | 1 + bin/scm/chez-exe | 1 + bin/scm/scheme/.keep | 0 4 files changed, 8 insertions(+) create mode 160000 bin/scm/ChezScheme create mode 160000 bin/scm/chez-exe create mode 100644 bin/scm/scheme/.keep diff --git a/.gitmodules b/.gitmodules index e69de29b..13db518b 100644 --- a/.gitmodules +++ b/.gitmodules @@ -0,0 +1,6 @@ +[submodule "bin/scm/chez-exe"] + path = bin/scm/chez-exe + url = git@github.com:rigille/chez-exe.git +[submodule "bin/scm/ChezScheme"] + path = bin/scm/ChezScheme + url = git@github.com:racket/ChezScheme.git diff --git a/bin/scm/ChezScheme b/bin/scm/ChezScheme new file mode 160000 index 00000000..bf49dfbd --- /dev/null +++ b/bin/scm/ChezScheme @@ -0,0 +1 @@ +Subproject commit bf49dfbd8c47c759bc2ac99978a0db02b2969578 diff --git a/bin/scm/chez-exe b/bin/scm/chez-exe new file mode 160000 index 00000000..937629ad --- /dev/null +++ b/bin/scm/chez-exe @@ -0,0 +1 @@ +Subproject commit 937629ad6cdcec698f0b25d996bb9b01a3b7cce7 diff --git a/bin/scm/scheme/.keep b/bin/scm/scheme/.keep new file mode 100644 index 00000000..e69de29b From 2fc77760f93b0fd22b9795a6bc0122a478471f11 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Thu, 12 Aug 2021 21:05:45 -0300 Subject: [PATCH 02/26] update sharmi --- base/App/Sharmi.kind | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/base/App/Sharmi.kind b/base/App/Sharmi.kind index 49fc684d..f127c39c 100644 --- a/base/App/Sharmi.kind +++ b/base/App/Sharmi.kind @@ -47,7 +47,7 @@ App.Sharmi.Mouse.deserialize(hex: String): Maybe Deserializer.run!(App.Sharmi.Mouse.deserializer, Bits.hex.decode(hex)) App.Sharmi.room: String - App.room("asodovciveneiejenfufjfj3n2os") + App.room("110202039383883737370sj1i202") type App.Sharmi.Goal { new( @@ -66,7 +66,7 @@ type App.Sharmi.Body { type App.Sharmi.Player { new( address: String - throttle: I32 + throttle: F64 dir: V2 pos: Physics.Verlet ) @@ -135,9 +135,9 @@ App.Sharmi.Player.draw( img ) let col = if e@throttle =? 0 then - Col32.new(255, 0, 0, 255) - else Col32.new(0, 0, 0, 255) + else + Col32.new(255, 0, 0, 255) let img = VoxBox.Draw.line( F64.to_i32(e@pos@pos@x) @@ -224,25 +224,23 @@ App.Sharmi.when: App.When let new_players = [] for player in state.local.state.players with new_players: open player; open player.pos - let new_acc = App.Sharmi.Gravity(state.local.state, player.pos.pos) - open new_acc; - //log(player.name|" new_acc: {"|F64.show(new_acc.x)|", "|F64.show(new_acc.y)|"}") - let new_pos = player.pos@acc <- new_acc let player = case state.global.state@mouses{player@address} as mouse { some: let new_dir = App.Sharmi.Mouse.pos_to_v2(mouse.value@pos) - player@pos@pos let player = player@dir <- new_dir if mouse.value@pressed then - player@throttle <- 200 + player@throttle <- 20 else player@throttle <- 0 none: player } - let player = player@acc <- player@acc + V2.scale(player@throttle/V2.len(new.player@dir), player@dir) - let new_pos = Physics.Verlet.step(new_pos, 1.0/60.0) - let player = player@pos <- new_pos + open player; open player.pos; + let new_acc = App.Sharmi.Gravity(state.local.state, player.pos.pos) + V2.scale(player.throttle/V2.len(player.dir), player.dir) + let pos = player.pos@acc <- new_acc + let pos = Physics.Verlet.step(pos, 1.0/60.0) + let player = player@pos <- pos player & new_players let new_players = List.reverse!(new_players) From 3b2cfd0d284484b2146a6db82c7db1e76ec14528 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Thu, 12 Aug 2021 21:08:02 -0300 Subject: [PATCH 03/26] allow elementary expressions from Nat literals --- base/User/rigille/Elementary.kind | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/base/User/rigille/Elementary.kind b/base/User/rigille/Elementary.kind index d7268210..2811f545 100644 --- a/base/User/rigille/Elementary.kind +++ b/base/User/rigille/Elementary.kind @@ -16,6 +16,11 @@ type User.rigille.Elementary.Expression { ) } +User.rigille.Elementary.Expression.from_nat(n: Nat): User.rigille.Elementary.Expression + let i = Int.from_nat(n) + User.rigille.Elementary.constexp(i) + + type User.rigille.Elementary.Op { add mult From 6bf1600b39ed2f85ee143c569770dd3b4d525360 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Fri, 13 Aug 2021 14:14:49 -0300 Subject: [PATCH 04/26] update makefile --- .gitignore | 2 ++ bin/scm/Makefile | 12 +++++++++++- 2 files changed, 13 insertions(+), 1 deletion(-) diff --git a/.gitignore b/.gitignore index 24afd62f..307c33d8 100644 --- a/.gitignore +++ b/.gitignore @@ -5,6 +5,8 @@ scripts/ src/_* src/tmp* bin/hs/cabal.project.local* +bin/scm/scheme/ +bin/scm/bin/ tmp.js .vscode *.orig diff --git a/bin/scm/Makefile b/bin/scm/Makefile index a4e58760..7fafff47 100644 --- a/bin/scm/Makefile +++ b/bin/scm/Makefile @@ -1,17 +1,27 @@ -all: bin/kind-scm kind-scm.deb +all: bin/kind-scm + +deb: kind-scm.deb + +# compiles kind files to scheme you could replace kind-scm with kind bootstrap: cd ../../base && kind-scm Kind.Comp.Target.Scheme.bootstrap --run + clean: rm src/*.wpo rm src/*.so + rm src/*.chez + rm src/*.generated.c rm bin/* + bin/kind-scm: cd src/ && scheme compile.scm chmod +x bin/kind-scm + kind-scm.deb: bin/kind-scm mkdir -p kind-scm_1.0.1-0_amd64/usr/local/bin/ cp bin/kind-scm kind-scm_1.0.1-0_amd64/usr/local/bin/ dpkg-deb --root-owner-group --build kind-scm_1.0.1-0_amd64/ bin/kind-scm_1.0.1-0_amd64.deb + install: bin/kind-scm chmod +x bin/kind-scm cp bin/kind-scm /usr/local/bin/ From 179f49e9e652d2cc530d19dd8adb8dbe904b7770 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Fri, 13 Aug 2021 14:30:28 -0300 Subject: [PATCH 05/26] add recipe for compiling chez --- bin/scm/Makefile | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/bin/scm/Makefile b/bin/scm/Makefile index 7fafff47..3c42693d 100644 --- a/bin/scm/Makefile +++ b/bin/scm/Makefile @@ -25,3 +25,11 @@ kind-scm.deb: bin/kind-scm install: bin/kind-scm chmod +x bin/kind-scm cp bin/kind-scm /usr/local/bin/ + +chez: scheme/bin/scheme + cd ChezScheme + ./configure --pb + make -j auto.bootquick + ./configure --kernelobj --disable-curses --disable-iconv --disable-x11 --installprefix=$PWD/../scheme + make -j + make install From d3d61a0dca2358901b642e9252a506238d683f3e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Fri, 13 Aug 2021 16:40:05 -0300 Subject: [PATCH 06/26] correct recipe for chez scheme --- bin/scm/Makefile | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/bin/scm/Makefile b/bin/scm/Makefile index 3c42693d..a1038e96 100644 --- a/bin/scm/Makefile +++ b/bin/scm/Makefile @@ -1,3 +1,5 @@ +chezdir := ChezScheme + all: bin/kind-scm deb: kind-scm.deb @@ -26,10 +28,9 @@ install: bin/kind-scm chmod +x bin/kind-scm cp bin/kind-scm /usr/local/bin/ -chez: scheme/bin/scheme - cd ChezScheme - ./configure --pb - make -j auto.bootquick - ./configure --kernelobj --disable-curses --disable-iconv --disable-x11 --installprefix=$PWD/../scheme - make -j - make install +chez: + cd $(chezdir) && git submodule init && git submodule update + cd $(chezdir) && ./configure --pb + cd $(chezdir) && make -j auto.bootquick + cd $(chezdir) && ./configure --kernelobj --disable-curses --disable-iconv --disable-x11 --installprefix=$(PWD)/scheme + cd $(chezdir) && make -j && make install From 42163c38d253130921b4f1bfb05fa7f02ad11055 Mon Sep 17 00:00:00 2001 From: Rheidner Date: Fri, 13 Aug 2021 18:24:07 -0300 Subject: [PATCH 07/26] change syntax of lambda's and forall's --- base/Kind/Parser/forall.kind | 2 +- base/Kind/Parser/lambda.kind | 42 + base/List/unzip.kind | 9 + base/Nat/apply.kind | 2 +- base/Test.kind | 6 +- bin/js/src/kind.js | 72206 +++++++++++++++++---------------- 6 files changed, 38059 insertions(+), 34208 deletions(-) create mode 100644 base/List/unzip.kind diff --git a/base/Kind/Parser/forall.kind b/base/Kind/Parser/forall.kind index 1d3afe31..ab064750 100644 --- a/base/Kind/Parser/forall.kind +++ b/base/Kind/Parser/forall.kind @@ -2,7 +2,7 @@ Kind.Parser.forall: Parser(Kind.Term) Kind.Parser.block("forall", Parser { get self = Kind.Parser.name get bind = Kind.Parser.binder(":") - Parser.maybe!(Kind.Parser.text("->")) + Kind.Parser.text("->") get body = Kind.Parser.term let term = List.fold!(bind)!(body, (x,t) case x { new: Kind.Term.all(x.eras, "", x.name, x.term, (s,x) t) diff --git a/base/Kind/Parser/lambda.kind b/base/Kind/Parser/lambda.kind index 955dcc00..fc22f769 100644 --- a/base/Kind/Parser/lambda.kind +++ b/base/Kind/Parser/lambda.kind @@ -1,4 +1,12 @@ Kind.Parser.lambda: Parser(Kind.Term) + Kind.Parser.block("term", Parser { + Parser.choice!([ + Kind.Parser.lambda.1, + Kind.Parser.lambda.2 + ]) + }) + +Kind.Parser.lambda.1: Parser(Kind.Term) Kind.Parser.block("lambda", Parser { get nams = Kind.Parser.items!("(", Kind.Parser.name1, ")") get body = Parser.avoiding!(Kind.Parser.text_now("("), Kind.Parser.term) @@ -35,3 +43,37 @@ Kind.Parser.lambda.make(names: List, body: Kind.Term): Kind.Term cons: Kind.Term.lam(names.head, (x) Kind.Parser.lambda.make(names.tail, body)) } +Kind.Parser.lambda.name_term: Parser(Pair>) + Parser { + get name = Kind.Parser.name + + get term = Parser.maybe!(Parser { + Kind.Parser.text(":") + get type = Kind.Parser.term + return type + }) + return {name, term} + } + + +Kind.Parser.lambda.2: Parser + Kind.Parser.block("lambda", Parser { + get nams = Kind.Parser.items!("(", Kind.Parser.lambda.name_term, ")") + get body = Parser.avoiding!(Kind.Parser.text_now("("), Kind.Parser.term) + let {nams, types} = List.unzip!!(nams) + let lamb = Kind.Parser.lambda.make.start(nams, body) + let type = Kind.Parser.lambda.get_type(types) + let term = Kind.Term.ann(false, lamb, type) + return term + }) + +Kind.Parser.lambda.get_type(types: List>): Kind.Term + case types { + nil: Kind.Term.hol(Bits.e) + cons: + let type = case types.head { + none: Kind.Term.hol(Bits.e) + some: types.head.value + } + Kind.Term.all(false, "", "", type, (s,x) Kind.Parser.lambda.get_type(types.tail)) + } \ No newline at end of file diff --git a/base/List/unzip.kind b/base/List/unzip.kind new file mode 100644 index 00000000..0c823076 --- /dev/null +++ b/base/List/unzip.kind @@ -0,0 +1,9 @@ +List.unzip(xs: List>): Pair,List> + case xs { + nil: {List.nil!, List.nil!}, + cons: + let rec = List.unzip!!(xs.tail) + open xs.head + open rec + {xs.head.fst & rec.fst, xs.head.snd & rec.snd} + } \ No newline at end of file diff --git a/base/Nat/apply.kind b/base/Nat/apply.kind index b108ab1c..17387caa 100644 --- a/base/Nat/apply.kind +++ b/base/Nat/apply.kind @@ -1,4 +1,4 @@ -Nat.apply(n: Nat, f: (x:A) A, x: A): A +Nat.apply(n: Nat, f: (x:A) -> A, x: A): A case n { zero: x, succ: Nat.apply(n.pred, f, f(x)), diff --git a/base/Test.kind b/base/Test.kind index 1d6e84f5..a6c5f443 100644 --- a/base/Test.kind +++ b/base/Test.kind @@ -1,2 +1,4 @@ -Test: _ - StringChain.Node.init(42001) +Test: I32 + let x = 2 + let y = 4 + I32.max((x + y), 0) diff --git a/bin/js/src/kind.js b/bin/js/src/kind.js index c6d7c0b9..abe5ff41 100644 --- a/bin/js/src/kind.js +++ b/bin/js/src/kind.js @@ -1460,52 +1460,61 @@ module.exports = (function() { return $234; }; const Parser$Error$combine = x0 => x1 => Parser$Error$combine$(x0, x1); + const Unit$new = null; + const Debug$log = a0 => a1 => ((console.log(a0), a1())); + + function String$cons$(_head$1, _tail$2) { + var $241 = (String.fromCharCode(_head$1) + _tail$2); + return $241; + }; + const String$cons = x0 => x1 => String$cons$(x0, x1); + const String$concat = a0 => a1 => (a0 + a1); function Parser$Error$maybe_combine$(_a$1, _b$2) { var self = _a$1; switch (self._) { case 'Maybe.some': - var $242 = self.value; + var $243 = self.value; var self = _b$2; switch (self._) { case 'Maybe.some': - var $244 = self.value; - var $245 = Maybe$some$(Parser$Error$combine$($242, $244)); - var $243 = $245; + var $245 = self.value; + var $246 = Maybe$some$(Parser$Error$combine$($243, $245)); + var $244 = $246; break; case 'Maybe.none': - var $246 = _a$1; - var $243 = $246; + var $247 = _a$1; + var $244 = $247; break; }; - var $241 = $243; + var $242 = $244; break; case 'Maybe.none': var self = _b$2; switch (self._) { case 'Maybe.none': - var $248 = Maybe$none; - var $247 = $248; + var $249 = Maybe$none; + var $248 = $249; break; case 'Maybe.some': - var $249 = _b$2; - var $247 = $249; + var $250 = _b$2; + var $248 = $250; break; }; - var $241 = $247; + var $242 = $248; break; }; - return $241; + return $242; }; const Parser$Error$maybe_combine = x0 => x1 => Parser$Error$maybe_combine$(x0, x1); function Parser$Reply$value$(_pst$2, _val$3) { - var $250 = ({ + var $251 = ({ _: 'Parser.Reply.value', 'pst': _pst$2, 'val': _val$3 }); - return $250; + return $251; }; const Parser$Reply$value = x0 => x1 => Parser$Reply$value$(x0, x1); const List$nil = ({ @@ -1513,12 +1522,12 @@ module.exports = (function() { }); function List$cons$(_head$2, _tail$3) { - var $251 = ({ + var $252 = ({ _: 'List.cons', 'head': _head$2, 'tail': _tail$3 }); - return $251; + return $252; }; const List$cons = x0 => x1 => List$cons$(x0, x1); @@ -1538,20 +1547,20 @@ module.exports = (function() { var self = _parse$2(_pst$4); switch (self._) { case 'Parser.Reply.value': - var $253 = self.pst; - var $254 = self.val; - var $255 = Parser$many$go$(_parse$2, (_xs$12 => { - var $256 = _values$3(List$cons$($254, _xs$12)); - return $256; - }), $253); - var $252 = $255; + var $254 = self.pst; + var $255 = self.val; + var $256 = Parser$many$go$(_parse$2, (_xs$12 => { + var $257 = _values$3(List$cons$($255, _xs$12)); + return $257; + }), $254); + var $253 = $256; break; case 'Parser.Reply.error': - var $257 = Parser$Reply$value$(_pst$4, _values$3(List$nil)); - var $252 = $257; + var $258 = Parser$Reply$value$(_pst$4, _values$3(List$nil)); + var $253 = $258; break; }; - return $252; + return $253; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -1561,11 +1570,11 @@ module.exports = (function() { const Parser$many$go = x0 => x1 => x2 => Parser$many$go$(x0, x1, x2); function Parser$many$(_parser$2) { - var $258 = Parser$many$go(_parser$2)((_x$3 => { - var $259 = _x$3; - return $259; + var $259 = Parser$many$go(_parser$2)((_x$3 => { + var $260 = _x$3; + return $260; })); - return $258; + return $259; }; const Parser$many = x0 => Parser$many$(x0); @@ -1573,111 +1582,123 @@ module.exports = (function() { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $261 = self.err; + var $262 = self.err; var _reply$9 = _parser$2(_pst$3); var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $263 = self.err; - var self = $261; + var $264 = self.err; + var self = $262; switch (self._) { case 'Maybe.some': - var $265 = self.value; - var $266 = Parser$Reply$error$(Parser$Error$combine$($265, $263)); - var $264 = $266; + var $266 = self.value; + var $267 = Parser$Reply$error$(Parser$Error$combine$($266, $264)); + var $265 = $267; break; case 'Maybe.none': - var $267 = Parser$Reply$error$($263); - var $264 = $267; + var $268 = Parser$Reply$error$($264); + var $265 = $268; break; }; - var $262 = $264; + var $263 = $265; break; case 'Parser.Reply.value': - var $268 = self.pst; - var $269 = self.val; - var self = $268; + var $269 = self.pst; + var $270 = self.val; + var self = $269; switch (self._) { case 'Parser.State.new': - var $271 = self.err; - var $272 = self.nam; - var $273 = self.ini; - var $274 = self.idx; - var $275 = self.str; - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($261, $271), $272, $273, $274, $275); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $277 = self.err; - var _reply$23 = Parser$many$(_parser$2)(_reply$pst$17); - var self = _reply$23; + var $272 = self.err; + var $273 = self.nam; + var $274 = self.ini; + var $275 = self.idx; + var $276 = self.str; + var $277 = ((console.log(("FALTANDO " + $276)), (_$17 => { + var $278 = ((console.log(("VALUE " + $273)), (_$18 => { + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($262, $272), $273, $274, $275, $276); + var self = _reply$pst$19; switch (self._) { - case 'Parser.Reply.error': - var $279 = self.err; - var self = $277; + case 'Parser.State.new': + var $280 = self.err; + var _reply$25 = Parser$many$(_parser$2)(_reply$pst$19); + var self = _reply$25; switch (self._) { - case 'Maybe.some': - var $281 = self.value; - var $282 = Parser$Reply$error$(Parser$Error$combine$($281, $279)); - var $280 = $282; + case 'Parser.Reply.error': + var $282 = self.err; + var self = $280; + switch (self._) { + case 'Maybe.some': + var $284 = self.value; + var $285 = Parser$Reply$error$(Parser$Error$combine$($284, $282)); + var $283 = $285; + break; + case 'Maybe.none': + var $286 = Parser$Reply$error$($282); + var $283 = $286; + break; + }; + var $281 = $283; break; - case 'Maybe.none': - var $283 = Parser$Reply$error$($279); - var $280 = $283; + case 'Parser.Reply.value': + var $287 = self.pst; + var $288 = self.val; + var self = $287; + switch (self._) { + case 'Parser.State.new': + var $290 = self.err; + var $291 = self.nam; + var $292 = self.ini; + var $293 = self.idx; + var $294 = self.str; + var $295 = ((console.log(("FALTANDO " + $294)), (_$33 => { + var $296 = ((console.log(("VALUE " + $291)), (_$34 => { + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($280, $290), $291, $292, $293, $294); + var $297 = Parser$Reply$value$(_reply$pst$35, List$cons$($270, $288)); + return $297; + })())); + return $296; + })())); + var $289 = $295; + break; + }; + var $281 = $289; break; }; - var $278 = $280; - break; - case 'Parser.Reply.value': - var $284 = self.pst; - var $285 = self.val; - var self = $284; - switch (self._) { - case 'Parser.State.new': - var $287 = self.err; - var $288 = self.nam; - var $289 = self.ini; - var $290 = self.idx; - var $291 = self.str; - var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($277, $287), $288, $289, $290, $291); - var $292 = Parser$Reply$value$(_reply$pst$31, List$cons$($269, $285)); - var $286 = $292; - break; - }; - var $278 = $286; + var $279 = $281; break; }; - var $276 = $278; - break; - }; - var $270 = $276; + return $279; + })())); + return $278; + })())); + var $271 = $277; break; }; - var $262 = $270; + var $263 = $271; break; }; - var $260 = $262; + var $261 = $263; break; }; - return $260; + return $261; }; const Parser$many1 = x0 => x1 => Parser$many1$(x0, x1); function Parser$Error$new$(_nam$1, _ini$2, _idx$3, _msg$4) { - var $293 = ({ + var $298 = ({ _: 'Parser.Error.new', 'nam': _nam$1, 'ini': _ini$2, 'idx': _idx$3, 'msg': _msg$4 }); - return $293; + return $298; }; const Parser$Error$new = x0 => x1 => x2 => x3 => Parser$Error$new$(x0, x1, x2, x3); function Parser$Reply$fail$(_nam$2, _ini$3, _idx$4, _msg$5) { - var $294 = Parser$Reply$error$(Parser$Error$new$(_nam$2, _ini$3, _idx$4, _msg$5)); - return $294; + var $299 = Parser$Reply$error$(Parser$Error$new$(_nam$2, _ini$3, _idx$4, _msg$5)); + return $299; }; const Parser$Reply$fail = x0 => x1 => x2 => x3 => Parser$Reply$fail$(x0, x1, x2, x3); @@ -1686,21 +1707,21 @@ module.exports = (function() { switch (self._) { case 'Cmp.ltn': case 'Cmp.gtn': - var $296 = Bool$false; - var $295 = $296; + var $301 = Bool$false; + var $300 = $301; break; case 'Cmp.eql': - var $297 = Bool$true; - var $295 = $297; + var $302 = Bool$true; + var $300 = $302; break; }; - return $295; + return $300; }; const Cmp$as_eql = x0 => Cmp$as_eql$(x0); function Word$eql$(_a$2, _b$3) { - var $298 = Cmp$as_eql$(Word$cmp$(_a$2, _b$3)); - return $298; + var $303 = Cmp$as_eql$(Word$cmp$(_a$2, _b$3)); + return $303; }; const Word$eql = x0 => x1 => Word$eql$(x0, x1); const U16$eql = a0 => a1 => (a0 === a1); @@ -1709,96 +1730,96 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $300 = self.err; - var $301 = self.nam; - var $302 = self.ini; - var $303 = self.idx; - var $304 = self.str; - var self = $304; + var $305 = self.err; + var $306 = self.nam; + var $307 = self.ini; + var $308 = self.idx; + var $309 = self.str; + var self = $309; if (self.length === 0) { - var $306 = Parser$Reply$fail$($301, $302, $303, "Not a digit."); - var $305 = $306; + var $311 = Parser$Reply$fail$($306, $307, $308, "Not a digit."); + var $310 = $311; } else { - var $307 = self.charCodeAt(0); - var $308 = self.slice(1); - var _pst$9 = Parser$State$new$($300, $301, $302, Nat$succ$($303), $308); - var self = ($307 === 48); + var $312 = self.charCodeAt(0); + var $313 = self.slice(1); + var _pst$9 = Parser$State$new$($305, $306, $307, Nat$succ$($308), $313); + var self = ($312 === 48); if (self) { - var $310 = Parser$Reply$value$(_pst$9, 0n); - var $309 = $310; + var $315 = Parser$Reply$value$(_pst$9, 0n); + var $314 = $315; } else { - var self = ($307 === 49); + var self = ($312 === 49); if (self) { - var $312 = Parser$Reply$value$(_pst$9, 1n); - var $311 = $312; + var $317 = Parser$Reply$value$(_pst$9, 1n); + var $316 = $317; } else { - var self = ($307 === 50); + var self = ($312 === 50); if (self) { - var $314 = Parser$Reply$value$(_pst$9, 2n); - var $313 = $314; + var $319 = Parser$Reply$value$(_pst$9, 2n); + var $318 = $319; } else { - var self = ($307 === 51); + var self = ($312 === 51); if (self) { - var $316 = Parser$Reply$value$(_pst$9, 3n); - var $315 = $316; + var $321 = Parser$Reply$value$(_pst$9, 3n); + var $320 = $321; } else { - var self = ($307 === 52); + var self = ($312 === 52); if (self) { - var $318 = Parser$Reply$value$(_pst$9, 4n); - var $317 = $318; + var $323 = Parser$Reply$value$(_pst$9, 4n); + var $322 = $323; } else { - var self = ($307 === 53); + var self = ($312 === 53); if (self) { - var $320 = Parser$Reply$value$(_pst$9, 5n); - var $319 = $320; + var $325 = Parser$Reply$value$(_pst$9, 5n); + var $324 = $325; } else { - var self = ($307 === 54); + var self = ($312 === 54); if (self) { - var $322 = Parser$Reply$value$(_pst$9, 6n); - var $321 = $322; + var $327 = Parser$Reply$value$(_pst$9, 6n); + var $326 = $327; } else { - var self = ($307 === 55); + var self = ($312 === 55); if (self) { - var $324 = Parser$Reply$value$(_pst$9, 7n); - var $323 = $324; + var $329 = Parser$Reply$value$(_pst$9, 7n); + var $328 = $329; } else { - var self = ($307 === 56); + var self = ($312 === 56); if (self) { - var $326 = Parser$Reply$value$(_pst$9, 8n); - var $325 = $326; + var $331 = Parser$Reply$value$(_pst$9, 8n); + var $330 = $331; } else { - var self = ($307 === 57); + var self = ($312 === 57); if (self) { - var $328 = Parser$Reply$value$(_pst$9, 9n); - var $327 = $328; + var $333 = Parser$Reply$value$(_pst$9, 9n); + var $332 = $333; } else { - var $329 = Parser$Reply$fail$($301, $302, $303, "Not a digit."); - var $327 = $329; + var $334 = Parser$Reply$fail$($306, $307, $308, "Not a digit."); + var $332 = $334; }; - var $325 = $327; + var $330 = $332; }; - var $323 = $325; + var $328 = $330; }; - var $321 = $323; + var $326 = $328; }; - var $319 = $321; + var $324 = $326; }; - var $317 = $319; + var $322 = $324; }; - var $315 = $317; + var $320 = $322; }; - var $313 = $315; + var $318 = $320; }; - var $311 = $313; + var $316 = $318; }; - var $309 = $311; + var $314 = $316; }; - var $305 = $309; + var $310 = $314; }; - var $299 = $305; + var $304 = $310; break; }; - return $299; + return $304; }; const Parser$digit = x0 => Parser$digit$(x0); const Nat$add = a0 => a1 => (a0 + a1); @@ -1817,13 +1838,13 @@ module.exports = (function() { var self = _ds$2; switch (self._) { case 'List.cons': - var $330 = self.head; - var $331 = self.tail; - var $332 = Nat$from_base$go$(_b$1, $331, (_b$1 * _p$3), (($330 * _p$3) + _res$4)); - return $332; + var $335 = self.head; + var $336 = self.tail; + var $337 = Nat$from_base$go$(_b$1, $336, (_b$1 * _p$3), (($335 * _p$3) + _res$4)); + return $337; case 'List.nil': - var $333 = _res$4; - return $333; + var $338 = _res$4; + return $338; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -1845,13 +1866,13 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $334 = self.head; - var $335 = self.tail; - var $336 = List$reverse$go$($335, List$cons$($334, _res$3)); - return $336; + var $339 = self.head; + var $340 = self.tail; + var $341 = List$reverse$go$($340, List$cons$($339, _res$3)); + return $341; case 'List.nil': - var $337 = _res$3; - return $337; + var $342 = _res$3; + return $342; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -1861,14 +1882,14 @@ module.exports = (function() { const List$reverse$go = x0 => x1 => List$reverse$go$(x0, x1); function List$reverse$(_xs$2) { - var $338 = List$reverse$go$(_xs$2, List$nil); - return $338; + var $343 = List$reverse$go$(_xs$2, List$nil); + return $343; }; const List$reverse = x0 => List$reverse$(x0); function Nat$from_base$(_base$1, _ds$2) { - var $339 = Nat$from_base$go$(_base$1, List$reverse$(_ds$2), 1n, 0n); - return $339; + var $344 = Nat$from_base$go$(_base$1, List$reverse$(_ds$2), 1n, 0n); + return $344; }; const Nat$from_base = x0 => x1 => Nat$from_base$(x0, x1); @@ -1876,365 +1897,364 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $341 = self.err; + var $346 = self.err; var _reply$7 = Parser$many1$(Parser$digit, _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $343 = self.err; - var self = $341; + var $348 = self.err; + var self = $346; switch (self._) { case 'Maybe.some': - var $345 = self.value; - var $346 = Parser$Reply$error$(Parser$Error$combine$($345, $343)); - var $344 = $346; + var $350 = self.value; + var $351 = Parser$Reply$error$(Parser$Error$combine$($350, $348)); + var $349 = $351; break; case 'Maybe.none': - var $347 = Parser$Reply$error$($343); - var $344 = $347; + var $352 = Parser$Reply$error$($348); + var $349 = $352; break; }; - var $342 = $344; + var $347 = $349; break; case 'Parser.Reply.value': - var $348 = self.pst; - var $349 = self.val; - var self = $348; + var $353 = self.pst; + var $354 = self.val; + var self = $353; switch (self._) { case 'Parser.State.new': - var $351 = self.err; - var $352 = self.nam; - var $353 = self.ini; - var $354 = self.idx; - var $355 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($341, $351), $352, $353, $354, $355); - var $356 = Parser$Reply$value$(_reply$pst$15, Nat$from_base$(10n, $349)); - var $350 = $356; + var $356 = self.err; + var $357 = self.nam; + var $358 = self.ini; + var $359 = self.idx; + var $360 = self.str; + var $361 = ((console.log(("FALTANDO " + $360)), (_$15 => { + var $362 = ((console.log(("VALUE " + $357)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($346, $356), $357, $358, $359, $360); + var $363 = Parser$Reply$value$(_reply$pst$17, Nat$from_base$(10n, $354)); + return $363; + })())); + return $362; + })())); + var $355 = $361; break; }; - var $342 = $350; + var $347 = $355; break; }; - var $340 = $342; + var $345 = $347; break; }; - return $340; + return $345; }; const Parser$nat = x0 => Parser$nat$(x0); const Nat$read = a0 => (BigInt(a0)); const IO$get_time = IO$ask$("get_time", "", (_time$1 => { - var $357 = IO$end$((BigInt(_time$1))); - return $357; + var $364 = IO$end$((BigInt(_time$1))); + return $364; })); function Kind$Synth$load$cached$is_loop$(_name$1, _defs$2) { var self = Kind$Map$get$(_name$1, _defs$2); switch (self._) { case 'Maybe.some': - var $359 = self.value; - var self = $359; + var $366 = self.value; + var self = $366; switch (self._) { case 'Kind.Def.new': - var $361 = self.stat; - var self = $361; + var $368 = self.stat; + var self = $368; switch (self._) { case 'Kind.Status.done': - var $363 = self.cached; - var $364 = $363; - var $362 = $364; + var $370 = self.cached; + var $371 = $370; + var $369 = $371; break; case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.fail': - var $365 = Bool$false; - var $362 = $365; + var $372 = Bool$false; + var $369 = $372; break; }; - var $360 = $362; + var $367 = $369; break; }; - var $358 = $360; + var $365 = $367; break; case 'Maybe.none': - var $366 = Bool$false; - var $358 = $366; + var $373 = Bool$false; + var $365 = $373; break; }; - return $358; + return $365; }; const Kind$Synth$load$cached$is_loop = x0 => x1 => Kind$Synth$load$cached$is_loop$(x0, x1); function IO$get_file$(_name$1) { - var $367 = IO$ask$("get_file", _name$1, (_file$2 => { - var $368 = IO$end$(_file$2); - return $368; + var $374 = IO$ask$("get_file", _name$1, (_file$2 => { + var $375 = IO$end$(_file$2); + return $375; })); - return $367; + return $374; }; const IO$get_file = x0 => IO$get_file$(x0); - function String$cons$(_head$1, _tail$2) { - var $369 = (String.fromCharCode(_head$1) + _tail$2); - return $369; - }; - const String$cons = x0 => x1 => String$cons$(x0, x1); - const String$concat = a0 => a1 => (a0 + a1); - function Bits$hex$encode$(_x$1) { var self = _x$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $371 = self.slice(0, -1); - var self = $371; + var $377 = self.slice(0, -1); + var self = $377; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $373 = self.slice(0, -1); - var self = $373; + var $379 = self.slice(0, -1); + var self = $379; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $375 = self.slice(0, -1); - var self = $375; + var $381 = self.slice(0, -1); + var self = $381; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $377 = self.slice(0, -1); - var $378 = ("0" + Bits$hex$encode$($377)); - var $376 = $378; + var $383 = self.slice(0, -1); + var $384 = ("0" + Bits$hex$encode$($383)); + var $382 = $384; break; case 'i': - var $379 = self.slice(0, -1); - var $380 = ("8" + Bits$hex$encode$($379)); - var $376 = $380; + var $385 = self.slice(0, -1); + var $386 = ("8" + Bits$hex$encode$($385)); + var $382 = $386; break; case 'e': - var $381 = "0"; - var $376 = $381; + var $387 = "0"; + var $382 = $387; break; }; - var $374 = $376; + var $380 = $382; break; case 'i': - var $382 = self.slice(0, -1); - var self = $382; + var $388 = self.slice(0, -1); + var self = $388; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $384 = self.slice(0, -1); - var $385 = ("4" + Bits$hex$encode$($384)); - var $383 = $385; + var $390 = self.slice(0, -1); + var $391 = ("4" + Bits$hex$encode$($390)); + var $389 = $391; break; case 'i': - var $386 = self.slice(0, -1); - var $387 = ("c" + Bits$hex$encode$($386)); - var $383 = $387; + var $392 = self.slice(0, -1); + var $393 = ("c" + Bits$hex$encode$($392)); + var $389 = $393; break; case 'e': - var $388 = "4"; - var $383 = $388; + var $394 = "4"; + var $389 = $394; break; }; - var $374 = $383; + var $380 = $389; break; case 'e': - var $389 = "0"; - var $374 = $389; + var $395 = "0"; + var $380 = $395; break; }; - var $372 = $374; + var $378 = $380; break; case 'i': - var $390 = self.slice(0, -1); - var self = $390; + var $396 = self.slice(0, -1); + var self = $396; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $392 = self.slice(0, -1); - var self = $392; + var $398 = self.slice(0, -1); + var self = $398; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $394 = self.slice(0, -1); - var $395 = ("2" + Bits$hex$encode$($394)); - var $393 = $395; + var $400 = self.slice(0, -1); + var $401 = ("2" + Bits$hex$encode$($400)); + var $399 = $401; break; case 'i': - var $396 = self.slice(0, -1); - var $397 = ("a" + Bits$hex$encode$($396)); - var $393 = $397; + var $402 = self.slice(0, -1); + var $403 = ("a" + Bits$hex$encode$($402)); + var $399 = $403; break; case 'e': - var $398 = "2"; - var $393 = $398; + var $404 = "2"; + var $399 = $404; break; }; - var $391 = $393; + var $397 = $399; break; case 'i': - var $399 = self.slice(0, -1); - var self = $399; + var $405 = self.slice(0, -1); + var self = $405; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $401 = self.slice(0, -1); - var $402 = ("6" + Bits$hex$encode$($401)); - var $400 = $402; + var $407 = self.slice(0, -1); + var $408 = ("6" + Bits$hex$encode$($407)); + var $406 = $408; break; case 'i': - var $403 = self.slice(0, -1); - var $404 = ("e" + Bits$hex$encode$($403)); - var $400 = $404; + var $409 = self.slice(0, -1); + var $410 = ("e" + Bits$hex$encode$($409)); + var $406 = $410; break; case 'e': - var $405 = "6"; - var $400 = $405; + var $411 = "6"; + var $406 = $411; break; }; - var $391 = $400; + var $397 = $406; break; case 'e': - var $406 = "2"; - var $391 = $406; + var $412 = "2"; + var $397 = $412; break; }; - var $372 = $391; + var $378 = $397; break; case 'e': - var $407 = "0"; - var $372 = $407; + var $413 = "0"; + var $378 = $413; break; }; - var $370 = $372; + var $376 = $378; break; case 'i': - var $408 = self.slice(0, -1); - var self = $408; + var $414 = self.slice(0, -1); + var self = $414; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $410 = self.slice(0, -1); - var self = $410; + var $416 = self.slice(0, -1); + var self = $416; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $412 = self.slice(0, -1); - var self = $412; + var $418 = self.slice(0, -1); + var self = $418; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $414 = self.slice(0, -1); - var $415 = ("1" + Bits$hex$encode$($414)); - var $413 = $415; + var $420 = self.slice(0, -1); + var $421 = ("1" + Bits$hex$encode$($420)); + var $419 = $421; break; case 'i': - var $416 = self.slice(0, -1); - var $417 = ("9" + Bits$hex$encode$($416)); - var $413 = $417; + var $422 = self.slice(0, -1); + var $423 = ("9" + Bits$hex$encode$($422)); + var $419 = $423; break; case 'e': - var $418 = "1"; - var $413 = $418; + var $424 = "1"; + var $419 = $424; break; }; - var $411 = $413; + var $417 = $419; break; case 'i': - var $419 = self.slice(0, -1); - var self = $419; + var $425 = self.slice(0, -1); + var self = $425; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $421 = self.slice(0, -1); - var $422 = ("5" + Bits$hex$encode$($421)); - var $420 = $422; + var $427 = self.slice(0, -1); + var $428 = ("5" + Bits$hex$encode$($427)); + var $426 = $428; break; case 'i': - var $423 = self.slice(0, -1); - var $424 = ("d" + Bits$hex$encode$($423)); - var $420 = $424; + var $429 = self.slice(0, -1); + var $430 = ("d" + Bits$hex$encode$($429)); + var $426 = $430; break; case 'e': - var $425 = "5"; - var $420 = $425; + var $431 = "5"; + var $426 = $431; break; }; - var $411 = $420; + var $417 = $426; break; case 'e': - var $426 = "1"; - var $411 = $426; + var $432 = "1"; + var $417 = $432; break; }; - var $409 = $411; + var $415 = $417; break; case 'i': - var $427 = self.slice(0, -1); - var self = $427; + var $433 = self.slice(0, -1); + var self = $433; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $429 = self.slice(0, -1); - var self = $429; + var $435 = self.slice(0, -1); + var self = $435; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $431 = self.slice(0, -1); - var $432 = ("3" + Bits$hex$encode$($431)); - var $430 = $432; + var $437 = self.slice(0, -1); + var $438 = ("3" + Bits$hex$encode$($437)); + var $436 = $438; break; case 'i': - var $433 = self.slice(0, -1); - var $434 = ("b" + Bits$hex$encode$($433)); - var $430 = $434; + var $439 = self.slice(0, -1); + var $440 = ("b" + Bits$hex$encode$($439)); + var $436 = $440; break; case 'e': - var $435 = "3"; - var $430 = $435; + var $441 = "3"; + var $436 = $441; break; }; - var $428 = $430; + var $434 = $436; break; case 'i': - var $436 = self.slice(0, -1); - var self = $436; + var $442 = self.slice(0, -1); + var self = $442; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $438 = self.slice(0, -1); - var $439 = ("7" + Bits$hex$encode$($438)); - var $437 = $439; + var $444 = self.slice(0, -1); + var $445 = ("7" + Bits$hex$encode$($444)); + var $443 = $445; break; case 'i': - var $440 = self.slice(0, -1); - var $441 = ("f" + Bits$hex$encode$($440)); - var $437 = $441; + var $446 = self.slice(0, -1); + var $447 = ("f" + Bits$hex$encode$($446)); + var $443 = $447; break; case 'e': - var $442 = "7"; - var $437 = $442; + var $448 = "7"; + var $443 = $448; break; }; - var $428 = $437; + var $434 = $443; break; case 'e': - var $443 = "3"; - var $428 = $443; + var $449 = "3"; + var $434 = $449; break; }; - var $409 = $428; + var $415 = $434; break; case 'e': - var $444 = "1"; - var $409 = $444; + var $450 = "1"; + var $415 = $450; break; }; - var $370 = $409; + var $376 = $415; break; case 'e': - var $445 = ""; - var $370 = $445; + var $451 = ""; + var $376 = $451; break; }; - return $370; + return $376; }; const Bits$hex$encode = x0 => Bits$hex$encode$(x0); function Kind$Synth$load$cached$name$(_name$1) { - var $446 = (".cache/" + Bits$hex$encode$((kind_name_to_bits(_name$1)))); - return $446; + var $452 = (".cache/" + Bits$hex$encode$((kind_name_to_bits(_name$1)))); + return $452; }; const Kind$Synth$load$cached$name = x0 => Kind$Synth$load$cached$name$(x0); function Kind$Synth$load$cached$get_file$(_name$1) { - var $447 = IO$get_file$(Kind$Synth$load$cached$name$(_name$1)); - return $447; + var $453 = IO$get_file$(Kind$Synth$load$cached$name$(_name$1)); + return $453; }; const Kind$Synth$load$cached$get_file = x0 => Kind$Synth$load$cached$get_file$(x0); const Bool$not = a0 => (!a0); @@ -2242,36 +2262,36 @@ module.exports = (function() { function String$is_empty$(_str$1) { var self = _str$1; if (self.length === 0) { - var $449 = Bool$true; - var $448 = $449; + var $455 = Bool$true; + var $454 = $455; } else { - var $450 = self.charCodeAt(0); - var $451 = self.slice(1); - var $452 = Bool$false; - var $448 = $452; + var $456 = self.charCodeAt(0); + var $457 = self.slice(1); + var $458 = Bool$false; + var $454 = $458; }; - return $448; + return $454; }; const String$is_empty = x0 => String$is_empty$(x0); function IO$get_file_mtime$(_name$1) { - var $453 = IO$ask$("get_file_mtime", _name$1, (_file$2 => { - var $454 = IO$end$(_file$2); - return $454; + var $459 = IO$ask$("get_file_mtime", _name$1, (_file$2 => { + var $460 = IO$end$(_file$2); + return $460; })); - return $453; + return $459; }; const IO$get_file_mtime = x0 => IO$get_file_mtime$(x0); const Bool$and = a0 => a1 => (a0 && a1); const String$eql = a0 => a1 => (a0 === a1); function Pair$new$(_fst$3, _snd$4) { - var $455 = ({ + var $461 = ({ _: 'Pair.new', 'fst': _fst$3, 'snd': _snd$4 }); - return $455; + return $461; }; const Pair$new = x0 => x1 => Pair$new$(x0, x1); @@ -2279,31 +2299,30 @@ module.exports = (function() { var self = _m$3; switch (self._) { case 'Maybe.some': - var $457 = self.value; - var $458 = _f$4($457); - var $456 = $458; + var $463 = self.value; + var $464 = _f$4($463); + var $462 = $464; break; case 'Maybe.none': - var $459 = Maybe$none; - var $456 = $459; + var $465 = Maybe$none; + var $462 = $465; break; }; - return $456; + return $462; }; const Maybe$bind = x0 => x1 => Maybe$bind$(x0, x1); function Maybe$monad$(_new$2) { - var $460 = _new$2(Maybe$bind)(Maybe$some); - return $460; + var $466 = _new$2(Maybe$bind)(Maybe$some); + return $466; }; const Maybe$monad = x0 => Maybe$monad$(x0); function Pair$(_A$1, _B$2) { - var $461 = null; - return $461; + var $467 = null; + return $467; }; const Pair = x0 => x1 => Pair$(x0, x1); - const Unit$new = null; const Bool$or = a0 => a1 => (a0 || a1); function Kind$Core$read$spaces$(_code$1) { @@ -2318,21 +2337,21 @@ module.exports = (function() { var R = (() => { var self = _code$1; if (self.length === 0) { - var $462 = Pair$new$(_code$1, Unit$new); - return $462; + var $468 = Pair$new$(_code$1, Unit$new); + return $468; } else { - var $463 = self.charCodeAt(0); - var $464 = self.slice(1); - var _is_space$4 = (($463 === 32) || (($463 === 10) || (($463 === 13) || (($463 === 9) || (($463 === 11) || (($463 === 12) || Bool$false)))))); + var $469 = self.charCodeAt(0); + var $470 = self.slice(1); + var _is_space$4 = (($469 === 32) || (($469 === 10) || (($469 === 13) || (($469 === 9) || (($469 === 11) || (($469 === 12) || Bool$false)))))); var self = _is_space$4; if (self) { - var $466 = Kind$Core$read$spaces$($464); - var $465 = $466; + var $472 = Kind$Core$read$spaces$($470); + var $471 = $472; } else { - var $467 = Pair$new$(_code$1, Unit$new); - var $465 = $467; + var $473 = Pair$new$(_code$1, Unit$new); + var $471 = $473; }; - return $465; + return $471; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -2342,17 +2361,17 @@ module.exports = (function() { const Kind$Core$read$spaces = x0 => Kind$Core$read$spaces$(x0); function Kind$Term$ref$(_name$1) { - var $468 = ({ + var $474 = ({ _: 'Kind.Term.ref', 'name': _name$1 }); - return $468; + return $474; }; const Kind$Term$ref = x0 => Kind$Term$ref$(x0); function Char$eql$(_a$1, _b$2) { - var $469 = (_a$1 === _b$2); - return $469; + var $475 = (_a$1 === _b$2); + return $475; }; const Char$eql = x0 => x1 => Char$eql$(x0, x1); const Kind$Term$typ = ({ @@ -2363,22 +2382,22 @@ module.exports = (function() { var self = _cmp$1; switch (self._) { case 'Cmp.ltn': - var $471 = Bool$false; - var $470 = $471; + var $477 = Bool$false; + var $476 = $477; break; case 'Cmp.eql': case 'Cmp.gtn': - var $472 = Bool$true; - var $470 = $472; + var $478 = Bool$true; + var $476 = $478; break; }; - return $470; + return $476; }; const Cmp$as_gte = x0 => Cmp$as_gte$(x0); function Word$gte$(_a$2, _b$3) { - var $473 = Cmp$as_gte$(Word$cmp$(_a$2, _b$3)); - return $473; + var $479 = Cmp$as_gte$(Word$cmp$(_a$2, _b$3)); + return $479; }; const Word$gte = x0 => x1 => Word$gte$(x0, x1); const U16$gte = a0 => a1 => (a0 >= a1); @@ -2388,58 +2407,58 @@ module.exports = (function() { switch (self._) { case 'Cmp.ltn': case 'Cmp.eql': - var $475 = Bool$true; - var $474 = $475; + var $481 = Bool$true; + var $480 = $481; break; case 'Cmp.gtn': - var $476 = Bool$false; - var $474 = $476; + var $482 = Bool$false; + var $480 = $482; break; }; - return $474; + return $480; }; const Cmp$as_lte = x0 => Cmp$as_lte$(x0); function Word$lte$(_a$2, _b$3) { - var $477 = Cmp$as_lte$(Word$cmp$(_a$2, _b$3)); - return $477; + var $483 = Cmp$as_lte$(Word$cmp$(_a$2, _b$3)); + return $483; }; const Word$lte = x0 => x1 => Word$lte$(x0, x1); const U16$lte = a0 => a1 => (a0 <= a1); function Kind$Core$read$is_name$(_chr$1) { - var $478 = (((_chr$1 >= 46) && (_chr$1 <= 47)) || (((_chr$1 >= 48) && (_chr$1 < 58)) || (((_chr$1 >= 65) && (_chr$1 < 91)) || (((_chr$1 >= 95) && (_chr$1 < 96)) || (((_chr$1 >= 97) && (_chr$1 < 123)) || Bool$false))))); - return $478; + var $484 = (((_chr$1 >= 46) && (_chr$1 <= 47)) || (((_chr$1 >= 48) && (_chr$1 < 58)) || (((_chr$1 >= 65) && (_chr$1 < 91)) || (((_chr$1 >= 95) && (_chr$1 < 96)) || (((_chr$1 >= 97) && (_chr$1 < 123)) || Bool$false))))); + return $484; }; const Kind$Core$read$is_name = x0 => Kind$Core$read$is_name$(x0); function Kind$Core$read$name$(_code$1) { var self = _code$1; if (self.length === 0) { - var $480 = Pair$new$(_code$1, ""); - var $479 = $480; + var $486 = Pair$new$(_code$1, ""); + var $485 = $486; } else { - var $481 = self.charCodeAt(0); - var $482 = self.slice(1); - var self = Kind$Core$read$is_name$($481); + var $487 = self.charCodeAt(0); + var $488 = self.slice(1); + var self = Kind$Core$read$is_name$($487); if (self) { - var self = Kind$Core$read$name$($482); + var self = Kind$Core$read$name$($488); switch (self._) { case 'Pair.new': - var $485 = self.fst; - var $486 = self.snd; - var $487 = Pair$new$($485, String$cons$($481, $486)); - var $484 = $487; + var $491 = self.fst; + var $492 = self.snd; + var $493 = Pair$new$($491, String$cons$($487, $492)); + var $490 = $493; break; }; - var $483 = $484; + var $489 = $490; } else { - var $488 = Pair$new$(_code$1, ""); - var $483 = $488; + var $494 = Pair$new$(_code$1, ""); + var $489 = $494; }; - var $479 = $483; + var $485 = $489; }; - return $479; + return $485; }; const Kind$Core$read$name = x0 => Kind$Core$read$name$(x0); @@ -2447,33 +2466,33 @@ module.exports = (function() { var self = Kind$Core$read$spaces$(_code$1); switch (self._) { case 'Pair.new': - var $490 = self.fst; - var self = $490; + var $496 = self.fst; + var self = $496; if (self.length === 0) { - var $492 = Pair$new$("", Unit$new); - var $491 = $492; + var $498 = Pair$new$("", Unit$new); + var $497 = $498; } else { - var $493 = self.charCodeAt(0); - var $494 = self.slice(1); - var self = ($493 === _chr$2); + var $499 = self.charCodeAt(0); + var $500 = self.slice(1); + var self = ($499 === _chr$2); if (self) { - var $496 = Pair$new$($494, Unit$new); - var $495 = $496; + var $502 = Pair$new$($500, Unit$new); + var $501 = $502; } else { - var $497 = Pair$new$("", Unit$new); - var $495 = $497; + var $503 = Pair$new$("", Unit$new); + var $501 = $503; }; - var $491 = $495; + var $497 = $501; }; - var $489 = $491; + var $495 = $497; break; }; - return $489; + return $495; }; const Kind$Core$read$char = x0 => x1 => Kind$Core$read$char$(x0, x1); function Kind$Term$all$(_eras$1, _self$2, _name$3, _xtyp$4, _body$5) { - var $498 = ({ + var $504 = ({ _: 'Kind.Term.all', 'eras': _eras$1, 'self': _self$2, @@ -2481,60 +2500,60 @@ module.exports = (function() { 'xtyp': _xtyp$4, 'body': _body$5 }); - return $498; + return $504; }; const Kind$Term$all = x0 => x1 => x2 => x3 => x4 => Kind$Term$all$(x0, x1, x2, x3, x4); function Kind$Term$lam$(_name$1, _body$2) { - var $499 = ({ + var $505 = ({ _: 'Kind.Term.lam', 'name': _name$1, 'body': _body$2 }); - return $499; + return $505; }; const Kind$Term$lam = x0 => x1 => Kind$Term$lam$(x0, x1); function Kind$Term$app$(_func$1, _argm$2) { - var $500 = ({ + var $506 = ({ _: 'Kind.Term.app', 'func': _func$1, 'argm': _argm$2 }); - return $500; + return $506; }; const Kind$Term$app = x0 => x1 => Kind$Term$app$(x0, x1); function Kind$Term$let$(_name$1, _expr$2, _body$3) { - var $501 = ({ + var $507 = ({ _: 'Kind.Term.let', 'name': _name$1, 'expr': _expr$2, 'body': _body$3 }); - return $501; + return $507; }; const Kind$Term$let = x0 => x1 => x2 => Kind$Term$let$(x0, x1, x2); function Kind$Term$def$(_name$1, _expr$2, _body$3) { - var $502 = ({ + var $508 = ({ _: 'Kind.Term.def', 'name': _name$1, 'expr': _expr$2, 'body': _body$3 }); - return $502; + return $508; }; const Kind$Term$def = x0 => x1 => x2 => Kind$Term$def$(x0, x1, x2); function Kind$Term$ann$(_done$1, _term$2, _type$3) { - var $503 = ({ + var $509 = ({ _: 'Kind.Term.ann', 'done': _done$1, 'term': _term$2, 'type': _type$3 }); - return $503; + return $509; }; const Kind$Term$ann = x0 => x1 => x2 => Kind$Term$ann$(x0, x1, x2); @@ -2550,29 +2569,29 @@ module.exports = (function() { var R = (() => { var self = _match$2; if (self.length === 0) { - var $504 = Bool$true; - return $504; + var $510 = Bool$true; + return $510; } else { - var $505 = self.charCodeAt(0); - var $506 = self.slice(1); + var $511 = self.charCodeAt(0); + var $512 = self.slice(1); var self = _xs$1; if (self.length === 0) { - var $508 = Bool$false; - var $507 = $508; + var $514 = Bool$false; + var $513 = $514; } else { - var $509 = self.charCodeAt(0); - var $510 = self.slice(1); - var self = Char$eql$($505, $509); + var $515 = self.charCodeAt(0); + var $516 = self.slice(1); + var self = Char$eql$($511, $515); if (self) { - var $512 = String$starts_with$($510, $506); - var $511 = $512; + var $518 = String$starts_with$($516, $512); + var $517 = $518; } else { - var $513 = Bool$false; - var $511 = $513; + var $519 = Bool$false; + var $517 = $519; }; - var $507 = $511; + var $513 = $517; }; - return $507; + return $513; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -2594,21 +2613,21 @@ module.exports = (function() { var R = (() => { var self = _n$1; if (self === 0n) { - var $514 = _xs$2; - return $514; + var $520 = _xs$2; + return $520; } else { - var $515 = (self - 1n); + var $521 = (self - 1n); var self = _xs$2; if (self.length === 0) { - var $517 = String$nil; - var $516 = $517; + var $523 = String$nil; + var $522 = $523; } else { - var $518 = self.charCodeAt(0); - var $519 = self.slice(1); - var $520 = String$drop$($515, $519); - var $516 = $520; + var $524 = self.charCodeAt(0); + var $525 = self.slice(1); + var $526 = String$drop$($521, $525); + var $522 = $526; }; - return $516; + return $522; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -2618,8 +2637,8 @@ module.exports = (function() { const String$drop = x0 => x1 => String$drop$(x0, x1); function Char$is_hex$(_chr$1) { - var $521 = (((_chr$1 >= 48) && (_chr$1 <= 57)) || (((_chr$1 >= 97) && (_chr$1 <= 102)) || (((_chr$1 >= 65) && (_chr$1 <= 70)) || Bool$false))); - return $521; + var $527 = (((_chr$1 >= 48) && (_chr$1 <= 57)) || (((_chr$1 >= 97) && (_chr$1 <= 102)) || (((_chr$1 >= 65) && (_chr$1 <= 70)) || Bool$false))); + return $527; }; const Char$is_hex = x0 => Char$is_hex$(x0); @@ -2627,117 +2646,117 @@ module.exports = (function() { var self = _a$2; switch (self._) { case 'Word.o': - var $523 = self.pred; - var $524 = (_b$7 => { + var $529 = self.pred; + var $530 = (_b$7 => { var self = _b$7; switch (self._) { case 'Word.o': - var $526 = self.pred; - var $527 = (_a$pred$10 => { + var $532 = self.pred; + var $533 = (_a$pred$10 => { var self = _c$4; if (self) { - var $529 = Word$i$(Word$adder$(_a$pred$10, $526, Bool$false)); - var $528 = $529; + var $535 = Word$i$(Word$adder$(_a$pred$10, $532, Bool$false)); + var $534 = $535; } else { - var $530 = Word$o$(Word$adder$(_a$pred$10, $526, Bool$false)); - var $528 = $530; + var $536 = Word$o$(Word$adder$(_a$pred$10, $532, Bool$false)); + var $534 = $536; }; - return $528; + return $534; }); - var $525 = $527; + var $531 = $533; break; case 'Word.i': - var $531 = self.pred; - var $532 = (_a$pred$10 => { + var $537 = self.pred; + var $538 = (_a$pred$10 => { var self = _c$4; if (self) { - var $534 = Word$o$(Word$adder$(_a$pred$10, $531, Bool$true)); - var $533 = $534; + var $540 = Word$o$(Word$adder$(_a$pred$10, $537, Bool$true)); + var $539 = $540; } else { - var $535 = Word$i$(Word$adder$(_a$pred$10, $531, Bool$false)); - var $533 = $535; + var $541 = Word$i$(Word$adder$(_a$pred$10, $537, Bool$false)); + var $539 = $541; }; - return $533; + return $539; }); - var $525 = $532; + var $531 = $538; break; case 'Word.e': - var $536 = (_a$pred$8 => { - var $537 = Word$e; - return $537; - }); - var $525 = $536; - break; - }; - var $525 = $525($523); - return $525; - }); - var $522 = $524; - break; - case 'Word.i': - var $538 = self.pred; - var $539 = (_b$7 => { - var self = _b$7; - switch (self._) { - case 'Word.o': - var $541 = self.pred; - var $542 = (_a$pred$10 => { - var self = _c$4; - if (self) { - var $544 = Word$o$(Word$adder$(_a$pred$10, $541, Bool$true)); - var $543 = $544; - } else { - var $545 = Word$i$(Word$adder$(_a$pred$10, $541, Bool$false)); - var $543 = $545; - }; + var $542 = (_a$pred$8 => { + var $543 = Word$e; return $543; }); - var $540 = $542; - break; - case 'Word.i': - var $546 = self.pred; - var $547 = (_a$pred$10 => { - var self = _c$4; - if (self) { - var $549 = Word$i$(Word$adder$(_a$pred$10, $546, Bool$true)); - var $548 = $549; - } else { - var $550 = Word$o$(Word$adder$(_a$pred$10, $546, Bool$true)); - var $548 = $550; - }; - return $548; - }); - var $540 = $547; - break; - case 'Word.e': - var $551 = (_a$pred$8 => { - var $552 = Word$e; - return $552; - }); - var $540 = $551; + var $531 = $542; break; }; - var $540 = $540($538); - return $540; + var $531 = $531($529); + return $531; }); - var $522 = $539; + var $528 = $530; + break; + case 'Word.i': + var $544 = self.pred; + var $545 = (_b$7 => { + var self = _b$7; + switch (self._) { + case 'Word.o': + var $547 = self.pred; + var $548 = (_a$pred$10 => { + var self = _c$4; + if (self) { + var $550 = Word$o$(Word$adder$(_a$pred$10, $547, Bool$true)); + var $549 = $550; + } else { + var $551 = Word$i$(Word$adder$(_a$pred$10, $547, Bool$false)); + var $549 = $551; + }; + return $549; + }); + var $546 = $548; + break; + case 'Word.i': + var $552 = self.pred; + var $553 = (_a$pred$10 => { + var self = _c$4; + if (self) { + var $555 = Word$i$(Word$adder$(_a$pred$10, $552, Bool$true)); + var $554 = $555; + } else { + var $556 = Word$o$(Word$adder$(_a$pred$10, $552, Bool$true)); + var $554 = $556; + }; + return $554; + }); + var $546 = $553; + break; + case 'Word.e': + var $557 = (_a$pred$8 => { + var $558 = Word$e; + return $558; + }); + var $546 = $557; + break; + }; + var $546 = $546($544); + return $546; + }); + var $528 = $545; break; case 'Word.e': - var $553 = (_b$5 => { - var $554 = Word$e; - return $554; + var $559 = (_b$5 => { + var $560 = Word$e; + return $560; }); - var $522 = $553; + var $528 = $559; break; }; - var $522 = $522(_b$3); - return $522; + var $528 = $528(_b$3); + return $528; }; const Word$adder = x0 => x1 => x2 => Word$adder$(x0, x1, x2); function Word$add$(_a$2, _b$3) { - var $555 = Word$adder$(_a$2, _b$3, Bool$false); - return $555; + var $561 = Word$adder$(_a$2, _b$3, Bool$false); + return $561; }; const Word$add = x0 => x1 => Word$add$(x0, x1); const U16$add = a0 => a1 => ((a0 + a1) & 0xFFFF); @@ -2746,35 +2765,35 @@ module.exports = (function() { var self = _word$2; switch (self._) { case 'Word.o': - var $557 = self.pred; + var $563 = self.pred; var self = _prev$3; if (self) { - var $559 = Word$i$(Word$shift_left$one$go$($557, Bool$false)); - var $558 = $559; + var $565 = Word$i$(Word$shift_left$one$go$($563, Bool$false)); + var $564 = $565; } else { - var $560 = Word$o$(Word$shift_left$one$go$($557, Bool$false)); - var $558 = $560; + var $566 = Word$o$(Word$shift_left$one$go$($563, Bool$false)); + var $564 = $566; }; - var $556 = $558; + var $562 = $564; break; case 'Word.i': - var $561 = self.pred; + var $567 = self.pred; var self = _prev$3; if (self) { - var $563 = Word$i$(Word$shift_left$one$go$($561, Bool$true)); - var $562 = $563; + var $569 = Word$i$(Word$shift_left$one$go$($567, Bool$true)); + var $568 = $569; } else { - var $564 = Word$o$(Word$shift_left$one$go$($561, Bool$true)); - var $562 = $564; + var $570 = Word$o$(Word$shift_left$one$go$($567, Bool$true)); + var $568 = $570; }; - var $556 = $562; + var $562 = $568; break; case 'Word.e': - var $565 = Word$e; - var $556 = $565; + var $571 = Word$e; + var $562 = $571; break; }; - return $556; + return $562; }; const Word$shift_left$one$go = x0 => x1 => Word$shift_left$one$go$(x0, x1); @@ -2782,21 +2801,21 @@ module.exports = (function() { var self = _word$2; switch (self._) { case 'Word.o': - var $567 = self.pred; - var $568 = Word$o$(Word$shift_left$one$go$($567, Bool$false)); - var $566 = $568; + var $573 = self.pred; + var $574 = Word$o$(Word$shift_left$one$go$($573, Bool$false)); + var $572 = $574; break; case 'Word.i': - var $569 = self.pred; - var $570 = Word$o$(Word$shift_left$one$go$($569, Bool$true)); - var $566 = $570; + var $575 = self.pred; + var $576 = Word$o$(Word$shift_left$one$go$($575, Bool$true)); + var $572 = $576; break; case 'Word.e': - var $571 = Word$e; - var $566 = $571; + var $577 = Word$e; + var $572 = $577; break; }; - return $566; + return $572; }; const Word$shift_left$one = x0 => Word$shift_left$one$(x0); @@ -2812,12 +2831,12 @@ module.exports = (function() { var R = (() => { var self = _n$3; if (self === 0n) { - var $572 = _value$2; - return $572; + var $578 = _value$2; + return $578; } else { - var $573 = (self - 1n); - var $574 = Word$shift_left$(Word$shift_left$one$(_value$2), $573); - return $574; + var $579 = (self - 1n); + var $580 = Word$shift_left$(Word$shift_left$one$(_value$2), $579); + return $580; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -2839,16 +2858,16 @@ module.exports = (function() { var self = _a$3; switch (self._) { case 'Word.o': - var $575 = self.pred; - var $576 = Word$mul$go$($575, Word$shift_left$(_b$4, 1n), _acc$5); - return $576; + var $581 = self.pred; + var $582 = Word$mul$go$($581, Word$shift_left$(_b$4, 1n), _acc$5); + return $582; case 'Word.i': - var $577 = self.pred; - var $578 = Word$mul$go$($577, Word$shift_left$(_b$4, 1n), Word$add$(_b$4, _acc$5)); - return $578; + var $583 = self.pred; + var $584 = Word$mul$go$($583, Word$shift_left$(_b$4, 1n), Word$add$(_b$4, _acc$5)); + return $584; case 'Word.e': - var $579 = _acc$5; - return $579; + var $585 = _acc$5; + return $585; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -2861,27 +2880,27 @@ module.exports = (function() { var self = _word$2; switch (self._) { case 'Word.o': - var $581 = self.pred; - var $582 = Word$o$(Word$to_zero$($581)); - var $580 = $582; + var $587 = self.pred; + var $588 = Word$o$(Word$to_zero$($587)); + var $586 = $588; break; case 'Word.i': - var $583 = self.pred; - var $584 = Word$o$(Word$to_zero$($583)); - var $580 = $584; + var $589 = self.pred; + var $590 = Word$o$(Word$to_zero$($589)); + var $586 = $590; break; case 'Word.e': - var $585 = Word$e; - var $580 = $585; + var $591 = Word$e; + var $586 = $591; break; }; - return $580; + return $586; }; const Word$to_zero = x0 => Word$to_zero$(x0); function Word$mul$(_a$2, _b$3) { - var $586 = Word$mul$go$(_a$2, _b$3, Word$to_zero$(_a$2)); - return $586; + var $592 = Word$mul$go$(_a$2, _b$3, Word$to_zero$(_a$2)); + return $592; }; const Word$mul = x0 => x1 => Word$mul$(x0, x1); const U16$mul = a0 => a1 => ((a0 * a1) & 0xFFFF); @@ -2891,117 +2910,117 @@ module.exports = (function() { var self = _a$2; switch (self._) { case 'Word.o': - var $588 = self.pred; - var $589 = (_b$7 => { + var $594 = self.pred; + var $595 = (_b$7 => { var self = _b$7; switch (self._) { case 'Word.o': - var $591 = self.pred; - var $592 = (_a$pred$10 => { + var $597 = self.pred; + var $598 = (_a$pred$10 => { var self = _c$4; if (self) { - var $594 = Word$i$(Word$subber$(_a$pred$10, $591, Bool$true)); - var $593 = $594; + var $600 = Word$i$(Word$subber$(_a$pred$10, $597, Bool$true)); + var $599 = $600; } else { - var $595 = Word$o$(Word$subber$(_a$pred$10, $591, Bool$false)); - var $593 = $595; + var $601 = Word$o$(Word$subber$(_a$pred$10, $597, Bool$false)); + var $599 = $601; }; - return $593; + return $599; }); - var $590 = $592; + var $596 = $598; break; case 'Word.i': - var $596 = self.pred; - var $597 = (_a$pred$10 => { + var $602 = self.pred; + var $603 = (_a$pred$10 => { var self = _c$4; if (self) { - var $599 = Word$o$(Word$subber$(_a$pred$10, $596, Bool$true)); - var $598 = $599; + var $605 = Word$o$(Word$subber$(_a$pred$10, $602, Bool$true)); + var $604 = $605; } else { - var $600 = Word$i$(Word$subber$(_a$pred$10, $596, Bool$true)); - var $598 = $600; + var $606 = Word$i$(Word$subber$(_a$pred$10, $602, Bool$true)); + var $604 = $606; }; - return $598; + return $604; }); - var $590 = $597; + var $596 = $603; break; case 'Word.e': - var $601 = (_a$pred$8 => { - var $602 = Word$e; - return $602; - }); - var $590 = $601; - break; - }; - var $590 = $590($588); - return $590; - }); - var $587 = $589; - break; - case 'Word.i': - var $603 = self.pred; - var $604 = (_b$7 => { - var self = _b$7; - switch (self._) { - case 'Word.o': - var $606 = self.pred; - var $607 = (_a$pred$10 => { - var self = _c$4; - if (self) { - var $609 = Word$o$(Word$subber$(_a$pred$10, $606, Bool$false)); - var $608 = $609; - } else { - var $610 = Word$i$(Word$subber$(_a$pred$10, $606, Bool$false)); - var $608 = $610; - }; + var $607 = (_a$pred$8 => { + var $608 = Word$e; return $608; }); - var $605 = $607; - break; - case 'Word.i': - var $611 = self.pred; - var $612 = (_a$pred$10 => { - var self = _c$4; - if (self) { - var $614 = Word$i$(Word$subber$(_a$pred$10, $611, Bool$true)); - var $613 = $614; - } else { - var $615 = Word$o$(Word$subber$(_a$pred$10, $611, Bool$false)); - var $613 = $615; - }; - return $613; - }); - var $605 = $612; - break; - case 'Word.e': - var $616 = (_a$pred$8 => { - var $617 = Word$e; - return $617; - }); - var $605 = $616; + var $596 = $607; break; }; - var $605 = $605($603); - return $605; + var $596 = $596($594); + return $596; }); - var $587 = $604; + var $593 = $595; + break; + case 'Word.i': + var $609 = self.pred; + var $610 = (_b$7 => { + var self = _b$7; + switch (self._) { + case 'Word.o': + var $612 = self.pred; + var $613 = (_a$pred$10 => { + var self = _c$4; + if (self) { + var $615 = Word$o$(Word$subber$(_a$pred$10, $612, Bool$false)); + var $614 = $615; + } else { + var $616 = Word$i$(Word$subber$(_a$pred$10, $612, Bool$false)); + var $614 = $616; + }; + return $614; + }); + var $611 = $613; + break; + case 'Word.i': + var $617 = self.pred; + var $618 = (_a$pred$10 => { + var self = _c$4; + if (self) { + var $620 = Word$i$(Word$subber$(_a$pred$10, $617, Bool$true)); + var $619 = $620; + } else { + var $621 = Word$o$(Word$subber$(_a$pred$10, $617, Bool$false)); + var $619 = $621; + }; + return $619; + }); + var $611 = $618; + break; + case 'Word.e': + var $622 = (_a$pred$8 => { + var $623 = Word$e; + return $623; + }); + var $611 = $622; + break; + }; + var $611 = $611($609); + return $611; + }); + var $593 = $610; break; case 'Word.e': - var $618 = (_b$5 => { - var $619 = Word$e; - return $619; + var $624 = (_b$5 => { + var $625 = Word$e; + return $625; }); - var $587 = $618; + var $593 = $624; break; }; - var $587 = $587(_b$3); - return $587; + var $593 = $593(_b$3); + return $593; }; const Word$subber = x0 => x1 => x2 => Word$subber$(x0, x1, x2); function Word$sub$(_a$2, _b$3) { - var $620 = Word$subber$(_a$2, _b$3, Bool$false); - return $620; + var $626 = Word$subber$(_a$2, _b$3, Bool$false); + return $626; }; const Word$sub = x0 => x1 => Word$sub$(x0, x1); const U16$sub = a0 => a1 => ((a0 - a1) & 0xFFFF); @@ -3010,33 +3029,33 @@ module.exports = (function() { function Char$hex_value16$(_chr$1) { var self = ((_chr$1 >= 48) && (_chr$1 <= 57)); if (self) { - var $622 = ((_chr$1 - 48) & 0xFFFF); - var $621 = $622; + var $628 = ((_chr$1 - 48) & 0xFFFF); + var $627 = $628; } else { var self = ((_chr$1 >= 97) && (_chr$1 <= 102)); if (self) { - var $624 = (_x0$2 => { - var $625 = ((((((((((((((((((((_x0$2 + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF); - return $625; + var $630 = (_x0$2 => { + var $631 = ((((((((((((((((((((_x0$2 + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF); + return $631; })(((_chr$1 - 97) & 0xFFFF)); - var $623 = $624; + var $629 = $630; } else { var self = ((_chr$1 >= 65) && (_chr$1 <= 70)); if (self) { - var $627 = (_x0$2 => { - var $628 = ((((((((((((((((((((_x0$2 + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF); - return $628; + var $633 = (_x0$2 => { + var $634 = ((((((((((((((((((((_x0$2 + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF); + return $634; })(((_chr$1 - 65) & 0xFFFF)); - var $626 = $627; + var $632 = $633; } else { - var $629 = U16$zero; - var $626 = $629; + var $635 = U16$zero; + var $632 = $635; }; - var $623 = $626; + var $629 = $632; }; - var $621 = $623; + var $627 = $629; }; - return $621; + return $627; }; const Char$hex_value16 = x0 => Char$hex_value16$(x0); @@ -3052,21 +3071,21 @@ module.exports = (function() { var R = (() => { var self = _code$1; if (self.length === 0) { - var $630 = Pair$new$(_code$1, _u16$2); - return $630; + var $636 = Pair$new$(_code$1, _u16$2); + return $636; } else { - var $631 = self.charCodeAt(0); - var $632 = self.slice(1); - var self = Char$is_hex$($631); + var $637 = self.charCodeAt(0); + var $638 = self.slice(1); + var self = Char$is_hex$($637); if (self) { - var _u16$5 = ((((_u16$2 * 16) & 0xFFFF) + Char$hex_value16$($631)) & 0xFFFF); - var $634 = Kind$Core$read$u16$($632, _u16$5); - var $633 = $634; + var _u16$5 = ((((_u16$2 * 16) & 0xFFFF) + Char$hex_value16$($637)) & 0xFFFF); + var $640 = Kind$Core$read$u16$($638, _u16$5); + var $639 = $640; } else { - var $635 = Pair$new$(_code$1, _u16$2); - var $633 = $635; + var $641 = Pair$new$(_code$1, _u16$2); + var $639 = $641; }; - return $633; + return $639; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -3082,178 +3101,178 @@ module.exports = (function() { var self = Kind$Core$read$u16$(_code$2, 0); switch (self._) { case 'Pair.new': - var $638 = self.fst; - var $639 = self.snd; - var self = String$starts_with$($638, "}"); + var $644 = self.fst; + var $645 = self.snd; + var self = String$starts_with$($644, "}"); if (self) { - var $641 = Pair$new$(String$drop$(1n, $638), $639); - var $640 = $641; + var $647 = Pair$new$(String$drop$(1n, $644), $645); + var $646 = $647; } else { - var $642 = Pair$new$("", 63); - var $640 = $642; + var $648 = Pair$new$("", 63); + var $646 = $648; }; - var $637 = $640; + var $643 = $646; break; }; - var $636 = $637; + var $642 = $643; } else { var self = String$starts_with$(_code$1, "\\\'"); if (self) { - var $644 = Pair$new$(String$drop$(2n, _code$1), 39); - var $643 = $644; + var $650 = Pair$new$(String$drop$(2n, _code$1), 39); + var $649 = $650; } else { var self = String$starts_with$(_code$1, "\\\""); if (self) { - var $646 = Pair$new$(String$drop$(2n, _code$1), 34); - var $645 = $646; + var $652 = Pair$new$(String$drop$(2n, _code$1), 34); + var $651 = $652; } else { var self = String$starts_with$(_code$1, "\\\\"); if (self) { - var $648 = Pair$new$(String$drop$(2n, _code$1), 92); - var $647 = $648; + var $654 = Pair$new$(String$drop$(2n, _code$1), 92); + var $653 = $654; } else { var self = _code$1; if (self.length === 0) { - var $650 = Pair$new$("", 63); - var $649 = $650; + var $656 = Pair$new$("", 63); + var $655 = $656; } else { - var $651 = self.charCodeAt(0); - var $652 = self.slice(1); - var $653 = Pair$new$($652, $651); - var $649 = $653; + var $657 = self.charCodeAt(0); + var $658 = self.slice(1); + var $659 = Pair$new$($658, $657); + var $655 = $659; }; - var $647 = $649; + var $653 = $655; }; - var $645 = $647; + var $651 = $653; }; - var $643 = $645; + var $649 = $651; }; - var $636 = $643; + var $642 = $649; }; - return $636; + return $642; }; const Kind$Core$read$chrx = x0 => Kind$Core$read$chrx$(x0); function Kind$Term$chr$(_chrx$1) { - var $654 = ({ + var $660 = ({ _: 'Kind.Term.chr', 'chrx': _chrx$1 }); - return $654; + return $660; }; const Kind$Term$chr = x0 => Kind$Term$chr$(x0); function Kind$Core$read$strx$(_code$1) { var self = String$starts_with$(_code$1, "\""); if (self) { - var $656 = Pair$new$(_code$1, ""); - var $655 = $656; + var $662 = Pair$new$(_code$1, ""); + var $661 = $662; } else { var self = Kind$Core$read$chrx$(_code$1); switch (self._) { case 'Pair.new': - var $658 = self.fst; - var $659 = self.snd; - var self = Kind$Core$read$strx$($658); + var $664 = self.fst; + var $665 = self.snd; + var self = Kind$Core$read$strx$($664); switch (self._) { case 'Pair.new': - var $661 = self.fst; - var $662 = self.snd; - var $663 = Pair$new$($661, String$cons$($659, $662)); - var $660 = $663; + var $667 = self.fst; + var $668 = self.snd; + var $669 = Pair$new$($667, String$cons$($665, $668)); + var $666 = $669; break; }; - var $657 = $660; + var $663 = $666; break; }; - var $655 = $657; + var $661 = $663; }; - return $655; + return $661; }; const Kind$Core$read$strx = x0 => Kind$Core$read$strx$(x0); function Kind$Term$str$(_strx$1) { - var $664 = ({ + var $670 = ({ _: 'Kind.Term.str', 'strx': _strx$1 }); - return $664; + return $670; }; const Kind$Term$str = x0 => Kind$Term$str$(x0); function Char$dec_value$(_chr$1) { var self = (_chr$1 === 48); if (self) { - var $666 = 0n; - var $665 = $666; + var $672 = 0n; + var $671 = $672; } else { var self = (_chr$1 === 49); if (self) { - var $668 = 1n; - var $667 = $668; + var $674 = 1n; + var $673 = $674; } else { var self = (_chr$1 === 50); if (self) { - var $670 = 2n; - var $669 = $670; + var $676 = 2n; + var $675 = $676; } else { var self = (_chr$1 === 51); if (self) { - var $672 = 3n; - var $671 = $672; + var $678 = 3n; + var $677 = $678; } else { var self = (_chr$1 === 52); if (self) { - var $674 = 4n; - var $673 = $674; + var $680 = 4n; + var $679 = $680; } else { var self = (_chr$1 === 53); if (self) { - var $676 = 5n; - var $675 = $676; + var $682 = 5n; + var $681 = $682; } else { var self = (_chr$1 === 54); if (self) { - var $678 = 6n; - var $677 = $678; + var $684 = 6n; + var $683 = $684; } else { var self = (_chr$1 === 55); if (self) { - var $680 = 7n; - var $679 = $680; + var $686 = 7n; + var $685 = $686; } else { var self = (_chr$1 === 56); if (self) { - var $682 = 8n; - var $681 = $682; + var $688 = 8n; + var $687 = $688; } else { var self = (_chr$1 === 57); if (self) { - var $684 = 9n; - var $683 = $684; + var $690 = 9n; + var $689 = $690; } else { - var $685 = 0n; - var $683 = $685; + var $691 = 0n; + var $689 = $691; }; - var $681 = $683; + var $687 = $689; }; - var $679 = $681; + var $685 = $687; }; - var $677 = $679; + var $683 = $685; }; - var $675 = $677; + var $681 = $683; }; - var $673 = $675; + var $679 = $681; }; - var $671 = $673; + var $677 = $679; }; - var $669 = $671; + var $675 = $677; }; - var $667 = $669; + var $673 = $675; }; - var $665 = $667; + var $671 = $673; }; - return $665; + return $671; }; const Char$dec_value = x0 => Char$dec_value$(x0); @@ -3269,21 +3288,21 @@ module.exports = (function() { var R = (() => { var self = _code$1; if (self.length === 0) { - var $686 = Pair$new$(_code$1, _nat$2); - return $686; + var $692 = Pair$new$(_code$1, _nat$2); + return $692; } else { - var $687 = self.charCodeAt(0); - var $688 = self.slice(1); - var self = Char$is_hex$($687); + var $693 = self.charCodeAt(0); + var $694 = self.slice(1); + var self = Char$is_hex$($693); if (self) { - var _nat$5 = ((_nat$2 * 10n) + Char$dec_value$($687)); - var $690 = Kind$Core$read$natx$($688, _nat$5); - var $689 = $690; + var _nat$5 = ((_nat$2 * 10n) + Char$dec_value$($693)); + var $696 = Kind$Core$read$natx$($694, _nat$5); + var $695 = $696; } else { - var $691 = Pair$new$(_code$1, _nat$2); - var $689 = $691; + var $697 = Pair$new$(_code$1, _nat$2); + var $695 = $697; }; - return $689; + return $695; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -3293,11 +3312,11 @@ module.exports = (function() { const Kind$Core$read$natx = x0 => x1 => Kind$Core$read$natx$(x0, x1); function Kind$Term$nat$(_natx$1) { - var $692 = ({ + var $698 = ({ _: 'Kind.Term.nat', 'natx': _natx$1 }); - return $692; + return $698; }; const Kind$Term$nat = x0 => Kind$Term$nat$(x0); @@ -3305,12 +3324,12 @@ module.exports = (function() { var self = _pair$3; switch (self._) { case 'Pair.new': - var $694 = self.fst; - var $695 = $694; - var $693 = $695; + var $700 = self.fst; + var $701 = $700; + var $699 = $701; break; }; - return $693; + return $699; }; const Pair$fst = x0 => Pair$fst$(x0); const Nat$eql = a0 => a1 => (a0 === a1); @@ -3318,14 +3337,14 @@ module.exports = (function() { function Nat$pred$(_n$1) { var self = _n$1; if (self === 0n) { - var $697 = Nat$zero; - var $696 = $697; + var $703 = Nat$zero; + var $702 = $703; } else { - var $698 = (self - 1n); - var $699 = $698; - var $696 = $699; + var $704 = (self - 1n); + var $705 = $704; + var $702 = $705; }; - return $696; + return $702; }; const Nat$pred = x0 => Nat$pred$(x0); @@ -3342,27 +3361,27 @@ module.exports = (function() { var self = _list$2; switch (self._) { case 'List.cons': - var $700 = self.head; - var $701 = self.tail; - var self = _cond$3($700)(_indx$4); + var $706 = self.head; + var $707 = self.tail; + var self = _cond$3($706)(_indx$4); if (self) { var self = (_skip$5 === 0n); if (self) { - var $704 = Maybe$some$(Pair$new$($700, _indx$4)); - var $703 = $704; + var $710 = Maybe$some$(Pair$new$($706, _indx$4)); + var $709 = $710; } else { - var $705 = Kind$Core$read$find$($701, _cond$3, Nat$succ$(_indx$4), Nat$pred$(_skip$5)); - var $703 = $705; + var $711 = Kind$Core$read$find$($707, _cond$3, Nat$succ$(_indx$4), Nat$pred$(_skip$5)); + var $709 = $711; }; - var $702 = $703; + var $708 = $709; } else { - var $706 = Kind$Core$read$find$($701, _cond$3, Nat$succ$(_indx$4), _skip$5); - var $702 = $706; + var $712 = Kind$Core$read$find$($707, _cond$3, Nat$succ$(_indx$4), _skip$5); + var $708 = $712; }; - return $702; + return $708; case 'List.nil': - var $707 = Maybe$none; - return $707; + var $713 = Maybe$none; + return $713; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -3375,12 +3394,12 @@ module.exports = (function() { var self = _pair$3; switch (self._) { case 'Pair.new': - var $709 = self.snd; - var $710 = $709; - var $708 = $710; + var $715 = self.snd; + var $716 = $715; + var $714 = $716; break; }; - return $708; + return $714; }; const Pair$snd = x0 => Pair$snd$(x0); @@ -3388,501 +3407,501 @@ module.exports = (function() { var self = Kind$Core$read$spaces$(_code$1); switch (self._) { case 'Pair.new': - var $712 = self.fst; - var self = $712; + var $718 = self.fst; + var self = $718; if (self.length === 0) { - var $714 = Pair$new$("", (_ctx$4 => { - var $715 = Kind$Term$ref$("error"); - return $715; + var $720 = Pair$new$("", (_ctx$4 => { + var $721 = Kind$Term$ref$("error"); + return $721; })); - var $713 = $714; + var $719 = $720; } else { - var $716 = self.charCodeAt(0); - var $717 = self.slice(1); - var _head$6 = $716; - var _code$7 = $717; + var $722 = self.charCodeAt(0); + var $723 = self.slice(1); + var _head$6 = $722; + var _code$7 = $723; var self = Char$eql$(_head$6, 42); if (self) { - var $719 = Pair$new$(_code$7, (_ctx$8 => { - var $720 = Kind$Term$typ; - return $720; + var $725 = Pair$new$(_code$7, (_ctx$8 => { + var $726 = Kind$Term$typ; + return $726; })); - var $718 = $719; + var $724 = $725; } else { var self = (_head$6 === 64); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $723 = self.fst; - var $724 = self.snd; - var self = Kind$Core$read$char$($723, 40); + var $729 = self.fst; + var $730 = self.snd; + var self = Kind$Core$read$char$($729, 40); switch (self._) { case 'Pair.new': - var $726 = self.fst; - var self = Kind$Core$read$name$($726); + var $732 = self.fst; + var self = Kind$Core$read$name$($732); switch (self._) { case 'Pair.new': - var $728 = self.fst; - var $729 = self.snd; - var self = Kind$Core$read$char$($728, 58); + var $734 = self.fst; + var $735 = self.snd; + var self = Kind$Core$read$char$($734, 58); switch (self._) { case 'Pair.new': - var $731 = self.fst; - var self = Kind$Core$read$term$($731); + var $737 = self.fst; + var self = Kind$Core$read$term$($737); switch (self._) { case 'Pair.new': - var $733 = self.fst; - var $734 = self.snd; - var self = Kind$Core$read$char$($733, 41); + var $739 = self.fst; + var $740 = self.snd; + var self = Kind$Core$read$char$($739, 41); switch (self._) { case 'Pair.new': - var $736 = self.fst; - var self = Kind$Core$read$term$($736); + var $742 = self.fst; + var self = Kind$Core$read$term$($742); switch (self._) { case 'Pair.new': - var $738 = self.fst; - var $739 = self.snd; - var $740 = Pair$new$($738, (_ctx$22 => { - var $741 = Kind$Term$all$(Bool$false, $724, $729, $734(_ctx$22), (_s$23 => _x$24 => { - var $742 = $739(List$cons$(Pair$new$($729, _x$24), List$cons$(Pair$new$($724, _s$23), _ctx$22))); - return $742; + var $744 = self.fst; + var $745 = self.snd; + var $746 = Pair$new$($744, (_ctx$22 => { + var $747 = Kind$Term$all$(Bool$false, $730, $735, $740(_ctx$22), (_s$23 => _x$24 => { + var $748 = $745(List$cons$(Pair$new$($735, _x$24), List$cons$(Pair$new$($730, _s$23), _ctx$22))); + return $748; })); - return $741; + return $747; })); - var $737 = $740; + var $743 = $746; break; }; - var $735 = $737; + var $741 = $743; break; }; - var $732 = $735; + var $738 = $741; break; }; - var $730 = $732; + var $736 = $738; break; }; - var $727 = $730; + var $733 = $736; break; }; - var $725 = $727; + var $731 = $733; break; }; - var $722 = $725; + var $728 = $731; break; }; - var $721 = $722; + var $727 = $728; } else { var self = (_head$6 === 37); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $745 = self.fst; - var $746 = self.snd; - var self = Kind$Core$read$char$($745, 40); + var $751 = self.fst; + var $752 = self.snd; + var self = Kind$Core$read$char$($751, 40); switch (self._) { case 'Pair.new': - var $748 = self.fst; - var self = Kind$Core$read$name$($748); + var $754 = self.fst; + var self = Kind$Core$read$name$($754); switch (self._) { case 'Pair.new': - var $750 = self.fst; - var $751 = self.snd; - var self = Kind$Core$read$char$($750, 58); + var $756 = self.fst; + var $757 = self.snd; + var self = Kind$Core$read$char$($756, 58); switch (self._) { case 'Pair.new': - var $753 = self.fst; - var self = Kind$Core$read$term$($753); + var $759 = self.fst; + var self = Kind$Core$read$term$($759); switch (self._) { case 'Pair.new': - var $755 = self.fst; - var $756 = self.snd; - var self = Kind$Core$read$char$($755, 41); + var $761 = self.fst; + var $762 = self.snd; + var self = Kind$Core$read$char$($761, 41); switch (self._) { case 'Pair.new': - var $758 = self.fst; - var self = Kind$Core$read$term$($758); + var $764 = self.fst; + var self = Kind$Core$read$term$($764); switch (self._) { case 'Pair.new': - var $760 = self.fst; - var $761 = self.snd; - var $762 = Pair$new$($760, (_ctx$22 => { - var $763 = Kind$Term$all$(Bool$true, $746, $751, $756(_ctx$22), (_s$23 => _x$24 => { - var $764 = $761(List$cons$(Pair$new$($751, _x$24), List$cons$(Pair$new$($746, _s$23), _ctx$22))); - return $764; + var $766 = self.fst; + var $767 = self.snd; + var $768 = Pair$new$($766, (_ctx$22 => { + var $769 = Kind$Term$all$(Bool$true, $752, $757, $762(_ctx$22), (_s$23 => _x$24 => { + var $770 = $767(List$cons$(Pair$new$($757, _x$24), List$cons$(Pair$new$($752, _s$23), _ctx$22))); + return $770; })); - return $763; + return $769; })); - var $759 = $762; + var $765 = $768; break; }; - var $757 = $759; + var $763 = $765; break; }; - var $754 = $757; + var $760 = $763; break; }; - var $752 = $754; + var $758 = $760; break; }; - var $749 = $752; + var $755 = $758; break; }; - var $747 = $749; + var $753 = $755; break; }; - var $744 = $747; + var $750 = $753; break; }; - var $743 = $744; + var $749 = $750; } else { var self = (_head$6 === 35); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $767 = self.fst; - var $768 = self.snd; - var self = Kind$Core$read$term$($767); + var $773 = self.fst; + var $774 = self.snd; + var self = Kind$Core$read$term$($773); switch (self._) { case 'Pair.new': - var $770 = self.fst; - var $771 = self.snd; - var $772 = Pair$new$($770, (_ctx$12 => { - var $773 = Kind$Term$lam$($768, (_x$13 => { - var $774 = $771(List$cons$(Pair$new$($768, _x$13), _ctx$12)); - return $774; + var $776 = self.fst; + var $777 = self.snd; + var $778 = Pair$new$($776, (_ctx$12 => { + var $779 = Kind$Term$lam$($774, (_x$13 => { + var $780 = $777(List$cons$(Pair$new$($774, _x$13), _ctx$12)); + return $780; })); - return $773; + return $779; })); - var $769 = $772; + var $775 = $778; break; }; - var $766 = $769; + var $772 = $775; break; }; - var $765 = $766; + var $771 = $772; } else { var self = (_head$6 === 40); if (self) { var self = Kind$Core$read$term$(_code$7); switch (self._) { case 'Pair.new': - var $777 = self.fst; - var $778 = self.snd; - var self = Kind$Core$read$term$($777); + var $783 = self.fst; + var $784 = self.snd; + var self = Kind$Core$read$term$($783); switch (self._) { case 'Pair.new': - var $780 = self.fst; - var $781 = self.snd; - var self = Kind$Core$read$char$($780, 41); + var $786 = self.fst; + var $787 = self.snd; + var self = Kind$Core$read$char$($786, 41); switch (self._) { case 'Pair.new': - var $783 = self.fst; - var $784 = Pair$new$($783, (_ctx$14 => { - var $785 = Kind$Term$app$($778(_ctx$14), $781(_ctx$14)); - return $785; + var $789 = self.fst; + var $790 = Pair$new$($789, (_ctx$14 => { + var $791 = Kind$Term$app$($784(_ctx$14), $787(_ctx$14)); + return $791; })); - var $782 = $784; + var $788 = $790; break; }; - var $779 = $782; + var $785 = $788; break; }; - var $776 = $779; + var $782 = $785; break; }; - var $775 = $776; + var $781 = $782; } else { var self = (_head$6 === 33); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $788 = self.fst; - var $789 = self.snd; - var self = Kind$Core$read$char$($788, 61); + var $794 = self.fst; + var $795 = self.snd; + var self = Kind$Core$read$char$($794, 61); switch (self._) { case 'Pair.new': - var $791 = self.fst; - var self = Kind$Core$read$term$($791); + var $797 = self.fst; + var self = Kind$Core$read$term$($797); switch (self._) { case 'Pair.new': - var $793 = self.fst; - var $794 = self.snd; - var self = Kind$Core$read$char$($793, 59); + var $799 = self.fst; + var $800 = self.snd; + var self = Kind$Core$read$char$($799, 59); switch (self._) { case 'Pair.new': - var $796 = self.fst; - var self = Kind$Core$read$term$($796); + var $802 = self.fst; + var self = Kind$Core$read$term$($802); switch (self._) { case 'Pair.new': - var $798 = self.fst; - var $799 = self.snd; - var $800 = Pair$new$($798, (_ctx$18 => { - var $801 = Kind$Term$let$($789, $794(_ctx$18), (_x$19 => { - var $802 = $799(List$cons$(Pair$new$($789, _x$19), _ctx$18)); - return $802; + var $804 = self.fst; + var $805 = self.snd; + var $806 = Pair$new$($804, (_ctx$18 => { + var $807 = Kind$Term$let$($795, $800(_ctx$18), (_x$19 => { + var $808 = $805(List$cons$(Pair$new$($795, _x$19), _ctx$18)); + return $808; })); - return $801; + return $807; })); - var $797 = $800; + var $803 = $806; break; }; - var $795 = $797; + var $801 = $803; break; }; - var $792 = $795; + var $798 = $801; break; }; - var $790 = $792; + var $796 = $798; break; }; - var $787 = $790; + var $793 = $796; break; }; - var $786 = $787; + var $792 = $793; } else { var self = (_head$6 === 36); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $805 = self.fst; - var $806 = self.snd; - var self = Kind$Core$read$char$($805, 61); + var $811 = self.fst; + var $812 = self.snd; + var self = Kind$Core$read$char$($811, 61); switch (self._) { case 'Pair.new': - var $808 = self.fst; - var self = Kind$Core$read$term$($808); + var $814 = self.fst; + var self = Kind$Core$read$term$($814); switch (self._) { case 'Pair.new': - var $810 = self.fst; - var $811 = self.snd; - var self = Kind$Core$read$char$($810, 59); + var $816 = self.fst; + var $817 = self.snd; + var self = Kind$Core$read$char$($816, 59); switch (self._) { case 'Pair.new': - var $813 = self.fst; - var self = Kind$Core$read$term$($813); + var $819 = self.fst; + var self = Kind$Core$read$term$($819); switch (self._) { case 'Pair.new': - var $815 = self.fst; - var $816 = self.snd; - var $817 = Pair$new$($815, (_ctx$18 => { - var $818 = Kind$Term$def$($806, $811(_ctx$18), (_x$19 => { - var $819 = $816(List$cons$(Pair$new$($806, _x$19), _ctx$18)); - return $819; + var $821 = self.fst; + var $822 = self.snd; + var $823 = Pair$new$($821, (_ctx$18 => { + var $824 = Kind$Term$def$($812, $817(_ctx$18), (_x$19 => { + var $825 = $822(List$cons$(Pair$new$($812, _x$19), _ctx$18)); + return $825; })); - return $818; + return $824; })); - var $814 = $817; + var $820 = $823; break; }; - var $812 = $814; + var $818 = $820; break; }; - var $809 = $812; + var $815 = $818; break; }; - var $807 = $809; + var $813 = $815; break; }; - var $804 = $807; + var $810 = $813; break; }; - var $803 = $804; + var $809 = $810; } else { var self = (_head$6 === 123); if (self) { var self = Kind$Core$read$term$(_code$7); switch (self._) { case 'Pair.new': - var $822 = self.fst; - var $823 = self.snd; - var self = Kind$Core$read$char$($822, 58); + var $828 = self.fst; + var $829 = self.snd; + var self = Kind$Core$read$char$($828, 58); switch (self._) { case 'Pair.new': - var $825 = self.fst; - var self = Kind$Core$read$term$($825); + var $831 = self.fst; + var self = Kind$Core$read$term$($831); switch (self._) { case 'Pair.new': - var $827 = self.fst; - var $828 = self.snd; - var self = Kind$Core$read$char$($827, 125); + var $833 = self.fst; + var $834 = self.snd; + var self = Kind$Core$read$char$($833, 125); switch (self._) { case 'Pair.new': - var $830 = self.fst; - var $831 = Pair$new$($830, (_ctx$16 => { - var $832 = Kind$Term$ann$(Bool$false, $823(_ctx$16), $828(_ctx$16)); - return $832; + var $836 = self.fst; + var $837 = Pair$new$($836, (_ctx$16 => { + var $838 = Kind$Term$ann$(Bool$false, $829(_ctx$16), $834(_ctx$16)); + return $838; })); - var $829 = $831; + var $835 = $837; break; }; - var $826 = $829; + var $832 = $835; break; }; - var $824 = $826; + var $830 = $832; break; }; - var $821 = $824; + var $827 = $830; break; }; - var $820 = $821; + var $826 = $827; } else { var self = (_head$6 === 39); if (self) { var self = Kind$Core$read$chrx$(_code$7); switch (self._) { case 'Pair.new': - var $835 = self.fst; - var $836 = self.snd; - var self = Kind$Core$read$char$($835, 39); + var $841 = self.fst; + var $842 = self.snd; + var self = Kind$Core$read$char$($841, 39); switch (self._) { case 'Pair.new': - var $838 = self.fst; - var $839 = Pair$new$($838, (_ctx$12 => { - var $840 = Kind$Term$chr$($836); - return $840; + var $844 = self.fst; + var $845 = Pair$new$($844, (_ctx$12 => { + var $846 = Kind$Term$chr$($842); + return $846; })); - var $837 = $839; + var $843 = $845; break; }; - var $834 = $837; + var $840 = $843; break; }; - var $833 = $834; + var $839 = $840; } else { var self = (_head$6 === 34); if (self) { var self = Kind$Core$read$strx$(_code$7); switch (self._) { case 'Pair.new': - var $843 = self.fst; - var $844 = self.snd; - var self = Kind$Core$read$char$($843, 34); + var $849 = self.fst; + var $850 = self.snd; + var self = Kind$Core$read$char$($849, 34); switch (self._) { case 'Pair.new': - var $846 = self.fst; - var $847 = Pair$new$($846, (_ctx$12 => { - var $848 = Kind$Term$str$($844); - return $848; + var $852 = self.fst; + var $853 = Pair$new$($852, (_ctx$12 => { + var $854 = Kind$Term$str$($850); + return $854; })); - var $845 = $847; + var $851 = $853; break; }; - var $842 = $845; + var $848 = $851; break; }; - var $841 = $842; + var $847 = $848; } else { var self = (_head$6 === 43); if (self) { var self = Kind$Core$read$natx$(_code$7, 0n); switch (self._) { case 'Pair.new': - var $851 = self.fst; - var $852 = self.snd; - var $853 = Pair$new$($851, (_ctx$10 => { - var $854 = Kind$Term$nat$($852); - return $854; + var $857 = self.fst; + var $858 = self.snd; + var $859 = Pair$new$($857, (_ctx$10 => { + var $860 = Kind$Term$nat$($858); + return $860; })); - var $850 = $853; + var $856 = $859; break; }; - var $849 = $850; + var $855 = $856; } else { var self = Kind$Core$read$is_name$(_head$6); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $857 = self.fst; - var $858 = self.snd; - var _name$10 = String$cons$(_head$6, $858); - var self = $857; + var $863 = self.fst; + var $864 = self.snd; + var _name$10 = String$cons$(_head$6, $864); + var self = $863; if (self.length === 0) { - var $860 = Pair$new$("", 0n); - var self = $860; + var $866 = Pair$new$("", 0n); + var self = $866; } else { - var $861 = self.charCodeAt(0); - var $862 = self.slice(1); - var self = ($861 === 94); + var $867 = self.charCodeAt(0); + var $868 = self.slice(1); + var self = ($867 === 94); if (self) { - var $864 = Kind$Core$read$natx$($862, 0n); - var $863 = $864; + var $870 = Kind$Core$read$natx$($868, 0n); + var $869 = $870; } else { - var $865 = Pair$new$($857, 0n); - var $863 = $865; + var $871 = Pair$new$($863, 0n); + var $869 = $871; }; - var self = $863; + var self = $869; }; switch (self._) { case 'Pair.new': - var $866 = self.fst; - var $867 = self.snd; - var $868 = Pair$new$($866, (_ctx$13 => { + var $872 = self.fst; + var $873 = self.snd; + var $874 = Pair$new$($872, (_ctx$13 => { var _got$14 = Kind$Core$read$find$(_ctx$13, (_x$14 => _i$15 => { - var $870 = (Pair$fst$(_x$14) === _name$10); - return $870; - }), 0n, $867); + var $876 = (Pair$fst$(_x$14) === _name$10); + return $876; + }), 0n, $873); var self = _got$14; switch (self._) { case 'Maybe.some': - var $871 = self.value; - var $872 = Pair$snd$(Pair$fst$($871)); - var $869 = $872; + var $877 = self.value; + var $878 = Pair$snd$(Pair$fst$($877)); + var $875 = $878; break; case 'Maybe.none': - var $873 = Kind$Term$ref$(_name$10); - var $869 = $873; + var $879 = Kind$Term$ref$(_name$10); + var $875 = $879; break; }; - return $869; + return $875; })); - var $859 = $868; + var $865 = $874; break; }; - var $856 = $859; + var $862 = $865; break; }; - var $855 = $856; + var $861 = $862; } else { - var $874 = Pair$new$("", (_ctx$8 => { - var $875 = Kind$Term$ref$("error"); - return $875; + var $880 = Pair$new$("", (_ctx$8 => { + var $881 = Kind$Term$ref$("error"); + return $881; })); - var $855 = $874; + var $861 = $880; }; - var $849 = $855; + var $855 = $861; }; - var $841 = $849; + var $847 = $855; }; - var $833 = $841; + var $839 = $847; }; - var $820 = $833; + var $826 = $839; }; - var $803 = $820; + var $809 = $826; }; - var $786 = $803; + var $792 = $809; }; - var $775 = $786; + var $781 = $792; }; - var $765 = $775; + var $771 = $781; }; - var $743 = $765; + var $749 = $771; }; - var $721 = $743; + var $727 = $749; }; - var $718 = $721; + var $724 = $727; }; - var $713 = $718; + var $719 = $724; }; - var $711 = $713; + var $717 = $719; break; }; - return $711; + return $717; }; const Kind$Core$read$term = x0 => Kind$Core$read$term$(x0); @@ -3890,56 +3909,56 @@ module.exports = (function() { var self = Kind$Core$read$term$((_code$1 + ";")); switch (self._) { case 'Pair.new': - var $877 = self.fst; - var $878 = self.snd; - var self = $877; + var $883 = self.fst; + var $884 = self.snd; + var self = $883; if (self.length === 0) { - var $880 = Maybe$none; - var $879 = $880; + var $886 = Maybe$none; + var $885 = $886; } else { - var $881 = self.charCodeAt(0); - var $882 = self.slice(1); - var $883 = Maybe$some$($878(List$nil)); - var $879 = $883; + var $887 = self.charCodeAt(0); + var $888 = self.slice(1); + var $889 = Maybe$some$($884(List$nil)); + var $885 = $889; }; - var $876 = $879; + var $882 = $885; break; }; - return $876; + return $882; }; const Kind$Core$read = x0 => Kind$Core$read$(x0); function Bool$read$(_code$1) { var self = (_code$1 === "Bool.true"); if (self) { - var $885 = Maybe$some$(Bool$true); - var $884 = $885; + var $891 = Maybe$some$(Bool$true); + var $890 = $891; } else { var self = (_code$1 === "Bool.false"); if (self) { - var $887 = Maybe$some$(Bool$false); - var $886 = $887; + var $893 = Maybe$some$(Bool$false); + var $892 = $893; } else { - var $888 = Maybe$none; - var $886 = $888; + var $894 = Maybe$none; + var $892 = $894; }; - var $884 = $886; + var $890 = $892; }; - return $884; + return $890; }; const Bool$read = x0 => Bool$read$(x0); function Kind$Status$done$(_cached$1) { - var $889 = ({ + var $895 = ({ _: 'Kind.Status.done', 'cached': _cached$1 }); - return $889; + return $895; }; const Kind$Status$done = x0 => Kind$Status$done$(x0); function Kind$Def$new$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _stat$9) { - var $890 = ({ + var $896 = ({ _: 'Kind.Def.new', 'file': _file$1, 'code': _code$2, @@ -3951,123 +3970,123 @@ module.exports = (function() { 'arit': _arit$8, 'stat': _stat$9 }); - return $890; + return $896; }; const Kind$Def$new = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => Kind$Def$new$(x0, x1, x2, x3, x4, x5, x6, x7, x8); function Kind$Synth$load$cached$def$(_name$1) { - var $891 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $892 = _m$bind$2; - return $892; + var $897 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $898 = _m$bind$2; + return $898; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".file")))((_cache_file$2 => { var self = (!String$is_empty$(_cache_file$2)); if (self) { - var $894 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $895 = _m$bind$3; - return $895; + var $900 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $901 = _m$bind$3; + return $901; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".time")))((_cache_time$3 => { - var $896 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $897 = _m$bind$4; - return $897; + var $902 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $903 = _m$bind$4; + return $903; }))(IO$get_file_mtime$(_cache_file$2))((_cache_file_time$4 => { var self = (_cache_time$3 === _cache_file_time$4); if (self) { - var $899 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $900 = _m$bind$5; - return $900; + var $905 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $906 = _m$bind$5; + return $906; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".term")))((_cache_term$5 => { - var $901 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $902 = _m$bind$6; - return $902; + var $907 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $908 = _m$bind$6; + return $908; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".type")))((_cache_type$6 => { - var $903 = IO$monad$((_m$bind$7 => _m$pure$8 => { - var $904 = _m$bind$7; - return $904; + var $909 = IO$monad$((_m$bind$7 => _m$pure$8 => { + var $910 = _m$bind$7; + return $910; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".isct")))((_cache_isct$7 => { - var $905 = IO$monad$((_m$bind$8 => _m$pure$9 => { - var $906 = _m$bind$8; - return $906; + var $911 = IO$monad$((_m$bind$8 => _m$pure$9 => { + var $912 = _m$bind$8; + return $912; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".arit")))((_cache_arit$8 => { - var $907 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $908 = _m$pure$10; - return $908; + var $913 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $914 = _m$pure$10; + return $914; }))((() => { var _file$9 = _cache_file$2; var _code$10 = ""; var _orig$11 = Pair$new$(0n, 0n); - var $909 = Maybe$monad$((_m$bind$12 => _m$pure$13 => { - var $910 = _m$bind$12; - return $910; + var $915 = Maybe$monad$((_m$bind$12 => _m$pure$13 => { + var $916 = _m$bind$12; + return $916; }))(Kind$Core$read$(_cache_term$5))((_term$12 => { - var $911 = Maybe$monad$((_m$bind$13 => _m$pure$14 => { - var $912 = _m$bind$13; - return $912; + var $917 = Maybe$monad$((_m$bind$13 => _m$pure$14 => { + var $918 = _m$bind$13; + return $918; }))(Kind$Core$read$(_cache_type$6))((_type$13 => { - var $913 = Maybe$monad$((_m$bind$14 => _m$pure$15 => { - var $914 = _m$bind$14; - return $914; + var $919 = Maybe$monad$((_m$bind$14 => _m$pure$15 => { + var $920 = _m$bind$14; + return $920; }))(Bool$read$(_cache_isct$7))((_isct$14 => { - var $915 = Maybe$monad$((_m$bind$15 => _m$pure$16 => { - var $916 = _m$bind$15; - return $916; + var $921 = Maybe$monad$((_m$bind$15 => _m$pure$16 => { + var $922 = _m$bind$15; + return $922; }))(Maybe$some$((BigInt(_cache_arit$8))))((_arit$15 => { var _stat$16 = Kind$Status$done$(Bool$true); - var $917 = Maybe$monad$((_m$bind$17 => _m$pure$18 => { - var $918 = _m$pure$18; - return $918; + var $923 = Maybe$monad$((_m$bind$17 => _m$pure$18 => { + var $924 = _m$pure$18; + return $924; }))(Kind$Def$new$(_file$9, _code$10, _orig$11, _name$1, _term$12, _type$13, _isct$14, _arit$15, _stat$16)); - return $917; + return $923; })); - return $915; + return $921; })); - return $913; + return $919; })); - return $911; + return $917; })); - return $909; + return $915; })()); - return $907; + return $913; })); - return $905; + return $911; })); - return $903; + return $909; })); - return $901; + return $907; })); - var $898 = $899; + var $904 = $905; } else { - var $919 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $920 = _m$pure$6; - return $920; + var $925 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $926 = _m$pure$6; + return $926; }))(Maybe$none); - var $898 = $919; + var $904 = $925; }; - return $898; + return $904; })); - return $896; + return $902; })); - var $893 = $894; + var $899 = $900; } else { - var $921 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $922 = _m$pure$4; - return $922; + var $927 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $928 = _m$pure$4; + return $928; }))(Maybe$none); - var $893 = $921; + var $899 = $927; }; - return $893; + return $899; })); - return $891; + return $897; }; const Kind$Synth$load$cached$def = x0 => Kind$Synth$load$cached$def$(x0); function BitsMap$tie$(_val$2, _lft$3, _rgt$4) { - var $923 = ({ + var $929 = ({ _: 'BitsMap.tie', 'val': _val$2, 'lft': _lft$3, 'rgt': _rgt$4 }); - return $923; + return $929; }; const BitsMap$tie = x0 => x1 => x2 => BitsMap$tie$(x0, x1, x2); const BitsMap$new = ({ @@ -4076,8 +4095,8 @@ module.exports = (function() { const BitsMap$set = a0 => a1 => a2 => (bitsmap_set(a0, a1, a2, 'set')); function Kind$Map$set$(_name$2, _val$3, _map$4) { - var $924 = (bitsmap_set((kind_name_to_bits(_name$2)), _val$3, _map$4, 'set')); - return $924; + var $930 = (bitsmap_set((kind_name_to_bits(_name$2)), _val$3, _map$4, 'set')); + return $930; }; const Kind$Map$set = x0 => x1 => x2 => Kind$Map$set$(x0, x1, x2); const Kind$Map$new = BitsMap$new; @@ -4088,55 +4107,55 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.ref': - var $926 = self.name; - var $927 = Kind$Map$set$($926, Unit$new, _deps$2); - var $925 = $927; + var $932 = self.name; + var $933 = Kind$Map$set$($932, Unit$new, _deps$2); + var $931 = $933; break; case 'Kind.Term.all': - var $928 = self.xtyp; - var $929 = self.body; - var _deps$9 = Kind$Core$dependencies$go$($928, _deps$2); - var _deps$10 = Kind$Core$dependencies$go$($929(_nil$3)(_nil$3), _deps$9); - var $930 = _deps$10; - var $925 = $930; + var $934 = self.xtyp; + var $935 = self.body; + var _deps$9 = Kind$Core$dependencies$go$($934, _deps$2); + var _deps$10 = Kind$Core$dependencies$go$($935(_nil$3)(_nil$3), _deps$9); + var $936 = _deps$10; + var $931 = $936; break; case 'Kind.Term.lam': - var $931 = self.body; - var _deps$6 = Kind$Core$dependencies$go$($931(_nil$3), _deps$2); - var $932 = _deps$6; - var $925 = $932; + var $937 = self.body; + var _deps$6 = Kind$Core$dependencies$go$($937(_nil$3), _deps$2); + var $938 = _deps$6; + var $931 = $938; break; case 'Kind.Term.app': - var $933 = self.func; - var $934 = self.argm; - var _deps$6 = Kind$Core$dependencies$go$($933, _deps$2); - var _deps$7 = Kind$Core$dependencies$go$($934, _deps$6); - var $935 = _deps$7; - var $925 = $935; + var $939 = self.func; + var $940 = self.argm; + var _deps$6 = Kind$Core$dependencies$go$($939, _deps$2); + var _deps$7 = Kind$Core$dependencies$go$($940, _deps$6); + var $941 = _deps$7; + var $931 = $941; break; case 'Kind.Term.let': - var $936 = self.expr; - var $937 = self.body; - var _deps$7 = Kind$Core$dependencies$go$($936, _deps$2); - var _deps$8 = Kind$Core$dependencies$go$($937(_nil$3), _deps$7); - var $938 = _deps$8; - var $925 = $938; + var $942 = self.expr; + var $943 = self.body; + var _deps$7 = Kind$Core$dependencies$go$($942, _deps$2); + var _deps$8 = Kind$Core$dependencies$go$($943(_nil$3), _deps$7); + var $944 = _deps$8; + var $931 = $944; break; case 'Kind.Term.def': - var $939 = self.expr; - var $940 = self.body; - var _deps$7 = Kind$Core$dependencies$go$($939, _deps$2); - var _deps$8 = Kind$Core$dependencies$go$($940(_nil$3), _deps$7); - var $941 = _deps$8; - var $925 = $941; + var $945 = self.expr; + var $946 = self.body; + var _deps$7 = Kind$Core$dependencies$go$($945, _deps$2); + var _deps$8 = Kind$Core$dependencies$go$($946(_nil$3), _deps$7); + var $947 = _deps$8; + var $931 = $947; break; case 'Kind.Term.ann': - var $942 = self.term; - var $943 = self.type; - var _deps$7 = Kind$Core$dependencies$go$($942, _deps$2); - var _deps$8 = Kind$Core$dependencies$go$($943, _deps$7); - var $944 = _deps$8; - var $925 = $944; + var $948 = self.term; + var $949 = self.type; + var _deps$7 = Kind$Core$dependencies$go$($948, _deps$2); + var _deps$8 = Kind$Core$dependencies$go$($949, _deps$7); + var $950 = _deps$8; + var $931 = $950; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -4152,11 +4171,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $945 = _deps$2; - var $925 = $945; + var $951 = _deps$2; + var $931 = $951; break; }; - return $925; + return $931; }; const Kind$Core$dependencies$go = x0 => x1 => Kind$Core$dependencies$go$(x0, x1); @@ -4164,17 +4183,17 @@ module.exports = (function() { var self = _as$2; switch (self._) { case 'List.cons': - var $947 = self.head; - var $948 = self.tail; - var $949 = List$cons$(_f$4($947), List$mapped$($948, _f$4)); - var $946 = $949; + var $953 = self.head; + var $954 = self.tail; + var $955 = List$cons$(_f$4($953), List$mapped$($954, _f$4)); + var $952 = $955; break; case 'List.nil': - var $950 = List$nil; - var $946 = $950; + var $956 = List$nil; + var $952 = $956; break; }; - return $946; + return $952; }; const List$mapped = x0 => x1 => List$mapped$(x0, x1); @@ -4191,16 +4210,16 @@ module.exports = (function() { var self = _a$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $951 = self.slice(0, -1); - var $952 = Bits$reverse$tco$($951, (_r$2 + '0')); - return $952; + var $957 = self.slice(0, -1); + var $958 = Bits$reverse$tco$($957, (_r$2 + '0')); + return $958; case 'i': - var $953 = self.slice(0, -1); - var $954 = Bits$reverse$tco$($953, (_r$2 + '1')); - return $954; + var $959 = self.slice(0, -1); + var $960 = Bits$reverse$tco$($959, (_r$2 + '1')); + return $960; case 'e': - var $955 = _r$2; - return $955; + var $961 = _r$2; + return $961; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -4210,8 +4229,8 @@ module.exports = (function() { const Bits$reverse$tco = x0 => x1 => Bits$reverse$tco$(x0, x1); function Bits$reverse$(_a$1) { - var $956 = Bits$reverse$tco$(_a$1, Bits$e); - return $956; + var $962 = Bits$reverse$tco$(_a$1, Bits$e); + return $962; }; const Bits$reverse = x0 => Bits$reverse$(x0); @@ -4219,32 +4238,32 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'BitsMap.tie': - var $958 = self.val; - var $959 = self.lft; - var $960 = self.rgt; - var self = $958; + var $964 = self.val; + var $965 = self.lft; + var $966 = self.rgt; + var self = $964; switch (self._) { case 'Maybe.some': - var $962 = self.value; - var $963 = List$cons$(Pair$new$(Bits$reverse$(_key$3), $962), _list$4); - var _list0$8 = $963; + var $968 = self.value; + var $969 = List$cons$(Pair$new$(Bits$reverse$(_key$3), $968), _list$4); + var _list0$8 = $969; break; case 'Maybe.none': - var $964 = _list$4; - var _list0$8 = $964; + var $970 = _list$4; + var _list0$8 = $970; break; }; - var _list1$9 = BitsMap$to_list$go$($959, (_key$3 + '0'), _list0$8); - var _list2$10 = BitsMap$to_list$go$($960, (_key$3 + '1'), _list1$9); - var $961 = _list2$10; - var $957 = $961; + var _list1$9 = BitsMap$to_list$go$($965, (_key$3 + '0'), _list0$8); + var _list2$10 = BitsMap$to_list$go$($966, (_key$3 + '1'), _list1$9); + var $967 = _list2$10; + var $963 = $967; break; case 'BitsMap.new': - var $965 = _list$4; - var $957 = $965; + var $971 = _list$4; + var $963 = $971; break; }; - return $957; + return $963; }; const BitsMap$to_list$go = x0 => x1 => x2 => BitsMap$to_list$go$(x0, x1, x2); @@ -4252,1163 +4271,1163 @@ module.exports = (function() { var self = _bs$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $967 = self.slice(0, -1); - var _bs$3 = $967; + var $973 = self.slice(0, -1); + var _bs$3 = $973; var self = _bs$3; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $969 = self.slice(0, -1); - var _bs$5 = $969; + var $975 = self.slice(0, -1); + var _bs$5 = $975; var self = _bs$5; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $971 = self.slice(0, -1); - var _bs$7 = $971; + var $977 = self.slice(0, -1); + var _bs$7 = $977; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $973 = self.slice(0, -1); - var _bs$9 = $973; + var $979 = self.slice(0, -1); + var _bs$9 = $979; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $975 = self.slice(0, -1); - var _bs$11 = $975; + var $981 = self.slice(0, -1); + var _bs$11 = $981; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $977 = self.slice(0, -1); - var _bs$13 = $977; - var $978 = String$cons$(65, Kind$Name$from_bits$(_bs$13)); - var $976 = $978; + var $983 = self.slice(0, -1); + var _bs$13 = $983; + var $984 = String$cons$(65, Kind$Name$from_bits$(_bs$13)); + var $982 = $984; break; case 'i': - var $979 = self.slice(0, -1); - var _bs$13 = $979; - var $980 = String$cons$(66, Kind$Name$from_bits$(_bs$13)); - var $976 = $980; + var $985 = self.slice(0, -1); + var _bs$13 = $985; + var $986 = String$cons$(66, Kind$Name$from_bits$(_bs$13)); + var $982 = $986; break; case 'e': - var $981 = String$nil; - var $976 = $981; + var $987 = String$nil; + var $982 = $987; break; }; - var $974 = $976; + var $980 = $982; break; case 'i': - var $982 = self.slice(0, -1); - var _bs$11 = $982; + var $988 = self.slice(0, -1); + var _bs$11 = $988; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $984 = self.slice(0, -1); - var _bs$13 = $984; - var $985 = String$cons$(67, Kind$Name$from_bits$(_bs$13)); - var $983 = $985; + var $990 = self.slice(0, -1); + var _bs$13 = $990; + var $991 = String$cons$(67, Kind$Name$from_bits$(_bs$13)); + var $989 = $991; break; case 'i': - var $986 = self.slice(0, -1); - var _bs$13 = $986; - var $987 = String$cons$(68, Kind$Name$from_bits$(_bs$13)); - var $983 = $987; + var $992 = self.slice(0, -1); + var _bs$13 = $992; + var $993 = String$cons$(68, Kind$Name$from_bits$(_bs$13)); + var $989 = $993; break; case 'e': - var $988 = String$nil; - var $983 = $988; + var $994 = String$nil; + var $989 = $994; break; }; - var $974 = $983; + var $980 = $989; break; case 'e': - var $989 = String$nil; - var $974 = $989; + var $995 = String$nil; + var $980 = $995; break; }; - var $972 = $974; + var $978 = $980; break; case 'i': - var $990 = self.slice(0, -1); - var _bs$9 = $990; + var $996 = self.slice(0, -1); + var _bs$9 = $996; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $992 = self.slice(0, -1); - var _bs$11 = $992; + var $998 = self.slice(0, -1); + var _bs$11 = $998; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $994 = self.slice(0, -1); - var _bs$13 = $994; - var $995 = String$cons$(69, Kind$Name$from_bits$(_bs$13)); - var $993 = $995; + var $1000 = self.slice(0, -1); + var _bs$13 = $1000; + var $1001 = String$cons$(69, Kind$Name$from_bits$(_bs$13)); + var $999 = $1001; break; case 'i': - var $996 = self.slice(0, -1); - var _bs$13 = $996; - var $997 = String$cons$(70, Kind$Name$from_bits$(_bs$13)); - var $993 = $997; + var $1002 = self.slice(0, -1); + var _bs$13 = $1002; + var $1003 = String$cons$(70, Kind$Name$from_bits$(_bs$13)); + var $999 = $1003; break; case 'e': - var $998 = String$nil; - var $993 = $998; + var $1004 = String$nil; + var $999 = $1004; break; }; - var $991 = $993; + var $997 = $999; break; case 'i': - var $999 = self.slice(0, -1); - var _bs$11 = $999; + var $1005 = self.slice(0, -1); + var _bs$11 = $1005; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1001 = self.slice(0, -1); - var _bs$13 = $1001; - var $1002 = String$cons$(71, Kind$Name$from_bits$(_bs$13)); - var $1000 = $1002; + var $1007 = self.slice(0, -1); + var _bs$13 = $1007; + var $1008 = String$cons$(71, Kind$Name$from_bits$(_bs$13)); + var $1006 = $1008; break; case 'i': - var $1003 = self.slice(0, -1); - var _bs$13 = $1003; - var $1004 = String$cons$(72, Kind$Name$from_bits$(_bs$13)); - var $1000 = $1004; + var $1009 = self.slice(0, -1); + var _bs$13 = $1009; + var $1010 = String$cons$(72, Kind$Name$from_bits$(_bs$13)); + var $1006 = $1010; break; case 'e': - var $1005 = String$nil; - var $1000 = $1005; + var $1011 = String$nil; + var $1006 = $1011; break; }; - var $991 = $1000; + var $997 = $1006; break; case 'e': - var $1006 = String$nil; - var $991 = $1006; + var $1012 = String$nil; + var $997 = $1012; break; }; - var $972 = $991; + var $978 = $997; break; case 'e': - var $1007 = String$nil; - var $972 = $1007; + var $1013 = String$nil; + var $978 = $1013; break; }; - var $970 = $972; + var $976 = $978; break; case 'i': - var $1008 = self.slice(0, -1); - var _bs$7 = $1008; + var $1014 = self.slice(0, -1); + var _bs$7 = $1014; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1010 = self.slice(0, -1); - var _bs$9 = $1010; + var $1016 = self.slice(0, -1); + var _bs$9 = $1016; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1012 = self.slice(0, -1); - var _bs$11 = $1012; + var $1018 = self.slice(0, -1); + var _bs$11 = $1018; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1014 = self.slice(0, -1); - var _bs$13 = $1014; - var $1015 = String$cons$(73, Kind$Name$from_bits$(_bs$13)); - var $1013 = $1015; + var $1020 = self.slice(0, -1); + var _bs$13 = $1020; + var $1021 = String$cons$(73, Kind$Name$from_bits$(_bs$13)); + var $1019 = $1021; break; case 'i': - var $1016 = self.slice(0, -1); - var _bs$13 = $1016; - var $1017 = String$cons$(74, Kind$Name$from_bits$(_bs$13)); - var $1013 = $1017; + var $1022 = self.slice(0, -1); + var _bs$13 = $1022; + var $1023 = String$cons$(74, Kind$Name$from_bits$(_bs$13)); + var $1019 = $1023; break; case 'e': - var $1018 = String$nil; - var $1013 = $1018; + var $1024 = String$nil; + var $1019 = $1024; break; }; - var $1011 = $1013; + var $1017 = $1019; break; case 'i': - var $1019 = self.slice(0, -1); - var _bs$11 = $1019; + var $1025 = self.slice(0, -1); + var _bs$11 = $1025; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1021 = self.slice(0, -1); - var _bs$13 = $1021; - var $1022 = String$cons$(75, Kind$Name$from_bits$(_bs$13)); - var $1020 = $1022; + var $1027 = self.slice(0, -1); + var _bs$13 = $1027; + var $1028 = String$cons$(75, Kind$Name$from_bits$(_bs$13)); + var $1026 = $1028; break; case 'i': - var $1023 = self.slice(0, -1); - var _bs$13 = $1023; - var $1024 = String$cons$(76, Kind$Name$from_bits$(_bs$13)); - var $1020 = $1024; + var $1029 = self.slice(0, -1); + var _bs$13 = $1029; + var $1030 = String$cons$(76, Kind$Name$from_bits$(_bs$13)); + var $1026 = $1030; break; case 'e': - var $1025 = String$nil; - var $1020 = $1025; + var $1031 = String$nil; + var $1026 = $1031; break; }; - var $1011 = $1020; + var $1017 = $1026; break; case 'e': - var $1026 = String$nil; - var $1011 = $1026; + var $1032 = String$nil; + var $1017 = $1032; break; }; - var $1009 = $1011; + var $1015 = $1017; break; case 'i': - var $1027 = self.slice(0, -1); - var _bs$9 = $1027; + var $1033 = self.slice(0, -1); + var _bs$9 = $1033; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1029 = self.slice(0, -1); - var _bs$11 = $1029; + var $1035 = self.slice(0, -1); + var _bs$11 = $1035; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1031 = self.slice(0, -1); - var _bs$13 = $1031; - var $1032 = String$cons$(77, Kind$Name$from_bits$(_bs$13)); - var $1030 = $1032; + var $1037 = self.slice(0, -1); + var _bs$13 = $1037; + var $1038 = String$cons$(77, Kind$Name$from_bits$(_bs$13)); + var $1036 = $1038; break; case 'i': - var $1033 = self.slice(0, -1); - var _bs$13 = $1033; - var $1034 = String$cons$(78, Kind$Name$from_bits$(_bs$13)); - var $1030 = $1034; + var $1039 = self.slice(0, -1); + var _bs$13 = $1039; + var $1040 = String$cons$(78, Kind$Name$from_bits$(_bs$13)); + var $1036 = $1040; break; case 'e': - var $1035 = String$nil; - var $1030 = $1035; + var $1041 = String$nil; + var $1036 = $1041; break; }; - var $1028 = $1030; + var $1034 = $1036; break; case 'i': - var $1036 = self.slice(0, -1); - var _bs$11 = $1036; + var $1042 = self.slice(0, -1); + var _bs$11 = $1042; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1038 = self.slice(0, -1); - var _bs$13 = $1038; - var $1039 = String$cons$(79, Kind$Name$from_bits$(_bs$13)); - var $1037 = $1039; + var $1044 = self.slice(0, -1); + var _bs$13 = $1044; + var $1045 = String$cons$(79, Kind$Name$from_bits$(_bs$13)); + var $1043 = $1045; break; case 'i': - var $1040 = self.slice(0, -1); - var _bs$13 = $1040; - var $1041 = String$cons$(80, Kind$Name$from_bits$(_bs$13)); - var $1037 = $1041; + var $1046 = self.slice(0, -1); + var _bs$13 = $1046; + var $1047 = String$cons$(80, Kind$Name$from_bits$(_bs$13)); + var $1043 = $1047; break; case 'e': - var $1042 = String$nil; - var $1037 = $1042; + var $1048 = String$nil; + var $1043 = $1048; break; }; - var $1028 = $1037; + var $1034 = $1043; break; case 'e': - var $1043 = String$nil; - var $1028 = $1043; + var $1049 = String$nil; + var $1034 = $1049; break; }; - var $1009 = $1028; + var $1015 = $1034; break; case 'e': - var $1044 = String$nil; - var $1009 = $1044; + var $1050 = String$nil; + var $1015 = $1050; break; }; - var $970 = $1009; + var $976 = $1015; break; case 'e': - var $1045 = String$nil; - var $970 = $1045; + var $1051 = String$nil; + var $976 = $1051; break; }; - var $968 = $970; + var $974 = $976; break; case 'i': - var $1046 = self.slice(0, -1); - var _bs$5 = $1046; + var $1052 = self.slice(0, -1); + var _bs$5 = $1052; var self = _bs$5; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1048 = self.slice(0, -1); - var _bs$7 = $1048; + var $1054 = self.slice(0, -1); + var _bs$7 = $1054; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1050 = self.slice(0, -1); - var _bs$9 = $1050; + var $1056 = self.slice(0, -1); + var _bs$9 = $1056; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1052 = self.slice(0, -1); - var _bs$11 = $1052; + var $1058 = self.slice(0, -1); + var _bs$11 = $1058; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1054 = self.slice(0, -1); - var _bs$13 = $1054; - var $1055 = String$cons$(81, Kind$Name$from_bits$(_bs$13)); - var $1053 = $1055; + var $1060 = self.slice(0, -1); + var _bs$13 = $1060; + var $1061 = String$cons$(81, Kind$Name$from_bits$(_bs$13)); + var $1059 = $1061; break; case 'i': - var $1056 = self.slice(0, -1); - var _bs$13 = $1056; - var $1057 = String$cons$(82, Kind$Name$from_bits$(_bs$13)); - var $1053 = $1057; + var $1062 = self.slice(0, -1); + var _bs$13 = $1062; + var $1063 = String$cons$(82, Kind$Name$from_bits$(_bs$13)); + var $1059 = $1063; break; case 'e': - var $1058 = String$nil; - var $1053 = $1058; + var $1064 = String$nil; + var $1059 = $1064; break; }; - var $1051 = $1053; + var $1057 = $1059; break; case 'i': - var $1059 = self.slice(0, -1); - var _bs$11 = $1059; + var $1065 = self.slice(0, -1); + var _bs$11 = $1065; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1061 = self.slice(0, -1); - var _bs$13 = $1061; - var $1062 = String$cons$(83, Kind$Name$from_bits$(_bs$13)); - var $1060 = $1062; + var $1067 = self.slice(0, -1); + var _bs$13 = $1067; + var $1068 = String$cons$(83, Kind$Name$from_bits$(_bs$13)); + var $1066 = $1068; break; case 'i': - var $1063 = self.slice(0, -1); - var _bs$13 = $1063; - var $1064 = String$cons$(84, Kind$Name$from_bits$(_bs$13)); - var $1060 = $1064; + var $1069 = self.slice(0, -1); + var _bs$13 = $1069; + var $1070 = String$cons$(84, Kind$Name$from_bits$(_bs$13)); + var $1066 = $1070; break; case 'e': - var $1065 = String$nil; - var $1060 = $1065; + var $1071 = String$nil; + var $1066 = $1071; break; }; - var $1051 = $1060; + var $1057 = $1066; break; case 'e': - var $1066 = String$nil; - var $1051 = $1066; + var $1072 = String$nil; + var $1057 = $1072; break; }; - var $1049 = $1051; + var $1055 = $1057; break; case 'i': - var $1067 = self.slice(0, -1); - var _bs$9 = $1067; + var $1073 = self.slice(0, -1); + var _bs$9 = $1073; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1069 = self.slice(0, -1); - var _bs$11 = $1069; + var $1075 = self.slice(0, -1); + var _bs$11 = $1075; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1071 = self.slice(0, -1); - var _bs$13 = $1071; - var $1072 = String$cons$(85, Kind$Name$from_bits$(_bs$13)); - var $1070 = $1072; + var $1077 = self.slice(0, -1); + var _bs$13 = $1077; + var $1078 = String$cons$(85, Kind$Name$from_bits$(_bs$13)); + var $1076 = $1078; break; case 'i': - var $1073 = self.slice(0, -1); - var _bs$13 = $1073; - var $1074 = String$cons$(86, Kind$Name$from_bits$(_bs$13)); - var $1070 = $1074; + var $1079 = self.slice(0, -1); + var _bs$13 = $1079; + var $1080 = String$cons$(86, Kind$Name$from_bits$(_bs$13)); + var $1076 = $1080; break; case 'e': - var $1075 = String$nil; - var $1070 = $1075; + var $1081 = String$nil; + var $1076 = $1081; break; }; - var $1068 = $1070; + var $1074 = $1076; break; case 'i': - var $1076 = self.slice(0, -1); - var _bs$11 = $1076; + var $1082 = self.slice(0, -1); + var _bs$11 = $1082; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1078 = self.slice(0, -1); - var _bs$13 = $1078; - var $1079 = String$cons$(87, Kind$Name$from_bits$(_bs$13)); - var $1077 = $1079; + var $1084 = self.slice(0, -1); + var _bs$13 = $1084; + var $1085 = String$cons$(87, Kind$Name$from_bits$(_bs$13)); + var $1083 = $1085; break; case 'i': - var $1080 = self.slice(0, -1); - var _bs$13 = $1080; - var $1081 = String$cons$(88, Kind$Name$from_bits$(_bs$13)); - var $1077 = $1081; + var $1086 = self.slice(0, -1); + var _bs$13 = $1086; + var $1087 = String$cons$(88, Kind$Name$from_bits$(_bs$13)); + var $1083 = $1087; break; case 'e': - var $1082 = String$nil; - var $1077 = $1082; + var $1088 = String$nil; + var $1083 = $1088; break; }; - var $1068 = $1077; + var $1074 = $1083; break; case 'e': - var $1083 = String$nil; - var $1068 = $1083; + var $1089 = String$nil; + var $1074 = $1089; break; }; - var $1049 = $1068; + var $1055 = $1074; break; case 'e': - var $1084 = String$nil; - var $1049 = $1084; + var $1090 = String$nil; + var $1055 = $1090; break; }; - var $1047 = $1049; + var $1053 = $1055; break; case 'i': - var $1085 = self.slice(0, -1); - var _bs$7 = $1085; + var $1091 = self.slice(0, -1); + var _bs$7 = $1091; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1087 = self.slice(0, -1); - var _bs$9 = $1087; + var $1093 = self.slice(0, -1); + var _bs$9 = $1093; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1089 = self.slice(0, -1); - var _bs$11 = $1089; + var $1095 = self.slice(0, -1); + var _bs$11 = $1095; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1091 = self.slice(0, -1); - var _bs$13 = $1091; - var $1092 = String$cons$(89, Kind$Name$from_bits$(_bs$13)); - var $1090 = $1092; + var $1097 = self.slice(0, -1); + var _bs$13 = $1097; + var $1098 = String$cons$(89, Kind$Name$from_bits$(_bs$13)); + var $1096 = $1098; break; case 'i': - var $1093 = self.slice(0, -1); - var _bs$13 = $1093; - var $1094 = String$cons$(90, Kind$Name$from_bits$(_bs$13)); - var $1090 = $1094; + var $1099 = self.slice(0, -1); + var _bs$13 = $1099; + var $1100 = String$cons$(90, Kind$Name$from_bits$(_bs$13)); + var $1096 = $1100; break; case 'e': - var $1095 = String$nil; - var $1090 = $1095; + var $1101 = String$nil; + var $1096 = $1101; break; }; - var $1088 = $1090; + var $1094 = $1096; break; case 'i': - var $1096 = self.slice(0, -1); - var _bs$11 = $1096; + var $1102 = self.slice(0, -1); + var _bs$11 = $1102; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1098 = self.slice(0, -1); - var _bs$13 = $1098; - var $1099 = String$cons$(97, Kind$Name$from_bits$(_bs$13)); - var $1097 = $1099; + var $1104 = self.slice(0, -1); + var _bs$13 = $1104; + var $1105 = String$cons$(97, Kind$Name$from_bits$(_bs$13)); + var $1103 = $1105; break; case 'i': - var $1100 = self.slice(0, -1); - var _bs$13 = $1100; - var $1101 = String$cons$(98, Kind$Name$from_bits$(_bs$13)); - var $1097 = $1101; + var $1106 = self.slice(0, -1); + var _bs$13 = $1106; + var $1107 = String$cons$(98, Kind$Name$from_bits$(_bs$13)); + var $1103 = $1107; break; case 'e': - var $1102 = String$nil; - var $1097 = $1102; + var $1108 = String$nil; + var $1103 = $1108; break; }; - var $1088 = $1097; + var $1094 = $1103; break; case 'e': - var $1103 = String$nil; - var $1088 = $1103; + var $1109 = String$nil; + var $1094 = $1109; break; }; - var $1086 = $1088; + var $1092 = $1094; break; case 'i': - var $1104 = self.slice(0, -1); - var _bs$9 = $1104; + var $1110 = self.slice(0, -1); + var _bs$9 = $1110; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1106 = self.slice(0, -1); - var _bs$11 = $1106; + var $1112 = self.slice(0, -1); + var _bs$11 = $1112; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1108 = self.slice(0, -1); - var _bs$13 = $1108; - var $1109 = String$cons$(99, Kind$Name$from_bits$(_bs$13)); - var $1107 = $1109; + var $1114 = self.slice(0, -1); + var _bs$13 = $1114; + var $1115 = String$cons$(99, Kind$Name$from_bits$(_bs$13)); + var $1113 = $1115; break; case 'i': - var $1110 = self.slice(0, -1); - var _bs$13 = $1110; - var $1111 = String$cons$(100, Kind$Name$from_bits$(_bs$13)); - var $1107 = $1111; + var $1116 = self.slice(0, -1); + var _bs$13 = $1116; + var $1117 = String$cons$(100, Kind$Name$from_bits$(_bs$13)); + var $1113 = $1117; break; case 'e': - var $1112 = String$nil; - var $1107 = $1112; + var $1118 = String$nil; + var $1113 = $1118; break; }; - var $1105 = $1107; + var $1111 = $1113; break; case 'i': - var $1113 = self.slice(0, -1); - var _bs$11 = $1113; + var $1119 = self.slice(0, -1); + var _bs$11 = $1119; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1115 = self.slice(0, -1); - var _bs$13 = $1115; - var $1116 = String$cons$(101, Kind$Name$from_bits$(_bs$13)); - var $1114 = $1116; + var $1121 = self.slice(0, -1); + var _bs$13 = $1121; + var $1122 = String$cons$(101, Kind$Name$from_bits$(_bs$13)); + var $1120 = $1122; break; case 'i': - var $1117 = self.slice(0, -1); - var _bs$13 = $1117; - var $1118 = String$cons$(102, Kind$Name$from_bits$(_bs$13)); - var $1114 = $1118; + var $1123 = self.slice(0, -1); + var _bs$13 = $1123; + var $1124 = String$cons$(102, Kind$Name$from_bits$(_bs$13)); + var $1120 = $1124; break; case 'e': - var $1119 = String$nil; - var $1114 = $1119; + var $1125 = String$nil; + var $1120 = $1125; break; }; - var $1105 = $1114; + var $1111 = $1120; break; case 'e': - var $1120 = String$nil; - var $1105 = $1120; + var $1126 = String$nil; + var $1111 = $1126; break; }; - var $1086 = $1105; + var $1092 = $1111; break; case 'e': - var $1121 = String$nil; - var $1086 = $1121; + var $1127 = String$nil; + var $1092 = $1127; break; }; - var $1047 = $1086; + var $1053 = $1092; break; case 'e': - var $1122 = String$nil; - var $1047 = $1122; + var $1128 = String$nil; + var $1053 = $1128; break; }; - var $968 = $1047; + var $974 = $1053; break; case 'e': - var $1123 = String$nil; - var $968 = $1123; + var $1129 = String$nil; + var $974 = $1129; break; }; - var $966 = $968; + var $972 = $974; break; case 'i': - var $1124 = self.slice(0, -1); - var _bs$3 = $1124; + var $1130 = self.slice(0, -1); + var _bs$3 = $1130; var self = _bs$3; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1126 = self.slice(0, -1); - var _bs$5 = $1126; + var $1132 = self.slice(0, -1); + var _bs$5 = $1132; var self = _bs$5; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1128 = self.slice(0, -1); - var _bs$7 = $1128; + var $1134 = self.slice(0, -1); + var _bs$7 = $1134; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1130 = self.slice(0, -1); - var _bs$9 = $1130; + var $1136 = self.slice(0, -1); + var _bs$9 = $1136; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1132 = self.slice(0, -1); - var _bs$11 = $1132; + var $1138 = self.slice(0, -1); + var _bs$11 = $1138; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1134 = self.slice(0, -1); - var _bs$13 = $1134; - var $1135 = String$cons$(103, Kind$Name$from_bits$(_bs$13)); - var $1133 = $1135; + var $1140 = self.slice(0, -1); + var _bs$13 = $1140; + var $1141 = String$cons$(103, Kind$Name$from_bits$(_bs$13)); + var $1139 = $1141; break; case 'i': - var $1136 = self.slice(0, -1); - var _bs$13 = $1136; - var $1137 = String$cons$(104, Kind$Name$from_bits$(_bs$13)); - var $1133 = $1137; + var $1142 = self.slice(0, -1); + var _bs$13 = $1142; + var $1143 = String$cons$(104, Kind$Name$from_bits$(_bs$13)); + var $1139 = $1143; break; case 'e': - var $1138 = String$nil; - var $1133 = $1138; + var $1144 = String$nil; + var $1139 = $1144; break; }; - var $1131 = $1133; + var $1137 = $1139; break; case 'i': - var $1139 = self.slice(0, -1); - var _bs$11 = $1139; + var $1145 = self.slice(0, -1); + var _bs$11 = $1145; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1141 = self.slice(0, -1); - var _bs$13 = $1141; - var $1142 = String$cons$(105, Kind$Name$from_bits$(_bs$13)); - var $1140 = $1142; + var $1147 = self.slice(0, -1); + var _bs$13 = $1147; + var $1148 = String$cons$(105, Kind$Name$from_bits$(_bs$13)); + var $1146 = $1148; break; case 'i': - var $1143 = self.slice(0, -1); - var _bs$13 = $1143; - var $1144 = String$cons$(106, Kind$Name$from_bits$(_bs$13)); - var $1140 = $1144; + var $1149 = self.slice(0, -1); + var _bs$13 = $1149; + var $1150 = String$cons$(106, Kind$Name$from_bits$(_bs$13)); + var $1146 = $1150; break; case 'e': - var $1145 = String$nil; - var $1140 = $1145; + var $1151 = String$nil; + var $1146 = $1151; break; }; - var $1131 = $1140; + var $1137 = $1146; break; case 'e': - var $1146 = String$nil; - var $1131 = $1146; + var $1152 = String$nil; + var $1137 = $1152; break; }; - var $1129 = $1131; + var $1135 = $1137; break; case 'i': - var $1147 = self.slice(0, -1); - var _bs$9 = $1147; + var $1153 = self.slice(0, -1); + var _bs$9 = $1153; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1149 = self.slice(0, -1); - var _bs$11 = $1149; + var $1155 = self.slice(0, -1); + var _bs$11 = $1155; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1151 = self.slice(0, -1); - var _bs$13 = $1151; - var $1152 = String$cons$(107, Kind$Name$from_bits$(_bs$13)); - var $1150 = $1152; + var $1157 = self.slice(0, -1); + var _bs$13 = $1157; + var $1158 = String$cons$(107, Kind$Name$from_bits$(_bs$13)); + var $1156 = $1158; break; case 'i': - var $1153 = self.slice(0, -1); - var _bs$13 = $1153; - var $1154 = String$cons$(108, Kind$Name$from_bits$(_bs$13)); - var $1150 = $1154; + var $1159 = self.slice(0, -1); + var _bs$13 = $1159; + var $1160 = String$cons$(108, Kind$Name$from_bits$(_bs$13)); + var $1156 = $1160; break; case 'e': - var $1155 = String$nil; - var $1150 = $1155; + var $1161 = String$nil; + var $1156 = $1161; break; }; - var $1148 = $1150; + var $1154 = $1156; break; case 'i': - var $1156 = self.slice(0, -1); - var _bs$11 = $1156; + var $1162 = self.slice(0, -1); + var _bs$11 = $1162; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1158 = self.slice(0, -1); - var _bs$13 = $1158; - var $1159 = String$cons$(109, Kind$Name$from_bits$(_bs$13)); - var $1157 = $1159; + var $1164 = self.slice(0, -1); + var _bs$13 = $1164; + var $1165 = String$cons$(109, Kind$Name$from_bits$(_bs$13)); + var $1163 = $1165; break; case 'i': - var $1160 = self.slice(0, -1); - var _bs$13 = $1160; - var $1161 = String$cons$(110, Kind$Name$from_bits$(_bs$13)); - var $1157 = $1161; + var $1166 = self.slice(0, -1); + var _bs$13 = $1166; + var $1167 = String$cons$(110, Kind$Name$from_bits$(_bs$13)); + var $1163 = $1167; break; case 'e': - var $1162 = String$nil; - var $1157 = $1162; + var $1168 = String$nil; + var $1163 = $1168; break; }; - var $1148 = $1157; + var $1154 = $1163; break; case 'e': - var $1163 = String$nil; - var $1148 = $1163; + var $1169 = String$nil; + var $1154 = $1169; break; }; - var $1129 = $1148; + var $1135 = $1154; break; case 'e': - var $1164 = String$nil; - var $1129 = $1164; + var $1170 = String$nil; + var $1135 = $1170; break; }; - var $1127 = $1129; + var $1133 = $1135; break; case 'i': - var $1165 = self.slice(0, -1); - var _bs$7 = $1165; + var $1171 = self.slice(0, -1); + var _bs$7 = $1171; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1167 = self.slice(0, -1); - var _bs$9 = $1167; + var $1173 = self.slice(0, -1); + var _bs$9 = $1173; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1169 = self.slice(0, -1); - var _bs$11 = $1169; + var $1175 = self.slice(0, -1); + var _bs$11 = $1175; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1171 = self.slice(0, -1); - var _bs$13 = $1171; - var $1172 = String$cons$(111, Kind$Name$from_bits$(_bs$13)); - var $1170 = $1172; + var $1177 = self.slice(0, -1); + var _bs$13 = $1177; + var $1178 = String$cons$(111, Kind$Name$from_bits$(_bs$13)); + var $1176 = $1178; break; case 'i': - var $1173 = self.slice(0, -1); - var _bs$13 = $1173; - var $1174 = String$cons$(112, Kind$Name$from_bits$(_bs$13)); - var $1170 = $1174; + var $1179 = self.slice(0, -1); + var _bs$13 = $1179; + var $1180 = String$cons$(112, Kind$Name$from_bits$(_bs$13)); + var $1176 = $1180; break; case 'e': - var $1175 = String$nil; - var $1170 = $1175; + var $1181 = String$nil; + var $1176 = $1181; break; }; - var $1168 = $1170; + var $1174 = $1176; break; case 'i': - var $1176 = self.slice(0, -1); - var _bs$11 = $1176; + var $1182 = self.slice(0, -1); + var _bs$11 = $1182; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1178 = self.slice(0, -1); - var _bs$13 = $1178; - var $1179 = String$cons$(113, Kind$Name$from_bits$(_bs$13)); - var $1177 = $1179; + var $1184 = self.slice(0, -1); + var _bs$13 = $1184; + var $1185 = String$cons$(113, Kind$Name$from_bits$(_bs$13)); + var $1183 = $1185; break; case 'i': - var $1180 = self.slice(0, -1); - var _bs$13 = $1180; - var $1181 = String$cons$(114, Kind$Name$from_bits$(_bs$13)); - var $1177 = $1181; + var $1186 = self.slice(0, -1); + var _bs$13 = $1186; + var $1187 = String$cons$(114, Kind$Name$from_bits$(_bs$13)); + var $1183 = $1187; break; case 'e': - var $1182 = String$nil; - var $1177 = $1182; + var $1188 = String$nil; + var $1183 = $1188; break; }; - var $1168 = $1177; + var $1174 = $1183; break; case 'e': - var $1183 = String$nil; - var $1168 = $1183; + var $1189 = String$nil; + var $1174 = $1189; break; }; - var $1166 = $1168; + var $1172 = $1174; break; case 'i': - var $1184 = self.slice(0, -1); - var _bs$9 = $1184; + var $1190 = self.slice(0, -1); + var _bs$9 = $1190; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1186 = self.slice(0, -1); - var _bs$11 = $1186; + var $1192 = self.slice(0, -1); + var _bs$11 = $1192; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1188 = self.slice(0, -1); - var _bs$13 = $1188; - var $1189 = String$cons$(115, Kind$Name$from_bits$(_bs$13)); - var $1187 = $1189; + var $1194 = self.slice(0, -1); + var _bs$13 = $1194; + var $1195 = String$cons$(115, Kind$Name$from_bits$(_bs$13)); + var $1193 = $1195; break; case 'i': - var $1190 = self.slice(0, -1); - var _bs$13 = $1190; - var $1191 = String$cons$(116, Kind$Name$from_bits$(_bs$13)); - var $1187 = $1191; + var $1196 = self.slice(0, -1); + var _bs$13 = $1196; + var $1197 = String$cons$(116, Kind$Name$from_bits$(_bs$13)); + var $1193 = $1197; break; case 'e': - var $1192 = String$nil; - var $1187 = $1192; + var $1198 = String$nil; + var $1193 = $1198; break; }; - var $1185 = $1187; + var $1191 = $1193; break; case 'i': - var $1193 = self.slice(0, -1); - var _bs$11 = $1193; + var $1199 = self.slice(0, -1); + var _bs$11 = $1199; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1195 = self.slice(0, -1); - var _bs$13 = $1195; - var $1196 = String$cons$(117, Kind$Name$from_bits$(_bs$13)); - var $1194 = $1196; + var $1201 = self.slice(0, -1); + var _bs$13 = $1201; + var $1202 = String$cons$(117, Kind$Name$from_bits$(_bs$13)); + var $1200 = $1202; break; case 'i': - var $1197 = self.slice(0, -1); - var _bs$13 = $1197; - var $1198 = String$cons$(118, Kind$Name$from_bits$(_bs$13)); - var $1194 = $1198; + var $1203 = self.slice(0, -1); + var _bs$13 = $1203; + var $1204 = String$cons$(118, Kind$Name$from_bits$(_bs$13)); + var $1200 = $1204; break; case 'e': - var $1199 = String$nil; - var $1194 = $1199; + var $1205 = String$nil; + var $1200 = $1205; break; }; - var $1185 = $1194; + var $1191 = $1200; break; case 'e': - var $1200 = String$nil; - var $1185 = $1200; + var $1206 = String$nil; + var $1191 = $1206; break; }; - var $1166 = $1185; + var $1172 = $1191; break; case 'e': - var $1201 = String$nil; - var $1166 = $1201; + var $1207 = String$nil; + var $1172 = $1207; break; }; - var $1127 = $1166; + var $1133 = $1172; break; case 'e': - var $1202 = String$nil; - var $1127 = $1202; + var $1208 = String$nil; + var $1133 = $1208; break; }; - var $1125 = $1127; + var $1131 = $1133; break; case 'i': - var $1203 = self.slice(0, -1); - var _bs$5 = $1203; + var $1209 = self.slice(0, -1); + var _bs$5 = $1209; var self = _bs$5; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1205 = self.slice(0, -1); - var _bs$7 = $1205; + var $1211 = self.slice(0, -1); + var _bs$7 = $1211; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1207 = self.slice(0, -1); - var _bs$9 = $1207; + var $1213 = self.slice(0, -1); + var _bs$9 = $1213; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1209 = self.slice(0, -1); - var _bs$11 = $1209; + var $1215 = self.slice(0, -1); + var _bs$11 = $1215; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1211 = self.slice(0, -1); - var _bs$13 = $1211; - var $1212 = String$cons$(119, Kind$Name$from_bits$(_bs$13)); - var $1210 = $1212; + var $1217 = self.slice(0, -1); + var _bs$13 = $1217; + var $1218 = String$cons$(119, Kind$Name$from_bits$(_bs$13)); + var $1216 = $1218; break; case 'i': - var $1213 = self.slice(0, -1); - var _bs$13 = $1213; - var $1214 = String$cons$(120, Kind$Name$from_bits$(_bs$13)); - var $1210 = $1214; + var $1219 = self.slice(0, -1); + var _bs$13 = $1219; + var $1220 = String$cons$(120, Kind$Name$from_bits$(_bs$13)); + var $1216 = $1220; break; case 'e': - var $1215 = String$nil; - var $1210 = $1215; + var $1221 = String$nil; + var $1216 = $1221; break; }; - var $1208 = $1210; + var $1214 = $1216; break; case 'i': - var $1216 = self.slice(0, -1); - var _bs$11 = $1216; + var $1222 = self.slice(0, -1); + var _bs$11 = $1222; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1218 = self.slice(0, -1); - var _bs$13 = $1218; - var $1219 = String$cons$(121, Kind$Name$from_bits$(_bs$13)); - var $1217 = $1219; + var $1224 = self.slice(0, -1); + var _bs$13 = $1224; + var $1225 = String$cons$(121, Kind$Name$from_bits$(_bs$13)); + var $1223 = $1225; break; case 'i': - var $1220 = self.slice(0, -1); - var _bs$13 = $1220; - var $1221 = String$cons$(122, Kind$Name$from_bits$(_bs$13)); - var $1217 = $1221; + var $1226 = self.slice(0, -1); + var _bs$13 = $1226; + var $1227 = String$cons$(122, Kind$Name$from_bits$(_bs$13)); + var $1223 = $1227; break; case 'e': - var $1222 = String$nil; - var $1217 = $1222; + var $1228 = String$nil; + var $1223 = $1228; break; }; - var $1208 = $1217; + var $1214 = $1223; break; case 'e': - var $1223 = String$nil; - var $1208 = $1223; + var $1229 = String$nil; + var $1214 = $1229; break; }; - var $1206 = $1208; + var $1212 = $1214; break; case 'i': - var $1224 = self.slice(0, -1); - var _bs$9 = $1224; + var $1230 = self.slice(0, -1); + var _bs$9 = $1230; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1226 = self.slice(0, -1); - var _bs$11 = $1226; + var $1232 = self.slice(0, -1); + var _bs$11 = $1232; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1228 = self.slice(0, -1); - var _bs$13 = $1228; - var $1229 = String$cons$(48, Kind$Name$from_bits$(_bs$13)); - var $1227 = $1229; + var $1234 = self.slice(0, -1); + var _bs$13 = $1234; + var $1235 = String$cons$(48, Kind$Name$from_bits$(_bs$13)); + var $1233 = $1235; break; case 'i': - var $1230 = self.slice(0, -1); - var _bs$13 = $1230; - var $1231 = String$cons$(49, Kind$Name$from_bits$(_bs$13)); - var $1227 = $1231; + var $1236 = self.slice(0, -1); + var _bs$13 = $1236; + var $1237 = String$cons$(49, Kind$Name$from_bits$(_bs$13)); + var $1233 = $1237; break; case 'e': - var $1232 = String$nil; - var $1227 = $1232; + var $1238 = String$nil; + var $1233 = $1238; break; }; - var $1225 = $1227; + var $1231 = $1233; break; case 'i': - var $1233 = self.slice(0, -1); - var _bs$11 = $1233; + var $1239 = self.slice(0, -1); + var _bs$11 = $1239; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1235 = self.slice(0, -1); - var _bs$13 = $1235; - var $1236 = String$cons$(50, Kind$Name$from_bits$(_bs$13)); - var $1234 = $1236; + var $1241 = self.slice(0, -1); + var _bs$13 = $1241; + var $1242 = String$cons$(50, Kind$Name$from_bits$(_bs$13)); + var $1240 = $1242; break; case 'i': - var $1237 = self.slice(0, -1); - var _bs$13 = $1237; - var $1238 = String$cons$(51, Kind$Name$from_bits$(_bs$13)); - var $1234 = $1238; + var $1243 = self.slice(0, -1); + var _bs$13 = $1243; + var $1244 = String$cons$(51, Kind$Name$from_bits$(_bs$13)); + var $1240 = $1244; break; case 'e': - var $1239 = String$nil; - var $1234 = $1239; + var $1245 = String$nil; + var $1240 = $1245; break; }; - var $1225 = $1234; + var $1231 = $1240; break; case 'e': - var $1240 = String$nil; - var $1225 = $1240; + var $1246 = String$nil; + var $1231 = $1246; break; }; - var $1206 = $1225; + var $1212 = $1231; break; case 'e': - var $1241 = String$nil; - var $1206 = $1241; + var $1247 = String$nil; + var $1212 = $1247; break; }; - var $1204 = $1206; + var $1210 = $1212; break; case 'i': - var $1242 = self.slice(0, -1); - var _bs$7 = $1242; + var $1248 = self.slice(0, -1); + var _bs$7 = $1248; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1244 = self.slice(0, -1); - var _bs$9 = $1244; + var $1250 = self.slice(0, -1); + var _bs$9 = $1250; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1246 = self.slice(0, -1); - var _bs$11 = $1246; + var $1252 = self.slice(0, -1); + var _bs$11 = $1252; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1248 = self.slice(0, -1); - var _bs$13 = $1248; - var $1249 = String$cons$(52, Kind$Name$from_bits$(_bs$13)); - var $1247 = $1249; + var $1254 = self.slice(0, -1); + var _bs$13 = $1254; + var $1255 = String$cons$(52, Kind$Name$from_bits$(_bs$13)); + var $1253 = $1255; break; case 'i': - var $1250 = self.slice(0, -1); - var _bs$13 = $1250; - var $1251 = String$cons$(53, Kind$Name$from_bits$(_bs$13)); - var $1247 = $1251; + var $1256 = self.slice(0, -1); + var _bs$13 = $1256; + var $1257 = String$cons$(53, Kind$Name$from_bits$(_bs$13)); + var $1253 = $1257; break; case 'e': - var $1252 = String$nil; - var $1247 = $1252; + var $1258 = String$nil; + var $1253 = $1258; break; }; - var $1245 = $1247; + var $1251 = $1253; break; case 'i': - var $1253 = self.slice(0, -1); - var _bs$11 = $1253; + var $1259 = self.slice(0, -1); + var _bs$11 = $1259; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1255 = self.slice(0, -1); - var _bs$13 = $1255; - var $1256 = String$cons$(54, Kind$Name$from_bits$(_bs$13)); - var $1254 = $1256; + var $1261 = self.slice(0, -1); + var _bs$13 = $1261; + var $1262 = String$cons$(54, Kind$Name$from_bits$(_bs$13)); + var $1260 = $1262; break; case 'i': - var $1257 = self.slice(0, -1); - var _bs$13 = $1257; - var $1258 = String$cons$(55, Kind$Name$from_bits$(_bs$13)); - var $1254 = $1258; + var $1263 = self.slice(0, -1); + var _bs$13 = $1263; + var $1264 = String$cons$(55, Kind$Name$from_bits$(_bs$13)); + var $1260 = $1264; break; case 'e': - var $1259 = String$nil; - var $1254 = $1259; + var $1265 = String$nil; + var $1260 = $1265; break; }; - var $1245 = $1254; + var $1251 = $1260; break; case 'e': - var $1260 = String$nil; - var $1245 = $1260; + var $1266 = String$nil; + var $1251 = $1266; break; }; - var $1243 = $1245; + var $1249 = $1251; break; case 'i': - var $1261 = self.slice(0, -1); - var _bs$9 = $1261; + var $1267 = self.slice(0, -1); + var _bs$9 = $1267; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1263 = self.slice(0, -1); - var _bs$11 = $1263; + var $1269 = self.slice(0, -1); + var _bs$11 = $1269; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1265 = self.slice(0, -1); - var _bs$13 = $1265; - var $1266 = String$cons$(56, Kind$Name$from_bits$(_bs$13)); - var $1264 = $1266; + var $1271 = self.slice(0, -1); + var _bs$13 = $1271; + var $1272 = String$cons$(56, Kind$Name$from_bits$(_bs$13)); + var $1270 = $1272; break; case 'i': - var $1267 = self.slice(0, -1); - var _bs$13 = $1267; - var $1268 = String$cons$(57, Kind$Name$from_bits$(_bs$13)); - var $1264 = $1268; + var $1273 = self.slice(0, -1); + var _bs$13 = $1273; + var $1274 = String$cons$(57, Kind$Name$from_bits$(_bs$13)); + var $1270 = $1274; break; case 'e': - var $1269 = String$nil; - var $1264 = $1269; + var $1275 = String$nil; + var $1270 = $1275; break; }; - var $1262 = $1264; + var $1268 = $1270; break; case 'i': - var $1270 = self.slice(0, -1); - var _bs$11 = $1270; + var $1276 = self.slice(0, -1); + var _bs$11 = $1276; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1272 = self.slice(0, -1); - var _bs$13 = $1272; - var $1273 = String$cons$(46, Kind$Name$from_bits$(_bs$13)); - var $1271 = $1273; + var $1278 = self.slice(0, -1); + var _bs$13 = $1278; + var $1279 = String$cons$(46, Kind$Name$from_bits$(_bs$13)); + var $1277 = $1279; break; case 'i': - var $1274 = self.slice(0, -1); - var _bs$13 = $1274; - var $1275 = String$cons$(95, Kind$Name$from_bits$(_bs$13)); - var $1271 = $1275; + var $1280 = self.slice(0, -1); + var _bs$13 = $1280; + var $1281 = String$cons$(95, Kind$Name$from_bits$(_bs$13)); + var $1277 = $1281; break; case 'e': - var $1276 = String$nil; - var $1271 = $1276; + var $1282 = String$nil; + var $1277 = $1282; break; }; - var $1262 = $1271; + var $1268 = $1277; break; case 'e': - var $1277 = String$nil; - var $1262 = $1277; + var $1283 = String$nil; + var $1268 = $1283; break; }; - var $1243 = $1262; + var $1249 = $1268; break; case 'e': - var $1278 = String$nil; - var $1243 = $1278; + var $1284 = String$nil; + var $1249 = $1284; break; }; - var $1204 = $1243; + var $1210 = $1249; break; case 'e': - var $1279 = String$nil; - var $1204 = $1279; + var $1285 = String$nil; + var $1210 = $1285; break; }; - var $1125 = $1204; + var $1131 = $1210; break; case 'e': - var $1280 = String$nil; - var $1125 = $1280; + var $1286 = String$nil; + var $1131 = $1286; break; }; - var $966 = $1125; + var $972 = $1131; break; case 'e': - var $1281 = String$nil; - var $966 = $1281; + var $1287 = String$nil; + var $972 = $1287; break; }; - return $966; + return $972; }; const Kind$Name$from_bits = x0 => Kind$Name$from_bits$(x0); function Kind$Map$to_list$(_xs$2) { var _kvs$3 = List$reverse$(BitsMap$to_list$go$(_xs$2, Bits$e, List$nil)); - var $1282 = List$mapped$(_kvs$3, (_kv$4 => { + var $1288 = List$mapped$(_kvs$3, (_kv$4 => { var self = _kv$4; switch (self._) { case 'Pair.new': - var $1284 = self.fst; - var $1285 = self.snd; - var $1286 = Pair$new$(Kind$Name$from_bits$($1284), $1285); - var $1283 = $1286; + var $1290 = self.fst; + var $1291 = self.snd; + var $1292 = Pair$new$(Kind$Name$from_bits$($1290), $1291); + var $1289 = $1292; break; }; - return $1283; + return $1289; })); - return $1282; + return $1288; }; const Kind$Map$to_list = x0 => Kind$Map$to_list$(x0); function Kind$Map$keys$(_xs$2) { - var $1287 = List$mapped$(Kind$Map$to_list$(_xs$2), Pair$fst); - return $1287; + var $1293 = List$mapped$(Kind$Map$to_list$(_xs$2), Pair$fst); + return $1293; }; const Kind$Map$keys = x0 => Kind$Map$keys$(x0); @@ -5416,121 +5435,121 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.cons': - var $1289 = self.head; - var $1290 = self.tail; - var self = Kind$Synth$load$cached$is_loop$($1289, _defs$2); + var $1295 = self.head; + var $1296 = self.tail; + var self = Kind$Synth$load$cached$is_loop$($1295, _defs$2); if (self) { - var $1292 = Kind$Synth$load$cached$($1290, _defs$2); - var $1291 = $1292; + var $1298 = Kind$Synth$load$cached$($1296, _defs$2); + var $1297 = $1298; } else { - var _name$5 = $1289; - var $1293 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $1294 = _m$bind$6; - return $1294; + var _name$5 = $1295; + var $1299 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $1300 = _m$bind$6; + return $1300; }))(Kind$Synth$load$cached$def$(_name$5))((_defn$6 => { var self = _defn$6; switch (self._) { case 'Maybe.some': - var $1296 = self.value; - var self = $1296; + var $1302 = self.value; + var self = $1302; switch (self._) { case 'Kind.Def.new': - var $1298 = self.term; - var $1299 = self.type; - var _defs$17 = Kind$Map$set$(_name$5, $1296, _defs$2); + var $1304 = self.term; + var $1305 = self.type; + var _defs$17 = Kind$Map$set$(_name$5, $1302, _defs$2); var _deps$18 = Kind$Map$new; - var _deps$19 = Kind$Core$dependencies$go$($1298, _deps$18); - var _deps$20 = Kind$Core$dependencies$go$($1299, _deps$19); + var _deps$19 = Kind$Core$dependencies$go$($1304, _deps$18); + var _deps$20 = Kind$Core$dependencies$go$($1305, _deps$19); var _deps$21 = Kind$Map$keys$(_deps$20); - var $1300 = IO$monad$((_m$bind$22 => _m$pure$23 => { - var $1301 = _m$bind$22; - return $1301; + var $1306 = IO$monad$((_m$bind$22 => _m$pure$23 => { + var $1307 = _m$bind$22; + return $1307; }))(Kind$Synth$load$cached$(_deps$21, _defs$17))((_defs$22 => { var self = _defs$22; switch (self._) { case 'Maybe.some': - var $1303 = self.value; - var $1304 = Kind$Synth$load$cached$($1290, $1303); - var $1302 = $1304; + var $1309 = self.value; + var $1310 = Kind$Synth$load$cached$($1296, $1309); + var $1308 = $1310; break; case 'Maybe.none': - var $1305 = IO$monad$((_m$bind$23 => _m$pure$24 => { - var $1306 = _m$pure$24; - return $1306; + var $1311 = IO$monad$((_m$bind$23 => _m$pure$24 => { + var $1312 = _m$pure$24; + return $1312; }))(Maybe$none); - var $1302 = $1305; + var $1308 = $1311; break; }; - return $1302; + return $1308; })); - var $1297 = $1300; + var $1303 = $1306; break; }; - var $1295 = $1297; + var $1301 = $1303; break; case 'Maybe.none': - var $1307 = IO$monad$((_m$bind$7 => _m$pure$8 => { - var $1308 = _m$pure$8; - return $1308; + var $1313 = IO$monad$((_m$bind$7 => _m$pure$8 => { + var $1314 = _m$pure$8; + return $1314; }))(Maybe$none); - var $1295 = $1307; + var $1301 = $1313; break; }; - return $1295; + return $1301; })); - var $1291 = $1293; + var $1297 = $1299; }; - var $1288 = $1291; + var $1294 = $1297; break; case 'List.nil': - var $1309 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $1310 = _m$pure$4; - return $1310; + var $1315 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $1316 = _m$pure$4; + return $1316; }))(Maybe$some$(_defs$2)); - var $1288 = $1309; + var $1294 = $1315; break; }; - return $1288; + return $1294; }; const Kind$Synth$load$cached = x0 => x1 => Kind$Synth$load$cached$(x0, x1); function IO$request$(_url$1) { - var $1311 = IO$ask$("request", _url$1, (_text$2 => { - var $1312 = IO$end$(_text$2); - return $1312; + var $1317 = IO$ask$("request", _url$1, (_text$2 => { + var $1318 = IO$end$(_text$2); + return $1318; })); - return $1311; + return $1317; }; const IO$request = x0 => IO$request$(x0); function Kind$Synth$get_kind_code$(_file$1) { - var $1313 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $1314 = _m$bind$2; - return $1314; + var $1319 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $1320 = _m$bind$2; + return $1320; }))(IO$get_file$(_file$1))((_code$2 => { var self = (_code$2 === ""); if (self) { - var $1316 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $1317 = _m$bind$3; - return $1317; + var $1322 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $1323 = _m$bind$3; + return $1323; }))(IO$request$(("http://uwu.tech:7172/" + _file$1)))((_code$3 => { - var $1318 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $1319 = _m$pure$5; - return $1319; + var $1324 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $1325 = _m$pure$5; + return $1325; }))(_code$3); - return $1318; + return $1324; })); - var $1315 = $1316; + var $1321 = $1322; } else { - var $1320 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $1321 = _m$pure$4; - return $1321; + var $1326 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $1327 = _m$pure$4; + return $1327; }))(_code$2); - var $1315 = $1320; + var $1321 = $1326; }; - return $1315; + return $1321; })); - return $1313; + return $1319; }; const Kind$Synth$get_kind_code = x0 => Kind$Synth$get_kind_code$(x0); @@ -5538,27 +5557,27 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1323 = self.str; - var self = $1323; + var $1329 = self.str; + var self = $1329; if (self.length === 0) { - var $1325 = Parser$Reply$value$(_pst$1, Bool$true); - var $1324 = $1325; + var $1331 = Parser$Reply$value$(_pst$1, Bool$true); + var $1330 = $1331; } else { - var $1326 = self.charCodeAt(0); - var $1327 = self.slice(1); - var $1328 = Parser$Reply$value$(_pst$1, Bool$false); - var $1324 = $1328; + var $1332 = self.charCodeAt(0); + var $1333 = self.slice(1); + var $1334 = Parser$Reply$value$(_pst$1, Bool$false); + var $1330 = $1334; }; - var $1322 = $1324; + var $1328 = $1330; break; }; - return $1322; + return $1328; }; const Parser$is_eof = x0 => Parser$is_eof$(x0); function Parser$(_V$1) { - var $1329 = null; - return $1329; + var $1335 = null; + return $1335; }; const Parser = x0 => Parser$(x0); @@ -5575,53 +5594,53 @@ module.exports = (function() { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $1330 = self.err; - var $1331 = self.nam; - var $1332 = self.ini; - var $1333 = self.idx; - var $1334 = self.str; + var $1336 = self.err; + var $1337 = self.nam; + var $1338 = self.ini; + var $1339 = self.idx; + var $1340 = self.str; var self = _pars$2; switch (self._) { case 'List.cons': - var $1336 = self.head; - var $1337 = self.tail; - var _parsed$11 = $1336(_pst$3); + var $1342 = self.head; + var $1343 = self.tail; + var _parsed$11 = $1342(_pst$3); var self = _parsed$11; switch (self._) { case 'Parser.Reply.error': - var $1339 = self.err; - var _cur_err$13 = Maybe$some$($1339); - var _far_err$14 = Parser$Error$maybe_combine$($1330, _cur_err$13); - var _new_pst$15 = Parser$State$new$(_far_err$14, $1331, $1332, $1333, $1334); - var $1340 = Parser$choice$($1337, _new_pst$15); - var $1338 = $1340; - break; - case 'Parser.Reply.value': - var $1341 = self.pst; - var $1342 = self.val; - var $1343 = Parser$Reply$value$($1341, $1342); - var $1338 = $1343; - break; - }; - var $1335 = $1338; - break; - case 'List.nil': - var self = $1330; - switch (self._) { - case 'Maybe.some': - var $1345 = self.value; - var $1346 = Parser$Reply$error$($1345); + var $1345 = self.err; + var _cur_err$13 = Maybe$some$($1345); + var _far_err$14 = Parser$Error$maybe_combine$($1336, _cur_err$13); + var _new_pst$15 = Parser$State$new$(_far_err$14, $1337, $1338, $1339, $1340); + var $1346 = Parser$choice$($1343, _new_pst$15); var $1344 = $1346; break; - case 'Maybe.none': - var $1347 = Parser$Reply$fail$($1331, $1332, $1333, "No parse."); - var $1344 = $1347; + case 'Parser.Reply.value': + var $1347 = self.pst; + var $1348 = self.val; + var $1349 = Parser$Reply$value$($1347, $1348); + var $1344 = $1349; break; }; - var $1335 = $1344; + var $1341 = $1344; + break; + case 'List.nil': + var self = $1336; + switch (self._) { + case 'Maybe.some': + var $1351 = self.value; + var $1352 = Parser$Reply$error$($1351); + var $1350 = $1352; + break; + case 'Maybe.none': + var $1353 = Parser$Reply$fail$($1337, $1338, $1339, "No parse."); + var $1350 = $1353; + break; + }; + var $1341 = $1350; break; }; - return $1335; + return $1341; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -5643,42 +5662,42 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $1348 = self.err; - var $1349 = self.nam; - var $1350 = self.ini; - var $1351 = self.idx; - var $1352 = self.str; + var $1354 = self.err; + var $1355 = self.nam; + var $1356 = self.ini; + var $1357 = self.idx; + var $1358 = self.str; var self = _text$3; if (self.length === 0) { - var $1354 = Parser$Reply$value$(_pst$4, Unit$new); - var $1353 = $1354; + var $1360 = Parser$Reply$value$(_pst$4, Unit$new); + var $1359 = $1360; } else { - var $1355 = self.charCodeAt(0); - var $1356 = self.slice(1); - var self = $1352; + var $1361 = self.charCodeAt(0); + var $1362 = self.slice(1); + var self = $1358; if (self.length === 0) { var _error_msg$12 = ("Expected \'" + (_ini_txt$2 + "\', found end of file.")); - var $1358 = Parser$Reply$fail$($1349, $1350, _ini_idx$1, _error_msg$12); - var $1357 = $1358; + var $1364 = Parser$Reply$fail$($1355, $1356, _ini_idx$1, _error_msg$12); + var $1363 = $1364; } else { - var $1359 = self.charCodeAt(0); - var $1360 = self.slice(1); - var self = ($1355 === $1359); + var $1365 = self.charCodeAt(0); + var $1366 = self.slice(1); + var self = ($1361 === $1365); if (self) { - var _pst$14 = Parser$State$new$($1348, $1349, $1350, Nat$succ$($1351), $1360); - var $1362 = Parser$text$go$(_ini_idx$1, _ini_txt$2, $1356, _pst$14); - var $1361 = $1362; + var _pst$14 = Parser$State$new$($1354, $1355, $1356, Nat$succ$($1357), $1366); + var $1368 = Parser$text$go$(_ini_idx$1, _ini_txt$2, $1362, _pst$14); + var $1367 = $1368; } else { - var _chr$14 = String$cons$($1359, String$nil); + var _chr$14 = String$cons$($1365, String$nil); var _err$15 = ("Expected \'" + (_ini_txt$2 + ("\', found \'" + (_chr$14 + "\'.")))); - var $1363 = Parser$Reply$fail$($1349, $1350, _ini_idx$1, _err$15); - var $1361 = $1363; + var $1369 = Parser$Reply$fail$($1355, $1356, _ini_idx$1, _err$15); + var $1367 = $1369; }; - var $1357 = $1361; + var $1363 = $1367; }; - var $1353 = $1357; + var $1359 = $1363; }; - return $1353; + return $1359; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -5691,25 +5710,25 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $1365 = self.idx; - var self = Parser$text$go$($1365, _text$1, _text$1, _pst$2); + var $1371 = self.idx; + var self = Parser$text$go$($1371, _text$1, _text$1, _pst$2); switch (self._) { case 'Parser.Reply.error': - var $1367 = self.err; - var $1368 = Parser$Reply$error$($1367); - var $1366 = $1368; + var $1373 = self.err; + var $1374 = Parser$Reply$error$($1373); + var $1372 = $1374; break; case 'Parser.Reply.value': - var $1369 = self.pst; - var $1370 = self.val; - var $1371 = Parser$Reply$value$($1369, $1370); - var $1366 = $1371; + var $1375 = self.pst; + var $1376 = self.val; + var $1377 = Parser$Reply$value$($1375, $1376); + var $1372 = $1377; break; }; - var $1364 = $1366; + var $1370 = $1372; break; }; - return $1364; + return $1370; }; const Parser$text = x0 => x1 => Parser$text$(x0, x1); @@ -5717,24 +5736,24 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1373 = self.nam; - var $1374 = self.ini; - var $1375 = self.idx; - var $1376 = self.str; - var self = $1376; + var $1379 = self.nam; + var $1380 = self.ini; + var $1381 = self.idx; + var $1382 = self.str; + var self = $1382; if (self.length === 0) { - var $1378 = Parser$Reply$value$(_pst$1, Unit$new); - var $1377 = $1378; + var $1384 = Parser$Reply$value$(_pst$1, Unit$new); + var $1383 = $1384; } else { - var $1379 = self.charCodeAt(0); - var $1380 = self.slice(1); - var $1381 = Parser$Reply$fail$($1373, $1374, $1375, "Expected end-of-file."); - var $1377 = $1381; + var $1385 = self.charCodeAt(0); + var $1386 = self.slice(1); + var $1387 = Parser$Reply$fail$($1379, $1380, $1381, "Expected end-of-file."); + var $1383 = $1387; }; - var $1372 = $1377; + var $1378 = $1383; break; }; - return $1372; + return $1378; }; const Parser$eof = x0 => Parser$eof$(x0); @@ -5752,31 +5771,31 @@ module.exports = (function() { var self = _until_reply$6; switch (self._) { case 'Parser.Reply.error': - var $1383 = self.err; + var $1389 = self.err; var _reply$8 = _parse$3(_pst$5); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $1385 = self.err; - var $1386 = Parser$Reply$error$(Parser$Error$combine$($1385, $1383)); - var $1384 = $1386; + var $1391 = self.err; + var $1392 = Parser$Reply$error$(Parser$Error$combine$($1391, $1389)); + var $1390 = $1392; break; case 'Parser.Reply.value': - var $1387 = self.pst; - var $1388 = self.val; - var $1389 = Parser$until$go$(_until$2, _parse$3, List$cons$($1388, _values$4), $1387); - var $1384 = $1389; + var $1393 = self.pst; + var $1394 = self.val; + var $1395 = Parser$until$go$(_until$2, _parse$3, List$cons$($1394, _values$4), $1393); + var $1390 = $1395; break; }; - var $1382 = $1384; + var $1388 = $1390; break; case 'Parser.Reply.value': - var $1390 = self.pst; - var $1391 = Parser$Reply$value$($1390, List$reverse$(_values$4)); - var $1382 = $1391; + var $1396 = self.pst; + var $1397 = Parser$Reply$value$($1396, List$reverse$(_values$4)); + var $1388 = $1397; break; }; - return $1382; + return $1388; })(); if (R.ctr === 'TCO') arg = R.arg; else return R; @@ -5785,8 +5804,8 @@ module.exports = (function() { const Parser$until$go = x0 => x1 => x2 => x3 => Parser$until$go$(x0, x1, x2, x3); function Parser$until$(_until$2, _parse$3) { - var $1392 = Parser$until$go(_until$2)(_parse$3)(List$nil); - return $1392; + var $1398 = Parser$until$go(_until$2)(_parse$3)(List$nil); + return $1398; }; const Parser$until = x0 => x1 => Parser$until$(x0, x1); @@ -5794,26 +5813,26 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1394 = self.err; - var $1395 = self.nam; - var $1396 = self.ini; - var $1397 = self.idx; - var $1398 = self.str; - var self = $1398; + var $1400 = self.err; + var $1401 = self.nam; + var $1402 = self.ini; + var $1403 = self.idx; + var $1404 = self.str; + var self = $1404; if (self.length === 0) { - var $1400 = Parser$Reply$fail$($1395, $1396, $1397, "Unexpected end of file."); - var $1399 = $1400; + var $1406 = Parser$Reply$fail$($1401, $1402, $1403, "Unexpected end of file."); + var $1405 = $1406; } else { - var $1401 = self.charCodeAt(0); - var $1402 = self.slice(1); - var _pst$9 = Parser$State$new$($1394, $1395, $1396, Nat$succ$($1397), $1402); - var $1403 = Parser$Reply$value$(_pst$9, $1401); - var $1399 = $1403; + var $1407 = self.charCodeAt(0); + var $1408 = self.slice(1); + var _pst$9 = Parser$State$new$($1400, $1401, $1402, Nat$succ$($1403), $1408); + var $1409 = Parser$Reply$value$(_pst$9, $1407); + var $1405 = $1409; }; - var $1393 = $1399; + var $1399 = $1405; break; }; - return $1393; + return $1399; }; const Parser$one = x0 => Parser$one$(x0); @@ -5821,92 +5840,104 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1405 = self.err; + var $1411 = self.err; var _reply$7 = Parser$text$("//", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1407 = self.err; - var self = $1405; + var $1413 = self.err; + var self = $1411; switch (self._) { case 'Maybe.some': - var $1409 = self.value; - var $1410 = Parser$Reply$error$(Parser$Error$combine$($1409, $1407)); - var $1408 = $1410; + var $1415 = self.value; + var $1416 = Parser$Reply$error$(Parser$Error$combine$($1415, $1413)); + var $1414 = $1416; break; case 'Maybe.none': - var $1411 = Parser$Reply$error$($1407); - var $1408 = $1411; + var $1417 = Parser$Reply$error$($1413); + var $1414 = $1417; break; }; - var $1406 = $1408; + var $1412 = $1414; break; case 'Parser.Reply.value': - var $1412 = self.pst; - var self = $1412; + var $1418 = self.pst; + var self = $1418; switch (self._) { case 'Parser.State.new': - var $1414 = self.err; - var $1415 = self.nam; - var $1416 = self.ini; - var $1417 = self.idx; - var $1418 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1405, $1414), $1415, $1416, $1417, $1418); - var _end$16 = Parser$choice(List$cons$(Parser$text("\u{a}"), List$cons$(Parser$eof, List$nil))); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $1420 = self.err; - var _reply$22 = Parser$until$(_end$16, Parser$one)(_reply$pst$15); - var self = _reply$22; + var $1420 = self.err; + var $1421 = self.nam; + var $1422 = self.ini; + var $1423 = self.idx; + var $1424 = self.str; + var $1425 = ((console.log(("FALTANDO " + $1424)), (_$15 => { + var $1426 = ((console.log(("VALUE " + $1421)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1411, $1420), $1421, $1422, $1423, $1424); + var _end$18 = Parser$choice(List$cons$(Parser$text("\u{a}"), List$cons$(Parser$eof, List$nil))); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $1422 = self.err; - var self = $1420; + case 'Parser.State.new': + var $1428 = self.err; + var _reply$24 = Parser$until$(_end$18, Parser$one)(_reply$pst$17); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $1424 = self.value; - var $1425 = Parser$Reply$error$(Parser$Error$combine$($1424, $1422)); - var $1423 = $1425; + case 'Parser.Reply.error': + var $1430 = self.err; + var self = $1428; + switch (self._) { + case 'Maybe.some': + var $1432 = self.value; + var $1433 = Parser$Reply$error$(Parser$Error$combine$($1432, $1430)); + var $1431 = $1433; + break; + case 'Maybe.none': + var $1434 = Parser$Reply$error$($1430); + var $1431 = $1434; + break; + }; + var $1429 = $1431; break; - case 'Maybe.none': - var $1426 = Parser$Reply$error$($1422); - var $1423 = $1426; + case 'Parser.Reply.value': + var $1435 = self.pst; + var self = $1435; + switch (self._) { + case 'Parser.State.new': + var $1437 = self.err; + var $1438 = self.nam; + var $1439 = self.ini; + var $1440 = self.idx; + var $1441 = self.str; + var $1442 = ((console.log(("FALTANDO " + $1441)), (_$32 => { + var $1443 = ((console.log(("VALUE " + $1438)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($1428, $1437), $1438, $1439, $1440, $1441); + var $1444 = Parser$Reply$value$(_reply$pst$34, Unit$new); + return $1444; + })())); + return $1443; + })())); + var $1436 = $1442; + break; + }; + var $1429 = $1436; break; }; - var $1421 = $1423; - break; - case 'Parser.Reply.value': - var $1427 = self.pst; - var self = $1427; - switch (self._) { - case 'Parser.State.new': - var $1429 = self.err; - var $1430 = self.nam; - var $1431 = self.ini; - var $1432 = self.idx; - var $1433 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($1420, $1429), $1430, $1431, $1432, $1433); - var $1434 = Parser$Reply$value$(_reply$pst$30, Unit$new); - var $1428 = $1434; - break; - }; - var $1421 = $1428; + var $1427 = $1429; break; }; - var $1419 = $1421; - break; - }; - var $1413 = $1419; + return $1427; + })())); + return $1426; + })())); + var $1419 = $1425; break; }; - var $1406 = $1413; + var $1412 = $1419; break; }; - var $1404 = $1406; + var $1410 = $1412; break; }; - return $1404; + return $1410; }; const Kind$Parser$comment = x0 => Kind$Parser$comment$(x0); const Kind$Parser$spaces = Parser$many$(Parser$choice(List$cons$(Parser$text(" "), List$cons$(Parser$text("\u{9}"), List$cons$(Parser$text("\u{d}"), List$cons$(Parser$text("\u{a}"), List$cons$(Kind$Parser$comment, List$nil))))))); @@ -5915,66 +5946,66 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1436 = self.idx; - var $1437 = Parser$Reply$value$(_pst$1, $1436); - var $1435 = $1437; + var $1446 = self.idx; + var $1447 = Parser$Reply$value$(_pst$1, $1446); + var $1445 = $1447; break; }; - return $1435; + return $1445; }; const Parser$get_idx = x0 => Parser$get_idx$(x0); function U16$btw$(_a$1, _b$2, _c$3) { - var $1438 = ((_a$1 <= _b$2) && (_b$2 <= _c$3)); - return $1438; + var $1448 = ((_a$1 <= _b$2) && (_b$2 <= _c$3)); + return $1448; }; const U16$btw = x0 => x1 => x2 => U16$btw$(x0, x1, x2); function Kind$Name$is_letter$(_chr$1) { var self = U16$btw$(65, _chr$1, 90); if (self) { - var $1440 = Bool$true; - var $1439 = $1440; + var $1450 = Bool$true; + var $1449 = $1450; } else { var self = U16$btw$(97, _chr$1, 122); if (self) { - var $1442 = Bool$true; - var $1441 = $1442; + var $1452 = Bool$true; + var $1451 = $1452; } else { var self = U16$btw$(48, _chr$1, 57); if (self) { - var $1444 = Bool$true; - var $1443 = $1444; + var $1454 = Bool$true; + var $1453 = $1454; } else { var self = (46 === _chr$1); if (self) { - var $1446 = Bool$true; - var $1445 = $1446; + var $1456 = Bool$true; + var $1455 = $1456; } else { var self = (95 === _chr$1); if (self) { - var $1448 = Bool$true; - var $1447 = $1448; + var $1458 = Bool$true; + var $1457 = $1458; } else { var self = (94 === _chr$1); if (self) { - var $1450 = Bool$true; - var $1449 = $1450; + var $1460 = Bool$true; + var $1459 = $1460; } else { - var $1451 = Bool$false; - var $1449 = $1451; + var $1461 = Bool$false; + var $1459 = $1461; }; - var $1447 = $1449; + var $1457 = $1459; }; - var $1445 = $1447; + var $1455 = $1457; }; - var $1443 = $1445; + var $1453 = $1455; }; - var $1441 = $1443; + var $1451 = $1453; }; - var $1439 = $1441; + var $1449 = $1451; }; - return $1439; + return $1449; }; const Kind$Name$is_letter = x0 => Kind$Name$is_letter$(x0); @@ -5982,33 +6013,33 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1453 = self.err; - var $1454 = self.nam; - var $1455 = self.ini; - var $1456 = self.idx; - var $1457 = self.str; - var self = $1457; + var $1463 = self.err; + var $1464 = self.nam; + var $1465 = self.ini; + var $1466 = self.idx; + var $1467 = self.str; + var self = $1467; if (self.length === 0) { - var $1459 = Parser$Reply$fail$($1454, $1455, $1456, "Unexpected eof."); - var $1458 = $1459; + var $1469 = Parser$Reply$fail$($1464, $1465, $1466, "Unexpected eof."); + var $1468 = $1469; } else { - var $1460 = self.charCodeAt(0); - var $1461 = self.slice(1); - var self = Kind$Name$is_letter$($1460); + var $1470 = self.charCodeAt(0); + var $1471 = self.slice(1); + var self = Kind$Name$is_letter$($1470); if (self) { - var _pst$9 = Parser$State$new$($1453, $1454, $1455, Nat$succ$($1456), $1461); - var $1463 = Parser$Reply$value$(_pst$9, $1460); - var $1462 = $1463; + var _pst$9 = Parser$State$new$($1463, $1464, $1465, Nat$succ$($1466), $1471); + var $1473 = Parser$Reply$value$(_pst$9, $1470); + var $1472 = $1473; } else { - var $1464 = Parser$Reply$fail$($1454, $1455, $1456, "Expected name."); - var $1462 = $1464; + var $1474 = Parser$Reply$fail$($1464, $1465, $1466, "Expected name."); + var $1472 = $1474; }; - var $1458 = $1462; + var $1468 = $1472; }; - var $1452 = $1458; + var $1462 = $1468; break; }; - return $1452; + return $1462; }; const Kind$Parser$letter = x0 => Kind$Parser$letter$(x0); @@ -6016,17 +6047,17 @@ module.exports = (function() { var self = _list$2; switch (self._) { case 'List.cons': - var $1466 = self.head; - var $1467 = self.tail; - var $1468 = _cons$5($1466)(List$fold$($1467, _nil$4, _cons$5)); - var $1465 = $1468; + var $1476 = self.head; + var $1477 = self.tail; + var $1478 = _cons$5($1476)(List$fold$($1477, _nil$4, _cons$5)); + var $1475 = $1478; break; case 'List.nil': - var $1469 = _nil$4; - var $1465 = $1469; + var $1479 = _nil$4; + var $1475 = $1479; break; }; - return $1465; + return $1475; }; const List$fold = x0 => x1 => x2 => List$fold$(x0, x1, x2); @@ -6034,29 +6065,29 @@ module.exports = (function() { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $1471 = self.nam; - var $1472 = self.ini; - var $1473 = self.idx; - var $1474 = Parser$Reply$fail$($1471, $1472, $1473, _error$2); - var $1470 = $1474; + var $1481 = self.nam; + var $1482 = self.ini; + var $1483 = self.idx; + var $1484 = Parser$Reply$fail$($1481, $1482, $1483, _error$2); + var $1480 = $1484; break; }; - return $1470; + return $1480; }; const Parser$fail = x0 => x1 => Parser$fail$(x0, x1); function String$head$(_xs$1) { var self = _xs$1; if (self.length === 0) { - var $1476 = Maybe$none; - var $1475 = $1476; + var $1486 = Maybe$none; + var $1485 = $1486; } else { - var $1477 = self.charCodeAt(0); - var $1478 = self.slice(1); - var $1479 = Maybe$some$($1477); - var $1475 = $1479; + var $1487 = self.charCodeAt(0); + var $1488 = self.slice(1); + var $1489 = Maybe$some$($1487); + var $1485 = $1489; }; - return $1475; + return $1485; }; const String$head = x0 => String$head$(x0); @@ -6064,253 +6095,265 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1481 = self.err; + var $1491 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1483 = self.err; - var self = $1481; + var $1493 = self.err; + var self = $1491; switch (self._) { case 'Maybe.some': - var $1485 = self.value; - var $1486 = Parser$Reply$error$(Parser$Error$combine$($1485, $1483)); - var $1484 = $1486; + var $1495 = self.value; + var $1496 = Parser$Reply$error$(Parser$Error$combine$($1495, $1493)); + var $1494 = $1496; break; case 'Maybe.none': - var $1487 = Parser$Reply$error$($1483); - var $1484 = $1487; + var $1497 = Parser$Reply$error$($1493); + var $1494 = $1497; break; }; - var $1482 = $1484; + var $1492 = $1494; break; case 'Parser.Reply.value': - var $1488 = self.pst; - var self = $1488; + var $1498 = self.pst; + var self = $1498; switch (self._) { case 'Parser.State.new': - var $1490 = self.err; - var $1491 = self.nam; - var $1492 = self.ini; - var $1493 = self.idx; - var $1494 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1481, $1490), $1491, $1492, $1493, $1494); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $1496 = self.err; - var _reply$21 = Parser$many1$(Kind$Parser$letter, _reply$pst$15); - var self = _reply$21; + var $1500 = self.err; + var $1501 = self.nam; + var $1502 = self.ini; + var $1503 = self.idx; + var $1504 = self.str; + var $1505 = ((console.log(("FALTANDO " + $1504)), (_$15 => { + var $1506 = ((console.log(("VALUE " + $1501)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1491, $1500), $1501, $1502, $1503, $1504); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $1498 = self.err; - var self = $1496; + case 'Parser.State.new': + var $1508 = self.err; + var _reply$23 = Parser$many1$(Kind$Parser$letter, _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $1500 = self.value; - var $1501 = Parser$Reply$error$(Parser$Error$combine$($1500, $1498)); - var $1499 = $1501; - break; - case 'Maybe.none': - var $1502 = Parser$Reply$error$($1498); - var $1499 = $1502; - break; - }; - var $1497 = $1499; - break; - case 'Parser.Reply.value': - var $1503 = self.pst; - var $1504 = self.val; - var self = $1503; - switch (self._) { - case 'Parser.State.new': - var $1506 = self.err; - var $1507 = self.nam; - var $1508 = self.ini; - var $1509 = self.idx; - var $1510 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1496, $1506), $1507, $1508, $1509, $1510); - var _name$30 = List$fold$($1504, String$nil, String$cons); - var _reserved$31 = Parser$fail("Reserved keyword."); - var _numeric$32 = Parser$fail("Name can\'t start with number or sign."); - var self = (_name$30 === "case"); - if (self) { - var $1512 = _reserved$31; - var $1511 = $1512; - } else { - var self = (_name$30 === "do"); - if (self) { - var $1514 = _reserved$31; - var $1513 = $1514; - } else { - var self = (_name$30 === "if"); - if (self) { - var $1516 = _reserved$31; - var $1515 = $1516; - } else { - var self = (_name$30 === "with"); - if (self) { - var $1518 = _reserved$31; - var $1517 = $1518; - } else { - var self = (_name$30 === "for"); - if (self) { - var $1520 = _reserved$31; - var $1519 = $1520; - } else { - var self = (_name$30 === "else"); - if (self) { - var $1522 = _reserved$31; - var $1521 = $1522; - } else { - var self = (_name$30 === "switch"); - if (self) { - var $1524 = _reserved$31; - var $1523 = $1524; - } else { - var self = (_name$30 === "."); - if (self) { - var $1526 = _reserved$31; - var $1525 = $1526; - } else { - var self = (_name$30 === ".."); - if (self) { - var $1528 = _reserved$31; - var $1527 = $1528; - } else { - var self = (_name$30 === "..."); - if (self) { - var $1530 = _reserved$31; - var $1529 = $1530; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 43); - if (self) { - var $1532 = _numeric$32; - var $1531 = $1532; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 45); - if (self) { - var $1534 = _numeric$32; - var $1533 = $1534; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 48); - if (self) { - var $1536 = _numeric$32; - var $1535 = $1536; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 49); - if (self) { - var $1538 = _numeric$32; - var $1537 = $1538; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 50); - if (self) { - var $1540 = _numeric$32; - var $1539 = $1540; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 51); - if (self) { - var $1542 = _numeric$32; - var $1541 = $1542; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 52); - if (self) { - var $1544 = _numeric$32; - var $1543 = $1544; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 53); - if (self) { - var $1546 = _numeric$32; - var $1545 = $1546; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 54); - if (self) { - var $1548 = _numeric$32; - var $1547 = $1548; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 55); - if (self) { - var $1550 = _numeric$32; - var $1549 = $1550; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 56); - if (self) { - var $1552 = _numeric$32; - var $1551 = $1552; - } else { - var self = (Maybe$default$(String$head$(_name$30), 120) === 57); - if (self) { - var $1554 = _numeric$32; - var $1553 = $1554; - } else { - var $1555 = (_pst$33 => { - var $1556 = Parser$Reply$value$(_pst$33, _name$30); - return $1556; - }); - var $1553 = $1555; - }; - var $1551 = $1553; - }; - var $1549 = $1551; - }; - var $1547 = $1549; - }; - var $1545 = $1547; - }; - var $1543 = $1545; - }; - var $1541 = $1543; - }; - var $1539 = $1541; - }; - var $1537 = $1539; - }; - var $1535 = $1537; - }; - var $1533 = $1535; - }; - var $1531 = $1533; - }; - var $1529 = $1531; - }; - var $1527 = $1529; - }; - var $1525 = $1527; - }; - var $1523 = $1525; - }; - var $1521 = $1523; - }; - var $1519 = $1521; - }; - var $1517 = $1519; - }; - var $1515 = $1517; - }; - var $1513 = $1515; - }; - var $1511 = $1513; + case 'Parser.Reply.error': + var $1510 = self.err; + var self = $1508; + switch (self._) { + case 'Maybe.some': + var $1512 = self.value; + var $1513 = Parser$Reply$error$(Parser$Error$combine$($1512, $1510)); + var $1511 = $1513; + break; + case 'Maybe.none': + var $1514 = Parser$Reply$error$($1510); + var $1511 = $1514; + break; }; - var $1511 = $1511(_reply$pst$29); - var $1505 = $1511; + var $1509 = $1511; + break; + case 'Parser.Reply.value': + var $1515 = self.pst; + var $1516 = self.val; + var self = $1515; + switch (self._) { + case 'Parser.State.new': + var $1518 = self.err; + var $1519 = self.nam; + var $1520 = self.ini; + var $1521 = self.idx; + var $1522 = self.str; + var $1523 = ((console.log(("FALTANDO " + $1522)), (_$31 => { + var $1524 = ((console.log(("VALUE " + $1519)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1508, $1518), $1519, $1520, $1521, $1522); + var _name$34 = List$fold$($1516, String$nil, String$cons); + var _reserved$35 = Parser$fail("Reserved keyword."); + var _numeric$36 = Parser$fail("Name can\'t start with number or sign."); + var self = (_name$34 === "case"); + if (self) { + var $1526 = _reserved$35; + var $1525 = $1526; + } else { + var self = (_name$34 === "do"); + if (self) { + var $1528 = _reserved$35; + var $1527 = $1528; + } else { + var self = (_name$34 === "if"); + if (self) { + var $1530 = _reserved$35; + var $1529 = $1530; + } else { + var self = (_name$34 === "with"); + if (self) { + var $1532 = _reserved$35; + var $1531 = $1532; + } else { + var self = (_name$34 === "for"); + if (self) { + var $1534 = _reserved$35; + var $1533 = $1534; + } else { + var self = (_name$34 === "else"); + if (self) { + var $1536 = _reserved$35; + var $1535 = $1536; + } else { + var self = (_name$34 === "switch"); + if (self) { + var $1538 = _reserved$35; + var $1537 = $1538; + } else { + var self = (_name$34 === "."); + if (self) { + var $1540 = _reserved$35; + var $1539 = $1540; + } else { + var self = (_name$34 === ".."); + if (self) { + var $1542 = _reserved$35; + var $1541 = $1542; + } else { + var self = (_name$34 === "..."); + if (self) { + var $1544 = _reserved$35; + var $1543 = $1544; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 43); + if (self) { + var $1546 = _numeric$36; + var $1545 = $1546; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 45); + if (self) { + var $1548 = _numeric$36; + var $1547 = $1548; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 48); + if (self) { + var $1550 = _numeric$36; + var $1549 = $1550; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 49); + if (self) { + var $1552 = _numeric$36; + var $1551 = $1552; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 50); + if (self) { + var $1554 = _numeric$36; + var $1553 = $1554; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 51); + if (self) { + var $1556 = _numeric$36; + var $1555 = $1556; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 52); + if (self) { + var $1558 = _numeric$36; + var $1557 = $1558; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 53); + if (self) { + var $1560 = _numeric$36; + var $1559 = $1560; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 54); + if (self) { + var $1562 = _numeric$36; + var $1561 = $1562; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 55); + if (self) { + var $1564 = _numeric$36; + var $1563 = $1564; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 56); + if (self) { + var $1566 = _numeric$36; + var $1565 = $1566; + } else { + var self = (Maybe$default$(String$head$(_name$34), 120) === 57); + if (self) { + var $1568 = _numeric$36; + var $1567 = $1568; + } else { + var $1569 = (_pst$37 => { + var $1570 = Parser$Reply$value$(_pst$37, _name$34); + return $1570; + }); + var $1567 = $1569; + }; + var $1565 = $1567; + }; + var $1563 = $1565; + }; + var $1561 = $1563; + }; + var $1559 = $1561; + }; + var $1557 = $1559; + }; + var $1555 = $1557; + }; + var $1553 = $1555; + }; + var $1551 = $1553; + }; + var $1549 = $1551; + }; + var $1547 = $1549; + }; + var $1545 = $1547; + }; + var $1543 = $1545; + }; + var $1541 = $1543; + }; + var $1539 = $1541; + }; + var $1537 = $1539; + }; + var $1535 = $1537; + }; + var $1533 = $1535; + }; + var $1531 = $1533; + }; + var $1529 = $1531; + }; + var $1527 = $1529; + }; + var $1525 = $1527; + }; + var $1525 = $1525(_reply$pst$33); + return $1525; + })())); + return $1524; + })())); + var $1517 = $1523; + break; + }; + var $1509 = $1517; break; }; - var $1497 = $1505; + var $1507 = $1509; break; }; - var $1495 = $1497; - break; - }; - var $1489 = $1495; + return $1507; + })())); + return $1506; + })())); + var $1499 = $1505; break; }; - var $1482 = $1489; + var $1492 = $1499; break; }; - var $1480 = $1482; + var $1490 = $1492; break; }; - return $1480; + return $1490; }; const Kind$Parser$name1 = x0 => Kind$Parser$name1$(x0); @@ -6318,93 +6361,105 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $1558 = self.err; + var $1572 = self.err; var _reply$10 = _parser$3(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $1560 = self.err; - var self = $1558; + var $1574 = self.err; + var self = $1572; switch (self._) { case 'Maybe.some': - var $1562 = self.value; - var $1563 = Parser$Reply$error$(Parser$Error$combine$($1562, $1560)); - var $1561 = $1563; + var $1576 = self.value; + var $1577 = Parser$Reply$error$(Parser$Error$combine$($1576, $1574)); + var $1575 = $1577; break; case 'Maybe.none': - var $1564 = Parser$Reply$error$($1560); - var $1561 = $1564; + var $1578 = Parser$Reply$error$($1574); + var $1575 = $1578; break; }; - var $1559 = $1561; + var $1573 = $1575; break; case 'Parser.Reply.value': - var $1565 = self.pst; - var $1566 = self.val; - var self = $1565; + var $1579 = self.pst; + var $1580 = self.val; + var self = $1579; switch (self._) { case 'Parser.State.new': - var $1568 = self.err; - var $1569 = self.nam; - var $1570 = self.ini; - var $1571 = self.idx; - var $1572 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($1558, $1568), $1569, $1570, $1571, $1572); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $1574 = self.err; - var _reply$24 = Parser$until$(_cond$2, _parser$3)(_reply$pst$18); - var self = _reply$24; + var $1582 = self.err; + var $1583 = self.nam; + var $1584 = self.ini; + var $1585 = self.idx; + var $1586 = self.str; + var $1587 = ((console.log(("FALTANDO " + $1586)), (_$18 => { + var $1588 = ((console.log(("VALUE " + $1583)), (_$19 => { + var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($1572, $1582), $1583, $1584, $1585, $1586); + var self = _reply$pst$20; switch (self._) { - case 'Parser.Reply.error': - var $1576 = self.err; - var self = $1574; + case 'Parser.State.new': + var $1590 = self.err; + var _reply$26 = Parser$until$(_cond$2, _parser$3)(_reply$pst$20); + var self = _reply$26; switch (self._) { - case 'Maybe.some': - var $1578 = self.value; - var $1579 = Parser$Reply$error$(Parser$Error$combine$($1578, $1576)); - var $1577 = $1579; + case 'Parser.Reply.error': + var $1592 = self.err; + var self = $1590; + switch (self._) { + case 'Maybe.some': + var $1594 = self.value; + var $1595 = Parser$Reply$error$(Parser$Error$combine$($1594, $1592)); + var $1593 = $1595; + break; + case 'Maybe.none': + var $1596 = Parser$Reply$error$($1592); + var $1593 = $1596; + break; + }; + var $1591 = $1593; break; - case 'Maybe.none': - var $1580 = Parser$Reply$error$($1576); - var $1577 = $1580; + case 'Parser.Reply.value': + var $1597 = self.pst; + var $1598 = self.val; + var self = $1597; + switch (self._) { + case 'Parser.State.new': + var $1600 = self.err; + var $1601 = self.nam; + var $1602 = self.ini; + var $1603 = self.idx; + var $1604 = self.str; + var $1605 = ((console.log(("FALTANDO " + $1604)), (_$34 => { + var $1606 = ((console.log(("VALUE " + $1601)), (_$35 => { + var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($1590, $1600), $1601, $1602, $1603, $1604); + var $1607 = Parser$Reply$value$(_reply$pst$36, List$cons$($1580, $1598)); + return $1607; + })())); + return $1606; + })())); + var $1599 = $1605; + break; + }; + var $1591 = $1599; break; }; - var $1575 = $1577; - break; - case 'Parser.Reply.value': - var $1581 = self.pst; - var $1582 = self.val; - var self = $1581; - switch (self._) { - case 'Parser.State.new': - var $1584 = self.err; - var $1585 = self.nam; - var $1586 = self.ini; - var $1587 = self.idx; - var $1588 = self.str; - var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($1574, $1584), $1585, $1586, $1587, $1588); - var $1589 = Parser$Reply$value$(_reply$pst$32, List$cons$($1566, $1582)); - var $1583 = $1589; - break; - }; - var $1575 = $1583; + var $1589 = $1591; break; }; - var $1573 = $1575; - break; - }; - var $1567 = $1573; + return $1589; + })())); + return $1588; + })())); + var $1581 = $1587; break; }; - var $1559 = $1567; + var $1573 = $1581; break; }; - var $1557 = $1559; + var $1571 = $1573; break; }; - return $1557; + return $1571; }; const Parser$until1 = x0 => x1 => x2 => Parser$until1$(x0, x1, x2); @@ -6412,48 +6467,54 @@ module.exports = (function() { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $1591 = self.err; + var $1609 = self.err; var _reply$11 = _opens$2(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $1593 = self.err; - var self = $1591; + var $1611 = self.err; + var self = $1609; switch (self._) { case 'Maybe.some': - var $1595 = self.value; - var $1596 = Parser$Reply$error$(Parser$Error$combine$($1595, $1593)); - var $1594 = $1596; + var $1613 = self.value; + var $1614 = Parser$Reply$error$(Parser$Error$combine$($1613, $1611)); + var $1612 = $1614; break; case 'Maybe.none': - var $1597 = Parser$Reply$error$($1593); - var $1594 = $1597; + var $1615 = Parser$Reply$error$($1611); + var $1612 = $1615; break; }; - var $1592 = $1594; + var $1610 = $1612; break; case 'Parser.Reply.value': - var $1598 = self.pst; - var self = $1598; + var $1616 = self.pst; + var self = $1616; switch (self._) { case 'Parser.State.new': - var $1600 = self.err; - var $1601 = self.nam; - var $1602 = self.ini; - var $1603 = self.idx; - var $1604 = self.str; - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($1591, $1600), $1601, $1602, $1603, $1604); - var $1605 = Parser$until1$(_close$4, _parse$3, _reply$pst$19); - var $1599 = $1605; + var $1618 = self.err; + var $1619 = self.nam; + var $1620 = self.ini; + var $1621 = self.idx; + var $1622 = self.str; + var $1623 = ((console.log(("FALTANDO " + $1622)), (_$19 => { + var $1624 = ((console.log(("VALUE " + $1619)), (_$20 => { + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($1609, $1618), $1619, $1620, $1621, $1622); + var $1625 = Parser$until1$(_close$4, _parse$3, _reply$pst$21); + return $1625; + })())); + return $1624; + })())); + var $1617 = $1623; break; }; - var $1592 = $1599; + var $1610 = $1617; break; }; - var $1590 = $1592; + var $1608 = $1610; break; }; - return $1590; + return $1608; }; const Parser$wrap1 = x0 => x1 => x2 => x3 => Parser$wrap1$(x0, x1, x2, x3); @@ -6461,48 +6522,54 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $1607 = self.err; + var $1627 = self.err; var _reply$8 = Kind$Parser$spaces(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $1609 = self.err; - var self = $1607; + var $1629 = self.err; + var self = $1627; switch (self._) { case 'Maybe.some': - var $1611 = self.value; - var $1612 = Parser$Reply$error$(Parser$Error$combine$($1611, $1609)); - var $1610 = $1612; + var $1631 = self.value; + var $1632 = Parser$Reply$error$(Parser$Error$combine$($1631, $1629)); + var $1630 = $1632; break; case 'Maybe.none': - var $1613 = Parser$Reply$error$($1609); - var $1610 = $1613; + var $1633 = Parser$Reply$error$($1629); + var $1630 = $1633; break; }; - var $1608 = $1610; + var $1628 = $1630; break; case 'Parser.Reply.value': - var $1614 = self.pst; - var self = $1614; + var $1634 = self.pst; + var self = $1634; switch (self._) { case 'Parser.State.new': - var $1616 = self.err; - var $1617 = self.nam; - var $1618 = self.ini; - var $1619 = self.idx; - var $1620 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($1607, $1616), $1617, $1618, $1619, $1620); - var $1621 = Parser$text$(_text$1, _reply$pst$16); - var $1615 = $1621; + var $1636 = self.err; + var $1637 = self.nam; + var $1638 = self.ini; + var $1639 = self.idx; + var $1640 = self.str; + var $1641 = ((console.log(("FALTANDO " + $1640)), (_$16 => { + var $1642 = ((console.log(("VALUE " + $1637)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($1627, $1636), $1637, $1638, $1639, $1640); + var $1643 = Parser$text$(_text$1, _reply$pst$18); + return $1643; + })())); + return $1642; + })())); + var $1635 = $1641; break; }; - var $1608 = $1615; + var $1628 = $1635; break; }; - var $1606 = $1608; + var $1626 = $1628; break; }; - return $1606; + return $1626; }; const Kind$Parser$text = x0 => x1 => Kind$Parser$text$(x0, x1); @@ -6513,159 +6580,177 @@ module.exports = (function() { var self = _parse$2(_pst$3); switch (self._) { case 'Parser.Reply.value': - var $1624 = self.pst; - var $1625 = self.val; - var $1626 = Parser$Reply$value$($1624, Maybe$some$($1625)); - var $1623 = $1626; + var $1646 = self.pst; + var $1647 = self.val; + var $1648 = Parser$Reply$value$($1646, Maybe$some$($1647)); + var $1645 = $1648; break; case 'Parser.Reply.error': - var $1627 = Parser$Reply$value$(_pst$3, Maybe$none); - var $1623 = $1627; + var $1649 = Parser$Reply$value$(_pst$3, Maybe$none); + var $1645 = $1649; break; }; - var $1622 = $1623; + var $1644 = $1645; break; }; - return $1622; + return $1644; }; const Parser$maybe = x0 => x1 => Parser$maybe$(x0, x1); function Kind$Parser$items1$(_ini$2, _parser$3, _end$4) { - var $1628 = Parser$wrap1(Kind$Parser$text(_ini$2))((_pst$5 => { + var $1650 = Parser$wrap1(Kind$Parser$text(_ini$2))((_pst$5 => { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $1630 = self.err; + var $1652 = self.err; var _reply$11 = Kind$Parser$spaces(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $1632 = self.err; - var self = $1630; + var $1654 = self.err; + var self = $1652; switch (self._) { case 'Maybe.some': - var $1634 = self.value; - var $1635 = Parser$Reply$error$(Parser$Error$combine$($1634, $1632)); - var $1633 = $1635; + var $1656 = self.value; + var $1657 = Parser$Reply$error$(Parser$Error$combine$($1656, $1654)); + var $1655 = $1657; break; case 'Maybe.none': - var $1636 = Parser$Reply$error$($1632); - var $1633 = $1636; + var $1658 = Parser$Reply$error$($1654); + var $1655 = $1658; break; }; - var $1631 = $1633; + var $1653 = $1655; break; case 'Parser.Reply.value': - var $1637 = self.pst; - var self = $1637; + var $1659 = self.pst; + var self = $1659; switch (self._) { case 'Parser.State.new': - var $1639 = self.err; - var $1640 = self.nam; - var $1641 = self.ini; - var $1642 = self.idx; - var $1643 = self.str; - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($1630, $1639), $1640, $1641, $1642, $1643); - var self = _reply$pst$19; - switch (self._) { - case 'Parser.State.new': - var $1645 = self.err; - var _reply$25 = _parser$3(_reply$pst$19); - var self = _reply$25; + var $1661 = self.err; + var $1662 = self.nam; + var $1663 = self.ini; + var $1664 = self.idx; + var $1665 = self.str; + var $1666 = ((console.log(("FALTANDO " + $1665)), (_$19 => { + var $1667 = ((console.log(("VALUE " + $1662)), (_$20 => { + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($1652, $1661), $1662, $1663, $1664, $1665); + var self = _reply$pst$21; switch (self._) { - case 'Parser.Reply.error': - var $1647 = self.err; - var self = $1645; + case 'Parser.State.new': + var $1669 = self.err; + var _reply$27 = _parser$3(_reply$pst$21); + var self = _reply$27; switch (self._) { - case 'Maybe.some': - var $1649 = self.value; - var $1650 = Parser$Reply$error$(Parser$Error$combine$($1649, $1647)); - var $1648 = $1650; - break; - case 'Maybe.none': - var $1651 = Parser$Reply$error$($1647); - var $1648 = $1651; - break; - }; - var $1646 = $1648; - break; - case 'Parser.Reply.value': - var $1652 = self.pst; - var $1653 = self.val; - var self = $1652; - switch (self._) { - case 'Parser.State.new': - var $1655 = self.err; - var $1656 = self.nam; - var $1657 = self.ini; - var $1658 = self.idx; - var $1659 = self.str; - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1645, $1655), $1656, $1657, $1658, $1659); - var self = _reply$pst$33; + case 'Parser.Reply.error': + var $1671 = self.err; + var self = $1669; switch (self._) { - case 'Parser.State.new': - var $1661 = self.err; - var _reply$39 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $1663 = self.err; - var self = $1661; - switch (self._) { - case 'Maybe.some': - var $1665 = self.value; - var $1666 = Parser$Reply$error$(Parser$Error$combine$($1665, $1663)); - var $1664 = $1666; - break; - case 'Maybe.none': - var $1667 = Parser$Reply$error$($1663); - var $1664 = $1667; - break; - }; - var $1662 = $1664; - break; - case 'Parser.Reply.value': - var $1668 = self.pst; - var self = $1668; - switch (self._) { - case 'Parser.State.new': - var $1670 = self.err; - var $1671 = self.nam; - var $1672 = self.ini; - var $1673 = self.idx; - var $1674 = self.str; - var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($1661, $1670), $1671, $1672, $1673, $1674); - var $1675 = Parser$Reply$value$(_reply$pst$47, $1653); - var $1669 = $1675; - break; - }; - var $1662 = $1669; - break; - }; - var $1660 = $1662; + case 'Maybe.some': + var $1673 = self.value; + var $1674 = Parser$Reply$error$(Parser$Error$combine$($1673, $1671)); + var $1672 = $1674; + break; + case 'Maybe.none': + var $1675 = Parser$Reply$error$($1671); + var $1672 = $1675; break; }; - var $1654 = $1660; + var $1670 = $1672; + break; + case 'Parser.Reply.value': + var $1676 = self.pst; + var $1677 = self.val; + var self = $1676; + switch (self._) { + case 'Parser.State.new': + var $1679 = self.err; + var $1680 = self.nam; + var $1681 = self.ini; + var $1682 = self.idx; + var $1683 = self.str; + var $1684 = ((console.log(("FALTANDO " + $1683)), (_$35 => { + var $1685 = ((console.log(("VALUE " + $1680)), (_$36 => { + var _reply$pst$37 = Parser$State$new$(Parser$Error$maybe_combine$($1669, $1679), $1680, $1681, $1682, $1683); + var self = _reply$pst$37; + switch (self._) { + case 'Parser.State.new': + var $1687 = self.err; + var _reply$43 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$37); + var self = _reply$43; + switch (self._) { + case 'Parser.Reply.error': + var $1689 = self.err; + var self = $1687; + switch (self._) { + case 'Maybe.some': + var $1691 = self.value; + var $1692 = Parser$Reply$error$(Parser$Error$combine$($1691, $1689)); + var $1690 = $1692; + break; + case 'Maybe.none': + var $1693 = Parser$Reply$error$($1689); + var $1690 = $1693; + break; + }; + var $1688 = $1690; + break; + case 'Parser.Reply.value': + var $1694 = self.pst; + var self = $1694; + switch (self._) { + case 'Parser.State.new': + var $1696 = self.err; + var $1697 = self.nam; + var $1698 = self.ini; + var $1699 = self.idx; + var $1700 = self.str; + var $1701 = ((console.log(("FALTANDO " + $1700)), (_$51 => { + var $1702 = ((console.log(("VALUE " + $1697)), (_$52 => { + var _reply$pst$53 = Parser$State$new$(Parser$Error$maybe_combine$($1687, $1696), $1697, $1698, $1699, $1700); + var $1703 = Parser$Reply$value$(_reply$pst$53, $1677); + return $1703; + })())); + return $1702; + })())); + var $1695 = $1701; + break; + }; + var $1688 = $1695; + break; + }; + var $1686 = $1688; + break; + }; + return $1686; + })())); + return $1685; + })())); + var $1678 = $1684; + break; + }; + var $1670 = $1678; break; }; - var $1646 = $1654; + var $1668 = $1670; break; }; - var $1644 = $1646; - break; - }; - var $1638 = $1644; + return $1668; + })())); + return $1667; + })())); + var $1660 = $1666; break; }; - var $1631 = $1638; + var $1653 = $1660; break; }; - var $1629 = $1631; + var $1651 = $1653; break; }; - return $1629; + return $1651; }))(Kind$Parser$text(_end$4)); - return $1628; + return $1650; }; const Kind$Parser$items1 = x0 => x1 => x2 => Kind$Parser$items1$(x0, x1, x2); @@ -6673,102 +6758,114 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1677 = self.err; + var $1705 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1679 = self.err; - var self = $1677; + var $1707 = self.err; + var self = $1705; switch (self._) { case 'Maybe.some': - var $1681 = self.value; - var $1682 = Parser$Reply$error$(Parser$Error$combine$($1681, $1679)); - var $1680 = $1682; + var $1709 = self.value; + var $1710 = Parser$Reply$error$(Parser$Error$combine$($1709, $1707)); + var $1708 = $1710; break; case 'Maybe.none': - var $1683 = Parser$Reply$error$($1679); - var $1680 = $1683; + var $1711 = Parser$Reply$error$($1707); + var $1708 = $1711; break; }; - var $1678 = $1680; + var $1706 = $1708; break; case 'Parser.Reply.value': - var $1684 = self.pst; - var self = $1684; + var $1712 = self.pst; + var self = $1712; switch (self._) { case 'Parser.State.new': - var $1686 = self.err; - var $1687 = self.nam; - var $1688 = self.ini; - var $1689 = self.idx; - var $1690 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1677, $1686), $1687, $1688, $1689, $1690); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $1692 = self.err; - var _reply$21 = Parser$many$(Kind$Parser$letter)(_reply$pst$15); - var self = _reply$21; + var $1714 = self.err; + var $1715 = self.nam; + var $1716 = self.ini; + var $1717 = self.idx; + var $1718 = self.str; + var $1719 = ((console.log(("FALTANDO " + $1718)), (_$15 => { + var $1720 = ((console.log(("VALUE " + $1715)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1705, $1714), $1715, $1716, $1717, $1718); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $1694 = self.err; - var self = $1692; + case 'Parser.State.new': + var $1722 = self.err; + var _reply$23 = Parser$many$(Kind$Parser$letter)(_reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $1696 = self.value; - var $1697 = Parser$Reply$error$(Parser$Error$combine$($1696, $1694)); - var $1695 = $1697; + case 'Parser.Reply.error': + var $1724 = self.err; + var self = $1722; + switch (self._) { + case 'Maybe.some': + var $1726 = self.value; + var $1727 = Parser$Reply$error$(Parser$Error$combine$($1726, $1724)); + var $1725 = $1727; + break; + case 'Maybe.none': + var $1728 = Parser$Reply$error$($1724); + var $1725 = $1728; + break; + }; + var $1723 = $1725; break; - case 'Maybe.none': - var $1698 = Parser$Reply$error$($1694); - var $1695 = $1698; + case 'Parser.Reply.value': + var $1729 = self.pst; + var $1730 = self.val; + var self = $1729; + switch (self._) { + case 'Parser.State.new': + var $1732 = self.err; + var $1733 = self.nam; + var $1734 = self.ini; + var $1735 = self.idx; + var $1736 = self.str; + var $1737 = ((console.log(("FALTANDO " + $1736)), (_$31 => { + var $1738 = ((console.log(("VALUE " + $1733)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1722, $1732), $1733, $1734, $1735, $1736); + var $1739 = Parser$Reply$value$(_reply$pst$33, List$fold$($1730, String$nil, String$cons)); + return $1739; + })())); + return $1738; + })())); + var $1731 = $1737; + break; + }; + var $1723 = $1731; break; }; - var $1693 = $1695; - break; - case 'Parser.Reply.value': - var $1699 = self.pst; - var $1700 = self.val; - var self = $1699; - switch (self._) { - case 'Parser.State.new': - var $1702 = self.err; - var $1703 = self.nam; - var $1704 = self.ini; - var $1705 = self.idx; - var $1706 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1692, $1702), $1703, $1704, $1705, $1706); - var $1707 = Parser$Reply$value$(_reply$pst$29, List$fold$($1700, String$nil, String$cons)); - var $1701 = $1707; - break; - }; - var $1693 = $1701; + var $1721 = $1723; break; }; - var $1691 = $1693; - break; - }; - var $1685 = $1691; + return $1721; + })())); + return $1720; + })())); + var $1713 = $1719; break; }; - var $1678 = $1685; + var $1706 = $1713; break; }; - var $1676 = $1678; + var $1704 = $1706; break; }; - return $1676; + return $1704; }; const Kind$Parser$name = x0 => Kind$Parser$name$(x0); function Kind$Term$ori$(_orig$1, _expr$2) { - var $1708 = ({ + var $1740 = ({ _: 'Kind.Term.ori', 'orig': _orig$1, 'expr': _expr$2 }); - return $1708; + return $1740; }; const Kind$Term$ori = x0 => x1 => Kind$Term$ori$(x0, x1); @@ -6780,56 +6877,56 @@ module.exports = (function() { var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $1711 = self.err; - var $1712 = Parser$Reply$error$($1711); - var $1710 = $1712; + var $1743 = self.err; + var $1744 = Parser$Reply$error$($1743); + var $1742 = $1744; break; case 'Parser.Reply.value': - var $1713 = self.pst; - var _pst$12 = $1713; + var $1745 = self.pst; + var _pst$12 = $1745; var self = _pst$12; switch (self._) { case 'Parser.State.new': - var $1715 = self.err; - var $1716 = self.nam; - var $1717 = self.ini; - var $1718 = self.idx; - var $1719 = self.str; - var _reply$18 = _parse$2(Parser$State$new$($1715, _name$1, $1718, $1718, $1719)); + var $1747 = self.err; + var $1748 = self.nam; + var $1749 = self.ini; + var $1750 = self.idx; + var $1751 = self.str; + var _reply$18 = _parse$2(Parser$State$new$($1747, _name$1, $1750, $1750, $1751)); var self = _reply$18; switch (self._) { case 'Parser.Reply.error': - var $1721 = self.err; - var $1722 = Parser$Reply$error$($1721); - var $1720 = $1722; + var $1753 = self.err; + var $1754 = Parser$Reply$error$($1753); + var $1752 = $1754; break; case 'Parser.Reply.value': - var $1723 = self.pst; - var $1724 = self.val; - var self = $1723; + var $1755 = self.pst; + var $1756 = self.val; + var self = $1755; switch (self._) { case 'Parser.State.new': - var $1726 = self.err; - var $1727 = self.idx; - var $1728 = self.str; - var _new_pst$26 = Parser$State$new$($1726, $1716, $1717, $1727, $1728); - var $1729 = Parser$Reply$value$(_new_pst$26, Kind$Term$ori$(Pair$new$($1718, $1727), $1724)); - var $1725 = $1729; + var $1758 = self.err; + var $1759 = self.idx; + var $1760 = self.str; + var _new_pst$26 = Parser$State$new$($1758, $1748, $1749, $1759, $1760); + var $1761 = Parser$Reply$value$(_new_pst$26, Kind$Term$ori$(Pair$new$($1750, $1759), $1756)); + var $1757 = $1761; break; }; - var $1720 = $1725; + var $1752 = $1757; break; }; - var $1714 = $1720; + var $1746 = $1752; break; }; - var $1710 = $1714; + var $1742 = $1746; break; }; - var $1709 = $1710; + var $1741 = $1742; break; }; - return $1709; + return $1741; }; const Kind$Parser$block = x0 => x1 => x2 => Kind$Parser$block$(x0, x1, x2); @@ -6837,188 +6934,212 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1731 = self.err; + var $1763 = self.err; var _reply$7 = Kind$Parser$name1$(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1733 = self.err; - var self = $1731; + var $1765 = self.err; + var self = $1763; switch (self._) { case 'Maybe.some': - var $1735 = self.value; - var $1736 = Parser$Reply$error$(Parser$Error$combine$($1735, $1733)); - var $1734 = $1736; + var $1767 = self.value; + var $1768 = Parser$Reply$error$(Parser$Error$combine$($1767, $1765)); + var $1766 = $1768; break; case 'Maybe.none': - var $1737 = Parser$Reply$error$($1733); - var $1734 = $1737; + var $1769 = Parser$Reply$error$($1765); + var $1766 = $1769; break; }; - var $1732 = $1734; + var $1764 = $1766; break; case 'Parser.Reply.value': - var $1738 = self.pst; - var $1739 = self.val; - var self = $1738; + var $1770 = self.pst; + var $1771 = self.val; + var self = $1770; switch (self._) { case 'Parser.State.new': - var $1741 = self.err; - var $1742 = self.nam; - var $1743 = self.ini; - var $1744 = self.idx; - var $1745 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1731, $1741), $1742, $1743, $1744, $1745); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $1747 = self.err; - var _reply$21 = Kind$Parser$text$("=", _reply$pst$15); - var self = _reply$21; + var $1773 = self.err; + var $1774 = self.nam; + var $1775 = self.ini; + var $1776 = self.idx; + var $1777 = self.str; + var $1778 = ((console.log(("FALTANDO " + $1777)), (_$15 => { + var $1779 = ((console.log(("VALUE " + $1774)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1763, $1773), $1774, $1775, $1776, $1777); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $1749 = self.err; - var self = $1747; + case 'Parser.State.new': + var $1781 = self.err; + var _reply$23 = Kind$Parser$text$("=", _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $1751 = self.value; - var $1752 = Parser$Reply$error$(Parser$Error$combine$($1751, $1749)); - var $1750 = $1752; - break; - case 'Maybe.none': - var $1753 = Parser$Reply$error$($1749); - var $1750 = $1753; - break; - }; - var $1748 = $1750; - break; - case 'Parser.Reply.value': - var $1754 = self.pst; - var self = $1754; - switch (self._) { - case 'Parser.State.new': - var $1756 = self.err; - var $1757 = self.nam; - var $1758 = self.ini; - var $1759 = self.idx; - var $1760 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1747, $1756), $1757, $1758, $1759, $1760); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $1783 = self.err; + var self = $1781; switch (self._) { - case 'Parser.State.new': - var $1762 = self.err; - var _reply$35 = Kind$Parser$term(_reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $1764 = self.err; - var self = $1762; - switch (self._) { - case 'Maybe.some': - var $1766 = self.value; - var $1767 = Parser$Reply$error$(Parser$Error$combine$($1766, $1764)); - var $1765 = $1767; - break; - case 'Maybe.none': - var $1768 = Parser$Reply$error$($1764); - var $1765 = $1768; - break; - }; - var $1763 = $1765; - break; - case 'Parser.Reply.value': - var $1769 = self.pst; - var $1770 = self.val; - var self = $1769; - switch (self._) { - case 'Parser.State.new': - var $1772 = self.err; - var $1773 = self.nam; - var $1774 = self.ini; - var $1775 = self.idx; - var $1776 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($1762, $1772), $1773, $1774, $1775, $1776); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $1778 = self.err; - var _reply$49 = Kind$Parser$spaces(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $1780 = self.err; - var self = $1778; - switch (self._) { - case 'Maybe.some': - var $1782 = self.value; - var $1783 = Parser$Reply$error$(Parser$Error$combine$($1782, $1780)); - var $1781 = $1783; - break; - case 'Maybe.none': - var $1784 = Parser$Reply$error$($1780); - var $1781 = $1784; - break; - }; - var $1779 = $1781; - break; - case 'Parser.Reply.value': - var $1785 = self.pst; - var self = $1785; - switch (self._) { - case 'Parser.State.new': - var $1787 = self.err; - var $1788 = self.nam; - var $1789 = self.ini; - var $1790 = self.idx; - var $1791 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($1778, $1787), $1788, $1789, $1790, $1791); - var $1792 = Parser$Reply$value$(_reply$pst$57, Pair$new$($1739, $1770)); - var $1786 = $1792; - break; - }; - var $1779 = $1786; - break; - }; - var $1777 = $1779; - break; - }; - var $1771 = $1777; - break; - }; - var $1763 = $1771; - break; - }; - var $1761 = $1763; + case 'Maybe.some': + var $1785 = self.value; + var $1786 = Parser$Reply$error$(Parser$Error$combine$($1785, $1783)); + var $1784 = $1786; + break; + case 'Maybe.none': + var $1787 = Parser$Reply$error$($1783); + var $1784 = $1787; break; }; - var $1755 = $1761; + var $1782 = $1784; + break; + case 'Parser.Reply.value': + var $1788 = self.pst; + var self = $1788; + switch (self._) { + case 'Parser.State.new': + var $1790 = self.err; + var $1791 = self.nam; + var $1792 = self.ini; + var $1793 = self.idx; + var $1794 = self.str; + var $1795 = ((console.log(("FALTANDO " + $1794)), (_$31 => { + var $1796 = ((console.log(("VALUE " + $1791)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1781, $1790), $1791, $1792, $1793, $1794); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $1798 = self.err; + var _reply$39 = Kind$Parser$term(_reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $1800 = self.err; + var self = $1798; + switch (self._) { + case 'Maybe.some': + var $1802 = self.value; + var $1803 = Parser$Reply$error$(Parser$Error$combine$($1802, $1800)); + var $1801 = $1803; + break; + case 'Maybe.none': + var $1804 = Parser$Reply$error$($1800); + var $1801 = $1804; + break; + }; + var $1799 = $1801; + break; + case 'Parser.Reply.value': + var $1805 = self.pst; + var $1806 = self.val; + var self = $1805; + switch (self._) { + case 'Parser.State.new': + var $1808 = self.err; + var $1809 = self.nam; + var $1810 = self.ini; + var $1811 = self.idx; + var $1812 = self.str; + var $1813 = ((console.log(("FALTANDO " + $1812)), (_$47 => { + var $1814 = ((console.log(("VALUE " + $1809)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($1798, $1808), $1809, $1810, $1811, $1812); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $1816 = self.err; + var _reply$55 = Kind$Parser$spaces(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $1818 = self.err; + var self = $1816; + switch (self._) { + case 'Maybe.some': + var $1820 = self.value; + var $1821 = Parser$Reply$error$(Parser$Error$combine$($1820, $1818)); + var $1819 = $1821; + break; + case 'Maybe.none': + var $1822 = Parser$Reply$error$($1818); + var $1819 = $1822; + break; + }; + var $1817 = $1819; + break; + case 'Parser.Reply.value': + var $1823 = self.pst; + var self = $1823; + switch (self._) { + case 'Parser.State.new': + var $1825 = self.err; + var $1826 = self.nam; + var $1827 = self.ini; + var $1828 = self.idx; + var $1829 = self.str; + var $1830 = ((console.log(("FALTANDO " + $1829)), (_$63 => { + var $1831 = ((console.log(("VALUE " + $1826)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($1816, $1825), $1826, $1827, $1828, $1829); + var $1832 = Parser$Reply$value$(_reply$pst$65, Pair$new$($1771, $1806)); + return $1832; + })())); + return $1831; + })())); + var $1824 = $1830; + break; + }; + var $1817 = $1824; + break; + }; + var $1815 = $1817; + break; + }; + return $1815; + })())); + return $1814; + })())); + var $1807 = $1813; + break; + }; + var $1799 = $1807; + break; + }; + var $1797 = $1799; + break; + }; + return $1797; + })())); + return $1796; + })())); + var $1789 = $1795; + break; + }; + var $1782 = $1789; break; }; - var $1748 = $1755; + var $1780 = $1782; break; }; - var $1746 = $1748; - break; - }; - var $1740 = $1746; + return $1780; + })())); + return $1779; + })())); + var $1772 = $1778; break; }; - var $1732 = $1740; + var $1764 = $1772; break; }; - var $1730 = $1732; + var $1762 = $1764; break; }; - return $1730; + return $1762; }; const Kind$Parser$dom$prop = x0 => Kind$Parser$dom$prop$(x0); function Kind$Term$hol$(_path$1) { - var $1793 = ({ + var $1833 = ({ _: 'Kind.Term.hol', 'path': _path$1 }); - return $1793; + return $1833; }; const Kind$Term$hol = x0 => Kind$Term$hol$(x0); @@ -7035,31 +7156,31 @@ module.exports = (function() { var self = _values$1; switch (self._) { case 'List.cons': - var $1794 = self.head; - var $1795 = self.tail; - var self = $1794; + var $1834 = self.head; + var $1835 = self.tail; + var self = $1834; switch (self._) { case 'Pair.new': - var $1797 = self.fst; - var $1798 = self.snd; - var self = ($1797 === "style"); + var $1837 = self.fst; + var $1838 = self.snd; + var self = ($1837 === "style"); if (self) { - var $1800 = Kind$Parser$dom$gen_prop$go$($1795, Pair$new$((() => { + var $1840 = Kind$Parser$dom$gen_prop$go$($1835, Pair$new$((() => { var self = _result$2; switch (self._) { case 'Pair.new': - var $1801 = self.fst; - var $1802 = $1801; - return $1802; + var $1841 = self.fst; + var $1842 = $1841; + return $1842; }; - })(), $1798)); - var $1799 = $1800; + })(), $1838)); + var $1839 = $1840; } else { var _pair$7 = Kind$Term$ref$("Pair.new"); var _pair$8 = Kind$Term$app$(_pair$7, Kind$Term$hol$(Bits$e)); var _pair$9 = Kind$Term$app$(_pair$8, Kind$Term$hol$(Bits$e)); - var _pair$10 = Kind$Term$app$(_pair$9, Kind$Term$str$($1797)); - var _pair$11 = Kind$Term$app$(_pair$10, $1798); + var _pair$10 = Kind$Term$app$(_pair$9, Kind$Term$str$($1837)); + var _pair$11 = Kind$Term$app$(_pair$10, $1838); var _term$12 = Kind$Term$ref$("List.cons"); var _term$13 = Kind$Term$app$(_term$12, Kind$Term$hol$(Bits$e)); var _term$14 = Kind$Term$app$(_term$13, _pair$11); @@ -7067,29 +7188,29 @@ module.exports = (function() { var self = _result$2; switch (self._) { case 'Pair.new': - var $1804 = self.fst; - var $1805 = $1804; - return $1805; + var $1844 = self.fst; + var $1845 = $1844; + return $1845; }; })()); - var $1803 = Kind$Parser$dom$gen_prop$go$($1795, Pair$new$(_term$15, (() => { + var $1843 = Kind$Parser$dom$gen_prop$go$($1835, Pair$new$(_term$15, (() => { var self = _result$2; switch (self._) { case 'Pair.new': - var $1806 = self.snd; - var $1807 = $1806; - return $1807; + var $1846 = self.snd; + var $1847 = $1846; + return $1847; }; })())); - var $1799 = $1803; + var $1839 = $1843; }; - var $1796 = $1799; + var $1836 = $1839; break; }; - return $1796; + return $1836; case 'List.nil': - var $1808 = _result$2; - return $1808; + var $1848 = _result$2; + return $1848; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -7104,494 +7225,554 @@ module.exports = (function() { var self = Kind$Parser$dom$gen_prop$go$(_values$1, Pair$new$(_empty_list$2, _empty_map$3)); switch (self._) { case 'Pair.new': - var $1810 = self.fst; - var $1811 = self.snd; + var $1850 = self.fst; + var $1851 = self.snd; var _term_prop$6 = Kind$Term$ref$("Map.from_list"); var _term_prop$7 = Kind$Term$app$(_term_prop$6, Kind$Term$hol$(Bits$e)); - var _term_prop$8 = Kind$Term$app$(_term_prop$7, $1810); - var $1812 = Pair$new$(_term_prop$8, $1811); - var $1809 = $1812; + var _term_prop$8 = Kind$Term$app$(_term_prop$7, $1850); + var $1852 = Pair$new$(_term_prop$8, $1851); + var $1849 = $1852; break; }; - return $1809; + return $1849; }; const Kind$Parser$dom$gen_prop = x0 => Kind$Parser$dom$gen_prop$(x0); const Kind$Parser$dom$for = Kind$Parser$block("for_dom")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1814 = self.err; + var $1854 = self.err; var _reply$7 = Kind$Parser$text$("for ", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1816 = self.err; - var self = $1814; + var $1856 = self.err; + var self = $1854; switch (self._) { case 'Maybe.some': - var $1818 = self.value; - var $1819 = Parser$Reply$error$(Parser$Error$combine$($1818, $1816)); - var $1817 = $1819; + var $1858 = self.value; + var $1859 = Parser$Reply$error$(Parser$Error$combine$($1858, $1856)); + var $1857 = $1859; break; case 'Maybe.none': - var $1820 = Parser$Reply$error$($1816); - var $1817 = $1820; + var $1860 = Parser$Reply$error$($1856); + var $1857 = $1860; break; }; - var $1815 = $1817; + var $1855 = $1857; break; case 'Parser.Reply.value': - var $1821 = self.pst; - var self = $1821; + var $1861 = self.pst; + var self = $1861; switch (self._) { case 'Parser.State.new': - var $1823 = self.err; - var $1824 = self.nam; - var $1825 = self.ini; - var $1826 = self.idx; - var $1827 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1814, $1823), $1824, $1825, $1826, $1827); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $1829 = self.err; - var _reply$21 = Kind$Parser$name1$(_reply$pst$15); - var self = _reply$21; + var $1863 = self.err; + var $1864 = self.nam; + var $1865 = self.ini; + var $1866 = self.idx; + var $1867 = self.str; + var $1868 = ((console.log(("FALTANDO " + $1867)), (_$15 => { + var $1869 = ((console.log(("VALUE " + $1864)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1854, $1863), $1864, $1865, $1866, $1867); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $1831 = self.err; - var self = $1829; + case 'Parser.State.new': + var $1871 = self.err; + var _reply$23 = Kind$Parser$name1$(_reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $1833 = self.value; - var $1834 = Parser$Reply$error$(Parser$Error$combine$($1833, $1831)); - var $1832 = $1834; - break; - case 'Maybe.none': - var $1835 = Parser$Reply$error$($1831); - var $1832 = $1835; - break; - }; - var $1830 = $1832; - break; - case 'Parser.Reply.value': - var $1836 = self.pst; - var $1837 = self.val; - var self = $1836; - switch (self._) { - case 'Parser.State.new': - var $1839 = self.err; - var $1840 = self.nam; - var $1841 = self.ini; - var $1842 = self.idx; - var $1843 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1829, $1839), $1840, $1841, $1842, $1843); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $1873 = self.err; + var self = $1871; switch (self._) { - case 'Parser.State.new': - var $1845 = self.err; - var _reply$35 = Kind$Parser$text$("in", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $1847 = self.err; - var self = $1845; - switch (self._) { - case 'Maybe.some': - var $1849 = self.value; - var $1850 = Parser$Reply$error$(Parser$Error$combine$($1849, $1847)); - var $1848 = $1850; - break; - case 'Maybe.none': - var $1851 = Parser$Reply$error$($1847); - var $1848 = $1851; - break; - }; - var $1846 = $1848; - break; - case 'Parser.Reply.value': - var $1852 = self.pst; - var self = $1852; - switch (self._) { - case 'Parser.State.new': - var $1854 = self.err; - var $1855 = self.nam; - var $1856 = self.ini; - var $1857 = self.idx; - var $1858 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($1845, $1854), $1855, $1856, $1857, $1858); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $1860 = self.err; - var _reply$49 = Kind$Parser$term(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $1862 = self.err; - var self = $1860; - switch (self._) { - case 'Maybe.some': - var $1864 = self.value; - var $1865 = Parser$Reply$error$(Parser$Error$combine$($1864, $1862)); - var $1863 = $1865; - break; - case 'Maybe.none': - var $1866 = Parser$Reply$error$($1862); - var $1863 = $1866; - break; - }; - var $1861 = $1863; - break; - case 'Parser.Reply.value': - var $1867 = self.pst; - var $1868 = self.val; - var self = $1867; - switch (self._) { - case 'Parser.State.new': - var $1870 = self.err; - var $1871 = self.nam; - var $1872 = self.ini; - var $1873 = self.idx; - var $1874 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($1860, $1870), $1871, $1872, $1873, $1874); - var _empty_list$58 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); - var _list_cons$59 = Kind$Term$app$(Kind$Term$ref$("List.cons"), Kind$Term$hol$(Bits$e)); - var _empty_map$60 = Kind$Term$app$(Kind$Term$ref$("Map.new"), Kind$Term$hol$(Bits$e)); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $1876 = self.err; - var _reply$66 = Kind$Parser$text$(":", _reply$pst$57); - var self = _reply$66; - switch (self._) { - case 'Parser.Reply.error': - var $1878 = self.err; - var self = $1876; - switch (self._) { - case 'Maybe.some': - var $1880 = self.value; - var $1881 = Parser$Reply$error$(Parser$Error$combine$($1880, $1878)); - var $1879 = $1881; - break; - case 'Maybe.none': - var $1882 = Parser$Reply$error$($1878); - var $1879 = $1882; - break; - }; - var $1877 = $1879; - break; - case 'Parser.Reply.value': - var $1883 = self.pst; - var self = $1883; - switch (self._) { - case 'Parser.State.new': - var $1885 = self.err; - var $1886 = self.nam; - var $1887 = self.ini; - var $1888 = self.idx; - var $1889 = self.str; - var _reply$pst$74 = Parser$State$new$(Parser$Error$maybe_combine$($1876, $1885), $1886, $1887, $1888, $1889); - var self = _reply$pst$74; - switch (self._) { - case 'Parser.State.new': - var $1891 = self.err; - var _reply$80 = Kind$Parser$term(_reply$pst$74); - var self = _reply$80; - switch (self._) { - case 'Parser.Reply.error': - var $1893 = self.err; - var self = $1891; - switch (self._) { - case 'Maybe.some': - var $1895 = self.value; - var $1896 = Parser$Reply$error$(Parser$Error$combine$($1895, $1893)); - var $1894 = $1896; - break; - case 'Maybe.none': - var $1897 = Parser$Reply$error$($1893); - var $1894 = $1897; - break; - }; - var $1892 = $1894; - break; - case 'Parser.Reply.value': - var $1898 = self.pst; - var $1899 = self.val; - var self = $1898; - switch (self._) { - case 'Parser.State.new': - var $1901 = self.err; - var $1902 = self.nam; - var $1903 = self.ini; - var $1904 = self.idx; - var $1905 = self.str; - var _reply$pst$88 = Parser$State$new$(Parser$Error$maybe_combine$($1891, $1901), $1902, $1903, $1904, $1905); - var _term$89 = Kind$Term$ref$("List.fold"); - var _term$90 = Kind$Term$app$(_term$89, Kind$Term$hol$(Bits$e)); - var _term$91 = Kind$Term$app$(_term$90, $1868); - var _term$92 = Kind$Term$app$(_term$91, Kind$Term$hol$(Bits$e)); - var _term$93 = Kind$Term$app$(_term$92, _empty_list$58); - var _lamb$94 = Kind$Term$lam$($1837, (_i$94 => { - var $1907 = Kind$Term$lam$("placeholder", (_b$95 => { - var $1908 = Kind$Term$app$(Kind$Term$app$(_list_cons$59, $1899), _b$95); - return $1908; - })); - return $1907; - })); - var _term$95 = Kind$Term$app$(_term$93, _lamb$94); - var _display_content$96 = Kind$Term$app$(Kind$Term$ref$("Map.set"), Kind$Term$hol$(Bits$e)); - var _display_content$97 = Kind$Term$app$(_display_content$96, Kind$Term$str$("display")); - var _display_content$98 = Kind$Term$app$(_display_content$97, Kind$Term$str$("contents")); - var _display_content$99 = Kind$Term$app$(_display_content$98, _empty_map$60); - var _root$100 = Kind$Term$ref$("DOM.node"); - var _root$101 = Kind$Term$app$(_root$100, Kind$Term$str$("div")); - var _root$102 = Kind$Term$app$(_root$101, _empty_map$60); - var _root$103 = Kind$Term$app$(_root$102, _display_content$99); - var _root$104 = Kind$Term$app$(_root$103, _term$95); - var $1906 = Parser$Reply$value$(_reply$pst$88, _root$104); - var $1900 = $1906; - break; - }; - var $1892 = $1900; - break; - }; - var $1890 = $1892; - break; - }; - var $1884 = $1890; - break; - }; - var $1877 = $1884; - break; - }; - var $1875 = $1877; - break; - }; - var $1869 = $1875; - break; - }; - var $1861 = $1869; - break; - }; - var $1859 = $1861; - break; - }; - var $1853 = $1859; - break; - }; - var $1846 = $1853; - break; - }; - var $1844 = $1846; + case 'Maybe.some': + var $1875 = self.value; + var $1876 = Parser$Reply$error$(Parser$Error$combine$($1875, $1873)); + var $1874 = $1876; + break; + case 'Maybe.none': + var $1877 = Parser$Reply$error$($1873); + var $1874 = $1877; break; }; - var $1838 = $1844; + var $1872 = $1874; + break; + case 'Parser.Reply.value': + var $1878 = self.pst; + var $1879 = self.val; + var self = $1878; + switch (self._) { + case 'Parser.State.new': + var $1881 = self.err; + var $1882 = self.nam; + var $1883 = self.ini; + var $1884 = self.idx; + var $1885 = self.str; + var $1886 = ((console.log(("FALTANDO " + $1885)), (_$31 => { + var $1887 = ((console.log(("VALUE " + $1882)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1871, $1881), $1882, $1883, $1884, $1885); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $1889 = self.err; + var _reply$39 = Kind$Parser$text$("in", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $1891 = self.err; + var self = $1889; + switch (self._) { + case 'Maybe.some': + var $1893 = self.value; + var $1894 = Parser$Reply$error$(Parser$Error$combine$($1893, $1891)); + var $1892 = $1894; + break; + case 'Maybe.none': + var $1895 = Parser$Reply$error$($1891); + var $1892 = $1895; + break; + }; + var $1890 = $1892; + break; + case 'Parser.Reply.value': + var $1896 = self.pst; + var self = $1896; + switch (self._) { + case 'Parser.State.new': + var $1898 = self.err; + var $1899 = self.nam; + var $1900 = self.ini; + var $1901 = self.idx; + var $1902 = self.str; + var $1903 = ((console.log(("FALTANDO " + $1902)), (_$47 => { + var $1904 = ((console.log(("VALUE " + $1899)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($1889, $1898), $1899, $1900, $1901, $1902); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $1906 = self.err; + var _reply$55 = Kind$Parser$term(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $1908 = self.err; + var self = $1906; + switch (self._) { + case 'Maybe.some': + var $1910 = self.value; + var $1911 = Parser$Reply$error$(Parser$Error$combine$($1910, $1908)); + var $1909 = $1911; + break; + case 'Maybe.none': + var $1912 = Parser$Reply$error$($1908); + var $1909 = $1912; + break; + }; + var $1907 = $1909; + break; + case 'Parser.Reply.value': + var $1913 = self.pst; + var $1914 = self.val; + var self = $1913; + switch (self._) { + case 'Parser.State.new': + var $1916 = self.err; + var $1917 = self.nam; + var $1918 = self.ini; + var $1919 = self.idx; + var $1920 = self.str; + var $1921 = ((console.log(("FALTANDO " + $1920)), (_$63 => { + var $1922 = ((console.log(("VALUE " + $1917)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($1906, $1916), $1917, $1918, $1919, $1920); + var _empty_list$66 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); + var _list_cons$67 = Kind$Term$app$(Kind$Term$ref$("List.cons"), Kind$Term$hol$(Bits$e)); + var _empty_map$68 = Kind$Term$app$(Kind$Term$ref$("Map.new"), Kind$Term$hol$(Bits$e)); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $1924 = self.err; + var _reply$74 = Kind$Parser$text$(":", _reply$pst$65); + var self = _reply$74; + switch (self._) { + case 'Parser.Reply.error': + var $1926 = self.err; + var self = $1924; + switch (self._) { + case 'Maybe.some': + var $1928 = self.value; + var $1929 = Parser$Reply$error$(Parser$Error$combine$($1928, $1926)); + var $1927 = $1929; + break; + case 'Maybe.none': + var $1930 = Parser$Reply$error$($1926); + var $1927 = $1930; + break; + }; + var $1925 = $1927; + break; + case 'Parser.Reply.value': + var $1931 = self.pst; + var self = $1931; + switch (self._) { + case 'Parser.State.new': + var $1933 = self.err; + var $1934 = self.nam; + var $1935 = self.ini; + var $1936 = self.idx; + var $1937 = self.str; + var $1938 = ((console.log(("FALTANDO " + $1937)), (_$82 => { + var $1939 = ((console.log(("VALUE " + $1934)), (_$83 => { + var _reply$pst$84 = Parser$State$new$(Parser$Error$maybe_combine$($1924, $1933), $1934, $1935, $1936, $1937); + var self = _reply$pst$84; + switch (self._) { + case 'Parser.State.new': + var $1941 = self.err; + var _reply$90 = Kind$Parser$term(_reply$pst$84); + var self = _reply$90; + switch (self._) { + case 'Parser.Reply.error': + var $1943 = self.err; + var self = $1941; + switch (self._) { + case 'Maybe.some': + var $1945 = self.value; + var $1946 = Parser$Reply$error$(Parser$Error$combine$($1945, $1943)); + var $1944 = $1946; + break; + case 'Maybe.none': + var $1947 = Parser$Reply$error$($1943); + var $1944 = $1947; + break; + }; + var $1942 = $1944; + break; + case 'Parser.Reply.value': + var $1948 = self.pst; + var $1949 = self.val; + var self = $1948; + switch (self._) { + case 'Parser.State.new': + var $1951 = self.err; + var $1952 = self.nam; + var $1953 = self.ini; + var $1954 = self.idx; + var $1955 = self.str; + var $1956 = ((console.log(("FALTANDO " + $1955)), (_$98 => { + var $1957 = ((console.log(("VALUE " + $1952)), (_$99 => { + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($1941, $1951), $1952, $1953, $1954, $1955); + var _term$101 = Kind$Term$ref$("List.fold"); + var _term$102 = Kind$Term$app$(_term$101, Kind$Term$hol$(Bits$e)); + var _term$103 = Kind$Term$app$(_term$102, $1914); + var _term$104 = Kind$Term$app$(_term$103, Kind$Term$hol$(Bits$e)); + var _term$105 = Kind$Term$app$(_term$104, _empty_list$66); + var _lamb$106 = Kind$Term$lam$($1879, (_i$106 => { + var $1959 = Kind$Term$lam$("placeholder", (_b$107 => { + var $1960 = Kind$Term$app$(Kind$Term$app$(_list_cons$67, $1949), _b$107); + return $1960; + })); + return $1959; + })); + var _term$107 = Kind$Term$app$(_term$105, _lamb$106); + var _display_content$108 = Kind$Term$app$(Kind$Term$ref$("Map.set"), Kind$Term$hol$(Bits$e)); + var _display_content$109 = Kind$Term$app$(_display_content$108, Kind$Term$str$("display")); + var _display_content$110 = Kind$Term$app$(_display_content$109, Kind$Term$str$("contents")); + var _display_content$111 = Kind$Term$app$(_display_content$110, _empty_map$68); + var _root$112 = Kind$Term$ref$("DOM.node"); + var _root$113 = Kind$Term$app$(_root$112, Kind$Term$str$("div")); + var _root$114 = Kind$Term$app$(_root$113, _empty_map$68); + var _root$115 = Kind$Term$app$(_root$114, _display_content$111); + var _root$116 = Kind$Term$app$(_root$115, _term$107); + var $1958 = Parser$Reply$value$(_reply$pst$100, _root$116); + return $1958; + })())); + return $1957; + })())); + var $1950 = $1956; + break; + }; + var $1942 = $1950; + break; + }; + var $1940 = $1942; + break; + }; + return $1940; + })())); + return $1939; + })())); + var $1932 = $1938; + break; + }; + var $1925 = $1932; + break; + }; + var $1923 = $1925; + break; + }; + return $1923; + })())); + return $1922; + })())); + var $1915 = $1921; + break; + }; + var $1907 = $1915; + break; + }; + var $1905 = $1907; + break; + }; + return $1905; + })())); + return $1904; + })())); + var $1897 = $1903; + break; + }; + var $1890 = $1897; + break; + }; + var $1888 = $1890; + break; + }; + return $1888; + })())); + return $1887; + })())); + var $1880 = $1886; + break; + }; + var $1872 = $1880; break; }; - var $1830 = $1838; + var $1870 = $1872; break; }; - var $1828 = $1830; - break; - }; - var $1822 = $1828; + return $1870; + })())); + return $1869; + })())); + var $1862 = $1868; break; }; - var $1815 = $1822; + var $1855 = $1862; break; }; - var $1813 = $1815; + var $1853 = $1855; break; }; - return $1813; + return $1853; })); const Kind$Parser$dom$dynamic = Kind$Parser$block("DOM_dynamic")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1910 = self.err; + var $1962 = self.err; var _reply$7 = Kind$Parser$text$("{", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1912 = self.err; - var self = $1910; + var $1964 = self.err; + var self = $1962; switch (self._) { case 'Maybe.some': - var $1914 = self.value; - var $1915 = Parser$Reply$error$(Parser$Error$combine$($1914, $1912)); - var $1913 = $1915; + var $1966 = self.value; + var $1967 = Parser$Reply$error$(Parser$Error$combine$($1966, $1964)); + var $1965 = $1967; break; case 'Maybe.none': - var $1916 = Parser$Reply$error$($1912); - var $1913 = $1916; + var $1968 = Parser$Reply$error$($1964); + var $1965 = $1968; break; }; - var $1911 = $1913; + var $1963 = $1965; break; case 'Parser.Reply.value': - var $1917 = self.pst; - var self = $1917; + var $1969 = self.pst; + var self = $1969; switch (self._) { case 'Parser.State.new': - var $1919 = self.err; - var $1920 = self.nam; - var $1921 = self.ini; - var $1922 = self.idx; - var $1923 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1910, $1919), $1920, $1921, $1922, $1923); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $1925 = self.err; - var _reply$21 = Parser$choice$(List$cons$(Kind$Parser$term, List$nil), _reply$pst$15); - var self = _reply$21; + var $1971 = self.err; + var $1972 = self.nam; + var $1973 = self.ini; + var $1974 = self.idx; + var $1975 = self.str; + var $1976 = ((console.log(("FALTANDO " + $1975)), (_$15 => { + var $1977 = ((console.log(("VALUE " + $1972)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1962, $1971), $1972, $1973, $1974, $1975); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $1927 = self.err; - var self = $1925; + case 'Parser.State.new': + var $1979 = self.err; + var _reply$23 = Parser$choice$(List$cons$(Kind$Parser$term, List$nil), _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $1929 = self.value; - var $1930 = Parser$Reply$error$(Parser$Error$combine$($1929, $1927)); - var $1928 = $1930; - break; - case 'Maybe.none': - var $1931 = Parser$Reply$error$($1927); - var $1928 = $1931; - break; - }; - var $1926 = $1928; - break; - case 'Parser.Reply.value': - var $1932 = self.pst; - var $1933 = self.val; - var self = $1932; - switch (self._) { - case 'Parser.State.new': - var $1935 = self.err; - var $1936 = self.nam; - var $1937 = self.ini; - var $1938 = self.idx; - var $1939 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1925, $1935), $1936, $1937, $1938, $1939); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $1981 = self.err; + var self = $1979; switch (self._) { - case 'Parser.State.new': - var $1941 = self.err; - var _reply$35 = Kind$Parser$text$("}", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $1943 = self.err; - var self = $1941; - switch (self._) { - case 'Maybe.some': - var $1945 = self.value; - var $1946 = Parser$Reply$error$(Parser$Error$combine$($1945, $1943)); - var $1944 = $1946; - break; - case 'Maybe.none': - var $1947 = Parser$Reply$error$($1943); - var $1944 = $1947; - break; - }; - var $1942 = $1944; - break; - case 'Parser.Reply.value': - var $1948 = self.pst; - var self = $1948; - switch (self._) { - case 'Parser.State.new': - var $1950 = self.err; - var $1951 = self.nam; - var $1952 = self.ini; - var $1953 = self.idx; - var $1954 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($1941, $1950), $1951, $1952, $1953, $1954); - var $1955 = Parser$Reply$value$(_reply$pst$43, $1933); - var $1949 = $1955; - break; - }; - var $1942 = $1949; - break; - }; - var $1940 = $1942; + case 'Maybe.some': + var $1983 = self.value; + var $1984 = Parser$Reply$error$(Parser$Error$combine$($1983, $1981)); + var $1982 = $1984; + break; + case 'Maybe.none': + var $1985 = Parser$Reply$error$($1981); + var $1982 = $1985; break; }; - var $1934 = $1940; + var $1980 = $1982; + break; + case 'Parser.Reply.value': + var $1986 = self.pst; + var $1987 = self.val; + var self = $1986; + switch (self._) { + case 'Parser.State.new': + var $1989 = self.err; + var $1990 = self.nam; + var $1991 = self.ini; + var $1992 = self.idx; + var $1993 = self.str; + var $1994 = ((console.log(("FALTANDO " + $1993)), (_$31 => { + var $1995 = ((console.log(("VALUE " + $1990)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1979, $1989), $1990, $1991, $1992, $1993); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $1997 = self.err; + var _reply$39 = Kind$Parser$text$("}", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $1999 = self.err; + var self = $1997; + switch (self._) { + case 'Maybe.some': + var $2001 = self.value; + var $2002 = Parser$Reply$error$(Parser$Error$combine$($2001, $1999)); + var $2000 = $2002; + break; + case 'Maybe.none': + var $2003 = Parser$Reply$error$($1999); + var $2000 = $2003; + break; + }; + var $1998 = $2000; + break; + case 'Parser.Reply.value': + var $2004 = self.pst; + var self = $2004; + switch (self._) { + case 'Parser.State.new': + var $2006 = self.err; + var $2007 = self.nam; + var $2008 = self.ini; + var $2009 = self.idx; + var $2010 = self.str; + var $2011 = ((console.log(("FALTANDO " + $2010)), (_$47 => { + var $2012 = ((console.log(("VALUE " + $2007)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($1997, $2006), $2007, $2008, $2009, $2010); + var $2013 = Parser$Reply$value$(_reply$pst$49, $1987); + return $2013; + })())); + return $2012; + })())); + var $2005 = $2011; + break; + }; + var $1998 = $2005; + break; + }; + var $1996 = $1998; + break; + }; + return $1996; + })())); + return $1995; + })())); + var $1988 = $1994; + break; + }; + var $1980 = $1988; break; }; - var $1926 = $1934; + var $1978 = $1980; break; }; - var $1924 = $1926; - break; - }; - var $1918 = $1924; + return $1978; + })())); + return $1977; + })())); + var $1970 = $1976; break; }; - var $1911 = $1918; + var $1963 = $1970; break; }; - var $1909 = $1911; + var $1961 = $1963; break; }; - return $1909; + return $1961; })); const Kind$Parser$dom$text = Kind$Parser$block("DOM_text")((() => { var _term$1 = Kind$Term$ref$("DOM.text"); - var $1956 = (_pst$2 => { + var $2014 = (_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $1958 = self.err; + var $2016 = self.err; var _reply$8 = Kind$Parser$term(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $1960 = self.err; - var self = $1958; + var $2018 = self.err; + var self = $2016; switch (self._) { case 'Maybe.some': - var $1962 = self.value; - var $1963 = Parser$Reply$error$(Parser$Error$combine$($1962, $1960)); - var $1961 = $1963; + var $2020 = self.value; + var $2021 = Parser$Reply$error$(Parser$Error$combine$($2020, $2018)); + var $2019 = $2021; break; case 'Maybe.none': - var $1964 = Parser$Reply$error$($1960); - var $1961 = $1964; + var $2022 = Parser$Reply$error$($2018); + var $2019 = $2022; break; }; - var $1959 = $1961; + var $2017 = $2019; break; case 'Parser.Reply.value': - var $1965 = self.pst; - var $1966 = self.val; - var self = $1965; + var $2023 = self.pst; + var $2024 = self.val; + var self = $2023; switch (self._) { case 'Parser.State.new': - var $1968 = self.err; - var $1969 = self.nam; - var $1970 = self.ini; - var $1971 = self.idx; - var $1972 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($1958, $1968), $1969, $1970, $1971, $1972); - var _term$17 = Kind$Term$app$(_term$1, $1966); - var $1973 = Parser$Reply$value$(_reply$pst$16, _term$17); - var $1967 = $1973; + var $2026 = self.err; + var $2027 = self.nam; + var $2028 = self.ini; + var $2029 = self.idx; + var $2030 = self.str; + var $2031 = ((console.log(("FALTANDO " + $2030)), (_$16 => { + var $2032 = ((console.log(("VALUE " + $2027)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($2016, $2026), $2027, $2028, $2029, $2030); + var _term$19 = Kind$Term$app$(_term$1, $2024); + var $2033 = Parser$Reply$value$(_reply$pst$18, _term$19); + return $2033; + })())); + return $2032; + })())); + var $2025 = $2031; break; }; - var $1959 = $1967; + var $2017 = $2025; break; }; - var $1957 = $1959; + var $2015 = $2017; break; }; - return $1957; + return $2015; }); - return $1956; + return $2014; })()); const Kind$Parser$dom$leaf = Kind$Parser$block("DOM_leaf")(Parser$choice(List$cons$(Kind$Parser$dom$for, List$cons$(Kind$Parser$dom$dynamic, List$cons$(Kind$Parser$dom$text, List$nil))))); @@ -7599,725 +7780,809 @@ module.exports = (function() { var self = _a$1; switch (self._) { case 'List.cons': - var $1975 = self.head; - var $1976 = self.tail; + var $2035 = self.head; + var $2036 = self.tail; var _term$4 = Kind$Term$app$(Kind$Term$ref$("List.cons"), Kind$Term$hol$(Bits$e)); - var _term$5 = Kind$Term$app$(_term$4, $1975); - var _term$6 = Kind$Term$app$(_term$5, Kind$Parser$dom$transform_children$($1976)); - var $1977 = _term$6; - var $1974 = $1977; + var _term$5 = Kind$Term$app$(_term$4, $2035); + var _term$6 = Kind$Term$app$(_term$5, Kind$Parser$dom$transform_children$($2036)); + var $2037 = _term$6; + var $2034 = $2037; break; case 'List.nil': - var $1978 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); - var $1974 = $1978; + var $2038 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); + var $2034 = $2038; break; }; - return $1974; + return $2034; }; const Kind$Parser$dom$transform_children = x0 => Kind$Parser$dom$transform_children$(x0); const Kind$Parser$dom$node = Kind$Parser$block("DOM.node")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1980 = self.err; + var $2040 = self.err; var _reply$7 = Kind$Parser$text$("<", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1982 = self.err; - var self = $1980; + var $2042 = self.err; + var self = $2040; switch (self._) { case 'Maybe.some': - var $1984 = self.value; - var $1985 = Parser$Reply$error$(Parser$Error$combine$($1984, $1982)); - var $1983 = $1985; + var $2044 = self.value; + var $2045 = Parser$Reply$error$(Parser$Error$combine$($2044, $2042)); + var $2043 = $2045; break; case 'Maybe.none': - var $1986 = Parser$Reply$error$($1982); - var $1983 = $1986; + var $2046 = Parser$Reply$error$($2042); + var $2043 = $2046; break; }; - var $1981 = $1983; + var $2041 = $2043; break; case 'Parser.Reply.value': - var $1987 = self.pst; - var self = $1987; + var $2047 = self.pst; + var self = $2047; switch (self._) { case 'Parser.State.new': - var $1989 = self.err; - var $1990 = self.nam; - var $1991 = self.ini; - var $1992 = self.idx; - var $1993 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1980, $1989), $1990, $1991, $1992, $1993); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $1995 = self.err; - var _reply$21 = Kind$Parser$name1$(_reply$pst$15); - var self = _reply$21; + var $2049 = self.err; + var $2050 = self.nam; + var $2051 = self.ini; + var $2052 = self.idx; + var $2053 = self.str; + var $2054 = ((console.log(("FALTANDO " + $2053)), (_$15 => { + var $2055 = ((console.log(("VALUE " + $2050)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2040, $2049), $2050, $2051, $2052, $2053); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $1997 = self.err; - var self = $1995; + case 'Parser.State.new': + var $2057 = self.err; + var _reply$23 = Kind$Parser$name1$(_reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $1999 = self.value; - var $2000 = Parser$Reply$error$(Parser$Error$combine$($1999, $1997)); - var $1998 = $2000; + case 'Parser.Reply.error': + var $2059 = self.err; + var self = $2057; + switch (self._) { + case 'Maybe.some': + var $2061 = self.value; + var $2062 = Parser$Reply$error$(Parser$Error$combine$($2061, $2059)); + var $2060 = $2062; + break; + case 'Maybe.none': + var $2063 = Parser$Reply$error$($2059); + var $2060 = $2063; + break; + }; + var $2058 = $2060; break; - case 'Maybe.none': - var $2001 = Parser$Reply$error$($1997); - var $1998 = $2001; - break; - }; - var $1996 = $1998; - break; - case 'Parser.Reply.value': - var $2002 = self.pst; - var $2003 = self.val; - var self = $2002; - switch (self._) { - case 'Parser.State.new': - var $2005 = self.err; - var $2006 = self.nam; - var $2007 = self.ini; - var $2008 = self.idx; - var $2009 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1995, $2005), $2006, $2007, $2008, $2009); - var self = _reply$pst$29; + case 'Parser.Reply.value': + var $2064 = self.pst; + var $2065 = self.val; + var self = $2064; switch (self._) { case 'Parser.State.new': - var $2011 = self.err; - var _reply$35 = Kind$Parser$spaces(_reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $2013 = self.err; - var self = $2011; - switch (self._) { - case 'Maybe.some': - var $2015 = self.value; - var $2016 = Parser$Reply$error$(Parser$Error$combine$($2015, $2013)); - var $2014 = $2016; - break; - case 'Maybe.none': - var $2017 = Parser$Reply$error$($2013); - var $2014 = $2017; - break; - }; - var $2012 = $2014; - break; - case 'Parser.Reply.value': - var $2018 = self.pst; - var self = $2018; + var $2067 = self.err; + var $2068 = self.nam; + var $2069 = self.ini; + var $2070 = self.idx; + var $2071 = self.str; + var $2072 = ((console.log(("FALTANDO " + $2071)), (_$31 => { + var $2073 = ((console.log(("VALUE " + $2068)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($2057, $2067), $2068, $2069, $2070, $2071); + var self = _reply$pst$33; switch (self._) { case 'Parser.State.new': - var $2020 = self.err; - var $2021 = self.nam; - var $2022 = self.ini; - var $2023 = self.idx; - var $2024 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($2011, $2020), $2021, $2022, $2023, $2024); - var self = _reply$pst$43; + var $2075 = self.err; + var _reply$39 = Kind$Parser$spaces(_reply$pst$33); + var self = _reply$39; switch (self._) { - case 'Parser.State.new': - var $2026 = self.err; - var _reply$49 = Parser$until$(Kind$Parser$text(">"), Kind$Parser$dom$prop)(_reply$pst$43); - var self = _reply$49; + case 'Parser.Reply.error': + var $2077 = self.err; + var self = $2075; switch (self._) { - case 'Parser.Reply.error': - var $2028 = self.err; - var self = $2026; - switch (self._) { - case 'Maybe.some': - var $2030 = self.value; - var $2031 = Parser$Reply$error$(Parser$Error$combine$($2030, $2028)); - var $2029 = $2031; - break; - case 'Maybe.none': - var $2032 = Parser$Reply$error$($2028); - var $2029 = $2032; - break; - }; - var $2027 = $2029; + case 'Maybe.some': + var $2079 = self.value; + var $2080 = Parser$Reply$error$(Parser$Error$combine$($2079, $2077)); + var $2078 = $2080; break; - case 'Parser.Reply.value': - var $2033 = self.pst; - var $2034 = self.val; - var self = $2033; - switch (self._) { - case 'Parser.State.new': - var $2036 = self.err; - var $2037 = self.nam; - var $2038 = self.ini; - var $2039 = self.idx; - var $2040 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($2026, $2036), $2037, $2038, $2039, $2040); - var _props$58 = Kind$Parser$dom$gen_prop$($2034); - var self = _reply$pst$57; + case 'Maybe.none': + var $2081 = Parser$Reply$error$($2077); + var $2078 = $2081; + break; + }; + var $2076 = $2078; + break; + case 'Parser.Reply.value': + var $2082 = self.pst; + var self = $2082; + switch (self._) { + case 'Parser.State.new': + var $2084 = self.err; + var $2085 = self.nam; + var $2086 = self.ini; + var $2087 = self.idx; + var $2088 = self.str; + var $2089 = ((console.log(("FALTANDO " + $2088)), (_$47 => { + var $2090 = ((console.log(("VALUE " + $2085)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($2075, $2084), $2085, $2086, $2087, $2088); + var self = _reply$pst$49; switch (self._) { case 'Parser.State.new': - var $2042 = self.err; - var _reply$64 = Parser$many$(Parser$choice(List$cons$(Kind$Parser$dom$node, List$cons$(Kind$Parser$dom$leaf, List$nil))))(_reply$pst$57); - var self = _reply$64; + var $2092 = self.err; + var _reply$55 = Parser$until$(Kind$Parser$text(">"), Kind$Parser$dom$prop)(_reply$pst$49); + var self = _reply$55; switch (self._) { case 'Parser.Reply.error': - var $2044 = self.err; - var self = $2042; + var $2094 = self.err; + var self = $2092; switch (self._) { case 'Maybe.some': - var $2046 = self.value; - var $2047 = Parser$Reply$error$(Parser$Error$combine$($2046, $2044)); - var $2045 = $2047; + var $2096 = self.value; + var $2097 = Parser$Reply$error$(Parser$Error$combine$($2096, $2094)); + var $2095 = $2097; break; case 'Maybe.none': - var $2048 = Parser$Reply$error$($2044); - var $2045 = $2048; + var $2098 = Parser$Reply$error$($2094); + var $2095 = $2098; break; }; - var $2043 = $2045; + var $2093 = $2095; break; case 'Parser.Reply.value': - var $2049 = self.pst; - var $2050 = self.val; - var self = $2049; + var $2099 = self.pst; + var $2100 = self.val; + var self = $2099; switch (self._) { case 'Parser.State.new': - var $2052 = self.err; - var $2053 = self.nam; - var $2054 = self.ini; - var $2055 = self.idx; - var $2056 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($2042, $2052), $2053, $2054, $2055, $2056); - var _children$73 = Kind$Parser$dom$transform_children$($2050); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $2058 = self.err; - var _reply$79 = Kind$Parser$text$(("")), _reply$pst$72); - var self = _reply$79; + var $2102 = self.err; + var $2103 = self.nam; + var $2104 = self.ini; + var $2105 = self.idx; + var $2106 = self.str; + var $2107 = ((console.log(("FALTANDO " + $2106)), (_$63 => { + var $2108 = ((console.log(("VALUE " + $2103)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($2092, $2102), $2103, $2104, $2105, $2106); + var _props$66 = Kind$Parser$dom$gen_prop$($2100); + var self = _reply$pst$65; switch (self._) { - case 'Parser.Reply.error': - var $2060 = self.err; - var self = $2058; + case 'Parser.State.new': + var $2110 = self.err; + var _reply$72 = Parser$many$(Parser$choice(List$cons$(Kind$Parser$dom$node, List$cons$(Kind$Parser$dom$leaf, List$nil))))(_reply$pst$65); + var self = _reply$72; switch (self._) { - case 'Maybe.some': - var $2062 = self.value; - var $2063 = Parser$Reply$error$(Parser$Error$combine$($2062, $2060)); - var $2061 = $2063; + case 'Parser.Reply.error': + var $2112 = self.err; + var self = $2110; + switch (self._) { + case 'Maybe.some': + var $2114 = self.value; + var $2115 = Parser$Reply$error$(Parser$Error$combine$($2114, $2112)); + var $2113 = $2115; + break; + case 'Maybe.none': + var $2116 = Parser$Reply$error$($2112); + var $2113 = $2116; + break; + }; + var $2111 = $2113; break; - case 'Maybe.none': - var $2064 = Parser$Reply$error$($2060); - var $2061 = $2064; + case 'Parser.Reply.value': + var $2117 = self.pst; + var $2118 = self.val; + var self = $2117; + switch (self._) { + case 'Parser.State.new': + var $2120 = self.err; + var $2121 = self.nam; + var $2122 = self.ini; + var $2123 = self.idx; + var $2124 = self.str; + var $2125 = ((console.log(("FALTANDO " + $2124)), (_$80 => { + var $2126 = ((console.log(("VALUE " + $2121)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($2110, $2120), $2121, $2122, $2123, $2124); + var _children$83 = Kind$Parser$dom$transform_children$($2118); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $2128 = self.err; + var _reply$89 = Kind$Parser$text$(("")), _reply$pst$82); + var self = _reply$89; + switch (self._) { + case 'Parser.Reply.error': + var $2130 = self.err; + var self = $2128; + switch (self._) { + case 'Maybe.some': + var $2132 = self.value; + var $2133 = Parser$Reply$error$(Parser$Error$combine$($2132, $2130)); + var $2131 = $2133; + break; + case 'Maybe.none': + var $2134 = Parser$Reply$error$($2130); + var $2131 = $2134; + break; + }; + var $2129 = $2131; + break; + case 'Parser.Reply.value': + var $2135 = self.pst; + var self = $2135; + switch (self._) { + case 'Parser.State.new': + var $2137 = self.err; + var $2138 = self.nam; + var $2139 = self.ini; + var $2140 = self.idx; + var $2141 = self.str; + var $2142 = ((console.log(("FALTANDO " + $2141)), (_$97 => { + var $2143 = ((console.log(("VALUE " + $2138)), (_$98 => { + var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($2128, $2137), $2138, $2139, $2140, $2141); + var _term$100 = Kind$Term$ref$("DOM.node"); + var _term$101 = Kind$Term$app$(_term$100, Kind$Term$str$($2065)); + var _term$102 = Kind$Term$app$(_term$101, (() => { + var self = _props$66; + switch (self._) { + case 'Pair.new': + var $2145 = self.fst; + var $2146 = $2145; + return $2146; + }; + })()); + var _term$103 = Kind$Term$app$(_term$102, (() => { + var self = _props$66; + switch (self._) { + case 'Pair.new': + var $2147 = self.snd; + var $2148 = $2147; + return $2148; + }; + })()); + var _term$104 = Kind$Term$app$(_term$103, _children$83); + var $2144 = Parser$Reply$value$(_reply$pst$99, _term$104); + return $2144; + })())); + return $2143; + })())); + var $2136 = $2142; + break; + }; + var $2129 = $2136; + break; + }; + var $2127 = $2129; + break; + }; + return $2127; + })())); + return $2126; + })())); + var $2119 = $2125; + break; + }; + var $2111 = $2119; break; }; - var $2059 = $2061; - break; - case 'Parser.Reply.value': - var $2065 = self.pst; - var self = $2065; - switch (self._) { - case 'Parser.State.new': - var $2067 = self.err; - var $2068 = self.nam; - var $2069 = self.ini; - var $2070 = self.idx; - var $2071 = self.str; - var _reply$pst$87 = Parser$State$new$(Parser$Error$maybe_combine$($2058, $2067), $2068, $2069, $2070, $2071); - var _term$88 = Kind$Term$ref$("DOM.node"); - var _term$89 = Kind$Term$app$(_term$88, Kind$Term$str$($2003)); - var _term$90 = Kind$Term$app$(_term$89, (() => { - var self = _props$58; - switch (self._) { - case 'Pair.new': - var $2073 = self.fst; - var $2074 = $2073; - return $2074; - }; - })()); - var _term$91 = Kind$Term$app$(_term$90, (() => { - var self = _props$58; - switch (self._) { - case 'Pair.new': - var $2075 = self.snd; - var $2076 = $2075; - return $2076; - }; - })()); - var _term$92 = Kind$Term$app$(_term$91, _children$73); - var $2072 = Parser$Reply$value$(_reply$pst$87, _term$92); - var $2066 = $2072; - break; - }; - var $2059 = $2066; + var $2109 = $2111; break; }; - var $2057 = $2059; - break; - }; - var $2051 = $2057; + return $2109; + })())); + return $2108; + })())); + var $2101 = $2107; break; }; - var $2043 = $2051; + var $2093 = $2101; break; }; - var $2041 = $2043; + var $2091 = $2093; break; }; - var $2035 = $2041; - break; - }; - var $2027 = $2035; + return $2091; + })())); + return $2090; + })())); + var $2083 = $2089; break; }; - var $2025 = $2027; + var $2076 = $2083; break; }; - var $2019 = $2025; + var $2074 = $2076; break; }; - var $2012 = $2019; - break; - }; - var $2010 = $2012; + return $2074; + })())); + return $2073; + })())); + var $2066 = $2072; break; }; - var $2004 = $2010; + var $2058 = $2066; break; }; - var $1996 = $2004; + var $2056 = $2058; break; }; - var $1994 = $1996; - break; - }; - var $1988 = $1994; + return $2056; + })())); + return $2055; + })())); + var $2048 = $2054; break; }; - var $1981 = $1988; + var $2041 = $2048; break; }; - var $1979 = $1981; + var $2039 = $2041; break; }; - return $1979; + return $2039; })); const Kind$Parser$dom = Kind$Parser$dom$node; - const Kind$Parser$forall = Kind$Parser$block("forall")((_pst$1 => { - var self = _pst$1; + const Kind$Parser$forall = Kind$Parser$block("forall")(((console.log("FORALL"), (_$1 => _pst$2 => { + var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $2078 = self.err; - var _reply$7 = Kind$Parser$name$(_pst$1); - var self = _reply$7; + var $2150 = self.err; + var _reply$8 = Kind$Parser$name$(_pst$2); + var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $2080 = self.err; - var self = $2078; + var $2152 = self.err; + var self = $2150; switch (self._) { case 'Maybe.some': - var $2082 = self.value; - var $2083 = Parser$Reply$error$(Parser$Error$combine$($2082, $2080)); - var $2081 = $2083; + var $2154 = self.value; + var $2155 = Parser$Reply$error$(Parser$Error$combine$($2154, $2152)); + var $2153 = $2155; break; case 'Maybe.none': - var $2084 = Parser$Reply$error$($2080); - var $2081 = $2084; + var $2156 = Parser$Reply$error$($2152); + var $2153 = $2156; break; }; - var $2079 = $2081; + var $2151 = $2153; break; case 'Parser.Reply.value': - var $2085 = self.pst; - var $2086 = self.val; - var self = $2085; + var $2157 = self.pst; + var $2158 = self.val; + var self = $2157; switch (self._) { case 'Parser.State.new': - var $2088 = self.err; - var $2089 = self.nam; - var $2090 = self.ini; - var $2091 = self.idx; - var $2092 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($2078, $2088), $2089, $2090, $2091, $2092); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $2094 = self.err; - var _reply$21 = Kind$Parser$binder$(":", _reply$pst$15); - var self = _reply$21; + var $2160 = self.err; + var $2161 = self.nam; + var $2162 = self.ini; + var $2163 = self.idx; + var $2164 = self.str; + var $2165 = ((console.log(("FALTANDO " + $2164)), (_$16 => { + var $2166 = ((console.log(("VALUE " + $2161)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($2150, $2160), $2161, $2162, $2163, $2164); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $2096 = self.err; - var self = $2094; + case 'Parser.State.new': + var $2168 = self.err; + var _reply$24 = Kind$Parser$binder$(":", _reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $2098 = self.value; - var $2099 = Parser$Reply$error$(Parser$Error$combine$($2098, $2096)); - var $2097 = $2099; - break; - case 'Maybe.none': - var $2100 = Parser$Reply$error$($2096); - var $2097 = $2100; - break; - }; - var $2095 = $2097; - break; - case 'Parser.Reply.value': - var $2101 = self.pst; - var $2102 = self.val; - var self = $2101; - switch (self._) { - case 'Parser.State.new': - var $2104 = self.err; - var $2105 = self.nam; - var $2106 = self.ini; - var $2107 = self.idx; - var $2108 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($2094, $2104), $2105, $2106, $2107, $2108); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $2170 = self.err; + var self = $2168; switch (self._) { - case 'Parser.State.new': - var $2110 = self.err; - var _reply$35 = Parser$maybe$(Kind$Parser$text("->"), _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $2112 = self.err; - var self = $2110; - switch (self._) { - case 'Maybe.some': - var $2114 = self.value; - var $2115 = Parser$Reply$error$(Parser$Error$combine$($2114, $2112)); - var $2113 = $2115; - break; - case 'Maybe.none': - var $2116 = Parser$Reply$error$($2112); - var $2113 = $2116; - break; - }; - var $2111 = $2113; - break; - case 'Parser.Reply.value': - var $2117 = self.pst; - var self = $2117; - switch (self._) { - case 'Parser.State.new': - var $2119 = self.err; - var $2120 = self.nam; - var $2121 = self.ini; - var $2122 = self.idx; - var $2123 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($2110, $2119), $2120, $2121, $2122, $2123); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $2125 = self.err; - var _reply$49 = Kind$Parser$term(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $2127 = self.err; - var self = $2125; - switch (self._) { - case 'Maybe.some': - var $2129 = self.value; - var $2130 = Parser$Reply$error$(Parser$Error$combine$($2129, $2127)); - var $2128 = $2130; - break; - case 'Maybe.none': - var $2131 = Parser$Reply$error$($2127); - var $2128 = $2131; - break; - }; - var $2126 = $2128; - break; - case 'Parser.Reply.value': - var $2132 = self.pst; - var $2133 = self.val; - var self = $2132; - switch (self._) { - case 'Parser.State.new': - var $2135 = self.err; - var $2136 = self.nam; - var $2137 = self.ini; - var $2138 = self.idx; - var $2139 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($2125, $2135), $2136, $2137, $2138, $2139); - var _term$58 = List$fold$($2102, $2133, (_x$58 => _t$59 => { - var self = _x$58; - switch (self._) { - case 'Kind.Binder.new': - var $2142 = self.eras; - var $2143 = self.name; - var $2144 = self.term; - var $2145 = Kind$Term$all$($2142, "", $2143, $2144, (_s$63 => _x$64 => { - var $2146 = _t$59; - return $2146; - })); - var $2141 = $2145; - break; - }; - return $2141; - })); - var $2140 = Parser$Reply$value$(_reply$pst$57, (() => { - var self = _term$58; - switch (self._) { - case 'Kind.Term.all': - var $2147 = self.eras; - var $2148 = self.name; - var $2149 = self.xtyp; - var $2150 = self.body; - var $2151 = Kind$Term$all$($2147, $2086, $2148, $2149, $2150); - return $2151; - case 'Kind.Term.var': - case 'Kind.Term.ref': - case 'Kind.Term.typ': - case 'Kind.Term.lam': - case 'Kind.Term.app': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - case 'Kind.Term.ori': - var $2152 = _term$58; - return $2152; - }; - })()); - var $2134 = $2140; - break; - }; - var $2126 = $2134; - break; - }; - var $2124 = $2126; - break; - }; - var $2118 = $2124; - break; - }; - var $2111 = $2118; - break; - }; - var $2109 = $2111; + case 'Maybe.some': + var $2172 = self.value; + var $2173 = Parser$Reply$error$(Parser$Error$combine$($2172, $2170)); + var $2171 = $2173; + break; + case 'Maybe.none': + var $2174 = Parser$Reply$error$($2170); + var $2171 = $2174; break; }; - var $2103 = $2109; + var $2169 = $2171; + break; + case 'Parser.Reply.value': + var $2175 = self.pst; + var $2176 = self.val; + var self = $2175; + switch (self._) { + case 'Parser.State.new': + var $2178 = self.err; + var $2179 = self.nam; + var $2180 = self.ini; + var $2181 = self.idx; + var $2182 = self.str; + var $2183 = ((console.log(("FALTANDO " + $2182)), (_$32 => { + var $2184 = ((console.log(("VALUE " + $2179)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($2168, $2178), $2179, $2180, $2181, $2182); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $2186 = self.err; + var _reply$40 = Kind$Parser$text$("->", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $2188 = self.err; + var self = $2186; + switch (self._) { + case 'Maybe.some': + var $2190 = self.value; + var $2191 = Parser$Reply$error$(Parser$Error$combine$($2190, $2188)); + var $2189 = $2191; + break; + case 'Maybe.none': + var $2192 = Parser$Reply$error$($2188); + var $2189 = $2192; + break; + }; + var $2187 = $2189; + break; + case 'Parser.Reply.value': + var $2193 = self.pst; + var self = $2193; + switch (self._) { + case 'Parser.State.new': + var $2195 = self.err; + var $2196 = self.nam; + var $2197 = self.ini; + var $2198 = self.idx; + var $2199 = self.str; + var $2200 = ((console.log(("FALTANDO " + $2199)), (_$48 => { + var $2201 = ((console.log(("VALUE " + $2196)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($2186, $2195), $2196, $2197, $2198, $2199); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $2203 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $2205 = self.err; + var self = $2203; + switch (self._) { + case 'Maybe.some': + var $2207 = self.value; + var $2208 = Parser$Reply$error$(Parser$Error$combine$($2207, $2205)); + var $2206 = $2208; + break; + case 'Maybe.none': + var $2209 = Parser$Reply$error$($2205); + var $2206 = $2209; + break; + }; + var $2204 = $2206; + break; + case 'Parser.Reply.value': + var $2210 = self.pst; + var $2211 = self.val; + var self = $2210; + switch (self._) { + case 'Parser.State.new': + var $2213 = self.err; + var $2214 = self.nam; + var $2215 = self.ini; + var $2216 = self.idx; + var $2217 = self.str; + var $2218 = ((console.log(("FALTANDO " + $2217)), (_$64 => { + var $2219 = ((console.log(("VALUE " + $2214)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($2203, $2213), $2214, $2215, $2216, $2217); + var _term$67 = List$fold$($2176, $2211, (_x$67 => _t$68 => { + var self = _x$67; + switch (self._) { + case 'Kind.Binder.new': + var $2222 = self.eras; + var $2223 = self.name; + var $2224 = self.term; + var $2225 = Kind$Term$all$($2222, "", $2223, $2224, (_s$72 => _x$73 => { + var $2226 = _t$68; + return $2226; + })); + var $2221 = $2225; + break; + }; + return $2221; + })); + var $2220 = Parser$Reply$value$(_reply$pst$66, (() => { + var self = _term$67; + switch (self._) { + case 'Kind.Term.all': + var $2227 = self.eras; + var $2228 = self.name; + var $2229 = self.xtyp; + var $2230 = self.body; + var $2231 = Kind$Term$all$($2227, $2158, $2228, $2229, $2230); + return $2231; + case 'Kind.Term.var': + case 'Kind.Term.ref': + case 'Kind.Term.typ': + case 'Kind.Term.lam': + case 'Kind.Term.app': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + case 'Kind.Term.ori': + var $2232 = _term$67; + return $2232; + }; + })()); + return $2220; + })())); + return $2219; + })())); + var $2212 = $2218; + break; + }; + var $2204 = $2212; + break; + }; + var $2202 = $2204; + break; + }; + return $2202; + })())); + return $2201; + })())); + var $2194 = $2200; + break; + }; + var $2187 = $2194; + break; + }; + var $2185 = $2187; + break; + }; + return $2185; + })())); + return $2184; + })())); + var $2177 = $2183; + break; + }; + var $2169 = $2177; break; }; - var $2095 = $2103; + var $2167 = $2169; break; }; - var $2093 = $2095; - break; - }; - var $2087 = $2093; + return $2167; + })())); + return $2166; + })())); + var $2159 = $2165; break; }; - var $2079 = $2087; + var $2151 = $2159; break; }; - var $2077 = $2079; + var $2149 = $2151; break; }; - return $2077; - })); + return $2149; + })()))); function Parser$wrap$(_opens$2, _parse$3, _close$4, _pst$5) { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $2154 = self.err; + var $2234 = self.err; var _reply$11 = _opens$2(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $2156 = self.err; - var self = $2154; + var $2236 = self.err; + var self = $2234; switch (self._) { case 'Maybe.some': - var $2158 = self.value; - var $2159 = Parser$Reply$error$(Parser$Error$combine$($2158, $2156)); - var $2157 = $2159; + var $2238 = self.value; + var $2239 = Parser$Reply$error$(Parser$Error$combine$($2238, $2236)); + var $2237 = $2239; break; case 'Maybe.none': - var $2160 = Parser$Reply$error$($2156); - var $2157 = $2160; + var $2240 = Parser$Reply$error$($2236); + var $2237 = $2240; break; }; - var $2155 = $2157; + var $2235 = $2237; break; case 'Parser.Reply.value': - var $2161 = self.pst; - var self = $2161; + var $2241 = self.pst; + var self = $2241; switch (self._) { case 'Parser.State.new': - var $2163 = self.err; - var $2164 = self.nam; - var $2165 = self.ini; - var $2166 = self.idx; - var $2167 = self.str; - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($2154, $2163), $2164, $2165, $2166, $2167); - var $2168 = Parser$until$(_close$4, _parse$3)(_reply$pst$19); - var $2162 = $2168; + var $2243 = self.err; + var $2244 = self.nam; + var $2245 = self.ini; + var $2246 = self.idx; + var $2247 = self.str; + var $2248 = ((console.log(("FALTANDO " + $2247)), (_$19 => { + var $2249 = ((console.log(("VALUE " + $2244)), (_$20 => { + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($2234, $2243), $2244, $2245, $2246, $2247); + var $2250 = Parser$until$(_close$4, _parse$3)(_reply$pst$21); + return $2250; + })())); + return $2249; + })())); + var $2242 = $2248; break; }; - var $2155 = $2162; + var $2235 = $2242; break; }; - var $2153 = $2155; + var $2233 = $2235; break; }; - return $2153; + return $2233; }; const Parser$wrap = x0 => x1 => x2 => x3 => Parser$wrap$(x0, x1, x2, x3); function Kind$Parser$items$(_ini$2, _parser$3, _end$4) { - var $2169 = Parser$wrap(Kind$Parser$text(_ini$2))((_pst$5 => { + var $2251 = Parser$wrap(Kind$Parser$text(_ini$2))((_pst$5 => { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $2171 = self.err; + var $2253 = self.err; var _reply$11 = Kind$Parser$spaces(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $2173 = self.err; - var self = $2171; + var $2255 = self.err; + var self = $2253; switch (self._) { case 'Maybe.some': - var $2175 = self.value; - var $2176 = Parser$Reply$error$(Parser$Error$combine$($2175, $2173)); - var $2174 = $2176; + var $2257 = self.value; + var $2258 = Parser$Reply$error$(Parser$Error$combine$($2257, $2255)); + var $2256 = $2258; break; case 'Maybe.none': - var $2177 = Parser$Reply$error$($2173); - var $2174 = $2177; + var $2259 = Parser$Reply$error$($2255); + var $2256 = $2259; break; }; - var $2172 = $2174; + var $2254 = $2256; break; case 'Parser.Reply.value': - var $2178 = self.pst; - var self = $2178; + var $2260 = self.pst; + var self = $2260; switch (self._) { case 'Parser.State.new': - var $2180 = self.err; - var $2181 = self.nam; - var $2182 = self.ini; - var $2183 = self.idx; - var $2184 = self.str; - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($2171, $2180), $2181, $2182, $2183, $2184); - var self = _reply$pst$19; - switch (self._) { - case 'Parser.State.new': - var $2186 = self.err; - var _reply$25 = _parser$3(_reply$pst$19); - var self = _reply$25; + var $2262 = self.err; + var $2263 = self.nam; + var $2264 = self.ini; + var $2265 = self.idx; + var $2266 = self.str; + var $2267 = ((console.log(("FALTANDO " + $2266)), (_$19 => { + var $2268 = ((console.log(("VALUE " + $2263)), (_$20 => { + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($2253, $2262), $2263, $2264, $2265, $2266); + var self = _reply$pst$21; switch (self._) { - case 'Parser.Reply.error': - var $2188 = self.err; - var self = $2186; + case 'Parser.State.new': + var $2270 = self.err; + var _reply$27 = _parser$3(_reply$pst$21); + var self = _reply$27; switch (self._) { - case 'Maybe.some': - var $2190 = self.value; - var $2191 = Parser$Reply$error$(Parser$Error$combine$($2190, $2188)); - var $2189 = $2191; - break; - case 'Maybe.none': - var $2192 = Parser$Reply$error$($2188); - var $2189 = $2192; - break; - }; - var $2187 = $2189; - break; - case 'Parser.Reply.value': - var $2193 = self.pst; - var $2194 = self.val; - var self = $2193; - switch (self._) { - case 'Parser.State.new': - var $2196 = self.err; - var $2197 = self.nam; - var $2198 = self.ini; - var $2199 = self.idx; - var $2200 = self.str; - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($2186, $2196), $2197, $2198, $2199, $2200); - var self = _reply$pst$33; + case 'Parser.Reply.error': + var $2272 = self.err; + var self = $2270; switch (self._) { - case 'Parser.State.new': - var $2202 = self.err; - var _reply$39 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $2204 = self.err; - var self = $2202; - switch (self._) { - case 'Maybe.some': - var $2206 = self.value; - var $2207 = Parser$Reply$error$(Parser$Error$combine$($2206, $2204)); - var $2205 = $2207; - break; - case 'Maybe.none': - var $2208 = Parser$Reply$error$($2204); - var $2205 = $2208; - break; - }; - var $2203 = $2205; - break; - case 'Parser.Reply.value': - var $2209 = self.pst; - var self = $2209; - switch (self._) { - case 'Parser.State.new': - var $2211 = self.err; - var $2212 = self.nam; - var $2213 = self.ini; - var $2214 = self.idx; - var $2215 = self.str; - var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($2202, $2211), $2212, $2213, $2214, $2215); - var $2216 = Parser$Reply$value$(_reply$pst$47, $2194); - var $2210 = $2216; - break; - }; - var $2203 = $2210; - break; - }; - var $2201 = $2203; + case 'Maybe.some': + var $2274 = self.value; + var $2275 = Parser$Reply$error$(Parser$Error$combine$($2274, $2272)); + var $2273 = $2275; + break; + case 'Maybe.none': + var $2276 = Parser$Reply$error$($2272); + var $2273 = $2276; break; }; - var $2195 = $2201; + var $2271 = $2273; + break; + case 'Parser.Reply.value': + var $2277 = self.pst; + var $2278 = self.val; + var self = $2277; + switch (self._) { + case 'Parser.State.new': + var $2280 = self.err; + var $2281 = self.nam; + var $2282 = self.ini; + var $2283 = self.idx; + var $2284 = self.str; + var $2285 = ((console.log(("FALTANDO " + $2284)), (_$35 => { + var $2286 = ((console.log(("VALUE " + $2281)), (_$36 => { + var _reply$pst$37 = Parser$State$new$(Parser$Error$maybe_combine$($2270, $2280), $2281, $2282, $2283, $2284); + var self = _reply$pst$37; + switch (self._) { + case 'Parser.State.new': + var $2288 = self.err; + var _reply$43 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$37); + var self = _reply$43; + switch (self._) { + case 'Parser.Reply.error': + var $2290 = self.err; + var self = $2288; + switch (self._) { + case 'Maybe.some': + var $2292 = self.value; + var $2293 = Parser$Reply$error$(Parser$Error$combine$($2292, $2290)); + var $2291 = $2293; + break; + case 'Maybe.none': + var $2294 = Parser$Reply$error$($2290); + var $2291 = $2294; + break; + }; + var $2289 = $2291; + break; + case 'Parser.Reply.value': + var $2295 = self.pst; + var self = $2295; + switch (self._) { + case 'Parser.State.new': + var $2297 = self.err; + var $2298 = self.nam; + var $2299 = self.ini; + var $2300 = self.idx; + var $2301 = self.str; + var $2302 = ((console.log(("FALTANDO " + $2301)), (_$51 => { + var $2303 = ((console.log(("VALUE " + $2298)), (_$52 => { + var _reply$pst$53 = Parser$State$new$(Parser$Error$maybe_combine$($2288, $2297), $2298, $2299, $2300, $2301); + var $2304 = Parser$Reply$value$(_reply$pst$53, $2278); + return $2304; + })())); + return $2303; + })())); + var $2296 = $2302; + break; + }; + var $2289 = $2296; + break; + }; + var $2287 = $2289; + break; + }; + return $2287; + })())); + return $2286; + })())); + var $2279 = $2285; + break; + }; + var $2271 = $2279; break; }; - var $2187 = $2195; + var $2269 = $2271; break; }; - var $2185 = $2187; - break; - }; - var $2179 = $2185; + return $2269; + })())); + return $2268; + })())); + var $2261 = $2267; break; }; - var $2172 = $2179; + var $2254 = $2261; break; }; - var $2170 = $2172; + var $2252 = $2254; break; }; - return $2170; + return $2252; }))(Kind$Parser$text(_end$4)); - return $2169; + return $2251; }; const Kind$Parser$items = x0 => x1 => x2 => Kind$Parser$items$(x0, x1, x2); @@ -8325,15 +8590,15 @@ module.exports = (function() { var self = _parse$2(_pst$3); switch (self._) { case 'Parser.Reply.error': - var $2218 = Parser$Reply$value$(_pst$3, Bool$false); - var $2217 = $2218; + var $2306 = Parser$Reply$value$(_pst$3, Bool$false); + var $2305 = $2306; break; case 'Parser.Reply.value': - var $2219 = Parser$Reply$value$(_pst$3, Bool$true); - var $2217 = $2219; + var $2307 = Parser$Reply$value$(_pst$3, Bool$true); + var $2305 = $2307; break; }; - return $2217; + return $2305; }; const Parser$try = x0 => x1 => Parser$try$(x0, x1); @@ -8341,63 +8606,69 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $2221 = self.err; + var $2309 = self.err; var _reply$10 = Parser$try$(_test$2, _pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $2223 = self.err; - var self = $2221; + var $2311 = self.err; + var self = $2309; switch (self._) { case 'Maybe.some': - var $2225 = self.value; - var $2226 = Parser$Reply$error$(Parser$Error$combine$($2225, $2223)); - var $2224 = $2226; + var $2313 = self.value; + var $2314 = Parser$Reply$error$(Parser$Error$combine$($2313, $2311)); + var $2312 = $2314; break; case 'Maybe.none': - var $2227 = Parser$Reply$error$($2223); - var $2224 = $2227; + var $2315 = Parser$Reply$error$($2311); + var $2312 = $2315; break; }; - var $2222 = $2224; + var $2310 = $2312; break; case 'Parser.Reply.value': - var $2228 = self.pst; - var $2229 = self.val; - var self = $2228; + var $2316 = self.pst; + var $2317 = self.val; + var self = $2316; switch (self._) { case 'Parser.State.new': - var $2231 = self.err; - var $2232 = self.nam; - var $2233 = self.ini; - var $2234 = self.idx; - var $2235 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($2221, $2231), $2232, $2233, $2234, $2235); - var self = $2229; - if (self) { - var $2237 = Parser$fail("Avoided."); - var $2236 = $2237; - } else { - var $2238 = _parse$3; - var $2236 = $2238; - }; - var $2236 = $2236(_reply$pst$18); - var $2230 = $2236; + var $2319 = self.err; + var $2320 = self.nam; + var $2321 = self.ini; + var $2322 = self.idx; + var $2323 = self.str; + var $2324 = ((console.log(("FALTANDO " + $2323)), (_$18 => { + var $2325 = ((console.log(("VALUE " + $2320)), (_$19 => { + var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($2309, $2319), $2320, $2321, $2322, $2323); + var self = $2317; + if (self) { + var $2327 = Parser$fail("Avoided."); + var $2326 = $2327; + } else { + var $2328 = _parse$3; + var $2326 = $2328; + }; + var $2326 = $2326(_reply$pst$20); + return $2326; + })())); + return $2325; + })())); + var $2318 = $2324; break; }; - var $2222 = $2230; + var $2310 = $2318; break; }; - var $2220 = $2222; + var $2308 = $2310; break; }; - return $2220; + return $2308; }; const Parser$avoiding = x0 => x1 => x2 => Parser$avoiding$(x0, x1, x2); function Kind$Parser$text_now$(_text$1) { - var $2239 = Parser$text(_text$1); - return $2239; + var $2329 = Parser$text(_text$1); + return $2329; }; const Kind$Parser$text_now = x0 => Kind$Parser$text_now$(x0); @@ -8405,20 +8676,20 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.cons': - var $2241 = self.head; - var $2242 = self.tail; - var $2243 = Kind$Term$lam$($2241, (_x$5 => { - var $2244 = Kind$Parser$lambda$make$($2242, _body$2); - return $2244; + var $2331 = self.head; + var $2332 = self.tail; + var $2333 = Kind$Term$lam$($2331, (_x$5 => { + var $2334 = Kind$Parser$lambda$make$($2332, _body$2); + return $2334; })); - var $2240 = $2243; + var $2330 = $2333; break; case 'List.nil': - var $2245 = _body$2; - var $2240 = $2245; + var $2335 = _body$2; + var $2330 = $2335; break; }; - return $2240; + return $2330; }; const Kind$Parser$lambda$make = x0 => x1 => Kind$Parser$lambda$make$(x0, x1); @@ -8426,13711 +8697,436 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.nil': - var $2247 = Kind$Term$lam$("", (_x$3 => { - var $2248 = _body$2; - return $2248; + var $2337 = Kind$Term$lam$("", (_x$3 => { + var $2338 = _body$2; + return $2338; })); - var $2246 = $2247; + var $2336 = $2337; break; case 'List.cons': - var $2249 = Kind$Parser$lambda$make$(_names$1, _body$2); - var $2246 = $2249; + var $2339 = Kind$Parser$lambda$make$(_names$1, _body$2); + var $2336 = $2339; break; }; - return $2246; + return $2336; }; const Kind$Parser$lambda$make$start = x0 => x1 => Kind$Parser$lambda$make$start$(x0, x1); - const Kind$Parser$lambda = Kind$Parser$block("lambda")((_pst$1 => { + const Kind$Parser$lambda$1 = Kind$Parser$block("lambda")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $2251 = self.err; + var $2341 = self.err; var _reply$7 = Kind$Parser$items$("(", Kind$Parser$name1, ")")(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $2253 = self.err; - var self = $2251; + var $2343 = self.err; + var self = $2341; switch (self._) { case 'Maybe.some': - var $2255 = self.value; - var $2256 = Parser$Reply$error$(Parser$Error$combine$($2255, $2253)); - var $2254 = $2256; + var $2345 = self.value; + var $2346 = Parser$Reply$error$(Parser$Error$combine$($2345, $2343)); + var $2344 = $2346; break; case 'Maybe.none': - var $2257 = Parser$Reply$error$($2253); - var $2254 = $2257; + var $2347 = Parser$Reply$error$($2343); + var $2344 = $2347; break; }; - var $2252 = $2254; + var $2342 = $2344; break; case 'Parser.Reply.value': - var $2258 = self.pst; - var $2259 = self.val; - var self = $2258; + var $2348 = self.pst; + var $2349 = self.val; + var self = $2348; switch (self._) { case 'Parser.State.new': - var $2261 = self.err; - var $2262 = self.nam; - var $2263 = self.ini; - var $2264 = self.idx; - var $2265 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($2251, $2261), $2262, $2263, $2264, $2265); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $2267 = self.err; - var _reply$21 = Parser$avoiding$(Kind$Parser$text_now$("("), Kind$Parser$term, _reply$pst$15); - var self = _reply$21; + var $2351 = self.err; + var $2352 = self.nam; + var $2353 = self.ini; + var $2354 = self.idx; + var $2355 = self.str; + var $2356 = ((console.log(("FALTANDO " + $2355)), (_$15 => { + var $2357 = ((console.log(("VALUE " + $2352)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2341, $2351), $2352, $2353, $2354, $2355); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $2269 = self.err; - var self = $2267; + case 'Parser.State.new': + var $2359 = self.err; + var _reply$23 = Parser$avoiding$(Kind$Parser$text_now$("("), Kind$Parser$term, _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $2271 = self.value; - var $2272 = Parser$Reply$error$(Parser$Error$combine$($2271, $2269)); - var $2270 = $2272; - break; - case 'Maybe.none': - var $2273 = Parser$Reply$error$($2269); - var $2270 = $2273; - break; - }; - var $2268 = $2270; - break; - case 'Parser.Reply.value': - var $2274 = self.pst; - var $2275 = self.val; - var self = $2274; - switch (self._) { - case 'Parser.State.new': - var $2277 = self.err; - var $2278 = self.nam; - var $2279 = self.ini; - var $2280 = self.idx; - var $2281 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($2267, $2277), $2278, $2279, $2280, $2281); - var $2282 = Parser$Reply$value$(_reply$pst$29, Kind$Parser$lambda$make$start$($2259, $2275)); - var $2276 = $2282; - break; - }; - var $2268 = $2276; - break; - }; - var $2266 = $2268; - break; - }; - var $2260 = $2266; - break; - }; - var $2252 = $2260; - break; - }; - var $2250 = $2252; - break; - }; - return $2250; - })); - const Kind$Parser$lambda$erased = Kind$Parser$block("lambda")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $2284 = self.err; - var _reply$7 = Kind$Parser$items$("<", Kind$Parser$name1, ">")(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $2286 = self.err; - var self = $2284; - switch (self._) { - case 'Maybe.some': - var $2288 = self.value; - var $2289 = Parser$Reply$error$(Parser$Error$combine$($2288, $2286)); - var $2287 = $2289; - break; - case 'Maybe.none': - var $2290 = Parser$Reply$error$($2286); - var $2287 = $2290; - break; - }; - var $2285 = $2287; - break; - case 'Parser.Reply.value': - var $2291 = self.pst; - var $2292 = self.val; - var self = $2291; - switch (self._) { - case 'Parser.State.new': - var $2294 = self.err; - var $2295 = self.nam; - var $2296 = self.ini; - var $2297 = self.idx; - var $2298 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($2284, $2294), $2295, $2296, $2297, $2298); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $2300 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $2302 = self.err; - var self = $2300; - switch (self._) { - case 'Maybe.some': - var $2304 = self.value; - var $2305 = Parser$Reply$error$(Parser$Error$combine$($2304, $2302)); - var $2303 = $2305; - break; - case 'Maybe.none': - var $2306 = Parser$Reply$error$($2302); - var $2303 = $2306; - break; - }; - var $2301 = $2303; - break; - case 'Parser.Reply.value': - var $2307 = self.pst; - var $2308 = self.val; - var self = $2307; - switch (self._) { - case 'Parser.State.new': - var $2310 = self.err; - var $2311 = self.nam; - var $2312 = self.ini; - var $2313 = self.idx; - var $2314 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($2300, $2310), $2311, $2312, $2313, $2314); - var $2315 = Parser$Reply$value$(_reply$pst$29, Kind$Parser$lambda$make$start$($2292, $2308)); - var $2309 = $2315; - break; - }; - var $2301 = $2309; - break; - }; - var $2299 = $2301; - break; - }; - var $2293 = $2299; - break; - }; - var $2285 = $2293; - break; - }; - var $2283 = $2285; - break; - }; - return $2283; - })); - const Kind$Parser$parenthesis = Kind$Parser$block("parenthesis")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $2317 = self.err; - var _reply$7 = Kind$Parser$text$("(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $2319 = self.err; - var self = $2317; - switch (self._) { - case 'Maybe.some': - var $2321 = self.value; - var $2322 = Parser$Reply$error$(Parser$Error$combine$($2321, $2319)); - var $2320 = $2322; - break; - case 'Maybe.none': - var $2323 = Parser$Reply$error$($2319); - var $2320 = $2323; - break; - }; - var $2318 = $2320; - break; - case 'Parser.Reply.value': - var $2324 = self.pst; - var self = $2324; - switch (self._) { - case 'Parser.State.new': - var $2326 = self.err; - var $2327 = self.nam; - var $2328 = self.ini; - var $2329 = self.idx; - var $2330 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($2317, $2326), $2327, $2328, $2329, $2330); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $2332 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $2334 = self.err; - var self = $2332; - switch (self._) { - case 'Maybe.some': - var $2336 = self.value; - var $2337 = Parser$Reply$error$(Parser$Error$combine$($2336, $2334)); - var $2335 = $2337; - break; - case 'Maybe.none': - var $2338 = Parser$Reply$error$($2334); - var $2335 = $2338; - break; - }; - var $2333 = $2335; - break; - case 'Parser.Reply.value': - var $2339 = self.pst; - var $2340 = self.val; - var self = $2339; - switch (self._) { - case 'Parser.State.new': - var $2342 = self.err; - var $2343 = self.nam; - var $2344 = self.ini; - var $2345 = self.idx; - var $2346 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($2332, $2342), $2343, $2344, $2345, $2346); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $2361 = self.err; + var self = $2359; switch (self._) { - case 'Parser.State.new': - var $2348 = self.err; - var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $2350 = self.err; - var self = $2348; - switch (self._) { - case 'Maybe.some': - var $2352 = self.value; - var $2353 = Parser$Reply$error$(Parser$Error$combine$($2352, $2350)); - var $2351 = $2353; - break; - case 'Maybe.none': - var $2354 = Parser$Reply$error$($2350); - var $2351 = $2354; - break; - }; - var $2349 = $2351; - break; - case 'Parser.Reply.value': - var $2355 = self.pst; - var self = $2355; - switch (self._) { - case 'Parser.State.new': - var $2357 = self.err; - var $2358 = self.nam; - var $2359 = self.ini; - var $2360 = self.idx; - var $2361 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($2348, $2357), $2358, $2359, $2360, $2361); - var $2362 = Parser$Reply$value$(_reply$pst$43, $2340); - var $2356 = $2362; - break; - }; - var $2349 = $2356; - break; - }; - var $2347 = $2349; + case 'Maybe.some': + var $2363 = self.value; + var $2364 = Parser$Reply$error$(Parser$Error$combine$($2363, $2361)); + var $2362 = $2364; + break; + case 'Maybe.none': + var $2365 = Parser$Reply$error$($2361); + var $2362 = $2365; break; }; - var $2341 = $2347; + var $2360 = $2362; break; - }; - var $2333 = $2341; - break; - }; - var $2331 = $2333; - break; - }; - var $2325 = $2331; - break; - }; - var $2318 = $2325; - break; - }; - var $2316 = $2318; - break; - }; - return $2316; - })); - - function Kind$Parser$letforrange$(_typename$1, _body$2) { - var $2363 = Kind$Parser$block("let-for")((_pst$3 => { - var self = _pst$3; - switch (self._) { - case 'Parser.State.new': - var $2365 = self.err; - var _reply$9 = Kind$Parser$text$("let ", _pst$3); - var self = _reply$9; - switch (self._) { - case 'Parser.Reply.error': - var $2367 = self.err; - var self = $2365; - switch (self._) { - case 'Maybe.some': - var $2369 = self.value; - var $2370 = Parser$Reply$error$(Parser$Error$combine$($2369, $2367)); - var $2368 = $2370; - break; - case 'Maybe.none': - var $2371 = Parser$Reply$error$($2367); - var $2368 = $2371; - break; - }; - var $2366 = $2368; - break; - case 'Parser.Reply.value': - var $2372 = self.pst; - var self = $2372; - switch (self._) { - case 'Parser.State.new': - var $2374 = self.err; - var $2375 = self.nam; - var $2376 = self.ini; - var $2377 = self.idx; - var $2378 = self.str; - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2365, $2374), $2375, $2376, $2377, $2378); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $2380 = self.err; - var _reply$23 = Kind$Parser$name1$(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $2382 = self.err; - var self = $2380; - switch (self._) { - case 'Maybe.some': - var $2384 = self.value; - var $2385 = Parser$Reply$error$(Parser$Error$combine$($2384, $2382)); - var $2383 = $2385; - break; - case 'Maybe.none': - var $2386 = Parser$Reply$error$($2382); - var $2383 = $2386; - break; - }; - var $2381 = $2383; - break; - case 'Parser.Reply.value': - var $2387 = self.pst; - var $2388 = self.val; - var self = $2387; - switch (self._) { - case 'Parser.State.new': - var $2390 = self.err; - var $2391 = self.nam; - var $2392 = self.ini; - var $2393 = self.idx; - var $2394 = self.str; - var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($2380, $2390), $2391, $2392, $2393, $2394); - var self = _reply$pst$31; - switch (self._) { - case 'Parser.State.new': - var $2396 = self.err; - var _reply$37 = Kind$Parser$text$("=", _reply$pst$31); - var self = _reply$37; - switch (self._) { - case 'Parser.Reply.error': - var $2398 = self.err; - var self = $2396; - switch (self._) { - case 'Maybe.some': - var $2400 = self.value; - var $2401 = Parser$Reply$error$(Parser$Error$combine$($2400, $2398)); - var $2399 = $2401; - break; - case 'Maybe.none': - var $2402 = Parser$Reply$error$($2398); - var $2399 = $2402; - break; - }; - var $2397 = $2399; - break; - case 'Parser.Reply.value': - var $2403 = self.pst; - var self = $2403; - switch (self._) { - case 'Parser.State.new': - var $2405 = self.err; - var $2406 = self.nam; - var $2407 = self.ini; - var $2408 = self.idx; - var $2409 = self.str; - var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($2396, $2405), $2406, $2407, $2408, $2409); - var self = _reply$pst$45; - switch (self._) { - case 'Parser.State.new': - var $2411 = self.err; - var _reply$51 = Kind$Parser$text$("for ", _reply$pst$45); - var self = _reply$51; - switch (self._) { - case 'Parser.Reply.error': - var $2413 = self.err; - var self = $2411; - switch (self._) { - case 'Maybe.some': - var $2415 = self.value; - var $2416 = Parser$Reply$error$(Parser$Error$combine$($2415, $2413)); - var $2414 = $2416; - break; - case 'Maybe.none': - var $2417 = Parser$Reply$error$($2413); - var $2414 = $2417; - break; - }; - var $2412 = $2414; - break; - case 'Parser.Reply.value': - var $2418 = self.pst; - var self = $2418; - switch (self._) { - case 'Parser.State.new': - var $2420 = self.err; - var $2421 = self.nam; - var $2422 = self.ini; - var $2423 = self.idx; - var $2424 = self.str; - var _reply$pst$59 = Parser$State$new$(Parser$Error$maybe_combine$($2411, $2420), $2421, $2422, $2423, $2424); - var self = _reply$pst$59; - switch (self._) { - case 'Parser.State.new': - var $2426 = self.err; - var _reply$65 = Kind$Parser$name1$(_reply$pst$59); - var self = _reply$65; - switch (self._) { - case 'Parser.Reply.error': - var $2428 = self.err; - var self = $2426; - switch (self._) { - case 'Maybe.some': - var $2430 = self.value; - var $2431 = Parser$Reply$error$(Parser$Error$combine$($2430, $2428)); - var $2429 = $2431; - break; - case 'Maybe.none': - var $2432 = Parser$Reply$error$($2428); - var $2429 = $2432; - break; - }; - var $2427 = $2429; - break; - case 'Parser.Reply.value': - var $2433 = self.pst; - var $2434 = self.val; - var self = $2433; - switch (self._) { - case 'Parser.State.new': - var $2436 = self.err; - var $2437 = self.nam; - var $2438 = self.ini; - var $2439 = self.idx; - var $2440 = self.str; - var _reply$pst$73 = Parser$State$new$(Parser$Error$maybe_combine$($2426, $2436), $2437, $2438, $2439, $2440); - var self = _reply$pst$73; - switch (self._) { - case 'Parser.State.new': - var $2442 = self.err; - var _reply$79 = Kind$Parser$text$(":", _reply$pst$73); - var self = _reply$79; - switch (self._) { - case 'Parser.Reply.error': - var $2444 = self.err; - var self = $2442; - switch (self._) { - case 'Maybe.some': - var $2446 = self.value; - var $2447 = Parser$Reply$error$(Parser$Error$combine$($2446, $2444)); - var $2445 = $2447; - break; - case 'Maybe.none': - var $2448 = Parser$Reply$error$($2444); - var $2445 = $2448; - break; - }; - var $2443 = $2445; - break; - case 'Parser.Reply.value': - var $2449 = self.pst; - var self = $2449; - switch (self._) { - case 'Parser.State.new': - var $2451 = self.err; - var $2452 = self.nam; - var $2453 = self.ini; - var $2454 = self.idx; - var $2455 = self.str; - var _reply$pst$87 = Parser$State$new$(Parser$Error$maybe_combine$($2442, $2451), $2452, $2453, $2454, $2455); - var self = _reply$pst$87; - switch (self._) { - case 'Parser.State.new': - var $2457 = self.err; - var _reply$93 = Kind$Parser$text$(_typename$1, _reply$pst$87); - var self = _reply$93; - switch (self._) { - case 'Parser.Reply.error': - var $2459 = self.err; - var self = $2457; - switch (self._) { - case 'Maybe.some': - var $2461 = self.value; - var $2462 = Parser$Reply$error$(Parser$Error$combine$($2461, $2459)); - var $2460 = $2462; - break; - case 'Maybe.none': - var $2463 = Parser$Reply$error$($2459); - var $2460 = $2463; - break; - }; - var $2458 = $2460; - break; - case 'Parser.Reply.value': - var $2464 = self.pst; - var self = $2464; - switch (self._) { - case 'Parser.State.new': - var $2466 = self.err; - var $2467 = self.nam; - var $2468 = self.ini; - var $2469 = self.idx; - var $2470 = self.str; - var _reply$pst$101 = Parser$State$new$(Parser$Error$maybe_combine$($2457, $2466), $2467, $2468, $2469, $2470); - var self = _reply$pst$101; - switch (self._) { - case 'Parser.State.new': - var $2472 = self.err; - var _reply$107 = Kind$Parser$text$("from", _reply$pst$101); - var self = _reply$107; - switch (self._) { - case 'Parser.Reply.error': - var $2474 = self.err; - var self = $2472; - switch (self._) { - case 'Maybe.some': - var $2476 = self.value; - var $2477 = Parser$Reply$error$(Parser$Error$combine$($2476, $2474)); - var $2475 = $2477; - break; - case 'Maybe.none': - var $2478 = Parser$Reply$error$($2474); - var $2475 = $2478; - break; - }; - var $2473 = $2475; - break; - case 'Parser.Reply.value': - var $2479 = self.pst; - var self = $2479; - switch (self._) { - case 'Parser.State.new': - var $2481 = self.err; - var $2482 = self.nam; - var $2483 = self.ini; - var $2484 = self.idx; - var $2485 = self.str; - var _reply$pst$115 = Parser$State$new$(Parser$Error$maybe_combine$($2472, $2481), $2482, $2483, $2484, $2485); - var self = _reply$pst$115; - switch (self._) { - case 'Parser.State.new': - var $2487 = self.err; - var _reply$121 = Kind$Parser$term(_reply$pst$115); - var self = _reply$121; - switch (self._) { - case 'Parser.Reply.error': - var $2489 = self.err; - var self = $2487; - switch (self._) { - case 'Maybe.some': - var $2491 = self.value; - var $2492 = Parser$Reply$error$(Parser$Error$combine$($2491, $2489)); - var $2490 = $2492; - break; - case 'Maybe.none': - var $2493 = Parser$Reply$error$($2489); - var $2490 = $2493; - break; - }; - var $2488 = $2490; - break; - case 'Parser.Reply.value': - var $2494 = self.pst; - var $2495 = self.val; - var self = $2494; - switch (self._) { - case 'Parser.State.new': - var $2497 = self.err; - var $2498 = self.nam; - var $2499 = self.ini; - var $2500 = self.idx; - var $2501 = self.str; - var _reply$pst$129 = Parser$State$new$(Parser$Error$maybe_combine$($2487, $2497), $2498, $2499, $2500, $2501); - var self = _reply$pst$129; - switch (self._) { - case 'Parser.State.new': - var $2503 = self.err; - var _reply$135 = Kind$Parser$text$("to", _reply$pst$129); - var self = _reply$135; - switch (self._) { - case 'Parser.Reply.error': - var $2505 = self.err; - var self = $2503; - switch (self._) { - case 'Maybe.some': - var $2507 = self.value; - var $2508 = Parser$Reply$error$(Parser$Error$combine$($2507, $2505)); - var $2506 = $2508; - break; - case 'Maybe.none': - var $2509 = Parser$Reply$error$($2505); - var $2506 = $2509; - break; - }; - var $2504 = $2506; - break; - case 'Parser.Reply.value': - var $2510 = self.pst; - var self = $2510; - switch (self._) { - case 'Parser.State.new': - var $2512 = self.err; - var $2513 = self.nam; - var $2514 = self.ini; - var $2515 = self.idx; - var $2516 = self.str; - var _reply$pst$143 = Parser$State$new$(Parser$Error$maybe_combine$($2503, $2512), $2513, $2514, $2515, $2516); - var self = _reply$pst$143; - switch (self._) { - case 'Parser.State.new': - var $2518 = self.err; - var _reply$149 = Kind$Parser$term(_reply$pst$143); - var self = _reply$149; - switch (self._) { - case 'Parser.Reply.error': - var $2520 = self.err; - var self = $2518; - switch (self._) { - case 'Maybe.some': - var $2522 = self.value; - var $2523 = Parser$Reply$error$(Parser$Error$combine$($2522, $2520)); - var $2521 = $2523; - break; - case 'Maybe.none': - var $2524 = Parser$Reply$error$($2520); - var $2521 = $2524; - break; - }; - var $2519 = $2521; - break; - case 'Parser.Reply.value': - var $2525 = self.pst; - var $2526 = self.val; - var self = $2525; - switch (self._) { - case 'Parser.State.new': - var $2528 = self.err; - var $2529 = self.nam; - var $2530 = self.ini; - var $2531 = self.idx; - var $2532 = self.str; - var _reply$pst$157 = Parser$State$new$(Parser$Error$maybe_combine$($2518, $2528), $2529, $2530, $2531, $2532); - var self = _reply$pst$157; - switch (self._) { - case 'Parser.State.new': - var $2534 = self.err; - var _reply$163 = Kind$Parser$text$(":", _reply$pst$157); - var self = _reply$163; - switch (self._) { - case 'Parser.Reply.error': - var $2536 = self.err; - var self = $2534; - switch (self._) { - case 'Maybe.some': - var $2538 = self.value; - var $2539 = Parser$Reply$error$(Parser$Error$combine$($2538, $2536)); - var $2537 = $2539; - break; - case 'Maybe.none': - var $2540 = Parser$Reply$error$($2536); - var $2537 = $2540; - break; - }; - var $2535 = $2537; - break; - case 'Parser.Reply.value': - var $2541 = self.pst; - var self = $2541; - switch (self._) { - case 'Parser.State.new': - var $2543 = self.err; - var $2544 = self.nam; - var $2545 = self.ini; - var $2546 = self.idx; - var $2547 = self.str; - var _reply$pst$171 = Parser$State$new$(Parser$Error$maybe_combine$($2534, $2543), $2544, $2545, $2546, $2547); - var self = _reply$pst$171; - switch (self._) { - case 'Parser.State.new': - var $2549 = self.err; - var _reply$177 = Kind$Parser$term(_reply$pst$171); - var self = _reply$177; - switch (self._) { - case 'Parser.Reply.error': - var $2551 = self.err; - var self = $2549; - switch (self._) { - case 'Maybe.some': - var $2553 = self.value; - var $2554 = Parser$Reply$error$(Parser$Error$combine$($2553, $2551)); - var $2552 = $2554; - break; - case 'Maybe.none': - var $2555 = Parser$Reply$error$($2551); - var $2552 = $2555; - break; - }; - var $2550 = $2552; - break; - case 'Parser.Reply.value': - var $2556 = self.pst; - var $2557 = self.val; - var self = $2556; - switch (self._) { - case 'Parser.State.new': - var $2559 = self.err; - var $2560 = self.nam; - var $2561 = self.ini; - var $2562 = self.idx; - var $2563 = self.str; - var _reply$pst$185 = Parser$State$new$(Parser$Error$maybe_combine$($2549, $2559), $2560, $2561, $2562, $2563); - var self = _reply$pst$185; - switch (self._) { - case 'Parser.State.new': - var $2565 = self.err; - var _reply$191 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$185); - var self = _reply$191; - switch (self._) { - case 'Parser.Reply.error': - var $2567 = self.err; - var self = $2565; - switch (self._) { - case 'Maybe.some': - var $2569 = self.value; - var $2570 = Parser$Reply$error$(Parser$Error$combine$($2569, $2567)); - var $2568 = $2570; - break; - case 'Maybe.none': - var $2571 = Parser$Reply$error$($2567); - var $2568 = $2571; - break; - }; - var $2566 = $2568; - break; - case 'Parser.Reply.value': - var $2572 = self.pst; - var self = $2572; - switch (self._) { - case 'Parser.State.new': - var $2574 = self.err; - var $2575 = self.nam; - var $2576 = self.ini; - var $2577 = self.idx; - var $2578 = self.str; - var _reply$pst$199 = Parser$State$new$(Parser$Error$maybe_combine$($2565, $2574), $2575, $2576, $2577, $2578); - var self = _reply$pst$199; - switch (self._) { - case 'Parser.State.new': - var $2580 = self.err; - var _reply$205 = _body$2(Unit$new)(_reply$pst$199); - var self = _reply$205; - switch (self._) { - case 'Parser.Reply.error': - var $2582 = self.err; - var self = $2580; - switch (self._) { - case 'Maybe.some': - var $2584 = self.value; - var $2585 = Parser$Reply$error$(Parser$Error$combine$($2584, $2582)); - var $2583 = $2585; - break; - case 'Maybe.none': - var $2586 = Parser$Reply$error$($2582); - var $2583 = $2586; - break; - }; - var $2581 = $2583; - break; - case 'Parser.Reply.value': - var $2587 = self.pst; - var $2588 = self.val; - var self = $2587; - switch (self._) { - case 'Parser.State.new': - var $2590 = self.err; - var $2591 = self.nam; - var $2592 = self.ini; - var $2593 = self.idx; - var $2594 = self.str; - var _reply$pst$213 = Parser$State$new$(Parser$Error$maybe_combine$($2580, $2590), $2591, $2592, $2593, $2594); - var _term$214 = Kind$Term$ref$((_typename$1 + ".for")); - var _term$215 = Kind$Term$app$(_term$214, Kind$Term$hol$(Bits$e)); - var _term$216 = Kind$Term$app$(_term$215, Kind$Term$ref$($2388)); - var _term$217 = Kind$Term$app$(_term$216, $2495); - var _term$218 = Kind$Term$app$(_term$217, $2526); - var _lamb$219 = Kind$Term$lam$($2434, (_e$219 => { - var $2596 = Kind$Term$lam$($2388, (_s$220 => { - var $2597 = $2557; - return $2597; - })); - return $2596; - })); - var _term$220 = Kind$Term$app$(_term$218, _lamb$219); - var _term$221 = Kind$Term$let$($2388, _term$220, (_x$221 => { - var $2598 = $2588; - return $2598; - })); - var $2595 = Parser$Reply$value$(_reply$pst$213, _term$221); - var $2589 = $2595; - break; - }; - var $2581 = $2589; - break; - }; - var $2579 = $2581; - break; - }; - var $2573 = $2579; - break; - }; - var $2566 = $2573; - break; - }; - var $2564 = $2566; - break; - }; - var $2558 = $2564; - break; - }; - var $2550 = $2558; - break; - }; - var $2548 = $2550; - break; - }; - var $2542 = $2548; - break; - }; - var $2535 = $2542; - break; - }; - var $2533 = $2535; - break; - }; - var $2527 = $2533; - break; - }; - var $2519 = $2527; - break; - }; - var $2517 = $2519; - break; - }; - var $2511 = $2517; - break; - }; - var $2504 = $2511; - break; - }; - var $2502 = $2504; - break; - }; - var $2496 = $2502; - break; - }; - var $2488 = $2496; - break; - }; - var $2486 = $2488; - break; - }; - var $2480 = $2486; - break; - }; - var $2473 = $2480; - break; - }; - var $2471 = $2473; - break; - }; - var $2465 = $2471; - break; - }; - var $2458 = $2465; - break; - }; - var $2456 = $2458; - break; - }; - var $2450 = $2456; - break; - }; - var $2443 = $2450; - break; - }; - var $2441 = $2443; - break; - }; - var $2435 = $2441; - break; - }; - var $2427 = $2435; - break; - }; - var $2425 = $2427; - break; - }; - var $2419 = $2425; - break; - }; - var $2412 = $2419; - break; - }; - var $2410 = $2412; - break; - }; - var $2404 = $2410; - break; - }; - var $2397 = $2404; - break; - }; - var $2395 = $2397; - break; - }; - var $2389 = $2395; - break; - }; - var $2381 = $2389; - break; - }; - var $2379 = $2381; - break; - }; - var $2373 = $2379; - break; - }; - var $2366 = $2373; - break; - }; - var $2364 = $2366; - break; - }; - return $2364; - })); - return $2363; - }; - const Kind$Parser$letforrange = x0 => x1 => Kind$Parser$letforrange$(x0, x1); - - function Kind$Parser$letforrange$u32$(_body$1) { - var $2599 = Kind$Parser$letforrange$("U32", _body$1); - return $2599; - }; - const Kind$Parser$letforrange$u32 = x0 => Kind$Parser$letforrange$u32$(x0); - - function Kind$Parser$letforrange$with$(_typename$1, _body$2) { - var $2600 = Kind$Parser$block("for")((_pst$3 => { - var self = _pst$3; - switch (self._) { - case 'Parser.State.new': - var $2602 = self.err; - var _reply$9 = Kind$Parser$text$("for ", _pst$3); - var self = _reply$9; - switch (self._) { - case 'Parser.Reply.error': - var $2604 = self.err; - var self = $2602; - switch (self._) { - case 'Maybe.some': - var $2606 = self.value; - var $2607 = Parser$Reply$error$(Parser$Error$combine$($2606, $2604)); - var $2605 = $2607; - break; - case 'Maybe.none': - var $2608 = Parser$Reply$error$($2604); - var $2605 = $2608; - break; - }; - var $2603 = $2605; - break; - case 'Parser.Reply.value': - var $2609 = self.pst; - var self = $2609; - switch (self._) { - case 'Parser.State.new': - var $2611 = self.err; - var $2612 = self.nam; - var $2613 = self.ini; - var $2614 = self.idx; - var $2615 = self.str; - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2602, $2611), $2612, $2613, $2614, $2615); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $2617 = self.err; - var _reply$23 = Kind$Parser$name1$(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $2619 = self.err; - var self = $2617; - switch (self._) { - case 'Maybe.some': - var $2621 = self.value; - var $2622 = Parser$Reply$error$(Parser$Error$combine$($2621, $2619)); - var $2620 = $2622; - break; - case 'Maybe.none': - var $2623 = Parser$Reply$error$($2619); - var $2620 = $2623; - break; - }; - var $2618 = $2620; - break; - case 'Parser.Reply.value': - var $2624 = self.pst; - var $2625 = self.val; - var self = $2624; - switch (self._) { - case 'Parser.State.new': - var $2627 = self.err; - var $2628 = self.nam; - var $2629 = self.ini; - var $2630 = self.idx; - var $2631 = self.str; - var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($2617, $2627), $2628, $2629, $2630, $2631); - var self = _reply$pst$31; - switch (self._) { - case 'Parser.State.new': - var $2633 = self.err; - var _reply$37 = Kind$Parser$text$(":", _reply$pst$31); - var self = _reply$37; - switch (self._) { - case 'Parser.Reply.error': - var $2635 = self.err; - var self = $2633; - switch (self._) { - case 'Maybe.some': - var $2637 = self.value; - var $2638 = Parser$Reply$error$(Parser$Error$combine$($2637, $2635)); - var $2636 = $2638; - break; - case 'Maybe.none': - var $2639 = Parser$Reply$error$($2635); - var $2636 = $2639; - break; - }; - var $2634 = $2636; - break; - case 'Parser.Reply.value': - var $2640 = self.pst; - var self = $2640; - switch (self._) { - case 'Parser.State.new': - var $2642 = self.err; - var $2643 = self.nam; - var $2644 = self.ini; - var $2645 = self.idx; - var $2646 = self.str; - var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($2633, $2642), $2643, $2644, $2645, $2646); - var self = _reply$pst$45; - switch (self._) { - case 'Parser.State.new': - var $2648 = self.err; - var _reply$51 = Kind$Parser$text$(_typename$1, _reply$pst$45); - var self = _reply$51; - switch (self._) { - case 'Parser.Reply.error': - var $2650 = self.err; - var self = $2648; - switch (self._) { - case 'Maybe.some': - var $2652 = self.value; - var $2653 = Parser$Reply$error$(Parser$Error$combine$($2652, $2650)); - var $2651 = $2653; - break; - case 'Maybe.none': - var $2654 = Parser$Reply$error$($2650); - var $2651 = $2654; - break; - }; - var $2649 = $2651; - break; - case 'Parser.Reply.value': - var $2655 = self.pst; - var self = $2655; - switch (self._) { - case 'Parser.State.new': - var $2657 = self.err; - var $2658 = self.nam; - var $2659 = self.ini; - var $2660 = self.idx; - var $2661 = self.str; - var _reply$pst$59 = Parser$State$new$(Parser$Error$maybe_combine$($2648, $2657), $2658, $2659, $2660, $2661); - var self = _reply$pst$59; - switch (self._) { - case 'Parser.State.new': - var $2663 = self.err; - var _reply$65 = Kind$Parser$text$("from", _reply$pst$59); - var self = _reply$65; - switch (self._) { - case 'Parser.Reply.error': - var $2665 = self.err; - var self = $2663; - switch (self._) { - case 'Maybe.some': - var $2667 = self.value; - var $2668 = Parser$Reply$error$(Parser$Error$combine$($2667, $2665)); - var $2666 = $2668; - break; - case 'Maybe.none': - var $2669 = Parser$Reply$error$($2665); - var $2666 = $2669; - break; - }; - var $2664 = $2666; - break; - case 'Parser.Reply.value': - var $2670 = self.pst; - var self = $2670; - switch (self._) { - case 'Parser.State.new': - var $2672 = self.err; - var $2673 = self.nam; - var $2674 = self.ini; - var $2675 = self.idx; - var $2676 = self.str; - var _reply$pst$73 = Parser$State$new$(Parser$Error$maybe_combine$($2663, $2672), $2673, $2674, $2675, $2676); - var self = _reply$pst$73; - switch (self._) { - case 'Parser.State.new': - var $2678 = self.err; - var _reply$79 = Kind$Parser$term(_reply$pst$73); - var self = _reply$79; - switch (self._) { - case 'Parser.Reply.error': - var $2680 = self.err; - var self = $2678; - switch (self._) { - case 'Maybe.some': - var $2682 = self.value; - var $2683 = Parser$Reply$error$(Parser$Error$combine$($2682, $2680)); - var $2681 = $2683; - break; - case 'Maybe.none': - var $2684 = Parser$Reply$error$($2680); - var $2681 = $2684; - break; - }; - var $2679 = $2681; - break; - case 'Parser.Reply.value': - var $2685 = self.pst; - var $2686 = self.val; - var self = $2685; - switch (self._) { - case 'Parser.State.new': - var $2688 = self.err; - var $2689 = self.nam; - var $2690 = self.ini; - var $2691 = self.idx; - var $2692 = self.str; - var _reply$pst$87 = Parser$State$new$(Parser$Error$maybe_combine$($2678, $2688), $2689, $2690, $2691, $2692); - var self = _reply$pst$87; - switch (self._) { - case 'Parser.State.new': - var $2694 = self.err; - var _reply$93 = Kind$Parser$text$("to", _reply$pst$87); - var self = _reply$93; - switch (self._) { - case 'Parser.Reply.error': - var $2696 = self.err; - var self = $2694; - switch (self._) { - case 'Maybe.some': - var $2698 = self.value; - var $2699 = Parser$Reply$error$(Parser$Error$combine$($2698, $2696)); - var $2697 = $2699; - break; - case 'Maybe.none': - var $2700 = Parser$Reply$error$($2696); - var $2697 = $2700; - break; - }; - var $2695 = $2697; - break; - case 'Parser.Reply.value': - var $2701 = self.pst; - var self = $2701; - switch (self._) { - case 'Parser.State.new': - var $2703 = self.err; - var $2704 = self.nam; - var $2705 = self.ini; - var $2706 = self.idx; - var $2707 = self.str; - var _reply$pst$101 = Parser$State$new$(Parser$Error$maybe_combine$($2694, $2703), $2704, $2705, $2706, $2707); - var self = _reply$pst$101; - switch (self._) { - case 'Parser.State.new': - var $2709 = self.err; - var _reply$107 = Kind$Parser$term(_reply$pst$101); - var self = _reply$107; - switch (self._) { - case 'Parser.Reply.error': - var $2711 = self.err; - var self = $2709; - switch (self._) { - case 'Maybe.some': - var $2713 = self.value; - var $2714 = Parser$Reply$error$(Parser$Error$combine$($2713, $2711)); - var $2712 = $2714; - break; - case 'Maybe.none': - var $2715 = Parser$Reply$error$($2711); - var $2712 = $2715; - break; - }; - var $2710 = $2712; - break; - case 'Parser.Reply.value': - var $2716 = self.pst; - var $2717 = self.val; - var self = $2716; - switch (self._) { - case 'Parser.State.new': - var $2719 = self.err; - var $2720 = self.nam; - var $2721 = self.ini; - var $2722 = self.idx; - var $2723 = self.str; - var _reply$pst$115 = Parser$State$new$(Parser$Error$maybe_combine$($2709, $2719), $2720, $2721, $2722, $2723); - var self = _reply$pst$115; - switch (self._) { - case 'Parser.State.new': - var $2725 = self.err; - var _reply$121 = Kind$Parser$text$("with ", _reply$pst$115); - var self = _reply$121; - switch (self._) { - case 'Parser.Reply.error': - var $2727 = self.err; - var self = $2725; - switch (self._) { - case 'Maybe.some': - var $2729 = self.value; - var $2730 = Parser$Reply$error$(Parser$Error$combine$($2729, $2727)); - var $2728 = $2730; - break; - case 'Maybe.none': - var $2731 = Parser$Reply$error$($2727); - var $2728 = $2731; - break; - }; - var $2726 = $2728; - break; - case 'Parser.Reply.value': - var $2732 = self.pst; - var self = $2732; - switch (self._) { - case 'Parser.State.new': - var $2734 = self.err; - var $2735 = self.nam; - var $2736 = self.ini; - var $2737 = self.idx; - var $2738 = self.str; - var _reply$pst$129 = Parser$State$new$(Parser$Error$maybe_combine$($2725, $2734), $2735, $2736, $2737, $2738); - var self = _reply$pst$129; - switch (self._) { - case 'Parser.State.new': - var $2740 = self.err; - var _reply$135 = Kind$Parser$name1$(_reply$pst$129); - var self = _reply$135; - switch (self._) { - case 'Parser.Reply.error': - var $2742 = self.err; - var self = $2740; - switch (self._) { - case 'Maybe.some': - var $2744 = self.value; - var $2745 = Parser$Reply$error$(Parser$Error$combine$($2744, $2742)); - var $2743 = $2745; - break; - case 'Maybe.none': - var $2746 = Parser$Reply$error$($2742); - var $2743 = $2746; - break; - }; - var $2741 = $2743; - break; - case 'Parser.Reply.value': - var $2747 = self.pst; - var $2748 = self.val; - var self = $2747; - switch (self._) { - case 'Parser.State.new': - var $2750 = self.err; - var $2751 = self.nam; - var $2752 = self.ini; - var $2753 = self.idx; - var $2754 = self.str; - var _reply$pst$143 = Parser$State$new$(Parser$Error$maybe_combine$($2740, $2750), $2751, $2752, $2753, $2754); - var self = _reply$pst$143; - switch (self._) { - case 'Parser.State.new': - var $2756 = self.err; - var _reply$149 = Kind$Parser$text$(":", _reply$pst$143); - var self = _reply$149; - switch (self._) { - case 'Parser.Reply.error': - var $2758 = self.err; - var self = $2756; - switch (self._) { - case 'Maybe.some': - var $2760 = self.value; - var $2761 = Parser$Reply$error$(Parser$Error$combine$($2760, $2758)); - var $2759 = $2761; - break; - case 'Maybe.none': - var $2762 = Parser$Reply$error$($2758); - var $2759 = $2762; - break; - }; - var $2757 = $2759; - break; - case 'Parser.Reply.value': - var $2763 = self.pst; - var self = $2763; - switch (self._) { - case 'Parser.State.new': - var $2765 = self.err; - var $2766 = self.nam; - var $2767 = self.ini; - var $2768 = self.idx; - var $2769 = self.str; - var _reply$pst$157 = Parser$State$new$(Parser$Error$maybe_combine$($2756, $2765), $2766, $2767, $2768, $2769); - var self = _reply$pst$157; - switch (self._) { - case 'Parser.State.new': - var $2771 = self.err; - var _reply$163 = Kind$Parser$term(_reply$pst$157); - var self = _reply$163; - switch (self._) { - case 'Parser.Reply.error': - var $2773 = self.err; - var self = $2771; - switch (self._) { - case 'Maybe.some': - var $2775 = self.value; - var $2776 = Parser$Reply$error$(Parser$Error$combine$($2775, $2773)); - var $2774 = $2776; - break; - case 'Maybe.none': - var $2777 = Parser$Reply$error$($2773); - var $2774 = $2777; - break; - }; - var $2772 = $2774; - break; - case 'Parser.Reply.value': - var $2778 = self.pst; - var $2779 = self.val; - var self = $2778; - switch (self._) { - case 'Parser.State.new': - var $2781 = self.err; - var $2782 = self.nam; - var $2783 = self.ini; - var $2784 = self.idx; - var $2785 = self.str; - var _reply$pst$171 = Parser$State$new$(Parser$Error$maybe_combine$($2771, $2781), $2782, $2783, $2784, $2785); - var self = _reply$pst$171; - switch (self._) { - case 'Parser.State.new': - var $2787 = self.err; - var _reply$177 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$171); - var self = _reply$177; - switch (self._) { - case 'Parser.Reply.error': - var $2789 = self.err; - var self = $2787; - switch (self._) { - case 'Maybe.some': - var $2791 = self.value; - var $2792 = Parser$Reply$error$(Parser$Error$combine$($2791, $2789)); - var $2790 = $2792; - break; - case 'Maybe.none': - var $2793 = Parser$Reply$error$($2789); - var $2790 = $2793; - break; - }; - var $2788 = $2790; - break; - case 'Parser.Reply.value': - var $2794 = self.pst; - var self = $2794; - switch (self._) { - case 'Parser.State.new': - var $2796 = self.err; - var $2797 = self.nam; - var $2798 = self.ini; - var $2799 = self.idx; - var $2800 = self.str; - var _reply$pst$185 = Parser$State$new$(Parser$Error$maybe_combine$($2787, $2796), $2797, $2798, $2799, $2800); - var self = _reply$pst$185; - switch (self._) { - case 'Parser.State.new': - var $2802 = self.err; - var _reply$191 = _body$2(Unit$new)(_reply$pst$185); - var self = _reply$191; - switch (self._) { - case 'Parser.Reply.error': - var $2804 = self.err; - var self = $2802; - switch (self._) { - case 'Maybe.some': - var $2806 = self.value; - var $2807 = Parser$Reply$error$(Parser$Error$combine$($2806, $2804)); - var $2805 = $2807; - break; - case 'Maybe.none': - var $2808 = Parser$Reply$error$($2804); - var $2805 = $2808; - break; - }; - var $2803 = $2805; - break; - case 'Parser.Reply.value': - var $2809 = self.pst; - var $2810 = self.val; - var self = $2809; - switch (self._) { - case 'Parser.State.new': - var $2812 = self.err; - var $2813 = self.nam; - var $2814 = self.ini; - var $2815 = self.idx; - var $2816 = self.str; - var _reply$pst$199 = Parser$State$new$(Parser$Error$maybe_combine$($2802, $2812), $2813, $2814, $2815, $2816); - var _term$200 = Kind$Term$ref$((_typename$1 + ".for")); - var _term$201 = Kind$Term$app$(_term$200, Kind$Term$hol$(Bits$e)); - var _term$202 = Kind$Term$app$(_term$201, Kind$Term$ref$($2748)); - var _term$203 = Kind$Term$app$(_term$202, $2686); - var _term$204 = Kind$Term$app$(_term$203, $2717); - var _lamb$205 = Kind$Term$lam$($2625, (_e$205 => { - var $2818 = Kind$Term$lam$($2748, (_s$206 => { - var $2819 = $2779; - return $2819; - })); - return $2818; - })); - var _term$206 = Kind$Term$app$(_term$204, _lamb$205); - var _term$207 = Kind$Term$let$($2748, _term$206, (_x$207 => { - var $2820 = $2810; - return $2820; - })); - var $2817 = Parser$Reply$value$(_reply$pst$199, _term$207); - var $2811 = $2817; - break; - }; - var $2803 = $2811; - break; - }; - var $2801 = $2803; - break; - }; - var $2795 = $2801; - break; - }; - var $2788 = $2795; - break; - }; - var $2786 = $2788; - break; - }; - var $2780 = $2786; - break; - }; - var $2772 = $2780; - break; - }; - var $2770 = $2772; - break; - }; - var $2764 = $2770; - break; - }; - var $2757 = $2764; - break; - }; - var $2755 = $2757; - break; - }; - var $2749 = $2755; - break; - }; - var $2741 = $2749; - break; - }; - var $2739 = $2741; - break; - }; - var $2733 = $2739; - break; - }; - var $2726 = $2733; - break; - }; - var $2724 = $2726; - break; - }; - var $2718 = $2724; - break; - }; - var $2710 = $2718; - break; - }; - var $2708 = $2710; - break; - }; - var $2702 = $2708; - break; - }; - var $2695 = $2702; - break; - }; - var $2693 = $2695; - break; - }; - var $2687 = $2693; - break; - }; - var $2679 = $2687; - break; - }; - var $2677 = $2679; - break; - }; - var $2671 = $2677; - break; - }; - var $2664 = $2671; - break; - }; - var $2662 = $2664; - break; - }; - var $2656 = $2662; - break; - }; - var $2649 = $2656; - break; - }; - var $2647 = $2649; - break; - }; - var $2641 = $2647; - break; - }; - var $2634 = $2641; - break; - }; - var $2632 = $2634; - break; - }; - var $2626 = $2632; - break; - }; - var $2618 = $2626; - break; - }; - var $2616 = $2618; - break; - }; - var $2610 = $2616; - break; - }; - var $2603 = $2610; - break; - }; - var $2601 = $2603; - break; - }; - return $2601; - })); - return $2600; - }; - const Kind$Parser$letforrange$with = x0 => x1 => Kind$Parser$letforrange$with$(x0, x1); - - function Kind$Parser$letforrange$u32$with$(_body$1) { - var $2821 = Kind$Parser$letforrange$with$("U32", _body$1); - return $2821; - }; - const Kind$Parser$letforrange$u32$with = x0 => Kind$Parser$letforrange$u32$with$(x0); - - function Kind$Parser$letforrange$i32$(_body$1) { - var $2822 = Kind$Parser$letforrange$("I32", _body$1); - return $2822; - }; - const Kind$Parser$letforrange$i32 = x0 => Kind$Parser$letforrange$i32$(x0); - - function Kind$Parser$letforrange$i32$with$(_body$1) { - var $2823 = Kind$Parser$letforrange$with$("I32", _body$1); - return $2823; - }; - const Kind$Parser$letforrange$i32$with = x0 => Kind$Parser$letforrange$i32$with$(x0); - - function Kind$Parser$letforrange$nat$(_body$1) { - var $2824 = Kind$Parser$block("let-for")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $2826 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $2828 = self.err; - var self = $2826; - switch (self._) { - case 'Maybe.some': - var $2830 = self.value; - var $2831 = Parser$Reply$error$(Parser$Error$combine$($2830, $2828)); - var $2829 = $2831; - break; - case 'Maybe.none': - var $2832 = Parser$Reply$error$($2828); - var $2829 = $2832; - break; - }; - var $2827 = $2829; - break; - case 'Parser.Reply.value': - var $2833 = self.pst; - var self = $2833; - switch (self._) { - case 'Parser.State.new': - var $2835 = self.err; - var $2836 = self.nam; - var $2837 = self.ini; - var $2838 = self.idx; - var $2839 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($2826, $2835), $2836, $2837, $2838, $2839); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $2841 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $2843 = self.err; - var self = $2841; - switch (self._) { - case 'Maybe.some': - var $2845 = self.value; - var $2846 = Parser$Reply$error$(Parser$Error$combine$($2845, $2843)); - var $2844 = $2846; - break; - case 'Maybe.none': - var $2847 = Parser$Reply$error$($2843); - var $2844 = $2847; - break; - }; - var $2842 = $2844; - break; - case 'Parser.Reply.value': - var $2848 = self.pst; - var $2849 = self.val; - var self = $2848; - switch (self._) { - case 'Parser.State.new': - var $2851 = self.err; - var $2852 = self.nam; - var $2853 = self.ini; - var $2854 = self.idx; - var $2855 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($2841, $2851), $2852, $2853, $2854, $2855); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $2857 = self.err; - var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $2859 = self.err; - var self = $2857; - switch (self._) { - case 'Maybe.some': - var $2861 = self.value; - var $2862 = Parser$Reply$error$(Parser$Error$combine$($2861, $2859)); - var $2860 = $2862; - break; - case 'Maybe.none': - var $2863 = Parser$Reply$error$($2859); - var $2860 = $2863; - break; - }; - var $2858 = $2860; - break; - case 'Parser.Reply.value': - var $2864 = self.pst; - var self = $2864; - switch (self._) { - case 'Parser.State.new': - var $2866 = self.err; - var $2867 = self.nam; - var $2868 = self.ini; - var $2869 = self.idx; - var $2870 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($2857, $2866), $2867, $2868, $2869, $2870); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $2872 = self.err; - var _reply$50 = Kind$Parser$text$("for ", _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $2874 = self.err; - var self = $2872; - switch (self._) { - case 'Maybe.some': - var $2876 = self.value; - var $2877 = Parser$Reply$error$(Parser$Error$combine$($2876, $2874)); - var $2875 = $2877; - break; - case 'Maybe.none': - var $2878 = Parser$Reply$error$($2874); - var $2875 = $2878; - break; - }; - var $2873 = $2875; - break; - case 'Parser.Reply.value': - var $2879 = self.pst; - var self = $2879; - switch (self._) { - case 'Parser.State.new': - var $2881 = self.err; - var $2882 = self.nam; - var $2883 = self.ini; - var $2884 = self.idx; - var $2885 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($2872, $2881), $2882, $2883, $2884, $2885); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $2887 = self.err; - var _reply$64 = Kind$Parser$name1$(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $2889 = self.err; - var self = $2887; - switch (self._) { - case 'Maybe.some': - var $2891 = self.value; - var $2892 = Parser$Reply$error$(Parser$Error$combine$($2891, $2889)); - var $2890 = $2892; - break; - case 'Maybe.none': - var $2893 = Parser$Reply$error$($2889); - var $2890 = $2893; - break; - }; - var $2888 = $2890; - break; - case 'Parser.Reply.value': - var $2894 = self.pst; - var $2895 = self.val; - var self = $2894; - switch (self._) { - case 'Parser.State.new': - var $2897 = self.err; - var $2898 = self.nam; - var $2899 = self.ini; - var $2900 = self.idx; - var $2901 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($2887, $2897), $2898, $2899, $2900, $2901); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $2903 = self.err; - var _reply$78 = Kind$Parser$text$("from", _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $2905 = self.err; - var self = $2903; - switch (self._) { - case 'Maybe.some': - var $2907 = self.value; - var $2908 = Parser$Reply$error$(Parser$Error$combine$($2907, $2905)); - var $2906 = $2908; - break; - case 'Maybe.none': - var $2909 = Parser$Reply$error$($2905); - var $2906 = $2909; - break; - }; - var $2904 = $2906; - break; - case 'Parser.Reply.value': - var $2910 = self.pst; - var self = $2910; - switch (self._) { - case 'Parser.State.new': - var $2912 = self.err; - var $2913 = self.nam; - var $2914 = self.ini; - var $2915 = self.idx; - var $2916 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($2903, $2912), $2913, $2914, $2915, $2916); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $2918 = self.err; - var _reply$92 = Kind$Parser$term(_reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $2920 = self.err; - var self = $2918; - switch (self._) { - case 'Maybe.some': - var $2922 = self.value; - var $2923 = Parser$Reply$error$(Parser$Error$combine$($2922, $2920)); - var $2921 = $2923; - break; - case 'Maybe.none': - var $2924 = Parser$Reply$error$($2920); - var $2921 = $2924; - break; - }; - var $2919 = $2921; - break; - case 'Parser.Reply.value': - var $2925 = self.pst; - var $2926 = self.val; - var self = $2925; - switch (self._) { - case 'Parser.State.new': - var $2928 = self.err; - var $2929 = self.nam; - var $2930 = self.ini; - var $2931 = self.idx; - var $2932 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($2918, $2928), $2929, $2930, $2931, $2932); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $2934 = self.err; - var _reply$106 = Kind$Parser$text$("to", _reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $2936 = self.err; - var self = $2934; - switch (self._) { - case 'Maybe.some': - var $2938 = self.value; - var $2939 = Parser$Reply$error$(Parser$Error$combine$($2938, $2936)); - var $2937 = $2939; - break; - case 'Maybe.none': - var $2940 = Parser$Reply$error$($2936); - var $2937 = $2940; - break; - }; - var $2935 = $2937; - break; - case 'Parser.Reply.value': - var $2941 = self.pst; - var self = $2941; - switch (self._) { - case 'Parser.State.new': - var $2943 = self.err; - var $2944 = self.nam; - var $2945 = self.ini; - var $2946 = self.idx; - var $2947 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($2934, $2943), $2944, $2945, $2946, $2947); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $2949 = self.err; - var _reply$120 = Kind$Parser$term(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $2951 = self.err; - var self = $2949; - switch (self._) { - case 'Maybe.some': - var $2953 = self.value; - var $2954 = Parser$Reply$error$(Parser$Error$combine$($2953, $2951)); - var $2952 = $2954; - break; - case 'Maybe.none': - var $2955 = Parser$Reply$error$($2951); - var $2952 = $2955; - break; - }; - var $2950 = $2952; - break; - case 'Parser.Reply.value': - var $2956 = self.pst; - var $2957 = self.val; - var self = $2956; - switch (self._) { - case 'Parser.State.new': - var $2959 = self.err; - var $2960 = self.nam; - var $2961 = self.ini; - var $2962 = self.idx; - var $2963 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($2949, $2959), $2960, $2961, $2962, $2963); - var self = _reply$pst$128; - switch (self._) { - case 'Parser.State.new': - var $2965 = self.err; - var _reply$134 = Kind$Parser$text$(":", _reply$pst$128); - var self = _reply$134; - switch (self._) { - case 'Parser.Reply.error': - var $2967 = self.err; - var self = $2965; - switch (self._) { - case 'Maybe.some': - var $2969 = self.value; - var $2970 = Parser$Reply$error$(Parser$Error$combine$($2969, $2967)); - var $2968 = $2970; - break; - case 'Maybe.none': - var $2971 = Parser$Reply$error$($2967); - var $2968 = $2971; - break; - }; - var $2966 = $2968; - break; - case 'Parser.Reply.value': - var $2972 = self.pst; - var self = $2972; - switch (self._) { - case 'Parser.State.new': - var $2974 = self.err; - var $2975 = self.nam; - var $2976 = self.ini; - var $2977 = self.idx; - var $2978 = self.str; - var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($2965, $2974), $2975, $2976, $2977, $2978); - var self = _reply$pst$142; - switch (self._) { - case 'Parser.State.new': - var $2980 = self.err; - var _reply$148 = Kind$Parser$term(_reply$pst$142); - var self = _reply$148; - switch (self._) { - case 'Parser.Reply.error': - var $2982 = self.err; - var self = $2980; - switch (self._) { - case 'Maybe.some': - var $2984 = self.value; - var $2985 = Parser$Reply$error$(Parser$Error$combine$($2984, $2982)); - var $2983 = $2985; - break; - case 'Maybe.none': - var $2986 = Parser$Reply$error$($2982); - var $2983 = $2986; - break; - }; - var $2981 = $2983; - break; - case 'Parser.Reply.value': - var $2987 = self.pst; - var $2988 = self.val; - var self = $2987; - switch (self._) { - case 'Parser.State.new': - var $2990 = self.err; - var $2991 = self.nam; - var $2992 = self.ini; - var $2993 = self.idx; - var $2994 = self.str; - var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($2980, $2990), $2991, $2992, $2993, $2994); - var self = _reply$pst$156; - switch (self._) { - case 'Parser.State.new': - var $2996 = self.err; - var _reply$162 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$156); - var self = _reply$162; - switch (self._) { - case 'Parser.Reply.error': - var $2998 = self.err; - var self = $2996; - switch (self._) { - case 'Maybe.some': - var $3000 = self.value; - var $3001 = Parser$Reply$error$(Parser$Error$combine$($3000, $2998)); - var $2999 = $3001; - break; - case 'Maybe.none': - var $3002 = Parser$Reply$error$($2998); - var $2999 = $3002; - break; - }; - var $2997 = $2999; - break; - case 'Parser.Reply.value': - var $3003 = self.pst; - var self = $3003; - switch (self._) { - case 'Parser.State.new': - var $3005 = self.err; - var $3006 = self.nam; - var $3007 = self.ini; - var $3008 = self.idx; - var $3009 = self.str; - var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($2996, $3005), $3006, $3007, $3008, $3009); - var self = _reply$pst$170; - switch (self._) { - case 'Parser.State.new': - var $3011 = self.err; - var _reply$176 = _body$1(Unit$new)(_reply$pst$170); - var self = _reply$176; - switch (self._) { - case 'Parser.Reply.error': - var $3013 = self.err; - var self = $3011; - switch (self._) { - case 'Maybe.some': - var $3015 = self.value; - var $3016 = Parser$Reply$error$(Parser$Error$combine$($3015, $3013)); - var $3014 = $3016; - break; - case 'Maybe.none': - var $3017 = Parser$Reply$error$($3013); - var $3014 = $3017; - break; - }; - var $3012 = $3014; - break; - case 'Parser.Reply.value': - var $3018 = self.pst; - var $3019 = self.val; - var self = $3018; - switch (self._) { - case 'Parser.State.new': - var $3021 = self.err; - var $3022 = self.nam; - var $3023 = self.ini; - var $3024 = self.idx; - var $3025 = self.str; - var _reply$pst$184 = Parser$State$new$(Parser$Error$maybe_combine$($3011, $3021), $3022, $3023, $3024, $3025); - var _term$185 = Kind$Term$ref$("Nat.for"); - var _term$186 = Kind$Term$app$(_term$185, Kind$Term$hol$(Bits$e)); - var _term$187 = Kind$Term$app$(_term$186, Kind$Term$ref$($2849)); - var _term$188 = Kind$Term$app$(_term$187, $2926); - var _term$189 = Kind$Term$app$(_term$188, $2957); - var _lamb$190 = Kind$Term$lam$($2895, (_e$190 => { - var $3027 = Kind$Term$lam$($2849, (_s$191 => { - var $3028 = $2988; - return $3028; - })); - return $3027; - })); - var _term$191 = Kind$Term$app$(_term$189, _lamb$190); - var _term$192 = Kind$Term$let$($2849, _term$191, (_x$192 => { - var $3029 = $3019; - return $3029; - })); - var $3026 = Parser$Reply$value$(_reply$pst$184, _term$192); - var $3020 = $3026; - break; - }; - var $3012 = $3020; - break; - }; - var $3010 = $3012; - break; - }; - var $3004 = $3010; - break; - }; - var $2997 = $3004; - break; - }; - var $2995 = $2997; - break; - }; - var $2989 = $2995; - break; - }; - var $2981 = $2989; - break; - }; - var $2979 = $2981; - break; - }; - var $2973 = $2979; - break; - }; - var $2966 = $2973; - break; - }; - var $2964 = $2966; - break; - }; - var $2958 = $2964; - break; - }; - var $2950 = $2958; - break; - }; - var $2948 = $2950; - break; - }; - var $2942 = $2948; - break; - }; - var $2935 = $2942; - break; - }; - var $2933 = $2935; - break; - }; - var $2927 = $2933; - break; - }; - var $2919 = $2927; - break; - }; - var $2917 = $2919; - break; - }; - var $2911 = $2917; - break; - }; - var $2904 = $2911; - break; - }; - var $2902 = $2904; - break; - }; - var $2896 = $2902; - break; - }; - var $2888 = $2896; - break; - }; - var $2886 = $2888; - break; - }; - var $2880 = $2886; - break; - }; - var $2873 = $2880; - break; - }; - var $2871 = $2873; - break; - }; - var $2865 = $2871; - break; - }; - var $2858 = $2865; - break; - }; - var $2856 = $2858; - break; - }; - var $2850 = $2856; - break; - }; - var $2842 = $2850; - break; - }; - var $2840 = $2842; - break; - }; - var $2834 = $2840; - break; - }; - var $2827 = $2834; - break; - }; - var $2825 = $2827; - break; - }; - return $2825; - })); - return $2824; - }; - const Kind$Parser$letforrange$nat = x0 => Kind$Parser$letforrange$nat$(x0); - - function Kind$Parser$letforrange$nat$with$(_body$1) { - var $3030 = Kind$Parser$block("for")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $3032 = self.err; - var _reply$8 = Kind$Parser$text$("for ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $3034 = self.err; - var self = $3032; - switch (self._) { - case 'Maybe.some': - var $3036 = self.value; - var $3037 = Parser$Reply$error$(Parser$Error$combine$($3036, $3034)); - var $3035 = $3037; - break; - case 'Maybe.none': - var $3038 = Parser$Reply$error$($3034); - var $3035 = $3038; - break; - }; - var $3033 = $3035; - break; - case 'Parser.Reply.value': - var $3039 = self.pst; - var self = $3039; - switch (self._) { - case 'Parser.State.new': - var $3041 = self.err; - var $3042 = self.nam; - var $3043 = self.ini; - var $3044 = self.idx; - var $3045 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3032, $3041), $3042, $3043, $3044, $3045); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $3047 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $3049 = self.err; - var self = $3047; - switch (self._) { - case 'Maybe.some': - var $3051 = self.value; - var $3052 = Parser$Reply$error$(Parser$Error$combine$($3051, $3049)); - var $3050 = $3052; - break; - case 'Maybe.none': - var $3053 = Parser$Reply$error$($3049); - var $3050 = $3053; - break; - }; - var $3048 = $3050; - break; - case 'Parser.Reply.value': - var $3054 = self.pst; - var $3055 = self.val; - var self = $3054; - switch (self._) { - case 'Parser.State.new': - var $3057 = self.err; - var $3058 = self.nam; - var $3059 = self.ini; - var $3060 = self.idx; - var $3061 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3047, $3057), $3058, $3059, $3060, $3061); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $3063 = self.err; - var _reply$36 = Kind$Parser$text$("from", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $3065 = self.err; - var self = $3063; - switch (self._) { - case 'Maybe.some': - var $3067 = self.value; - var $3068 = Parser$Reply$error$(Parser$Error$combine$($3067, $3065)); - var $3066 = $3068; - break; - case 'Maybe.none': - var $3069 = Parser$Reply$error$($3065); - var $3066 = $3069; - break; - }; - var $3064 = $3066; - break; - case 'Parser.Reply.value': - var $3070 = self.pst; - var self = $3070; - switch (self._) { - case 'Parser.State.new': - var $3072 = self.err; - var $3073 = self.nam; - var $3074 = self.ini; - var $3075 = self.idx; - var $3076 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3063, $3072), $3073, $3074, $3075, $3076); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $3078 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $3080 = self.err; - var self = $3078; - switch (self._) { - case 'Maybe.some': - var $3082 = self.value; - var $3083 = Parser$Reply$error$(Parser$Error$combine$($3082, $3080)); - var $3081 = $3083; - break; - case 'Maybe.none': - var $3084 = Parser$Reply$error$($3080); - var $3081 = $3084; - break; - }; - var $3079 = $3081; - break; - case 'Parser.Reply.value': - var $3085 = self.pst; - var $3086 = self.val; - var self = $3085; - switch (self._) { - case 'Parser.State.new': - var $3088 = self.err; - var $3089 = self.nam; - var $3090 = self.ini; - var $3091 = self.idx; - var $3092 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($3078, $3088), $3089, $3090, $3091, $3092); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $3094 = self.err; - var _reply$64 = Kind$Parser$text$("to", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $3096 = self.err; - var self = $3094; - switch (self._) { - case 'Maybe.some': - var $3098 = self.value; - var $3099 = Parser$Reply$error$(Parser$Error$combine$($3098, $3096)); - var $3097 = $3099; - break; - case 'Maybe.none': - var $3100 = Parser$Reply$error$($3096); - var $3097 = $3100; - break; - }; - var $3095 = $3097; - break; - case 'Parser.Reply.value': - var $3101 = self.pst; - var self = $3101; - switch (self._) { - case 'Parser.State.new': - var $3103 = self.err; - var $3104 = self.nam; - var $3105 = self.ini; - var $3106 = self.idx; - var $3107 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3094, $3103), $3104, $3105, $3106, $3107); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $3109 = self.err; - var _reply$78 = Kind$Parser$term(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $3111 = self.err; - var self = $3109; - switch (self._) { - case 'Maybe.some': - var $3113 = self.value; - var $3114 = Parser$Reply$error$(Parser$Error$combine$($3113, $3111)); - var $3112 = $3114; - break; - case 'Maybe.none': - var $3115 = Parser$Reply$error$($3111); - var $3112 = $3115; - break; - }; - var $3110 = $3112; - break; - case 'Parser.Reply.value': - var $3116 = self.pst; - var $3117 = self.val; - var self = $3116; - switch (self._) { - case 'Parser.State.new': - var $3119 = self.err; - var $3120 = self.nam; - var $3121 = self.ini; - var $3122 = self.idx; - var $3123 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3109, $3119), $3120, $3121, $3122, $3123); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $3125 = self.err; - var _reply$92 = Kind$Parser$text$("with ", _reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $3127 = self.err; - var self = $3125; - switch (self._) { - case 'Maybe.some': - var $3129 = self.value; - var $3130 = Parser$Reply$error$(Parser$Error$combine$($3129, $3127)); - var $3128 = $3130; - break; - case 'Maybe.none': - var $3131 = Parser$Reply$error$($3127); - var $3128 = $3131; - break; - }; - var $3126 = $3128; - break; - case 'Parser.Reply.value': - var $3132 = self.pst; - var self = $3132; - switch (self._) { - case 'Parser.State.new': - var $3134 = self.err; - var $3135 = self.nam; - var $3136 = self.ini; - var $3137 = self.idx; - var $3138 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3125, $3134), $3135, $3136, $3137, $3138); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $3140 = self.err; - var _reply$106 = Kind$Parser$name1$(_reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $3142 = self.err; - var self = $3140; - switch (self._) { - case 'Maybe.some': - var $3144 = self.value; - var $3145 = Parser$Reply$error$(Parser$Error$combine$($3144, $3142)); - var $3143 = $3145; - break; - case 'Maybe.none': - var $3146 = Parser$Reply$error$($3142); - var $3143 = $3146; - break; - }; - var $3141 = $3143; - break; - case 'Parser.Reply.value': - var $3147 = self.pst; - var $3148 = self.val; - var self = $3147; - switch (self._) { - case 'Parser.State.new': - var $3150 = self.err; - var $3151 = self.nam; - var $3152 = self.ini; - var $3153 = self.idx; - var $3154 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3140, $3150), $3151, $3152, $3153, $3154); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $3156 = self.err; - var _reply$120 = Kind$Parser$text$(":", _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $3158 = self.err; - var self = $3156; - switch (self._) { - case 'Maybe.some': - var $3160 = self.value; - var $3161 = Parser$Reply$error$(Parser$Error$combine$($3160, $3158)); - var $3159 = $3161; - break; - case 'Maybe.none': - var $3162 = Parser$Reply$error$($3158); - var $3159 = $3162; - break; - }; - var $3157 = $3159; - break; - case 'Parser.Reply.value': - var $3163 = self.pst; - var self = $3163; - switch (self._) { - case 'Parser.State.new': - var $3165 = self.err; - var $3166 = self.nam; - var $3167 = self.ini; - var $3168 = self.idx; - var $3169 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($3156, $3165), $3166, $3167, $3168, $3169); - var self = _reply$pst$128; - switch (self._) { - case 'Parser.State.new': - var $3171 = self.err; - var _reply$134 = Kind$Parser$term(_reply$pst$128); - var self = _reply$134; - switch (self._) { - case 'Parser.Reply.error': - var $3173 = self.err; - var self = $3171; - switch (self._) { - case 'Maybe.some': - var $3175 = self.value; - var $3176 = Parser$Reply$error$(Parser$Error$combine$($3175, $3173)); - var $3174 = $3176; - break; - case 'Maybe.none': - var $3177 = Parser$Reply$error$($3173); - var $3174 = $3177; - break; - }; - var $3172 = $3174; - break; - case 'Parser.Reply.value': - var $3178 = self.pst; - var $3179 = self.val; - var self = $3178; - switch (self._) { - case 'Parser.State.new': - var $3181 = self.err; - var $3182 = self.nam; - var $3183 = self.ini; - var $3184 = self.idx; - var $3185 = self.str; - var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($3171, $3181), $3182, $3183, $3184, $3185); - var self = _reply$pst$142; - switch (self._) { - case 'Parser.State.new': - var $3187 = self.err; - var _reply$148 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$142); - var self = _reply$148; - switch (self._) { - case 'Parser.Reply.error': - var $3189 = self.err; - var self = $3187; - switch (self._) { - case 'Maybe.some': - var $3191 = self.value; - var $3192 = Parser$Reply$error$(Parser$Error$combine$($3191, $3189)); - var $3190 = $3192; - break; - case 'Maybe.none': - var $3193 = Parser$Reply$error$($3189); - var $3190 = $3193; - break; - }; - var $3188 = $3190; - break; - case 'Parser.Reply.value': - var $3194 = self.pst; - var self = $3194; - switch (self._) { - case 'Parser.State.new': - var $3196 = self.err; - var $3197 = self.nam; - var $3198 = self.ini; - var $3199 = self.idx; - var $3200 = self.str; - var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($3187, $3196), $3197, $3198, $3199, $3200); - var self = _reply$pst$156; - switch (self._) { - case 'Parser.State.new': - var $3202 = self.err; - var _reply$162 = _body$1(Unit$new)(_reply$pst$156); - var self = _reply$162; - switch (self._) { - case 'Parser.Reply.error': - var $3204 = self.err; - var self = $3202; - switch (self._) { - case 'Maybe.some': - var $3206 = self.value; - var $3207 = Parser$Reply$error$(Parser$Error$combine$($3206, $3204)); - var $3205 = $3207; - break; - case 'Maybe.none': - var $3208 = Parser$Reply$error$($3204); - var $3205 = $3208; - break; - }; - var $3203 = $3205; - break; - case 'Parser.Reply.value': - var $3209 = self.pst; - var $3210 = self.val; - var self = $3209; - switch (self._) { - case 'Parser.State.new': - var $3212 = self.err; - var $3213 = self.nam; - var $3214 = self.ini; - var $3215 = self.idx; - var $3216 = self.str; - var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($3202, $3212), $3213, $3214, $3215, $3216); - var _term$171 = Kind$Term$ref$("Nat.for"); - var _term$172 = Kind$Term$app$(_term$171, Kind$Term$hol$(Bits$e)); - var _term$173 = Kind$Term$app$(_term$172, Kind$Term$ref$($3148)); - var _term$174 = Kind$Term$app$(_term$173, $3086); - var _term$175 = Kind$Term$app$(_term$174, $3117); - var _lamb$176 = Kind$Term$lam$($3055, (_e$176 => { - var $3218 = Kind$Term$lam$($3148, (_s$177 => { - var $3219 = $3179; - return $3219; - })); - return $3218; - })); - var _term$177 = Kind$Term$app$(_term$175, _lamb$176); - var _term$178 = Kind$Term$let$($3148, _term$177, (_x$178 => { - var $3220 = $3210; - return $3220; - })); - var $3217 = Parser$Reply$value$(_reply$pst$170, _term$178); - var $3211 = $3217; - break; - }; - var $3203 = $3211; - break; - }; - var $3201 = $3203; - break; - }; - var $3195 = $3201; - break; - }; - var $3188 = $3195; - break; - }; - var $3186 = $3188; - break; - }; - var $3180 = $3186; - break; - }; - var $3172 = $3180; - break; - }; - var $3170 = $3172; - break; - }; - var $3164 = $3170; - break; - }; - var $3157 = $3164; - break; - }; - var $3155 = $3157; - break; - }; - var $3149 = $3155; - break; - }; - var $3141 = $3149; - break; - }; - var $3139 = $3141; - break; - }; - var $3133 = $3139; - break; - }; - var $3126 = $3133; - break; - }; - var $3124 = $3126; - break; - }; - var $3118 = $3124; - break; - }; - var $3110 = $3118; - break; - }; - var $3108 = $3110; - break; - }; - var $3102 = $3108; - break; - }; - var $3095 = $3102; - break; - }; - var $3093 = $3095; - break; - }; - var $3087 = $3093; - break; - }; - var $3079 = $3087; - break; - }; - var $3077 = $3079; - break; - }; - var $3071 = $3077; - break; - }; - var $3064 = $3071; - break; - }; - var $3062 = $3064; - break; - }; - var $3056 = $3062; - break; - }; - var $3048 = $3056; - break; - }; - var $3046 = $3048; - break; - }; - var $3040 = $3046; - break; - }; - var $3033 = $3040; - break; - }; - var $3031 = $3033; - break; - }; - return $3031; - })); - return $3030; - }; - const Kind$Parser$letforrange$nat$with = x0 => Kind$Parser$letforrange$nat$with$(x0); - - function Kind$Parser$letforin$(_body$1) { - var $3221 = Kind$Parser$block("let-for")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $3223 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $3225 = self.err; - var self = $3223; - switch (self._) { - case 'Maybe.some': - var $3227 = self.value; - var $3228 = Parser$Reply$error$(Parser$Error$combine$($3227, $3225)); - var $3226 = $3228; - break; - case 'Maybe.none': - var $3229 = Parser$Reply$error$($3225); - var $3226 = $3229; - break; - }; - var $3224 = $3226; - break; - case 'Parser.Reply.value': - var $3230 = self.pst; - var self = $3230; - switch (self._) { - case 'Parser.State.new': - var $3232 = self.err; - var $3233 = self.nam; - var $3234 = self.ini; - var $3235 = self.idx; - var $3236 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3223, $3232), $3233, $3234, $3235, $3236); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $3238 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $3240 = self.err; - var self = $3238; - switch (self._) { - case 'Maybe.some': - var $3242 = self.value; - var $3243 = Parser$Reply$error$(Parser$Error$combine$($3242, $3240)); - var $3241 = $3243; - break; - case 'Maybe.none': - var $3244 = Parser$Reply$error$($3240); - var $3241 = $3244; - break; - }; - var $3239 = $3241; - break; - case 'Parser.Reply.value': - var $3245 = self.pst; - var $3246 = self.val; - var self = $3245; - switch (self._) { - case 'Parser.State.new': - var $3248 = self.err; - var $3249 = self.nam; - var $3250 = self.ini; - var $3251 = self.idx; - var $3252 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3238, $3248), $3249, $3250, $3251, $3252); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $3254 = self.err; - var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $3256 = self.err; - var self = $3254; - switch (self._) { - case 'Maybe.some': - var $3258 = self.value; - var $3259 = Parser$Reply$error$(Parser$Error$combine$($3258, $3256)); - var $3257 = $3259; - break; - case 'Maybe.none': - var $3260 = Parser$Reply$error$($3256); - var $3257 = $3260; - break; - }; - var $3255 = $3257; - break; - case 'Parser.Reply.value': - var $3261 = self.pst; - var self = $3261; - switch (self._) { - case 'Parser.State.new': - var $3263 = self.err; - var $3264 = self.nam; - var $3265 = self.ini; - var $3266 = self.idx; - var $3267 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3254, $3263), $3264, $3265, $3266, $3267); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $3269 = self.err; - var _reply$50 = Kind$Parser$text$("for ", _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $3271 = self.err; - var self = $3269; - switch (self._) { - case 'Maybe.some': - var $3273 = self.value; - var $3274 = Parser$Reply$error$(Parser$Error$combine$($3273, $3271)); - var $3272 = $3274; - break; - case 'Maybe.none': - var $3275 = Parser$Reply$error$($3271); - var $3272 = $3275; - break; - }; - var $3270 = $3272; - break; - case 'Parser.Reply.value': - var $3276 = self.pst; - var self = $3276; - switch (self._) { - case 'Parser.State.new': - var $3278 = self.err; - var $3279 = self.nam; - var $3280 = self.ini; - var $3281 = self.idx; - var $3282 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($3269, $3278), $3279, $3280, $3281, $3282); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $3284 = self.err; - var _reply$64 = Kind$Parser$name1$(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $3286 = self.err; - var self = $3284; - switch (self._) { - case 'Maybe.some': - var $3288 = self.value; - var $3289 = Parser$Reply$error$(Parser$Error$combine$($3288, $3286)); - var $3287 = $3289; - break; - case 'Maybe.none': - var $3290 = Parser$Reply$error$($3286); - var $3287 = $3290; - break; - }; - var $3285 = $3287; - break; - case 'Parser.Reply.value': - var $3291 = self.pst; - var $3292 = self.val; - var self = $3291; - switch (self._) { - case 'Parser.State.new': - var $3294 = self.err; - var $3295 = self.nam; - var $3296 = self.ini; - var $3297 = self.idx; - var $3298 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3284, $3294), $3295, $3296, $3297, $3298); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $3300 = self.err; - var _reply$78 = Kind$Parser$text$("in", _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $3302 = self.err; - var self = $3300; - switch (self._) { - case 'Maybe.some': - var $3304 = self.value; - var $3305 = Parser$Reply$error$(Parser$Error$combine$($3304, $3302)); - var $3303 = $3305; - break; - case 'Maybe.none': - var $3306 = Parser$Reply$error$($3302); - var $3303 = $3306; - break; - }; - var $3301 = $3303; - break; - case 'Parser.Reply.value': - var $3307 = self.pst; - var self = $3307; - switch (self._) { - case 'Parser.State.new': - var $3309 = self.err; - var $3310 = self.nam; - var $3311 = self.ini; - var $3312 = self.idx; - var $3313 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3300, $3309), $3310, $3311, $3312, $3313); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $3315 = self.err; - var _reply$92 = Kind$Parser$term(_reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $3317 = self.err; - var self = $3315; - switch (self._) { - case 'Maybe.some': - var $3319 = self.value; - var $3320 = Parser$Reply$error$(Parser$Error$combine$($3319, $3317)); - var $3318 = $3320; - break; - case 'Maybe.none': - var $3321 = Parser$Reply$error$($3317); - var $3318 = $3321; - break; - }; - var $3316 = $3318; - break; - case 'Parser.Reply.value': - var $3322 = self.pst; - var $3323 = self.val; - var self = $3322; - switch (self._) { - case 'Parser.State.new': - var $3325 = self.err; - var $3326 = self.nam; - var $3327 = self.ini; - var $3328 = self.idx; - var $3329 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3315, $3325), $3326, $3327, $3328, $3329); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $3331 = self.err; - var _reply$106 = Kind$Parser$text$(":", _reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $3333 = self.err; - var self = $3331; - switch (self._) { - case 'Maybe.some': - var $3335 = self.value; - var $3336 = Parser$Reply$error$(Parser$Error$combine$($3335, $3333)); - var $3334 = $3336; - break; - case 'Maybe.none': - var $3337 = Parser$Reply$error$($3333); - var $3334 = $3337; - break; - }; - var $3332 = $3334; - break; - case 'Parser.Reply.value': - var $3338 = self.pst; - var self = $3338; - switch (self._) { - case 'Parser.State.new': - var $3340 = self.err; - var $3341 = self.nam; - var $3342 = self.ini; - var $3343 = self.idx; - var $3344 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3331, $3340), $3341, $3342, $3343, $3344); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $3346 = self.err; - var _reply$120 = Kind$Parser$term(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $3348 = self.err; - var self = $3346; - switch (self._) { - case 'Maybe.some': - var $3350 = self.value; - var $3351 = Parser$Reply$error$(Parser$Error$combine$($3350, $3348)); - var $3349 = $3351; - break; - case 'Maybe.none': - var $3352 = Parser$Reply$error$($3348); - var $3349 = $3352; - break; - }; - var $3347 = $3349; - break; - case 'Parser.Reply.value': - var $3353 = self.pst; - var $3354 = self.val; - var self = $3353; - switch (self._) { - case 'Parser.State.new': - var $3356 = self.err; - var $3357 = self.nam; - var $3358 = self.ini; - var $3359 = self.idx; - var $3360 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($3346, $3356), $3357, $3358, $3359, $3360); - var self = _reply$pst$128; - switch (self._) { - case 'Parser.State.new': - var $3362 = self.err; - var _reply$134 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$128); - var self = _reply$134; - switch (self._) { - case 'Parser.Reply.error': - var $3364 = self.err; - var self = $3362; - switch (self._) { - case 'Maybe.some': - var $3366 = self.value; - var $3367 = Parser$Reply$error$(Parser$Error$combine$($3366, $3364)); - var $3365 = $3367; - break; - case 'Maybe.none': - var $3368 = Parser$Reply$error$($3364); - var $3365 = $3368; - break; - }; - var $3363 = $3365; - break; - case 'Parser.Reply.value': - var $3369 = self.pst; - var self = $3369; - switch (self._) { - case 'Parser.State.new': - var $3371 = self.err; - var $3372 = self.nam; - var $3373 = self.ini; - var $3374 = self.idx; - var $3375 = self.str; - var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($3362, $3371), $3372, $3373, $3374, $3375); - var self = _reply$pst$142; - switch (self._) { - case 'Parser.State.new': - var $3377 = self.err; - var _reply$148 = _body$1(Unit$new)(_reply$pst$142); - var self = _reply$148; - switch (self._) { - case 'Parser.Reply.error': - var $3379 = self.err; - var self = $3377; - switch (self._) { - case 'Maybe.some': - var $3381 = self.value; - var $3382 = Parser$Reply$error$(Parser$Error$combine$($3381, $3379)); - var $3380 = $3382; - break; - case 'Maybe.none': - var $3383 = Parser$Reply$error$($3379); - var $3380 = $3383; - break; - }; - var $3378 = $3380; - break; - case 'Parser.Reply.value': - var $3384 = self.pst; - var $3385 = self.val; - var self = $3384; - switch (self._) { - case 'Parser.State.new': - var $3387 = self.err; - var $3388 = self.nam; - var $3389 = self.ini; - var $3390 = self.idx; - var $3391 = self.str; - var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($3377, $3387), $3388, $3389, $3390, $3391); - var _term$157 = Kind$Term$ref$("List.for"); - var _term$158 = Kind$Term$app$(_term$157, Kind$Term$hol$(Bits$e)); - var _term$159 = Kind$Term$app$(_term$158, $3323); - var _term$160 = Kind$Term$app$(_term$159, Kind$Term$hol$(Bits$e)); - var _term$161 = Kind$Term$app$(_term$160, Kind$Term$ref$($3246)); - var _lamb$162 = Kind$Term$lam$($3292, (_i$162 => { - var $3393 = Kind$Term$lam$($3246, (_x$163 => { - var $3394 = $3354; - return $3394; - })); - return $3393; - })); - var _term$163 = Kind$Term$app$(_term$161, _lamb$162); - var _term$164 = Kind$Term$let$($3246, _term$163, (_x$164 => { - var $3395 = $3385; - return $3395; - })); - var $3392 = Parser$Reply$value$(_reply$pst$156, _term$164); - var $3386 = $3392; - break; - }; - var $3378 = $3386; - break; - }; - var $3376 = $3378; - break; - }; - var $3370 = $3376; - break; - }; - var $3363 = $3370; - break; - }; - var $3361 = $3363; - break; - }; - var $3355 = $3361; - break; - }; - var $3347 = $3355; - break; - }; - var $3345 = $3347; - break; - }; - var $3339 = $3345; - break; - }; - var $3332 = $3339; - break; - }; - var $3330 = $3332; - break; - }; - var $3324 = $3330; - break; - }; - var $3316 = $3324; - break; - }; - var $3314 = $3316; - break; - }; - var $3308 = $3314; - break; - }; - var $3301 = $3308; - break; - }; - var $3299 = $3301; - break; - }; - var $3293 = $3299; - break; - }; - var $3285 = $3293; - break; - }; - var $3283 = $3285; - break; - }; - var $3277 = $3283; - break; - }; - var $3270 = $3277; - break; - }; - var $3268 = $3270; - break; - }; - var $3262 = $3268; - break; - }; - var $3255 = $3262; - break; - }; - var $3253 = $3255; - break; - }; - var $3247 = $3253; - break; - }; - var $3239 = $3247; - break; - }; - var $3237 = $3239; - break; - }; - var $3231 = $3237; - break; - }; - var $3224 = $3231; - break; - }; - var $3222 = $3224; - break; - }; - return $3222; - })); - return $3221; - }; - const Kind$Parser$letforin = x0 => Kind$Parser$letforin$(x0); - - function Kind$Parser$letforin$with$(_body$1) { - var $3396 = Kind$Parser$block("for")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $3398 = self.err; - var _reply$8 = Kind$Parser$text$("for ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $3400 = self.err; - var self = $3398; - switch (self._) { - case 'Maybe.some': - var $3402 = self.value; - var $3403 = Parser$Reply$error$(Parser$Error$combine$($3402, $3400)); - var $3401 = $3403; - break; - case 'Maybe.none': - var $3404 = Parser$Reply$error$($3400); - var $3401 = $3404; - break; - }; - var $3399 = $3401; - break; - case 'Parser.Reply.value': - var $3405 = self.pst; - var self = $3405; - switch (self._) { - case 'Parser.State.new': - var $3407 = self.err; - var $3408 = self.nam; - var $3409 = self.ini; - var $3410 = self.idx; - var $3411 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3398, $3407), $3408, $3409, $3410, $3411); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $3413 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $3415 = self.err; - var self = $3413; - switch (self._) { - case 'Maybe.some': - var $3417 = self.value; - var $3418 = Parser$Reply$error$(Parser$Error$combine$($3417, $3415)); - var $3416 = $3418; - break; - case 'Maybe.none': - var $3419 = Parser$Reply$error$($3415); - var $3416 = $3419; - break; - }; - var $3414 = $3416; - break; - case 'Parser.Reply.value': - var $3420 = self.pst; - var $3421 = self.val; - var self = $3420; - switch (self._) { - case 'Parser.State.new': - var $3423 = self.err; - var $3424 = self.nam; - var $3425 = self.ini; - var $3426 = self.idx; - var $3427 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3413, $3423), $3424, $3425, $3426, $3427); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $3429 = self.err; - var _reply$36 = Kind$Parser$text$("in", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $3431 = self.err; - var self = $3429; - switch (self._) { - case 'Maybe.some': - var $3433 = self.value; - var $3434 = Parser$Reply$error$(Parser$Error$combine$($3433, $3431)); - var $3432 = $3434; - break; - case 'Maybe.none': - var $3435 = Parser$Reply$error$($3431); - var $3432 = $3435; - break; - }; - var $3430 = $3432; - break; - case 'Parser.Reply.value': - var $3436 = self.pst; - var self = $3436; - switch (self._) { - case 'Parser.State.new': - var $3438 = self.err; - var $3439 = self.nam; - var $3440 = self.ini; - var $3441 = self.idx; - var $3442 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3429, $3438), $3439, $3440, $3441, $3442); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $3444 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $3446 = self.err; - var self = $3444; - switch (self._) { - case 'Maybe.some': - var $3448 = self.value; - var $3449 = Parser$Reply$error$(Parser$Error$combine$($3448, $3446)); - var $3447 = $3449; - break; - case 'Maybe.none': - var $3450 = Parser$Reply$error$($3446); - var $3447 = $3450; - break; - }; - var $3445 = $3447; - break; - case 'Parser.Reply.value': - var $3451 = self.pst; - var $3452 = self.val; - var self = $3451; - switch (self._) { - case 'Parser.State.new': - var $3454 = self.err; - var $3455 = self.nam; - var $3456 = self.ini; - var $3457 = self.idx; - var $3458 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($3444, $3454), $3455, $3456, $3457, $3458); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $3460 = self.err; - var _reply$64 = Kind$Parser$text$("with", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $3462 = self.err; - var self = $3460; - switch (self._) { - case 'Maybe.some': - var $3464 = self.value; - var $3465 = Parser$Reply$error$(Parser$Error$combine$($3464, $3462)); - var $3463 = $3465; - break; - case 'Maybe.none': - var $3466 = Parser$Reply$error$($3462); - var $3463 = $3466; - break; - }; - var $3461 = $3463; - break; - case 'Parser.Reply.value': - var $3467 = self.pst; - var self = $3467; - switch (self._) { - case 'Parser.State.new': - var $3469 = self.err; - var $3470 = self.nam; - var $3471 = self.ini; - var $3472 = self.idx; - var $3473 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3460, $3469), $3470, $3471, $3472, $3473); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $3475 = self.err; - var _reply$78 = Kind$Parser$name1$(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $3477 = self.err; - var self = $3475; - switch (self._) { - case 'Maybe.some': - var $3479 = self.value; - var $3480 = Parser$Reply$error$(Parser$Error$combine$($3479, $3477)); - var $3478 = $3480; - break; - case 'Maybe.none': - var $3481 = Parser$Reply$error$($3477); - var $3478 = $3481; - break; - }; - var $3476 = $3478; - break; - case 'Parser.Reply.value': - var $3482 = self.pst; - var $3483 = self.val; - var self = $3482; - switch (self._) { - case 'Parser.State.new': - var $3485 = self.err; - var $3486 = self.nam; - var $3487 = self.ini; - var $3488 = self.idx; - var $3489 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3475, $3485), $3486, $3487, $3488, $3489); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $3491 = self.err; - var _reply$92 = Kind$Parser$text$(":", _reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $3493 = self.err; - var self = $3491; - switch (self._) { - case 'Maybe.some': - var $3495 = self.value; - var $3496 = Parser$Reply$error$(Parser$Error$combine$($3495, $3493)); - var $3494 = $3496; - break; - case 'Maybe.none': - var $3497 = Parser$Reply$error$($3493); - var $3494 = $3497; - break; - }; - var $3492 = $3494; - break; - case 'Parser.Reply.value': - var $3498 = self.pst; - var self = $3498; - switch (self._) { - case 'Parser.State.new': - var $3500 = self.err; - var $3501 = self.nam; - var $3502 = self.ini; - var $3503 = self.idx; - var $3504 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3491, $3500), $3501, $3502, $3503, $3504); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $3506 = self.err; - var _reply$106 = Kind$Parser$term(_reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $3508 = self.err; - var self = $3506; - switch (self._) { - case 'Maybe.some': - var $3510 = self.value; - var $3511 = Parser$Reply$error$(Parser$Error$combine$($3510, $3508)); - var $3509 = $3511; - break; - case 'Maybe.none': - var $3512 = Parser$Reply$error$($3508); - var $3509 = $3512; - break; - }; - var $3507 = $3509; - break; - case 'Parser.Reply.value': - var $3513 = self.pst; - var $3514 = self.val; - var self = $3513; - switch (self._) { - case 'Parser.State.new': - var $3516 = self.err; - var $3517 = self.nam; - var $3518 = self.ini; - var $3519 = self.idx; - var $3520 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3506, $3516), $3517, $3518, $3519, $3520); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $3522 = self.err; - var _reply$120 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $3524 = self.err; - var self = $3522; - switch (self._) { - case 'Maybe.some': - var $3526 = self.value; - var $3527 = Parser$Reply$error$(Parser$Error$combine$($3526, $3524)); - var $3525 = $3527; - break; - case 'Maybe.none': - var $3528 = Parser$Reply$error$($3524); - var $3525 = $3528; - break; - }; - var $3523 = $3525; - break; - case 'Parser.Reply.value': - var $3529 = self.pst; - var self = $3529; - switch (self._) { - case 'Parser.State.new': - var $3531 = self.err; - var $3532 = self.nam; - var $3533 = self.ini; - var $3534 = self.idx; - var $3535 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($3522, $3531), $3532, $3533, $3534, $3535); - var self = _reply$pst$128; - switch (self._) { - case 'Parser.State.new': - var $3537 = self.err; - var _reply$134 = _body$1(Unit$new)(_reply$pst$128); - var self = _reply$134; - switch (self._) { - case 'Parser.Reply.error': - var $3539 = self.err; - var self = $3537; - switch (self._) { - case 'Maybe.some': - var $3541 = self.value; - var $3542 = Parser$Reply$error$(Parser$Error$combine$($3541, $3539)); - var $3540 = $3542; - break; - case 'Maybe.none': - var $3543 = Parser$Reply$error$($3539); - var $3540 = $3543; - break; - }; - var $3538 = $3540; - break; - case 'Parser.Reply.value': - var $3544 = self.pst; - var $3545 = self.val; - var self = $3544; - switch (self._) { - case 'Parser.State.new': - var $3547 = self.err; - var $3548 = self.nam; - var $3549 = self.ini; - var $3550 = self.idx; - var $3551 = self.str; - var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($3537, $3547), $3548, $3549, $3550, $3551); - var _term$143 = Kind$Term$ref$("List.for"); - var _term$144 = Kind$Term$app$(_term$143, Kind$Term$hol$(Bits$e)); - var _term$145 = Kind$Term$app$(_term$144, $3452); - var _term$146 = Kind$Term$app$(_term$145, Kind$Term$hol$(Bits$e)); - var _term$147 = Kind$Term$app$(_term$146, Kind$Term$ref$($3483)); - var _lamb$148 = Kind$Term$lam$($3421, (_i$148 => { - var $3553 = Kind$Term$lam$($3483, (_x$149 => { - var $3554 = $3514; - return $3554; - })); - return $3553; - })); - var _term$149 = Kind$Term$app$(_term$147, _lamb$148); - var _term$150 = Kind$Term$let$($3483, _term$149, (_x$150 => { - var $3555 = $3545; - return $3555; - })); - var $3552 = Parser$Reply$value$(_reply$pst$142, _term$150); - var $3546 = $3552; - break; - }; - var $3538 = $3546; - break; - }; - var $3536 = $3538; - break; - }; - var $3530 = $3536; - break; - }; - var $3523 = $3530; - break; - }; - var $3521 = $3523; - break; - }; - var $3515 = $3521; - break; - }; - var $3507 = $3515; - break; - }; - var $3505 = $3507; - break; - }; - var $3499 = $3505; - break; - }; - var $3492 = $3499; - break; - }; - var $3490 = $3492; - break; - }; - var $3484 = $3490; - break; - }; - var $3476 = $3484; - break; - }; - var $3474 = $3476; - break; - }; - var $3468 = $3474; - break; - }; - var $3461 = $3468; - break; - }; - var $3459 = $3461; - break; - }; - var $3453 = $3459; - break; - }; - var $3445 = $3453; - break; - }; - var $3443 = $3445; - break; - }; - var $3437 = $3443; - break; - }; - var $3430 = $3437; - break; - }; - var $3428 = $3430; - break; - }; - var $3422 = $3428; - break; - }; - var $3414 = $3422; - break; - }; - var $3412 = $3414; - break; - }; - var $3406 = $3412; - break; - }; - var $3399 = $3406; - break; - }; - var $3397 = $3399; - break; - }; - return $3397; - })); - return $3396; - }; - const Kind$Parser$letforin$with = x0 => Kind$Parser$letforin$with$(x0); - - function Kind$Parser$letforinmap$(_body$1) { - var $3556 = Kind$Parser$block("let-for-map")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $3558 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $3560 = self.err; - var self = $3558; - switch (self._) { - case 'Maybe.some': - var $3562 = self.value; - var $3563 = Parser$Reply$error$(Parser$Error$combine$($3562, $3560)); - var $3561 = $3563; - break; - case 'Maybe.none': - var $3564 = Parser$Reply$error$($3560); - var $3561 = $3564; - break; - }; - var $3559 = $3561; - break; - case 'Parser.Reply.value': - var $3565 = self.pst; - var self = $3565; - switch (self._) { - case 'Parser.State.new': - var $3567 = self.err; - var $3568 = self.nam; - var $3569 = self.ini; - var $3570 = self.idx; - var $3571 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3558, $3567), $3568, $3569, $3570, $3571); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $3573 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $3575 = self.err; - var self = $3573; - switch (self._) { - case 'Maybe.some': - var $3577 = self.value; - var $3578 = Parser$Reply$error$(Parser$Error$combine$($3577, $3575)); - var $3576 = $3578; - break; - case 'Maybe.none': - var $3579 = Parser$Reply$error$($3575); - var $3576 = $3579; - break; - }; - var $3574 = $3576; - break; - case 'Parser.Reply.value': - var $3580 = self.pst; - var $3581 = self.val; - var self = $3580; - switch (self._) { - case 'Parser.State.new': - var $3583 = self.err; - var $3584 = self.nam; - var $3585 = self.ini; - var $3586 = self.idx; - var $3587 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3573, $3583), $3584, $3585, $3586, $3587); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $3589 = self.err; - var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $3591 = self.err; - var self = $3589; - switch (self._) { - case 'Maybe.some': - var $3593 = self.value; - var $3594 = Parser$Reply$error$(Parser$Error$combine$($3593, $3591)); - var $3592 = $3594; - break; - case 'Maybe.none': - var $3595 = Parser$Reply$error$($3591); - var $3592 = $3595; - break; - }; - var $3590 = $3592; - break; - case 'Parser.Reply.value': - var $3596 = self.pst; - var self = $3596; - switch (self._) { - case 'Parser.State.new': - var $3598 = self.err; - var $3599 = self.nam; - var $3600 = self.ini; - var $3601 = self.idx; - var $3602 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3589, $3598), $3599, $3600, $3601, $3602); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $3604 = self.err; - var _reply$50 = Kind$Parser$text$("for ", _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $3606 = self.err; - var self = $3604; - switch (self._) { - case 'Maybe.some': - var $3608 = self.value; - var $3609 = Parser$Reply$error$(Parser$Error$combine$($3608, $3606)); - var $3607 = $3609; - break; - case 'Maybe.none': - var $3610 = Parser$Reply$error$($3606); - var $3607 = $3610; - break; - }; - var $3605 = $3607; - break; - case 'Parser.Reply.value': - var $3611 = self.pst; - var self = $3611; - switch (self._) { - case 'Parser.State.new': - var $3613 = self.err; - var $3614 = self.nam; - var $3615 = self.ini; - var $3616 = self.idx; - var $3617 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($3604, $3613), $3614, $3615, $3616, $3617); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $3619 = self.err; - var _reply$64 = Kind$Parser$name1$(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $3621 = self.err; - var self = $3619; - switch (self._) { - case 'Maybe.some': - var $3623 = self.value; - var $3624 = Parser$Reply$error$(Parser$Error$combine$($3623, $3621)); - var $3622 = $3624; - break; - case 'Maybe.none': - var $3625 = Parser$Reply$error$($3621); - var $3622 = $3625; - break; - }; - var $3620 = $3622; - break; - case 'Parser.Reply.value': - var $3626 = self.pst; - var $3627 = self.val; - var self = $3626; - switch (self._) { - case 'Parser.State.new': - var $3629 = self.err; - var $3630 = self.nam; - var $3631 = self.ini; - var $3632 = self.idx; - var $3633 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3619, $3629), $3630, $3631, $3632, $3633); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $3635 = self.err; - var _reply$78 = Kind$Parser$text$(":", _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $3637 = self.err; - var self = $3635; - switch (self._) { - case 'Maybe.some': - var $3639 = self.value; - var $3640 = Parser$Reply$error$(Parser$Error$combine$($3639, $3637)); - var $3638 = $3640; - break; - case 'Maybe.none': - var $3641 = Parser$Reply$error$($3637); - var $3638 = $3641; - break; - }; - var $3636 = $3638; - break; - case 'Parser.Reply.value': - var $3642 = self.pst; - var self = $3642; - switch (self._) { - case 'Parser.State.new': - var $3644 = self.err; - var $3645 = self.nam; - var $3646 = self.ini; - var $3647 = self.idx; - var $3648 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3635, $3644), $3645, $3646, $3647, $3648); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $3650 = self.err; - var _reply$92 = Kind$Parser$name1$(_reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $3652 = self.err; - var self = $3650; - switch (self._) { - case 'Maybe.some': - var $3654 = self.value; - var $3655 = Parser$Reply$error$(Parser$Error$combine$($3654, $3652)); - var $3653 = $3655; - break; - case 'Maybe.none': - var $3656 = Parser$Reply$error$($3652); - var $3653 = $3656; - break; - }; - var $3651 = $3653; - break; - case 'Parser.Reply.value': - var $3657 = self.pst; - var $3658 = self.val; - var self = $3657; - switch (self._) { - case 'Parser.State.new': - var $3660 = self.err; - var $3661 = self.nam; - var $3662 = self.ini; - var $3663 = self.idx; - var $3664 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3650, $3660), $3661, $3662, $3663, $3664); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $3666 = self.err; - var _reply$106 = Kind$Parser$text$("in", _reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $3668 = self.err; - var self = $3666; - switch (self._) { - case 'Maybe.some': - var $3670 = self.value; - var $3671 = Parser$Reply$error$(Parser$Error$combine$($3670, $3668)); - var $3669 = $3671; - break; - case 'Maybe.none': - var $3672 = Parser$Reply$error$($3668); - var $3669 = $3672; - break; - }; - var $3667 = $3669; - break; - case 'Parser.Reply.value': - var $3673 = self.pst; - var self = $3673; - switch (self._) { - case 'Parser.State.new': - var $3675 = self.err; - var $3676 = self.nam; - var $3677 = self.ini; - var $3678 = self.idx; - var $3679 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3666, $3675), $3676, $3677, $3678, $3679); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $3681 = self.err; - var _reply$120 = Kind$Parser$term(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $3683 = self.err; - var self = $3681; - switch (self._) { - case 'Maybe.some': - var $3685 = self.value; - var $3686 = Parser$Reply$error$(Parser$Error$combine$($3685, $3683)); - var $3684 = $3686; - break; - case 'Maybe.none': - var $3687 = Parser$Reply$error$($3683); - var $3684 = $3687; - break; - }; - var $3682 = $3684; - break; - case 'Parser.Reply.value': - var $3688 = self.pst; - var $3689 = self.val; - var self = $3688; - switch (self._) { - case 'Parser.State.new': - var $3691 = self.err; - var $3692 = self.nam; - var $3693 = self.ini; - var $3694 = self.idx; - var $3695 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($3681, $3691), $3692, $3693, $3694, $3695); - var self = _reply$pst$128; - switch (self._) { - case 'Parser.State.new': - var $3697 = self.err; - var _reply$134 = Kind$Parser$text$(":", _reply$pst$128); - var self = _reply$134; - switch (self._) { - case 'Parser.Reply.error': - var $3699 = self.err; - var self = $3697; - switch (self._) { - case 'Maybe.some': - var $3701 = self.value; - var $3702 = Parser$Reply$error$(Parser$Error$combine$($3701, $3699)); - var $3700 = $3702; - break; - case 'Maybe.none': - var $3703 = Parser$Reply$error$($3699); - var $3700 = $3703; - break; - }; - var $3698 = $3700; - break; - case 'Parser.Reply.value': - var $3704 = self.pst; - var self = $3704; - switch (self._) { - case 'Parser.State.new': - var $3706 = self.err; - var $3707 = self.nam; - var $3708 = self.ini; - var $3709 = self.idx; - var $3710 = self.str; - var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($3697, $3706), $3707, $3708, $3709, $3710); - var self = _reply$pst$142; - switch (self._) { - case 'Parser.State.new': - var $3712 = self.err; - var _reply$148 = Kind$Parser$term(_reply$pst$142); - var self = _reply$148; - switch (self._) { - case 'Parser.Reply.error': - var $3714 = self.err; - var self = $3712; - switch (self._) { - case 'Maybe.some': - var $3716 = self.value; - var $3717 = Parser$Reply$error$(Parser$Error$combine$($3716, $3714)); - var $3715 = $3717; - break; - case 'Maybe.none': - var $3718 = Parser$Reply$error$($3714); - var $3715 = $3718; - break; - }; - var $3713 = $3715; - break; - case 'Parser.Reply.value': - var $3719 = self.pst; - var $3720 = self.val; - var self = $3719; - switch (self._) { - case 'Parser.State.new': - var $3722 = self.err; - var $3723 = self.nam; - var $3724 = self.ini; - var $3725 = self.idx; - var $3726 = self.str; - var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($3712, $3722), $3723, $3724, $3725, $3726); - var self = _reply$pst$156; - switch (self._) { - case 'Parser.State.new': - var $3728 = self.err; - var _reply$162 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$156); - var self = _reply$162; - switch (self._) { - case 'Parser.Reply.error': - var $3730 = self.err; - var self = $3728; - switch (self._) { - case 'Maybe.some': - var $3732 = self.value; - var $3733 = Parser$Reply$error$(Parser$Error$combine$($3732, $3730)); - var $3731 = $3733; - break; - case 'Maybe.none': - var $3734 = Parser$Reply$error$($3730); - var $3731 = $3734; - break; - }; - var $3729 = $3731; - break; - case 'Parser.Reply.value': - var $3735 = self.pst; - var self = $3735; - switch (self._) { - case 'Parser.State.new': - var $3737 = self.err; - var $3738 = self.nam; - var $3739 = self.ini; - var $3740 = self.idx; - var $3741 = self.str; - var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($3728, $3737), $3738, $3739, $3740, $3741); - var self = _reply$pst$170; - switch (self._) { - case 'Parser.State.new': - var $3743 = self.err; - var _reply$176 = _body$1(Unit$new)(_reply$pst$170); - var self = _reply$176; - switch (self._) { - case 'Parser.Reply.error': - var $3745 = self.err; - var self = $3743; - switch (self._) { - case 'Maybe.some': - var $3747 = self.value; - var $3748 = Parser$Reply$error$(Parser$Error$combine$($3747, $3745)); - var $3746 = $3748; - break; - case 'Maybe.none': - var $3749 = Parser$Reply$error$($3745); - var $3746 = $3749; - break; - }; - var $3744 = $3746; - break; - case 'Parser.Reply.value': - var $3750 = self.pst; - var $3751 = self.val; - var self = $3750; - switch (self._) { - case 'Parser.State.new': - var $3753 = self.err; - var $3754 = self.nam; - var $3755 = self.ini; - var $3756 = self.idx; - var $3757 = self.str; - var _reply$pst$184 = Parser$State$new$(Parser$Error$maybe_combine$($3743, $3753), $3754, $3755, $3756, $3757); - var _term$185 = Kind$Term$ref$("BBT.for"); - var _term$186 = Kind$Term$app$(_term$185, Kind$Term$hol$(Bits$e)); - var _term$187 = Kind$Term$app$(_term$186, Kind$Term$hol$(Bits$e)); - var _term$188 = Kind$Term$app$(_term$187, $3689); - var _term$189 = Kind$Term$app$(_term$188, Kind$Term$hol$(Bits$e)); - var _term$190 = Kind$Term$app$(_term$189, Kind$Term$ref$($3581)); - var _lamb$191 = Kind$Term$lam$($3627, (_k$191 => { - var $3759 = Kind$Term$lam$($3658, (_i$192 => { - var $3760 = Kind$Term$lam$($3581, (_x$193 => { - var $3761 = $3720; - return $3761; - })); - return $3760; - })); - return $3759; - })); - var _term$192 = Kind$Term$app$(_term$190, _lamb$191); - var _term$193 = Kind$Term$let$($3581, _term$192, (_x$193 => { - var $3762 = $3751; - return $3762; - })); - var $3758 = Parser$Reply$value$(_reply$pst$184, _term$193); - var $3752 = $3758; - break; - }; - var $3744 = $3752; - break; - }; - var $3742 = $3744; - break; - }; - var $3736 = $3742; - break; - }; - var $3729 = $3736; - break; - }; - var $3727 = $3729; - break; - }; - var $3721 = $3727; - break; - }; - var $3713 = $3721; - break; - }; - var $3711 = $3713; - break; - }; - var $3705 = $3711; - break; - }; - var $3698 = $3705; - break; - }; - var $3696 = $3698; - break; - }; - var $3690 = $3696; - break; - }; - var $3682 = $3690; - break; - }; - var $3680 = $3682; - break; - }; - var $3674 = $3680; - break; - }; - var $3667 = $3674; - break; - }; - var $3665 = $3667; - break; - }; - var $3659 = $3665; - break; - }; - var $3651 = $3659; - break; - }; - var $3649 = $3651; - break; - }; - var $3643 = $3649; - break; - }; - var $3636 = $3643; - break; - }; - var $3634 = $3636; - break; - }; - var $3628 = $3634; - break; - }; - var $3620 = $3628; - break; - }; - var $3618 = $3620; - break; - }; - var $3612 = $3618; - break; - }; - var $3605 = $3612; - break; - }; - var $3603 = $3605; - break; - }; - var $3597 = $3603; - break; - }; - var $3590 = $3597; - break; - }; - var $3588 = $3590; - break; - }; - var $3582 = $3588; - break; - }; - var $3574 = $3582; - break; - }; - var $3572 = $3574; - break; - }; - var $3566 = $3572; - break; - }; - var $3559 = $3566; - break; - }; - var $3557 = $3559; - break; - }; - return $3557; - })); - return $3556; - }; - const Kind$Parser$letforinmap = x0 => Kind$Parser$letforinmap$(x0); - - function Kind$Parser$letforinmap$with$(_body$1) { - var $3763 = Kind$Parser$block("for-map")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $3765 = self.err; - var _reply$8 = Kind$Parser$text$("for ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $3767 = self.err; - var self = $3765; - switch (self._) { - case 'Maybe.some': - var $3769 = self.value; - var $3770 = Parser$Reply$error$(Parser$Error$combine$($3769, $3767)); - var $3768 = $3770; - break; - case 'Maybe.none': - var $3771 = Parser$Reply$error$($3767); - var $3768 = $3771; - break; - }; - var $3766 = $3768; - break; - case 'Parser.Reply.value': - var $3772 = self.pst; - var self = $3772; - switch (self._) { - case 'Parser.State.new': - var $3774 = self.err; - var $3775 = self.nam; - var $3776 = self.ini; - var $3777 = self.idx; - var $3778 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3765, $3774), $3775, $3776, $3777, $3778); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $3780 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $3782 = self.err; - var self = $3780; - switch (self._) { - case 'Maybe.some': - var $3784 = self.value; - var $3785 = Parser$Reply$error$(Parser$Error$combine$($3784, $3782)); - var $3783 = $3785; - break; - case 'Maybe.none': - var $3786 = Parser$Reply$error$($3782); - var $3783 = $3786; - break; - }; - var $3781 = $3783; - break; - case 'Parser.Reply.value': - var $3787 = self.pst; - var $3788 = self.val; - var self = $3787; - switch (self._) { - case 'Parser.State.new': - var $3790 = self.err; - var $3791 = self.nam; - var $3792 = self.ini; - var $3793 = self.idx; - var $3794 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3780, $3790), $3791, $3792, $3793, $3794); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $3796 = self.err; - var _reply$36 = Kind$Parser$text$(":", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $3798 = self.err; - var self = $3796; - switch (self._) { - case 'Maybe.some': - var $3800 = self.value; - var $3801 = Parser$Reply$error$(Parser$Error$combine$($3800, $3798)); - var $3799 = $3801; - break; - case 'Maybe.none': - var $3802 = Parser$Reply$error$($3798); - var $3799 = $3802; - break; - }; - var $3797 = $3799; - break; - case 'Parser.Reply.value': - var $3803 = self.pst; - var self = $3803; - switch (self._) { - case 'Parser.State.new': - var $3805 = self.err; - var $3806 = self.nam; - var $3807 = self.ini; - var $3808 = self.idx; - var $3809 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3796, $3805), $3806, $3807, $3808, $3809); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $3811 = self.err; - var _reply$50 = Kind$Parser$name1$(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $3813 = self.err; - var self = $3811; - switch (self._) { - case 'Maybe.some': - var $3815 = self.value; - var $3816 = Parser$Reply$error$(Parser$Error$combine$($3815, $3813)); - var $3814 = $3816; - break; - case 'Maybe.none': - var $3817 = Parser$Reply$error$($3813); - var $3814 = $3817; - break; - }; - var $3812 = $3814; - break; - case 'Parser.Reply.value': - var $3818 = self.pst; - var $3819 = self.val; - var self = $3818; - switch (self._) { - case 'Parser.State.new': - var $3821 = self.err; - var $3822 = self.nam; - var $3823 = self.ini; - var $3824 = self.idx; - var $3825 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($3811, $3821), $3822, $3823, $3824, $3825); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $3827 = self.err; - var _reply$64 = Kind$Parser$text$("in", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $3829 = self.err; - var self = $3827; - switch (self._) { - case 'Maybe.some': - var $3831 = self.value; - var $3832 = Parser$Reply$error$(Parser$Error$combine$($3831, $3829)); - var $3830 = $3832; - break; - case 'Maybe.none': - var $3833 = Parser$Reply$error$($3829); - var $3830 = $3833; - break; - }; - var $3828 = $3830; - break; - case 'Parser.Reply.value': - var $3834 = self.pst; - var self = $3834; - switch (self._) { - case 'Parser.State.new': - var $3836 = self.err; - var $3837 = self.nam; - var $3838 = self.ini; - var $3839 = self.idx; - var $3840 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3827, $3836), $3837, $3838, $3839, $3840); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $3842 = self.err; - var _reply$78 = Kind$Parser$term(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $3844 = self.err; - var self = $3842; - switch (self._) { - case 'Maybe.some': - var $3846 = self.value; - var $3847 = Parser$Reply$error$(Parser$Error$combine$($3846, $3844)); - var $3845 = $3847; - break; - case 'Maybe.none': - var $3848 = Parser$Reply$error$($3844); - var $3845 = $3848; - break; - }; - var $3843 = $3845; - break; - case 'Parser.Reply.value': - var $3849 = self.pst; - var $3850 = self.val; - var self = $3849; - switch (self._) { - case 'Parser.State.new': - var $3852 = self.err; - var $3853 = self.nam; - var $3854 = self.ini; - var $3855 = self.idx; - var $3856 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3842, $3852), $3853, $3854, $3855, $3856); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $3858 = self.err; - var _reply$92 = Kind$Parser$text$("with", _reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $3860 = self.err; - var self = $3858; - switch (self._) { - case 'Maybe.some': - var $3862 = self.value; - var $3863 = Parser$Reply$error$(Parser$Error$combine$($3862, $3860)); - var $3861 = $3863; - break; - case 'Maybe.none': - var $3864 = Parser$Reply$error$($3860); - var $3861 = $3864; - break; - }; - var $3859 = $3861; - break; - case 'Parser.Reply.value': - var $3865 = self.pst; - var self = $3865; - switch (self._) { - case 'Parser.State.new': - var $3867 = self.err; - var $3868 = self.nam; - var $3869 = self.ini; - var $3870 = self.idx; - var $3871 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3858, $3867), $3868, $3869, $3870, $3871); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $3873 = self.err; - var _reply$106 = Kind$Parser$name1$(_reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $3875 = self.err; - var self = $3873; - switch (self._) { - case 'Maybe.some': - var $3877 = self.value; - var $3878 = Parser$Reply$error$(Parser$Error$combine$($3877, $3875)); - var $3876 = $3878; - break; - case 'Maybe.none': - var $3879 = Parser$Reply$error$($3875); - var $3876 = $3879; - break; - }; - var $3874 = $3876; - break; - case 'Parser.Reply.value': - var $3880 = self.pst; - var $3881 = self.val; - var self = $3880; - switch (self._) { - case 'Parser.State.new': - var $3883 = self.err; - var $3884 = self.nam; - var $3885 = self.ini; - var $3886 = self.idx; - var $3887 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3873, $3883), $3884, $3885, $3886, $3887); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $3889 = self.err; - var _reply$120 = Kind$Parser$text$(":", _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $3891 = self.err; - var self = $3889; - switch (self._) { - case 'Maybe.some': - var $3893 = self.value; - var $3894 = Parser$Reply$error$(Parser$Error$combine$($3893, $3891)); - var $3892 = $3894; - break; - case 'Maybe.none': - var $3895 = Parser$Reply$error$($3891); - var $3892 = $3895; - break; - }; - var $3890 = $3892; - break; - case 'Parser.Reply.value': - var $3896 = self.pst; - var self = $3896; - switch (self._) { - case 'Parser.State.new': - var $3898 = self.err; - var $3899 = self.nam; - var $3900 = self.ini; - var $3901 = self.idx; - var $3902 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($3889, $3898), $3899, $3900, $3901, $3902); - var self = _reply$pst$128; - switch (self._) { - case 'Parser.State.new': - var $3904 = self.err; - var _reply$134 = Kind$Parser$term(_reply$pst$128); - var self = _reply$134; - switch (self._) { - case 'Parser.Reply.error': - var $3906 = self.err; - var self = $3904; - switch (self._) { - case 'Maybe.some': - var $3908 = self.value; - var $3909 = Parser$Reply$error$(Parser$Error$combine$($3908, $3906)); - var $3907 = $3909; - break; - case 'Maybe.none': - var $3910 = Parser$Reply$error$($3906); - var $3907 = $3910; - break; - }; - var $3905 = $3907; - break; - case 'Parser.Reply.value': - var $3911 = self.pst; - var $3912 = self.val; - var self = $3911; - switch (self._) { - case 'Parser.State.new': - var $3914 = self.err; - var $3915 = self.nam; - var $3916 = self.ini; - var $3917 = self.idx; - var $3918 = self.str; - var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($3904, $3914), $3915, $3916, $3917, $3918); - var self = _reply$pst$142; - switch (self._) { - case 'Parser.State.new': - var $3920 = self.err; - var _reply$148 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$142); - var self = _reply$148; - switch (self._) { - case 'Parser.Reply.error': - var $3922 = self.err; - var self = $3920; - switch (self._) { - case 'Maybe.some': - var $3924 = self.value; - var $3925 = Parser$Reply$error$(Parser$Error$combine$($3924, $3922)); - var $3923 = $3925; - break; - case 'Maybe.none': - var $3926 = Parser$Reply$error$($3922); - var $3923 = $3926; - break; - }; - var $3921 = $3923; - break; - case 'Parser.Reply.value': - var $3927 = self.pst; - var self = $3927; - switch (self._) { - case 'Parser.State.new': - var $3929 = self.err; - var $3930 = self.nam; - var $3931 = self.ini; - var $3932 = self.idx; - var $3933 = self.str; - var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($3920, $3929), $3930, $3931, $3932, $3933); - var self = _reply$pst$156; - switch (self._) { - case 'Parser.State.new': - var $3935 = self.err; - var _reply$162 = _body$1(Unit$new)(_reply$pst$156); - var self = _reply$162; - switch (self._) { - case 'Parser.Reply.error': - var $3937 = self.err; - var self = $3935; - switch (self._) { - case 'Maybe.some': - var $3939 = self.value; - var $3940 = Parser$Reply$error$(Parser$Error$combine$($3939, $3937)); - var $3938 = $3940; - break; - case 'Maybe.none': - var $3941 = Parser$Reply$error$($3937); - var $3938 = $3941; - break; - }; - var $3936 = $3938; - break; - case 'Parser.Reply.value': - var $3942 = self.pst; - var $3943 = self.val; - var self = $3942; - switch (self._) { - case 'Parser.State.new': - var $3945 = self.err; - var $3946 = self.nam; - var $3947 = self.ini; - var $3948 = self.idx; - var $3949 = self.str; - var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($3935, $3945), $3946, $3947, $3948, $3949); - var _term$171 = Kind$Term$ref$("BBT.for"); - var _term$172 = Kind$Term$app$(_term$171, Kind$Term$hol$(Bits$e)); - var _term$173 = Kind$Term$app$(_term$172, Kind$Term$hol$(Bits$e)); - var _term$174 = Kind$Term$app$(_term$173, $3850); - var _term$175 = Kind$Term$app$(_term$174, Kind$Term$hol$(Bits$e)); - var _term$176 = Kind$Term$app$(_term$175, Kind$Term$ref$($3881)); - var _lamb$177 = Kind$Term$lam$($3788, (_k$177 => { - var $3951 = Kind$Term$lam$($3819, (_i$178 => { - var $3952 = Kind$Term$lam$($3881, (_x$179 => { - var $3953 = $3912; - return $3953; - })); - return $3952; - })); - return $3951; - })); - var _term$178 = Kind$Term$app$(_term$176, _lamb$177); - var _term$179 = Kind$Term$let$($3881, _term$178, (_x$179 => { - var $3954 = $3943; - return $3954; - })); - var $3950 = Parser$Reply$value$(_reply$pst$170, _term$179); - var $3944 = $3950; - break; - }; - var $3936 = $3944; - break; - }; - var $3934 = $3936; - break; - }; - var $3928 = $3934; - break; - }; - var $3921 = $3928; - break; - }; - var $3919 = $3921; - break; - }; - var $3913 = $3919; - break; - }; - var $3905 = $3913; - break; - }; - var $3903 = $3905; - break; - }; - var $3897 = $3903; - break; - }; - var $3890 = $3897; - break; - }; - var $3888 = $3890; - break; - }; - var $3882 = $3888; - break; - }; - var $3874 = $3882; - break; - }; - var $3872 = $3874; - break; - }; - var $3866 = $3872; - break; - }; - var $3859 = $3866; - break; - }; - var $3857 = $3859; - break; - }; - var $3851 = $3857; - break; - }; - var $3843 = $3851; - break; - }; - var $3841 = $3843; - break; - }; - var $3835 = $3841; - break; - }; - var $3828 = $3835; - break; - }; - var $3826 = $3828; - break; - }; - var $3820 = $3826; - break; - }; - var $3812 = $3820; - break; - }; - var $3810 = $3812; - break; - }; - var $3804 = $3810; - break; - }; - var $3797 = $3804; - break; - }; - var $3795 = $3797; - break; - }; - var $3789 = $3795; - break; - }; - var $3781 = $3789; - break; - }; - var $3779 = $3781; - break; - }; - var $3773 = $3779; - break; - }; - var $3766 = $3773; - break; - }; - var $3764 = $3766; - break; - }; - return $3764; - })); - return $3763; - }; - const Kind$Parser$letforinmap$with = x0 => Kind$Parser$letforinmap$with$(x0); - - function Kind$Parser$letwhile$(_body$1) { - var $3955 = Kind$Parser$block("let-while")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $3957 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $3959 = self.err; - var self = $3957; - switch (self._) { - case 'Maybe.some': - var $3961 = self.value; - var $3962 = Parser$Reply$error$(Parser$Error$combine$($3961, $3959)); - var $3960 = $3962; - break; - case 'Maybe.none': - var $3963 = Parser$Reply$error$($3959); - var $3960 = $3963; - break; - }; - var $3958 = $3960; - break; - case 'Parser.Reply.value': - var $3964 = self.pst; - var self = $3964; - switch (self._) { - case 'Parser.State.new': - var $3966 = self.err; - var $3967 = self.nam; - var $3968 = self.ini; - var $3969 = self.idx; - var $3970 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3957, $3966), $3967, $3968, $3969, $3970); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $3972 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $3974 = self.err; - var self = $3972; - switch (self._) { - case 'Maybe.some': - var $3976 = self.value; - var $3977 = Parser$Reply$error$(Parser$Error$combine$($3976, $3974)); - var $3975 = $3977; - break; - case 'Maybe.none': - var $3978 = Parser$Reply$error$($3974); - var $3975 = $3978; - break; - }; - var $3973 = $3975; - break; - case 'Parser.Reply.value': - var $3979 = self.pst; - var $3980 = self.val; - var self = $3979; - switch (self._) { - case 'Parser.State.new': - var $3982 = self.err; - var $3983 = self.nam; - var $3984 = self.ini; - var $3985 = self.idx; - var $3986 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3972, $3982), $3983, $3984, $3985, $3986); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $3988 = self.err; - var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $3990 = self.err; - var self = $3988; - switch (self._) { - case 'Maybe.some': - var $3992 = self.value; - var $3993 = Parser$Reply$error$(Parser$Error$combine$($3992, $3990)); - var $3991 = $3993; - break; - case 'Maybe.none': - var $3994 = Parser$Reply$error$($3990); - var $3991 = $3994; - break; - }; - var $3989 = $3991; - break; - case 'Parser.Reply.value': - var $3995 = self.pst; - var self = $3995; - switch (self._) { - case 'Parser.State.new': - var $3997 = self.err; - var $3998 = self.nam; - var $3999 = self.ini; - var $4000 = self.idx; - var $4001 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3988, $3997), $3998, $3999, $4000, $4001); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $4003 = self.err; - var _reply$50 = Kind$Parser$text$("while ", _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $4005 = self.err; - var self = $4003; - switch (self._) { - case 'Maybe.some': - var $4007 = self.value; - var $4008 = Parser$Reply$error$(Parser$Error$combine$($4007, $4005)); - var $4006 = $4008; - break; - case 'Maybe.none': - var $4009 = Parser$Reply$error$($4005); - var $4006 = $4009; - break; - }; - var $4004 = $4006; - break; - case 'Parser.Reply.value': - var $4010 = self.pst; - var self = $4010; - switch (self._) { - case 'Parser.State.new': - var $4012 = self.err; - var $4013 = self.nam; - var $4014 = self.ini; - var $4015 = self.idx; - var $4016 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4003, $4012), $4013, $4014, $4015, $4016); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $4018 = self.err; - var _reply$64 = Kind$Parser$term(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $4020 = self.err; - var self = $4018; - switch (self._) { - case 'Maybe.some': - var $4022 = self.value; - var $4023 = Parser$Reply$error$(Parser$Error$combine$($4022, $4020)); - var $4021 = $4023; - break; - case 'Maybe.none': - var $4024 = Parser$Reply$error$($4020); - var $4021 = $4024; - break; - }; - var $4019 = $4021; - break; - case 'Parser.Reply.value': - var $4025 = self.pst; - var $4026 = self.val; - var self = $4025; - switch (self._) { - case 'Parser.State.new': - var $4028 = self.err; - var $4029 = self.nam; - var $4030 = self.ini; - var $4031 = self.idx; - var $4032 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4018, $4028), $4029, $4030, $4031, $4032); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $4034 = self.err; - var _reply$78 = Kind$Parser$text$(":", _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $4036 = self.err; - var self = $4034; - switch (self._) { - case 'Maybe.some': - var $4038 = self.value; - var $4039 = Parser$Reply$error$(Parser$Error$combine$($4038, $4036)); - var $4037 = $4039; - break; - case 'Maybe.none': - var $4040 = Parser$Reply$error$($4036); - var $4037 = $4040; - break; - }; - var $4035 = $4037; - break; - case 'Parser.Reply.value': - var $4041 = self.pst; - var self = $4041; - switch (self._) { - case 'Parser.State.new': - var $4043 = self.err; - var $4044 = self.nam; - var $4045 = self.ini; - var $4046 = self.idx; - var $4047 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4034, $4043), $4044, $4045, $4046, $4047); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $4049 = self.err; - var _reply$92 = Kind$Parser$term(_reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $4051 = self.err; - var self = $4049; - switch (self._) { - case 'Maybe.some': - var $4053 = self.value; - var $4054 = Parser$Reply$error$(Parser$Error$combine$($4053, $4051)); - var $4052 = $4054; - break; - case 'Maybe.none': - var $4055 = Parser$Reply$error$($4051); - var $4052 = $4055; - break; - }; - var $4050 = $4052; - break; - case 'Parser.Reply.value': - var $4056 = self.pst; - var $4057 = self.val; - var self = $4056; - switch (self._) { - case 'Parser.State.new': - var $4059 = self.err; - var $4060 = self.nam; - var $4061 = self.ini; - var $4062 = self.idx; - var $4063 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($4049, $4059), $4060, $4061, $4062, $4063); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $4065 = self.err; - var _reply$106 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $4067 = self.err; - var self = $4065; - switch (self._) { - case 'Maybe.some': - var $4069 = self.value; - var $4070 = Parser$Reply$error$(Parser$Error$combine$($4069, $4067)); - var $4068 = $4070; - break; - case 'Maybe.none': - var $4071 = Parser$Reply$error$($4067); - var $4068 = $4071; - break; - }; - var $4066 = $4068; - break; - case 'Parser.Reply.value': - var $4072 = self.pst; - var self = $4072; - switch (self._) { - case 'Parser.State.new': - var $4074 = self.err; - var $4075 = self.nam; - var $4076 = self.ini; - var $4077 = self.idx; - var $4078 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4065, $4074), $4075, $4076, $4077, $4078); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $4080 = self.err; - var _reply$120 = _body$1(Unit$new)(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $4082 = self.err; - var self = $4080; - switch (self._) { - case 'Maybe.some': - var $4084 = self.value; - var $4085 = Parser$Reply$error$(Parser$Error$combine$($4084, $4082)); - var $4083 = $4085; - break; - case 'Maybe.none': - var $4086 = Parser$Reply$error$($4082); - var $4083 = $4086; - break; - }; - var $4081 = $4083; - break; - case 'Parser.Reply.value': - var $4087 = self.pst; - var $4088 = self.val; - var self = $4087; - switch (self._) { - case 'Parser.State.new': - var $4090 = self.err; - var $4091 = self.nam; - var $4092 = self.ini; - var $4093 = self.idx; - var $4094 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($4080, $4090), $4091, $4092, $4093, $4094); - var _term$129 = Kind$Term$ref$("Function.while"); - var _term$130 = Kind$Term$app$(_term$129, Kind$Term$hol$(Bits$e)); - var _term$131 = Kind$Term$app$(_term$130, Kind$Term$ref$($3980)); - var _term$132 = Kind$Term$app$(_term$131, Kind$Term$lam$($3980, (_s$132 => { - var $4096 = $4026; - return $4096; - }))); - var _term$133 = Kind$Term$app$(_term$132, Kind$Term$lam$($3980, (_s$133 => { - var $4097 = $4057; - return $4097; - }))); - var _term$134 = Kind$Term$let$($3980, _term$133, (_x$134 => { - var $4098 = $4088; - return $4098; - })); - var $4095 = Parser$Reply$value$(_reply$pst$128, _term$134); - var $4089 = $4095; - break; - }; - var $4081 = $4089; - break; - }; - var $4079 = $4081; - break; - }; - var $4073 = $4079; - break; - }; - var $4066 = $4073; - break; - }; - var $4064 = $4066; - break; - }; - var $4058 = $4064; - break; - }; - var $4050 = $4058; - break; - }; - var $4048 = $4050; - break; - }; - var $4042 = $4048; - break; - }; - var $4035 = $4042; - break; - }; - var $4033 = $4035; - break; - }; - var $4027 = $4033; - break; - }; - var $4019 = $4027; - break; - }; - var $4017 = $4019; - break; - }; - var $4011 = $4017; - break; - }; - var $4004 = $4011; - break; - }; - var $4002 = $4004; - break; - }; - var $3996 = $4002; - break; - }; - var $3989 = $3996; - break; - }; - var $3987 = $3989; - break; - }; - var $3981 = $3987; - break; - }; - var $3973 = $3981; - break; - }; - var $3971 = $3973; - break; - }; - var $3965 = $3971; - break; - }; - var $3958 = $3965; - break; - }; - var $3956 = $3958; - break; - }; - return $3956; - })); - return $3955; - }; - const Kind$Parser$letwhile = x0 => Kind$Parser$letwhile$(x0); - - function Kind$Parser$letwhile$with$(_body$1) { - var $4099 = Kind$Parser$block("let-while")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4101 = self.err; - var _reply$8 = Kind$Parser$text$("while ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4103 = self.err; - var self = $4101; - switch (self._) { - case 'Maybe.some': - var $4105 = self.value; - var $4106 = Parser$Reply$error$(Parser$Error$combine$($4105, $4103)); - var $4104 = $4106; - break; - case 'Maybe.none': - var $4107 = Parser$Reply$error$($4103); - var $4104 = $4107; - break; - }; - var $4102 = $4104; - break; - case 'Parser.Reply.value': - var $4108 = self.pst; - var self = $4108; - switch (self._) { - case 'Parser.State.new': - var $4110 = self.err; - var $4111 = self.nam; - var $4112 = self.ini; - var $4113 = self.idx; - var $4114 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4101, $4110), $4111, $4112, $4113, $4114); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $4116 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $4118 = self.err; - var self = $4116; - switch (self._) { - case 'Maybe.some': - var $4120 = self.value; - var $4121 = Parser$Reply$error$(Parser$Error$combine$($4120, $4118)); - var $4119 = $4121; - break; - case 'Maybe.none': - var $4122 = Parser$Reply$error$($4118); - var $4119 = $4122; - break; - }; - var $4117 = $4119; - break; - case 'Parser.Reply.value': - var $4123 = self.pst; - var $4124 = self.val; - var self = $4123; - switch (self._) { - case 'Parser.State.new': - var $4126 = self.err; - var $4127 = self.nam; - var $4128 = self.ini; - var $4129 = self.idx; - var $4130 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4116, $4126), $4127, $4128, $4129, $4130); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $4132 = self.err; - var _reply$36 = Kind$Parser$text$("with ", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $4134 = self.err; - var self = $4132; - switch (self._) { - case 'Maybe.some': - var $4136 = self.value; - var $4137 = Parser$Reply$error$(Parser$Error$combine$($4136, $4134)); - var $4135 = $4137; - break; - case 'Maybe.none': - var $4138 = Parser$Reply$error$($4134); - var $4135 = $4138; - break; - }; - var $4133 = $4135; - break; - case 'Parser.Reply.value': - var $4139 = self.pst; - var self = $4139; - switch (self._) { - case 'Parser.State.new': - var $4141 = self.err; - var $4142 = self.nam; - var $4143 = self.ini; - var $4144 = self.idx; - var $4145 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4132, $4141), $4142, $4143, $4144, $4145); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $4147 = self.err; - var _reply$50 = Kind$Parser$name1$(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $4149 = self.err; - var self = $4147; - switch (self._) { - case 'Maybe.some': - var $4151 = self.value; - var $4152 = Parser$Reply$error$(Parser$Error$combine$($4151, $4149)); - var $4150 = $4152; - break; - case 'Maybe.none': - var $4153 = Parser$Reply$error$($4149); - var $4150 = $4153; - break; - }; - var $4148 = $4150; - break; - case 'Parser.Reply.value': - var $4154 = self.pst; - var $4155 = self.val; - var self = $4154; - switch (self._) { - case 'Parser.State.new': - var $4157 = self.err; - var $4158 = self.nam; - var $4159 = self.ini; - var $4160 = self.idx; - var $4161 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4147, $4157), $4158, $4159, $4160, $4161); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $4163 = self.err; - var _reply$64 = Kind$Parser$text$(":", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $4165 = self.err; - var self = $4163; - switch (self._) { - case 'Maybe.some': - var $4167 = self.value; - var $4168 = Parser$Reply$error$(Parser$Error$combine$($4167, $4165)); - var $4166 = $4168; - break; - case 'Maybe.none': - var $4169 = Parser$Reply$error$($4165); - var $4166 = $4169; - break; - }; - var $4164 = $4166; - break; - case 'Parser.Reply.value': - var $4170 = self.pst; - var self = $4170; - switch (self._) { - case 'Parser.State.new': - var $4172 = self.err; - var $4173 = self.nam; - var $4174 = self.ini; - var $4175 = self.idx; - var $4176 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4163, $4172), $4173, $4174, $4175, $4176); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $4178 = self.err; - var _reply$78 = Kind$Parser$term(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $4180 = self.err; - var self = $4178; - switch (self._) { - case 'Maybe.some': - var $4182 = self.value; - var $4183 = Parser$Reply$error$(Parser$Error$combine$($4182, $4180)); - var $4181 = $4183; - break; - case 'Maybe.none': - var $4184 = Parser$Reply$error$($4180); - var $4181 = $4184; - break; - }; - var $4179 = $4181; - break; - case 'Parser.Reply.value': - var $4185 = self.pst; - var $4186 = self.val; - var self = $4185; - switch (self._) { - case 'Parser.State.new': - var $4188 = self.err; - var $4189 = self.nam; - var $4190 = self.ini; - var $4191 = self.idx; - var $4192 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4178, $4188), $4189, $4190, $4191, $4192); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $4194 = self.err; - var _reply$92 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $4196 = self.err; - var self = $4194; - switch (self._) { - case 'Maybe.some': - var $4198 = self.value; - var $4199 = Parser$Reply$error$(Parser$Error$combine$($4198, $4196)); - var $4197 = $4199; - break; - case 'Maybe.none': - var $4200 = Parser$Reply$error$($4196); - var $4197 = $4200; - break; - }; - var $4195 = $4197; - break; - case 'Parser.Reply.value': - var $4201 = self.pst; - var self = $4201; - switch (self._) { - case 'Parser.State.new': - var $4203 = self.err; - var $4204 = self.nam; - var $4205 = self.ini; - var $4206 = self.idx; - var $4207 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($4194, $4203), $4204, $4205, $4206, $4207); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $4209 = self.err; - var _reply$106 = _body$1(Unit$new)(_reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $4211 = self.err; - var self = $4209; - switch (self._) { - case 'Maybe.some': - var $4213 = self.value; - var $4214 = Parser$Reply$error$(Parser$Error$combine$($4213, $4211)); - var $4212 = $4214; - break; - case 'Maybe.none': - var $4215 = Parser$Reply$error$($4211); - var $4212 = $4215; - break; - }; - var $4210 = $4212; - break; - case 'Parser.Reply.value': - var $4216 = self.pst; - var $4217 = self.val; - var self = $4216; - switch (self._) { - case 'Parser.State.new': - var $4219 = self.err; - var $4220 = self.nam; - var $4221 = self.ini; - var $4222 = self.idx; - var $4223 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4209, $4219), $4220, $4221, $4222, $4223); - var _term$115 = Kind$Term$ref$("Function.while"); - var _term$116 = Kind$Term$app$(_term$115, Kind$Term$hol$(Bits$e)); - var _term$117 = Kind$Term$app$(_term$116, Kind$Term$ref$($4155)); - var _term$118 = Kind$Term$app$(_term$117, Kind$Term$lam$($4155, (_s$118 => { - var $4225 = $4124; - return $4225; - }))); - var _term$119 = Kind$Term$app$(_term$118, Kind$Term$lam$($4155, (_s$119 => { - var $4226 = $4186; - return $4226; - }))); - var _term$120 = Kind$Term$let$($4155, _term$119, (_x$120 => { - var $4227 = $4217; - return $4227; - })); - var $4224 = Parser$Reply$value$(_reply$pst$114, _term$120); - var $4218 = $4224; - break; - }; - var $4210 = $4218; - break; - }; - var $4208 = $4210; - break; - }; - var $4202 = $4208; - break; - }; - var $4195 = $4202; - break; - }; - var $4193 = $4195; - break; - }; - var $4187 = $4193; - break; - }; - var $4179 = $4187; - break; - }; - var $4177 = $4179; - break; - }; - var $4171 = $4177; - break; - }; - var $4164 = $4171; - break; - }; - var $4162 = $4164; - break; - }; - var $4156 = $4162; - break; - }; - var $4148 = $4156; - break; - }; - var $4146 = $4148; - break; - }; - var $4140 = $4146; - break; - }; - var $4133 = $4140; - break; - }; - var $4131 = $4133; - break; - }; - var $4125 = $4131; - break; - }; - var $4117 = $4125; - break; - }; - var $4115 = $4117; - break; - }; - var $4109 = $4115; - break; - }; - var $4102 = $4109; - break; - }; - var $4100 = $4102; - break; - }; - return $4100; - })); - return $4099; - }; - const Kind$Parser$letwhile$with = x0 => Kind$Parser$letwhile$with$(x0); - - function Kind$Parser$let$abort$(_body$1) { - var $4228 = Kind$Parser$block("let")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4230 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4232 = self.err; - var self = $4230; - switch (self._) { - case 'Maybe.some': - var $4234 = self.value; - var $4235 = Parser$Reply$error$(Parser$Error$combine$($4234, $4232)); - var $4233 = $4235; - break; - case 'Maybe.none': - var $4236 = Parser$Reply$error$($4232); - var $4233 = $4236; - break; - }; - var $4231 = $4233; - break; - case 'Parser.Reply.value': - var $4237 = self.pst; - var self = $4237; - switch (self._) { - case 'Parser.State.new': - var $4239 = self.err; - var $4240 = self.nam; - var $4241 = self.ini; - var $4242 = self.idx; - var $4243 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4230, $4239), $4240, $4241, $4242, $4243); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $4245 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $4247 = self.err; - var self = $4245; - switch (self._) { - case 'Maybe.some': - var $4249 = self.value; - var $4250 = Parser$Reply$error$(Parser$Error$combine$($4249, $4247)); - var $4248 = $4250; - break; - case 'Maybe.none': - var $4251 = Parser$Reply$error$($4247); - var $4248 = $4251; - break; - }; - var $4246 = $4248; - break; - case 'Parser.Reply.value': - var $4252 = self.pst; - var $4253 = self.val; - var self = $4252; - switch (self._) { - case 'Parser.State.new': - var $4255 = self.err; - var $4256 = self.nam; - var $4257 = self.ini; - var $4258 = self.idx; - var $4259 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4245, $4255), $4256, $4257, $4258, $4259); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $4261 = self.err; - var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $4263 = self.err; - var self = $4261; - switch (self._) { - case 'Maybe.some': - var $4265 = self.value; - var $4266 = Parser$Reply$error$(Parser$Error$combine$($4265, $4263)); - var $4264 = $4266; - break; - case 'Maybe.none': - var $4267 = Parser$Reply$error$($4263); - var $4264 = $4267; - break; - }; - var $4262 = $4264; - break; - case 'Parser.Reply.value': - var $4268 = self.pst; - var self = $4268; - switch (self._) { - case 'Parser.State.new': - var $4270 = self.err; - var $4271 = self.nam; - var $4272 = self.ini; - var $4273 = self.idx; - var $4274 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4261, $4270), $4271, $4272, $4273, $4274); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $4276 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $4278 = self.err; - var self = $4276; - switch (self._) { - case 'Maybe.some': - var $4280 = self.value; - var $4281 = Parser$Reply$error$(Parser$Error$combine$($4280, $4278)); - var $4279 = $4281; - break; - case 'Maybe.none': - var $4282 = Parser$Reply$error$($4278); - var $4279 = $4282; - break; - }; - var $4277 = $4279; - break; - case 'Parser.Reply.value': - var $4283 = self.pst; - var $4284 = self.val; - var self = $4283; - switch (self._) { - case 'Parser.State.new': - var $4286 = self.err; - var $4287 = self.nam; - var $4288 = self.ini; - var $4289 = self.idx; - var $4290 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4276, $4286), $4287, $4288, $4289, $4290); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $4292 = self.err; - var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $4294 = self.err; - var self = $4292; - switch (self._) { - case 'Maybe.some': - var $4296 = self.value; - var $4297 = Parser$Reply$error$(Parser$Error$combine$($4296, $4294)); - var $4295 = $4297; - break; - case 'Maybe.none': - var $4298 = Parser$Reply$error$($4294); - var $4295 = $4298; - break; - }; - var $4293 = $4295; - break; - case 'Parser.Reply.value': - var $4299 = self.pst; - var self = $4299; - switch (self._) { - case 'Parser.State.new': - var $4301 = self.err; - var $4302 = self.nam; - var $4303 = self.ini; - var $4304 = self.idx; - var $4305 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4292, $4301), $4302, $4303, $4304, $4305); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $4307 = self.err; - var _reply$78 = Kind$Parser$text$("abort", _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $4309 = self.err; - var self = $4307; - switch (self._) { - case 'Maybe.some': - var $4311 = self.value; - var $4312 = Parser$Reply$error$(Parser$Error$combine$($4311, $4309)); - var $4310 = $4312; - break; - case 'Maybe.none': - var $4313 = Parser$Reply$error$($4309); - var $4310 = $4313; - break; - }; - var $4308 = $4310; - break; - case 'Parser.Reply.value': - var $4314 = self.pst; - var self = $4314; - switch (self._) { - case 'Parser.State.new': - var $4316 = self.err; - var $4317 = self.nam; - var $4318 = self.ini; - var $4319 = self.idx; - var $4320 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4307, $4316), $4317, $4318, $4319, $4320); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $4322 = self.err; - var _reply$92 = Kind$Parser$term(_reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $4324 = self.err; - var self = $4322; - switch (self._) { - case 'Maybe.some': - var $4326 = self.value; - var $4327 = Parser$Reply$error$(Parser$Error$combine$($4326, $4324)); - var $4325 = $4327; - break; - case 'Maybe.none': - var $4328 = Parser$Reply$error$($4324); - var $4325 = $4328; - break; - }; - var $4323 = $4325; - break; - case 'Parser.Reply.value': - var $4329 = self.pst; - var $4330 = self.val; - var self = $4329; - switch (self._) { - case 'Parser.State.new': - var $4332 = self.err; - var $4333 = self.nam; - var $4334 = self.ini; - var $4335 = self.idx; - var $4336 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($4322, $4332), $4333, $4334, $4335, $4336); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $4338 = self.err; - var _reply$106 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $4340 = self.err; - var self = $4338; - switch (self._) { - case 'Maybe.some': - var $4342 = self.value; - var $4343 = Parser$Reply$error$(Parser$Error$combine$($4342, $4340)); - var $4341 = $4343; - break; - case 'Maybe.none': - var $4344 = Parser$Reply$error$($4340); - var $4341 = $4344; - break; - }; - var $4339 = $4341; - break; - case 'Parser.Reply.value': - var $4345 = self.pst; - var self = $4345; - switch (self._) { - case 'Parser.State.new': - var $4347 = self.err; - var $4348 = self.nam; - var $4349 = self.ini; - var $4350 = self.idx; - var $4351 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4338, $4347), $4348, $4349, $4350, $4351); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $4353 = self.err; - var _reply$120 = _body$1(Unit$new)(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $4355 = self.err; - var self = $4353; - switch (self._) { - case 'Maybe.some': - var $4357 = self.value; - var $4358 = Parser$Reply$error$(Parser$Error$combine$($4357, $4355)); - var $4356 = $4358; - break; - case 'Maybe.none': - var $4359 = Parser$Reply$error$($4355); - var $4356 = $4359; - break; - }; - var $4354 = $4356; - break; - case 'Parser.Reply.value': - var $4360 = self.pst; - var $4361 = self.val; - var self = $4360; - switch (self._) { - case 'Parser.State.new': - var $4363 = self.err; - var $4364 = self.nam; - var $4365 = self.ini; - var $4366 = self.idx; - var $4367 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($4353, $4363), $4364, $4365, $4366, $4367); - var _term$129 = $4284; - var _term$130 = Kind$Term$app$(_term$129, Kind$Term$lam$("", (_$130 => { - var $4369 = Kind$Term$hol$(Bits$e); - return $4369; - }))); - var _term$131 = Kind$Term$app$(_term$130, $4330); - var _term$132 = Kind$Term$app$(_term$131, Kind$Term$lam$($4253, (_$132 => { - var $4370 = $4361; - return $4370; - }))); - var $4368 = Parser$Reply$value$(_reply$pst$128, _term$132); - var $4362 = $4368; - break; - }; - var $4354 = $4362; - break; - }; - var $4352 = $4354; - break; - }; - var $4346 = $4352; - break; - }; - var $4339 = $4346; - break; - }; - var $4337 = $4339; - break; - }; - var $4331 = $4337; - break; - }; - var $4323 = $4331; - break; - }; - var $4321 = $4323; - break; - }; - var $4315 = $4321; - break; - }; - var $4308 = $4315; - break; - }; - var $4306 = $4308; - break; - }; - var $4300 = $4306; - break; - }; - var $4293 = $4300; - break; - }; - var $4291 = $4293; - break; - }; - var $4285 = $4291; - break; - }; - var $4277 = $4285; - break; - }; - var $4275 = $4277; - break; - }; - var $4269 = $4275; - break; - }; - var $4262 = $4269; - break; - }; - var $4260 = $4262; - break; - }; - var $4254 = $4260; - break; - }; - var $4246 = $4254; - break; - }; - var $4244 = $4246; - break; - }; - var $4238 = $4244; - break; - }; - var $4231 = $4238; - break; - }; - var $4229 = $4231; - break; - }; - return $4229; - })); - return $4228; - }; - const Kind$Parser$let$abort = x0 => Kind$Parser$let$abort$(x0); - - function Kind$Parser$let$(_body$1) { - var $4371 = Kind$Parser$block("let")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4373 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4375 = self.err; - var self = $4373; - switch (self._) { - case 'Maybe.some': - var $4377 = self.value; - var $4378 = Parser$Reply$error$(Parser$Error$combine$($4377, $4375)); - var $4376 = $4378; - break; - case 'Maybe.none': - var $4379 = Parser$Reply$error$($4375); - var $4376 = $4379; - break; - }; - var $4374 = $4376; - break; - case 'Parser.Reply.value': - var $4380 = self.pst; - var self = $4380; - switch (self._) { - case 'Parser.State.new': - var $4382 = self.err; - var $4383 = self.nam; - var $4384 = self.ini; - var $4385 = self.idx; - var $4386 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4373, $4382), $4383, $4384, $4385, $4386); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $4388 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $4390 = self.err; - var self = $4388; - switch (self._) { - case 'Maybe.some': - var $4392 = self.value; - var $4393 = Parser$Reply$error$(Parser$Error$combine$($4392, $4390)); - var $4391 = $4393; - break; - case 'Maybe.none': - var $4394 = Parser$Reply$error$($4390); - var $4391 = $4394; - break; - }; - var $4389 = $4391; - break; - case 'Parser.Reply.value': - var $4395 = self.pst; - var $4396 = self.val; - var self = $4395; - switch (self._) { - case 'Parser.State.new': - var $4398 = self.err; - var $4399 = self.nam; - var $4400 = self.ini; - var $4401 = self.idx; - var $4402 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4388, $4398), $4399, $4400, $4401, $4402); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $4404 = self.err; - var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $4406 = self.err; - var self = $4404; - switch (self._) { - case 'Maybe.some': - var $4408 = self.value; - var $4409 = Parser$Reply$error$(Parser$Error$combine$($4408, $4406)); - var $4407 = $4409; - break; - case 'Maybe.none': - var $4410 = Parser$Reply$error$($4406); - var $4407 = $4410; - break; - }; - var $4405 = $4407; - break; - case 'Parser.Reply.value': - var $4411 = self.pst; - var self = $4411; - switch (self._) { - case 'Parser.State.new': - var $4413 = self.err; - var $4414 = self.nam; - var $4415 = self.ini; - var $4416 = self.idx; - var $4417 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4404, $4413), $4414, $4415, $4416, $4417); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $4419 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $4421 = self.err; - var self = $4419; - switch (self._) { - case 'Maybe.some': - var $4423 = self.value; - var $4424 = Parser$Reply$error$(Parser$Error$combine$($4423, $4421)); - var $4422 = $4424; - break; - case 'Maybe.none': - var $4425 = Parser$Reply$error$($4421); - var $4422 = $4425; - break; - }; - var $4420 = $4422; - break; - case 'Parser.Reply.value': - var $4426 = self.pst; - var $4427 = self.val; - var self = $4426; - switch (self._) { - case 'Parser.State.new': - var $4429 = self.err; - var $4430 = self.nam; - var $4431 = self.ini; - var $4432 = self.idx; - var $4433 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4419, $4429), $4430, $4431, $4432, $4433); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $4435 = self.err; - var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $4437 = self.err; - var self = $4435; - switch (self._) { - case 'Maybe.some': - var $4439 = self.value; - var $4440 = Parser$Reply$error$(Parser$Error$combine$($4439, $4437)); - var $4438 = $4440; - break; - case 'Maybe.none': - var $4441 = Parser$Reply$error$($4437); - var $4438 = $4441; - break; - }; - var $4436 = $4438; - break; - case 'Parser.Reply.value': - var $4442 = self.pst; - var self = $4442; - switch (self._) { - case 'Parser.State.new': - var $4444 = self.err; - var $4445 = self.nam; - var $4446 = self.ini; - var $4447 = self.idx; - var $4448 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4435, $4444), $4445, $4446, $4447, $4448); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $4450 = self.err; - var _reply$78 = _body$1(Unit$new)(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $4452 = self.err; - var self = $4450; - switch (self._) { - case 'Maybe.some': - var $4454 = self.value; - var $4455 = Parser$Reply$error$(Parser$Error$combine$($4454, $4452)); - var $4453 = $4455; - break; - case 'Maybe.none': - var $4456 = Parser$Reply$error$($4452); - var $4453 = $4456; - break; - }; - var $4451 = $4453; - break; - case 'Parser.Reply.value': - var $4457 = self.pst; - var $4458 = self.val; - var self = $4457; - switch (self._) { - case 'Parser.State.new': - var $4460 = self.err; - var $4461 = self.nam; - var $4462 = self.ini; - var $4463 = self.idx; - var $4464 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4450, $4460), $4461, $4462, $4463, $4464); - var $4465 = Parser$Reply$value$(_reply$pst$86, Kind$Term$let$($4396, $4427, (_x$87 => { - var $4466 = $4458; - return $4466; - }))); - var $4459 = $4465; - break; - }; - var $4451 = $4459; - break; - }; - var $4449 = $4451; - break; - }; - var $4443 = $4449; - break; - }; - var $4436 = $4443; - break; - }; - var $4434 = $4436; - break; - }; - var $4428 = $4434; - break; - }; - var $4420 = $4428; - break; - }; - var $4418 = $4420; - break; - }; - var $4412 = $4418; - break; - }; - var $4405 = $4412; - break; - }; - var $4403 = $4405; - break; - }; - var $4397 = $4403; - break; - }; - var $4389 = $4397; - break; - }; - var $4387 = $4389; - break; - }; - var $4381 = $4387; - break; - }; - var $4374 = $4381; - break; - }; - var $4372 = $4374; - break; - }; - return $4372; - })); - return $4371; - }; - const Kind$Parser$let = x0 => Kind$Parser$let$(x0); - - function Kind$Parser$let$omit$(_body$1) { - var $4467 = Kind$Parser$block("let")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4469 = self.err; - var _reply$8 = Kind$Parser$name1$(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4471 = self.err; - var self = $4469; - switch (self._) { - case 'Maybe.some': - var $4473 = self.value; - var $4474 = Parser$Reply$error$(Parser$Error$combine$($4473, $4471)); - var $4472 = $4474; - break; - case 'Maybe.none': - var $4475 = Parser$Reply$error$($4471); - var $4472 = $4475; - break; - }; - var $4470 = $4472; - break; - case 'Parser.Reply.value': - var $4476 = self.pst; - var $4477 = self.val; - var self = $4476; - switch (self._) { - case 'Parser.State.new': - var $4479 = self.err; - var $4480 = self.nam; - var $4481 = self.ini; - var $4482 = self.idx; - var $4483 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4469, $4479), $4480, $4481, $4482, $4483); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $4485 = self.err; - var _reply$22 = Kind$Parser$text$("= ", _reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $4487 = self.err; - var self = $4485; - switch (self._) { - case 'Maybe.some': - var $4489 = self.value; - var $4490 = Parser$Reply$error$(Parser$Error$combine$($4489, $4487)); - var $4488 = $4490; - break; - case 'Maybe.none': - var $4491 = Parser$Reply$error$($4487); - var $4488 = $4491; - break; - }; - var $4486 = $4488; - break; - case 'Parser.Reply.value': - var $4492 = self.pst; - var self = $4492; - switch (self._) { - case 'Parser.State.new': - var $4494 = self.err; - var $4495 = self.nam; - var $4496 = self.ini; - var $4497 = self.idx; - var $4498 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4485, $4494), $4495, $4496, $4497, $4498); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $4500 = self.err; - var _reply$36 = Kind$Parser$term(_reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $4502 = self.err; - var self = $4500; - switch (self._) { - case 'Maybe.some': - var $4504 = self.value; - var $4505 = Parser$Reply$error$(Parser$Error$combine$($4504, $4502)); - var $4503 = $4505; - break; - case 'Maybe.none': - var $4506 = Parser$Reply$error$($4502); - var $4503 = $4506; - break; - }; - var $4501 = $4503; - break; - case 'Parser.Reply.value': - var $4507 = self.pst; - var $4508 = self.val; - var self = $4507; - switch (self._) { - case 'Parser.State.new': - var $4510 = self.err; - var $4511 = self.nam; - var $4512 = self.ini; - var $4513 = self.idx; - var $4514 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4500, $4510), $4511, $4512, $4513, $4514); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $4516 = self.err; - var _reply$50 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $4518 = self.err; - var self = $4516; - switch (self._) { - case 'Maybe.some': - var $4520 = self.value; - var $4521 = Parser$Reply$error$(Parser$Error$combine$($4520, $4518)); - var $4519 = $4521; - break; - case 'Maybe.none': - var $4522 = Parser$Reply$error$($4518); - var $4519 = $4522; - break; - }; - var $4517 = $4519; - break; - case 'Parser.Reply.value': - var $4523 = self.pst; - var self = $4523; - switch (self._) { - case 'Parser.State.new': - var $4525 = self.err; - var $4526 = self.nam; - var $4527 = self.ini; - var $4528 = self.idx; - var $4529 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4516, $4525), $4526, $4527, $4528, $4529); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $4531 = self.err; - var _reply$64 = _body$1(Unit$new)(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $4533 = self.err; - var self = $4531; - switch (self._) { - case 'Maybe.some': - var $4535 = self.value; - var $4536 = Parser$Reply$error$(Parser$Error$combine$($4535, $4533)); - var $4534 = $4536; - break; - case 'Maybe.none': - var $4537 = Parser$Reply$error$($4533); - var $4534 = $4537; - break; - }; - var $4532 = $4534; - break; - case 'Parser.Reply.value': - var $4538 = self.pst; - var $4539 = self.val; - var self = $4538; - switch (self._) { - case 'Parser.State.new': - var $4541 = self.err; - var $4542 = self.nam; - var $4543 = self.ini; - var $4544 = self.idx; - var $4545 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4531, $4541), $4542, $4543, $4544, $4545); - var $4546 = Parser$Reply$value$(_reply$pst$72, Kind$Term$let$($4477, $4508, (_x$73 => { - var $4547 = $4539; - return $4547; - }))); - var $4540 = $4546; - break; - }; - var $4532 = $4540; - break; - }; - var $4530 = $4532; - break; - }; - var $4524 = $4530; - break; - }; - var $4517 = $4524; - break; - }; - var $4515 = $4517; - break; - }; - var $4509 = $4515; - break; - }; - var $4501 = $4509; - break; - }; - var $4499 = $4501; - break; - }; - var $4493 = $4499; - break; - }; - var $4486 = $4493; - break; - }; - var $4484 = $4486; - break; - }; - var $4478 = $4484; - break; - }; - var $4470 = $4478; - break; - }; - var $4468 = $4470; - break; - }; - return $4468; - })); - return $4467; - }; - const Kind$Parser$let$omit = x0 => Kind$Parser$let$omit$(x0); - - function Kind$Parser$getwhile$(_body$1) { - var $4548 = Kind$Parser$block("let-while")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4550 = self.err; - var _reply$8 = Parser$maybe$(Kind$Parser$text("let "), _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4552 = self.err; - var self = $4550; - switch (self._) { - case 'Maybe.some': - var $4554 = self.value; - var $4555 = Parser$Reply$error$(Parser$Error$combine$($4554, $4552)); - var $4553 = $4555; - break; - case 'Maybe.none': - var $4556 = Parser$Reply$error$($4552); - var $4553 = $4556; - break; - }; - var $4551 = $4553; - break; - case 'Parser.Reply.value': - var $4557 = self.pst; - var self = $4557; - switch (self._) { - case 'Parser.State.new': - var $4559 = self.err; - var $4560 = self.nam; - var $4561 = self.ini; - var $4562 = self.idx; - var $4563 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4550, $4559), $4560, $4561, $4562, $4563); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $4565 = self.err; - var _reply$22 = Kind$Parser$text$("{", _reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $4567 = self.err; - var self = $4565; - switch (self._) { - case 'Maybe.some': - var $4569 = self.value; - var $4570 = Parser$Reply$error$(Parser$Error$combine$($4569, $4567)); - var $4568 = $4570; - break; - case 'Maybe.none': - var $4571 = Parser$Reply$error$($4567); - var $4568 = $4571; - break; - }; - var $4566 = $4568; - break; - case 'Parser.Reply.value': - var $4572 = self.pst; - var self = $4572; - switch (self._) { - case 'Parser.State.new': - var $4574 = self.err; - var $4575 = self.nam; - var $4576 = self.ini; - var $4577 = self.idx; - var $4578 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4565, $4574), $4575, $4576, $4577, $4578); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $4580 = self.err; - var _reply$36 = Kind$Parser$name1$(_reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $4582 = self.err; - var self = $4580; - switch (self._) { - case 'Maybe.some': - var $4584 = self.value; - var $4585 = Parser$Reply$error$(Parser$Error$combine$($4584, $4582)); - var $4583 = $4585; - break; - case 'Maybe.none': - var $4586 = Parser$Reply$error$($4582); - var $4583 = $4586; - break; - }; - var $4581 = $4583; - break; - case 'Parser.Reply.value': - var $4587 = self.pst; - var $4588 = self.val; - var self = $4587; - switch (self._) { - case 'Parser.State.new': - var $4590 = self.err; - var $4591 = self.nam; - var $4592 = self.ini; - var $4593 = self.idx; - var $4594 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4580, $4590), $4591, $4592, $4593, $4594); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $4596 = self.err; - var _reply$50 = Kind$Parser$text$(",", _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $4598 = self.err; - var self = $4596; - switch (self._) { - case 'Maybe.some': - var $4600 = self.value; - var $4601 = Parser$Reply$error$(Parser$Error$combine$($4600, $4598)); - var $4599 = $4601; - break; - case 'Maybe.none': - var $4602 = Parser$Reply$error$($4598); - var $4599 = $4602; - break; - }; - var $4597 = $4599; - break; - case 'Parser.Reply.value': - var $4603 = self.pst; - var self = $4603; - switch (self._) { - case 'Parser.State.new': - var $4605 = self.err; - var $4606 = self.nam; - var $4607 = self.ini; - var $4608 = self.idx; - var $4609 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4596, $4605), $4606, $4607, $4608, $4609); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $4611 = self.err; - var _reply$64 = Kind$Parser$name1$(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $4613 = self.err; - var self = $4611; - switch (self._) { - case 'Maybe.some': - var $4615 = self.value; - var $4616 = Parser$Reply$error$(Parser$Error$combine$($4615, $4613)); - var $4614 = $4616; - break; - case 'Maybe.none': - var $4617 = Parser$Reply$error$($4613); - var $4614 = $4617; - break; - }; - var $4612 = $4614; - break; - case 'Parser.Reply.value': - var $4618 = self.pst; - var $4619 = self.val; - var self = $4618; - switch (self._) { - case 'Parser.State.new': - var $4621 = self.err; - var $4622 = self.nam; - var $4623 = self.ini; - var $4624 = self.idx; - var $4625 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4611, $4621), $4622, $4623, $4624, $4625); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $4627 = self.err; - var _reply$78 = Kind$Parser$text$("}", _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $4629 = self.err; - var self = $4627; - switch (self._) { - case 'Maybe.some': - var $4631 = self.value; - var $4632 = Parser$Reply$error$(Parser$Error$combine$($4631, $4629)); - var $4630 = $4632; - break; - case 'Maybe.none': - var $4633 = Parser$Reply$error$($4629); - var $4630 = $4633; - break; - }; - var $4628 = $4630; - break; - case 'Parser.Reply.value': - var $4634 = self.pst; - var self = $4634; - switch (self._) { - case 'Parser.State.new': - var $4636 = self.err; - var $4637 = self.nam; - var $4638 = self.ini; - var $4639 = self.idx; - var $4640 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4627, $4636), $4637, $4638, $4639, $4640); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $4642 = self.err; - var _reply$92 = Kind$Parser$text$("=", _reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $4644 = self.err; - var self = $4642; - switch (self._) { - case 'Maybe.some': - var $4646 = self.value; - var $4647 = Parser$Reply$error$(Parser$Error$combine$($4646, $4644)); - var $4645 = $4647; - break; - case 'Maybe.none': - var $4648 = Parser$Reply$error$($4644); - var $4645 = $4648; - break; - }; - var $4643 = $4645; - break; - case 'Parser.Reply.value': - var $4649 = self.pst; - var self = $4649; - switch (self._) { - case 'Parser.State.new': - var $4651 = self.err; - var $4652 = self.nam; - var $4653 = self.ini; - var $4654 = self.idx; - var $4655 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($4642, $4651), $4652, $4653, $4654, $4655); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $4657 = self.err; - var _reply$106 = Kind$Parser$text$("while ", _reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $4659 = self.err; - var self = $4657; - switch (self._) { - case 'Maybe.some': - var $4661 = self.value; - var $4662 = Parser$Reply$error$(Parser$Error$combine$($4661, $4659)); - var $4660 = $4662; - break; - case 'Maybe.none': - var $4663 = Parser$Reply$error$($4659); - var $4660 = $4663; - break; - }; - var $4658 = $4660; - break; - case 'Parser.Reply.value': - var $4664 = self.pst; - var self = $4664; - switch (self._) { - case 'Parser.State.new': - var $4666 = self.err; - var $4667 = self.nam; - var $4668 = self.ini; - var $4669 = self.idx; - var $4670 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4657, $4666), $4667, $4668, $4669, $4670); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $4672 = self.err; - var _reply$120 = Kind$Parser$term(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $4674 = self.err; - var self = $4672; - switch (self._) { - case 'Maybe.some': - var $4676 = self.value; - var $4677 = Parser$Reply$error$(Parser$Error$combine$($4676, $4674)); - var $4675 = $4677; - break; - case 'Maybe.none': - var $4678 = Parser$Reply$error$($4674); - var $4675 = $4678; - break; - }; - var $4673 = $4675; - break; - case 'Parser.Reply.value': - var $4679 = self.pst; - var $4680 = self.val; - var self = $4679; - switch (self._) { - case 'Parser.State.new': - var $4682 = self.err; - var $4683 = self.nam; - var $4684 = self.ini; - var $4685 = self.idx; - var $4686 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($4672, $4682), $4683, $4684, $4685, $4686); - var self = _reply$pst$128; - switch (self._) { - case 'Parser.State.new': - var $4688 = self.err; - var _reply$134 = Kind$Parser$text$(":", _reply$pst$128); - var self = _reply$134; - switch (self._) { - case 'Parser.Reply.error': - var $4690 = self.err; - var self = $4688; - switch (self._) { - case 'Maybe.some': - var $4692 = self.value; - var $4693 = Parser$Reply$error$(Parser$Error$combine$($4692, $4690)); - var $4691 = $4693; - break; - case 'Maybe.none': - var $4694 = Parser$Reply$error$($4690); - var $4691 = $4694; - break; - }; - var $4689 = $4691; - break; - case 'Parser.Reply.value': - var $4695 = self.pst; - var self = $4695; - switch (self._) { - case 'Parser.State.new': - var $4697 = self.err; - var $4698 = self.nam; - var $4699 = self.ini; - var $4700 = self.idx; - var $4701 = self.str; - var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($4688, $4697), $4698, $4699, $4700, $4701); - var self = _reply$pst$142; - switch (self._) { - case 'Parser.State.new': - var $4703 = self.err; - var _reply$148 = Kind$Parser$term(_reply$pst$142); - var self = _reply$148; - switch (self._) { - case 'Parser.Reply.error': - var $4705 = self.err; - var self = $4703; - switch (self._) { - case 'Maybe.some': - var $4707 = self.value; - var $4708 = Parser$Reply$error$(Parser$Error$combine$($4707, $4705)); - var $4706 = $4708; - break; - case 'Maybe.none': - var $4709 = Parser$Reply$error$($4705); - var $4706 = $4709; - break; - }; - var $4704 = $4706; - break; - case 'Parser.Reply.value': - var $4710 = self.pst; - var $4711 = self.val; - var self = $4710; - switch (self._) { - case 'Parser.State.new': - var $4713 = self.err; - var $4714 = self.nam; - var $4715 = self.ini; - var $4716 = self.idx; - var $4717 = self.str; - var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($4703, $4713), $4714, $4715, $4716, $4717); - var self = _reply$pst$156; - switch (self._) { - case 'Parser.State.new': - var $4719 = self.err; - var _reply$162 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$156); - var self = _reply$162; - switch (self._) { - case 'Parser.Reply.error': - var $4721 = self.err; - var self = $4719; - switch (self._) { - case 'Maybe.some': - var $4723 = self.value; - var $4724 = Parser$Reply$error$(Parser$Error$combine$($4723, $4721)); - var $4722 = $4724; - break; - case 'Maybe.none': - var $4725 = Parser$Reply$error$($4721); - var $4722 = $4725; - break; - }; - var $4720 = $4722; - break; - case 'Parser.Reply.value': - var $4726 = self.pst; - var self = $4726; - switch (self._) { - case 'Parser.State.new': - var $4728 = self.err; - var $4729 = self.nam; - var $4730 = self.ini; - var $4731 = self.idx; - var $4732 = self.str; - var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($4719, $4728), $4729, $4730, $4731, $4732); - var self = _reply$pst$170; - switch (self._) { - case 'Parser.State.new': - var $4734 = self.err; - var _reply$176 = _body$1(Unit$new)(_reply$pst$170); - var self = _reply$176; - switch (self._) { - case 'Parser.Reply.error': - var $4736 = self.err; - var self = $4734; - switch (self._) { - case 'Maybe.some': - var $4738 = self.value; - var $4739 = Parser$Reply$error$(Parser$Error$combine$($4738, $4736)); - var $4737 = $4739; - break; - case 'Maybe.none': - var $4740 = Parser$Reply$error$($4736); - var $4737 = $4740; - break; - }; - var $4735 = $4737; - break; - case 'Parser.Reply.value': - var $4741 = self.pst; - var $4742 = self.val; - var self = $4741; - switch (self._) { - case 'Parser.State.new': - var $4744 = self.err; - var $4745 = self.nam; - var $4746 = self.ini; - var $4747 = self.idx; - var $4748 = self.str; - var _reply$pst$184 = Parser$State$new$(Parser$Error$maybe_combine$($4734, $4744), $4745, $4746, $4747, $4748); - var _moti$185 = Kind$Term$lam$("", (_x$185 => { - var $4750 = Kind$Term$hol$(Bits$e); - return $4750; - })); - var _term$186 = Kind$Term$ref$("Function.while"); - var _term$187 = Kind$Term$app$(_term$186, Kind$Term$hol$(Bits$e)); - var _init$188 = Kind$Term$ref$("Pair.new"); - var _init$189 = Kind$Term$app$(_init$188, Kind$Term$hol$(Bits$e)); - var _init$190 = Kind$Term$app$(_init$189, Kind$Term$hol$(Bits$e)); - var _init$191 = Kind$Term$app$(_init$190, Kind$Term$ref$($4588)); - var _init$192 = Kind$Term$app$(_init$191, Kind$Term$ref$($4619)); - var _term$193 = Kind$Term$app$(_term$187, _init$192); - var _term$194 = Kind$Term$app$(_term$193, Kind$Term$lam$("s", (_s$194 => { - var $4751 = Kind$Term$app$(Kind$Term$app$(_s$194, _moti$185), Kind$Term$lam$($4588, (_x$195 => { - var $4752 = Kind$Term$lam$($4619, (_y$196 => { - var $4753 = $4680; - return $4753; - })); - return $4752; - }))); - return $4751; - }))); - var _term$195 = Kind$Term$app$(_term$194, Kind$Term$lam$("s", (_s$195 => { - var $4754 = Kind$Term$app$(Kind$Term$app$(_s$195, _moti$185), Kind$Term$lam$($4588, (_x$196 => { - var $4755 = Kind$Term$lam$($4619, (_y$197 => { - var $4756 = $4711; - return $4756; - })); - return $4755; - }))); - return $4754; - }))); - var _term$196 = Kind$Term$app$(Kind$Term$app$(_term$195, _moti$185), Kind$Term$lam$($4588, (_x$196 => { - var $4757 = Kind$Term$lam$($4619, (_y$197 => { - var $4758 = $4742; - return $4758; - })); - return $4757; - }))); - var $4749 = Parser$Reply$value$(_reply$pst$184, _term$196); - var $4743 = $4749; - break; - }; - var $4735 = $4743; - break; - }; - var $4733 = $4735; - break; - }; - var $4727 = $4733; - break; - }; - var $4720 = $4727; - break; - }; - var $4718 = $4720; - break; - }; - var $4712 = $4718; - break; - }; - var $4704 = $4712; - break; - }; - var $4702 = $4704; - break; - }; - var $4696 = $4702; - break; - }; - var $4689 = $4696; - break; - }; - var $4687 = $4689; - break; - }; - var $4681 = $4687; - break; - }; - var $4673 = $4681; - break; - }; - var $4671 = $4673; - break; - }; - var $4665 = $4671; - break; - }; - var $4658 = $4665; - break; - }; - var $4656 = $4658; - break; - }; - var $4650 = $4656; - break; - }; - var $4643 = $4650; - break; - }; - var $4641 = $4643; - break; - }; - var $4635 = $4641; - break; - }; - var $4628 = $4635; - break; - }; - var $4626 = $4628; - break; - }; - var $4620 = $4626; - break; - }; - var $4612 = $4620; - break; - }; - var $4610 = $4612; - break; - }; - var $4604 = $4610; - break; - }; - var $4597 = $4604; - break; - }; - var $4595 = $4597; - break; - }; - var $4589 = $4595; - break; - }; - var $4581 = $4589; - break; - }; - var $4579 = $4581; - break; - }; - var $4573 = $4579; - break; - }; - var $4566 = $4573; - break; - }; - var $4564 = $4566; - break; - }; - var $4558 = $4564; - break; - }; - var $4551 = $4558; - break; - }; - var $4549 = $4551; - break; - }; - return $4549; - })); - return $4548; - }; - const Kind$Parser$getwhile = x0 => Kind$Parser$getwhile$(x0); - - function Kind$Parser$getwhile$with$(_body$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4760 = self.err; - var _reply$8 = Kind$Parser$text$("while ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4762 = self.err; - var self = $4760; - switch (self._) { - case 'Maybe.some': - var $4764 = self.value; - var $4765 = Parser$Reply$error$(Parser$Error$combine$($4764, $4762)); - var $4763 = $4765; - break; - case 'Maybe.none': - var $4766 = Parser$Reply$error$($4762); - var $4763 = $4766; - break; - }; - var $4761 = $4763; - break; - case 'Parser.Reply.value': - var $4767 = self.pst; - var self = $4767; - switch (self._) { - case 'Parser.State.new': - var $4769 = self.err; - var $4770 = self.nam; - var $4771 = self.ini; - var $4772 = self.idx; - var $4773 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4760, $4769), $4770, $4771, $4772, $4773); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $4775 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $4777 = self.err; - var self = $4775; - switch (self._) { - case 'Maybe.some': - var $4779 = self.value; - var $4780 = Parser$Reply$error$(Parser$Error$combine$($4779, $4777)); - var $4778 = $4780; - break; - case 'Maybe.none': - var $4781 = Parser$Reply$error$($4777); - var $4778 = $4781; - break; - }; - var $4776 = $4778; - break; - case 'Parser.Reply.value': - var $4782 = self.pst; - var $4783 = self.val; - var self = $4782; - switch (self._) { - case 'Parser.State.new': - var $4785 = self.err; - var $4786 = self.nam; - var $4787 = self.ini; - var $4788 = self.idx; - var $4789 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4775, $4785), $4786, $4787, $4788, $4789); - var self = _reply$pst$30; + case 'Parser.Reply.value': + var $2366 = self.pst; + var $2367 = self.val; + var self = $2366; switch (self._) { case 'Parser.State.new': - var $4791 = self.err; - var _reply$36 = Kind$Parser$text$("with ", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $4793 = self.err; - var self = $4791; - switch (self._) { - case 'Maybe.some': - var $4795 = self.value; - var $4796 = Parser$Reply$error$(Parser$Error$combine$($4795, $4793)); - var $4794 = $4796; - break; - case 'Maybe.none': - var $4797 = Parser$Reply$error$($4793); - var $4794 = $4797; - break; - }; - var $4792 = $4794; - break; - case 'Parser.Reply.value': - var $4798 = self.pst; - var self = $4798; - switch (self._) { - case 'Parser.State.new': - var $4800 = self.err; - var $4801 = self.nam; - var $4802 = self.ini; - var $4803 = self.idx; - var $4804 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4791, $4800), $4801, $4802, $4803, $4804); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $4806 = self.err; - var _reply$50 = Kind$Parser$text$("{", _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $4808 = self.err; - var self = $4806; - switch (self._) { - case 'Maybe.some': - var $4810 = self.value; - var $4811 = Parser$Reply$error$(Parser$Error$combine$($4810, $4808)); - var $4809 = $4811; - break; - case 'Maybe.none': - var $4812 = Parser$Reply$error$($4808); - var $4809 = $4812; - break; - }; - var $4807 = $4809; - break; - case 'Parser.Reply.value': - var $4813 = self.pst; - var self = $4813; - switch (self._) { - case 'Parser.State.new': - var $4815 = self.err; - var $4816 = self.nam; - var $4817 = self.ini; - var $4818 = self.idx; - var $4819 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4806, $4815), $4816, $4817, $4818, $4819); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $4821 = self.err; - var _reply$64 = Kind$Parser$name1$(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $4823 = self.err; - var self = $4821; - switch (self._) { - case 'Maybe.some': - var $4825 = self.value; - var $4826 = Parser$Reply$error$(Parser$Error$combine$($4825, $4823)); - var $4824 = $4826; - break; - case 'Maybe.none': - var $4827 = Parser$Reply$error$($4823); - var $4824 = $4827; - break; - }; - var $4822 = $4824; - break; - case 'Parser.Reply.value': - var $4828 = self.pst; - var $4829 = self.val; - var self = $4828; - switch (self._) { - case 'Parser.State.new': - var $4831 = self.err; - var $4832 = self.nam; - var $4833 = self.ini; - var $4834 = self.idx; - var $4835 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4821, $4831), $4832, $4833, $4834, $4835); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $4837 = self.err; - var _reply$78 = Kind$Parser$text$(",", _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $4839 = self.err; - var self = $4837; - switch (self._) { - case 'Maybe.some': - var $4841 = self.value; - var $4842 = Parser$Reply$error$(Parser$Error$combine$($4841, $4839)); - var $4840 = $4842; - break; - case 'Maybe.none': - var $4843 = Parser$Reply$error$($4839); - var $4840 = $4843; - break; - }; - var $4838 = $4840; - break; - case 'Parser.Reply.value': - var $4844 = self.pst; - var self = $4844; - switch (self._) { - case 'Parser.State.new': - var $4846 = self.err; - var $4847 = self.nam; - var $4848 = self.ini; - var $4849 = self.idx; - var $4850 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4837, $4846), $4847, $4848, $4849, $4850); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $4852 = self.err; - var _reply$92 = Kind$Parser$name1$(_reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $4854 = self.err; - var self = $4852; - switch (self._) { - case 'Maybe.some': - var $4856 = self.value; - var $4857 = Parser$Reply$error$(Parser$Error$combine$($4856, $4854)); - var $4855 = $4857; - break; - case 'Maybe.none': - var $4858 = Parser$Reply$error$($4854); - var $4855 = $4858; - break; - }; - var $4853 = $4855; - break; - case 'Parser.Reply.value': - var $4859 = self.pst; - var $4860 = self.val; - var self = $4859; - switch (self._) { - case 'Parser.State.new': - var $4862 = self.err; - var $4863 = self.nam; - var $4864 = self.ini; - var $4865 = self.idx; - var $4866 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($4852, $4862), $4863, $4864, $4865, $4866); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $4868 = self.err; - var _reply$106 = Kind$Parser$text$("}", _reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $4870 = self.err; - var self = $4868; - switch (self._) { - case 'Maybe.some': - var $4872 = self.value; - var $4873 = Parser$Reply$error$(Parser$Error$combine$($4872, $4870)); - var $4871 = $4873; - break; - case 'Maybe.none': - var $4874 = Parser$Reply$error$($4870); - var $4871 = $4874; - break; - }; - var $4869 = $4871; - break; - case 'Parser.Reply.value': - var $4875 = self.pst; - var self = $4875; - switch (self._) { - case 'Parser.State.new': - var $4877 = self.err; - var $4878 = self.nam; - var $4879 = self.ini; - var $4880 = self.idx; - var $4881 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4868, $4877), $4878, $4879, $4880, $4881); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $4883 = self.err; - var _reply$120 = Kind$Parser$text$(":", _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $4885 = self.err; - var self = $4883; - switch (self._) { - case 'Maybe.some': - var $4887 = self.value; - var $4888 = Parser$Reply$error$(Parser$Error$combine$($4887, $4885)); - var $4886 = $4888; - break; - case 'Maybe.none': - var $4889 = Parser$Reply$error$($4885); - var $4886 = $4889; - break; - }; - var $4884 = $4886; - break; - case 'Parser.Reply.value': - var $4890 = self.pst; - var self = $4890; - switch (self._) { - case 'Parser.State.new': - var $4892 = self.err; - var $4893 = self.nam; - var $4894 = self.ini; - var $4895 = self.idx; - var $4896 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($4883, $4892), $4893, $4894, $4895, $4896); - var self = _reply$pst$128; - switch (self._) { - case 'Parser.State.new': - var $4898 = self.err; - var _reply$134 = Kind$Parser$term(_reply$pst$128); - var self = _reply$134; - switch (self._) { - case 'Parser.Reply.error': - var $4900 = self.err; - var self = $4898; - switch (self._) { - case 'Maybe.some': - var $4902 = self.value; - var $4903 = Parser$Reply$error$(Parser$Error$combine$($4902, $4900)); - var $4901 = $4903; - break; - case 'Maybe.none': - var $4904 = Parser$Reply$error$($4900); - var $4901 = $4904; - break; - }; - var $4899 = $4901; - break; - case 'Parser.Reply.value': - var $4905 = self.pst; - var $4906 = self.val; - var self = $4905; - switch (self._) { - case 'Parser.State.new': - var $4908 = self.err; - var $4909 = self.nam; - var $4910 = self.ini; - var $4911 = self.idx; - var $4912 = self.str; - var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($4898, $4908), $4909, $4910, $4911, $4912); - var self = _reply$pst$142; - switch (self._) { - case 'Parser.State.new': - var $4914 = self.err; - var _reply$148 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$142); - var self = _reply$148; - switch (self._) { - case 'Parser.Reply.error': - var $4916 = self.err; - var self = $4914; - switch (self._) { - case 'Maybe.some': - var $4918 = self.value; - var $4919 = Parser$Reply$error$(Parser$Error$combine$($4918, $4916)); - var $4917 = $4919; - break; - case 'Maybe.none': - var $4920 = Parser$Reply$error$($4916); - var $4917 = $4920; - break; - }; - var $4915 = $4917; - break; - case 'Parser.Reply.value': - var $4921 = self.pst; - var self = $4921; - switch (self._) { - case 'Parser.State.new': - var $4923 = self.err; - var $4924 = self.nam; - var $4925 = self.ini; - var $4926 = self.idx; - var $4927 = self.str; - var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($4914, $4923), $4924, $4925, $4926, $4927); - var self = _reply$pst$156; - switch (self._) { - case 'Parser.State.new': - var $4929 = self.err; - var _reply$162 = _body$1(Unit$new)(_reply$pst$156); - var self = _reply$162; - switch (self._) { - case 'Parser.Reply.error': - var $4931 = self.err; - var self = $4929; - switch (self._) { - case 'Maybe.some': - var $4933 = self.value; - var $4934 = Parser$Reply$error$(Parser$Error$combine$($4933, $4931)); - var $4932 = $4934; - break; - case 'Maybe.none': - var $4935 = Parser$Reply$error$($4931); - var $4932 = $4935; - break; - }; - var $4930 = $4932; - break; - case 'Parser.Reply.value': - var $4936 = self.pst; - var $4937 = self.val; - var self = $4936; - switch (self._) { - case 'Parser.State.new': - var $4939 = self.err; - var $4940 = self.nam; - var $4941 = self.ini; - var $4942 = self.idx; - var $4943 = self.str; - var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($4929, $4939), $4940, $4941, $4942, $4943); - var _moti$171 = Kind$Term$lam$("", (_x$171 => { - var $4945 = Kind$Term$hol$(Bits$e); - return $4945; - })); - var _term$172 = Kind$Term$ref$("Function.while"); - var _term$173 = Kind$Term$app$(_term$172, Kind$Term$hol$(Bits$e)); - var _init$174 = Kind$Term$ref$("Pair.new"); - var _init$175 = Kind$Term$app$(_init$174, Kind$Term$hol$(Bits$e)); - var _init$176 = Kind$Term$app$(_init$175, Kind$Term$hol$(Bits$e)); - var _init$177 = Kind$Term$app$(_init$176, Kind$Term$ref$($4829)); - var _init$178 = Kind$Term$app$(_init$177, Kind$Term$ref$($4860)); - var _term$179 = Kind$Term$app$(_term$173, _init$178); - var _term$180 = Kind$Term$app$(_term$179, Kind$Term$lam$("s", (_s$180 => { - var $4946 = Kind$Term$app$(Kind$Term$app$(_s$180, _moti$171), Kind$Term$lam$($4829, (_x$181 => { - var $4947 = Kind$Term$lam$($4860, (_y$182 => { - var $4948 = $4783; - return $4948; - })); - return $4947; - }))); - return $4946; - }))); - var _term$181 = Kind$Term$app$(_term$180, Kind$Term$lam$("s", (_s$181 => { - var $4949 = Kind$Term$app$(Kind$Term$app$(_s$181, _moti$171), Kind$Term$lam$($4829, (_x$182 => { - var $4950 = Kind$Term$lam$($4860, (_y$183 => { - var $4951 = $4906; - return $4951; - })); - return $4950; - }))); - return $4949; - }))); - var _term$182 = Kind$Term$app$(Kind$Term$app$(_term$181, _moti$171), Kind$Term$lam$($4829, (_x$182 => { - var $4952 = Kind$Term$lam$($4860, (_y$183 => { - var $4953 = $4937; - return $4953; - })); - return $4952; - }))); - var $4944 = Parser$Reply$value$(_reply$pst$170, _term$182); - var $4938 = $4944; - break; - }; - var $4930 = $4938; - break; - }; - var $4928 = $4930; - break; - }; - var $4922 = $4928; - break; - }; - var $4915 = $4922; - break; - }; - var $4913 = $4915; - break; - }; - var $4907 = $4913; - break; - }; - var $4899 = $4907; - break; - }; - var $4897 = $4899; - break; - }; - var $4891 = $4897; - break; - }; - var $4884 = $4891; - break; - }; - var $4882 = $4884; - break; - }; - var $4876 = $4882; - break; - }; - var $4869 = $4876; - break; - }; - var $4867 = $4869; - break; - }; - var $4861 = $4867; - break; - }; - var $4853 = $4861; - break; - }; - var $4851 = $4853; - break; - }; - var $4845 = $4851; - break; - }; - var $4838 = $4845; - break; - }; - var $4836 = $4838; - break; - }; - var $4830 = $4836; - break; - }; - var $4822 = $4830; - break; - }; - var $4820 = $4822; - break; - }; - var $4814 = $4820; - break; - }; - var $4807 = $4814; - break; - }; - var $4805 = $4807; - break; - }; - var $4799 = $4805; - break; - }; - var $4792 = $4799; - break; - }; - var $4790 = $4792; + var $2369 = self.err; + var $2370 = self.nam; + var $2371 = self.ini; + var $2372 = self.idx; + var $2373 = self.str; + var $2374 = ((console.log(("FALTANDO " + $2373)), (_$31 => { + var $2375 = ((console.log(("VALUE " + $2370)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($2359, $2369), $2370, $2371, $2372, $2373); + var $2376 = Parser$Reply$value$(_reply$pst$33, Kind$Parser$lambda$make$start$($2349, $2367)); + return $2376; + })())); + return $2375; + })())); + var $2368 = $2374; break; }; - var $4784 = $4790; + var $2360 = $2368; break; }; - var $4776 = $4784; + var $2358 = $2360; break; }; - var $4774 = $4776; - break; - }; - var $4768 = $4774; + return $2358; + })())); + return $2357; + })())); + var $2350 = $2356; break; }; - var $4761 = $4768; + var $2342 = $2350; break; }; - var $4759 = $4761; + var $2340 = $2342; break; }; - return $4759; - }; - const Kind$Parser$getwhile$with = x0 => x1 => Kind$Parser$getwhile$with$(x0, x1); - - function Kind$Parser$get$(_body$1) { - var $4954 = Kind$Parser$block("let")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4956 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4958 = self.err; - var self = $4956; - switch (self._) { - case 'Maybe.some': - var $4960 = self.value; - var $4961 = Parser$Reply$error$(Parser$Error$combine$($4960, $4958)); - var $4959 = $4961; - break; - case 'Maybe.none': - var $4962 = Parser$Reply$error$($4958); - var $4959 = $4962; - break; - }; - var $4957 = $4959; - break; - case 'Parser.Reply.value': - var $4963 = self.pst; - var self = $4963; - switch (self._) { - case 'Parser.State.new': - var $4965 = self.err; - var $4966 = self.nam; - var $4967 = self.ini; - var $4968 = self.idx; - var $4969 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4956, $4965), $4966, $4967, $4968, $4969); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $4971 = self.err; - var _reply$22 = Kind$Parser$text$("{", _reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $4973 = self.err; - var self = $4971; - switch (self._) { - case 'Maybe.some': - var $4975 = self.value; - var $4976 = Parser$Reply$error$(Parser$Error$combine$($4975, $4973)); - var $4974 = $4976; - break; - case 'Maybe.none': - var $4977 = Parser$Reply$error$($4973); - var $4974 = $4977; - break; - }; - var $4972 = $4974; - break; - case 'Parser.Reply.value': - var $4978 = self.pst; - var self = $4978; - switch (self._) { - case 'Parser.State.new': - var $4980 = self.err; - var $4981 = self.nam; - var $4982 = self.ini; - var $4983 = self.idx; - var $4984 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4971, $4980), $4981, $4982, $4983, $4984); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $4986 = self.err; - var _reply$36 = Kind$Parser$name1$(_reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $4988 = self.err; - var self = $4986; - switch (self._) { - case 'Maybe.some': - var $4990 = self.value; - var $4991 = Parser$Reply$error$(Parser$Error$combine$($4990, $4988)); - var $4989 = $4991; - break; - case 'Maybe.none': - var $4992 = Parser$Reply$error$($4988); - var $4989 = $4992; - break; - }; - var $4987 = $4989; - break; - case 'Parser.Reply.value': - var $4993 = self.pst; - var $4994 = self.val; - var self = $4993; - switch (self._) { - case 'Parser.State.new': - var $4996 = self.err; - var $4997 = self.nam; - var $4998 = self.ini; - var $4999 = self.idx; - var $5000 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4986, $4996), $4997, $4998, $4999, $5000); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $5002 = self.err; - var _reply$50 = Kind$Parser$text$(",", _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $5004 = self.err; - var self = $5002; - switch (self._) { - case 'Maybe.some': - var $5006 = self.value; - var $5007 = Parser$Reply$error$(Parser$Error$combine$($5006, $5004)); - var $5005 = $5007; - break; - case 'Maybe.none': - var $5008 = Parser$Reply$error$($5004); - var $5005 = $5008; - break; - }; - var $5003 = $5005; - break; - case 'Parser.Reply.value': - var $5009 = self.pst; - var self = $5009; - switch (self._) { - case 'Parser.State.new': - var $5011 = self.err; - var $5012 = self.nam; - var $5013 = self.ini; - var $5014 = self.idx; - var $5015 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($5002, $5011), $5012, $5013, $5014, $5015); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $5017 = self.err; - var _reply$64 = Kind$Parser$name1$(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $5019 = self.err; - var self = $5017; - switch (self._) { - case 'Maybe.some': - var $5021 = self.value; - var $5022 = Parser$Reply$error$(Parser$Error$combine$($5021, $5019)); - var $5020 = $5022; - break; - case 'Maybe.none': - var $5023 = Parser$Reply$error$($5019); - var $5020 = $5023; - break; - }; - var $5018 = $5020; - break; - case 'Parser.Reply.value': - var $5024 = self.pst; - var $5025 = self.val; - var self = $5024; - switch (self._) { - case 'Parser.State.new': - var $5027 = self.err; - var $5028 = self.nam; - var $5029 = self.ini; - var $5030 = self.idx; - var $5031 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($5017, $5027), $5028, $5029, $5030, $5031); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $5033 = self.err; - var _reply$78 = Kind$Parser$text$("}", _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $5035 = self.err; - var self = $5033; - switch (self._) { - case 'Maybe.some': - var $5037 = self.value; - var $5038 = Parser$Reply$error$(Parser$Error$combine$($5037, $5035)); - var $5036 = $5038; - break; - case 'Maybe.none': - var $5039 = Parser$Reply$error$($5035); - var $5036 = $5039; - break; - }; - var $5034 = $5036; - break; - case 'Parser.Reply.value': - var $5040 = self.pst; - var self = $5040; - switch (self._) { - case 'Parser.State.new': - var $5042 = self.err; - var $5043 = self.nam; - var $5044 = self.ini; - var $5045 = self.idx; - var $5046 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($5033, $5042), $5043, $5044, $5045, $5046); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $5048 = self.err; - var _reply$92 = Kind$Parser$text$("=", _reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $5050 = self.err; - var self = $5048; - switch (self._) { - case 'Maybe.some': - var $5052 = self.value; - var $5053 = Parser$Reply$error$(Parser$Error$combine$($5052, $5050)); - var $5051 = $5053; - break; - case 'Maybe.none': - var $5054 = Parser$Reply$error$($5050); - var $5051 = $5054; - break; - }; - var $5049 = $5051; - break; - case 'Parser.Reply.value': - var $5055 = self.pst; - var self = $5055; - switch (self._) { - case 'Parser.State.new': - var $5057 = self.err; - var $5058 = self.nam; - var $5059 = self.ini; - var $5060 = self.idx; - var $5061 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($5048, $5057), $5058, $5059, $5060, $5061); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $5063 = self.err; - var _reply$106 = Kind$Parser$term(_reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $5065 = self.err; - var self = $5063; - switch (self._) { - case 'Maybe.some': - var $5067 = self.value; - var $5068 = Parser$Reply$error$(Parser$Error$combine$($5067, $5065)); - var $5066 = $5068; - break; - case 'Maybe.none': - var $5069 = Parser$Reply$error$($5065); - var $5066 = $5069; - break; - }; - var $5064 = $5066; - break; - case 'Parser.Reply.value': - var $5070 = self.pst; - var $5071 = self.val; - var self = $5070; - switch (self._) { - case 'Parser.State.new': - var $5073 = self.err; - var $5074 = self.nam; - var $5075 = self.ini; - var $5076 = self.idx; - var $5077 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5063, $5073), $5074, $5075, $5076, $5077); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $5079 = self.err; - var _reply$120 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $5081 = self.err; - var self = $5079; - switch (self._) { - case 'Maybe.some': - var $5083 = self.value; - var $5084 = Parser$Reply$error$(Parser$Error$combine$($5083, $5081)); - var $5082 = $5084; - break; - case 'Maybe.none': - var $5085 = Parser$Reply$error$($5081); - var $5082 = $5085; - break; - }; - var $5080 = $5082; - break; - case 'Parser.Reply.value': - var $5086 = self.pst; - var self = $5086; - switch (self._) { - case 'Parser.State.new': - var $5088 = self.err; - var $5089 = self.nam; - var $5090 = self.ini; - var $5091 = self.idx; - var $5092 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($5079, $5088), $5089, $5090, $5091, $5092); - var self = _reply$pst$128; - switch (self._) { - case 'Parser.State.new': - var $5094 = self.err; - var _reply$134 = _body$1(Unit$new)(_reply$pst$128); - var self = _reply$134; - switch (self._) { - case 'Parser.Reply.error': - var $5096 = self.err; - var self = $5094; - switch (self._) { - case 'Maybe.some': - var $5098 = self.value; - var $5099 = Parser$Reply$error$(Parser$Error$combine$($5098, $5096)); - var $5097 = $5099; - break; - case 'Maybe.none': - var $5100 = Parser$Reply$error$($5096); - var $5097 = $5100; - break; - }; - var $5095 = $5097; - break; - case 'Parser.Reply.value': - var $5101 = self.pst; - var $5102 = self.val; - var self = $5101; - switch (self._) { - case 'Parser.State.new': - var $5104 = self.err; - var $5105 = self.nam; - var $5106 = self.ini; - var $5107 = self.idx; - var $5108 = self.str; - var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($5094, $5104), $5105, $5106, $5107, $5108); - var _term$143 = $5071; - var _term$144 = Kind$Term$app$(_term$143, Kind$Term$lam$("", (_x$144 => { - var $5110 = Kind$Term$hol$(Bits$e); - return $5110; - }))); - var _term$145 = Kind$Term$app$(_term$144, Kind$Term$lam$($4994, (_x$145 => { - var $5111 = Kind$Term$lam$($5025, (_y$146 => { - var $5112 = $5102; - return $5112; - })); - return $5111; - }))); - var $5109 = Parser$Reply$value$(_reply$pst$142, _term$145); - var $5103 = $5109; - break; - }; - var $5095 = $5103; - break; - }; - var $5093 = $5095; - break; - }; - var $5087 = $5093; - break; - }; - var $5080 = $5087; - break; - }; - var $5078 = $5080; - break; - }; - var $5072 = $5078; - break; - }; - var $5064 = $5072; - break; - }; - var $5062 = $5064; - break; - }; - var $5056 = $5062; - break; - }; - var $5049 = $5056; - break; - }; - var $5047 = $5049; - break; - }; - var $5041 = $5047; - break; - }; - var $5034 = $5041; - break; - }; - var $5032 = $5034; - break; - }; - var $5026 = $5032; - break; - }; - var $5018 = $5026; - break; - }; - var $5016 = $5018; - break; - }; - var $5010 = $5016; - break; - }; - var $5003 = $5010; - break; - }; - var $5001 = $5003; - break; - }; - var $4995 = $5001; - break; - }; - var $4987 = $4995; - break; - }; - var $4985 = $4987; - break; - }; - var $4979 = $4985; - break; - }; - var $4972 = $4979; - break; - }; - var $4970 = $4972; - break; - }; - var $4964 = $4970; - break; - }; - var $4957 = $4964; - break; - }; - var $4955 = $4957; - break; - }; - return $4955; - })); - return $4954; - }; - const Kind$Parser$get = x0 => Kind$Parser$get$(x0); - - function Kind$Parser$get$omit$(_body$1) { - var $5113 = Kind$Parser$block("let")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5115 = self.err; - var _reply$8 = Kind$Parser$text$("{", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5117 = self.err; - var self = $5115; - switch (self._) { - case 'Maybe.some': - var $5119 = self.value; - var $5120 = Parser$Reply$error$(Parser$Error$combine$($5119, $5117)); - var $5118 = $5120; - break; - case 'Maybe.none': - var $5121 = Parser$Reply$error$($5117); - var $5118 = $5121; - break; - }; - var $5116 = $5118; - break; - case 'Parser.Reply.value': - var $5122 = self.pst; - var self = $5122; - switch (self._) { - case 'Parser.State.new': - var $5124 = self.err; - var $5125 = self.nam; - var $5126 = self.ini; - var $5127 = self.idx; - var $5128 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5115, $5124), $5125, $5126, $5127, $5128); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $5130 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $5132 = self.err; - var self = $5130; - switch (self._) { - case 'Maybe.some': - var $5134 = self.value; - var $5135 = Parser$Reply$error$(Parser$Error$combine$($5134, $5132)); - var $5133 = $5135; - break; - case 'Maybe.none': - var $5136 = Parser$Reply$error$($5132); - var $5133 = $5136; - break; - }; - var $5131 = $5133; - break; - case 'Parser.Reply.value': - var $5137 = self.pst; - var $5138 = self.val; - var self = $5137; - switch (self._) { - case 'Parser.State.new': - var $5140 = self.err; - var $5141 = self.nam; - var $5142 = self.ini; - var $5143 = self.idx; - var $5144 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($5130, $5140), $5141, $5142, $5143, $5144); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $5146 = self.err; - var _reply$36 = Kind$Parser$text$(",", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $5148 = self.err; - var self = $5146; - switch (self._) { - case 'Maybe.some': - var $5150 = self.value; - var $5151 = Parser$Reply$error$(Parser$Error$combine$($5150, $5148)); - var $5149 = $5151; - break; - case 'Maybe.none': - var $5152 = Parser$Reply$error$($5148); - var $5149 = $5152; - break; - }; - var $5147 = $5149; - break; - case 'Parser.Reply.value': - var $5153 = self.pst; - var self = $5153; - switch (self._) { - case 'Parser.State.new': - var $5155 = self.err; - var $5156 = self.nam; - var $5157 = self.ini; - var $5158 = self.idx; - var $5159 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($5146, $5155), $5156, $5157, $5158, $5159); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $5161 = self.err; - var _reply$50 = Kind$Parser$name1$(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $5163 = self.err; - var self = $5161; - switch (self._) { - case 'Maybe.some': - var $5165 = self.value; - var $5166 = Parser$Reply$error$(Parser$Error$combine$($5165, $5163)); - var $5164 = $5166; - break; - case 'Maybe.none': - var $5167 = Parser$Reply$error$($5163); - var $5164 = $5167; - break; - }; - var $5162 = $5164; - break; - case 'Parser.Reply.value': - var $5168 = self.pst; - var $5169 = self.val; - var self = $5168; - switch (self._) { - case 'Parser.State.new': - var $5171 = self.err; - var $5172 = self.nam; - var $5173 = self.ini; - var $5174 = self.idx; - var $5175 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($5161, $5171), $5172, $5173, $5174, $5175); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $5177 = self.err; - var _reply$64 = Kind$Parser$text$("}", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $5179 = self.err; - var self = $5177; - switch (self._) { - case 'Maybe.some': - var $5181 = self.value; - var $5182 = Parser$Reply$error$(Parser$Error$combine$($5181, $5179)); - var $5180 = $5182; - break; - case 'Maybe.none': - var $5183 = Parser$Reply$error$($5179); - var $5180 = $5183; - break; - }; - var $5178 = $5180; - break; - case 'Parser.Reply.value': - var $5184 = self.pst; - var self = $5184; - switch (self._) { - case 'Parser.State.new': - var $5186 = self.err; - var $5187 = self.nam; - var $5188 = self.ini; - var $5189 = self.idx; - var $5190 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($5177, $5186), $5187, $5188, $5189, $5190); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $5192 = self.err; - var _reply$78 = Kind$Parser$text$("= ", _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $5194 = self.err; - var self = $5192; - switch (self._) { - case 'Maybe.some': - var $5196 = self.value; - var $5197 = Parser$Reply$error$(Parser$Error$combine$($5196, $5194)); - var $5195 = $5197; - break; - case 'Maybe.none': - var $5198 = Parser$Reply$error$($5194); - var $5195 = $5198; - break; - }; - var $5193 = $5195; - break; - case 'Parser.Reply.value': - var $5199 = self.pst; - var self = $5199; - switch (self._) { - case 'Parser.State.new': - var $5201 = self.err; - var $5202 = self.nam; - var $5203 = self.ini; - var $5204 = self.idx; - var $5205 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($5192, $5201), $5202, $5203, $5204, $5205); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $5207 = self.err; - var _reply$92 = Kind$Parser$term(_reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $5209 = self.err; - var self = $5207; - switch (self._) { - case 'Maybe.some': - var $5211 = self.value; - var $5212 = Parser$Reply$error$(Parser$Error$combine$($5211, $5209)); - var $5210 = $5212; - break; - case 'Maybe.none': - var $5213 = Parser$Reply$error$($5209); - var $5210 = $5213; - break; - }; - var $5208 = $5210; - break; - case 'Parser.Reply.value': - var $5214 = self.pst; - var $5215 = self.val; - var self = $5214; - switch (self._) { - case 'Parser.State.new': - var $5217 = self.err; - var $5218 = self.nam; - var $5219 = self.ini; - var $5220 = self.idx; - var $5221 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($5207, $5217), $5218, $5219, $5220, $5221); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $5223 = self.err; - var _reply$106 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $5225 = self.err; - var self = $5223; - switch (self._) { - case 'Maybe.some': - var $5227 = self.value; - var $5228 = Parser$Reply$error$(Parser$Error$combine$($5227, $5225)); - var $5226 = $5228; - break; - case 'Maybe.none': - var $5229 = Parser$Reply$error$($5225); - var $5226 = $5229; - break; - }; - var $5224 = $5226; - break; - case 'Parser.Reply.value': - var $5230 = self.pst; - var self = $5230; - switch (self._) { - case 'Parser.State.new': - var $5232 = self.err; - var $5233 = self.nam; - var $5234 = self.ini; - var $5235 = self.idx; - var $5236 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5223, $5232), $5233, $5234, $5235, $5236); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $5238 = self.err; - var _reply$120 = _body$1(Unit$new)(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $5240 = self.err; - var self = $5238; - switch (self._) { - case 'Maybe.some': - var $5242 = self.value; - var $5243 = Parser$Reply$error$(Parser$Error$combine$($5242, $5240)); - var $5241 = $5243; - break; - case 'Maybe.none': - var $5244 = Parser$Reply$error$($5240); - var $5241 = $5244; - break; - }; - var $5239 = $5241; - break; - case 'Parser.Reply.value': - var $5245 = self.pst; - var $5246 = self.val; - var self = $5245; - switch (self._) { - case 'Parser.State.new': - var $5248 = self.err; - var $5249 = self.nam; - var $5250 = self.ini; - var $5251 = self.idx; - var $5252 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($5238, $5248), $5249, $5250, $5251, $5252); - var _term$129 = $5215; - var _term$130 = Kind$Term$app$(_term$129, Kind$Term$lam$("", (_x$130 => { - var $5254 = Kind$Term$hol$(Bits$e); - return $5254; - }))); - var _term$131 = Kind$Term$app$(_term$130, Kind$Term$lam$($5138, (_x$131 => { - var $5255 = Kind$Term$lam$($5169, (_y$132 => { - var $5256 = $5246; - return $5256; - })); - return $5255; - }))); - var $5253 = Parser$Reply$value$(_reply$pst$128, _term$131); - var $5247 = $5253; - break; - }; - var $5239 = $5247; - break; - }; - var $5237 = $5239; - break; - }; - var $5231 = $5237; - break; - }; - var $5224 = $5231; - break; - }; - var $5222 = $5224; - break; - }; - var $5216 = $5222; - break; - }; - var $5208 = $5216; - break; - }; - var $5206 = $5208; - break; - }; - var $5200 = $5206; - break; - }; - var $5193 = $5200; - break; - }; - var $5191 = $5193; - break; - }; - var $5185 = $5191; - break; - }; - var $5178 = $5185; - break; - }; - var $5176 = $5178; - break; - }; - var $5170 = $5176; - break; - }; - var $5162 = $5170; - break; - }; - var $5160 = $5162; - break; - }; - var $5154 = $5160; - break; - }; - var $5147 = $5154; - break; - }; - var $5145 = $5147; - break; - }; - var $5139 = $5145; - break; - }; - var $5131 = $5139; - break; - }; - var $5129 = $5131; - break; - }; - var $5123 = $5129; - break; - }; - var $5116 = $5123; - break; - }; - var $5114 = $5116; - break; - }; - return $5114; - })); - return $5113; - }; - const Kind$Parser$get$omit = x0 => Kind$Parser$get$omit$(x0); - - function Kind$Parser$def$(_body$1) { - var $5257 = Kind$Parser$block("def")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5259 = self.err; - var _reply$8 = Kind$Parser$text$("def ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5261 = self.err; - var self = $5259; - switch (self._) { - case 'Maybe.some': - var $5263 = self.value; - var $5264 = Parser$Reply$error$(Parser$Error$combine$($5263, $5261)); - var $5262 = $5264; - break; - case 'Maybe.none': - var $5265 = Parser$Reply$error$($5261); - var $5262 = $5265; - break; - }; - var $5260 = $5262; - break; - case 'Parser.Reply.value': - var $5266 = self.pst; - var self = $5266; - switch (self._) { - case 'Parser.State.new': - var $5268 = self.err; - var $5269 = self.nam; - var $5270 = self.ini; - var $5271 = self.idx; - var $5272 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5259, $5268), $5269, $5270, $5271, $5272); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $5274 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $5276 = self.err; - var self = $5274; - switch (self._) { - case 'Maybe.some': - var $5278 = self.value; - var $5279 = Parser$Reply$error$(Parser$Error$combine$($5278, $5276)); - var $5277 = $5279; - break; - case 'Maybe.none': - var $5280 = Parser$Reply$error$($5276); - var $5277 = $5280; - break; - }; - var $5275 = $5277; - break; - case 'Parser.Reply.value': - var $5281 = self.pst; - var $5282 = self.val; - var self = $5281; - switch (self._) { - case 'Parser.State.new': - var $5284 = self.err; - var $5285 = self.nam; - var $5286 = self.ini; - var $5287 = self.idx; - var $5288 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($5274, $5284), $5285, $5286, $5287, $5288); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $5290 = self.err; - var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $5292 = self.err; - var self = $5290; - switch (self._) { - case 'Maybe.some': - var $5294 = self.value; - var $5295 = Parser$Reply$error$(Parser$Error$combine$($5294, $5292)); - var $5293 = $5295; - break; - case 'Maybe.none': - var $5296 = Parser$Reply$error$($5292); - var $5293 = $5296; - break; - }; - var $5291 = $5293; - break; - case 'Parser.Reply.value': - var $5297 = self.pst; - var self = $5297; - switch (self._) { - case 'Parser.State.new': - var $5299 = self.err; - var $5300 = self.nam; - var $5301 = self.ini; - var $5302 = self.idx; - var $5303 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($5290, $5299), $5300, $5301, $5302, $5303); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $5305 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $5307 = self.err; - var self = $5305; - switch (self._) { - case 'Maybe.some': - var $5309 = self.value; - var $5310 = Parser$Reply$error$(Parser$Error$combine$($5309, $5307)); - var $5308 = $5310; - break; - case 'Maybe.none': - var $5311 = Parser$Reply$error$($5307); - var $5308 = $5311; - break; - }; - var $5306 = $5308; - break; - case 'Parser.Reply.value': - var $5312 = self.pst; - var $5313 = self.val; - var self = $5312; - switch (self._) { - case 'Parser.State.new': - var $5315 = self.err; - var $5316 = self.nam; - var $5317 = self.ini; - var $5318 = self.idx; - var $5319 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($5305, $5315), $5316, $5317, $5318, $5319); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $5321 = self.err; - var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $5323 = self.err; - var self = $5321; - switch (self._) { - case 'Maybe.some': - var $5325 = self.value; - var $5326 = Parser$Reply$error$(Parser$Error$combine$($5325, $5323)); - var $5324 = $5326; - break; - case 'Maybe.none': - var $5327 = Parser$Reply$error$($5323); - var $5324 = $5327; - break; - }; - var $5322 = $5324; - break; - case 'Parser.Reply.value': - var $5328 = self.pst; - var self = $5328; - switch (self._) { - case 'Parser.State.new': - var $5330 = self.err; - var $5331 = self.nam; - var $5332 = self.ini; - var $5333 = self.idx; - var $5334 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($5321, $5330), $5331, $5332, $5333, $5334); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $5336 = self.err; - var _reply$78 = _body$1(Unit$new)(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $5338 = self.err; - var self = $5336; - switch (self._) { - case 'Maybe.some': - var $5340 = self.value; - var $5341 = Parser$Reply$error$(Parser$Error$combine$($5340, $5338)); - var $5339 = $5341; - break; - case 'Maybe.none': - var $5342 = Parser$Reply$error$($5338); - var $5339 = $5342; - break; - }; - var $5337 = $5339; - break; - case 'Parser.Reply.value': - var $5343 = self.pst; - var $5344 = self.val; - var self = $5343; - switch (self._) { - case 'Parser.State.new': - var $5346 = self.err; - var $5347 = self.nam; - var $5348 = self.ini; - var $5349 = self.idx; - var $5350 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($5336, $5346), $5347, $5348, $5349, $5350); - var $5351 = Parser$Reply$value$(_reply$pst$86, Kind$Term$def$($5282, $5313, (_x$87 => { - var $5352 = $5344; - return $5352; - }))); - var $5345 = $5351; - break; - }; - var $5337 = $5345; - break; - }; - var $5335 = $5337; - break; - }; - var $5329 = $5335; - break; - }; - var $5322 = $5329; - break; - }; - var $5320 = $5322; - break; - }; - var $5314 = $5320; - break; - }; - var $5306 = $5314; - break; - }; - var $5304 = $5306; - break; - }; - var $5298 = $5304; - break; - }; - var $5291 = $5298; - break; - }; - var $5289 = $5291; - break; - }; - var $5283 = $5289; - break; - }; - var $5275 = $5283; - break; - }; - var $5273 = $5275; - break; - }; - var $5267 = $5273; - break; - }; - var $5260 = $5267; - break; - }; - var $5258 = $5260; - break; - }; - return $5258; - })); - return $5257; - }; - const Kind$Parser$def = x0 => Kind$Parser$def$(x0); - - function Kind$Term$cse$(_path$1, _expr$2, _name$3, _with$4, _cses$5, _moti$6) { - var $5353 = ({ - _: 'Kind.Term.cse', - 'path': _path$1, - 'expr': _expr$2, - 'name': _name$3, - 'with': _with$4, - 'cses': _cses$5, - 'moti': _moti$6 - }); - return $5353; - }; - const Kind$Term$cse = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$cse$(x0, x1, x2, x3, x4, x5); - - function Kind$Parser$use$abort$(_body$1) { - var $5354 = Kind$Parser$block("use")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5356 = self.err; - var _reply$8 = Kind$Parser$text$("use ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5358 = self.err; - var self = $5356; - switch (self._) { - case 'Maybe.some': - var $5360 = self.value; - var $5361 = Parser$Reply$error$(Parser$Error$combine$($5360, $5358)); - var $5359 = $5361; - break; - case 'Maybe.none': - var $5362 = Parser$Reply$error$($5358); - var $5359 = $5362; - break; - }; - var $5357 = $5359; - break; - case 'Parser.Reply.value': - var $5363 = self.pst; - var self = $5363; - switch (self._) { - case 'Parser.State.new': - var $5365 = self.err; - var $5366 = self.nam; - var $5367 = self.ini; - var $5368 = self.idx; - var $5369 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5356, $5365), $5366, $5367, $5368, $5369); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $5371 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $5373 = self.err; - var self = $5371; - switch (self._) { - case 'Maybe.some': - var $5375 = self.value; - var $5376 = Parser$Reply$error$(Parser$Error$combine$($5375, $5373)); - var $5374 = $5376; - break; - case 'Maybe.none': - var $5377 = Parser$Reply$error$($5373); - var $5374 = $5377; - break; - }; - var $5372 = $5374; - break; - case 'Parser.Reply.value': - var $5378 = self.pst; - var $5379 = self.val; - var self = $5378; - switch (self._) { - case 'Parser.State.new': - var $5381 = self.err; - var $5382 = self.nam; - var $5383 = self.ini; - var $5384 = self.idx; - var $5385 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($5371, $5381), $5382, $5383, $5384, $5385); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $5387 = self.err; - var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $5389 = self.err; - var self = $5387; - switch (self._) { - case 'Maybe.some': - var $5391 = self.value; - var $5392 = Parser$Reply$error$(Parser$Error$combine$($5391, $5389)); - var $5390 = $5392; - break; - case 'Maybe.none': - var $5393 = Parser$Reply$error$($5389); - var $5390 = $5393; - break; - }; - var $5388 = $5390; - break; - case 'Parser.Reply.value': - var $5394 = self.pst; - var self = $5394; - switch (self._) { - case 'Parser.State.new': - var $5396 = self.err; - var $5397 = self.nam; - var $5398 = self.ini; - var $5399 = self.idx; - var $5400 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($5387, $5396), $5397, $5398, $5399, $5400); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $5402 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $5404 = self.err; - var self = $5402; - switch (self._) { - case 'Maybe.some': - var $5406 = self.value; - var $5407 = Parser$Reply$error$(Parser$Error$combine$($5406, $5404)); - var $5405 = $5407; - break; - case 'Maybe.none': - var $5408 = Parser$Reply$error$($5404); - var $5405 = $5408; - break; - }; - var $5403 = $5405; - break; - case 'Parser.Reply.value': - var $5409 = self.pst; - var $5410 = self.val; - var self = $5409; - switch (self._) { - case 'Parser.State.new': - var $5412 = self.err; - var $5413 = self.nam; - var $5414 = self.ini; - var $5415 = self.idx; - var $5416 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($5402, $5412), $5413, $5414, $5415, $5416); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $5418 = self.err; - var _reply$64 = Kind$Parser$text$("abort ", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $5420 = self.err; - var self = $5418; - switch (self._) { - case 'Maybe.some': - var $5422 = self.value; - var $5423 = Parser$Reply$error$(Parser$Error$combine$($5422, $5420)); - var $5421 = $5423; - break; - case 'Maybe.none': - var $5424 = Parser$Reply$error$($5420); - var $5421 = $5424; - break; - }; - var $5419 = $5421; - break; - case 'Parser.Reply.value': - var $5425 = self.pst; - var self = $5425; - switch (self._) { - case 'Parser.State.new': - var $5427 = self.err; - var $5428 = self.nam; - var $5429 = self.ini; - var $5430 = self.idx; - var $5431 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($5418, $5427), $5428, $5429, $5430, $5431); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $5433 = self.err; - var _reply$78 = Kind$Parser$term(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $5435 = self.err; - var self = $5433; - switch (self._) { - case 'Maybe.some': - var $5437 = self.value; - var $5438 = Parser$Reply$error$(Parser$Error$combine$($5437, $5435)); - var $5436 = $5438; - break; - case 'Maybe.none': - var $5439 = Parser$Reply$error$($5435); - var $5436 = $5439; - break; - }; - var $5434 = $5436; - break; - case 'Parser.Reply.value': - var $5440 = self.pst; - var $5441 = self.val; - var self = $5440; - switch (self._) { - case 'Parser.State.new': - var $5443 = self.err; - var $5444 = self.nam; - var $5445 = self.ini; - var $5446 = self.idx; - var $5447 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($5433, $5443), $5444, $5445, $5446, $5447); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $5449 = self.err; - var _reply$92 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $5451 = self.err; - var self = $5449; - switch (self._) { - case 'Maybe.some': - var $5453 = self.value; - var $5454 = Parser$Reply$error$(Parser$Error$combine$($5453, $5451)); - var $5452 = $5454; - break; - case 'Maybe.none': - var $5455 = Parser$Reply$error$($5451); - var $5452 = $5455; - break; - }; - var $5450 = $5452; - break; - case 'Parser.Reply.value': - var $5456 = self.pst; - var self = $5456; - switch (self._) { - case 'Parser.State.new': - var $5458 = self.err; - var $5459 = self.nam; - var $5460 = self.ini; - var $5461 = self.idx; - var $5462 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($5449, $5458), $5459, $5460, $5461, $5462); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $5464 = self.err; - var _reply$106 = _body$1(Unit$new)(_reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $5466 = self.err; - var self = $5464; - switch (self._) { - case 'Maybe.some': - var $5468 = self.value; - var $5469 = Parser$Reply$error$(Parser$Error$combine$($5468, $5466)); - var $5467 = $5469; - break; - case 'Maybe.none': - var $5470 = Parser$Reply$error$($5466); - var $5467 = $5470; - break; - }; - var $5465 = $5467; - break; - case 'Parser.Reply.value': - var $5471 = self.pst; - var $5472 = self.val; - var self = $5471; - switch (self._) { - case 'Parser.State.new': - var $5474 = self.err; - var $5475 = self.nam; - var $5476 = self.ini; - var $5477 = self.idx; - var $5478 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5464, $5474), $5475, $5476, $5477, $5478); - var _term$115 = $5410; - var _term$116 = Kind$Term$app$(_term$115, Kind$Term$lam$("", (_$116 => { - var $5480 = Kind$Term$hol$(Bits$e); - return $5480; - }))); - var _term$117 = Kind$Term$app$(_term$116, $5441); - var _term$118 = Kind$Term$app$(_term$117, Kind$Term$lam$($5379, (_$118 => { - var _wyth$119 = List$nil; - var _cses$120 = Kind$Map$set$("_", $5472, Kind$Map$new); - var _moti$121 = Maybe$some$(Kind$Term$hol$(Bits$e)); - var _term$122 = Kind$Term$let$($5379, Kind$Term$ref$($5379), (_$122 => { - var $5482 = Kind$Term$cse$(Bits$e, Kind$Term$ref$($5379), $5379, _wyth$119, _cses$120, _moti$121); - return $5482; - })); - var $5481 = _term$122; - return $5481; - }))); - var $5479 = Parser$Reply$value$(_reply$pst$114, _term$118); - var $5473 = $5479; - break; - }; - var $5465 = $5473; - break; - }; - var $5463 = $5465; - break; - }; - var $5457 = $5463; - break; - }; - var $5450 = $5457; - break; - }; - var $5448 = $5450; - break; - }; - var $5442 = $5448; - break; - }; - var $5434 = $5442; - break; - }; - var $5432 = $5434; - break; - }; - var $5426 = $5432; - break; - }; - var $5419 = $5426; - break; - }; - var $5417 = $5419; - break; - }; - var $5411 = $5417; - break; - }; - var $5403 = $5411; - break; - }; - var $5401 = $5403; - break; - }; - var $5395 = $5401; - break; - }; - var $5388 = $5395; - break; - }; - var $5386 = $5388; - break; - }; - var $5380 = $5386; - break; - }; - var $5372 = $5380; - break; - }; - var $5370 = $5372; - break; - }; - var $5364 = $5370; - break; - }; - var $5357 = $5364; - break; - }; - var $5355 = $5357; - break; - }; - return $5355; - })); - return $5354; - }; - const Kind$Parser$use$abort = x0 => Kind$Parser$use$abort$(x0); - - function Kind$Parser$use$(_body$1) { - var $5483 = Kind$Parser$block("use")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5485 = self.err; - var _reply$8 = Kind$Parser$text$("use ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5487 = self.err; - var self = $5485; - switch (self._) { - case 'Maybe.some': - var $5489 = self.value; - var $5490 = Parser$Reply$error$(Parser$Error$combine$($5489, $5487)); - var $5488 = $5490; - break; - case 'Maybe.none': - var $5491 = Parser$Reply$error$($5487); - var $5488 = $5491; - break; - }; - var $5486 = $5488; - break; - case 'Parser.Reply.value': - var $5492 = self.pst; - var self = $5492; - switch (self._) { - case 'Parser.State.new': - var $5494 = self.err; - var $5495 = self.nam; - var $5496 = self.ini; - var $5497 = self.idx; - var $5498 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5485, $5494), $5495, $5496, $5497, $5498); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $5500 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $5502 = self.err; - var self = $5500; - switch (self._) { - case 'Maybe.some': - var $5504 = self.value; - var $5505 = Parser$Reply$error$(Parser$Error$combine$($5504, $5502)); - var $5503 = $5505; - break; - case 'Maybe.none': - var $5506 = Parser$Reply$error$($5502); - var $5503 = $5506; - break; - }; - var $5501 = $5503; - break; - case 'Parser.Reply.value': - var $5507 = self.pst; - var $5508 = self.val; - var self = $5507; - switch (self._) { - case 'Parser.State.new': - var $5510 = self.err; - var $5511 = self.nam; - var $5512 = self.ini; - var $5513 = self.idx; - var $5514 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($5500, $5510), $5511, $5512, $5513, $5514); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $5516 = self.err; - var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $5518 = self.err; - var self = $5516; - switch (self._) { - case 'Maybe.some': - var $5520 = self.value; - var $5521 = Parser$Reply$error$(Parser$Error$combine$($5520, $5518)); - var $5519 = $5521; - break; - case 'Maybe.none': - var $5522 = Parser$Reply$error$($5518); - var $5519 = $5522; - break; - }; - var $5517 = $5519; - break; - case 'Parser.Reply.value': - var $5523 = self.pst; - var self = $5523; - switch (self._) { - case 'Parser.State.new': - var $5525 = self.err; - var $5526 = self.nam; - var $5527 = self.ini; - var $5528 = self.idx; - var $5529 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($5516, $5525), $5526, $5527, $5528, $5529); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $5531 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $5533 = self.err; - var self = $5531; - switch (self._) { - case 'Maybe.some': - var $5535 = self.value; - var $5536 = Parser$Reply$error$(Parser$Error$combine$($5535, $5533)); - var $5534 = $5536; - break; - case 'Maybe.none': - var $5537 = Parser$Reply$error$($5533); - var $5534 = $5537; - break; - }; - var $5532 = $5534; - break; - case 'Parser.Reply.value': - var $5538 = self.pst; - var $5539 = self.val; - var self = $5538; - switch (self._) { - case 'Parser.State.new': - var $5541 = self.err; - var $5542 = self.nam; - var $5543 = self.ini; - var $5544 = self.idx; - var $5545 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($5531, $5541), $5542, $5543, $5544, $5545); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $5547 = self.err; - var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $5549 = self.err; - var self = $5547; - switch (self._) { - case 'Maybe.some': - var $5551 = self.value; - var $5552 = Parser$Reply$error$(Parser$Error$combine$($5551, $5549)); - var $5550 = $5552; - break; - case 'Maybe.none': - var $5553 = Parser$Reply$error$($5549); - var $5550 = $5553; - break; - }; - var $5548 = $5550; - break; - case 'Parser.Reply.value': - var $5554 = self.pst; - var self = $5554; - switch (self._) { - case 'Parser.State.new': - var $5556 = self.err; - var $5557 = self.nam; - var $5558 = self.ini; - var $5559 = self.idx; - var $5560 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($5547, $5556), $5557, $5558, $5559, $5560); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $5562 = self.err; - var _reply$78 = _body$1(Unit$new)(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $5564 = self.err; - var self = $5562; - switch (self._) { - case 'Maybe.some': - var $5566 = self.value; - var $5567 = Parser$Reply$error$(Parser$Error$combine$($5566, $5564)); - var $5565 = $5567; - break; - case 'Maybe.none': - var $5568 = Parser$Reply$error$($5564); - var $5565 = $5568; - break; - }; - var $5563 = $5565; - break; - case 'Parser.Reply.value': - var $5569 = self.pst; - var $5570 = self.val; - var self = $5569; - switch (self._) { - case 'Parser.State.new': - var $5572 = self.err; - var $5573 = self.nam; - var $5574 = self.ini; - var $5575 = self.idx; - var $5576 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($5562, $5572), $5573, $5574, $5575, $5576); - var _wyth$87 = List$nil; - var _cses$88 = Kind$Map$set$("_", $5570, Kind$Map$new); - var _moti$89 = Maybe$some$(Kind$Term$hol$(Bits$e)); - var _term$90 = Kind$Term$let$($5508, $5539, (_$90 => { - var $5578 = Kind$Term$cse$(Bits$e, Kind$Term$ref$($5508), $5508, _wyth$87, _cses$88, _moti$89); - return $5578; - })); - var $5577 = Parser$Reply$value$(_reply$pst$86, _term$90); - var $5571 = $5577; - break; - }; - var $5563 = $5571; - break; - }; - var $5561 = $5563; - break; - }; - var $5555 = $5561; - break; - }; - var $5548 = $5555; - break; - }; - var $5546 = $5548; - break; - }; - var $5540 = $5546; - break; - }; - var $5532 = $5540; - break; - }; - var $5530 = $5532; - break; - }; - var $5524 = $5530; - break; - }; - var $5517 = $5524; - break; - }; - var $5515 = $5517; - break; - }; - var $5509 = $5515; - break; - }; - var $5501 = $5509; - break; - }; - var $5499 = $5501; - break; - }; - var $5493 = $5499; - break; - }; - var $5486 = $5493; - break; - }; - var $5484 = $5486; - break; - }; - return $5484; - })); - return $5483; - }; - const Kind$Parser$use = x0 => Kind$Parser$use$(x0); - const Kind$Parser$goal_rewrite = Kind$Parser$block("goal-rewrite")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $5580 = self.err; - var _reply$7 = Kind$Parser$text$("rewrite ", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $5582 = self.err; - var self = $5580; - switch (self._) { - case 'Maybe.some': - var $5584 = self.value; - var $5585 = Parser$Reply$error$(Parser$Error$combine$($5584, $5582)); - var $5583 = $5585; - break; - case 'Maybe.none': - var $5586 = Parser$Reply$error$($5582); - var $5583 = $5586; - break; - }; - var $5581 = $5583; - break; - case 'Parser.Reply.value': - var $5587 = self.pst; - var self = $5587; - switch (self._) { - case 'Parser.State.new': - var $5589 = self.err; - var $5590 = self.nam; - var $5591 = self.ini; - var $5592 = self.idx; - var $5593 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($5580, $5589), $5590, $5591, $5592, $5593); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $5595 = self.err; - var _reply$21 = Kind$Parser$name1$(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $5597 = self.err; - var self = $5595; - switch (self._) { - case 'Maybe.some': - var $5599 = self.value; - var $5600 = Parser$Reply$error$(Parser$Error$combine$($5599, $5597)); - var $5598 = $5600; - break; - case 'Maybe.none': - var $5601 = Parser$Reply$error$($5597); - var $5598 = $5601; - break; - }; - var $5596 = $5598; - break; - case 'Parser.Reply.value': - var $5602 = self.pst; - var $5603 = self.val; - var self = $5602; - switch (self._) { - case 'Parser.State.new': - var $5605 = self.err; - var $5606 = self.nam; - var $5607 = self.ini; - var $5608 = self.idx; - var $5609 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($5595, $5605), $5606, $5607, $5608, $5609); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $5611 = self.err; - var _reply$35 = Kind$Parser$text$("in", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $5613 = self.err; - var self = $5611; - switch (self._) { - case 'Maybe.some': - var $5615 = self.value; - var $5616 = Parser$Reply$error$(Parser$Error$combine$($5615, $5613)); - var $5614 = $5616; - break; - case 'Maybe.none': - var $5617 = Parser$Reply$error$($5613); - var $5614 = $5617; - break; - }; - var $5612 = $5614; - break; - case 'Parser.Reply.value': - var $5618 = self.pst; - var self = $5618; - switch (self._) { - case 'Parser.State.new': - var $5620 = self.err; - var $5621 = self.nam; - var $5622 = self.ini; - var $5623 = self.idx; - var $5624 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($5611, $5620), $5621, $5622, $5623, $5624); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $5626 = self.err; - var _reply$49 = Kind$Parser$term(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $5628 = self.err; - var self = $5626; - switch (self._) { - case 'Maybe.some': - var $5630 = self.value; - var $5631 = Parser$Reply$error$(Parser$Error$combine$($5630, $5628)); - var $5629 = $5631; - break; - case 'Maybe.none': - var $5632 = Parser$Reply$error$($5628); - var $5629 = $5632; - break; - }; - var $5627 = $5629; - break; - case 'Parser.Reply.value': - var $5633 = self.pst; - var $5634 = self.val; - var self = $5633; - switch (self._) { - case 'Parser.State.new': - var $5636 = self.err; - var $5637 = self.nam; - var $5638 = self.ini; - var $5639 = self.idx; - var $5640 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($5626, $5636), $5637, $5638, $5639, $5640); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $5642 = self.err; - var _reply$63 = Kind$Parser$text$("with", _reply$pst$57); - var self = _reply$63; - switch (self._) { - case 'Parser.Reply.error': - var $5644 = self.err; - var self = $5642; - switch (self._) { - case 'Maybe.some': - var $5646 = self.value; - var $5647 = Parser$Reply$error$(Parser$Error$combine$($5646, $5644)); - var $5645 = $5647; - break; - case 'Maybe.none': - var $5648 = Parser$Reply$error$($5644); - var $5645 = $5648; - break; - }; - var $5643 = $5645; - break; - case 'Parser.Reply.value': - var $5649 = self.pst; - var self = $5649; - switch (self._) { - case 'Parser.State.new': - var $5651 = self.err; - var $5652 = self.nam; - var $5653 = self.ini; - var $5654 = self.idx; - var $5655 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($5642, $5651), $5652, $5653, $5654, $5655); - var self = _reply$pst$71; - switch (self._) { - case 'Parser.State.new': - var $5657 = self.err; - var _reply$77 = Kind$Parser$term(_reply$pst$71); - var self = _reply$77; - switch (self._) { - case 'Parser.Reply.error': - var $5659 = self.err; - var self = $5657; - switch (self._) { - case 'Maybe.some': - var $5661 = self.value; - var $5662 = Parser$Reply$error$(Parser$Error$combine$($5661, $5659)); - var $5660 = $5662; - break; - case 'Maybe.none': - var $5663 = Parser$Reply$error$($5659); - var $5660 = $5663; - break; - }; - var $5658 = $5660; - break; - case 'Parser.Reply.value': - var $5664 = self.pst; - var $5665 = self.val; - var self = $5664; - switch (self._) { - case 'Parser.State.new': - var $5667 = self.err; - var $5668 = self.nam; - var $5669 = self.ini; - var $5670 = self.idx; - var $5671 = self.str; - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($5657, $5667), $5668, $5669, $5670, $5671); - var self = _reply$pst$85; - switch (self._) { - case 'Parser.State.new': - var $5673 = self.err; - var _reply$91 = Kind$Parser$term(_reply$pst$85); - var self = _reply$91; - switch (self._) { - case 'Parser.Reply.error': - var $5675 = self.err; - var self = $5673; - switch (self._) { - case 'Maybe.some': - var $5677 = self.value; - var $5678 = Parser$Reply$error$(Parser$Error$combine$($5677, $5675)); - var $5676 = $5678; - break; - case 'Maybe.none': - var $5679 = Parser$Reply$error$($5675); - var $5676 = $5679; - break; - }; - var $5674 = $5676; - break; - case 'Parser.Reply.value': - var $5680 = self.pst; - var $5681 = self.val; - var self = $5680; - switch (self._) { - case 'Parser.State.new': - var $5683 = self.err; - var $5684 = self.nam; - var $5685 = self.ini; - var $5686 = self.idx; - var $5687 = self.str; - var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($5673, $5683), $5684, $5685, $5686, $5687); - var _moti$100 = Kind$Term$lam$($5603, (_s$100 => { - var $5689 = Kind$Term$lam$("", (_x$101 => { - var $5690 = $5634; - return $5690; - })); - return $5689; - })); - var _term$101 = Kind$Term$ref$("Equal.mirror"); - var _term$102 = Kind$Term$app$(_term$101, Kind$Term$hol$(Bits$e)); - var _term$103 = Kind$Term$app$(_term$102, Kind$Term$hol$(Bits$e)); - var _term$104 = Kind$Term$app$(_term$103, Kind$Term$hol$(Bits$e)); - var _term$105 = Kind$Term$app$(_term$104, $5665); - var _term$106 = Kind$Term$app$(_term$105, _moti$100); - var _term$107 = Kind$Term$app$(_term$106, $5681); - var $5688 = Parser$Reply$value$(_reply$pst$99, _term$107); - var $5682 = $5688; - break; - }; - var $5674 = $5682; - break; - }; - var $5672 = $5674; - break; - }; - var $5666 = $5672; - break; - }; - var $5658 = $5666; - break; - }; - var $5656 = $5658; - break; - }; - var $5650 = $5656; - break; - }; - var $5643 = $5650; - break; - }; - var $5641 = $5643; - break; - }; - var $5635 = $5641; - break; - }; - var $5627 = $5635; - break; - }; - var $5625 = $5627; - break; - }; - var $5619 = $5625; - break; - }; - var $5612 = $5619; - break; - }; - var $5610 = $5612; - break; - }; - var $5604 = $5610; - break; - }; - var $5596 = $5604; - break; - }; - var $5594 = $5596; - break; - }; - var $5588 = $5594; - break; - }; - var $5581 = $5588; - break; - }; - var $5579 = $5581; - break; - }; - return $5579; - })); - const Kind$Parser$if = Kind$Parser$block("if")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $5692 = self.err; - var _reply$7 = Kind$Parser$text$("if ", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $5694 = self.err; - var self = $5692; - switch (self._) { - case 'Maybe.some': - var $5696 = self.value; - var $5697 = Parser$Reply$error$(Parser$Error$combine$($5696, $5694)); - var $5695 = $5697; - break; - case 'Maybe.none': - var $5698 = Parser$Reply$error$($5694); - var $5695 = $5698; - break; - }; - var $5693 = $5695; - break; - case 'Parser.Reply.value': - var $5699 = self.pst; - var self = $5699; - switch (self._) { - case 'Parser.State.new': - var $5701 = self.err; - var $5702 = self.nam; - var $5703 = self.ini; - var $5704 = self.idx; - var $5705 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($5692, $5701), $5702, $5703, $5704, $5705); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $5707 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $5709 = self.err; - var self = $5707; - switch (self._) { - case 'Maybe.some': - var $5711 = self.value; - var $5712 = Parser$Reply$error$(Parser$Error$combine$($5711, $5709)); - var $5710 = $5712; - break; - case 'Maybe.none': - var $5713 = Parser$Reply$error$($5709); - var $5710 = $5713; - break; - }; - var $5708 = $5710; - break; - case 'Parser.Reply.value': - var $5714 = self.pst; - var $5715 = self.val; - var self = $5714; - switch (self._) { - case 'Parser.State.new': - var $5717 = self.err; - var $5718 = self.nam; - var $5719 = self.ini; - var $5720 = self.idx; - var $5721 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($5707, $5717), $5718, $5719, $5720, $5721); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $5723 = self.err; - var _reply$35 = Kind$Parser$text$("then", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $5725 = self.err; - var self = $5723; - switch (self._) { - case 'Maybe.some': - var $5727 = self.value; - var $5728 = Parser$Reply$error$(Parser$Error$combine$($5727, $5725)); - var $5726 = $5728; - break; - case 'Maybe.none': - var $5729 = Parser$Reply$error$($5725); - var $5726 = $5729; - break; - }; - var $5724 = $5726; - break; - case 'Parser.Reply.value': - var $5730 = self.pst; - var self = $5730; - switch (self._) { - case 'Parser.State.new': - var $5732 = self.err; - var $5733 = self.nam; - var $5734 = self.ini; - var $5735 = self.idx; - var $5736 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($5723, $5732), $5733, $5734, $5735, $5736); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $5738 = self.err; - var _reply$49 = Kind$Parser$term(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $5740 = self.err; - var self = $5738; - switch (self._) { - case 'Maybe.some': - var $5742 = self.value; - var $5743 = Parser$Reply$error$(Parser$Error$combine$($5742, $5740)); - var $5741 = $5743; - break; - case 'Maybe.none': - var $5744 = Parser$Reply$error$($5740); - var $5741 = $5744; - break; - }; - var $5739 = $5741; - break; - case 'Parser.Reply.value': - var $5745 = self.pst; - var $5746 = self.val; - var self = $5745; - switch (self._) { - case 'Parser.State.new': - var $5748 = self.err; - var $5749 = self.nam; - var $5750 = self.ini; - var $5751 = self.idx; - var $5752 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($5738, $5748), $5749, $5750, $5751, $5752); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $5754 = self.err; - var _reply$63 = Kind$Parser$text$("else", _reply$pst$57); - var self = _reply$63; - switch (self._) { - case 'Parser.Reply.error': - var $5756 = self.err; - var self = $5754; - switch (self._) { - case 'Maybe.some': - var $5758 = self.value; - var $5759 = Parser$Reply$error$(Parser$Error$combine$($5758, $5756)); - var $5757 = $5759; - break; - case 'Maybe.none': - var $5760 = Parser$Reply$error$($5756); - var $5757 = $5760; - break; - }; - var $5755 = $5757; - break; - case 'Parser.Reply.value': - var $5761 = self.pst; - var self = $5761; - switch (self._) { - case 'Parser.State.new': - var $5763 = self.err; - var $5764 = self.nam; - var $5765 = self.ini; - var $5766 = self.idx; - var $5767 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($5754, $5763), $5764, $5765, $5766, $5767); - var self = _reply$pst$71; - switch (self._) { - case 'Parser.State.new': - var $5769 = self.err; - var _reply$77 = Kind$Parser$term(_reply$pst$71); - var self = _reply$77; - switch (self._) { - case 'Parser.Reply.error': - var $5771 = self.err; - var self = $5769; - switch (self._) { - case 'Maybe.some': - var $5773 = self.value; - var $5774 = Parser$Reply$error$(Parser$Error$combine$($5773, $5771)); - var $5772 = $5774; - break; - case 'Maybe.none': - var $5775 = Parser$Reply$error$($5771); - var $5772 = $5775; - break; - }; - var $5770 = $5772; - break; - case 'Parser.Reply.value': - var $5776 = self.pst; - var $5777 = self.val; - var self = $5776; - switch (self._) { - case 'Parser.State.new': - var $5779 = self.err; - var $5780 = self.nam; - var $5781 = self.ini; - var $5782 = self.idx; - var $5783 = self.str; - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($5769, $5779), $5780, $5781, $5782, $5783); - var _term$86 = $5715; - var _term$87 = Kind$Term$app$(_term$86, Kind$Term$lam$("", (_x$87 => { - var $5785 = Kind$Term$hol$(Bits$e); - return $5785; - }))); - var _term$88 = Kind$Term$app$(_term$87, $5746); - var _term$89 = Kind$Term$app$(_term$88, $5777); - var $5784 = Parser$Reply$value$(_reply$pst$85, _term$89); - var $5778 = $5784; - break; - }; - var $5770 = $5778; - break; - }; - var $5768 = $5770; - break; - }; - var $5762 = $5768; - break; - }; - var $5755 = $5762; - break; - }; - var $5753 = $5755; - break; - }; - var $5747 = $5753; - break; - }; - var $5739 = $5747; - break; - }; - var $5737 = $5739; - break; - }; - var $5731 = $5737; - break; - }; - var $5724 = $5731; - break; - }; - var $5722 = $5724; - break; - }; - var $5716 = $5722; - break; - }; - var $5708 = $5716; - break; - }; - var $5706 = $5708; - break; - }; - var $5700 = $5706; - break; - }; - var $5693 = $5700; - break; - }; - var $5691 = $5693; - break; - }; - return $5691; - })); - const Kind$Code$backslash = 92; - const Kind$Code$escapes = List$cons$(Pair$new$("\\b", 8), List$cons$(Pair$new$("\\f", 12), List$cons$(Pair$new$("\\n", 10), List$cons$(Pair$new$("\\r", 13), List$cons$(Pair$new$("\\t", 9), List$cons$(Pair$new$("\\v", 11), List$cons$(Pair$new$(String$cons$(Kind$Code$backslash, String$cons$(Kind$Code$backslash, String$nil)), Kind$Code$backslash), List$cons$(Pair$new$("\\\"", 34), List$cons$(Pair$new$("\\0", 0), List$cons$(Pair$new$("\\\'", 39), List$nil)))))))))); - const Kind$Parser$char$single = Parser$choice(List$cons$(Parser$choice(List$mapped$(Kind$Code$escapes, (_esc$1 => { - var self = _esc$1; - switch (self._) { - case 'Pair.new': - var $5787 = self.fst; - var $5788 = self.snd; - var $5789 = (_pst$4 => { - var self = _pst$4; - switch (self._) { - case 'Parser.State.new': - var $5791 = self.err; - var _reply$10 = Parser$text$($5787, _pst$4); - var self = _reply$10; - switch (self._) { - case 'Parser.Reply.error': - var $5793 = self.err; - var self = $5791; - switch (self._) { - case 'Maybe.some': - var $5795 = self.value; - var $5796 = Parser$Reply$error$(Parser$Error$combine$($5795, $5793)); - var $5794 = $5796; - break; - case 'Maybe.none': - var $5797 = Parser$Reply$error$($5793); - var $5794 = $5797; - break; - }; - var $5792 = $5794; - break; - case 'Parser.Reply.value': - var $5798 = self.pst; - var self = $5798; - switch (self._) { - case 'Parser.State.new': - var $5800 = self.err; - var $5801 = self.nam; - var $5802 = self.ini; - var $5803 = self.idx; - var $5804 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5791, $5800), $5801, $5802, $5803, $5804); - var $5805 = Parser$Reply$value$(_reply$pst$18, $5788); - var $5799 = $5805; - break; - }; - var $5792 = $5799; - break; - }; - var $5790 = $5792; - break; - }; - return $5790; - }); - var $5786 = $5789; - break; - }; - return $5786; - }))), List$cons$(Parser$one, List$nil))); - const Kind$Parser$char = Kind$Parser$block("char")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $5807 = self.err; - var _reply$7 = Kind$Parser$text$("\'", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $5809 = self.err; - var self = $5807; - switch (self._) { - case 'Maybe.some': - var $5811 = self.value; - var $5812 = Parser$Reply$error$(Parser$Error$combine$($5811, $5809)); - var $5810 = $5812; - break; - case 'Maybe.none': - var $5813 = Parser$Reply$error$($5809); - var $5810 = $5813; - break; - }; - var $5808 = $5810; - break; - case 'Parser.Reply.value': - var $5814 = self.pst; - var self = $5814; - switch (self._) { - case 'Parser.State.new': - var $5816 = self.err; - var $5817 = self.nam; - var $5818 = self.ini; - var $5819 = self.idx; - var $5820 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($5807, $5816), $5817, $5818, $5819, $5820); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $5822 = self.err; - var _reply$21 = Kind$Parser$char$single(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $5824 = self.err; - var self = $5822; - switch (self._) { - case 'Maybe.some': - var $5826 = self.value; - var $5827 = Parser$Reply$error$(Parser$Error$combine$($5826, $5824)); - var $5825 = $5827; - break; - case 'Maybe.none': - var $5828 = Parser$Reply$error$($5824); - var $5825 = $5828; - break; - }; - var $5823 = $5825; - break; - case 'Parser.Reply.value': - var $5829 = self.pst; - var $5830 = self.val; - var self = $5829; - switch (self._) { - case 'Parser.State.new': - var $5832 = self.err; - var $5833 = self.nam; - var $5834 = self.ini; - var $5835 = self.idx; - var $5836 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($5822, $5832), $5833, $5834, $5835, $5836); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $5838 = self.err; - var _reply$35 = Kind$Parser$text$("\'", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $5840 = self.err; - var self = $5838; - switch (self._) { - case 'Maybe.some': - var $5842 = self.value; - var $5843 = Parser$Reply$error$(Parser$Error$combine$($5842, $5840)); - var $5841 = $5843; - break; - case 'Maybe.none': - var $5844 = Parser$Reply$error$($5840); - var $5841 = $5844; - break; - }; - var $5839 = $5841; - break; - case 'Parser.Reply.value': - var $5845 = self.pst; - var self = $5845; - switch (self._) { - case 'Parser.State.new': - var $5847 = self.err; - var $5848 = self.nam; - var $5849 = self.ini; - var $5850 = self.idx; - var $5851 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($5838, $5847), $5848, $5849, $5850, $5851); - var $5852 = Parser$Reply$value$(_reply$pst$43, Kind$Term$chr$($5830)); - var $5846 = $5852; - break; - }; - var $5839 = $5846; - break; - }; - var $5837 = $5839; - break; - }; - var $5831 = $5837; - break; - }; - var $5823 = $5831; - break; - }; - var $5821 = $5823; - break; - }; - var $5815 = $5821; - break; - }; - var $5808 = $5815; - break; - }; - var $5806 = $5808; - break; - }; - return $5806; + return $2340; })); - function String$reverse$go$(_xs$1, _res$2) { - var String$reverse$go$ = (_xs$1, _res$2) => ({ - ctr: 'TCO', - arg: [_xs$1, _res$2] - }); - var String$reverse$go = _xs$1 => _res$2 => String$reverse$go$(_xs$1, _res$2); - var arg = [_xs$1, _res$2]; - while (true) { - let [_xs$1, _res$2] = arg; - var R = (() => { - var self = _xs$1; - if (self.length === 0) { - var $5853 = _res$2; - return $5853; - } else { - var $5854 = self.charCodeAt(0); - var $5855 = self.slice(1); - var $5856 = String$reverse$go$($5855, String$cons$($5854, _res$2)); - return $5856; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const String$reverse$go = x0 => x1 => String$reverse$go$(x0, x1); - - function String$reverse$(_xs$1) { - var $5857 = String$reverse$go$(_xs$1, String$nil); - return $5857; - }; - const String$reverse = x0 => String$reverse$(x0); - - function Kind$Parser$string$go$(_delim$1, _str$2, _pst$3) { - var Kind$Parser$string$go$ = (_delim$1, _str$2, _pst$3) => ({ - ctr: 'TCO', - arg: [_delim$1, _str$2, _pst$3] - }); - var Kind$Parser$string$go = _delim$1 => _str$2 => _pst$3 => Kind$Parser$string$go$(_delim$1, _str$2, _pst$3); - var arg = [_delim$1, _str$2, _pst$3]; - while (true) { - let [_delim$1, _str$2, _pst$3] = arg; - var R = (() => { - var self = _pst$3; - switch (self._) { - case 'Parser.State.new': - var $5858 = self.err; - var $5859 = self.nam; - var $5860 = self.ini; - var $5861 = self.idx; - var $5862 = self.str; - var self = $5862; - if (self.length === 0) { - var $5864 = Parser$Reply$fail$($5859, $5860, $5861, "Non-terminating string."); - var $5863 = $5864; - } else { - var $5865 = self.charCodeAt(0); - var $5866 = self.slice(1); - var self = ($5865 === _delim$1); - if (self) { - var _pst$11 = Parser$State$new$($5858, $5859, $5860, Nat$succ$($5861), $5866); - var $5868 = Parser$Reply$value$(_pst$11, String$reverse$(_str$2)); - var $5867 = $5868; - } else { - var self = Kind$Parser$char$single(_pst$3); - switch (self._) { - case 'Parser.Reply.error': - var $5870 = self.err; - var $5871 = Parser$Reply$error$($5870); - var $5869 = $5871; - break; - case 'Parser.Reply.value': - var $5872 = self.pst; - var $5873 = self.val; - var $5874 = Kind$Parser$string$go$(_delim$1, String$cons$($5873, _str$2), $5872); - var $5869 = $5874; - break; - }; - var $5867 = $5869; - }; - var $5863 = $5867; - }; - return $5863; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const Kind$Parser$string$go = x0 => x1 => x2 => Kind$Parser$string$go$(x0, x1, x2); - - function Kind$Parser$string$(_delim$1) { - var $5875 = Kind$Parser$block("string")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5877 = self.err; - var _reply$8 = Kind$Parser$text$(String$cons$(_delim$1, String$nil), _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5879 = self.err; - var self = $5877; - switch (self._) { - case 'Maybe.some': - var $5881 = self.value; - var $5882 = Parser$Reply$error$(Parser$Error$combine$($5881, $5879)); - var $5880 = $5882; - break; - case 'Maybe.none': - var $5883 = Parser$Reply$error$($5879); - var $5880 = $5883; - break; - }; - var $5878 = $5880; - break; - case 'Parser.Reply.value': - var $5884 = self.pst; - var self = $5884; - switch (self._) { - case 'Parser.State.new': - var $5886 = self.err; - var $5887 = self.nam; - var $5888 = self.ini; - var $5889 = self.idx; - var $5890 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5877, $5886), $5887, $5888, $5889, $5890); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $5892 = self.err; - var _reply$22 = Kind$Parser$string$go$(_delim$1, "", _reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $5894 = self.err; - var self = $5892; - switch (self._) { - case 'Maybe.some': - var $5896 = self.value; - var $5897 = Parser$Reply$error$(Parser$Error$combine$($5896, $5894)); - var $5895 = $5897; - break; - case 'Maybe.none': - var $5898 = Parser$Reply$error$($5894); - var $5895 = $5898; - break; - }; - var $5893 = $5895; - break; - case 'Parser.Reply.value': - var $5899 = self.pst; - var $5900 = self.val; - var self = $5899; - switch (self._) { - case 'Parser.State.new': - var $5902 = self.err; - var $5903 = self.nam; - var $5904 = self.ini; - var $5905 = self.idx; - var $5906 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($5892, $5902), $5903, $5904, $5905, $5906); - var $5907 = Parser$Reply$value$(_reply$pst$30, Kind$Term$str$($5900)); - var $5901 = $5907; - break; - }; - var $5893 = $5901; - break; - }; - var $5891 = $5893; - break; - }; - var $5885 = $5891; - break; - }; - var $5878 = $5885; - break; - }; - var $5876 = $5878; - break; - }; - return $5876; - })); - return $5875; - }; - const Kind$Parser$string = x0 => Kind$Parser$string$(x0); - - function Kind$Term$new$(_args$1) { - var $5908 = ({ - _: 'Kind.Term.new', - 'args': _args$1 - }); - return $5908; - }; - const Kind$Term$new = x0 => Kind$Term$new$(x0); - const Kind$Parser$new = Kind$Parser$block("new-struct")((_pst$1 => { + function Kind$Parser$lambda$name_term$(_pst$1) { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $5910 = self.err; - var _reply$7 = Kind$Parser$items1$("{", Kind$Parser$term, "}")(_pst$1); + var $2378 = self.err; + var _reply$7 = Kind$Parser$name$(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $5912 = self.err; - var self = $5910; + var $2380 = self.err; + var self = $2378; switch (self._) { case 'Maybe.some': - var $5914 = self.value; - var $5915 = Parser$Reply$error$(Parser$Error$combine$($5914, $5912)); - var $5913 = $5915; + var $2382 = self.value; + var $2383 = Parser$Reply$error$(Parser$Error$combine$($2382, $2380)); + var $2381 = $2383; break; case 'Maybe.none': - var $5916 = Parser$Reply$error$($5912); - var $5913 = $5916; + var $2384 = Parser$Reply$error$($2380); + var $2381 = $2384; break; }; - var $5911 = $5913; + var $2379 = $2381; break; case 'Parser.Reply.value': - var $5917 = self.pst; - var $5918 = self.val; - var self = $5917; + var $2385 = self.pst; + var $2386 = self.val; + var self = $2385; switch (self._) { case 'Parser.State.new': - var $5920 = self.err; - var $5921 = self.nam; - var $5922 = self.ini; - var $5923 = self.idx; - var $5924 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($5910, $5920), $5921, $5922, $5923, $5924); - var $5925 = Parser$Reply$value$(_reply$pst$15, Kind$Term$new$($5918)); - var $5919 = $5925; - break; - }; - var $5911 = $5919; - break; - }; - var $5909 = $5911; - break; - }; - return $5909; - })); - const Kind$Parser$sigma$type = Kind$Parser$block("sigma")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $5927 = self.err; - var _reply$7 = Kind$Parser$text$("[", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $5929 = self.err; - var self = $5927; - switch (self._) { - case 'Maybe.some': - var $5931 = self.value; - var $5932 = Parser$Reply$error$(Parser$Error$combine$($5931, $5929)); - var $5930 = $5932; - break; - case 'Maybe.none': - var $5933 = Parser$Reply$error$($5929); - var $5930 = $5933; - break; - }; - var $5928 = $5930; - break; - case 'Parser.Reply.value': - var $5934 = self.pst; - var self = $5934; - switch (self._) { - case 'Parser.State.new': - var $5936 = self.err; - var $5937 = self.nam; - var $5938 = self.ini; - var $5939 = self.idx; - var $5940 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($5927, $5936), $5937, $5938, $5939, $5940); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $5942 = self.err; - var _reply$21 = Kind$Parser$name1$(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $5944 = self.err; - var self = $5942; - switch (self._) { - case 'Maybe.some': - var $5946 = self.value; - var $5947 = Parser$Reply$error$(Parser$Error$combine$($5946, $5944)); - var $5945 = $5947; - break; - case 'Maybe.none': - var $5948 = Parser$Reply$error$($5944); - var $5945 = $5948; - break; - }; - var $5943 = $5945; - break; - case 'Parser.Reply.value': - var $5949 = self.pst; - var $5950 = self.val; - var self = $5949; - switch (self._) { - case 'Parser.State.new': - var $5952 = self.err; - var $5953 = self.nam; - var $5954 = self.ini; - var $5955 = self.idx; - var $5956 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($5942, $5952), $5953, $5954, $5955, $5956); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $5958 = self.err; - var _reply$35 = Kind$Parser$text$(":", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $5960 = self.err; - var self = $5958; - switch (self._) { - case 'Maybe.some': - var $5962 = self.value; - var $5963 = Parser$Reply$error$(Parser$Error$combine$($5962, $5960)); - var $5961 = $5963; - break; - case 'Maybe.none': - var $5964 = Parser$Reply$error$($5960); - var $5961 = $5964; - break; - }; - var $5959 = $5961; - break; - case 'Parser.Reply.value': - var $5965 = self.pst; - var self = $5965; - switch (self._) { - case 'Parser.State.new': - var $5967 = self.err; - var $5968 = self.nam; - var $5969 = self.ini; - var $5970 = self.idx; - var $5971 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($5958, $5967), $5968, $5969, $5970, $5971); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $5973 = self.err; - var _reply$49 = Kind$Parser$term(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $5975 = self.err; - var self = $5973; - switch (self._) { - case 'Maybe.some': - var $5977 = self.value; - var $5978 = Parser$Reply$error$(Parser$Error$combine$($5977, $5975)); - var $5976 = $5978; - break; - case 'Maybe.none': - var $5979 = Parser$Reply$error$($5975); - var $5976 = $5979; - break; - }; - var $5974 = $5976; - break; - case 'Parser.Reply.value': - var $5980 = self.pst; - var $5981 = self.val; - var self = $5980; - switch (self._) { - case 'Parser.State.new': - var $5983 = self.err; - var $5984 = self.nam; - var $5985 = self.ini; - var $5986 = self.idx; - var $5987 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($5973, $5983), $5984, $5985, $5986, $5987); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $5989 = self.err; - var _reply$63 = Kind$Parser$text$("]", _reply$pst$57); - var self = _reply$63; - switch (self._) { - case 'Parser.Reply.error': - var $5991 = self.err; - var self = $5989; - switch (self._) { - case 'Maybe.some': - var $5993 = self.value; - var $5994 = Parser$Reply$error$(Parser$Error$combine$($5993, $5991)); - var $5992 = $5994; - break; - case 'Maybe.none': - var $5995 = Parser$Reply$error$($5991); - var $5992 = $5995; - break; - }; - var $5990 = $5992; - break; - case 'Parser.Reply.value': - var $5996 = self.pst; - var self = $5996; - switch (self._) { - case 'Parser.State.new': - var $5998 = self.err; - var $5999 = self.nam; - var $6000 = self.ini; - var $6001 = self.idx; - var $6002 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($5989, $5998), $5999, $6000, $6001, $6002); - var self = _reply$pst$71; - switch (self._) { - case 'Parser.State.new': - var $6004 = self.err; - var _reply$77 = Kind$Parser$term(_reply$pst$71); - var self = _reply$77; - switch (self._) { - case 'Parser.Reply.error': - var $6006 = self.err; - var self = $6004; - switch (self._) { - case 'Maybe.some': - var $6008 = self.value; - var $6009 = Parser$Reply$error$(Parser$Error$combine$($6008, $6006)); - var $6007 = $6009; - break; - case 'Maybe.none': - var $6010 = Parser$Reply$error$($6006); - var $6007 = $6010; - break; - }; - var $6005 = $6007; - break; - case 'Parser.Reply.value': - var $6011 = self.pst; - var $6012 = self.val; - var self = $6011; - switch (self._) { - case 'Parser.State.new': - var $6014 = self.err; - var $6015 = self.nam; - var $6016 = self.ini; - var $6017 = self.idx; - var $6018 = self.str; - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($6004, $6014), $6015, $6016, $6017, $6018); - var _term$86 = Kind$Term$ref$("Sigma"); - var _term$87 = Kind$Term$app$(_term$86, $5981); - var _term$88 = Kind$Term$app$(_term$87, Kind$Term$lam$($5950, (_x$88 => { - var $6020 = $6012; - return $6020; - }))); - var $6019 = Parser$Reply$value$(_reply$pst$85, _term$88); - var $6013 = $6019; - break; - }; - var $6005 = $6013; - break; - }; - var $6003 = $6005; - break; - }; - var $5997 = $6003; - break; - }; - var $5990 = $5997; - break; - }; - var $5988 = $5990; - break; - }; - var $5982 = $5988; - break; - }; - var $5974 = $5982; - break; - }; - var $5972 = $5974; - break; - }; - var $5966 = $5972; - break; - }; - var $5959 = $5966; - break; - }; - var $5957 = $5959; - break; - }; - var $5951 = $5957; - break; - }; - var $5943 = $5951; - break; - }; - var $5941 = $5943; - break; - }; - var $5935 = $5941; - break; - }; - var $5928 = $5935; - break; - }; - var $5926 = $5928; - break; - }; - return $5926; - })); - const Kind$Parser$some = Kind$Parser$block("some")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6022 = self.err; - var _reply$7 = Kind$Parser$text$("some(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6024 = self.err; - var self = $6022; - switch (self._) { - case 'Maybe.some': - var $6026 = self.value; - var $6027 = Parser$Reply$error$(Parser$Error$combine$($6026, $6024)); - var $6025 = $6027; - break; - case 'Maybe.none': - var $6028 = Parser$Reply$error$($6024); - var $6025 = $6028; - break; - }; - var $6023 = $6025; - break; - case 'Parser.Reply.value': - var $6029 = self.pst; - var self = $6029; - switch (self._) { - case 'Parser.State.new': - var $6031 = self.err; - var $6032 = self.nam; - var $6033 = self.ini; - var $6034 = self.idx; - var $6035 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6022, $6031), $6032, $6033, $6034, $6035); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $6037 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $6039 = self.err; - var self = $6037; - switch (self._) { - case 'Maybe.some': - var $6041 = self.value; - var $6042 = Parser$Reply$error$(Parser$Error$combine$($6041, $6039)); - var $6040 = $6042; - break; - case 'Maybe.none': - var $6043 = Parser$Reply$error$($6039); - var $6040 = $6043; - break; - }; - var $6038 = $6040; - break; - case 'Parser.Reply.value': - var $6044 = self.pst; - var $6045 = self.val; - var self = $6044; - switch (self._) { - case 'Parser.State.new': - var $6047 = self.err; - var $6048 = self.nam; - var $6049 = self.ini; - var $6050 = self.idx; - var $6051 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6037, $6047), $6048, $6049, $6050, $6051); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $6053 = self.err; - var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $6055 = self.err; - var self = $6053; - switch (self._) { - case 'Maybe.some': - var $6057 = self.value; - var $6058 = Parser$Reply$error$(Parser$Error$combine$($6057, $6055)); - var $6056 = $6058; - break; - case 'Maybe.none': - var $6059 = Parser$Reply$error$($6055); - var $6056 = $6059; - break; - }; - var $6054 = $6056; - break; - case 'Parser.Reply.value': - var $6060 = self.pst; - var self = $6060; - switch (self._) { - case 'Parser.State.new': - var $6062 = self.err; - var $6063 = self.nam; - var $6064 = self.ini; - var $6065 = self.idx; - var $6066 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6053, $6062), $6063, $6064, $6065, $6066); - var _term$44 = Kind$Term$ref$("Maybe.some"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$hol$(Bits$e)); - var _term$46 = Kind$Term$app$(_term$45, $6045); - var $6067 = Parser$Reply$value$(_reply$pst$43, _term$46); - var $6061 = $6067; - break; - }; - var $6054 = $6061; - break; - }; - var $6052 = $6054; - break; - }; - var $6046 = $6052; - break; - }; - var $6038 = $6046; - break; - }; - var $6036 = $6038; - break; - }; - var $6030 = $6036; - break; - }; - var $6023 = $6030; - break; - }; - var $6021 = $6023; - break; - }; - return $6021; - })); - const Kind$Parser$not = Kind$Parser$block("not")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6069 = self.err; - var _reply$7 = Kind$Parser$text$("not(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6071 = self.err; - var self = $6069; - switch (self._) { - case 'Maybe.some': - var $6073 = self.value; - var $6074 = Parser$Reply$error$(Parser$Error$combine$($6073, $6071)); - var $6072 = $6074; - break; - case 'Maybe.none': - var $6075 = Parser$Reply$error$($6071); - var $6072 = $6075; - break; - }; - var $6070 = $6072; - break; - case 'Parser.Reply.value': - var $6076 = self.pst; - var self = $6076; - switch (self._) { - case 'Parser.State.new': - var $6078 = self.err; - var $6079 = self.nam; - var $6080 = self.ini; - var $6081 = self.idx; - var $6082 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6069, $6078), $6079, $6080, $6081, $6082); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $6084 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $6086 = self.err; - var self = $6084; - switch (self._) { - case 'Maybe.some': - var $6088 = self.value; - var $6089 = Parser$Reply$error$(Parser$Error$combine$($6088, $6086)); - var $6087 = $6089; - break; - case 'Maybe.none': - var $6090 = Parser$Reply$error$($6086); - var $6087 = $6090; - break; - }; - var $6085 = $6087; - break; - case 'Parser.Reply.value': - var $6091 = self.pst; - var $6092 = self.val; - var self = $6091; - switch (self._) { - case 'Parser.State.new': - var $6094 = self.err; - var $6095 = self.nam; - var $6096 = self.ini; - var $6097 = self.idx; - var $6098 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6084, $6094), $6095, $6096, $6097, $6098); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $6100 = self.err; - var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $6102 = self.err; - var self = $6100; - switch (self._) { - case 'Maybe.some': - var $6104 = self.value; - var $6105 = Parser$Reply$error$(Parser$Error$combine$($6104, $6102)); - var $6103 = $6105; - break; - case 'Maybe.none': - var $6106 = Parser$Reply$error$($6102); - var $6103 = $6106; - break; - }; - var $6101 = $6103; - break; - case 'Parser.Reply.value': - var $6107 = self.pst; - var self = $6107; - switch (self._) { - case 'Parser.State.new': - var $6109 = self.err; - var $6110 = self.nam; - var $6111 = self.ini; - var $6112 = self.idx; - var $6113 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6100, $6109), $6110, $6111, $6112, $6113); - var _term$44 = Kind$Term$ref$("Bool.not"); - var _term$45 = Kind$Term$app$(_term$44, $6092); - var $6114 = Parser$Reply$value$(_reply$pst$43, _term$45); - var $6108 = $6114; - break; - }; - var $6101 = $6108; - break; - }; - var $6099 = $6101; - break; - }; - var $6093 = $6099; - break; - }; - var $6085 = $6093; - break; - }; - var $6083 = $6085; - break; - }; - var $6077 = $6083; - break; - }; - var $6070 = $6077; - break; - }; - var $6068 = $6070; - break; - }; - return $6068; - })); - const Kind$Parser$left = Kind$Parser$block("left")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6116 = self.err; - var _reply$7 = Kind$Parser$text$("left(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6118 = self.err; - var self = $6116; - switch (self._) { - case 'Maybe.some': - var $6120 = self.value; - var $6121 = Parser$Reply$error$(Parser$Error$combine$($6120, $6118)); - var $6119 = $6121; - break; - case 'Maybe.none': - var $6122 = Parser$Reply$error$($6118); - var $6119 = $6122; - break; - }; - var $6117 = $6119; - break; - case 'Parser.Reply.value': - var $6123 = self.pst; - var self = $6123; - switch (self._) { - case 'Parser.State.new': - var $6125 = self.err; - var $6126 = self.nam; - var $6127 = self.ini; - var $6128 = self.idx; - var $6129 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6116, $6125), $6126, $6127, $6128, $6129); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $6131 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $6133 = self.err; - var self = $6131; - switch (self._) { - case 'Maybe.some': - var $6135 = self.value; - var $6136 = Parser$Reply$error$(Parser$Error$combine$($6135, $6133)); - var $6134 = $6136; - break; - case 'Maybe.none': - var $6137 = Parser$Reply$error$($6133); - var $6134 = $6137; - break; - }; - var $6132 = $6134; - break; - case 'Parser.Reply.value': - var $6138 = self.pst; - var $6139 = self.val; - var self = $6138; - switch (self._) { - case 'Parser.State.new': - var $6141 = self.err; - var $6142 = self.nam; - var $6143 = self.ini; - var $6144 = self.idx; - var $6145 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6131, $6141), $6142, $6143, $6144, $6145); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $6147 = self.err; - var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $6149 = self.err; - var self = $6147; - switch (self._) { - case 'Maybe.some': - var $6151 = self.value; - var $6152 = Parser$Reply$error$(Parser$Error$combine$($6151, $6149)); - var $6150 = $6152; - break; - case 'Maybe.none': - var $6153 = Parser$Reply$error$($6149); - var $6150 = $6153; - break; - }; - var $6148 = $6150; - break; - case 'Parser.Reply.value': - var $6154 = self.pst; - var self = $6154; - switch (self._) { - case 'Parser.State.new': - var $6156 = self.err; - var $6157 = self.nam; - var $6158 = self.ini; - var $6159 = self.idx; - var $6160 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6147, $6156), $6157, $6158, $6159, $6160); - var _term$44 = Kind$Term$ref$("Either.left"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$hol$(Bits$e)); - var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); - var _term$47 = Kind$Term$app$(_term$46, $6139); - var $6161 = Parser$Reply$value$(_reply$pst$43, _term$47); - var $6155 = $6161; - break; - }; - var $6148 = $6155; - break; - }; - var $6146 = $6148; - break; - }; - var $6140 = $6146; - break; - }; - var $6132 = $6140; - break; - }; - var $6130 = $6132; - break; - }; - var $6124 = $6130; - break; - }; - var $6117 = $6124; - break; - }; - var $6115 = $6117; - break; - }; - return $6115; - })); - const Kind$Parser$right = Kind$Parser$block("right")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6163 = self.err; - var _reply$7 = Kind$Parser$text$("right(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6165 = self.err; - var self = $6163; - switch (self._) { - case 'Maybe.some': - var $6167 = self.value; - var $6168 = Parser$Reply$error$(Parser$Error$combine$($6167, $6165)); - var $6166 = $6168; - break; - case 'Maybe.none': - var $6169 = Parser$Reply$error$($6165); - var $6166 = $6169; - break; - }; - var $6164 = $6166; - break; - case 'Parser.Reply.value': - var $6170 = self.pst; - var self = $6170; - switch (self._) { - case 'Parser.State.new': - var $6172 = self.err; - var $6173 = self.nam; - var $6174 = self.ini; - var $6175 = self.idx; - var $6176 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6163, $6172), $6173, $6174, $6175, $6176); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $6178 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $6180 = self.err; - var self = $6178; - switch (self._) { - case 'Maybe.some': - var $6182 = self.value; - var $6183 = Parser$Reply$error$(Parser$Error$combine$($6182, $6180)); - var $6181 = $6183; - break; - case 'Maybe.none': - var $6184 = Parser$Reply$error$($6180); - var $6181 = $6184; - break; - }; - var $6179 = $6181; - break; - case 'Parser.Reply.value': - var $6185 = self.pst; - var $6186 = self.val; - var self = $6185; - switch (self._) { - case 'Parser.State.new': - var $6188 = self.err; - var $6189 = self.nam; - var $6190 = self.ini; - var $6191 = self.idx; - var $6192 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6178, $6188), $6189, $6190, $6191, $6192); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $6194 = self.err; - var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $6196 = self.err; - var self = $6194; - switch (self._) { - case 'Maybe.some': - var $6198 = self.value; - var $6199 = Parser$Reply$error$(Parser$Error$combine$($6198, $6196)); - var $6197 = $6199; - break; - case 'Maybe.none': - var $6200 = Parser$Reply$error$($6196); - var $6197 = $6200; - break; - }; - var $6195 = $6197; - break; - case 'Parser.Reply.value': - var $6201 = self.pst; - var self = $6201; - switch (self._) { - case 'Parser.State.new': - var $6203 = self.err; - var $6204 = self.nam; - var $6205 = self.ini; - var $6206 = self.idx; - var $6207 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6194, $6203), $6204, $6205, $6206, $6207); - var _term$44 = Kind$Term$ref$("Either.right"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$hol$(Bits$e)); - var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); - var _term$47 = Kind$Term$app$(_term$46, $6186); - var $6208 = Parser$Reply$value$(_reply$pst$43, _term$47); - var $6202 = $6208; - break; - }; - var $6195 = $6202; - break; - }; - var $6193 = $6195; - break; - }; - var $6187 = $6193; - break; - }; - var $6179 = $6187; - break; - }; - var $6177 = $6179; - break; - }; - var $6171 = $6177; - break; - }; - var $6164 = $6171; - break; - }; - var $6162 = $6164; - break; - }; - return $6162; - })); - const Kind$Parser$apply = Kind$Parser$block("apply")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6210 = self.err; - var _reply$7 = Kind$Parser$text$("apply(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6212 = self.err; - var self = $6210; - switch (self._) { - case 'Maybe.some': - var $6214 = self.value; - var $6215 = Parser$Reply$error$(Parser$Error$combine$($6214, $6212)); - var $6213 = $6215; - break; - case 'Maybe.none': - var $6216 = Parser$Reply$error$($6212); - var $6213 = $6216; - break; - }; - var $6211 = $6213; - break; - case 'Parser.Reply.value': - var $6217 = self.pst; - var self = $6217; - switch (self._) { - case 'Parser.State.new': - var $6219 = self.err; - var $6220 = self.nam; - var $6221 = self.ini; - var $6222 = self.idx; - var $6223 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6210, $6219), $6220, $6221, $6222, $6223); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $6225 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $6227 = self.err; - var self = $6225; - switch (self._) { - case 'Maybe.some': - var $6229 = self.value; - var $6230 = Parser$Reply$error$(Parser$Error$combine$($6229, $6227)); - var $6228 = $6230; - break; - case 'Maybe.none': - var $6231 = Parser$Reply$error$($6227); - var $6228 = $6231; - break; - }; - var $6226 = $6228; - break; - case 'Parser.Reply.value': - var $6232 = self.pst; - var $6233 = self.val; - var self = $6232; - switch (self._) { - case 'Parser.State.new': - var $6235 = self.err; - var $6236 = self.nam; - var $6237 = self.ini; - var $6238 = self.idx; - var $6239 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6225, $6235), $6236, $6237, $6238, $6239); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $6241 = self.err; - var _reply$35 = Kind$Parser$text$(",", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $6243 = self.err; - var self = $6241; - switch (self._) { - case 'Maybe.some': - var $6245 = self.value; - var $6246 = Parser$Reply$error$(Parser$Error$combine$($6245, $6243)); - var $6244 = $6246; - break; - case 'Maybe.none': - var $6247 = Parser$Reply$error$($6243); - var $6244 = $6247; - break; - }; - var $6242 = $6244; - break; - case 'Parser.Reply.value': - var $6248 = self.pst; - var self = $6248; - switch (self._) { - case 'Parser.State.new': - var $6250 = self.err; - var $6251 = self.nam; - var $6252 = self.ini; - var $6253 = self.idx; - var $6254 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6241, $6250), $6251, $6252, $6253, $6254); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $6256 = self.err; - var _reply$49 = Kind$Parser$term(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $6258 = self.err; - var self = $6256; - switch (self._) { - case 'Maybe.some': - var $6260 = self.value; - var $6261 = Parser$Reply$error$(Parser$Error$combine$($6260, $6258)); - var $6259 = $6261; - break; - case 'Maybe.none': - var $6262 = Parser$Reply$error$($6258); - var $6259 = $6262; - break; - }; - var $6257 = $6259; - break; - case 'Parser.Reply.value': - var $6263 = self.pst; - var $6264 = self.val; - var self = $6263; - switch (self._) { - case 'Parser.State.new': - var $6266 = self.err; - var $6267 = self.nam; - var $6268 = self.ini; - var $6269 = self.idx; - var $6270 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($6256, $6266), $6267, $6268, $6269, $6270); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $6272 = self.err; - var _reply$63 = Kind$Parser$text$(")", _reply$pst$57); - var self = _reply$63; - switch (self._) { - case 'Parser.Reply.error': - var $6274 = self.err; - var self = $6272; - switch (self._) { - case 'Maybe.some': - var $6276 = self.value; - var $6277 = Parser$Reply$error$(Parser$Error$combine$($6276, $6274)); - var $6275 = $6277; - break; - case 'Maybe.none': - var $6278 = Parser$Reply$error$($6274); - var $6275 = $6278; - break; - }; - var $6273 = $6275; - break; - case 'Parser.Reply.value': - var $6279 = self.pst; - var self = $6279; - switch (self._) { - case 'Parser.State.new': - var $6281 = self.err; - var $6282 = self.nam; - var $6283 = self.ini; - var $6284 = self.idx; - var $6285 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($6272, $6281), $6282, $6283, $6284, $6285); - var _term$72 = Kind$Term$ref$("Equal.apply"); - var _term$73 = Kind$Term$app$(_term$72, Kind$Term$hol$(Bits$e)); - var _term$74 = Kind$Term$app$(_term$73, Kind$Term$hol$(Bits$e)); - var _term$75 = Kind$Term$app$(_term$74, Kind$Term$hol$(Bits$e)); - var _term$76 = Kind$Term$app$(_term$75, Kind$Term$hol$(Bits$e)); - var _term$77 = Kind$Term$app$(_term$76, $6233); - var _term$78 = Kind$Term$app$(_term$77, $6264); - var $6286 = Parser$Reply$value$(_reply$pst$71, _term$78); - var $6280 = $6286; - break; - }; - var $6273 = $6280; - break; - }; - var $6271 = $6273; - break; - }; - var $6265 = $6271; - break; - }; - var $6257 = $6265; - break; - }; - var $6255 = $6257; - break; - }; - var $6249 = $6255; - break; - }; - var $6242 = $6249; - break; - }; - var $6240 = $6242; - break; - }; - var $6234 = $6240; - break; - }; - var $6226 = $6234; - break; - }; - var $6224 = $6226; - break; - }; - var $6218 = $6224; - break; - }; - var $6211 = $6218; - break; - }; - var $6209 = $6211; - break; - }; - return $6209; - })); - const Kind$Parser$chain = Kind$Parser$block("chain")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6288 = self.err; - var _reply$7 = Kind$Parser$text$("chain(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6290 = self.err; - var self = $6288; - switch (self._) { - case 'Maybe.some': - var $6292 = self.value; - var $6293 = Parser$Reply$error$(Parser$Error$combine$($6292, $6290)); - var $6291 = $6293; - break; - case 'Maybe.none': - var $6294 = Parser$Reply$error$($6290); - var $6291 = $6294; - break; - }; - var $6289 = $6291; - break; - case 'Parser.Reply.value': - var $6295 = self.pst; - var self = $6295; - switch (self._) { - case 'Parser.State.new': - var $6297 = self.err; - var $6298 = self.nam; - var $6299 = self.ini; - var $6300 = self.idx; - var $6301 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6288, $6297), $6298, $6299, $6300, $6301); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $6303 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $6305 = self.err; - var self = $6303; - switch (self._) { - case 'Maybe.some': - var $6307 = self.value; - var $6308 = Parser$Reply$error$(Parser$Error$combine$($6307, $6305)); - var $6306 = $6308; - break; - case 'Maybe.none': - var $6309 = Parser$Reply$error$($6305); - var $6306 = $6309; - break; - }; - var $6304 = $6306; - break; - case 'Parser.Reply.value': - var $6310 = self.pst; - var $6311 = self.val; - var self = $6310; - switch (self._) { - case 'Parser.State.new': - var $6313 = self.err; - var $6314 = self.nam; - var $6315 = self.ini; - var $6316 = self.idx; - var $6317 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6303, $6313), $6314, $6315, $6316, $6317); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $6319 = self.err; - var _reply$35 = Kind$Parser$text$(",", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $6321 = self.err; - var self = $6319; - switch (self._) { - case 'Maybe.some': - var $6323 = self.value; - var $6324 = Parser$Reply$error$(Parser$Error$combine$($6323, $6321)); - var $6322 = $6324; - break; - case 'Maybe.none': - var $6325 = Parser$Reply$error$($6321); - var $6322 = $6325; - break; - }; - var $6320 = $6322; - break; - case 'Parser.Reply.value': - var $6326 = self.pst; - var self = $6326; - switch (self._) { - case 'Parser.State.new': - var $6328 = self.err; - var $6329 = self.nam; - var $6330 = self.ini; - var $6331 = self.idx; - var $6332 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6319, $6328), $6329, $6330, $6331, $6332); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $6334 = self.err; - var _reply$49 = Kind$Parser$term(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $6336 = self.err; - var self = $6334; - switch (self._) { - case 'Maybe.some': - var $6338 = self.value; - var $6339 = Parser$Reply$error$(Parser$Error$combine$($6338, $6336)); - var $6337 = $6339; - break; - case 'Maybe.none': - var $6340 = Parser$Reply$error$($6336); - var $6337 = $6340; - break; - }; - var $6335 = $6337; - break; - case 'Parser.Reply.value': - var $6341 = self.pst; - var $6342 = self.val; - var self = $6341; - switch (self._) { - case 'Parser.State.new': - var $6344 = self.err; - var $6345 = self.nam; - var $6346 = self.ini; - var $6347 = self.idx; - var $6348 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($6334, $6344), $6345, $6346, $6347, $6348); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $6350 = self.err; - var _reply$63 = Kind$Parser$text$(")", _reply$pst$57); - var self = _reply$63; - switch (self._) { - case 'Parser.Reply.error': - var $6352 = self.err; - var self = $6350; - switch (self._) { - case 'Maybe.some': - var $6354 = self.value; - var $6355 = Parser$Reply$error$(Parser$Error$combine$($6354, $6352)); - var $6353 = $6355; - break; - case 'Maybe.none': - var $6356 = Parser$Reply$error$($6352); - var $6353 = $6356; - break; - }; - var $6351 = $6353; - break; - case 'Parser.Reply.value': - var $6357 = self.pst; - var self = $6357; - switch (self._) { - case 'Parser.State.new': - var $6359 = self.err; - var $6360 = self.nam; - var $6361 = self.ini; - var $6362 = self.idx; - var $6363 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($6350, $6359), $6360, $6361, $6362, $6363); - var _term$72 = Kind$Term$ref$("Equal.chain"); - var _term$73 = Kind$Term$app$(_term$72, Kind$Term$hol$(Bits$e)); - var _term$74 = Kind$Term$app$(_term$73, Kind$Term$hol$(Bits$e)); - var _term$75 = Kind$Term$app$(_term$74, Kind$Term$hol$(Bits$e)); - var _term$76 = Kind$Term$app$(_term$75, Kind$Term$hol$(Bits$e)); - var _term$77 = Kind$Term$app$(_term$76, $6311); - var _term$78 = Kind$Term$app$(_term$77, $6342); - var $6364 = Parser$Reply$value$(_reply$pst$71, _term$78); - var $6358 = $6364; - break; - }; - var $6351 = $6358; - break; - }; - var $6349 = $6351; - break; - }; - var $6343 = $6349; - break; - }; - var $6335 = $6343; - break; - }; - var $6333 = $6335; - break; - }; - var $6327 = $6333; - break; - }; - var $6320 = $6327; - break; - }; - var $6318 = $6320; - break; - }; - var $6312 = $6318; - break; - }; - var $6304 = $6312; - break; - }; - var $6302 = $6304; - break; - }; - var $6296 = $6302; - break; - }; - var $6289 = $6296; - break; - }; - var $6287 = $6289; - break; - }; - return $6287; - })); - const Kind$Parser$mirror = Kind$Parser$block("mirror")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6366 = self.err; - var _reply$7 = Kind$Parser$text$("mirror(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6368 = self.err; - var self = $6366; - switch (self._) { - case 'Maybe.some': - var $6370 = self.value; - var $6371 = Parser$Reply$error$(Parser$Error$combine$($6370, $6368)); - var $6369 = $6371; - break; - case 'Maybe.none': - var $6372 = Parser$Reply$error$($6368); - var $6369 = $6372; - break; - }; - var $6367 = $6369; - break; - case 'Parser.Reply.value': - var $6373 = self.pst; - var self = $6373; - switch (self._) { - case 'Parser.State.new': - var $6375 = self.err; - var $6376 = self.nam; - var $6377 = self.ini; - var $6378 = self.idx; - var $6379 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6366, $6375), $6376, $6377, $6378, $6379); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $6381 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $6383 = self.err; - var self = $6381; - switch (self._) { - case 'Maybe.some': - var $6385 = self.value; - var $6386 = Parser$Reply$error$(Parser$Error$combine$($6385, $6383)); - var $6384 = $6386; - break; - case 'Maybe.none': - var $6387 = Parser$Reply$error$($6383); - var $6384 = $6387; - break; - }; - var $6382 = $6384; - break; - case 'Parser.Reply.value': - var $6388 = self.pst; - var $6389 = self.val; - var self = $6388; - switch (self._) { - case 'Parser.State.new': - var $6391 = self.err; - var $6392 = self.nam; - var $6393 = self.ini; - var $6394 = self.idx; - var $6395 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6381, $6391), $6392, $6393, $6394, $6395); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $6397 = self.err; - var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $6399 = self.err; - var self = $6397; - switch (self._) { - case 'Maybe.some': - var $6401 = self.value; - var $6402 = Parser$Reply$error$(Parser$Error$combine$($6401, $6399)); - var $6400 = $6402; - break; - case 'Maybe.none': - var $6403 = Parser$Reply$error$($6399); - var $6400 = $6403; - break; - }; - var $6398 = $6400; - break; - case 'Parser.Reply.value': - var $6404 = self.pst; - var self = $6404; - switch (self._) { - case 'Parser.State.new': - var $6406 = self.err; - var $6407 = self.nam; - var $6408 = self.ini; - var $6409 = self.idx; - var $6410 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6397, $6406), $6407, $6408, $6409, $6410); - var _term$44 = Kind$Term$ref$("Equal.mirror"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$hol$(Bits$e)); - var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); - var _term$47 = Kind$Term$app$(_term$46, Kind$Term$hol$(Bits$e)); - var _term$48 = Kind$Term$app$(_term$47, $6389); - var $6411 = Parser$Reply$value$(_reply$pst$43, _term$48); - var $6405 = $6411; - break; - }; - var $6398 = $6405; - break; - }; - var $6396 = $6398; - break; - }; - var $6390 = $6396; - break; - }; - var $6382 = $6390; - break; - }; - var $6380 = $6382; - break; - }; - var $6374 = $6380; - break; - }; - var $6367 = $6374; - break; - }; - var $6365 = $6367; - break; - }; - return $6365; - })); - - function Kind$Parser$comprehension$and_all$(_a$1) { - var self = _a$1; - switch (self._) { - case 'List.cons': - var $6413 = self.head; - var $6414 = self.tail; - var _and$4 = Kind$Term$ref$("Bool.and"); - var _and$5 = Kind$Term$app$(_and$4, $6413); - var _and$6 = Kind$Term$app$(_and$5, Kind$Parser$comprehension$and_all$($6414)); - var $6415 = _and$6; - var $6412 = $6415; - break; - case 'List.nil': - var $6416 = Kind$Term$ref$("Bool.true"); - var $6412 = $6416; - break; - }; - return $6412; - }; - const Kind$Parser$comprehension$and_all = x0 => Kind$Parser$comprehension$and_all$(x0); - - function Kind$Parser$comprehension$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6418 = self.err; - var _reply$7 = Kind$Parser$text$("[", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6420 = self.err; - var self = $6418; - switch (self._) { - case 'Maybe.some': - var $6422 = self.value; - var $6423 = Parser$Reply$error$(Parser$Error$combine$($6422, $6420)); - var $6421 = $6423; - break; - case 'Maybe.none': - var $6424 = Parser$Reply$error$($6420); - var $6421 = $6424; - break; - }; - var $6419 = $6421; - break; - case 'Parser.Reply.value': - var $6425 = self.pst; - var self = $6425; - switch (self._) { - case 'Parser.State.new': - var $6427 = self.err; - var $6428 = self.nam; - var $6429 = self.ini; - var $6430 = self.idx; - var $6431 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6418, $6427), $6428, $6429, $6430, $6431); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $6433 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $6435 = self.err; - var self = $6433; - switch (self._) { - case 'Maybe.some': - var $6437 = self.value; - var $6438 = Parser$Reply$error$(Parser$Error$combine$($6437, $6435)); - var $6436 = $6438; - break; - case 'Maybe.none': - var $6439 = Parser$Reply$error$($6435); - var $6436 = $6439; - break; - }; - var $6434 = $6436; - break; - case 'Parser.Reply.value': - var $6440 = self.pst; - var $6441 = self.val; - var self = $6440; - switch (self._) { - case 'Parser.State.new': - var $6443 = self.err; - var $6444 = self.nam; - var $6445 = self.ini; - var $6446 = self.idx; - var $6447 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6433, $6443), $6444, $6445, $6446, $6447); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $6449 = self.err; - var _reply$35 = Kind$Parser$text$("for", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $6451 = self.err; - var self = $6449; - switch (self._) { - case 'Maybe.some': - var $6453 = self.value; - var $6454 = Parser$Reply$error$(Parser$Error$combine$($6453, $6451)); - var $6452 = $6454; - break; - case 'Maybe.none': - var $6455 = Parser$Reply$error$($6451); - var $6452 = $6455; - break; - }; - var $6450 = $6452; - break; - case 'Parser.Reply.value': - var $6456 = self.pst; - var self = $6456; - switch (self._) { - case 'Parser.State.new': - var $6458 = self.err; - var $6459 = self.nam; - var $6460 = self.ini; - var $6461 = self.idx; - var $6462 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6449, $6458), $6459, $6460, $6461, $6462); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $6464 = self.err; - var _reply$49 = Kind$Parser$name1$(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $6466 = self.err; - var self = $6464; - switch (self._) { - case 'Maybe.some': - var $6468 = self.value; - var $6469 = Parser$Reply$error$(Parser$Error$combine$($6468, $6466)); - var $6467 = $6469; - break; - case 'Maybe.none': - var $6470 = Parser$Reply$error$($6466); - var $6467 = $6470; - break; - }; - var $6465 = $6467; - break; - case 'Parser.Reply.value': - var $6471 = self.pst; - var $6472 = self.val; - var self = $6471; - switch (self._) { - case 'Parser.State.new': - var $6474 = self.err; - var $6475 = self.nam; - var $6476 = self.ini; - var $6477 = self.idx; - var $6478 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($6464, $6474), $6475, $6476, $6477, $6478); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $6480 = self.err; - var _reply$63 = Kind$Parser$text$("in", _reply$pst$57); - var self = _reply$63; - switch (self._) { - case 'Parser.Reply.error': - var $6482 = self.err; - var self = $6480; - switch (self._) { - case 'Maybe.some': - var $6484 = self.value; - var $6485 = Parser$Reply$error$(Parser$Error$combine$($6484, $6482)); - var $6483 = $6485; - break; - case 'Maybe.none': - var $6486 = Parser$Reply$error$($6482); - var $6483 = $6486; - break; - }; - var $6481 = $6483; - break; - case 'Parser.Reply.value': - var $6487 = self.pst; - var self = $6487; - switch (self._) { - case 'Parser.State.new': - var $6489 = self.err; - var $6490 = self.nam; - var $6491 = self.ini; - var $6492 = self.idx; - var $6493 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($6480, $6489), $6490, $6491, $6492, $6493); - var self = _reply$pst$71; - switch (self._) { - case 'Parser.State.new': - var $6495 = self.err; - var _reply$77 = Kind$Parser$term(_reply$pst$71); - var self = _reply$77; - switch (self._) { - case 'Parser.Reply.error': - var $6497 = self.err; - var self = $6495; - switch (self._) { - case 'Maybe.some': - var $6499 = self.value; - var $6500 = Parser$Reply$error$(Parser$Error$combine$($6499, $6497)); - var $6498 = $6500; - break; - case 'Maybe.none': - var $6501 = Parser$Reply$error$($6497); - var $6498 = $6501; - break; - }; - var $6496 = $6498; - break; - case 'Parser.Reply.value': - var $6502 = self.pst; - var $6503 = self.val; - var self = $6502; - switch (self._) { - case 'Parser.State.new': - var $6505 = self.err; - var $6506 = self.nam; - var $6507 = self.ini; - var $6508 = self.idx; - var $6509 = self.str; - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($6495, $6505), $6506, $6507, $6508, $6509); - var self = _reply$pst$85; - switch (self._) { - case 'Parser.State.new': - var $6511 = self.err; - var _reply$91 = Parser$maybe$(Kind$Parser$text("where"), _reply$pst$85); - var self = _reply$91; - switch (self._) { - case 'Parser.Reply.error': - var $6513 = self.err; - var self = $6511; - switch (self._) { - case 'Maybe.some': - var $6515 = self.value; - var $6516 = Parser$Reply$error$(Parser$Error$combine$($6515, $6513)); - var $6514 = $6516; - break; - case 'Maybe.none': - var $6517 = Parser$Reply$error$($6513); - var $6514 = $6517; - break; - }; - var $6512 = $6514; - break; - case 'Parser.Reply.value': - var $6518 = self.pst; - var self = $6518; - switch (self._) { - case 'Parser.State.new': - var $6520 = self.err; - var $6521 = self.nam; - var $6522 = self.ini; - var $6523 = self.idx; - var $6524 = self.str; - var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($6511, $6520), $6521, $6522, $6523, $6524); - var self = _reply$pst$99; - switch (self._) { - case 'Parser.State.new': - var $6526 = self.err; - var _reply$105 = Parser$until$(Kind$Parser$text("]"), (_pst$105 => { - var self = _pst$105; - switch (self._) { - case 'Parser.State.new': - var $6529 = self.err; - var _reply$111 = Kind$Parser$spaces(_pst$105); - var self = _reply$111; - switch (self._) { - case 'Parser.Reply.error': - var $6531 = self.err; - var self = $6529; - switch (self._) { - case 'Maybe.some': - var $6533 = self.value; - var $6534 = Parser$Reply$error$(Parser$Error$combine$($6533, $6531)); - var $6532 = $6534; - break; - case 'Maybe.none': - var $6535 = Parser$Reply$error$($6531); - var $6532 = $6535; - break; - }; - var $6530 = $6532; - break; - case 'Parser.Reply.value': - var $6536 = self.pst; - var self = $6536; - switch (self._) { - case 'Parser.State.new': - var $6538 = self.err; - var $6539 = self.nam; - var $6540 = self.ini; - var $6541 = self.idx; - var $6542 = self.str; - var _reply$pst$119 = Parser$State$new$(Parser$Error$maybe_combine$($6529, $6538), $6539, $6540, $6541, $6542); - var self = _reply$pst$119; - switch (self._) { - case 'Parser.State.new': - var $6544 = self.err; - var _reply$125 = Kind$Parser$term(_reply$pst$119); - var self = _reply$125; - switch (self._) { - case 'Parser.Reply.error': - var $6546 = self.err; - var self = $6544; - switch (self._) { - case 'Maybe.some': - var $6548 = self.value; - var $6549 = Parser$Reply$error$(Parser$Error$combine$($6548, $6546)); - var $6547 = $6549; - break; - case 'Maybe.none': - var $6550 = Parser$Reply$error$($6546); - var $6547 = $6550; - break; - }; - var $6545 = $6547; - break; - case 'Parser.Reply.value': - var $6551 = self.pst; - var $6552 = self.val; - var self = $6551; - switch (self._) { - case 'Parser.State.new': - var $6554 = self.err; - var $6555 = self.nam; - var $6556 = self.ini; - var $6557 = self.idx; - var $6558 = self.str; - var _reply$pst$133 = Parser$State$new$(Parser$Error$maybe_combine$($6544, $6554), $6555, $6556, $6557, $6558); - var self = _reply$pst$133; - switch (self._) { - case 'Parser.State.new': - var $6560 = self.err; - var _reply$139 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$133); - var self = _reply$139; - switch (self._) { - case 'Parser.Reply.error': - var $6562 = self.err; - var self = $6560; - switch (self._) { - case 'Maybe.some': - var $6564 = self.value; - var $6565 = Parser$Reply$error$(Parser$Error$combine$($6564, $6562)); - var $6563 = $6565; - break; - case 'Maybe.none': - var $6566 = Parser$Reply$error$($6562); - var $6563 = $6566; - break; - }; - var $6561 = $6563; - break; - case 'Parser.Reply.value': - var $6567 = self.pst; - var self = $6567; - switch (self._) { - case 'Parser.State.new': - var $6569 = self.err; - var $6570 = self.nam; - var $6571 = self.ini; - var $6572 = self.idx; - var $6573 = self.str; - var _reply$pst$147 = Parser$State$new$(Parser$Error$maybe_combine$($6560, $6569), $6570, $6571, $6572, $6573); - var $6574 = Parser$Reply$value$(_reply$pst$147, $6552); - var $6568 = $6574; - break; - }; - var $6561 = $6568; - break; - }; - var $6559 = $6561; - break; - }; - var $6553 = $6559; - break; - }; - var $6545 = $6553; - break; - }; - var $6543 = $6545; - break; - }; - var $6537 = $6543; - break; - }; - var $6530 = $6537; - break; - }; - var $6528 = $6530; - break; - }; - return $6528; - }))(_reply$pst$99); - var self = _reply$105; - switch (self._) { - case 'Parser.Reply.error': - var $6575 = self.err; - var self = $6526; - switch (self._) { - case 'Maybe.some': - var $6577 = self.value; - var $6578 = Parser$Reply$error$(Parser$Error$combine$($6577, $6575)); - var $6576 = $6578; - break; - case 'Maybe.none': - var $6579 = Parser$Reply$error$($6575); - var $6576 = $6579; - break; - }; - var $6527 = $6576; - break; - case 'Parser.Reply.value': - var $6580 = self.pst; - var $6581 = self.val; - var self = $6580; - switch (self._) { - case 'Parser.State.new': - var $6583 = self.err; - var $6584 = self.nam; - var $6585 = self.ini; - var $6586 = self.idx; - var $6587 = self.str; - var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($6526, $6583), $6584, $6585, $6586, $6587); - var _and$114 = Kind$Parser$comprehension$and_all$($6581); - var _filter_fun$115 = Kind$Term$ref$("List.filter"); - var _filter_fun$116 = Kind$Term$app$(_filter_fun$115, Kind$Term$hol$(Bits$e)); - var _lamb_filter$117 = Kind$Term$lam$($6472, (_i$117 => { - var $6589 = _and$114; - return $6589; - })); - var _filter_fun$118 = Kind$Term$app$(_filter_fun$116, _lamb_filter$117); - var _filter_fun$119 = Kind$Term$app$(_filter_fun$118, $6503); - var _term$120 = Kind$Term$ref$("List.map"); - var _term$121 = Kind$Term$app$(_term$120, Kind$Term$hol$(Bits$e)); - var _term$122 = Kind$Term$app$(_term$121, Kind$Term$hol$(Bits$e)); - var _lamb$123 = Kind$Term$lam$($6472, (_i$123 => { - var $6590 = $6441; - return $6590; - })); - var _term$124 = Kind$Term$app$(_term$122, _lamb$123); - var _term$125 = Kind$Term$app$(_term$124, _filter_fun$119); - var $6588 = Parser$Reply$value$(_reply$pst$113, _term$125); - var $6582 = $6588; - break; - }; - var $6527 = $6582; - break; - }; - var $6525 = $6527; - break; - }; - var $6519 = $6525; - break; - }; - var $6512 = $6519; - break; - }; - var $6510 = $6512; - break; - }; - var $6504 = $6510; - break; - }; - var $6496 = $6504; - break; - }; - var $6494 = $6496; - break; - }; - var $6488 = $6494; - break; - }; - var $6481 = $6488; - break; - }; - var $6479 = $6481; - break; - }; - var $6473 = $6479; - break; - }; - var $6465 = $6473; - break; - }; - var $6463 = $6465; - break; - }; - var $6457 = $6463; - break; - }; - var $6450 = $6457; - break; - }; - var $6448 = $6450; - break; - }; - var $6442 = $6448; - break; - }; - var $6434 = $6442; - break; - }; - var $6432 = $6434; - break; - }; - var $6426 = $6432; - break; - }; - var $6419 = $6426; - break; - }; - var $6417 = $6419; - break; - }; - return $6417; - }; - const Kind$Parser$comprehension = x0 => Kind$Parser$comprehension$(x0); - - function Kind$Parser$comprehension_range$go$(_typename$1) { - var $6591 = Kind$Parser$block("comprehension_range")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $6593 = self.err; - var _reply$8 = Kind$Parser$text$("[", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $6595 = self.err; - var self = $6593; - switch (self._) { - case 'Maybe.some': - var $6597 = self.value; - var $6598 = Parser$Reply$error$(Parser$Error$combine$($6597, $6595)); - var $6596 = $6598; - break; - case 'Maybe.none': - var $6599 = Parser$Reply$error$($6595); - var $6596 = $6599; - break; - }; - var $6594 = $6596; - break; - case 'Parser.Reply.value': - var $6600 = self.pst; - var self = $6600; - switch (self._) { - case 'Parser.State.new': - var $6602 = self.err; - var $6603 = self.nam; - var $6604 = self.ini; - var $6605 = self.idx; - var $6606 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($6593, $6602), $6603, $6604, $6605, $6606); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $6608 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $6610 = self.err; - var self = $6608; - switch (self._) { - case 'Maybe.some': - var $6612 = self.value; - var $6613 = Parser$Reply$error$(Parser$Error$combine$($6612, $6610)); - var $6611 = $6613; - break; - case 'Maybe.none': - var $6614 = Parser$Reply$error$($6610); - var $6611 = $6614; - break; - }; - var $6609 = $6611; - break; - case 'Parser.Reply.value': - var $6615 = self.pst; - var $6616 = self.val; - var self = $6615; - switch (self._) { - case 'Parser.State.new': - var $6618 = self.err; - var $6619 = self.nam; - var $6620 = self.ini; - var $6621 = self.idx; - var $6622 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($6608, $6618), $6619, $6620, $6621, $6622); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $6624 = self.err; - var _reply$36 = Kind$Parser$text$("to", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $6626 = self.err; - var self = $6624; - switch (self._) { - case 'Maybe.some': - var $6628 = self.value; - var $6629 = Parser$Reply$error$(Parser$Error$combine$($6628, $6626)); - var $6627 = $6629; - break; - case 'Maybe.none': - var $6630 = Parser$Reply$error$($6626); - var $6627 = $6630; - break; - }; - var $6625 = $6627; - break; - case 'Parser.Reply.value': - var $6631 = self.pst; - var self = $6631; - switch (self._) { - case 'Parser.State.new': - var $6633 = self.err; - var $6634 = self.nam; - var $6635 = self.ini; - var $6636 = self.idx; - var $6637 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($6624, $6633), $6634, $6635, $6636, $6637); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $6639 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $6641 = self.err; - var self = $6639; - switch (self._) { - case 'Maybe.some': - var $6643 = self.value; - var $6644 = Parser$Reply$error$(Parser$Error$combine$($6643, $6641)); - var $6642 = $6644; - break; - case 'Maybe.none': - var $6645 = Parser$Reply$error$($6641); - var $6642 = $6645; - break; - }; - var $6640 = $6642; - break; - case 'Parser.Reply.value': - var $6646 = self.pst; - var $6647 = self.val; - var self = $6646; - switch (self._) { - case 'Parser.State.new': - var $6649 = self.err; - var $6650 = self.nam; - var $6651 = self.ini; - var $6652 = self.idx; - var $6653 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($6639, $6649), $6650, $6651, $6652, $6653); - var _list$59 = (_x$59 => { - var _term$60 = Kind$Term$ref$((_x$59 + ".range")); - var _term$61 = Kind$Term$app$(_term$60, $6616); - var _term$62 = Kind$Term$app$(_term$61, $6647); - var $6655 = _term$62; - return $6655; - }); - var self = _typename$1; - switch (self._) { - case 'Maybe.some': - var $6656 = self.value; - var $6657 = (_pst$61 => { - var self = _pst$61; - switch (self._) { - case 'Parser.State.new': - var $6659 = self.err; - var _reply$67 = Kind$Parser$text$(":", _pst$61); - var self = _reply$67; - switch (self._) { - case 'Parser.Reply.error': - var $6661 = self.err; - var self = $6659; - switch (self._) { - case 'Maybe.some': - var $6663 = self.value; - var $6664 = Parser$Reply$error$(Parser$Error$combine$($6663, $6661)); - var $6662 = $6664; - break; - case 'Maybe.none': - var $6665 = Parser$Reply$error$($6661); - var $6662 = $6665; - break; - }; - var $6660 = $6662; - break; - case 'Parser.Reply.value': - var $6666 = self.pst; - var self = $6666; - switch (self._) { - case 'Parser.State.new': - var $6668 = self.err; - var $6669 = self.nam; - var $6670 = self.ini; - var $6671 = self.idx; - var $6672 = self.str; - var _reply$pst$75 = Parser$State$new$(Parser$Error$maybe_combine$($6659, $6668), $6669, $6670, $6671, $6672); - var self = _reply$pst$75; - switch (self._) { - case 'Parser.State.new': - var $6674 = self.err; - var _reply$81 = Kind$Parser$text$($6656, _reply$pst$75); - var self = _reply$81; - switch (self._) { - case 'Parser.Reply.error': - var $6676 = self.err; - var self = $6674; - switch (self._) { - case 'Maybe.some': - var $6678 = self.value; - var $6679 = Parser$Reply$error$(Parser$Error$combine$($6678, $6676)); - var $6677 = $6679; - break; - case 'Maybe.none': - var $6680 = Parser$Reply$error$($6676); - var $6677 = $6680; - break; - }; - var $6675 = $6677; - break; - case 'Parser.Reply.value': - var $6681 = self.pst; - var self = $6681; - switch (self._) { - case 'Parser.State.new': - var $6683 = self.err; - var $6684 = self.nam; - var $6685 = self.ini; - var $6686 = self.idx; - var $6687 = self.str; - var _reply$pst$89 = Parser$State$new$(Parser$Error$maybe_combine$($6674, $6683), $6684, $6685, $6686, $6687); - var self = _reply$pst$89; - switch (self._) { - case 'Parser.State.new': - var $6689 = self.err; - var _reply$95 = Kind$Parser$text$("]", _reply$pst$89); - var self = _reply$95; - switch (self._) { - case 'Parser.Reply.error': - var $6691 = self.err; - var self = $6689; - switch (self._) { - case 'Maybe.some': - var $6693 = self.value; - var $6694 = Parser$Reply$error$(Parser$Error$combine$($6693, $6691)); - var $6692 = $6694; - break; - case 'Maybe.none': - var $6695 = Parser$Reply$error$($6691); - var $6692 = $6695; - break; - }; - var $6690 = $6692; - break; - case 'Parser.Reply.value': - var $6696 = self.pst; - var self = $6696; - switch (self._) { - case 'Parser.State.new': - var $6698 = self.err; - var $6699 = self.nam; - var $6700 = self.ini; - var $6701 = self.idx; - var $6702 = self.str; - var _reply$pst$103 = Parser$State$new$(Parser$Error$maybe_combine$($6689, $6698), $6699, $6700, $6701, $6702); - var $6703 = Parser$Reply$value$(_reply$pst$103, _list$59($6656)); - var $6697 = $6703; - break; - }; - var $6690 = $6697; - break; - }; - var $6688 = $6690; - break; - }; - var $6682 = $6688; - break; - }; - var $6675 = $6682; - break; - }; - var $6673 = $6675; - break; - }; - var $6667 = $6673; - break; - }; - var $6660 = $6667; - break; - }; - var $6658 = $6660; - break; - }; - return $6658; - }); - var $6654 = $6657; - break; - case 'Maybe.none': - var $6704 = (_pst$60 => { - var self = _pst$60; - switch (self._) { - case 'Parser.State.new': - var $6706 = self.err; - var _reply$66 = Parser$maybe$((_pst$66 => { - var self = _pst$66; - switch (self._) { - case 'Parser.State.new': - var $6709 = self.err; - var _reply$72 = Kind$Parser$text$(":", _pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $6711 = self.err; - var self = $6709; - switch (self._) { - case 'Maybe.some': - var $6713 = self.value; - var $6714 = Parser$Reply$error$(Parser$Error$combine$($6713, $6711)); - var $6712 = $6714; - break; - case 'Maybe.none': - var $6715 = Parser$Reply$error$($6711); - var $6712 = $6715; - break; - }; - var $6710 = $6712; - break; - case 'Parser.Reply.value': - var $6716 = self.pst; - var self = $6716; - switch (self._) { - case 'Parser.State.new': - var $6718 = self.err; - var $6719 = self.nam; - var $6720 = self.ini; - var $6721 = self.idx; - var $6722 = self.str; - var _reply$pst$80 = Parser$State$new$(Parser$Error$maybe_combine$($6709, $6718), $6719, $6720, $6721, $6722); - var $6723 = Kind$Parser$text$("Nat", _reply$pst$80); - var $6717 = $6723; - break; - }; - var $6710 = $6717; - break; - }; - var $6708 = $6710; - break; - }; - return $6708; - }), _pst$60); - var self = _reply$66; - switch (self._) { - case 'Parser.Reply.error': - var $6724 = self.err; - var self = $6706; - switch (self._) { - case 'Maybe.some': - var $6726 = self.value; - var $6727 = Parser$Reply$error$(Parser$Error$combine$($6726, $6724)); - var $6725 = $6727; - break; - case 'Maybe.none': - var $6728 = Parser$Reply$error$($6724); - var $6725 = $6728; - break; - }; - var $6707 = $6725; - break; - case 'Parser.Reply.value': - var $6729 = self.pst; - var self = $6729; - switch (self._) { - case 'Parser.State.new': - var $6731 = self.err; - var $6732 = self.nam; - var $6733 = self.ini; - var $6734 = self.idx; - var $6735 = self.str; - var _reply$pst$74 = Parser$State$new$(Parser$Error$maybe_combine$($6706, $6731), $6732, $6733, $6734, $6735); - var self = _reply$pst$74; - switch (self._) { - case 'Parser.State.new': - var $6737 = self.err; - var _reply$80 = Kind$Parser$text$("]", _reply$pst$74); - var self = _reply$80; - switch (self._) { - case 'Parser.Reply.error': - var $6739 = self.err; - var self = $6737; - switch (self._) { - case 'Maybe.some': - var $6741 = self.value; - var $6742 = Parser$Reply$error$(Parser$Error$combine$($6741, $6739)); - var $6740 = $6742; - break; - case 'Maybe.none': - var $6743 = Parser$Reply$error$($6739); - var $6740 = $6743; - break; - }; - var $6738 = $6740; - break; - case 'Parser.Reply.value': - var $6744 = self.pst; - var self = $6744; - switch (self._) { - case 'Parser.State.new': - var $6746 = self.err; - var $6747 = self.nam; - var $6748 = self.ini; - var $6749 = self.idx; - var $6750 = self.str; - var _reply$pst$88 = Parser$State$new$(Parser$Error$maybe_combine$($6737, $6746), $6747, $6748, $6749, $6750); - var $6751 = Parser$Reply$value$(_reply$pst$88, _list$59("Nat")); - var $6745 = $6751; - break; - }; - var $6738 = $6745; - break; - }; - var $6736 = $6738; - break; - }; - var $6730 = $6736; - break; - }; - var $6707 = $6730; - break; - }; - var $6705 = $6707; - break; - }; - return $6705; - }); - var $6654 = $6704; - break; - }; - var $6654 = $6654(_reply$pst$58); - var $6648 = $6654; - break; - }; - var $6640 = $6648; - break; - }; - var $6638 = $6640; - break; - }; - var $6632 = $6638; - break; - }; - var $6625 = $6632; - break; - }; - var $6623 = $6625; - break; - }; - var $6617 = $6623; - break; - }; - var $6609 = $6617; - break; - }; - var $6607 = $6609; - break; - }; - var $6601 = $6607; - break; - }; - var $6594 = $6601; - break; - }; - var $6592 = $6594; - break; - }; - return $6592; - })); - return $6591; - }; - const Kind$Parser$comprehension_range$go = x0 => Kind$Parser$comprehension_range$go$(x0); - const Kind$Parser$comprehension_range = Parser$choice(List$cons$(Kind$Parser$comprehension_range$go$(Maybe$none), List$cons$(Kind$Parser$comprehension_range$go$(Maybe$some$("I32")), List$cons$(Kind$Parser$comprehension_range$go$(Maybe$some$("U32")), List$nil)))); - - function Kind$Name$read$(_str$1) { - var $6752 = _str$1; - return $6752; - }; - const Kind$Name$read = x0 => Kind$Name$read$(x0); - const Kind$Parser$list = Kind$Parser$block("list")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6754 = self.err; - var _reply$7 = Kind$Parser$items$("[", Kind$Parser$term, "]")(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6756 = self.err; - var self = $6754; - switch (self._) { - case 'Maybe.some': - var $6758 = self.value; - var $6759 = Parser$Reply$error$(Parser$Error$combine$($6758, $6756)); - var $6757 = $6759; - break; - case 'Maybe.none': - var $6760 = Parser$Reply$error$($6756); - var $6757 = $6760; - break; - }; - var $6755 = $6757; - break; - case 'Parser.Reply.value': - var $6761 = self.pst; - var $6762 = self.val; - var self = $6761; - switch (self._) { - case 'Parser.State.new': - var $6764 = self.err; - var $6765 = self.nam; - var $6766 = self.ini; - var $6767 = self.idx; - var $6768 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6754, $6764), $6765, $6766, $6767, $6768); - var $6769 = Parser$Reply$value$(_reply$pst$15, List$fold$($6762, Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("List.nil")), Kind$Term$hol$(Bits$e)), (_x$16 => _xs$17 => { - var _term$18 = Kind$Term$ref$(Kind$Name$read$("List.cons")); - var _term$19 = Kind$Term$app$(_term$18, Kind$Term$hol$(Bits$e)); - var _term$20 = Kind$Term$app$(_term$19, _x$16); - var _term$21 = Kind$Term$app$(_term$20, _xs$17); - var $6770 = _term$21; - return $6770; - }))); - var $6763 = $6769; - break; - }; - var $6755 = $6763; - break; - }; - var $6753 = $6755; - break; - }; - return $6753; - })); - const Kind$Parser$map = Kind$Parser$block("map")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6772 = self.err; - var _reply$7 = Kind$Parser$items$("{", (_pst$7 => { - var self = _pst$7; - switch (self._) { - case 'Parser.State.new': - var $6775 = self.err; - var _reply$13 = Kind$Parser$term(_pst$7); - var self = _reply$13; - switch (self._) { - case 'Parser.Reply.error': - var $6777 = self.err; - var self = $6775; - switch (self._) { - case 'Maybe.some': - var $6779 = self.value; - var $6780 = Parser$Reply$error$(Parser$Error$combine$($6779, $6777)); - var $6778 = $6780; - break; - case 'Maybe.none': - var $6781 = Parser$Reply$error$($6777); - var $6778 = $6781; - break; - }; - var $6776 = $6778; - break; - case 'Parser.Reply.value': - var $6782 = self.pst; - var $6783 = self.val; - var self = $6782; - switch (self._) { - case 'Parser.State.new': - var $6785 = self.err; - var $6786 = self.nam; - var $6787 = self.ini; - var $6788 = self.idx; - var $6789 = self.str; - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($6775, $6785), $6786, $6787, $6788, $6789); - var self = _reply$pst$21; + var $2388 = self.err; + var $2389 = self.nam; + var $2390 = self.ini; + var $2391 = self.idx; + var $2392 = self.str; + var $2393 = ((console.log(("FALTANDO " + $2392)), (_$15 => { + var $2394 = ((console.log(("VALUE " + $2389)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2378, $2388), $2389, $2390, $2391, $2392); + var $2395 = ((console.log(("NOME" + $2386)), (_$18 => _pst$19 => { + var self = _pst$19; switch (self._) { case 'Parser.State.new': - var $6791 = self.err; - var _reply$27 = Kind$Parser$text$(":", _reply$pst$21); - var self = _reply$27; - switch (self._) { - case 'Parser.Reply.error': - var $6793 = self.err; - var self = $6791; - switch (self._) { - case 'Maybe.some': - var $6795 = self.value; - var $6796 = Parser$Reply$error$(Parser$Error$combine$($6795, $6793)); - var $6794 = $6796; - break; - case 'Maybe.none': - var $6797 = Parser$Reply$error$($6793); - var $6794 = $6797; - break; - }; - var $6792 = $6794; - break; - case 'Parser.Reply.value': - var $6798 = self.pst; - var self = $6798; - switch (self._) { - case 'Parser.State.new': - var $6800 = self.err; - var $6801 = self.nam; - var $6802 = self.ini; - var $6803 = self.idx; - var $6804 = self.str; - var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($6791, $6800), $6801, $6802, $6803, $6804); - var self = _reply$pst$35; - switch (self._) { - case 'Parser.State.new': - var $6806 = self.err; - var _reply$41 = Kind$Parser$term(_reply$pst$35); - var self = _reply$41; - switch (self._) { - case 'Parser.Reply.error': - var $6808 = self.err; - var self = $6806; - switch (self._) { - case 'Maybe.some': - var $6810 = self.value; - var $6811 = Parser$Reply$error$(Parser$Error$combine$($6810, $6808)); - var $6809 = $6811; - break; - case 'Maybe.none': - var $6812 = Parser$Reply$error$($6808); - var $6809 = $6812; - break; - }; - var $6807 = $6809; - break; - case 'Parser.Reply.value': - var $6813 = self.pst; - var $6814 = self.val; - var self = $6813; - switch (self._) { - case 'Parser.State.new': - var $6816 = self.err; - var $6817 = self.nam; - var $6818 = self.ini; - var $6819 = self.idx; - var $6820 = self.str; - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6806, $6816), $6817, $6818, $6819, $6820); - var $6821 = Parser$Reply$value$(_reply$pst$49, Pair$new$($6783, $6814)); - var $6815 = $6821; - break; - }; - var $6807 = $6815; - break; - }; - var $6805 = $6807; - break; - }; - var $6799 = $6805; - break; - }; - var $6792 = $6799; - break; - }; - var $6790 = $6792; - break; - }; - var $6784 = $6790; - break; - }; - var $6776 = $6784; - break; - }; - var $6774 = $6776; - break; - }; - return $6774; - }), "}")(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6822 = self.err; - var self = $6772; - switch (self._) { - case 'Maybe.some': - var $6824 = self.value; - var $6825 = Parser$Reply$error$(Parser$Error$combine$($6824, $6822)); - var $6823 = $6825; - break; - case 'Maybe.none': - var $6826 = Parser$Reply$error$($6822); - var $6823 = $6826; - break; - }; - var $6773 = $6823; - break; - case 'Parser.Reply.value': - var $6827 = self.pst; - var $6828 = self.val; - var self = $6827; - switch (self._) { - case 'Parser.State.new': - var $6830 = self.err; - var $6831 = self.nam; - var $6832 = self.ini; - var $6833 = self.idx; - var $6834 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6772, $6830), $6831, $6832, $6833, $6834); - var _list$16 = List$fold$($6828, Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)), (_kv$16 => _xs$17 => { - var self = _kv$16; - switch (self._) { - case 'Pair.new': - var $6837 = self.fst; - var $6838 = self.snd; - var _pair$20 = Kind$Term$ref$("Pair.new"); - var _pair$21 = Kind$Term$app$(_pair$20, Kind$Term$hol$(Bits$e)); - var _pair$22 = Kind$Term$app$(_pair$21, Kind$Term$hol$(Bits$e)); - var _pair$23 = Kind$Term$app$(_pair$22, $6837); - var _pair$24 = Kind$Term$app$(_pair$23, $6838); - var _term$25 = Kind$Term$ref$("List.cons"); - var _term$26 = Kind$Term$app$(_term$25, Kind$Term$hol$(Bits$e)); - var _term$27 = Kind$Term$app$(_term$26, _pair$24); - var _term$28 = Kind$Term$app$(_term$27, _xs$17); - var $6839 = _term$28; - var $6836 = $6839; - break; - }; - return $6836; - })); - var _term$17 = Kind$Term$ref$("Map.from_list"); - var _term$18 = Kind$Term$app$(_term$17, Kind$Term$hol$(Bits$e)); - var _term$19 = Kind$Term$app$(_term$18, _list$16); - var $6835 = Parser$Reply$value$(_reply$pst$15, _term$19); - var $6829 = $6835; - break; - }; - var $6773 = $6829; - break; - }; - var $6771 = $6773; - break; - }; - return $6771; - })); - - function Kind$Parser$log$(_body$1) { - var $6840 = Kind$Parser$block("log")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $6842 = self.err; - var _reply$8 = Kind$Parser$text$("log(", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $6844 = self.err; - var self = $6842; - switch (self._) { - case 'Maybe.some': - var $6846 = self.value; - var $6847 = Parser$Reply$error$(Parser$Error$combine$($6846, $6844)); - var $6845 = $6847; - break; - case 'Maybe.none': - var $6848 = Parser$Reply$error$($6844); - var $6845 = $6848; - break; - }; - var $6843 = $6845; - break; - case 'Parser.Reply.value': - var $6849 = self.pst; - var self = $6849; - switch (self._) { - case 'Parser.State.new': - var $6851 = self.err; - var $6852 = self.nam; - var $6853 = self.ini; - var $6854 = self.idx; - var $6855 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($6842, $6851), $6852, $6853, $6854, $6855); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $6857 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $6859 = self.err; - var self = $6857; - switch (self._) { - case 'Maybe.some': - var $6861 = self.value; - var $6862 = Parser$Reply$error$(Parser$Error$combine$($6861, $6859)); - var $6860 = $6862; - break; - case 'Maybe.none': - var $6863 = Parser$Reply$error$($6859); - var $6860 = $6863; - break; - }; - var $6858 = $6860; - break; - case 'Parser.Reply.value': - var $6864 = self.pst; - var $6865 = self.val; - var self = $6864; - switch (self._) { - case 'Parser.State.new': - var $6867 = self.err; - var $6868 = self.nam; - var $6869 = self.ini; - var $6870 = self.idx; - var $6871 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($6857, $6867), $6868, $6869, $6870, $6871); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $6873 = self.err; - var _reply$36 = Kind$Parser$text$(")", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $6875 = self.err; - var self = $6873; - switch (self._) { - case 'Maybe.some': - var $6877 = self.value; - var $6878 = Parser$Reply$error$(Parser$Error$combine$($6877, $6875)); - var $6876 = $6878; - break; - case 'Maybe.none': - var $6879 = Parser$Reply$error$($6875); - var $6876 = $6879; - break; - }; - var $6874 = $6876; - break; - case 'Parser.Reply.value': - var $6880 = self.pst; - var self = $6880; - switch (self._) { - case 'Parser.State.new': - var $6882 = self.err; - var $6883 = self.nam; - var $6884 = self.ini; - var $6885 = self.idx; - var $6886 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($6873, $6882), $6883, $6884, $6885, $6886); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $6888 = self.err; - var _reply$50 = _body$1(Unit$new)(_reply$pst$44); - var self = _reply$50; + var $2397 = self.err; + var _reply$25 = Parser$maybe$((_pst$25 => { + var self = _pst$25; + switch (self._) { + case 'Parser.State.new': + var $2400 = self.err; + var _reply$31 = Kind$Parser$text$(":", _pst$25); + var self = _reply$31; + switch (self._) { + case 'Parser.Reply.error': + var $2402 = self.err; + var self = $2400; + switch (self._) { + case 'Maybe.some': + var $2404 = self.value; + var $2405 = Parser$Reply$error$(Parser$Error$combine$($2404, $2402)); + var $2403 = $2405; + break; + case 'Maybe.none': + var $2406 = Parser$Reply$error$($2402); + var $2403 = $2406; + break; + }; + var $2401 = $2403; + break; + case 'Parser.Reply.value': + var $2407 = self.pst; + var self = $2407; + switch (self._) { + case 'Parser.State.new': + var $2409 = self.err; + var $2410 = self.nam; + var $2411 = self.ini; + var $2412 = self.idx; + var $2413 = self.str; + var $2414 = ((console.log(("FALTANDO " + $2413)), (_$39 => { + var $2415 = ((console.log(("VALUE " + $2410)), (_$40 => { + var _reply$pst$41 = Parser$State$new$(Parser$Error$maybe_combine$($2400, $2409), $2410, $2411, $2412, $2413); + var $2416 = ((console.log("AQUI?"), (_$42 => _pst$43 => { + var self = _pst$43; switch (self._) { - case 'Parser.Reply.error': - var $6890 = self.err; - var self = $6888; + case 'Parser.State.new': + var $2418 = self.err; + var _reply$49 = Kind$Parser$term(_pst$43); + var self = _reply$49; switch (self._) { - case 'Maybe.some': - var $6892 = self.value; - var $6893 = Parser$Reply$error$(Parser$Error$combine$($6892, $6890)); - var $6891 = $6893; + case 'Parser.Reply.error': + var $2420 = self.err; + var self = $2418; + switch (self._) { + case 'Maybe.some': + var $2422 = self.value; + var $2423 = Parser$Reply$error$(Parser$Error$combine$($2422, $2420)); + var $2421 = $2423; + break; + case 'Maybe.none': + var $2424 = Parser$Reply$error$($2420); + var $2421 = $2424; + break; + }; + var $2419 = $2421; break; - case 'Maybe.none': - var $6894 = Parser$Reply$error$($6890); - var $6891 = $6894; + case 'Parser.Reply.value': + var $2425 = self.pst; + var $2426 = self.val; + var self = $2425; + switch (self._) { + case 'Parser.State.new': + var $2428 = self.err; + var $2429 = self.nam; + var $2430 = self.ini; + var $2431 = self.idx; + var $2432 = self.str; + var $2433 = ((console.log(("FALTANDO " + $2432)), (_$57 => { + var $2434 = ((console.log(("VALUE " + $2429)), (_$58 => { + var _reply$pst$59 = Parser$State$new$(Parser$Error$maybe_combine$($2418, $2428), $2429, $2430, $2431, $2432); + var $2435 = Parser$Reply$value$(_reply$pst$59, $2426); + return $2435; + })())); + return $2434; + })())); + var $2427 = $2433; + break; + }; + var $2419 = $2427; break; }; - var $6889 = $6891; - break; - case 'Parser.Reply.value': - var $6895 = self.pst; - var $6896 = self.val; - var self = $6895; - switch (self._) { - case 'Parser.State.new': - var $6898 = self.err; - var $6899 = self.nam; - var $6900 = self.ini; - var $6901 = self.idx; - var $6902 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($6888, $6898), $6899, $6900, $6901, $6902); - var _term$59 = Kind$Term$ref$("Debug.log"); - var _term$60 = Kind$Term$app$(_term$59, Kind$Term$hol$(Bits$e)); - var _term$61 = Kind$Term$app$(_term$60, $6865); - var _term$62 = Kind$Term$app$(_term$61, Kind$Term$lam$("", (_x$62 => { - var $6904 = $6896; - return $6904; - }))); - var $6903 = Parser$Reply$value$(_reply$pst$58, _term$62); - var $6897 = $6903; - break; - }; - var $6889 = $6897; + var $2417 = $2419; break; }; - var $6887 = $6889; - break; - }; - var $6881 = $6887; - break; - }; - var $6874 = $6881; - break; - }; - var $6872 = $6874; + return $2417; + })()))(_reply$pst$41); + return $2416; + })())); + return $2415; + })())); + var $2408 = $2414; + break; + }; + var $2401 = $2408; + break; + }; + var $2399 = $2401; + break; + }; + return $2399; + }), _pst$19); + var self = _reply$25; + switch (self._) { + case 'Parser.Reply.error': + var $2436 = self.err; + var self = $2397; + switch (self._) { + case 'Maybe.some': + var $2438 = self.value; + var $2439 = Parser$Reply$error$(Parser$Error$combine$($2438, $2436)); + var $2437 = $2439; + break; + case 'Maybe.none': + var $2440 = Parser$Reply$error$($2436); + var $2437 = $2440; break; }; - var $6866 = $6872; + var $2398 = $2437; + break; + case 'Parser.Reply.value': + var $2441 = self.pst; + var $2442 = self.val; + var self = $2441; + switch (self._) { + case 'Parser.State.new': + var $2444 = self.err; + var $2445 = self.nam; + var $2446 = self.ini; + var $2447 = self.idx; + var $2448 = self.str; + var $2449 = ((console.log(("FALTANDO " + $2448)), (_$33 => { + var $2450 = ((console.log(("VALUE " + $2445)), (_$34 => { + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($2397, $2444), $2445, $2446, $2447, $2448); + var $2451 = Parser$Reply$value$(_reply$pst$35, Pair$new$($2386, $2442)); + return $2451; + })())); + return $2450; + })())); + var $2443 = $2449; + break; + }; + var $2398 = $2443; break; }; - var $6858 = $6866; + var $2396 = $2398; break; }; - var $6856 = $6858; - break; - }; - var $6850 = $6856; - break; - }; - var $6843 = $6850; - break; - }; - var $6841 = $6843; - break; - }; - return $6841; - })); - return $6840; - }; - const Kind$Parser$log = x0 => Kind$Parser$log$(x0); - - function String$map$(_f$1, _as$2) { - var self = _as$2; - if (self.length === 0) { - var $6906 = String$nil; - var $6905 = $6906; - } else { - var $6907 = self.charCodeAt(0); - var $6908 = self.slice(1); - var $6909 = String$cons$(_f$1($6907), String$map$(_f$1, $6908)); - var $6905 = $6909; + return $2396; + })()))(_reply$pst$17); + return $2395; + })())); + return $2394; + })())); + var $2387 = $2393; + break; + }; + var $2379 = $2387; + break; + }; + var $2377 = $2379; + break; }; - return $6905; + return $2377; }; - const String$map = x0 => x1 => String$map$(x0, x1); + const Kind$Parser$lambda$name_term = x0 => Kind$Parser$lambda$name_term$(x0); - function Char$to_upper$(_char$1) { - var self = ((_char$1 >= 97) && (_char$1 <= 122)); - if (self) { - var $6911 = ((_char$1 - 32) & 0xFFFF); - var $6910 = $6911; - } else { - var $6912 = _char$1; - var $6910 = $6912; - }; - return $6910; - }; - const Char$to_upper = x0 => Char$to_upper$(x0); - - function String$to_upper$(_str$1) { - var $6913 = String$map$(Char$to_upper, _str$1); - return $6913; - }; - const String$to_upper = x0 => String$to_upper$(x0); - - function String$is_upper$(_str$1) { - var $6914 = (String$to_upper$(_str$1) === _str$1); - return $6914; - }; - const String$is_upper = x0 => String$is_upper$(x0); - - function String$take$(_n$1, _xs$2) { - var self = _xs$2; - if (self.length === 0) { - var $6916 = String$nil; - var $6915 = $6916; - } else { - var $6917 = self.charCodeAt(0); - var $6918 = self.slice(1); - var self = _n$1; - if (self === 0n) { - var $6920 = String$nil; - var $6919 = $6920; - } else { - var $6921 = (self - 1n); - var $6922 = String$cons$($6917, String$take$($6921, $6918)); - var $6919 = $6922; - }; - var $6915 = $6919; - }; - return $6915; - }; - const String$take = x0 => x1 => String$take$(x0, x1); - const Nat$sub = a0 => a1 => (a0 - a1 <= 0n ? 0n : a0 - a1); - - function String$slice$(_i$1, _j$2, _xs$3) { - var $6923 = String$take$((_j$2 - _i$1 <= 0n ? 0n : _j$2 - _i$1), String$drop$(_i$1, _xs$3)); - return $6923; - }; - const String$slice = x0 => x1 => x2 => String$slice$(x0, x1, x2); - - function Kind$Term$unroll_nat$(_natx$1) { - var self = _natx$1; - if (self === 0n) { - var $6925 = Kind$Term$ref$(Kind$Name$read$("Nat.zero")); - var $6924 = $6925; - } else { - var $6926 = (self - 1n); - var _func$3 = Kind$Term$ref$(Kind$Name$read$("Nat.succ")); - var _argm$4 = Kind$Term$nat$($6926); - var $6927 = Kind$Term$app$(_func$3, _argm$4); - var $6924 = $6927; - }; - return $6924; - }; - const Kind$Term$unroll_nat = x0 => Kind$Term$unroll_nat$(x0); - - function Word$to_bits$(_a$2) { - var self = _a$2; + function List$unzip$(_xs$3) { + var self = _xs$3; switch (self._) { - case 'Word.o': - var $6929 = self.pred; - var $6930 = (Word$to_bits$($6929) + '0'); - var $6928 = $6930; + case 'List.cons': + var $2453 = self.head; + var $2454 = self.tail; + var _rec$6 = List$unzip$($2454); + var self = $2453; + switch (self._) { + case 'Pair.new': + var $2456 = self.fst; + var $2457 = self.snd; + var self = _rec$6; + switch (self._) { + case 'Pair.new': + var $2459 = self.fst; + var $2460 = self.snd; + var $2461 = Pair$new$(List$cons$($2456, $2459), List$cons$($2457, $2460)); + var $2458 = $2461; + break; + }; + var $2455 = $2458; + break; + }; + var $2452 = $2455; break; - case 'Word.i': - var $6931 = self.pred; - var $6932 = (Word$to_bits$($6931) + '1'); - var $6928 = $6932; - break; - case 'Word.e': - var $6933 = Bits$e; - var $6928 = $6933; + case 'List.nil': + var $2462 = Pair$new$(List$nil, List$nil); + var $2452 = $2462; break; }; - return $6928; + return $2452; }; - const Word$to_bits = x0 => Word$to_bits$(x0); - const U16$to_bits = a0 => (u16_to_bits(a0)); + const List$unzip = x0 => List$unzip$(x0); - function Kind$Term$unroll_chr$bits$(_bits$1) { - var self = _bits$1; - switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { - case 'o': - var $6935 = self.slice(0, -1); - var $6936 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.o")), Kind$Term$unroll_chr$bits$($6935)); - var $6934 = $6936; + function Maybe$mapped$(_m$2, _f$4) { + var self = _m$2; + switch (self._) { + case 'Maybe.some': + var $2464 = self.value; + var $2465 = Maybe$some$(_f$4($2464)); + var $2463 = $2465; break; - case 'i': - var $6937 = self.slice(0, -1); - var $6938 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.i")), Kind$Term$unroll_chr$bits$($6937)); - var $6934 = $6938; - break; - case 'e': - var $6939 = Kind$Term$ref$(Kind$Name$read$("Bits.e")); - var $6934 = $6939; + case 'Maybe.none': + var $2466 = Maybe$none; + var $2463 = $2466; break; }; - return $6934; + return $2463; }; - const Kind$Term$unroll_chr$bits = x0 => Kind$Term$unroll_chr$bits$(x0); + const Maybe$mapped = x0 => x1 => Maybe$mapped$(x0, x1); - function Kind$Term$unroll_chr$(_chrx$1) { - var _bits$2 = (u16_to_bits(_chrx$1)); - var _term$3 = Kind$Term$ref$(Kind$Name$read$("Word.from_bits")); - var _term$4 = Kind$Term$app$(_term$3, Kind$Term$nat$(16n)); - var _term$5 = Kind$Term$app$(_term$4, Kind$Term$unroll_chr$bits$(_bits$2)); - var _term$6 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("U16.new")), _term$5); - var $6940 = _term$6; - return $6940; - }; - const Kind$Term$unroll_chr = x0 => Kind$Term$unroll_chr$(x0); - - function Kind$Term$unroll_str$(_strx$1) { - var self = _strx$1; - if (self.length === 0) { - var $6942 = Kind$Term$ref$(Kind$Name$read$("String.nil")); - var $6941 = $6942; - } else { - var $6943 = self.charCodeAt(0); - var $6944 = self.slice(1); - var _char$4 = Kind$Term$chr$($6943); - var _term$5 = Kind$Term$ref$(Kind$Name$read$("String.cons")); - var _term$6 = Kind$Term$app$(_term$5, _char$4); - var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$($6944)); - var $6945 = _term$7; - var $6941 = $6945; - }; - return $6941; - }; - const Kind$Term$unroll_str = x0 => Kind$Term$unroll_str$(x0); - - function Kind$Term$reduce$(_term$1, _defs$2) { + function Kind$Term$show$as_nat$go$(_term$1) { var self = _term$1; switch (self._) { case 'Kind.Term.ref': - var $6947 = self.name; - var self = Kind$Map$get$($6947, _defs$2); - switch (self._) { - case 'Maybe.some': - var $6949 = self.value; - var self = $6949; - switch (self._) { - case 'Kind.Def.new': - var $6951 = self.term; - var $6952 = Kind$Term$reduce$($6951, _defs$2); - var $6950 = $6952; - break; - }; - var $6948 = $6950; - break; - case 'Maybe.none': - var $6953 = Kind$Term$ref$($6947); - var $6948 = $6953; - break; + var $2468 = self.name; + var self = ($2468 === "Nat.zero"); + if (self) { + var $2470 = Maybe$some$(0n); + var $2469 = $2470; + } else { + var $2471 = Maybe$none; + var $2469 = $2471; }; - var $6946 = $6948; + var $2467 = $2469; break; case 'Kind.Term.app': - var $6954 = self.func; - var $6955 = self.argm; - var _func$5 = Kind$Term$reduce$($6954, _defs$2); - var self = _func$5; + var $2472 = self.func; + var $2473 = self.argm; + var self = $2472; switch (self._) { - case 'Kind.Term.lam': - var $6957 = self.body; - var $6958 = Kind$Term$reduce$($6957($6955), _defs$2); - var $6956 = $6958; + case 'Kind.Term.ref': + var $2475 = self.name; + var self = ($2475 === "Nat.succ"); + if (self) { + var $2477 = Maybe$monad$((_m$bind$5 => _m$pure$6 => { + var $2478 = _m$bind$5; + return $2478; + }))(Kind$Term$show$as_nat$go$($2473))((_pred$5 => { + var $2479 = Maybe$monad$((_m$bind$6 => _m$pure$7 => { + var $2480 = _m$pure$7; + return $2480; + }))(Nat$succ$(_pred$5)); + return $2479; + })); + var $2476 = $2477; + } else { + var $2481 = Maybe$none; + var $2476 = $2481; + }; + var $2474 = $2476; break; case 'Kind.Term.var': - case 'Kind.Term.ref': case 'Kind.Term.typ': case 'Kind.Term.all': + case 'Kind.Term.lam': case 'Kind.Term.app': case 'Kind.Term.let': case 'Kind.Term.def': @@ -22147,2115 +9143,16 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $6959 = _term$1; - var $6956 = $6959; + var $2482 = Maybe$none; + var $2474 = $2482; break; }; - var $6946 = $6956; - break; - case 'Kind.Term.let': - var $6960 = self.expr; - var $6961 = self.body; - var $6962 = Kind$Term$reduce$($6961($6960), _defs$2); - var $6946 = $6962; - break; - case 'Kind.Term.def': - var $6963 = self.expr; - var $6964 = self.body; - var $6965 = Kind$Term$reduce$($6964($6963), _defs$2); - var $6946 = $6965; - break; - case 'Kind.Term.ann': - var $6966 = self.term; - var $6967 = Kind$Term$reduce$($6966, _defs$2); - var $6946 = $6967; - break; - case 'Kind.Term.nat': - var $6968 = self.natx; - var $6969 = Kind$Term$reduce$(Kind$Term$unroll_nat$($6968), _defs$2); - var $6946 = $6969; - break; - case 'Kind.Term.chr': - var $6970 = self.chrx; - var $6971 = Kind$Term$reduce$(Kind$Term$unroll_chr$($6970), _defs$2); - var $6946 = $6971; - break; - case 'Kind.Term.str': - var $6972 = self.strx; - var $6973 = Kind$Term$reduce$(Kind$Term$unroll_str$($6972), _defs$2); - var $6946 = $6973; - break; - case 'Kind.Term.ori': - var $6974 = self.expr; - var $6975 = Kind$Term$reduce$($6974, _defs$2); - var $6946 = $6975; + var $2467 = $2474; break; case 'Kind.Term.var': case 'Kind.Term.typ': case 'Kind.Term.all': case 'Kind.Term.lam': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - var $6976 = _term$1; - var $6946 = $6976; - break; - }; - return $6946; - }; - const Kind$Term$reduce = x0 => x1 => Kind$Term$reduce$(x0, x1); - - function Kind$Parser$open$(_body$1) { - var $6977 = Kind$Parser$block("open")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $6979 = self.err; - var _reply$8 = Kind$Parser$text$("open ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $6981 = self.err; - var self = $6979; - switch (self._) { - case 'Maybe.some': - var $6983 = self.value; - var $6984 = Parser$Reply$error$(Parser$Error$combine$($6983, $6981)); - var $6982 = $6984; - break; - case 'Maybe.none': - var $6985 = Parser$Reply$error$($6981); - var $6982 = $6985; - break; - }; - var $6980 = $6982; - break; - case 'Parser.Reply.value': - var $6986 = self.pst; - var self = $6986; - switch (self._) { - case 'Parser.State.new': - var $6988 = self.err; - var $6989 = self.nam; - var $6990 = self.ini; - var $6991 = self.idx; - var $6992 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($6979, $6988), $6989, $6990, $6991, $6992); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $6994 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $6996 = self.err; - var self = $6994; - switch (self._) { - case 'Maybe.some': - var $6998 = self.value; - var $6999 = Parser$Reply$error$(Parser$Error$combine$($6998, $6996)); - var $6997 = $6999; - break; - case 'Maybe.none': - var $7000 = Parser$Reply$error$($6996); - var $6997 = $7000; - break; - }; - var $6995 = $6997; - break; - case 'Parser.Reply.value': - var $7001 = self.pst; - var $7002 = self.val; - var self = $7001; - switch (self._) { - case 'Parser.State.new': - var $7004 = self.err; - var $7005 = self.nam; - var $7006 = self.ini; - var $7007 = self.idx; - var $7008 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($6994, $7004), $7005, $7006, $7007, $7008); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $7010 = self.err; - var _reply$36 = Parser$maybe$((_pst$36 => { - var self = _pst$36; - switch (self._) { - case 'Parser.State.new': - var $7013 = self.err; - var _reply$42 = Kind$Parser$text$("as", _pst$36); - var self = _reply$42; - switch (self._) { - case 'Parser.Reply.error': - var $7015 = self.err; - var self = $7013; - switch (self._) { - case 'Maybe.some': - var $7017 = self.value; - var $7018 = Parser$Reply$error$(Parser$Error$combine$($7017, $7015)); - var $7016 = $7018; - break; - case 'Maybe.none': - var $7019 = Parser$Reply$error$($7015); - var $7016 = $7019; - break; - }; - var $7014 = $7016; - break; - case 'Parser.Reply.value': - var $7020 = self.pst; - var self = $7020; - switch (self._) { - case 'Parser.State.new': - var $7022 = self.err; - var $7023 = self.nam; - var $7024 = self.ini; - var $7025 = self.idx; - var $7026 = self.str; - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($7013, $7022), $7023, $7024, $7025, $7026); - var $7027 = Kind$Parser$name1$(_reply$pst$50); - var $7021 = $7027; - break; - }; - var $7014 = $7021; - break; - }; - var $7012 = $7014; - break; - }; - return $7012; - }), _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $7028 = self.err; - var self = $7010; - switch (self._) { - case 'Maybe.some': - var $7030 = self.value; - var $7031 = Parser$Reply$error$(Parser$Error$combine$($7030, $7028)); - var $7029 = $7031; - break; - case 'Maybe.none': - var $7032 = Parser$Reply$error$($7028); - var $7029 = $7032; - break; - }; - var $7011 = $7029; - break; - case 'Parser.Reply.value': - var $7033 = self.pst; - var $7034 = self.val; - var self = $7033; - switch (self._) { - case 'Parser.State.new': - var $7036 = self.err; - var $7037 = self.nam; - var $7038 = self.ini; - var $7039 = self.idx; - var $7040 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7010, $7036), $7037, $7038, $7039, $7040); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $7042 = self.err; - var _reply$50 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $7044 = self.err; - var self = $7042; - switch (self._) { - case 'Maybe.some': - var $7046 = self.value; - var $7047 = Parser$Reply$error$(Parser$Error$combine$($7046, $7044)); - var $7045 = $7047; - break; - case 'Maybe.none': - var $7048 = Parser$Reply$error$($7044); - var $7045 = $7048; - break; - }; - var $7043 = $7045; - break; - case 'Parser.Reply.value': - var $7049 = self.pst; - var self = $7049; - switch (self._) { - case 'Parser.State.new': - var $7051 = self.err; - var $7052 = self.nam; - var $7053 = self.ini; - var $7054 = self.idx; - var $7055 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7042, $7051), $7052, $7053, $7054, $7055); - var self = $7034; - switch (self._) { - case 'Maybe.some': - var $7057 = self.value; - var $7058 = $7057; - var _name$59 = $7058; - break; - case 'Maybe.none': - var self = Kind$Term$reduce$($7002, Kind$Map$new); - switch (self._) { - case 'Kind.Term.var': - var $7060 = self.name; - var $7061 = $7060; - var $7059 = $7061; - break; - case 'Kind.Term.ref': - var $7062 = self.name; - var $7063 = $7062; - var $7059 = $7063; - break; - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.app': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - case 'Kind.Term.ori': - var $7064 = Kind$Name$read$("self"); - var $7059 = $7064; - break; - }; - var _name$59 = $7059; - break; - }; - var _wyth$60 = List$nil; - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $7065 = self.err; - var _reply$66 = _body$1(Unit$new)(_reply$pst$58); - var self = _reply$66; - switch (self._) { - case 'Parser.Reply.error': - var $7067 = self.err; - var self = $7065; - switch (self._) { - case 'Maybe.some': - var $7069 = self.value; - var $7070 = Parser$Reply$error$(Parser$Error$combine$($7069, $7067)); - var $7068 = $7070; - break; - case 'Maybe.none': - var $7071 = Parser$Reply$error$($7067); - var $7068 = $7071; - break; - }; - var $7066 = $7068; - break; - case 'Parser.Reply.value': - var $7072 = self.pst; - var $7073 = self.val; - var self = $7072; - switch (self._) { - case 'Parser.State.new': - var $7075 = self.err; - var $7076 = self.nam; - var $7077 = self.ini; - var $7078 = self.idx; - var $7079 = self.str; - var _reply$pst$74 = Parser$State$new$(Parser$Error$maybe_combine$($7065, $7075), $7076, $7077, $7078, $7079); - var _cses$75 = Kind$Map$set$("_", $7073, Kind$Map$new); - var _moti$76 = Maybe$some$(Kind$Term$hol$(Bits$e)); - var $7080 = Parser$Reply$value$(_reply$pst$74, Kind$Term$cse$(Bits$e, $7002, _name$59, _wyth$60, _cses$75, _moti$76)); - var $7074 = $7080; - break; - }; - var $7066 = $7074; - break; - }; - var $7056 = $7066; - break; - }; - var $7050 = $7056; - break; - }; - var $7043 = $7050; - break; - }; - var $7041 = $7043; - break; - }; - var $7035 = $7041; - break; - }; - var $7011 = $7035; - break; - }; - var $7009 = $7011; - break; - }; - var $7003 = $7009; - break; - }; - var $6995 = $7003; - break; - }; - var $6993 = $6995; - break; - }; - var $6987 = $6993; - break; - }; - var $6980 = $6987; - break; - }; - var $6978 = $6980; - break; - }; - return $6978; - })); - return $6977; - }; - const Kind$Parser$open = x0 => Kind$Parser$open$(x0); - - function Kind$Parser$do$statements$(_monad_name$1) { - var $7081 = Parser$choice(List$cons$(Kind$Parser$block("do-get")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $7083 = self.err; - var _reply$8 = Parser$choice$(List$cons$(Kind$Parser$text("var "), List$cons$(Kind$Parser$text("get "), List$nil)), _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $7085 = self.err; - var self = $7083; - switch (self._) { - case 'Maybe.some': - var $7087 = self.value; - var $7088 = Parser$Reply$error$(Parser$Error$combine$($7087, $7085)); - var $7086 = $7088; - break; - case 'Maybe.none': - var $7089 = Parser$Reply$error$($7085); - var $7086 = $7089; - break; - }; - var $7084 = $7086; - break; - case 'Parser.Reply.value': - var $7090 = self.pst; - var self = $7090; - switch (self._) { - case 'Parser.State.new': - var $7092 = self.err; - var $7093 = self.nam; - var $7094 = self.ini; - var $7095 = self.idx; - var $7096 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7083, $7092), $7093, $7094, $7095, $7096); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $7098 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $7100 = self.err; - var self = $7098; - switch (self._) { - case 'Maybe.some': - var $7102 = self.value; - var $7103 = Parser$Reply$error$(Parser$Error$combine$($7102, $7100)); - var $7101 = $7103; - break; - case 'Maybe.none': - var $7104 = Parser$Reply$error$($7100); - var $7101 = $7104; - break; - }; - var $7099 = $7101; - break; - case 'Parser.Reply.value': - var $7105 = self.pst; - var $7106 = self.val; - var self = $7105; - switch (self._) { - case 'Parser.State.new': - var $7108 = self.err; - var $7109 = self.nam; - var $7110 = self.ini; - var $7111 = self.idx; - var $7112 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7098, $7108), $7109, $7110, $7111, $7112); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $7114 = self.err; - var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $7116 = self.err; - var self = $7114; - switch (self._) { - case 'Maybe.some': - var $7118 = self.value; - var $7119 = Parser$Reply$error$(Parser$Error$combine$($7118, $7116)); - var $7117 = $7119; - break; - case 'Maybe.none': - var $7120 = Parser$Reply$error$($7116); - var $7117 = $7120; - break; - }; - var $7115 = $7117; - break; - case 'Parser.Reply.value': - var $7121 = self.pst; - var self = $7121; - switch (self._) { - case 'Parser.State.new': - var $7123 = self.err; - var $7124 = self.nam; - var $7125 = self.ini; - var $7126 = self.idx; - var $7127 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7114, $7123), $7124, $7125, $7126, $7127); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $7129 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $7131 = self.err; - var self = $7129; - switch (self._) { - case 'Maybe.some': - var $7133 = self.value; - var $7134 = Parser$Reply$error$(Parser$Error$combine$($7133, $7131)); - var $7132 = $7134; - break; - case 'Maybe.none': - var $7135 = Parser$Reply$error$($7131); - var $7132 = $7135; - break; - }; - var $7130 = $7132; - break; - case 'Parser.Reply.value': - var $7136 = self.pst; - var $7137 = self.val; - var self = $7136; - switch (self._) { - case 'Parser.State.new': - var $7139 = self.err; - var $7140 = self.nam; - var $7141 = self.ini; - var $7142 = self.idx; - var $7143 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7129, $7139), $7140, $7141, $7142, $7143); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $7145 = self.err; - var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $7147 = self.err; - var self = $7145; - switch (self._) { - case 'Maybe.some': - var $7149 = self.value; - var $7150 = Parser$Reply$error$(Parser$Error$combine$($7149, $7147)); - var $7148 = $7150; - break; - case 'Maybe.none': - var $7151 = Parser$Reply$error$($7147); - var $7148 = $7151; - break; - }; - var $7146 = $7148; - break; - case 'Parser.Reply.value': - var $7152 = self.pst; - var self = $7152; - switch (self._) { - case 'Parser.State.new': - var $7154 = self.err; - var $7155 = self.nam; - var $7156 = self.ini; - var $7157 = self.idx; - var $7158 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($7145, $7154), $7155, $7156, $7157, $7158); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $7160 = self.err; - var _reply$78 = Kind$Parser$do$statements$(_monad_name$1)(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $7162 = self.err; - var self = $7160; - switch (self._) { - case 'Maybe.some': - var $7164 = self.value; - var $7165 = Parser$Reply$error$(Parser$Error$combine$($7164, $7162)); - var $7163 = $7165; - break; - case 'Maybe.none': - var $7166 = Parser$Reply$error$($7162); - var $7163 = $7166; - break; - }; - var $7161 = $7163; - break; - case 'Parser.Reply.value': - var $7167 = self.pst; - var $7168 = self.val; - var self = $7167; - switch (self._) { - case 'Parser.State.new': - var $7170 = self.err; - var $7171 = self.nam; - var $7172 = self.ini; - var $7173 = self.idx; - var $7174 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($7160, $7170), $7171, $7172, $7173, $7174); - var _term$87 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); - var _term$88 = Kind$Term$app$(_term$87, Kind$Term$ref$((_monad_name$1 + ".monad"))); - var _term$89 = Kind$Term$app$(_term$88, Kind$Term$hol$(Bits$e)); - var _term$90 = Kind$Term$app$(_term$89, Kind$Term$hol$(Bits$e)); - var _term$91 = Kind$Term$app$(_term$90, $7137); - var _term$92 = Kind$Term$app$(_term$91, Kind$Term$lam$($7106, (_x$92 => { - var $7176 = $7168; - return $7176; - }))); - var $7175 = Parser$Reply$value$(_reply$pst$86, _term$92); - var $7169 = $7175; - break; - }; - var $7161 = $7169; - break; - }; - var $7159 = $7161; - break; - }; - var $7153 = $7159; - break; - }; - var $7146 = $7153; - break; - }; - var $7144 = $7146; - break; - }; - var $7138 = $7144; - break; - }; - var $7130 = $7138; - break; - }; - var $7128 = $7130; - break; - }; - var $7122 = $7128; - break; - }; - var $7115 = $7122; - break; - }; - var $7113 = $7115; - break; - }; - var $7107 = $7113; - break; - }; - var $7099 = $7107; - break; - }; - var $7097 = $7099; - break; - }; - var $7091 = $7097; - break; - }; - var $7084 = $7091; - break; - }; - var $7082 = $7084; - break; - }; - return $7082; - })), List$cons$(Kind$Parser$block("do-return")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $7178 = self.err; - var _reply$8 = Kind$Parser$text$("return ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $7180 = self.err; - var self = $7178; - switch (self._) { - case 'Maybe.some': - var $7182 = self.value; - var $7183 = Parser$Reply$error$(Parser$Error$combine$($7182, $7180)); - var $7181 = $7183; - break; - case 'Maybe.none': - var $7184 = Parser$Reply$error$($7180); - var $7181 = $7184; - break; - }; - var $7179 = $7181; - break; - case 'Parser.Reply.value': - var $7185 = self.pst; - var self = $7185; - switch (self._) { - case 'Parser.State.new': - var $7187 = self.err; - var $7188 = self.nam; - var $7189 = self.ini; - var $7190 = self.idx; - var $7191 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7178, $7187), $7188, $7189, $7190, $7191); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $7193 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $7195 = self.err; - var self = $7193; - switch (self._) { - case 'Maybe.some': - var $7197 = self.value; - var $7198 = Parser$Reply$error$(Parser$Error$combine$($7197, $7195)); - var $7196 = $7198; - break; - case 'Maybe.none': - var $7199 = Parser$Reply$error$($7195); - var $7196 = $7199; - break; - }; - var $7194 = $7196; - break; - case 'Parser.Reply.value': - var $7200 = self.pst; - var $7201 = self.val; - var self = $7200; - switch (self._) { - case 'Parser.State.new': - var $7203 = self.err; - var $7204 = self.nam; - var $7205 = self.ini; - var $7206 = self.idx; - var $7207 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7193, $7203), $7204, $7205, $7206, $7207); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $7209 = self.err; - var _reply$36 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $7211 = self.err; - var self = $7209; - switch (self._) { - case 'Maybe.some': - var $7213 = self.value; - var $7214 = Parser$Reply$error$(Parser$Error$combine$($7213, $7211)); - var $7212 = $7214; - break; - case 'Maybe.none': - var $7215 = Parser$Reply$error$($7211); - var $7212 = $7215; - break; - }; - var $7210 = $7212; - break; - case 'Parser.Reply.value': - var $7216 = self.pst; - var self = $7216; - switch (self._) { - case 'Parser.State.new': - var $7218 = self.err; - var $7219 = self.nam; - var $7220 = self.ini; - var $7221 = self.idx; - var $7222 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7209, $7218), $7219, $7220, $7221, $7222); - var _term$45 = Kind$Term$app$(Kind$Term$ref$("Monad.pure"), Kind$Term$ref$(_monad_name$1)); - var _term$46 = Kind$Term$app$(_term$45, Kind$Term$ref$((_monad_name$1 + ".monad"))); - var _term$47 = Kind$Term$app$(_term$46, Kind$Term$hol$(Bits$e)); - var _term$48 = Kind$Term$app$(_term$47, $7201); - var $7223 = Parser$Reply$value$(_reply$pst$44, _term$48); - var $7217 = $7223; - break; - }; - var $7210 = $7217; - break; - }; - var $7208 = $7210; - break; - }; - var $7202 = $7208; - break; - }; - var $7194 = $7202; - break; - }; - var $7192 = $7194; - break; - }; - var $7186 = $7192; - break; - }; - var $7179 = $7186; - break; - }; - var $7177 = $7179; - break; - }; - return $7177; - })), List$cons$(Kind$Parser$block("do-for-range")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $7225 = self.err; - var _reply$8 = Kind$Parser$text$("for ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $7227 = self.err; - var self = $7225; - switch (self._) { - case 'Maybe.some': - var $7229 = self.value; - var $7230 = Parser$Reply$error$(Parser$Error$combine$($7229, $7227)); - var $7228 = $7230; - break; - case 'Maybe.none': - var $7231 = Parser$Reply$error$($7227); - var $7228 = $7231; - break; - }; - var $7226 = $7228; - break; - case 'Parser.Reply.value': - var $7232 = self.pst; - var self = $7232; - switch (self._) { - case 'Parser.State.new': - var $7234 = self.err; - var $7235 = self.nam; - var $7236 = self.ini; - var $7237 = self.idx; - var $7238 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7225, $7234), $7235, $7236, $7237, $7238); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $7240 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $7242 = self.err; - var self = $7240; - switch (self._) { - case 'Maybe.some': - var $7244 = self.value; - var $7245 = Parser$Reply$error$(Parser$Error$combine$($7244, $7242)); - var $7243 = $7245; - break; - case 'Maybe.none': - var $7246 = Parser$Reply$error$($7242); - var $7243 = $7246; - break; - }; - var $7241 = $7243; - break; - case 'Parser.Reply.value': - var $7247 = self.pst; - var $7248 = self.val; - var self = $7247; - switch (self._) { - case 'Parser.State.new': - var $7250 = self.err; - var $7251 = self.nam; - var $7252 = self.ini; - var $7253 = self.idx; - var $7254 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7240, $7250), $7251, $7252, $7253, $7254); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $7256 = self.err; - var _reply$36 = Kind$Parser$text$("from", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $7258 = self.err; - var self = $7256; - switch (self._) { - case 'Maybe.some': - var $7260 = self.value; - var $7261 = Parser$Reply$error$(Parser$Error$combine$($7260, $7258)); - var $7259 = $7261; - break; - case 'Maybe.none': - var $7262 = Parser$Reply$error$($7258); - var $7259 = $7262; - break; - }; - var $7257 = $7259; - break; - case 'Parser.Reply.value': - var $7263 = self.pst; - var self = $7263; - switch (self._) { - case 'Parser.State.new': - var $7265 = self.err; - var $7266 = self.nam; - var $7267 = self.ini; - var $7268 = self.idx; - var $7269 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7256, $7265), $7266, $7267, $7268, $7269); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $7271 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $7273 = self.err; - var self = $7271; - switch (self._) { - case 'Maybe.some': - var $7275 = self.value; - var $7276 = Parser$Reply$error$(Parser$Error$combine$($7275, $7273)); - var $7274 = $7276; - break; - case 'Maybe.none': - var $7277 = Parser$Reply$error$($7273); - var $7274 = $7277; - break; - }; - var $7272 = $7274; - break; - case 'Parser.Reply.value': - var $7278 = self.pst; - var $7279 = self.val; - var self = $7278; - switch (self._) { - case 'Parser.State.new': - var $7281 = self.err; - var $7282 = self.nam; - var $7283 = self.ini; - var $7284 = self.idx; - var $7285 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7271, $7281), $7282, $7283, $7284, $7285); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $7287 = self.err; - var _reply$64 = Kind$Parser$text$("to", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $7289 = self.err; - var self = $7287; - switch (self._) { - case 'Maybe.some': - var $7291 = self.value; - var $7292 = Parser$Reply$error$(Parser$Error$combine$($7291, $7289)); - var $7290 = $7292; - break; - case 'Maybe.none': - var $7293 = Parser$Reply$error$($7289); - var $7290 = $7293; - break; - }; - var $7288 = $7290; - break; - case 'Parser.Reply.value': - var $7294 = self.pst; - var self = $7294; - switch (self._) { - case 'Parser.State.new': - var $7296 = self.err; - var $7297 = self.nam; - var $7298 = self.ini; - var $7299 = self.idx; - var $7300 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($7287, $7296), $7297, $7298, $7299, $7300); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $7302 = self.err; - var _reply$78 = Kind$Parser$term(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $7304 = self.err; - var self = $7302; - switch (self._) { - case 'Maybe.some': - var $7306 = self.value; - var $7307 = Parser$Reply$error$(Parser$Error$combine$($7306, $7304)); - var $7305 = $7307; - break; - case 'Maybe.none': - var $7308 = Parser$Reply$error$($7304); - var $7305 = $7308; - break; - }; - var $7303 = $7305; - break; - case 'Parser.Reply.value': - var $7309 = self.pst; - var $7310 = self.val; - var self = $7309; - switch (self._) { - case 'Parser.State.new': - var $7312 = self.err; - var $7313 = self.nam; - var $7314 = self.ini; - var $7315 = self.idx; - var $7316 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($7302, $7312), $7313, $7314, $7315, $7316); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $7318 = self.err; - var _reply$92 = Kind$Parser$text$(":", _reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $7320 = self.err; - var self = $7318; - switch (self._) { - case 'Maybe.some': - var $7322 = self.value; - var $7323 = Parser$Reply$error$(Parser$Error$combine$($7322, $7320)); - var $7321 = $7323; - break; - case 'Maybe.none': - var $7324 = Parser$Reply$error$($7320); - var $7321 = $7324; - break; - }; - var $7319 = $7321; - break; - case 'Parser.Reply.value': - var $7325 = self.pst; - var self = $7325; - switch (self._) { - case 'Parser.State.new': - var $7327 = self.err; - var $7328 = self.nam; - var $7329 = self.ini; - var $7330 = self.idx; - var $7331 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($7318, $7327), $7328, $7329, $7330, $7331); - var self = _reply$pst$100; - switch (self._) { - case 'Parser.State.new': - var $7333 = self.err; - var _reply$106 = Kind$Parser$term(_reply$pst$100); - var self = _reply$106; - switch (self._) { - case 'Parser.Reply.error': - var $7335 = self.err; - var self = $7333; - switch (self._) { - case 'Maybe.some': - var $7337 = self.value; - var $7338 = Parser$Reply$error$(Parser$Error$combine$($7337, $7335)); - var $7336 = $7338; - break; - case 'Maybe.none': - var $7339 = Parser$Reply$error$($7335); - var $7336 = $7339; - break; - }; - var $7334 = $7336; - break; - case 'Parser.Reply.value': - var $7340 = self.pst; - var $7341 = self.val; - var self = $7340; - switch (self._) { - case 'Parser.State.new': - var $7343 = self.err; - var $7344 = self.nam; - var $7345 = self.ini; - var $7346 = self.idx; - var $7347 = self.str; - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($7333, $7343), $7344, $7345, $7346, $7347); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $7349 = self.err; - var _reply$120 = Parser$maybe$(Kind$Parser$do$statements$(_monad_name$1), _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $7351 = self.err; - var self = $7349; - switch (self._) { - case 'Maybe.some': - var $7353 = self.value; - var $7354 = Parser$Reply$error$(Parser$Error$combine$($7353, $7351)); - var $7352 = $7354; - break; - case 'Maybe.none': - var $7355 = Parser$Reply$error$($7351); - var $7352 = $7355; - break; - }; - var $7350 = $7352; - break; - case 'Parser.Reply.value': - var $7356 = self.pst; - var $7357 = self.val; - var self = $7356; - switch (self._) { - case 'Parser.State.new': - var $7359 = self.err; - var $7360 = self.nam; - var $7361 = self.ini; - var $7362 = self.idx; - var $7363 = self.str; - var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($7349, $7359), $7360, $7361, $7362, $7363); - var _expr$129 = Kind$Term$ref$("Nat.for.io"); - var _expr$130 = Kind$Term$app$(_expr$129, $7279); - var _expr$131 = Kind$Term$app$(_expr$130, $7310); - var _expr$132 = Kind$Term$app$(_expr$131, Kind$Term$lam$($7248, (_x$132 => { - var $7365 = $7341; - return $7365; - }))); - var self = $7357; - switch (self._) { - case 'Maybe.some': - var $7366 = self.value; - var _term$134 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); - var _term$135 = Kind$Term$app$(_term$134, Kind$Term$ref$((_monad_name$1 + ".monad"))); - var _term$136 = Kind$Term$app$(_term$135, Kind$Term$hol$(Bits$e)); - var _term$137 = Kind$Term$app$(_term$136, Kind$Term$hol$(Bits$e)); - var _term$138 = Kind$Term$app$(_term$137, _expr$132); - var _term$139 = Kind$Term$app$(_term$138, Kind$Term$lam$("", (_x$139 => { - var $7368 = $7366; - return $7368; - }))); - var $7367 = (_pst$140 => { - var $7369 = Parser$Reply$value$(_pst$140, _term$139); - return $7369; - }); - var $7364 = $7367; - break; - case 'Maybe.none': - var $7370 = (_pst$133 => { - var $7371 = Parser$Reply$value$(_pst$133, _expr$132); - return $7371; - }); - var $7364 = $7370; - break; - }; - var $7364 = $7364(_reply$pst$128); - var $7358 = $7364; - break; - }; - var $7350 = $7358; - break; - }; - var $7348 = $7350; - break; - }; - var $7342 = $7348; - break; - }; - var $7334 = $7342; - break; - }; - var $7332 = $7334; - break; - }; - var $7326 = $7332; - break; - }; - var $7319 = $7326; - break; - }; - var $7317 = $7319; - break; - }; - var $7311 = $7317; - break; - }; - var $7303 = $7311; - break; - }; - var $7301 = $7303; - break; - }; - var $7295 = $7301; - break; - }; - var $7288 = $7295; - break; - }; - var $7286 = $7288; - break; - }; - var $7280 = $7286; - break; - }; - var $7272 = $7280; - break; - }; - var $7270 = $7272; - break; - }; - var $7264 = $7270; - break; - }; - var $7257 = $7264; - break; - }; - var $7255 = $7257; - break; - }; - var $7249 = $7255; - break; - }; - var $7241 = $7249; - break; - }; - var $7239 = $7241; - break; - }; - var $7233 = $7239; - break; - }; - var $7226 = $7233; - break; - }; - var $7224 = $7226; - break; - }; - return $7224; - })), List$cons$(Kind$Parser$block("do-for-in")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $7373 = self.err; - var _reply$8 = Kind$Parser$text$("for ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $7375 = self.err; - var self = $7373; - switch (self._) { - case 'Maybe.some': - var $7377 = self.value; - var $7378 = Parser$Reply$error$(Parser$Error$combine$($7377, $7375)); - var $7376 = $7378; - break; - case 'Maybe.none': - var $7379 = Parser$Reply$error$($7375); - var $7376 = $7379; - break; - }; - var $7374 = $7376; - break; - case 'Parser.Reply.value': - var $7380 = self.pst; - var self = $7380; - switch (self._) { - case 'Parser.State.new': - var $7382 = self.err; - var $7383 = self.nam; - var $7384 = self.ini; - var $7385 = self.idx; - var $7386 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7373, $7382), $7383, $7384, $7385, $7386); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $7388 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $7390 = self.err; - var self = $7388; - switch (self._) { - case 'Maybe.some': - var $7392 = self.value; - var $7393 = Parser$Reply$error$(Parser$Error$combine$($7392, $7390)); - var $7391 = $7393; - break; - case 'Maybe.none': - var $7394 = Parser$Reply$error$($7390); - var $7391 = $7394; - break; - }; - var $7389 = $7391; - break; - case 'Parser.Reply.value': - var $7395 = self.pst; - var $7396 = self.val; - var self = $7395; - switch (self._) { - case 'Parser.State.new': - var $7398 = self.err; - var $7399 = self.nam; - var $7400 = self.ini; - var $7401 = self.idx; - var $7402 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7388, $7398), $7399, $7400, $7401, $7402); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $7404 = self.err; - var _reply$36 = Kind$Parser$text$("in", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $7406 = self.err; - var self = $7404; - switch (self._) { - case 'Maybe.some': - var $7408 = self.value; - var $7409 = Parser$Reply$error$(Parser$Error$combine$($7408, $7406)); - var $7407 = $7409; - break; - case 'Maybe.none': - var $7410 = Parser$Reply$error$($7406); - var $7407 = $7410; - break; - }; - var $7405 = $7407; - break; - case 'Parser.Reply.value': - var $7411 = self.pst; - var self = $7411; - switch (self._) { - case 'Parser.State.new': - var $7413 = self.err; - var $7414 = self.nam; - var $7415 = self.ini; - var $7416 = self.idx; - var $7417 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7404, $7413), $7414, $7415, $7416, $7417); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $7419 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $7421 = self.err; - var self = $7419; - switch (self._) { - case 'Maybe.some': - var $7423 = self.value; - var $7424 = Parser$Reply$error$(Parser$Error$combine$($7423, $7421)); - var $7422 = $7424; - break; - case 'Maybe.none': - var $7425 = Parser$Reply$error$($7421); - var $7422 = $7425; - break; - }; - var $7420 = $7422; - break; - case 'Parser.Reply.value': - var $7426 = self.pst; - var $7427 = self.val; - var self = $7426; - switch (self._) { - case 'Parser.State.new': - var $7429 = self.err; - var $7430 = self.nam; - var $7431 = self.ini; - var $7432 = self.idx; - var $7433 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7419, $7429), $7430, $7431, $7432, $7433); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $7435 = self.err; - var _reply$64 = Kind$Parser$text$(":", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $7437 = self.err; - var self = $7435; - switch (self._) { - case 'Maybe.some': - var $7439 = self.value; - var $7440 = Parser$Reply$error$(Parser$Error$combine$($7439, $7437)); - var $7438 = $7440; - break; - case 'Maybe.none': - var $7441 = Parser$Reply$error$($7437); - var $7438 = $7441; - break; - }; - var $7436 = $7438; - break; - case 'Parser.Reply.value': - var $7442 = self.pst; - var self = $7442; - switch (self._) { - case 'Parser.State.new': - var $7444 = self.err; - var $7445 = self.nam; - var $7446 = self.ini; - var $7447 = self.idx; - var $7448 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($7435, $7444), $7445, $7446, $7447, $7448); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $7450 = self.err; - var _reply$78 = Kind$Parser$term(_reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $7452 = self.err; - var self = $7450; - switch (self._) { - case 'Maybe.some': - var $7454 = self.value; - var $7455 = Parser$Reply$error$(Parser$Error$combine$($7454, $7452)); - var $7453 = $7455; - break; - case 'Maybe.none': - var $7456 = Parser$Reply$error$($7452); - var $7453 = $7456; - break; - }; - var $7451 = $7453; - break; - case 'Parser.Reply.value': - var $7457 = self.pst; - var $7458 = self.val; - var self = $7457; - switch (self._) { - case 'Parser.State.new': - var $7460 = self.err; - var $7461 = self.nam; - var $7462 = self.ini; - var $7463 = self.idx; - var $7464 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($7450, $7460), $7461, $7462, $7463, $7464); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $7466 = self.err; - var _reply$92 = Parser$maybe$(Kind$Parser$do$statements$(_monad_name$1), _reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $7468 = self.err; - var self = $7466; - switch (self._) { - case 'Maybe.some': - var $7470 = self.value; - var $7471 = Parser$Reply$error$(Parser$Error$combine$($7470, $7468)); - var $7469 = $7471; - break; - case 'Maybe.none': - var $7472 = Parser$Reply$error$($7468); - var $7469 = $7472; - break; - }; - var $7467 = $7469; - break; - case 'Parser.Reply.value': - var $7473 = self.pst; - var $7474 = self.val; - var self = $7473; - switch (self._) { - case 'Parser.State.new': - var $7476 = self.err; - var $7477 = self.nam; - var $7478 = self.ini; - var $7479 = self.idx; - var $7480 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($7466, $7476), $7477, $7478, $7479, $7480); - var _expr$101 = Kind$Term$ref$("List.for.io"); - var _expr$102 = Kind$Term$app$(_expr$101, Kind$Term$hol$(Bits$e)); - var _expr$103 = Kind$Term$app$(_expr$102, $7427); - var _expr$104 = Kind$Term$app$(_expr$103, Kind$Term$lam$($7396, (_x$104 => { - var $7482 = $7458; - return $7482; - }))); - var self = $7474; - switch (self._) { - case 'Maybe.some': - var $7483 = self.value; - var _term$106 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); - var _term$107 = Kind$Term$app$(_term$106, Kind$Term$ref$((_monad_name$1 + ".monad"))); - var _term$108 = Kind$Term$app$(_term$107, Kind$Term$hol$(Bits$e)); - var _term$109 = Kind$Term$app$(_term$108, Kind$Term$hol$(Bits$e)); - var _term$110 = Kind$Term$app$(_term$109, _expr$104); - var _term$111 = Kind$Term$app$(_term$110, Kind$Term$lam$("", (_x$111 => { - var $7485 = $7483; - return $7485; - }))); - var $7484 = (_pst$112 => { - var $7486 = Parser$Reply$value$(_pst$112, _term$111); - return $7486; - }); - var $7481 = $7484; - break; - case 'Maybe.none': - var $7487 = (_pst$105 => { - var $7488 = Parser$Reply$value$(_pst$105, _expr$104); - return $7488; - }); - var $7481 = $7487; - break; - }; - var $7481 = $7481(_reply$pst$100); - var $7475 = $7481; - break; - }; - var $7467 = $7475; - break; - }; - var $7465 = $7467; - break; - }; - var $7459 = $7465; - break; - }; - var $7451 = $7459; - break; - }; - var $7449 = $7451; - break; - }; - var $7443 = $7449; - break; - }; - var $7436 = $7443; - break; - }; - var $7434 = $7436; - break; - }; - var $7428 = $7434; - break; - }; - var $7420 = $7428; - break; - }; - var $7418 = $7420; - break; - }; - var $7412 = $7418; - break; - }; - var $7405 = $7412; - break; - }; - var $7403 = $7405; - break; - }; - var $7397 = $7403; - break; - }; - var $7389 = $7397; - break; - }; - var $7387 = $7389; - break; - }; - var $7381 = $7387; - break; - }; - var $7374 = $7381; - break; - }; - var $7372 = $7374; - break; - }; - return $7372; - })), List$cons$(Kind$Parser$letforrange$u32$((_x$2 => { - var $7489 = Kind$Parser$do$statements$(_monad_name$1); - return $7489; - })), List$cons$(Kind$Parser$letforrange$u32$with$((_x$2 => { - var $7490 = Kind$Parser$do$statements$(_monad_name$1); - return $7490; - })), List$cons$(Kind$Parser$letforrange$nat$((_x$2 => { - var $7491 = Kind$Parser$do$statements$(_monad_name$1); - return $7491; - })), List$cons$(Kind$Parser$letforrange$nat$with$((_x$2 => { - var $7492 = Kind$Parser$do$statements$(_monad_name$1); - return $7492; - })), List$cons$(Kind$Parser$letforin$((_x$2 => { - var $7493 = Kind$Parser$do$statements$(_monad_name$1); - return $7493; - })), List$cons$(Kind$Parser$letforin$with$((_x$2 => { - var $7494 = Kind$Parser$do$statements$(_monad_name$1); - return $7494; - })), List$cons$(Kind$Parser$letwhile$((_x$2 => { - var $7495 = Kind$Parser$do$statements$(_monad_name$1); - return $7495; - })), List$cons$(Kind$Parser$letwhile$with$((_x$2 => { - var $7496 = Kind$Parser$do$statements$(_monad_name$1); - return $7496; - })), List$cons$(Kind$Parser$let$abort$((_x$2 => { - var $7497 = Kind$Parser$do$statements$(_monad_name$1); - return $7497; - })), List$cons$(Kind$Parser$let$((_x$2 => { - var $7498 = Kind$Parser$do$statements$(_monad_name$1); - return $7498; - })), List$cons$(Kind$Parser$getwhile$((_x$2 => { - var $7499 = Kind$Parser$do$statements$(_monad_name$1); - return $7499; - })), List$cons$(Kind$Parser$getwhile$with((_x$2 => { - var $7500 = Kind$Parser$do$statements$(_monad_name$1); - return $7500; - })), List$cons$(Kind$Parser$get$((_x$2 => { - var $7501 = Kind$Parser$do$statements$(_monad_name$1); - return $7501; - })), List$cons$(Kind$Parser$def$((_x$2 => { - var $7502 = Kind$Parser$do$statements$(_monad_name$1); - return $7502; - })), List$cons$(Kind$Parser$use$abort$((_x$2 => { - var $7503 = Kind$Parser$do$statements$(_monad_name$1); - return $7503; - })), List$cons$(Kind$Parser$use$((_x$2 => { - var $7504 = Kind$Parser$do$statements$(_monad_name$1); - return $7504; - })), List$cons$(Kind$Parser$log$((_x$2 => { - var $7505 = Kind$Parser$do$statements$(_monad_name$1); - return $7505; - })), List$cons$(Kind$Parser$open$((_x$2 => { - var $7506 = Kind$Parser$do$statements$(_monad_name$1); - return $7506; - })), List$cons$(Kind$Parser$block("do-statement")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $7508 = self.err; - var _reply$8 = Kind$Parser$term(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $7510 = self.err; - var self = $7508; - switch (self._) { - case 'Maybe.some': - var $7512 = self.value; - var $7513 = Parser$Reply$error$(Parser$Error$combine$($7512, $7510)); - var $7511 = $7513; - break; - case 'Maybe.none': - var $7514 = Parser$Reply$error$($7510); - var $7511 = $7514; - break; - }; - var $7509 = $7511; - break; - case 'Parser.Reply.value': - var $7515 = self.pst; - var $7516 = self.val; - var self = $7515; - switch (self._) { - case 'Parser.State.new': - var $7518 = self.err; - var $7519 = self.nam; - var $7520 = self.ini; - var $7521 = self.idx; - var $7522 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7508, $7518), $7519, $7520, $7521, $7522); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $7524 = self.err; - var _reply$22 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $7526 = self.err; - var self = $7524; - switch (self._) { - case 'Maybe.some': - var $7528 = self.value; - var $7529 = Parser$Reply$error$(Parser$Error$combine$($7528, $7526)); - var $7527 = $7529; - break; - case 'Maybe.none': - var $7530 = Parser$Reply$error$($7526); - var $7527 = $7530; - break; - }; - var $7525 = $7527; - break; - case 'Parser.Reply.value': - var $7531 = self.pst; - var self = $7531; - switch (self._) { - case 'Parser.State.new': - var $7533 = self.err; - var $7534 = self.nam; - var $7535 = self.ini; - var $7536 = self.idx; - var $7537 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7524, $7533), $7534, $7535, $7536, $7537); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $7539 = self.err; - var _reply$36 = Kind$Parser$do$statements$(_monad_name$1)(_reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $7541 = self.err; - var self = $7539; - switch (self._) { - case 'Maybe.some': - var $7543 = self.value; - var $7544 = Parser$Reply$error$(Parser$Error$combine$($7543, $7541)); - var $7542 = $7544; - break; - case 'Maybe.none': - var $7545 = Parser$Reply$error$($7541); - var $7542 = $7545; - break; - }; - var $7540 = $7542; - break; - case 'Parser.Reply.value': - var $7546 = self.pst; - var $7547 = self.val; - var self = $7546; - switch (self._) { - case 'Parser.State.new': - var $7549 = self.err; - var $7550 = self.nam; - var $7551 = self.ini; - var $7552 = self.idx; - var $7553 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7539, $7549), $7550, $7551, $7552, $7553); - var _term$45 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); - var _term$46 = Kind$Term$app$(_term$45, Kind$Term$ref$((_monad_name$1 + ".monad"))); - var _term$47 = Kind$Term$app$(_term$46, Kind$Term$hol$(Bits$e)); - var _term$48 = Kind$Term$app$(_term$47, Kind$Term$hol$(Bits$e)); - var _term$49 = Kind$Term$app$(_term$48, $7516); - var _term$50 = Kind$Term$app$(_term$49, Kind$Term$lam$("", (_x$50 => { - var $7555 = $7547; - return $7555; - }))); - var $7554 = Parser$Reply$value$(_reply$pst$44, _term$50); - var $7548 = $7554; - break; - }; - var $7540 = $7548; - break; - }; - var $7538 = $7540; - break; - }; - var $7532 = $7538; - break; - }; - var $7525 = $7532; - break; - }; - var $7523 = $7525; - break; - }; - var $7517 = $7523; - break; - }; - var $7509 = $7517; - break; - }; - var $7507 = $7509; - break; - }; - return $7507; - })), List$cons$(Kind$Parser$block("do-end")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $7557 = self.err; - var _reply$8 = Kind$Parser$term(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $7559 = self.err; - var self = $7557; - switch (self._) { - case 'Maybe.some': - var $7561 = self.value; - var $7562 = Parser$Reply$error$(Parser$Error$combine$($7561, $7559)); - var $7560 = $7562; - break; - case 'Maybe.none': - var $7563 = Parser$Reply$error$($7559); - var $7560 = $7563; - break; - }; - var $7558 = $7560; - break; - case 'Parser.Reply.value': - var $7564 = self.pst; - var $7565 = self.val; - var self = $7564; - switch (self._) { - case 'Parser.State.new': - var $7567 = self.err; - var $7568 = self.nam; - var $7569 = self.ini; - var $7570 = self.idx; - var $7571 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7557, $7567), $7568, $7569, $7570, $7571); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $7573 = self.err; - var _reply$22 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $7575 = self.err; - var self = $7573; - switch (self._) { - case 'Maybe.some': - var $7577 = self.value; - var $7578 = Parser$Reply$error$(Parser$Error$combine$($7577, $7575)); - var $7576 = $7578; - break; - case 'Maybe.none': - var $7579 = Parser$Reply$error$($7575); - var $7576 = $7579; - break; - }; - var $7574 = $7576; - break; - case 'Parser.Reply.value': - var $7580 = self.pst; - var self = $7580; - switch (self._) { - case 'Parser.State.new': - var $7582 = self.err; - var $7583 = self.nam; - var $7584 = self.ini; - var $7585 = self.idx; - var $7586 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7573, $7582), $7583, $7584, $7585, $7586); - var $7587 = Parser$Reply$value$(_reply$pst$30, $7565); - var $7581 = $7587; - break; - }; - var $7574 = $7581; - break; - }; - var $7572 = $7574; - break; - }; - var $7566 = $7572; - break; - }; - var $7558 = $7566; - break; - }; - var $7556 = $7558; - break; - }; - return $7556; - })), List$nil))))))))))))))))))))))))); - return $7081; - }; - const Kind$Parser$do$statements = x0 => Kind$Parser$do$statements$(x0); - const Kind$Parser$do = Kind$Parser$block("do")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7589 = self.err; - var _reply$7 = Parser$maybe$(Kind$Parser$text("do "), _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7591 = self.err; - var self = $7589; - switch (self._) { - case 'Maybe.some': - var $7593 = self.value; - var $7594 = Parser$Reply$error$(Parser$Error$combine$($7593, $7591)); - var $7592 = $7594; - break; - case 'Maybe.none': - var $7595 = Parser$Reply$error$($7591); - var $7592 = $7595; - break; - }; - var $7590 = $7592; - break; - case 'Parser.Reply.value': - var $7596 = self.pst; - var self = $7596; - switch (self._) { - case 'Parser.State.new': - var $7598 = self.err; - var $7599 = self.nam; - var $7600 = self.ini; - var $7601 = self.idx; - var $7602 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7589, $7598), $7599, $7600, $7601, $7602); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $7604 = self.err; - var _reply$21 = Kind$Parser$name1$(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $7606 = self.err; - var self = $7604; - switch (self._) { - case 'Maybe.some': - var $7608 = self.value; - var $7609 = Parser$Reply$error$(Parser$Error$combine$($7608, $7606)); - var $7607 = $7609; - break; - case 'Maybe.none': - var $7610 = Parser$Reply$error$($7606); - var $7607 = $7610; - break; - }; - var $7605 = $7607; - break; - case 'Parser.Reply.value': - var $7611 = self.pst; - var $7612 = self.val; - var self = $7611; - switch (self._) { - case 'Parser.State.new': - var $7614 = self.err; - var $7615 = self.nam; - var $7616 = self.ini; - var $7617 = self.idx; - var $7618 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7604, $7614), $7615, $7616, $7617, $7618); - var self = String$is_upper$(String$slice$(0n, 1n, $7612)); - if (self) { - var $7620 = (_pst$30 => { - var self = _pst$30; - switch (self._) { - case 'Parser.State.new': - var $7622 = self.err; - var _reply$36 = Parser$text$(" {", _pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $7624 = self.err; - var self = $7622; - switch (self._) { - case 'Maybe.some': - var $7626 = self.value; - var $7627 = Parser$Reply$error$(Parser$Error$combine$($7626, $7624)); - var $7625 = $7627; - break; - case 'Maybe.none': - var $7628 = Parser$Reply$error$($7624); - var $7625 = $7628; - break; - }; - var $7623 = $7625; - break; - case 'Parser.Reply.value': - var $7629 = self.pst; - var self = $7629; - switch (self._) { - case 'Parser.State.new': - var $7631 = self.err; - var $7632 = self.nam; - var $7633 = self.ini; - var $7634 = self.idx; - var $7635 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7622, $7631), $7632, $7633, $7634, $7635); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $7637 = self.err; - var _reply$50 = Kind$Parser$do$statements$($7612)(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $7639 = self.err; - var self = $7637; - switch (self._) { - case 'Maybe.some': - var $7641 = self.value; - var $7642 = Parser$Reply$error$(Parser$Error$combine$($7641, $7639)); - var $7640 = $7642; - break; - case 'Maybe.none': - var $7643 = Parser$Reply$error$($7639); - var $7640 = $7643; - break; - }; - var $7638 = $7640; - break; - case 'Parser.Reply.value': - var $7644 = self.pst; - var $7645 = self.val; - var self = $7644; - switch (self._) { - case 'Parser.State.new': - var $7647 = self.err; - var $7648 = self.nam; - var $7649 = self.ini; - var $7650 = self.idx; - var $7651 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7637, $7647), $7648, $7649, $7650, $7651); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $7653 = self.err; - var _reply$64 = Kind$Parser$text$("}", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $7655 = self.err; - var self = $7653; - switch (self._) { - case 'Maybe.some': - var $7657 = self.value; - var $7658 = Parser$Reply$error$(Parser$Error$combine$($7657, $7655)); - var $7656 = $7658; - break; - case 'Maybe.none': - var $7659 = Parser$Reply$error$($7655); - var $7656 = $7659; - break; - }; - var $7654 = $7656; - break; - case 'Parser.Reply.value': - var $7660 = self.pst; - var self = $7660; - switch (self._) { - case 'Parser.State.new': - var $7662 = self.err; - var $7663 = self.nam; - var $7664 = self.ini; - var $7665 = self.idx; - var $7666 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($7653, $7662), $7663, $7664, $7665, $7666); - var $7667 = Parser$Reply$value$(_reply$pst$72, $7645); - var $7661 = $7667; - break; - }; - var $7654 = $7661; - break; - }; - var $7652 = $7654; - break; - }; - var $7646 = $7652; - break; - }; - var $7638 = $7646; - break; - }; - var $7636 = $7638; - break; - }; - var $7630 = $7636; - break; - }; - var $7623 = $7630; - break; - }; - var $7621 = $7623; - break; - }; - return $7621; - }); - var $7619 = $7620; - } else { - var $7668 = Parser$fail("Not a do-block."); - var $7619 = $7668; - }; - var $7619 = $7619(_reply$pst$29); - var $7613 = $7619; - break; - }; - var $7605 = $7613; - break; - }; - var $7603 = $7605; - break; - }; - var $7597 = $7603; - break; - }; - var $7590 = $7597; - break; - }; - var $7588 = $7590; - break; - }; - return $7588; - })); - - function Kind$Term$extract_name$(_term$1) { - var _term$2 = Kind$Term$reduce$(_term$1, Kind$Map$new); - var self = _term$2; - switch (self._) { - case 'Kind.Term.var': - var $7670 = self.name; - var $7671 = $7670; - var $7669 = $7671; - break; - case 'Kind.Term.ref': - var $7672 = self.name; - var $7673 = $7672; - var $7669 = $7673; - break; - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.app': case 'Kind.Term.let': case 'Kind.Term.def': case 'Kind.Term.ann': @@ -24271,3021 +9168,35 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $7674 = "self"; - var $7669 = $7674; + var $2483 = Maybe$none; + var $2467 = $2483; break; }; - return $7669; + return $2467; }; - const Kind$Term$extract_name = x0 => Kind$Term$extract_name$(x0); - - function Kind$Ann$new$(_name$1, _term$2, _type$3) { - var $7675 = ({ - _: 'Kind.Ann.new', - 'name': _name$1, - 'term': _term$2, - 'type': _type$3 - }); - return $7675; - }; - const Kind$Ann$new = x0 => x1 => x2 => Kind$Ann$new$(x0, x1, x2); - const Kind$Parser$case$with = Parser$choice(List$cons$((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7677 = self.err; - var _reply$7 = Kind$Parser$text$("with ", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7679 = self.err; - var self = $7677; - switch (self._) { - case 'Maybe.some': - var $7681 = self.value; - var $7682 = Parser$Reply$error$(Parser$Error$combine$($7681, $7679)); - var $7680 = $7682; - break; - case 'Maybe.none': - var $7683 = Parser$Reply$error$($7679); - var $7680 = $7683; - break; - }; - var $7678 = $7680; - break; - case 'Parser.Reply.value': - var $7684 = self.pst; - var self = $7684; - switch (self._) { - case 'Parser.State.new': - var $7686 = self.err; - var $7687 = self.nam; - var $7688 = self.ini; - var $7689 = self.idx; - var $7690 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7677, $7686), $7687, $7688, $7689, $7690); - var $7691 = Parser$many$((_pst$16 => { - var self = _pst$16; - switch (self._) { - case 'Parser.State.new': - var $7693 = self.err; - var _reply$22 = Kind$Parser$name1$(_pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $7695 = self.err; - var self = $7693; - switch (self._) { - case 'Maybe.some': - var $7697 = self.value; - var $7698 = Parser$Reply$error$(Parser$Error$combine$($7697, $7695)); - var $7696 = $7698; - break; - case 'Maybe.none': - var $7699 = Parser$Reply$error$($7695); - var $7696 = $7699; - break; - }; - var $7694 = $7696; - break; - case 'Parser.Reply.value': - var $7700 = self.pst; - var $7701 = self.val; - var self = $7700; - switch (self._) { - case 'Parser.State.new': - var $7703 = self.err; - var $7704 = self.nam; - var $7705 = self.ini; - var $7706 = self.idx; - var $7707 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7693, $7703), $7704, $7705, $7706, $7707); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $7709 = self.err; - var _reply$36 = Parser$maybe$((_pst$36 => { - var self = _pst$36; - switch (self._) { - case 'Parser.State.new': - var $7712 = self.err; - var _reply$42 = Kind$Parser$text$(":", _pst$36); - var self = _reply$42; - switch (self._) { - case 'Parser.Reply.error': - var $7714 = self.err; - var self = $7712; - switch (self._) { - case 'Maybe.some': - var $7716 = self.value; - var $7717 = Parser$Reply$error$(Parser$Error$combine$($7716, $7714)); - var $7715 = $7717; - break; - case 'Maybe.none': - var $7718 = Parser$Reply$error$($7714); - var $7715 = $7718; - break; - }; - var $7713 = $7715; - break; - case 'Parser.Reply.value': - var $7719 = self.pst; - var self = $7719; - switch (self._) { - case 'Parser.State.new': - var $7721 = self.err; - var $7722 = self.nam; - var $7723 = self.ini; - var $7724 = self.idx; - var $7725 = self.str; - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($7712, $7721), $7722, $7723, $7724, $7725); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $7727 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $7729 = self.err; - var self = $7727; - switch (self._) { - case 'Maybe.some': - var $7731 = self.value; - var $7732 = Parser$Reply$error$(Parser$Error$combine$($7731, $7729)); - var $7730 = $7732; - break; - case 'Maybe.none': - var $7733 = Parser$Reply$error$($7729); - var $7730 = $7733; - break; - }; - var $7728 = $7730; - break; - case 'Parser.Reply.value': - var $7734 = self.pst; - var $7735 = self.val; - var self = $7734; - switch (self._) { - case 'Parser.State.new': - var $7737 = self.err; - var $7738 = self.nam; - var $7739 = self.ini; - var $7740 = self.idx; - var $7741 = self.str; - var _reply$pst$64 = Parser$State$new$(Parser$Error$maybe_combine$($7727, $7737), $7738, $7739, $7740, $7741); - var self = _reply$pst$64; - switch (self._) { - case 'Parser.State.new': - var $7743 = self.err; - var _reply$70 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$64); - var self = _reply$70; - switch (self._) { - case 'Parser.Reply.error': - var $7745 = self.err; - var self = $7743; - switch (self._) { - case 'Maybe.some': - var $7747 = self.value; - var $7748 = Parser$Reply$error$(Parser$Error$combine$($7747, $7745)); - var $7746 = $7748; - break; - case 'Maybe.none': - var $7749 = Parser$Reply$error$($7745); - var $7746 = $7749; - break; - }; - var $7744 = $7746; - break; - case 'Parser.Reply.value': - var $7750 = self.pst; - var self = $7750; - switch (self._) { - case 'Parser.State.new': - var $7752 = self.err; - var $7753 = self.nam; - var $7754 = self.ini; - var $7755 = self.idx; - var $7756 = self.str; - var _reply$pst$78 = Parser$State$new$(Parser$Error$maybe_combine$($7743, $7752), $7753, $7754, $7755, $7756); - var $7757 = Parser$Reply$value$(_reply$pst$78, $7735); - var $7751 = $7757; - break; - }; - var $7744 = $7751; - break; - }; - var $7742 = $7744; - break; - }; - var $7736 = $7742; - break; - }; - var $7728 = $7736; - break; - }; - var $7726 = $7728; - break; - }; - var $7720 = $7726; - break; - }; - var $7713 = $7720; - break; - }; - var $7711 = $7713; - break; - }; - return $7711; - }), _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $7758 = self.err; - var self = $7709; - switch (self._) { - case 'Maybe.some': - var $7760 = self.value; - var $7761 = Parser$Reply$error$(Parser$Error$combine$($7760, $7758)); - var $7759 = $7761; - break; - case 'Maybe.none': - var $7762 = Parser$Reply$error$($7758); - var $7759 = $7762; - break; - }; - var $7710 = $7759; - break; - case 'Parser.Reply.value': - var $7763 = self.pst; - var $7764 = self.val; - var self = $7763; - switch (self._) { - case 'Parser.State.new': - var $7766 = self.err; - var $7767 = self.nam; - var $7768 = self.ini; - var $7769 = self.idx; - var $7770 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7709, $7766), $7767, $7768, $7769, $7770); - var $7771 = Parser$Reply$value$(_reply$pst$44, Kind$Ann$new$($7701, Kind$Term$ref$($7701), $7764)); - var $7765 = $7771; - break; - }; - var $7710 = $7765; - break; - }; - var $7708 = $7710; - break; - }; - var $7702 = $7708; - break; - }; - var $7694 = $7702; - break; - }; - var $7692 = $7694; - break; - }; - return $7692; - }))(_reply$pst$15); - var $7685 = $7691; - break; - }; - var $7678 = $7685; - break; - }; - var $7676 = $7678; - break; - }; - return $7676; - }), List$cons$((_pst$1 => { - var $7772 = Parser$Reply$value$(_pst$1, List$nil); - return $7772; - }), List$nil))); - - function Kind$Parser$case$case$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7774 = self.err; - var _reply$7 = Parser$try$(Kind$Parser$text(":"), _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7776 = self.err; - var self = $7774; - switch (self._) { - case 'Maybe.some': - var $7778 = self.value; - var $7779 = Parser$Reply$error$(Parser$Error$combine$($7778, $7776)); - var $7777 = $7779; - break; - case 'Maybe.none': - var $7780 = Parser$Reply$error$($7776); - var $7777 = $7780; - break; - }; - var $7775 = $7777; - break; - case 'Parser.Reply.value': - var $7781 = self.pst; - var $7782 = self.val; - var self = $7781; - switch (self._) { - case 'Parser.State.new': - var $7784 = self.err; - var $7785 = self.nam; - var $7786 = self.ini; - var $7787 = self.idx; - var $7788 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7774, $7784), $7785, $7786, $7787, $7788); - var self = $7782; - if (self) { - var $7790 = (_pst$16 => { - var self = _pst$16; - switch (self._) { - case 'Parser.State.new': - var $7792 = self.err; - var _reply$22 = Kind$Parser$spaces(_pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $7794 = self.err; - var self = $7792; - switch (self._) { - case 'Maybe.some': - var $7796 = self.value; - var $7797 = Parser$Reply$error$(Parser$Error$combine$($7796, $7794)); - var $7795 = $7797; - break; - case 'Maybe.none': - var $7798 = Parser$Reply$error$($7794); - var $7795 = $7798; - break; - }; - var $7793 = $7795; - break; - case 'Parser.Reply.value': - var $7799 = self.pst; - var self = $7799; - switch (self._) { - case 'Parser.State.new': - var $7801 = self.err; - var $7802 = self.nam; - var $7803 = self.ini; - var $7804 = self.idx; - var $7805 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7792, $7801), $7802, $7803, $7804, $7805); - var $7806 = Parser$fail$("Expected constructor names.", _reply$pst$30); - var $7800 = $7806; - break; - }; - var $7793 = $7800; - break; - }; - var $7791 = $7793; - break; - }; - return $7791; - }); - var $7789 = $7790; - } else { - var $7807 = (_pst$16 => { - var self = _pst$16; - switch (self._) { - case 'Parser.State.new': - var $7809 = self.err; - var _reply$22 = Parser$until$(Kind$Parser$text(":"), Kind$Parser$name1)(_pst$16); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $7811 = self.err; - var self = $7809; - switch (self._) { - case 'Maybe.some': - var $7813 = self.value; - var $7814 = Parser$Reply$error$(Parser$Error$combine$($7813, $7811)); - var $7812 = $7814; - break; - case 'Maybe.none': - var $7815 = Parser$Reply$error$($7811); - var $7812 = $7815; - break; - }; - var $7810 = $7812; - break; - case 'Parser.Reply.value': - var $7816 = self.pst; - var $7817 = self.val; - var self = $7816; - switch (self._) { - case 'Parser.State.new': - var $7819 = self.err; - var $7820 = self.nam; - var $7821 = self.ini; - var $7822 = self.idx; - var $7823 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7809, $7819), $7820, $7821, $7822, $7823); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $7825 = self.err; - var _reply$36 = Kind$Parser$term(_reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $7827 = self.err; - var self = $7825; - switch (self._) { - case 'Maybe.some': - var $7829 = self.value; - var $7830 = Parser$Reply$error$(Parser$Error$combine$($7829, $7827)); - var $7828 = $7830; - break; - case 'Maybe.none': - var $7831 = Parser$Reply$error$($7827); - var $7828 = $7831; - break; - }; - var $7826 = $7828; - break; - case 'Parser.Reply.value': - var $7832 = self.pst; - var $7833 = self.val; - var self = $7832; - switch (self._) { - case 'Parser.State.new': - var $7835 = self.err; - var $7836 = self.nam; - var $7837 = self.ini; - var $7838 = self.idx; - var $7839 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7825, $7835), $7836, $7837, $7838, $7839); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $7841 = self.err; - var _reply$50 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $7843 = self.err; - var self = $7841; - switch (self._) { - case 'Maybe.some': - var $7845 = self.value; - var $7846 = Parser$Reply$error$(Parser$Error$combine$($7845, $7843)); - var $7844 = $7846; - break; - case 'Maybe.none': - var $7847 = Parser$Reply$error$($7843); - var $7844 = $7847; - break; - }; - var $7842 = $7844; - break; - case 'Parser.Reply.value': - var $7848 = self.pst; - var self = $7848; - switch (self._) { - case 'Parser.State.new': - var $7850 = self.err; - var $7851 = self.nam; - var $7852 = self.ini; - var $7853 = self.idx; - var $7854 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7841, $7850), $7851, $7852, $7853, $7854); - var $7855 = Parser$Reply$value$(_reply$pst$58, Pair$new$($7817, $7833)); - var $7849 = $7855; - break; - }; - var $7842 = $7849; - break; - }; - var $7840 = $7842; - break; - }; - var $7834 = $7840; - break; - }; - var $7826 = $7834; - break; - }; - var $7824 = $7826; - break; - }; - var $7818 = $7824; - break; - }; - var $7810 = $7818; - break; - }; - var $7808 = $7810; - break; - }; - return $7808; - }); - var $7789 = $7807; - }; - var $7789 = $7789(_reply$pst$15); - var $7783 = $7789; - break; - }; - var $7775 = $7783; - break; - }; - var $7773 = $7775; - break; - }; - return $7773; - }; - const Kind$Parser$case$case = x0 => Kind$Parser$case$case$(x0); - - function Parser$append_error$(_parse$2, _msg$3, _pst$4) { - var _reply$5 = _parse$2(_pst$4); - var self = _reply$5; - switch (self._) { - case 'Parser.Reply.error': - var $7857 = self.err; - var self = $7857; - switch (self._) { - case 'Parser.Error.new': - var $7859 = self.nam; - var $7860 = self.ini; - var $7861 = self.idx; - var $7862 = self.msg; - var $7863 = Parser$Reply$fail$($7859, $7860, $7861, ($7862 + _msg$3)); - var $7858 = $7863; - break; - }; - var $7856 = $7858; - break; - case 'Parser.Reply.value': - var $7864 = _reply$5; - var $7856 = $7864; - break; - }; - return $7856; - }; - const Parser$append_error = x0 => x1 => x2 => Parser$append_error$(x0, x1, x2); - - function Kind$Parser$case$group$(_dflt$1, _cses$2) { - var self = _cses$2; - switch (self._) { - case 'List.cons': - var $7866 = self.head; - var $7867 = self.tail; - var _map$5 = Kind$Parser$case$group$(_dflt$1, $7867); - var self = $7866; - switch (self._) { - case 'Pair.new': - var $7869 = self.fst; - var $7870 = self.snd; - var self = $7869; - switch (self._) { - case 'List.cons': - var $7872 = self.head; - var $7873 = self.tail; - var _rest$10 = Maybe$default$(Kind$Map$get$($7872, _map$5), List$nil); - var $7874 = Kind$Map$set$($7872, List$cons$(Pair$new$($7873, $7870), _rest$10), _map$5); - var $7871 = $7874; - break; - case 'List.nil': - var $7875 = _map$5; - var $7871 = $7875; - break; - }; - var $7868 = $7871; - break; - }; - var $7865 = $7868; - break; - case 'List.nil': - var self = _dflt$1; - switch (self._) { - case 'Maybe.some': - var $7877 = self.value; - var $7878 = Kind$Map$set$("_", List$cons$(Pair$new$(List$nil, $7877), List$nil), Kind$Map$new); - var $7876 = $7878; - break; - case 'Maybe.none': - var $7879 = Kind$Map$new; - var $7876 = $7879; - break; - }; - var $7865 = $7876; - break; - }; - return $7865; - }; - const Kind$Parser$case$group = x0 => x1 => Kind$Parser$case$group$(x0, x1); - - function BitsMap$map$(_fn$3, _map$4) { - var self = _map$4; - switch (self._) { - case 'BitsMap.tie': - var $7881 = self.val; - var $7882 = self.lft; - var $7883 = self.rgt; - var self = $7881; - switch (self._) { - case 'Maybe.some': - var $7885 = self.value; - var $7886 = Maybe$some$(_fn$3($7885)); - var _val$8 = $7886; - break; - case 'Maybe.none': - var $7887 = Maybe$none; - var _val$8 = $7887; - break; - }; - var _lft$9 = BitsMap$map$(_fn$3, $7882); - var _rgt$10 = BitsMap$map$(_fn$3, $7883); - var $7884 = BitsMap$tie$(_val$8, _lft$9, _rgt$10); - var $7880 = $7884; - break; - case 'BitsMap.new': - var $7888 = BitsMap$new; - var $7880 = $7888; - break; - }; - return $7880; - }; - const BitsMap$map = x0 => x1 => BitsMap$map$(x0, x1); - - function Kind$Map$map$(_fn$3, _map$4) { - var $7889 = BitsMap$map$(_fn$3, _map$4); - return $7889; - }; - const Kind$Map$map = x0 => x1 => Kind$Map$map$(x0, x1); - - function Kind$Parser$case$build$(_vals$1, _wyth$2, _cses$3, _dflt$4, _moti$5) { - var self = _vals$1; - switch (self._) { - case 'List.cons': - var $7891 = self.head; - var $7892 = self.tail; - var _group$8 = Kind$Parser$case$group$(_dflt$4, _cses$3); - var _name$9 = Pair$fst$($7891); - var _expr$10 = Pair$snd$($7891); - var _cses$11 = Kind$Map$map$((_cses$11 => { - var $7894 = Kind$Parser$case$build$($7892, _wyth$2, _cses$11, _dflt$4, _moti$5); - return $7894; - }), _group$8); - var $7893 = Kind$Term$cse$(Bits$e, _expr$10, _name$9, _wyth$2, _cses$11, _moti$5); - var $7890 = $7893; - break; - case 'List.nil': - var self = _cses$3; - switch (self._) { - case 'List.cons': - var $7896 = self.head; - var $7897 = Pair$snd$($7896); - var $7895 = $7897; - break; - case 'List.nil': - var $7898 = Kind$Term$ref$("missing_case"); - var $7895 = $7898; - break; - }; - var $7890 = $7895; - break; - }; - return $7890; - }; - const Kind$Parser$case$build = x0 => x1 => x2 => x3 => x4 => Kind$Parser$case$build$(x0, x1, x2, x3, x4); - const Kind$Parser$case = Kind$Parser$block("case")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7900 = self.err; - var _reply$7 = Kind$Parser$text$("case ", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7902 = self.err; - var self = $7900; - switch (self._) { - case 'Maybe.some': - var $7904 = self.value; - var $7905 = Parser$Reply$error$(Parser$Error$combine$($7904, $7902)); - var $7903 = $7905; - break; - case 'Maybe.none': - var $7906 = Parser$Reply$error$($7902); - var $7903 = $7906; - break; - }; - var $7901 = $7903; - break; - case 'Parser.Reply.value': - var $7907 = self.pst; - var self = $7907; - switch (self._) { - case 'Parser.State.new': - var $7909 = self.err; - var $7910 = self.nam; - var $7911 = self.ini; - var $7912 = self.idx; - var $7913 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7900, $7909), $7910, $7911, $7912, $7913); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $7915 = self.err; - var _reply$21 = Parser$many1$((_pst$21 => { - var self = _pst$21; - switch (self._) { - case 'Parser.State.new': - var $7918 = self.err; - var _reply$27 = Parser$avoiding$(Kind$Parser$text("{"), Kind$Parser$term, _pst$21); - var self = _reply$27; - switch (self._) { - case 'Parser.Reply.error': - var $7920 = self.err; - var self = $7918; - switch (self._) { - case 'Maybe.some': - var $7922 = self.value; - var $7923 = Parser$Reply$error$(Parser$Error$combine$($7922, $7920)); - var $7921 = $7923; - break; - case 'Maybe.none': - var $7924 = Parser$Reply$error$($7920); - var $7921 = $7924; - break; - }; - var $7919 = $7921; - break; - case 'Parser.Reply.value': - var $7925 = self.pst; - var $7926 = self.val; - var self = $7925; - switch (self._) { - case 'Parser.State.new': - var $7928 = self.err; - var $7929 = self.nam; - var $7930 = self.ini; - var $7931 = self.idx; - var $7932 = self.str; - var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($7918, $7928), $7929, $7930, $7931, $7932); - var self = _reply$pst$35; - switch (self._) { - case 'Parser.State.new': - var $7934 = self.err; - var _reply$41 = Parser$maybe$((_pst$41 => { - var self = _pst$41; - switch (self._) { - case 'Parser.State.new': - var $7937 = self.err; - var _reply$47 = Kind$Parser$text$("as", _pst$41); - var self = _reply$47; - switch (self._) { - case 'Parser.Reply.error': - var $7939 = self.err; - var self = $7937; - switch (self._) { - case 'Maybe.some': - var $7941 = self.value; - var $7942 = Parser$Reply$error$(Parser$Error$combine$($7941, $7939)); - var $7940 = $7942; - break; - case 'Maybe.none': - var $7943 = Parser$Reply$error$($7939); - var $7940 = $7943; - break; - }; - var $7938 = $7940; - break; - case 'Parser.Reply.value': - var $7944 = self.pst; - var self = $7944; - switch (self._) { - case 'Parser.State.new': - var $7946 = self.err; - var $7947 = self.nam; - var $7948 = self.ini; - var $7949 = self.idx; - var $7950 = self.str; - var _reply$pst$55 = Parser$State$new$(Parser$Error$maybe_combine$($7937, $7946), $7947, $7948, $7949, $7950); - var self = _reply$pst$55; - switch (self._) { - case 'Parser.State.new': - var $7952 = self.err; - var _reply$61 = Kind$Parser$name1$(_reply$pst$55); - var self = _reply$61; - switch (self._) { - case 'Parser.Reply.error': - var $7954 = self.err; - var self = $7952; - switch (self._) { - case 'Maybe.some': - var $7956 = self.value; - var $7957 = Parser$Reply$error$(Parser$Error$combine$($7956, $7954)); - var $7955 = $7957; - break; - case 'Maybe.none': - var $7958 = Parser$Reply$error$($7954); - var $7955 = $7958; - break; - }; - var $7953 = $7955; - break; - case 'Parser.Reply.value': - var $7959 = self.pst; - var $7960 = self.val; - var self = $7959; - switch (self._) { - case 'Parser.State.new': - var $7962 = self.err; - var $7963 = self.nam; - var $7964 = self.ini; - var $7965 = self.idx; - var $7966 = self.str; - var _reply$pst$69 = Parser$State$new$(Parser$Error$maybe_combine$($7952, $7962), $7963, $7964, $7965, $7966); - var self = _reply$pst$69; - switch (self._) { - case 'Parser.State.new': - var $7968 = self.err; - var _reply$75 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$69); - var self = _reply$75; - switch (self._) { - case 'Parser.Reply.error': - var $7970 = self.err; - var self = $7968; - switch (self._) { - case 'Maybe.some': - var $7972 = self.value; - var $7973 = Parser$Reply$error$(Parser$Error$combine$($7972, $7970)); - var $7971 = $7973; - break; - case 'Maybe.none': - var $7974 = Parser$Reply$error$($7970); - var $7971 = $7974; - break; - }; - var $7969 = $7971; - break; - case 'Parser.Reply.value': - var $7975 = self.pst; - var self = $7975; - switch (self._) { - case 'Parser.State.new': - var $7977 = self.err; - var $7978 = self.nam; - var $7979 = self.ini; - var $7980 = self.idx; - var $7981 = self.str; - var _reply$pst$83 = Parser$State$new$(Parser$Error$maybe_combine$($7968, $7977), $7978, $7979, $7980, $7981); - var $7982 = Parser$Reply$value$(_reply$pst$83, $7960); - var $7976 = $7982; - break; - }; - var $7969 = $7976; - break; - }; - var $7967 = $7969; - break; - }; - var $7961 = $7967; - break; - }; - var $7953 = $7961; - break; - }; - var $7951 = $7953; - break; - }; - var $7945 = $7951; - break; - }; - var $7938 = $7945; - break; - }; - var $7936 = $7938; - break; - }; - return $7936; - }), _reply$pst$35); - var self = _reply$41; - switch (self._) { - case 'Parser.Reply.error': - var $7983 = self.err; - var self = $7934; - switch (self._) { - case 'Maybe.some': - var $7985 = self.value; - var $7986 = Parser$Reply$error$(Parser$Error$combine$($7985, $7983)); - var $7984 = $7986; - break; - case 'Maybe.none': - var $7987 = Parser$Reply$error$($7983); - var $7984 = $7987; - break; - }; - var $7935 = $7984; - break; - case 'Parser.Reply.value': - var $7988 = self.pst; - var $7989 = self.val; - var self = $7988; - switch (self._) { - case 'Parser.State.new': - var $7991 = self.err; - var $7992 = self.nam; - var $7993 = self.ini; - var $7994 = self.idx; - var $7995 = self.str; - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7934, $7991), $7992, $7993, $7994, $7995); - var _name$50 = Maybe$default$($7989, Kind$Term$extract_name$($7926)); - var $7996 = Parser$Reply$value$(_reply$pst$49, Pair$new$(_name$50, $7926)); - var $7990 = $7996; - break; - }; - var $7935 = $7990; - break; - }; - var $7933 = $7935; - break; - }; - var $7927 = $7933; - break; - }; - var $7919 = $7927; - break; - }; - var $7917 = $7919; - break; - }; - return $7917; - }), _reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $7997 = self.err; - var self = $7915; - switch (self._) { - case 'Maybe.some': - var $7999 = self.value; - var $8000 = Parser$Reply$error$(Parser$Error$combine$($7999, $7997)); - var $7998 = $8000; - break; - case 'Maybe.none': - var $8001 = Parser$Reply$error$($7997); - var $7998 = $8001; - break; - }; - var $7916 = $7998; - break; - case 'Parser.Reply.value': - var $8002 = self.pst; - var $8003 = self.val; - var self = $8002; - switch (self._) { - case 'Parser.State.new': - var $8005 = self.err; - var $8006 = self.nam; - var $8007 = self.ini; - var $8008 = self.idx; - var $8009 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7915, $8005), $8006, $8007, $8008, $8009); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $8011 = self.err; - var _reply$35 = Kind$Parser$case$with(_reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $8013 = self.err; - var self = $8011; - switch (self._) { - case 'Maybe.some': - var $8015 = self.value; - var $8016 = Parser$Reply$error$(Parser$Error$combine$($8015, $8013)); - var $8014 = $8016; - break; - case 'Maybe.none': - var $8017 = Parser$Reply$error$($8013); - var $8014 = $8017; - break; - }; - var $8012 = $8014; - break; - case 'Parser.Reply.value': - var $8018 = self.pst; - var $8019 = self.val; - var self = $8018; - switch (self._) { - case 'Parser.State.new': - var $8021 = self.err; - var $8022 = self.nam; - var $8023 = self.ini; - var $8024 = self.idx; - var $8025 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8011, $8021), $8022, $8023, $8024, $8025); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $8027 = self.err; - var _reply$49 = Kind$Parser$items$("{", Kind$Parser$case$case, "}")(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $8029 = self.err; - var self = $8027; - switch (self._) { - case 'Maybe.some': - var $8031 = self.value; - var $8032 = Parser$Reply$error$(Parser$Error$combine$($8031, $8029)); - var $8030 = $8032; - break; - case 'Maybe.none': - var $8033 = Parser$Reply$error$($8029); - var $8030 = $8033; - break; - }; - var $8028 = $8030; - break; - case 'Parser.Reply.value': - var $8034 = self.pst; - var $8035 = self.val; - var self = $8034; - switch (self._) { - case 'Parser.State.new': - var $8037 = self.err; - var $8038 = self.nam; - var $8039 = self.ini; - var $8040 = self.idx; - var $8041 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($8027, $8037), $8038, $8039, $8040, $8041); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $8043 = self.err; - var _reply$63 = Parser$maybe$(Kind$Parser$text("!"), _reply$pst$57); - var self = _reply$63; - switch (self._) { - case 'Parser.Reply.error': - var $8045 = self.err; - var self = $8043; - switch (self._) { - case 'Maybe.some': - var $8047 = self.value; - var $8048 = Parser$Reply$error$(Parser$Error$combine$($8047, $8045)); - var $8046 = $8048; - break; - case 'Maybe.none': - var $8049 = Parser$Reply$error$($8045); - var $8046 = $8049; - break; - }; - var $8044 = $8046; - break; - case 'Parser.Reply.value': - var $8050 = self.pst; - var $8051 = self.val; - var self = $8050; - switch (self._) { - case 'Parser.State.new': - var $8053 = self.err; - var $8054 = self.nam; - var $8055 = self.ini; - var $8056 = self.idx; - var $8057 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($8043, $8053), $8054, $8055, $8056, $8057); - var self = _reply$pst$71; - switch (self._) { - case 'Parser.State.new': - var $8059 = self.err; - var _reply$77 = Parser$maybe$((_pst$77 => { - var self = _pst$77; - switch (self._) { - case 'Parser.State.new': - var $8062 = self.err; - var _reply$83 = Kind$Parser$text$("default", _pst$77); - var self = _reply$83; - switch (self._) { - case 'Parser.Reply.error': - var $8064 = self.err; - var self = $8062; - switch (self._) { - case 'Maybe.some': - var $8066 = self.value; - var $8067 = Parser$Reply$error$(Parser$Error$combine$($8066, $8064)); - var $8065 = $8067; - break; - case 'Maybe.none': - var $8068 = Parser$Reply$error$($8064); - var $8065 = $8068; - break; - }; - var $8063 = $8065; - break; - case 'Parser.Reply.value': - var $8069 = self.pst; - var self = $8069; - switch (self._) { - case 'Parser.State.new': - var $8071 = self.err; - var $8072 = self.nam; - var $8073 = self.ini; - var $8074 = self.idx; - var $8075 = self.str; - var _reply$pst$91 = Parser$State$new$(Parser$Error$maybe_combine$($8062, $8071), $8072, $8073, $8074, $8075); - var self = _reply$pst$91; - switch (self._) { - case 'Parser.State.new': - var $8077 = self.err; - var _reply$97 = Kind$Parser$term(_reply$pst$91); - var self = _reply$97; - switch (self._) { - case 'Parser.Reply.error': - var $8079 = self.err; - var self = $8077; - switch (self._) { - case 'Maybe.some': - var $8081 = self.value; - var $8082 = Parser$Reply$error$(Parser$Error$combine$($8081, $8079)); - var $8080 = $8082; - break; - case 'Maybe.none': - var $8083 = Parser$Reply$error$($8079); - var $8080 = $8083; - break; - }; - var $8078 = $8080; - break; - case 'Parser.Reply.value': - var $8084 = self.pst; - var $8085 = self.val; - var self = $8084; - switch (self._) { - case 'Parser.State.new': - var $8087 = self.err; - var $8088 = self.nam; - var $8089 = self.ini; - var $8090 = self.idx; - var $8091 = self.str; - var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($8077, $8087), $8088, $8089, $8090, $8091); - var $8092 = Parser$Reply$value$(_reply$pst$105, $8085); - var $8086 = $8092; - break; - }; - var $8078 = $8086; - break; - }; - var $8076 = $8078; - break; - }; - var $8070 = $8076; - break; - }; - var $8063 = $8070; - break; - }; - var $8061 = $8063; - break; - }; - return $8061; - }), _reply$pst$71); - var self = _reply$77; - switch (self._) { - case 'Parser.Reply.error': - var $8093 = self.err; - var self = $8059; - switch (self._) { - case 'Maybe.some': - var $8095 = self.value; - var $8096 = Parser$Reply$error$(Parser$Error$combine$($8095, $8093)); - var $8094 = $8096; - break; - case 'Maybe.none': - var $8097 = Parser$Reply$error$($8093); - var $8094 = $8097; - break; - }; - var $8060 = $8094; - break; - case 'Parser.Reply.value': - var $8098 = self.pst; - var $8099 = self.val; - var self = $8098; - switch (self._) { - case 'Parser.State.new': - var $8101 = self.err; - var $8102 = self.nam; - var $8103 = self.ini; - var $8104 = self.idx; - var $8105 = self.str; - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($8059, $8101), $8102, $8103, $8104, $8105); - var self = _reply$pst$85; - switch (self._) { - case 'Parser.State.new': - var $8107 = self.err; - var _reply$91 = Parser$maybe$((_pst$91 => { - var self = _pst$91; - switch (self._) { - case 'Parser.State.new': - var $8110 = self.err; - var _reply$97 = Kind$Parser$text$(":", _pst$91); - var self = _reply$97; - switch (self._) { - case 'Parser.Reply.error': - var $8112 = self.err; - var self = $8110; - switch (self._) { - case 'Maybe.some': - var $8114 = self.value; - var $8115 = Parser$Reply$error$(Parser$Error$combine$($8114, $8112)); - var $8113 = $8115; - break; - case 'Maybe.none': - var $8116 = Parser$Reply$error$($8112); - var $8113 = $8116; - break; - }; - var $8111 = $8113; - break; - case 'Parser.Reply.value': - var $8117 = self.pst; - var self = $8117; - switch (self._) { - case 'Parser.State.new': - var $8119 = self.err; - var $8120 = self.nam; - var $8121 = self.ini; - var $8122 = self.idx; - var $8123 = self.str; - var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($8110, $8119), $8120, $8121, $8122, $8123); - var $8124 = Parser$append_error$(Kind$Parser$term, "\u{a}Inside motive.", _reply$pst$105); - var $8118 = $8124; - break; - }; - var $8111 = $8118; - break; - }; - var $8109 = $8111; - break; - }; - return $8109; - }), _reply$pst$85); - var self = _reply$91; - switch (self._) { - case 'Parser.Reply.error': - var $8125 = self.err; - var self = $8107; - switch (self._) { - case 'Maybe.some': - var $8127 = self.value; - var $8128 = Parser$Reply$error$(Parser$Error$combine$($8127, $8125)); - var $8126 = $8128; - break; - case 'Maybe.none': - var $8129 = Parser$Reply$error$($8125); - var $8126 = $8129; - break; - }; - var $8108 = $8126; - break; - case 'Parser.Reply.value': - var $8130 = self.pst; - var $8131 = self.val; - var self = $8130; - switch (self._) { - case 'Parser.State.new': - var $8133 = self.err; - var $8134 = self.nam; - var $8135 = self.ini; - var $8136 = self.idx; - var $8137 = self.str; - var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($8107, $8133), $8134, $8135, $8136, $8137); - var self = $8131; - switch (self._) { - case 'Maybe.some': - var $8139 = self.value; - var $8140 = Maybe$some$($8139); - var _moti$100 = $8140; - break; - case 'Maybe.none': - var self = $8051; - switch (self._) { - case 'Maybe.none': - var $8142 = Maybe$some$(Kind$Term$hol$(Bits$e)); - var $8141 = $8142; - break; - case 'Maybe.some': - var $8143 = Maybe$none; - var $8141 = $8143; - break; - }; - var _moti$100 = $8141; - break; - }; - var $8138 = Parser$Reply$value$(_reply$pst$99, Kind$Parser$case$build$($8003, $8019, $8035, $8099, _moti$100)); - var $8132 = $8138; - break; - }; - var $8108 = $8132; - break; - }; - var $8106 = $8108; - break; - }; - var $8100 = $8106; - break; - }; - var $8060 = $8100; - break; - }; - var $8058 = $8060; - break; - }; - var $8052 = $8058; - break; - }; - var $8044 = $8052; - break; - }; - var $8042 = $8044; - break; - }; - var $8036 = $8042; - break; - }; - var $8028 = $8036; - break; - }; - var $8026 = $8028; - break; - }; - var $8020 = $8026; - break; - }; - var $8012 = $8020; - break; - }; - var $8010 = $8012; - break; - }; - var $8004 = $8010; - break; - }; - var $7916 = $8004; - break; - }; - var $7914 = $7916; - break; - }; - var $7908 = $7914; - break; - }; - var $7901 = $7908; - break; - }; - var $7899 = $7901; - break; - }; - return $7899; - })); - const Kind$Parser$without = Kind$Parser$block("without")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8145 = self.err; - var _reply$7 = Kind$Parser$text$("without ", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $8147 = self.err; - var self = $8145; - switch (self._) { - case 'Maybe.some': - var $8149 = self.value; - var $8150 = Parser$Reply$error$(Parser$Error$combine$($8149, $8147)); - var $8148 = $8150; - break; - case 'Maybe.none': - var $8151 = Parser$Reply$error$($8147); - var $8148 = $8151; - break; - }; - var $8146 = $8148; - break; - case 'Parser.Reply.value': - var $8152 = self.pst; - var self = $8152; - switch (self._) { - case 'Parser.State.new': - var $8154 = self.err; - var $8155 = self.nam; - var $8156 = self.ini; - var $8157 = self.idx; - var $8158 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8145, $8154), $8155, $8156, $8157, $8158); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $8160 = self.err; - var _reply$21 = Kind$Parser$name1$(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $8162 = self.err; - var self = $8160; - switch (self._) { - case 'Maybe.some': - var $8164 = self.value; - var $8165 = Parser$Reply$error$(Parser$Error$combine$($8164, $8162)); - var $8163 = $8165; - break; - case 'Maybe.none': - var $8166 = Parser$Reply$error$($8162); - var $8163 = $8166; - break; - }; - var $8161 = $8163; - break; - case 'Parser.Reply.value': - var $8167 = self.pst; - var $8168 = self.val; - var self = $8167; - switch (self._) { - case 'Parser.State.new': - var $8170 = self.err; - var $8171 = self.nam; - var $8172 = self.ini; - var $8173 = self.idx; - var $8174 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8160, $8170), $8171, $8172, $8173, $8174); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $8176 = self.err; - var _reply$35 = Kind$Parser$text$(":", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $8178 = self.err; - var self = $8176; - switch (self._) { - case 'Maybe.some': - var $8180 = self.value; - var $8181 = Parser$Reply$error$(Parser$Error$combine$($8180, $8178)); - var $8179 = $8181; - break; - case 'Maybe.none': - var $8182 = Parser$Reply$error$($8178); - var $8179 = $8182; - break; - }; - var $8177 = $8179; - break; - case 'Parser.Reply.value': - var $8183 = self.pst; - var self = $8183; - switch (self._) { - case 'Parser.State.new': - var $8185 = self.err; - var $8186 = self.nam; - var $8187 = self.ini; - var $8188 = self.idx; - var $8189 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8176, $8185), $8186, $8187, $8188, $8189); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $8191 = self.err; - var _reply$49 = Kind$Parser$term(_reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $8193 = self.err; - var self = $8191; - switch (self._) { - case 'Maybe.some': - var $8195 = self.value; - var $8196 = Parser$Reply$error$(Parser$Error$combine$($8195, $8193)); - var $8194 = $8196; - break; - case 'Maybe.none': - var $8197 = Parser$Reply$error$($8193); - var $8194 = $8197; - break; - }; - var $8192 = $8194; - break; - case 'Parser.Reply.value': - var $8198 = self.pst; - var $8199 = self.val; - var self = $8198; - switch (self._) { - case 'Parser.State.new': - var $8201 = self.err; - var $8202 = self.nam; - var $8203 = self.ini; - var $8204 = self.idx; - var $8205 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($8191, $8201), $8202, $8203, $8204, $8205); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $8207 = self.err; - var _reply$63 = Kind$Parser$term(_reply$pst$57); - var self = _reply$63; - switch (self._) { - case 'Parser.Reply.error': - var $8209 = self.err; - var self = $8207; - switch (self._) { - case 'Maybe.some': - var $8211 = self.value; - var $8212 = Parser$Reply$error$(Parser$Error$combine$($8211, $8209)); - var $8210 = $8212; - break; - case 'Maybe.none': - var $8213 = Parser$Reply$error$($8209); - var $8210 = $8213; - break; - }; - var $8208 = $8210; - break; - case 'Parser.Reply.value': - var $8214 = self.pst; - var $8215 = self.val; - var self = $8214; - switch (self._) { - case 'Parser.State.new': - var $8217 = self.err; - var $8218 = self.nam; - var $8219 = self.ini; - var $8220 = self.idx; - var $8221 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($8207, $8217), $8218, $8219, $8220, $8221); - var _term$72 = Kind$Term$ref$($8168); - var _term$73 = Kind$Term$app$(_term$72, Kind$Term$lam$("", (_x$73 => { - var $8223 = Kind$Term$hol$(Bits$e); - return $8223; - }))); - var _term$74 = Kind$Term$app$(_term$73, $8199); - var _term$75 = Kind$Term$app$(_term$74, Kind$Term$lam$($8168, (_x$75 => { - var $8224 = $8215; - return $8224; - }))); - var $8222 = Parser$Reply$value$(_reply$pst$71, _term$75); - var $8216 = $8222; - break; - }; - var $8208 = $8216; - break; - }; - var $8206 = $8208; - break; - }; - var $8200 = $8206; - break; - }; - var $8192 = $8200; - break; - }; - var $8190 = $8192; - break; - }; - var $8184 = $8190; - break; - }; - var $8177 = $8184; - break; - }; - var $8175 = $8177; - break; - }; - var $8169 = $8175; - break; - }; - var $8161 = $8169; - break; - }; - var $8159 = $8161; - break; - }; - var $8153 = $8159; - break; - }; - var $8146 = $8153; - break; - }; - var $8144 = $8146; - break; - }; - return $8144; - })); - - function Kind$Parser$switch$case$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8226 = self.err; - var _reply$7 = Kind$Parser$term(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $8228 = self.err; - var self = $8226; - switch (self._) { - case 'Maybe.some': - var $8230 = self.value; - var $8231 = Parser$Reply$error$(Parser$Error$combine$($8230, $8228)); - var $8229 = $8231; - break; - case 'Maybe.none': - var $8232 = Parser$Reply$error$($8228); - var $8229 = $8232; - break; - }; - var $8227 = $8229; - break; - case 'Parser.Reply.value': - var $8233 = self.pst; - var $8234 = self.val; - var self = $8233; - switch (self._) { - case 'Parser.State.new': - var $8236 = self.err; - var $8237 = self.nam; - var $8238 = self.ini; - var $8239 = self.idx; - var $8240 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8226, $8236), $8237, $8238, $8239, $8240); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $8242 = self.err; - var _reply$21 = Kind$Parser$text$(":", _reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $8244 = self.err; - var self = $8242; - switch (self._) { - case 'Maybe.some': - var $8246 = self.value; - var $8247 = Parser$Reply$error$(Parser$Error$combine$($8246, $8244)); - var $8245 = $8247; - break; - case 'Maybe.none': - var $8248 = Parser$Reply$error$($8244); - var $8245 = $8248; - break; - }; - var $8243 = $8245; - break; - case 'Parser.Reply.value': - var $8249 = self.pst; - var self = $8249; - switch (self._) { - case 'Parser.State.new': - var $8251 = self.err; - var $8252 = self.nam; - var $8253 = self.ini; - var $8254 = self.idx; - var $8255 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8242, $8251), $8252, $8253, $8254, $8255); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $8257 = self.err; - var _reply$35 = Kind$Parser$term(_reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $8259 = self.err; - var self = $8257; - switch (self._) { - case 'Maybe.some': - var $8261 = self.value; - var $8262 = Parser$Reply$error$(Parser$Error$combine$($8261, $8259)); - var $8260 = $8262; - break; - case 'Maybe.none': - var $8263 = Parser$Reply$error$($8259); - var $8260 = $8263; - break; - }; - var $8258 = $8260; - break; - case 'Parser.Reply.value': - var $8264 = self.pst; - var $8265 = self.val; - var self = $8264; - switch (self._) { - case 'Parser.State.new': - var $8267 = self.err; - var $8268 = self.nam; - var $8269 = self.ini; - var $8270 = self.idx; - var $8271 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8257, $8267), $8268, $8269, $8270, $8271); - var $8272 = Parser$Reply$value$(_reply$pst$43, Pair$new$($8234, $8265)); - var $8266 = $8272; - break; - }; - var $8258 = $8266; - break; - }; - var $8256 = $8258; - break; - }; - var $8250 = $8256; - break; - }; - var $8243 = $8250; - break; - }; - var $8241 = $8243; - break; - }; - var $8235 = $8241; - break; - }; - var $8227 = $8235; - break; - }; - var $8225 = $8227; - break; - }; - return $8225; - }; - const Kind$Parser$switch$case = x0 => Kind$Parser$switch$case$(x0); - const Kind$Parser$switch = Kind$Parser$block("switch")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8274 = self.err; - var _reply$7 = Kind$Parser$text$("switch", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $8276 = self.err; - var self = $8274; - switch (self._) { - case 'Maybe.some': - var $8278 = self.value; - var $8279 = Parser$Reply$error$(Parser$Error$combine$($8278, $8276)); - var $8277 = $8279; - break; - case 'Maybe.none': - var $8280 = Parser$Reply$error$($8276); - var $8277 = $8280; - break; - }; - var $8275 = $8277; - break; - case 'Parser.Reply.value': - var $8281 = self.pst; - var self = $8281; - switch (self._) { - case 'Parser.State.new': - var $8283 = self.err; - var $8284 = self.nam; - var $8285 = self.ini; - var $8286 = self.idx; - var $8287 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8274, $8283), $8284, $8285, $8286, $8287); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $8289 = self.err; - var _reply$21 = Kind$Parser$term(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $8291 = self.err; - var self = $8289; - switch (self._) { - case 'Maybe.some': - var $8293 = self.value; - var $8294 = Parser$Reply$error$(Parser$Error$combine$($8293, $8291)); - var $8292 = $8294; - break; - case 'Maybe.none': - var $8295 = Parser$Reply$error$($8291); - var $8292 = $8295; - break; - }; - var $8290 = $8292; - break; - case 'Parser.Reply.value': - var $8296 = self.pst; - var $8297 = self.val; - var self = $8296; - switch (self._) { - case 'Parser.State.new': - var $8299 = self.err; - var $8300 = self.nam; - var $8301 = self.ini; - var $8302 = self.idx; - var $8303 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8289, $8299), $8300, $8301, $8302, $8303); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $8305 = self.err; - var _reply$35 = Kind$Parser$items$("{", Kind$Parser$switch$case, "}")(_reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $8307 = self.err; - var self = $8305; - switch (self._) { - case 'Maybe.some': - var $8309 = self.value; - var $8310 = Parser$Reply$error$(Parser$Error$combine$($8309, $8307)); - var $8308 = $8310; - break; - case 'Maybe.none': - var $8311 = Parser$Reply$error$($8307); - var $8308 = $8311; - break; - }; - var $8306 = $8308; - break; - case 'Parser.Reply.value': - var $8312 = self.pst; - var $8313 = self.val; - var self = $8312; - switch (self._) { - case 'Parser.State.new': - var $8315 = self.err; - var $8316 = self.nam; - var $8317 = self.ini; - var $8318 = self.idx; - var $8319 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8305, $8315), $8316, $8317, $8318, $8319); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $8321 = self.err; - var _reply$49 = Kind$Parser$text$("default", _reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $8323 = self.err; - var self = $8321; - switch (self._) { - case 'Maybe.some': - var $8325 = self.value; - var $8326 = Parser$Reply$error$(Parser$Error$combine$($8325, $8323)); - var $8324 = $8326; - break; - case 'Maybe.none': - var $8327 = Parser$Reply$error$($8323); - var $8324 = $8327; - break; - }; - var $8322 = $8324; - break; - case 'Parser.Reply.value': - var $8328 = self.pst; - var self = $8328; - switch (self._) { - case 'Parser.State.new': - var $8330 = self.err; - var $8331 = self.nam; - var $8332 = self.ini; - var $8333 = self.idx; - var $8334 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($8321, $8330), $8331, $8332, $8333, $8334); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $8336 = self.err; - var _reply$63 = Kind$Parser$term(_reply$pst$57); - var self = _reply$63; - switch (self._) { - case 'Parser.Reply.error': - var $8338 = self.err; - var self = $8336; - switch (self._) { - case 'Maybe.some': - var $8340 = self.value; - var $8341 = Parser$Reply$error$(Parser$Error$combine$($8340, $8338)); - var $8339 = $8341; - break; - case 'Maybe.none': - var $8342 = Parser$Reply$error$($8338); - var $8339 = $8342; - break; - }; - var $8337 = $8339; - break; - case 'Parser.Reply.value': - var $8343 = self.pst; - var $8344 = self.val; - var self = $8343; - switch (self._) { - case 'Parser.State.new': - var $8346 = self.err; - var $8347 = self.nam; - var $8348 = self.ini; - var $8349 = self.idx; - var $8350 = self.str; - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($8336, $8346), $8347, $8348, $8349, $8350); - var _term$72 = List$fold$($8313, $8344, (_cse$72 => _rest$73 => { - var self = _cse$72; - switch (self._) { - case 'Pair.new': - var $8353 = self.fst; - var $8354 = self.snd; - var _term$76 = Kind$Term$app$($8297, $8353); - var _term$77 = Kind$Term$app$(_term$76, Kind$Term$lam$("", (_x$77 => { - var $8356 = Kind$Term$hol$(Bits$e); - return $8356; - }))); - var _term$78 = Kind$Term$app$(_term$77, $8354); - var _term$79 = Kind$Term$app$(_term$78, _rest$73); - var $8355 = _term$79; - var $8352 = $8355; - break; - }; - return $8352; - })); - var $8351 = Parser$Reply$value$(_reply$pst$71, _term$72); - var $8345 = $8351; - break; - }; - var $8337 = $8345; - break; - }; - var $8335 = $8337; - break; - }; - var $8329 = $8335; - break; - }; - var $8322 = $8329; - break; - }; - var $8320 = $8322; - break; - }; - var $8314 = $8320; - break; - }; - var $8306 = $8314; - break; - }; - var $8304 = $8306; - break; - }; - var $8298 = $8304; - break; - }; - var $8290 = $8298; - break; - }; - var $8288 = $8290; - break; - }; - var $8282 = $8288; - break; - }; - var $8275 = $8282; - break; - }; - var $8273 = $8275; - break; - }; - return $8273; - })); - - function Bits$tail$(_a$1) { - var self = _a$1; - switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { - case 'o': - var $8358 = self.slice(0, -1); - var $8359 = $8358; - var $8357 = $8359; - break; - case 'i': - var $8360 = self.slice(0, -1); - var $8361 = $8360; - var $8357 = $8361; - break; - case 'e': - var $8362 = Bits$e; - var $8357 = $8362; - break; - }; - return $8357; - }; - const Bits$tail = x0 => Bits$tail$(x0); - - function Bits$inc$(_a$1) { - var self = _a$1; - switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { - case 'o': - var $8364 = self.slice(0, -1); - var $8365 = ($8364 + '1'); - var $8363 = $8365; - break; - case 'i': - var $8366 = self.slice(0, -1); - var $8367 = (Bits$inc$($8366) + '0'); - var $8363 = $8367; - break; - case 'e': - var $8368 = (Bits$e + '1'); - var $8363 = $8368; - break; - }; - return $8363; - }; - const Bits$inc = x0 => Bits$inc$(x0); - const Nat$to_bits = a0 => (nat_to_bits(a0)); - - function Maybe$is_some$(_m$2) { - var self = _m$2; - switch (self._) { - case 'Maybe.none': - var $8370 = Bool$false; - var $8369 = $8370; - break; - case 'Maybe.some': - var $8371 = Bool$true; - var $8369 = $8371; - break; - }; - return $8369; - }; - const Maybe$is_some = x0 => Maybe$is_some$(x0); - - function Kind$Term$gol$(_name$1, _dref$2, _verb$3) { - var $8372 = ({ - _: 'Kind.Term.gol', - 'name': _name$1, - 'dref': _dref$2, - 'verb': _verb$3 - }); - return $8372; - }; - const Kind$Term$gol = x0 => x1 => x2 => Kind$Term$gol$(x0, x1, x2); - const Kind$Parser$goal = Kind$Parser$block("goal")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8374 = self.err; - var _reply$7 = Kind$Parser$text$("?", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $8376 = self.err; - var self = $8374; - switch (self._) { - case 'Maybe.some': - var $8378 = self.value; - var $8379 = Parser$Reply$error$(Parser$Error$combine$($8378, $8376)); - var $8377 = $8379; - break; - case 'Maybe.none': - var $8380 = Parser$Reply$error$($8376); - var $8377 = $8380; - break; - }; - var $8375 = $8377; - break; - case 'Parser.Reply.value': - var $8381 = self.pst; - var self = $8381; - switch (self._) { - case 'Parser.State.new': - var $8383 = self.err; - var $8384 = self.nam; - var $8385 = self.ini; - var $8386 = self.idx; - var $8387 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8374, $8383), $8384, $8385, $8386, $8387); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $8389 = self.err; - var _reply$21 = Kind$Parser$name$(_reply$pst$15); - var self = _reply$21; - switch (self._) { - case 'Parser.Reply.error': - var $8391 = self.err; - var self = $8389; - switch (self._) { - case 'Maybe.some': - var $8393 = self.value; - var $8394 = Parser$Reply$error$(Parser$Error$combine$($8393, $8391)); - var $8392 = $8394; - break; - case 'Maybe.none': - var $8395 = Parser$Reply$error$($8391); - var $8392 = $8395; - break; - }; - var $8390 = $8392; - break; - case 'Parser.Reply.value': - var $8396 = self.pst; - var $8397 = self.val; - var self = $8396; - switch (self._) { - case 'Parser.State.new': - var $8399 = self.err; - var $8400 = self.nam; - var $8401 = self.ini; - var $8402 = self.idx; - var $8403 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8389, $8399), $8400, $8401, $8402, $8403); - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $8405 = self.err; - var _reply$35 = Parser$many$((_pst$35 => { - var self = _pst$35; - switch (self._) { - case 'Parser.State.new': - var $8408 = self.err; - var _reply$41 = Kind$Parser$text$("-", _pst$35); - var self = _reply$41; - switch (self._) { - case 'Parser.Reply.error': - var $8410 = self.err; - var self = $8408; - switch (self._) { - case 'Maybe.some': - var $8412 = self.value; - var $8413 = Parser$Reply$error$(Parser$Error$combine$($8412, $8410)); - var $8411 = $8413; - break; - case 'Maybe.none': - var $8414 = Parser$Reply$error$($8410); - var $8411 = $8414; - break; - }; - var $8409 = $8411; - break; - case 'Parser.Reply.value': - var $8415 = self.pst; - var self = $8415; - switch (self._) { - case 'Parser.State.new': - var $8417 = self.err; - var $8418 = self.nam; - var $8419 = self.ini; - var $8420 = self.idx; - var $8421 = self.str; - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($8408, $8417), $8418, $8419, $8420, $8421); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $8423 = self.err; - var _reply$55 = Parser$nat$(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $8425 = self.err; - var self = $8423; - switch (self._) { - case 'Maybe.some': - var $8427 = self.value; - var $8428 = Parser$Reply$error$(Parser$Error$combine$($8427, $8425)); - var $8426 = $8428; - break; - case 'Maybe.none': - var $8429 = Parser$Reply$error$($8425); - var $8426 = $8429; - break; - }; - var $8424 = $8426; - break; - case 'Parser.Reply.value': - var $8430 = self.pst; - var $8431 = self.val; - var self = $8430; - switch (self._) { - case 'Parser.State.new': - var $8433 = self.err; - var $8434 = self.nam; - var $8435 = self.ini; - var $8436 = self.idx; - var $8437 = self.str; - var _reply$pst$63 = Parser$State$new$(Parser$Error$maybe_combine$($8423, $8433), $8434, $8435, $8436, $8437); - var _bits$64 = Bits$reverse$(Bits$tail$(Bits$reverse$((nat_to_bits($8431))))); - var $8438 = Parser$Reply$value$(_reply$pst$63, _bits$64); - var $8432 = $8438; - break; - }; - var $8424 = $8432; - break; - }; - var $8422 = $8424; - break; - }; - var $8416 = $8422; - break; - }; - var $8409 = $8416; - break; - }; - var $8407 = $8409; - break; - }; - return $8407; - }))(_reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $8439 = self.err; - var self = $8405; - switch (self._) { - case 'Maybe.some': - var $8441 = self.value; - var $8442 = Parser$Reply$error$(Parser$Error$combine$($8441, $8439)); - var $8440 = $8442; - break; - case 'Maybe.none': - var $8443 = Parser$Reply$error$($8439); - var $8440 = $8443; - break; - }; - var $8406 = $8440; - break; - case 'Parser.Reply.value': - var $8444 = self.pst; - var $8445 = self.val; - var self = $8444; - switch (self._) { - case 'Parser.State.new': - var $8447 = self.err; - var $8448 = self.nam; - var $8449 = self.ini; - var $8450 = self.idx; - var $8451 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8405, $8447), $8448, $8449, $8450, $8451); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $8453 = self.err; - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $8455 = self.err; - var _reply$54 = Parser$maybe$(Parser$text("-"), _reply$pst$43); - var self = _reply$54; - switch (self._) { - case 'Parser.Reply.error': - var $8457 = self.err; - var self = $8455; - switch (self._) { - case 'Maybe.some': - var $8459 = self.value; - var $8460 = Parser$Reply$error$(Parser$Error$combine$($8459, $8457)); - var $8458 = $8460; - break; - case 'Maybe.none': - var $8461 = Parser$Reply$error$($8457); - var $8458 = $8461; - break; - }; - var $8456 = $8458; - break; - case 'Parser.Reply.value': - var $8462 = self.pst; - var $8463 = self.val; - var self = $8462; - switch (self._) { - case 'Parser.State.new': - var $8465 = self.err; - var $8466 = self.nam; - var $8467 = self.ini; - var $8468 = self.idx; - var $8469 = self.str; - var _reply$pst$62 = Parser$State$new$(Parser$Error$maybe_combine$($8455, $8465), $8466, $8467, $8468, $8469); - var $8470 = Parser$Reply$value$(_reply$pst$62, Maybe$is_some$($8463)); - var $8464 = $8470; - break; - }; - var $8456 = $8464; - break; - }; - var _reply$49 = $8456; - break; - }; - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $8471 = self.err; - var self = $8453; - switch (self._) { - case 'Maybe.some': - var $8473 = self.value; - var $8474 = Parser$Reply$error$(Parser$Error$combine$($8473, $8471)); - var $8472 = $8474; - break; - case 'Maybe.none': - var $8475 = Parser$Reply$error$($8471); - var $8472 = $8475; - break; - }; - var $8454 = $8472; - break; - case 'Parser.Reply.value': - var $8476 = self.pst; - var $8477 = self.val; - var self = $8476; - switch (self._) { - case 'Parser.State.new': - var $8479 = self.err; - var $8480 = self.nam; - var $8481 = self.ini; - var $8482 = self.idx; - var $8483 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($8453, $8479), $8480, $8481, $8482, $8483); - var $8484 = Parser$Reply$value$(_reply$pst$57, Kind$Term$gol$($8397, $8445, $8477)); - var $8478 = $8484; - break; - }; - var $8454 = $8478; - break; - }; - var $8452 = $8454; - break; - }; - var $8446 = $8452; - break; - }; - var $8406 = $8446; - break; - }; - var $8404 = $8406; - break; - }; - var $8398 = $8404; - break; - }; - var $8390 = $8398; - break; - }; - var $8388 = $8390; - break; - }; - var $8382 = $8388; - break; - }; - var $8375 = $8382; - break; - }; - var $8373 = $8375; - break; - }; - return $8373; - })); - const Kind$Parser$hole = Kind$Parser$block("hole")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8486 = self.err; - var _reply$7 = Kind$Parser$text$("_", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $8488 = self.err; - var self = $8486; - switch (self._) { - case 'Maybe.some': - var $8490 = self.value; - var $8491 = Parser$Reply$error$(Parser$Error$combine$($8490, $8488)); - var $8489 = $8491; - break; - case 'Maybe.none': - var $8492 = Parser$Reply$error$($8488); - var $8489 = $8492; - break; - }; - var $8487 = $8489; - break; - case 'Parser.Reply.value': - var $8493 = self.pst; - var self = $8493; - switch (self._) { - case 'Parser.State.new': - var $8495 = self.err; - var $8496 = self.nam; - var $8497 = self.ini; - var $8498 = self.idx; - var $8499 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8486, $8495), $8496, $8497, $8498, $8499); - var $8500 = Parser$Reply$value$(_reply$pst$15, Kind$Term$hol$(Bits$e)); - var $8494 = $8500; - break; - }; - var $8487 = $8494; - break; - }; - var $8485 = $8487; - break; - }; - return $8485; - })); - - function Kind$Parser$float$sign$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8502 = self.nam; - var $8503 = self.ini; - var $8504 = self.idx; - var $8505 = self.str; - var self = $8505; - if (self.length === 0) { - var $8507 = Parser$Reply$fail$($8502, $8503, $8504, "Expected \'+\' or \'-\'."); - var $8506 = $8507; - } else { - var $8508 = self.charCodeAt(0); - var $8509 = self.slice(1); - var self = (($8508 === 43) || ($8508 === 45)); - if (self) { - var $8511 = Parser$Reply$value$(_pst$1, $8508); - var $8510 = $8511; - } else { - var $8512 = Parser$Reply$fail$($8502, $8503, $8504, "Expected \'+\' ou \'-\'."); - var $8510 = $8512; - }; - var $8506 = $8510; - }; - var $8501 = $8506; - break; - }; - return $8501; - }; - const Kind$Parser$float$sign = x0 => Kind$Parser$float$sign$(x0); - - function List$any$(_cond$2, _list$3) { - var List$any$ = (_cond$2, _list$3) => ({ - ctr: 'TCO', - arg: [_cond$2, _list$3] - }); - var List$any = _cond$2 => _list$3 => List$any$(_cond$2, _list$3); - var arg = [_cond$2, _list$3]; - while (true) { - let [_cond$2, _list$3] = arg; - var R = (() => { - var self = _list$3; - switch (self._) { - case 'List.cons': - var $8513 = self.head; - var $8514 = self.tail; - var self = _cond$2($8513); - if (self) { - var $8516 = Bool$true; - var $8515 = $8516; - } else { - var $8517 = List$any$(_cond$2, $8514); - var $8515 = $8517; - }; - return $8515; - case 'List.nil': - var $8518 = Bool$false; - return $8518; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const List$any = x0 => x1 => List$any$(x0, x1); - - function Kind$Parser$float$str_digit$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8520 = self.err; - var $8521 = self.nam; - var $8522 = self.ini; - var $8523 = self.idx; - var $8524 = self.str; - var self = $8524; - if (self.length === 0) { - var $8526 = Parser$Reply$fail$($8521, $8522, $8523, "Not a digit."); - var $8525 = $8526; - } else { - var $8527 = self.charCodeAt(0); - var $8528 = self.slice(1); - var _digits$9 = List$cons$(48, List$cons$(49, List$cons$(50, List$cons$(51, List$cons$(52, List$cons$(52, List$cons$(53, List$cons$(54, List$cons$(55, List$cons$(56, List$cons$(57, List$nil))))))))))); - var _pst$10 = Parser$State$new$($8520, $8521, $8522, Nat$succ$($8523), $8528); - var self = List$any$(a1 => ($8527 === a1), _digits$9); - if (self) { - var $8530 = Parser$Reply$value$(_pst$10, $8527); - var $8529 = $8530; - } else { - var $8531 = Parser$Reply$fail$($8521, $8522, $8523, "Not a digit."); - var $8529 = $8531; - }; - var $8525 = $8529; - }; - var $8519 = $8525; - break; - }; - return $8519; - }; - const Kind$Parser$float$str_digit = x0 => Kind$Parser$float$str_digit$(x0); - - function String$from_list$(_xs$1) { - var self = _xs$1; - switch (self._) { - case 'List.cons': - var $8533 = self.head; - var $8534 = self.tail; - var $8535 = String$cons$($8533, String$from_list$($8534)); - var $8532 = $8535; - break; - case 'List.nil': - var $8536 = String$nil; - var $8532 = $8536; - break; - }; - return $8532; - }; - const String$from_list = x0 => String$from_list$(x0); - const Kind$Parser$float$64 = Kind$Parser$block("float")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8538 = self.err; - var _reply$7 = Parser$maybe$(Kind$Parser$float$sign, _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $8540 = self.err; - var self = $8538; - switch (self._) { - case 'Maybe.some': - var $8542 = self.value; - var $8543 = Parser$Reply$error$(Parser$Error$combine$($8542, $8540)); - var $8541 = $8543; - break; - case 'Maybe.none': - var $8544 = Parser$Reply$error$($8540); - var $8541 = $8544; - break; - }; - var $8539 = $8541; - break; - case 'Parser.Reply.value': - var $8545 = self.pst; - var $8546 = self.val; - var self = $8545; - switch (self._) { - case 'Parser.State.new': - var $8548 = self.err; - var $8549 = self.nam; - var $8550 = self.ini; - var $8551 = self.idx; - var $8552 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8538, $8548), $8549, $8550, $8551, $8552); - var _sign$16 = Maybe$default$($8546, 43); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $8554 = self.err; - var _reply$22 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$15); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $8556 = self.err; - var self = $8554; - switch (self._) { - case 'Maybe.some': - var $8558 = self.value; - var $8559 = Parser$Reply$error$(Parser$Error$combine$($8558, $8556)); - var $8557 = $8559; - break; - case 'Maybe.none': - var $8560 = Parser$Reply$error$($8556); - var $8557 = $8560; - break; - }; - var $8555 = $8557; - break; - case 'Parser.Reply.value': - var $8561 = self.pst; - var $8562 = self.val; - var self = $8561; - switch (self._) { - case 'Parser.State.new': - var $8564 = self.err; - var $8565 = self.nam; - var $8566 = self.ini; - var $8567 = self.idx; - var $8568 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8554, $8564), $8565, $8566, $8567, $8568); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $8570 = self.err; - var _reply$36 = Parser$text$(".", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $8572 = self.err; - var self = $8570; - switch (self._) { - case 'Maybe.some': - var $8574 = self.value; - var $8575 = Parser$Reply$error$(Parser$Error$combine$($8574, $8572)); - var $8573 = $8575; - break; - case 'Maybe.none': - var $8576 = Parser$Reply$error$($8572); - var $8573 = $8576; - break; - }; - var $8571 = $8573; - break; - case 'Parser.Reply.value': - var $8577 = self.pst; - var self = $8577; - switch (self._) { - case 'Parser.State.new': - var $8579 = self.err; - var $8580 = self.nam; - var $8581 = self.ini; - var $8582 = self.idx; - var $8583 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8570, $8579), $8580, $8581, $8582, $8583); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $8585 = self.err; - var _reply$50 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $8587 = self.err; - var self = $8585; - switch (self._) { - case 'Maybe.some': - var $8589 = self.value; - var $8590 = Parser$Reply$error$(Parser$Error$combine$($8589, $8587)); - var $8588 = $8590; - break; - case 'Maybe.none': - var $8591 = Parser$Reply$error$($8587); - var $8588 = $8591; - break; - }; - var $8586 = $8588; - break; - case 'Parser.Reply.value': - var $8592 = self.pst; - var $8593 = self.val; - var self = $8592; - switch (self._) { - case 'Parser.State.new': - var $8595 = self.err; - var $8596 = self.nam; - var $8597 = self.ini; - var $8598 = self.idx; - var $8599 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8585, $8595), $8596, $8597, $8598, $8599); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $8601 = self.err; - var _reply$64 = Parser$text$("#64", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $8603 = self.err; - var self = $8601; - switch (self._) { - case 'Maybe.some': - var $8605 = self.value; - var $8606 = Parser$Reply$error$(Parser$Error$combine$($8605, $8603)); - var $8604 = $8606; - break; - case 'Maybe.none': - var $8607 = Parser$Reply$error$($8603); - var $8604 = $8607; - break; - }; - var $8602 = $8604; - break; - case 'Parser.Reply.value': - var $8608 = self.pst; - var self = $8608; - switch (self._) { - case 'Parser.State.new': - var $8610 = self.err; - var $8611 = self.nam; - var $8612 = self.ini; - var $8613 = self.idx; - var $8614 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8601, $8610), $8611, $8612, $8613, $8614); - var _float_str$73 = Kind$Term$str$((String$cons$(_sign$16, String$from_list$($8562)) + ("." + String$from_list$($8593)))); - var _conv$74 = Kind$Term$ref$("F64.parse"); - var _term$75 = Kind$Term$app$(_conv$74, _float_str$73); - var $8615 = Parser$Reply$value$(_reply$pst$72, _term$75); - var $8609 = $8615; - break; - }; - var $8602 = $8609; - break; - }; - var $8600 = $8602; - break; - }; - var $8594 = $8600; - break; - }; - var $8586 = $8594; - break; - }; - var $8584 = $8586; - break; - }; - var $8578 = $8584; - break; - }; - var $8571 = $8578; - break; - }; - var $8569 = $8571; - break; - }; - var $8563 = $8569; - break; - }; - var $8555 = $8563; - break; - }; - var $8553 = $8555; - break; - }; - var $8547 = $8553; - break; - }; - var $8539 = $8547; - break; - }; - var $8537 = $8539; - break; - }; - return $8537; - })); - const Kind$Parser$float$32 = Kind$Parser$block("float")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8617 = self.err; - var _reply$7 = Parser$maybe$(Kind$Parser$float$sign, _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $8619 = self.err; - var self = $8617; - switch (self._) { - case 'Maybe.some': - var $8621 = self.value; - var $8622 = Parser$Reply$error$(Parser$Error$combine$($8621, $8619)); - var $8620 = $8622; - break; - case 'Maybe.none': - var $8623 = Parser$Reply$error$($8619); - var $8620 = $8623; - break; - }; - var $8618 = $8620; - break; - case 'Parser.Reply.value': - var $8624 = self.pst; - var $8625 = self.val; - var self = $8624; - switch (self._) { - case 'Parser.State.new': - var $8627 = self.err; - var $8628 = self.nam; - var $8629 = self.ini; - var $8630 = self.idx; - var $8631 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8617, $8627), $8628, $8629, $8630, $8631); - var _sign$16 = Maybe$default$($8625, 43); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $8633 = self.err; - var _reply$22 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$15); - var self = _reply$22; - switch (self._) { - case 'Parser.Reply.error': - var $8635 = self.err; - var self = $8633; - switch (self._) { - case 'Maybe.some': - var $8637 = self.value; - var $8638 = Parser$Reply$error$(Parser$Error$combine$($8637, $8635)); - var $8636 = $8638; - break; - case 'Maybe.none': - var $8639 = Parser$Reply$error$($8635); - var $8636 = $8639; - break; - }; - var $8634 = $8636; - break; - case 'Parser.Reply.value': - var $8640 = self.pst; - var $8641 = self.val; - var self = $8640; - switch (self._) { - case 'Parser.State.new': - var $8643 = self.err; - var $8644 = self.nam; - var $8645 = self.ini; - var $8646 = self.idx; - var $8647 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8633, $8643), $8644, $8645, $8646, $8647); - var self = _reply$pst$30; - switch (self._) { - case 'Parser.State.new': - var $8649 = self.err; - var _reply$36 = Parser$text$(".", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $8651 = self.err; - var self = $8649; - switch (self._) { - case 'Maybe.some': - var $8653 = self.value; - var $8654 = Parser$Reply$error$(Parser$Error$combine$($8653, $8651)); - var $8652 = $8654; - break; - case 'Maybe.none': - var $8655 = Parser$Reply$error$($8651); - var $8652 = $8655; - break; - }; - var $8650 = $8652; - break; - case 'Parser.Reply.value': - var $8656 = self.pst; - var self = $8656; - switch (self._) { - case 'Parser.State.new': - var $8658 = self.err; - var $8659 = self.nam; - var $8660 = self.ini; - var $8661 = self.idx; - var $8662 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8649, $8658), $8659, $8660, $8661, $8662); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $8664 = self.err; - var _reply$50 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $8666 = self.err; - var self = $8664; - switch (self._) { - case 'Maybe.some': - var $8668 = self.value; - var $8669 = Parser$Reply$error$(Parser$Error$combine$($8668, $8666)); - var $8667 = $8669; - break; - case 'Maybe.none': - var $8670 = Parser$Reply$error$($8666); - var $8667 = $8670; - break; - }; - var $8665 = $8667; - break; - case 'Parser.Reply.value': - var $8671 = self.pst; - var $8672 = self.val; - var self = $8671; - switch (self._) { - case 'Parser.State.new': - var $8674 = self.err; - var $8675 = self.nam; - var $8676 = self.ini; - var $8677 = self.idx; - var $8678 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8664, $8674), $8675, $8676, $8677, $8678); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $8680 = self.err; - var _reply$64 = Parser$text$("#32", _reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $8682 = self.err; - var self = $8680; - switch (self._) { - case 'Maybe.some': - var $8684 = self.value; - var $8685 = Parser$Reply$error$(Parser$Error$combine$($8684, $8682)); - var $8683 = $8685; - break; - case 'Maybe.none': - var $8686 = Parser$Reply$error$($8682); - var $8683 = $8686; - break; - }; - var $8681 = $8683; - break; - case 'Parser.Reply.value': - var $8687 = self.pst; - var self = $8687; - switch (self._) { - case 'Parser.State.new': - var $8689 = self.err; - var $8690 = self.nam; - var $8691 = self.ini; - var $8692 = self.idx; - var $8693 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8680, $8689), $8690, $8691, $8692, $8693); - var _float_str$73 = Kind$Term$str$((String$cons$(_sign$16, String$from_list$($8641)) + ("." + String$from_list$($8672)))); - var _conv$74 = Kind$Term$ref$("F32.parse"); - var _term$75 = Kind$Term$app$(_conv$74, _float_str$73); - var $8694 = Parser$Reply$value$(_reply$pst$72, _term$75); - var $8688 = $8694; - break; - }; - var $8681 = $8688; - break; - }; - var $8679 = $8681; - break; - }; - var $8673 = $8679; - break; - }; - var $8665 = $8673; - break; - }; - var $8663 = $8665; - break; - }; - var $8657 = $8663; - break; - }; - var $8650 = $8657; - break; - }; - var $8648 = $8650; - break; - }; - var $8642 = $8648; - break; - }; - var $8634 = $8642; - break; - }; - var $8632 = $8634; - break; - }; - var $8626 = $8632; - break; - }; - var $8618 = $8626; - break; - }; - var $8616 = $8618; - break; - }; - return $8616; - })); + const Kind$Term$show$as_nat$go = x0 => Kind$Term$show$as_nat$go$(x0); function Either$(_A$1, _B$2) { - var $8695 = null; - return $8695; + var $2484 = null; + return $2484; }; const Either = x0 => x1 => Either$(x0, x1); function Either$left$(_value$3) { - var $8696 = ({ + var $2485 = ({ _: 'Either.left', 'value': _value$3 }); - return $8696; + return $2485; }; const Either$left = x0 => Either$left$(x0); function Either$right$(_value$3) { - var $8697 = ({ + var $2486 = ({ _: 'Either.right', 'value': _value$3 }); - return $8697; + return $2486; }; const Either$right = x0 => Either$right$(x0); @@ -27301,20 +9212,20 @@ module.exports = (function() { var R = (() => { var self = _m$2; if (self === 0n) { - var $8698 = Either$left$(_n$1); - return $8698; + var $2487 = Either$left$(_n$1); + return $2487; } else { - var $8699 = (self - 1n); + var $2488 = (self - 1n); var self = _n$1; if (self === 0n) { - var $8701 = Either$right$(Nat$succ$($8699)); - var $8700 = $8701; + var $2490 = Either$right$(Nat$succ$($2488)); + var $2489 = $2490; } else { - var $8702 = (self - 1n); - var $8703 = Nat$sub_rem$($8702, $8699); - var $8700 = $8703; + var $2491 = (self - 1n); + var $2492 = Nat$sub_rem$($2491, $2488); + var $2489 = $2492; }; - return $8700; + return $2489; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -27336,12 +9247,12 @@ module.exports = (function() { var self = Nat$sub_rem$(_n$1, _m$2); switch (self._) { case 'Either.left': - var $8704 = self.value; - var $8705 = Nat$div_mod$go$($8704, _m$2, Nat$succ$(_d$3)); - return $8705; + var $2493 = self.value; + var $2494 = Nat$div_mod$go$($2493, _m$2, Nat$succ$(_d$3)); + return $2494; case 'Either.right': - var $8706 = Pair$new$(_d$3, _n$1); - return $8706; + var $2495 = Pair$new$(_d$3, _n$1); + return $2495; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -27372,18 +9283,18 @@ module.exports = (function() { })); switch (self._) { case 'Pair.new': - var $8707 = self.fst; - var $8708 = self.snd; - var self = $8707; + var $2496 = self.fst; + var $2497 = self.snd; + var self = $2496; if (self === 0n) { - var $8710 = List$cons$($8708, _res$3); - var $8709 = $8710; + var $2499 = List$cons$($2497, _res$3); + var $2498 = $2499; } else { - var $8711 = (self - 1n); - var $8712 = Nat$to_base$go$(_base$1, $8707, List$cons$($8708, _res$3)); - var $8709 = $8712; + var $2500 = (self - 1n); + var $2501 = Nat$to_base$go$(_base$1, $2496, List$cons$($2497, _res$3)); + var $2498 = $2501; }; - return $8709; + return $2498; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -27393,8 +9304,8 @@ module.exports = (function() { const Nat$to_base$go = x0 => x1 => x2 => Nat$to_base$go$(x0, x1, x2); function Nat$to_base$(_base$1, _nat$2) { - var $8713 = Nat$to_base$go$(_base$1, _nat$2, List$nil); - return $8713; + var $2502 = Nat$to_base$go$(_base$1, _nat$2, List$nil); + return $2502; }; const Nat$to_base = x0 => x1 => Nat$to_base$(x0, x1); @@ -27410,20 +9321,20 @@ module.exports = (function() { var R = (() => { var self = _m$2; if (self === 0n) { - var $8714 = Nat$mod$go$(_n$1, _r$3, _m$2); - return $8714; + var $2503 = Nat$mod$go$(_n$1, _r$3, _m$2); + return $2503; } else { - var $8715 = (self - 1n); + var $2504 = (self - 1n); var self = _n$1; if (self === 0n) { - var $8717 = _r$3; - var $8716 = $8717; + var $2506 = _r$3; + var $2505 = $2506; } else { - var $8718 = (self - 1n); - var $8719 = Nat$mod$go$($8718, $8715, Nat$succ$(_r$3)); - var $8716 = $8719; + var $2507 = (self - 1n); + var $2508 = Nat$mod$go$($2507, $2504, Nat$succ$(_r$3)); + var $2505 = $2508; }; - return $8716; + return $2505; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -27447,21 +9358,21 @@ module.exports = (function() { var self = _list$3; switch (self._) { case 'List.cons': - var $8720 = self.head; - var $8721 = self.tail; + var $2509 = self.head; + var $2510 = self.tail; var self = _index$2; if (self === 0n) { - var $8723 = Maybe$some$($8720); - var $8722 = $8723; + var $2512 = Maybe$some$($2509); + var $2511 = $2512; } else { - var $8724 = (self - 1n); - var $8725 = List$at$($8724, $8721); - var $8722 = $8725; + var $2513 = (self - 1n); + var $2514 = List$at$($2513, $2510); + var $2511 = $2514; }; - return $8722; + return $2511; case 'List.nil': - var $8726 = Maybe$none; - return $8726; + var $2515 = Maybe$none; + return $2515; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -27478,129 +9389,21990 @@ module.exports = (function() { var self = List$at$(_m$3, _base64$4); switch (self._) { case 'Maybe.some': - var $8729 = self.value; - var $8730 = $8729; - var $8728 = $8730; + var $2518 = self.value; + var $2519 = $2518; + var $2517 = $2519; break; case 'Maybe.none': - var $8731 = 35; - var $8728 = $8731; + var $2520 = 35; + var $2517 = $2520; break; }; - var $8727 = $8728; + var $2516 = $2517; } else { - var $8732 = 35; - var $8727 = $8732; + var $2521 = 35; + var $2516 = $2521; }; - return $8727; + return $2516; }; const Nat$show_digit = x0 => x1 => Nat$show_digit$(x0, x1); function Nat$to_string_base$(_base$1, _nat$2) { - var $8733 = List$fold$(Nat$to_base$(_base$1, _nat$2), String$nil, (_n$3 => _str$4 => { - var $8734 = String$cons$(Nat$show_digit$(_base$1, _n$3), _str$4); - return $8734; + var $2522 = List$fold$(Nat$to_base$(_base$1, _nat$2), String$nil, (_n$3 => _str$4 => { + var $2523 = String$cons$(Nat$show_digit$(_base$1, _n$3), _str$4); + return $2523; })); - return $8733; + return $2522; }; const Nat$to_string_base = x0 => x1 => Nat$to_string_base$(x0, x1); function Nat$show$(_n$1) { - var $8735 = Nat$to_string_base$(10n, _n$1); - return $8735; + var $2524 = Nat$to_string_base$(10n, _n$1); + return $2524; }; const Nat$show = x0 => Nat$show$(x0); + function Kind$Term$show$as_nat$(_term$1) { + var $2525 = Maybe$mapped$(Kind$Term$show$as_nat$go$(_term$1), Nat$show); + return $2525; + }; + const Kind$Term$show$as_nat = x0 => Kind$Term$show$as_nat$(x0); + + function Kind$Name$show$(_name$1) { + var $2526 = _name$1; + return $2526; + }; + const Kind$Name$show = x0 => Kind$Name$show$(x0); + const Bits$concat = a0 => a1 => (a1 + a0); + + function Kind$Path$Builder$to_bits$(_path$1) { + var $2527 = _path$1(Bits$e); + return $2527; + }; + const Kind$Path$Builder$to_bits = x0 => Kind$Path$Builder$to_bits$(x0); + + function Bits$to_nat$(_b$1) { + var self = _b$1; + switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { + case 'o': + var $2529 = self.slice(0, -1); + var $2530 = (2n * Bits$to_nat$($2529)); + var $2528 = $2530; + break; + case 'i': + var $2531 = self.slice(0, -1); + var $2532 = Nat$succ$((2n * Bits$to_nat$($2531))); + var $2528 = $2532; + break; + case 'e': + var $2533 = 0n; + var $2528 = $2533; + break; + }; + return $2528; + }; + const Bits$to_nat = x0 => Bits$to_nat$(x0); + + function String$flatten$go$(_xs$1, _res$2) { + var String$flatten$go$ = (_xs$1, _res$2) => ({ + ctr: 'TCO', + arg: [_xs$1, _res$2] + }); + var String$flatten$go = _xs$1 => _res$2 => String$flatten$go$(_xs$1, _res$2); + var arg = [_xs$1, _res$2]; + while (true) { + let [_xs$1, _res$2] = arg; + var R = (() => { + var self = _xs$1; + switch (self._) { + case 'List.cons': + var $2534 = self.head; + var $2535 = self.tail; + var $2536 = String$flatten$go$($2535, (_res$2 + $2534)); + return $2536; + case 'List.nil': + var $2537 = _res$2; + return $2537; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const String$flatten$go = x0 => x1 => String$flatten$go$(x0, x1); + + function String$flatten$(_xs$1) { + var $2538 = String$flatten$go$(_xs$1, ""); + return $2538; + }; + const String$flatten = x0 => String$flatten$(x0); + + function Kind$Code$color$(_col$1, _str$2) { + var $2539 = String$cons$(27, ("[" + (_col$1 + ("m" + (_str$2 + String$cons$(27, "[0m")))))); + return $2539; + }; + const Kind$Code$color = x0 => x1 => Kind$Code$color$(x0, x1); + + function Kind$Path$Builder$o$(_path$1, _x$2) { + var $2540 = _path$1((_x$2 + '0')); + return $2540; + }; + const Kind$Path$Builder$o = x0 => x1 => Kind$Path$Builder$o$(x0, x1); + + function Kind$Path$Maybe$Builder$o$(_path$1) { + var $2541 = Maybe$mapped$(_path$1, Kind$Path$Builder$o); + return $2541; + }; + const Kind$Path$Maybe$Builder$o = x0 => Kind$Path$Maybe$Builder$o$(x0); + + function Kind$Term$var$(_name$1, _indx$2) { + var $2542 = ({ + _: 'Kind.Term.var', + 'name': _name$1, + 'indx': _indx$2 + }); + return $2542; + }; + const Kind$Term$var = x0 => x1 => Kind$Term$var$(x0, x1); + + function Kind$Path$Builder$i$(_path$1, _x$2) { + var $2543 = _path$1((_x$2 + '1')); + return $2543; + }; + const Kind$Path$Builder$i = x0 => x1 => Kind$Path$Builder$i$(x0, x1); + + function Kind$Path$Maybe$Builder$i$(_path$1) { + var $2544 = Maybe$mapped$(_path$1, Kind$Path$Builder$i); + return $2544; + }; + const Kind$Path$Maybe$Builder$i = x0 => Kind$Path$Maybe$Builder$i$(x0); + const List$length = a0 => (list_length(a0)); + + function Kind$Term$show$is_ref$(_term$1, _name$2) { + var self = _term$1; + switch (self._) { + case 'Kind.Term.ref': + var $2546 = self.name; + var $2547 = (_name$2 === $2546); + var $2545 = $2547; + break; + case 'Kind.Term.var': + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.app': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + case 'Kind.Term.ori': + var $2548 = Bool$false; + var $2545 = $2548; + break; + }; + return $2545; + }; + const Kind$Term$show$is_ref = x0 => x1 => Kind$Term$show$is_ref$(x0, x1); + + function String$join$go$(_sep$1, _list$2, _fst$3) { + var self = _list$2; + switch (self._) { + case 'List.cons': + var $2550 = self.head; + var $2551 = self.tail; + var $2552 = String$flatten$(List$cons$((() => { + var self = _fst$3; + if (self) { + var $2553 = ""; + return $2553; + } else { + var $2554 = _sep$1; + return $2554; + }; + })(), List$cons$($2550, List$cons$(String$join$go$(_sep$1, $2551, Bool$false), List$nil)))); + var $2549 = $2552; + break; + case 'List.nil': + var $2555 = ""; + var $2549 = $2555; + break; + }; + return $2549; + }; + const String$join$go = x0 => x1 => x2 => String$join$go$(x0, x1, x2); + + function String$join$(_sep$1, _list$2) { + var $2556 = String$join$go$(_sep$1, _list$2, Bool$true); + return $2556; + }; + const String$join = x0 => x1 => String$join$(x0, x1); + + function Kind$Term$show$app$done$(_term$1, _path$2, _args$3) { + var _arity$4 = (list_length(_args$3)); + var self = (Kind$Term$show$is_ref$(_term$1, "Equal") && (_arity$4 === 3n)); + if (self) { + var _func$5 = Kind$Term$show$go$(_term$1, _path$2); + var _eq_lft$6 = Maybe$default$(List$at$(1n, _args$3), "?"); + var _eq_rgt$7 = Maybe$default$(List$at$(2n, _args$3), "?"); + var $2558 = String$flatten$(List$cons$(_eq_lft$6, List$cons$(" == ", List$cons$(_eq_rgt$7, List$nil)))); + var $2557 = $2558; + } else { + var _func$5 = Kind$Term$show$go$(_term$1, _path$2); + var self = _func$5; + if (self.length === 0) { + var $2560 = Bool$false; + var _wrap$6 = $2560; + } else { + var $2561 = self.charCodeAt(0); + var $2562 = self.slice(1); + var $2563 = ($2561 === 40); + var _wrap$6 = $2563; + }; + var _args$7 = String$join$(",", _args$3); + var self = _wrap$6; + if (self) { + var $2564 = String$flatten$(List$cons$("(", List$cons$(_func$5, List$cons$(")", List$nil)))); + var _func$8 = $2564; + } else { + var $2565 = _func$5; + var _func$8 = $2565; + }; + var $2559 = String$flatten$(List$cons$(_func$8, List$cons$("(", List$cons$(_args$7, List$cons$(")", List$nil))))); + var $2557 = $2559; + }; + return $2557; + }; + const Kind$Term$show$app$done = x0 => x1 => x2 => Kind$Term$show$app$done$(x0, x1, x2); + + function Kind$Term$show$app$(_term$1, _path$2, _args$3) { + var Kind$Term$show$app$ = (_term$1, _path$2, _args$3) => ({ + ctr: 'TCO', + arg: [_term$1, _path$2, _args$3] + }); + var Kind$Term$show$app = _term$1 => _path$2 => _args$3 => Kind$Term$show$app$(_term$1, _path$2, _args$3); + var arg = [_term$1, _path$2, _args$3]; + while (true) { + let [_term$1, _path$2, _args$3] = arg; + var R = (() => { + var self = _term$1; + switch (self._) { + case 'Kind.Term.app': + var $2566 = self.func; + var $2567 = self.argm; + var $2568 = Kind$Term$show$app$($2566, Kind$Path$Maybe$Builder$o$(_path$2), List$cons$(Kind$Term$show$go$($2567, Kind$Path$Maybe$Builder$i$(_path$2)), _args$3)); + return $2568; + case 'Kind.Term.ori': + var $2569 = self.expr; + var $2570 = Kind$Term$show$app$($2569, _path$2, _args$3); + return $2570; + case 'Kind.Term.var': + case 'Kind.Term.ref': + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + var $2571 = Kind$Term$show$app$done$(_term$1, _path$2, _args$3); + return $2571; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const Kind$Term$show$app = x0 => x1 => x2 => Kind$Term$show$app$(x0, x1, x2); + const Kind$Code$backslash = 92; + + function Word$to_bits$(_a$2) { + var self = _a$2; + switch (self._) { + case 'Word.o': + var $2573 = self.pred; + var $2574 = (Word$to_bits$($2573) + '0'); + var $2572 = $2574; + break; + case 'Word.i': + var $2575 = self.pred; + var $2576 = (Word$to_bits$($2575) + '1'); + var $2572 = $2576; + break; + case 'Word.e': + var $2577 = Bits$e; + var $2572 = $2577; + break; + }; + return $2572; + }; + const Word$to_bits = x0 => Word$to_bits$(x0); + + function U16$show_hex$(_a$1) { + var self = _a$1; + switch ('u16') { + case 'u16': + var $2579 = u16_to_word(self); + var $2580 = Nat$to_string_base$(16n, Bits$to_nat$(Word$to_bits$($2579))); + var $2578 = $2580; + break; + }; + return $2578; + }; + const U16$show_hex = x0 => U16$show_hex$(x0); + + function Kind$Code$escape$char$(_chr$1) { + var self = (_chr$1 === Kind$Code$backslash); + if (self) { + var $2582 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); + var $2581 = $2582; + } else { + var self = (_chr$1 === 34); + if (self) { + var $2584 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); + var $2583 = $2584; + } else { + var self = (_chr$1 === 39); + if (self) { + var $2586 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); + var $2585 = $2586; + } else { + var self = U16$btw$(32, _chr$1, 126); + if (self) { + var $2588 = String$cons$(_chr$1, String$nil); + var $2587 = $2588; + } else { + var $2589 = (String$cons$(Kind$Code$backslash, String$nil) + ("u{" + (U16$show_hex$(_chr$1) + "}"))); + var $2587 = $2589; + }; + var $2585 = $2587; + }; + var $2583 = $2585; + }; + var $2581 = $2583; + }; + return $2581; + }; + const Kind$Code$escape$char = x0 => Kind$Code$escape$char$(x0); + + function String$reverse$go$(_xs$1, _res$2) { + var String$reverse$go$ = (_xs$1, _res$2) => ({ + ctr: 'TCO', + arg: [_xs$1, _res$2] + }); + var String$reverse$go = _xs$1 => _res$2 => String$reverse$go$(_xs$1, _res$2); + var arg = [_xs$1, _res$2]; + while (true) { + let [_xs$1, _res$2] = arg; + var R = (() => { + var self = _xs$1; + if (self.length === 0) { + var $2590 = _res$2; + return $2590; + } else { + var $2591 = self.charCodeAt(0); + var $2592 = self.slice(1); + var $2593 = String$reverse$go$($2592, String$cons$($2591, _res$2)); + return $2593; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const String$reverse$go = x0 => x1 => String$reverse$go$(x0, x1); + + function String$reverse$(_xs$1) { + var $2594 = String$reverse$go$(_xs$1, String$nil); + return $2594; + }; + const String$reverse = x0 => String$reverse$(x0); + + function Kind$Code$escape$go$(_str$1, _result$2) { + var Kind$Code$escape$go$ = (_str$1, _result$2) => ({ + ctr: 'TCO', + arg: [_str$1, _result$2] + }); + var Kind$Code$escape$go = _str$1 => _result$2 => Kind$Code$escape$go$(_str$1, _result$2); + var arg = [_str$1, _result$2]; + while (true) { + let [_str$1, _result$2] = arg; + var R = (() => { + var self = _str$1; + if (self.length === 0) { + var $2595 = String$reverse$(_result$2); + return $2595; + } else { + var $2596 = self.charCodeAt(0); + var $2597 = self.slice(1); + var $2598 = Kind$Code$escape$go$($2597, (String$reverse$(Kind$Code$escape$char$($2596)) + _result$2)); + return $2598; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const Kind$Code$escape$go = x0 => x1 => Kind$Code$escape$go$(x0, x1); + + function Kind$Code$escape$(_str$1) { + var $2599 = Kind$Code$escape$go$(_str$1, ""); + return $2599; + }; + const Kind$Code$escape = x0 => Kind$Code$escape$(x0); + + function BitsMap$to_list$(_xs$2) { + var $2600 = List$reverse$(BitsMap$to_list$go$(_xs$2, Bits$e, List$nil)); + return $2600; + }; + const BitsMap$to_list = x0 => BitsMap$to_list$(x0); + + function Kind$Term$show$go$(_term$1, _path$2) { + var self = Kind$Term$show$as_nat$(_term$1); + switch (self._) { + case 'Maybe.some': + var $2602 = self.value; + var $2603 = $2602; + var $2601 = $2603; + break; + case 'Maybe.none': + var self = _term$1; + switch (self._) { + case 'Kind.Term.var': + var $2605 = self.name; + var $2606 = Kind$Name$show$($2605); + var $2604 = $2606; + break; + case 'Kind.Term.ref': + var $2607 = self.name; + var _name$4 = Kind$Name$show$($2607); + var self = _path$2; + switch (self._) { + case 'Maybe.some': + var $2609 = self.value; + var _path_val$6 = ((Bits$e + '1') + Kind$Path$Builder$to_bits$($2609)); + var _path_str$7 = Nat$show$(Bits$to_nat$(_path_val$6)); + var $2610 = String$flatten$(List$cons$(_name$4, List$cons$(Kind$Code$color$("2", ("-" + _path_str$7)), List$nil))); + var $2608 = $2610; + break; + case 'Maybe.none': + var $2611 = _name$4; + var $2608 = $2611; + break; + }; + var $2604 = $2608; + break; + case 'Kind.Term.all': + var $2612 = self.eras; + var $2613 = self.self; + var $2614 = self.name; + var $2615 = self.xtyp; + var $2616 = self.body; + var _eras$8 = $2612; + var _self$9 = Kind$Name$show$($2613); + var _name$10 = Kind$Name$show$($2614); + var _type$11 = Kind$Term$show$go$($2615, Kind$Path$Maybe$Builder$o$(_path$2)); + var self = _eras$8; + if (self) { + var $2618 = "<"; + var _open$12 = $2618; + } else { + var $2619 = "("; + var _open$12 = $2619; + }; + var self = _eras$8; + if (self) { + var $2620 = ">"; + var _clos$13 = $2620; + } else { + var $2621 = ")"; + var _clos$13 = $2621; + }; + var _body$14 = Kind$Term$show$go$($2616(Kind$Term$var$($2613, 0n))(Kind$Term$var$($2614, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); + var $2617 = String$flatten$(List$cons$(_self$9, List$cons$(_open$12, List$cons$(_name$10, List$cons$(":", List$cons$(_type$11, List$cons$(_clos$13, List$cons$(" ", List$cons$(_body$14, List$nil))))))))); + var $2604 = $2617; + break; + case 'Kind.Term.lam': + var $2622 = self.name; + var $2623 = self.body; + var _name$5 = Kind$Name$show$($2622); + var _body$6 = Kind$Term$show$go$($2623(Kind$Term$var$($2622, 0n)), Kind$Path$Maybe$Builder$o$(_path$2)); + var $2624 = String$flatten$(List$cons$("(", List$cons$(_name$5, List$cons$(") ", List$cons$(_body$6, List$nil))))); + var $2604 = $2624; + break; + case 'Kind.Term.let': + var $2625 = self.name; + var $2626 = self.expr; + var $2627 = self.body; + var _name$6 = Kind$Name$show$($2625); + var _expr$7 = Kind$Term$show$go$($2626, Kind$Path$Maybe$Builder$o$(_path$2)); + var _body$8 = Kind$Term$show$go$($2627(Kind$Term$var$($2625, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); + var $2628 = String$flatten$(List$cons$("let ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); + var $2604 = $2628; + break; + case 'Kind.Term.def': + var $2629 = self.name; + var $2630 = self.expr; + var $2631 = self.body; + var _name$6 = Kind$Name$show$($2629); + var _expr$7 = Kind$Term$show$go$($2630, Kind$Path$Maybe$Builder$o$(_path$2)); + var _body$8 = Kind$Term$show$go$($2631(Kind$Term$var$($2629, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); + var $2632 = String$flatten$(List$cons$("def ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); + var $2604 = $2632; + break; + case 'Kind.Term.ann': + var $2633 = self.term; + var $2634 = self.type; + var _term$6 = Kind$Term$show$go$($2633, Kind$Path$Maybe$Builder$o$(_path$2)); + var _type$7 = Kind$Term$show$go$($2634, Kind$Path$Maybe$Builder$i$(_path$2)); + var $2635 = String$flatten$(List$cons$(_term$6, List$cons$("::", List$cons$(_type$7, List$nil)))); + var $2604 = $2635; + break; + case 'Kind.Term.gol': + var $2636 = self.name; + var _name$6 = Kind$Name$show$($2636); + var $2637 = String$flatten$(List$cons$("?", List$cons$(_name$6, List$nil))); + var $2604 = $2637; + break; + case 'Kind.Term.nat': + var $2638 = self.natx; + var $2639 = String$flatten$(List$cons$(Nat$show$($2638), List$nil)); + var $2604 = $2639; + break; + case 'Kind.Term.chr': + var $2640 = self.chrx; + var $2641 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($2640), List$cons$("\'", List$nil)))); + var $2604 = $2641; + break; + case 'Kind.Term.str': + var $2642 = self.strx; + var $2643 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($2642), List$cons$("\"", List$nil)))); + var $2604 = $2643; + break; + case 'Kind.Term.num': + var $2644 = self.sign; + var $2645 = self.numb; + var $2646 = self.frac; + var $2647 = String$flatten$(List$cons$((() => { + var self = $2644; + switch (self._) { + case 'Maybe.some': + var $2648 = self.value; + var self = $2648; + if (self) { + var $2650 = "+"; + var $2649 = $2650; + } else { + var $2651 = "-"; + var $2649 = $2651; + }; + return $2649; + case 'Maybe.none': + var $2652 = ""; + return $2652; + }; + })(), List$cons$(Nat$show$($2645), List$cons$((() => { + var self = $2646; + switch (self._) { + case 'Maybe.some': + var $2653 = self.value; + var $2654 = ("." + Nat$show$($2653)); + return $2654; + case 'Maybe.none': + var $2655 = ""; + return $2655; + }; + })(), List$nil)))); + var $2604 = $2647; + break; + case 'Kind.Term.cse': + var $2656 = self.expr; + var $2657 = self.name; + var $2658 = self.with; + var $2659 = self.cses; + var $2660 = self.moti; + var _expr$9 = Kind$Term$show$go$($2656, Kind$Path$Maybe$Builder$o$(_path$2)); + var _name$10 = Kind$Name$show$($2657); + var _wyth$11 = String$join$("; ", List$mapped$($2658, (_with_var$11 => { + var self = _with_var$11; + switch (self._) { + case 'Kind.Ann.new': + var $2663 = self.name; + var $2664 = self.type; + var self = $2664; + switch (self._) { + case 'Maybe.some': + var $2666 = self.value; + var $2667 = ($2663 + (": " + Kind$Term$show$go$($2666, Maybe$none))); + var $2665 = $2667; + break; + case 'Maybe.none': + var $2668 = $2663; + var $2665 = $2668; + break; + }; + var $2662 = $2665; + break; + }; + return $2662; + }))); + var _cses$12 = BitsMap$to_list$($2659); + var _cses$13 = String$join$("", List$mapped$(_cses$12, (_x$13 => { + var _name$14 = Kind$Name$from_bits$(Pair$fst$(_x$13)); + var _term$15 = Kind$Term$show$go$(Pair$snd$(_x$13), Maybe$none); + var $2669 = String$flatten$(List$cons$(_name$14, List$cons$(": ", List$cons$(_term$15, List$cons$(", ", List$nil))))); + return $2669; + }))); + var self = $2660; + switch (self._) { + case 'Maybe.some': + var $2670 = self.value; + var $2671 = String$flatten$(List$cons$(": ", List$cons$(Kind$Term$show$go$($2670, Maybe$none), List$nil))); + var _moti$14 = $2671; + break; + case 'Maybe.none': + var $2672 = ""; + var _moti$14 = $2672; + break; + }; + var $2661 = String$flatten$(List$cons$("case ", List$cons$(_expr$9, List$cons$(" as ", List$cons$(_name$10, List$cons$(_wyth$11, List$cons$(" { ", List$cons$(_cses$13, List$cons$("}", List$cons$(_moti$14, List$nil)))))))))); + var $2604 = $2661; + break; + case 'Kind.Term.new': + var $2673 = self.args; + var _args$4 = List$fold$($2673, (_path$4 => { + var $2675 = List$nil; + return $2675; + }), (_arg$4 => _res$5 => _path$6 => { + var $2676 = List$cons$(Kind$Term$show$go$(_arg$4, _path$6), _res$5(Kind$Path$Maybe$Builder$o$(_path$6))); + return $2676; + }))(_path$2); + var $2674 = String$flatten$(List$cons$("{", List$cons$(String$join$(",", _args$4), List$cons$("}", List$nil)))); + var $2604 = $2674; + break; + case 'Kind.Term.get': + var $2677 = self.expr; + var $2678 = self.fkey; + var _expr$5 = Kind$Term$show$go$($2677, Kind$Path$Maybe$Builder$o$(_path$2)); + var $2679 = String$flatten$(List$cons$(_expr$5, List$cons$("@", List$cons$($2678, List$nil)))); + var $2604 = $2679; + break; + case 'Kind.Term.set': + var $2680 = self.expr; + var $2681 = self.fkey; + var $2682 = self.fval; + var _expr$6 = Kind$Term$show$go$($2680, Kind$Path$Maybe$Builder$o$(_path$2)); + var _fval$7 = Kind$Term$show$go$($2682, Kind$Path$Maybe$Builder$i$(_path$2)); + var $2683 = String$flatten$(List$cons$(_expr$6, List$cons$("@", List$cons$($2681, List$cons$(" <- ", List$cons$(_fval$7, List$nil)))))); + var $2604 = $2683; + break; + case 'Kind.Term.ope': + var $2684 = self.name; + var $2685 = self.arg0; + var $2686 = self.arg1; + var _arg0$6 = Kind$Term$show$go$($2685, Kind$Path$Maybe$Builder$o$(_path$2)); + var _arg1$7 = Kind$Term$show$go$($2686, Kind$Path$Maybe$Builder$i$(_path$2)); + var $2687 = String$flatten$(List$cons$("(", List$cons$(_arg0$6, List$cons$(" ", List$cons$($2684, List$cons$(" ", List$cons$(_arg1$7, List$cons$(")", List$nil)))))))); + var $2604 = $2687; + break; + case 'Kind.Term.ori': + var $2688 = self.expr; + var $2689 = Kind$Term$show$go$($2688, _path$2); + var $2604 = $2689; + break; + case 'Kind.Term.typ': + var $2690 = "Type"; + var $2604 = $2690; + break; + case 'Kind.Term.app': + var $2691 = Kind$Term$show$app$(_term$1, _path$2, List$nil); + var $2604 = $2691; + break; + case 'Kind.Term.hol': + var $2692 = "_"; + var $2604 = $2692; + break; + }; + var $2601 = $2604; + break; + }; + return $2601; + }; + const Kind$Term$show$go = x0 => x1 => Kind$Term$show$go$(x0, x1); + + function Kind$Term$show$(_term$1) { + var $2693 = Kind$Term$show$go$(_term$1, Maybe$none); + return $2693; + }; + const Kind$Term$show = x0 => Kind$Term$show$(x0); + + function Kind$Parser$lambda$get_type$(_types$1) { + var self = _types$1; + switch (self._) { + case 'List.cons': + var $2695 = self.head; + var $2696 = self.tail; + var self = $2695; + switch (self._) { + case 'Maybe.some': + var $2698 = self.value; + var $2699 = $2698; + var _type$4 = $2699; + break; + case 'Maybe.none': + var $2700 = Kind$Term$hol$(Bits$e); + var _type$4 = $2700; + break; + }; + var $2697 = ((console.log(("TYPEZIN " + Kind$Term$show$(_type$4))), (_$5 => { + var $2701 = Kind$Term$all$(Bool$false, "", "", _type$4, (_s$6 => _x$7 => { + var $2702 = Kind$Parser$lambda$get_type$($2696); + return $2702; + })); + return $2701; + })())); + var $2694 = $2697; + break; + case 'List.nil': + var $2703 = Kind$Term$hol$(Bits$e); + var $2694 = $2703; + break; + }; + return $2694; + }; + const Kind$Parser$lambda$get_type = x0 => Kind$Parser$lambda$get_type$(x0); + const Kind$Parser$lambda$2 = Kind$Parser$block("lambda")(((console.log("ENTROU AQUI"), (_$1 => _pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $2705 = self.err; + var _reply$8 = Kind$Parser$items$("(", Kind$Parser$lambda$name_term, ")")(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $2707 = self.err; + var self = $2705; + switch (self._) { + case 'Maybe.some': + var $2709 = self.value; + var $2710 = Parser$Reply$error$(Parser$Error$combine$($2709, $2707)); + var $2708 = $2710; + break; + case 'Maybe.none': + var $2711 = Parser$Reply$error$($2707); + var $2708 = $2711; + break; + }; + var $2706 = $2708; + break; + case 'Parser.Reply.value': + var $2712 = self.pst; + var $2713 = self.val; + var self = $2712; + switch (self._) { + case 'Parser.State.new': + var $2715 = self.err; + var $2716 = self.nam; + var $2717 = self.ini; + var $2718 = self.idx; + var $2719 = self.str; + var $2720 = ((console.log(("FALTANDO " + $2719)), (_$16 => { + var $2721 = ((console.log(("VALUE " + $2716)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($2705, $2715), $2716, $2717, $2718, $2719); + var $2722 = ((console.log("1"), (_$19 => _pst$20 => { + var self = _pst$20; + switch (self._) { + case 'Parser.State.new': + var $2724 = self.err; + var _reply$26 = Parser$avoiding$(Kind$Parser$text_now$("("), Kind$Parser$term, _pst$20); + var self = _reply$26; + switch (self._) { + case 'Parser.Reply.error': + var $2726 = self.err; + var self = $2724; + switch (self._) { + case 'Maybe.some': + var $2728 = self.value; + var $2729 = Parser$Reply$error$(Parser$Error$combine$($2728, $2726)); + var $2727 = $2729; + break; + case 'Maybe.none': + var $2730 = Parser$Reply$error$($2726); + var $2727 = $2730; + break; + }; + var $2725 = $2727; + break; + case 'Parser.Reply.value': + var $2731 = self.pst; + var $2732 = self.val; + var self = $2731; + switch (self._) { + case 'Parser.State.new': + var $2734 = self.err; + var $2735 = self.nam; + var $2736 = self.ini; + var $2737 = self.idx; + var $2738 = self.str; + var $2739 = ((console.log(("FALTANDO " + $2738)), (_$34 => { + var $2740 = ((console.log(("VALUE " + $2735)), (_$35 => { + var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($2724, $2734), $2735, $2736, $2737, $2738); + var $2741 = ((console.log("2"), (_$37 => { + var self = List$unzip$($2713); + switch (self._) { + case 'Pair.new': + var $2743 = self.fst; + var $2744 = self.snd; + var $2745 = ((console.log("3"), (_$40 => { + var _lamb$41 = Kind$Parser$lambda$make$start$($2743, $2732); + var $2746 = ((console.log(("LAMBDA " + Kind$Term$show$(_lamb$41))), (_$42 => { + var _type$43 = Kind$Parser$lambda$get_type$($2744); + var $2747 = ((console.log(("TYPE " + Kind$Term$show$(_type$43))), (_$44 => { + var _term$45 = Kind$Term$ann$(Bool$false, _lamb$41, _type$43); + var $2748 = ((console.log(("TERM " + Kind$Term$show$(_term$45))), (_$46 => _pst$47 => { + var $2749 = Parser$Reply$value$(_pst$47, _term$45); + return $2749; + })())); + return $2748; + })())); + return $2747; + })())); + return $2746; + })())); + var $2742 = $2745; + break; + }; + return $2742; + })()))(_reply$pst$36); + return $2741; + })())); + return $2740; + })())); + var $2733 = $2739; + break; + }; + var $2725 = $2733; + break; + }; + var $2723 = $2725; + break; + }; + return $2723; + })()))(_reply$pst$18); + return $2722; + })())); + return $2721; + })())); + var $2714 = $2720; + break; + }; + var $2706 = $2714; + break; + }; + var $2704 = $2706; + break; + }; + return $2704; + })()))); + const Kind$Parser$lambda = Kind$Parser$block("term")(Parser$choice(List$cons$(Kind$Parser$lambda$1, List$cons$(Kind$Parser$lambda$2, List$nil)))); + const Kind$Parser$lambda$erased = Kind$Parser$block("lambda")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $2751 = self.err; + var _reply$7 = Kind$Parser$items$("<", Kind$Parser$name1, ">")(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $2753 = self.err; + var self = $2751; + switch (self._) { + case 'Maybe.some': + var $2755 = self.value; + var $2756 = Parser$Reply$error$(Parser$Error$combine$($2755, $2753)); + var $2754 = $2756; + break; + case 'Maybe.none': + var $2757 = Parser$Reply$error$($2753); + var $2754 = $2757; + break; + }; + var $2752 = $2754; + break; + case 'Parser.Reply.value': + var $2758 = self.pst; + var $2759 = self.val; + var self = $2758; + switch (self._) { + case 'Parser.State.new': + var $2761 = self.err; + var $2762 = self.nam; + var $2763 = self.ini; + var $2764 = self.idx; + var $2765 = self.str; + var $2766 = ((console.log(("FALTANDO " + $2765)), (_$15 => { + var $2767 = ((console.log(("VALUE " + $2762)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2751, $2761), $2762, $2763, $2764, $2765); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $2769 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $2771 = self.err; + var self = $2769; + switch (self._) { + case 'Maybe.some': + var $2773 = self.value; + var $2774 = Parser$Reply$error$(Parser$Error$combine$($2773, $2771)); + var $2772 = $2774; + break; + case 'Maybe.none': + var $2775 = Parser$Reply$error$($2771); + var $2772 = $2775; + break; + }; + var $2770 = $2772; + break; + case 'Parser.Reply.value': + var $2776 = self.pst; + var $2777 = self.val; + var self = $2776; + switch (self._) { + case 'Parser.State.new': + var $2779 = self.err; + var $2780 = self.nam; + var $2781 = self.ini; + var $2782 = self.idx; + var $2783 = self.str; + var $2784 = ((console.log(("FALTANDO " + $2783)), (_$31 => { + var $2785 = ((console.log(("VALUE " + $2780)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($2769, $2779), $2780, $2781, $2782, $2783); + var $2786 = Parser$Reply$value$(_reply$pst$33, Kind$Parser$lambda$make$start$($2759, $2777)); + return $2786; + })())); + return $2785; + })())); + var $2778 = $2784; + break; + }; + var $2770 = $2778; + break; + }; + var $2768 = $2770; + break; + }; + return $2768; + })())); + return $2767; + })())); + var $2760 = $2766; + break; + }; + var $2752 = $2760; + break; + }; + var $2750 = $2752; + break; + }; + return $2750; + })); + const Kind$Parser$parenthesis = Kind$Parser$block("parenthesis")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $2788 = self.err; + var _reply$7 = Kind$Parser$text$("(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $2790 = self.err; + var self = $2788; + switch (self._) { + case 'Maybe.some': + var $2792 = self.value; + var $2793 = Parser$Reply$error$(Parser$Error$combine$($2792, $2790)); + var $2791 = $2793; + break; + case 'Maybe.none': + var $2794 = Parser$Reply$error$($2790); + var $2791 = $2794; + break; + }; + var $2789 = $2791; + break; + case 'Parser.Reply.value': + var $2795 = self.pst; + var self = $2795; + switch (self._) { + case 'Parser.State.new': + var $2797 = self.err; + var $2798 = self.nam; + var $2799 = self.ini; + var $2800 = self.idx; + var $2801 = self.str; + var $2802 = ((console.log(("FALTANDO " + $2801)), (_$15 => { + var $2803 = ((console.log(("VALUE " + $2798)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2788, $2797), $2798, $2799, $2800, $2801); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $2805 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $2807 = self.err; + var self = $2805; + switch (self._) { + case 'Maybe.some': + var $2809 = self.value; + var $2810 = Parser$Reply$error$(Parser$Error$combine$($2809, $2807)); + var $2808 = $2810; + break; + case 'Maybe.none': + var $2811 = Parser$Reply$error$($2807); + var $2808 = $2811; + break; + }; + var $2806 = $2808; + break; + case 'Parser.Reply.value': + var $2812 = self.pst; + var $2813 = self.val; + var self = $2812; + switch (self._) { + case 'Parser.State.new': + var $2815 = self.err; + var $2816 = self.nam; + var $2817 = self.ini; + var $2818 = self.idx; + var $2819 = self.str; + var $2820 = ((console.log(("FALTANDO " + $2819)), (_$31 => { + var $2821 = ((console.log(("VALUE " + $2816)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($2805, $2815), $2816, $2817, $2818, $2819); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $2823 = self.err; + var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $2825 = self.err; + var self = $2823; + switch (self._) { + case 'Maybe.some': + var $2827 = self.value; + var $2828 = Parser$Reply$error$(Parser$Error$combine$($2827, $2825)); + var $2826 = $2828; + break; + case 'Maybe.none': + var $2829 = Parser$Reply$error$($2825); + var $2826 = $2829; + break; + }; + var $2824 = $2826; + break; + case 'Parser.Reply.value': + var $2830 = self.pst; + var self = $2830; + switch (self._) { + case 'Parser.State.new': + var $2832 = self.err; + var $2833 = self.nam; + var $2834 = self.ini; + var $2835 = self.idx; + var $2836 = self.str; + var $2837 = ((console.log(("FALTANDO " + $2836)), (_$47 => { + var $2838 = ((console.log(("VALUE " + $2833)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($2823, $2832), $2833, $2834, $2835, $2836); + var $2839 = Parser$Reply$value$(_reply$pst$49, $2813); + return $2839; + })())); + return $2838; + })())); + var $2831 = $2837; + break; + }; + var $2824 = $2831; + break; + }; + var $2822 = $2824; + break; + }; + return $2822; + })())); + return $2821; + })())); + var $2814 = $2820; + break; + }; + var $2806 = $2814; + break; + }; + var $2804 = $2806; + break; + }; + return $2804; + })())); + return $2803; + })())); + var $2796 = $2802; + break; + }; + var $2789 = $2796; + break; + }; + var $2787 = $2789; + break; + }; + return $2787; + })); + + function Kind$Parser$letforrange$(_typename$1, _body$2) { + var $2840 = Kind$Parser$block("let-for")((_pst$3 => { + var self = _pst$3; + switch (self._) { + case 'Parser.State.new': + var $2842 = self.err; + var _reply$9 = Kind$Parser$text$("let ", _pst$3); + var self = _reply$9; + switch (self._) { + case 'Parser.Reply.error': + var $2844 = self.err; + var self = $2842; + switch (self._) { + case 'Maybe.some': + var $2846 = self.value; + var $2847 = Parser$Reply$error$(Parser$Error$combine$($2846, $2844)); + var $2845 = $2847; + break; + case 'Maybe.none': + var $2848 = Parser$Reply$error$($2844); + var $2845 = $2848; + break; + }; + var $2843 = $2845; + break; + case 'Parser.Reply.value': + var $2849 = self.pst; + var self = $2849; + switch (self._) { + case 'Parser.State.new': + var $2851 = self.err; + var $2852 = self.nam; + var $2853 = self.ini; + var $2854 = self.idx; + var $2855 = self.str; + var $2856 = ((console.log(("FALTANDO " + $2855)), (_$17 => { + var $2857 = ((console.log(("VALUE " + $2852)), (_$18 => { + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($2842, $2851), $2852, $2853, $2854, $2855); + var self = _reply$pst$19; + switch (self._) { + case 'Parser.State.new': + var $2859 = self.err; + var _reply$25 = Kind$Parser$name1$(_reply$pst$19); + var self = _reply$25; + switch (self._) { + case 'Parser.Reply.error': + var $2861 = self.err; + var self = $2859; + switch (self._) { + case 'Maybe.some': + var $2863 = self.value; + var $2864 = Parser$Reply$error$(Parser$Error$combine$($2863, $2861)); + var $2862 = $2864; + break; + case 'Maybe.none': + var $2865 = Parser$Reply$error$($2861); + var $2862 = $2865; + break; + }; + var $2860 = $2862; + break; + case 'Parser.Reply.value': + var $2866 = self.pst; + var $2867 = self.val; + var self = $2866; + switch (self._) { + case 'Parser.State.new': + var $2869 = self.err; + var $2870 = self.nam; + var $2871 = self.ini; + var $2872 = self.idx; + var $2873 = self.str; + var $2874 = ((console.log(("FALTANDO " + $2873)), (_$33 => { + var $2875 = ((console.log(("VALUE " + $2870)), (_$34 => { + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($2859, $2869), $2870, $2871, $2872, $2873); + var self = _reply$pst$35; + switch (self._) { + case 'Parser.State.new': + var $2877 = self.err; + var _reply$41 = Kind$Parser$text$("=", _reply$pst$35); + var self = _reply$41; + switch (self._) { + case 'Parser.Reply.error': + var $2879 = self.err; + var self = $2877; + switch (self._) { + case 'Maybe.some': + var $2881 = self.value; + var $2882 = Parser$Reply$error$(Parser$Error$combine$($2881, $2879)); + var $2880 = $2882; + break; + case 'Maybe.none': + var $2883 = Parser$Reply$error$($2879); + var $2880 = $2883; + break; + }; + var $2878 = $2880; + break; + case 'Parser.Reply.value': + var $2884 = self.pst; + var self = $2884; + switch (self._) { + case 'Parser.State.new': + var $2886 = self.err; + var $2887 = self.nam; + var $2888 = self.ini; + var $2889 = self.idx; + var $2890 = self.str; + var $2891 = ((console.log(("FALTANDO " + $2890)), (_$49 => { + var $2892 = ((console.log(("VALUE " + $2887)), (_$50 => { + var _reply$pst$51 = Parser$State$new$(Parser$Error$maybe_combine$($2877, $2886), $2887, $2888, $2889, $2890); + var self = _reply$pst$51; + switch (self._) { + case 'Parser.State.new': + var $2894 = self.err; + var _reply$57 = Kind$Parser$text$("for ", _reply$pst$51); + var self = _reply$57; + switch (self._) { + case 'Parser.Reply.error': + var $2896 = self.err; + var self = $2894; + switch (self._) { + case 'Maybe.some': + var $2898 = self.value; + var $2899 = Parser$Reply$error$(Parser$Error$combine$($2898, $2896)); + var $2897 = $2899; + break; + case 'Maybe.none': + var $2900 = Parser$Reply$error$($2896); + var $2897 = $2900; + break; + }; + var $2895 = $2897; + break; + case 'Parser.Reply.value': + var $2901 = self.pst; + var self = $2901; + switch (self._) { + case 'Parser.State.new': + var $2903 = self.err; + var $2904 = self.nam; + var $2905 = self.ini; + var $2906 = self.idx; + var $2907 = self.str; + var $2908 = ((console.log(("FALTANDO " + $2907)), (_$65 => { + var $2909 = ((console.log(("VALUE " + $2904)), (_$66 => { + var _reply$pst$67 = Parser$State$new$(Parser$Error$maybe_combine$($2894, $2903), $2904, $2905, $2906, $2907); + var self = _reply$pst$67; + switch (self._) { + case 'Parser.State.new': + var $2911 = self.err; + var _reply$73 = Kind$Parser$name1$(_reply$pst$67); + var self = _reply$73; + switch (self._) { + case 'Parser.Reply.error': + var $2913 = self.err; + var self = $2911; + switch (self._) { + case 'Maybe.some': + var $2915 = self.value; + var $2916 = Parser$Reply$error$(Parser$Error$combine$($2915, $2913)); + var $2914 = $2916; + break; + case 'Maybe.none': + var $2917 = Parser$Reply$error$($2913); + var $2914 = $2917; + break; + }; + var $2912 = $2914; + break; + case 'Parser.Reply.value': + var $2918 = self.pst; + var $2919 = self.val; + var self = $2918; + switch (self._) { + case 'Parser.State.new': + var $2921 = self.err; + var $2922 = self.nam; + var $2923 = self.ini; + var $2924 = self.idx; + var $2925 = self.str; + var $2926 = ((console.log(("FALTANDO " + $2925)), (_$81 => { + var $2927 = ((console.log(("VALUE " + $2922)), (_$82 => { + var _reply$pst$83 = Parser$State$new$(Parser$Error$maybe_combine$($2911, $2921), $2922, $2923, $2924, $2925); + var self = _reply$pst$83; + switch (self._) { + case 'Parser.State.new': + var $2929 = self.err; + var _reply$89 = Kind$Parser$text$(":", _reply$pst$83); + var self = _reply$89; + switch (self._) { + case 'Parser.Reply.error': + var $2931 = self.err; + var self = $2929; + switch (self._) { + case 'Maybe.some': + var $2933 = self.value; + var $2934 = Parser$Reply$error$(Parser$Error$combine$($2933, $2931)); + var $2932 = $2934; + break; + case 'Maybe.none': + var $2935 = Parser$Reply$error$($2931); + var $2932 = $2935; + break; + }; + var $2930 = $2932; + break; + case 'Parser.Reply.value': + var $2936 = self.pst; + var self = $2936; + switch (self._) { + case 'Parser.State.new': + var $2938 = self.err; + var $2939 = self.nam; + var $2940 = self.ini; + var $2941 = self.idx; + var $2942 = self.str; + var $2943 = ((console.log(("FALTANDO " + $2942)), (_$97 => { + var $2944 = ((console.log(("VALUE " + $2939)), (_$98 => { + var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($2929, $2938), $2939, $2940, $2941, $2942); + var self = _reply$pst$99; + switch (self._) { + case 'Parser.State.new': + var $2946 = self.err; + var _reply$105 = Kind$Parser$text$(_typename$1, _reply$pst$99); + var self = _reply$105; + switch (self._) { + case 'Parser.Reply.error': + var $2948 = self.err; + var self = $2946; + switch (self._) { + case 'Maybe.some': + var $2950 = self.value; + var $2951 = Parser$Reply$error$(Parser$Error$combine$($2950, $2948)); + var $2949 = $2951; + break; + case 'Maybe.none': + var $2952 = Parser$Reply$error$($2948); + var $2949 = $2952; + break; + }; + var $2947 = $2949; + break; + case 'Parser.Reply.value': + var $2953 = self.pst; + var self = $2953; + switch (self._) { + case 'Parser.State.new': + var $2955 = self.err; + var $2956 = self.nam; + var $2957 = self.ini; + var $2958 = self.idx; + var $2959 = self.str; + var $2960 = ((console.log(("FALTANDO " + $2959)), (_$113 => { + var $2961 = ((console.log(("VALUE " + $2956)), (_$114 => { + var _reply$pst$115 = Parser$State$new$(Parser$Error$maybe_combine$($2946, $2955), $2956, $2957, $2958, $2959); + var self = _reply$pst$115; + switch (self._) { + case 'Parser.State.new': + var $2963 = self.err; + var _reply$121 = Kind$Parser$text$("from", _reply$pst$115); + var self = _reply$121; + switch (self._) { + case 'Parser.Reply.error': + var $2965 = self.err; + var self = $2963; + switch (self._) { + case 'Maybe.some': + var $2967 = self.value; + var $2968 = Parser$Reply$error$(Parser$Error$combine$($2967, $2965)); + var $2966 = $2968; + break; + case 'Maybe.none': + var $2969 = Parser$Reply$error$($2965); + var $2966 = $2969; + break; + }; + var $2964 = $2966; + break; + case 'Parser.Reply.value': + var $2970 = self.pst; + var self = $2970; + switch (self._) { + case 'Parser.State.new': + var $2972 = self.err; + var $2973 = self.nam; + var $2974 = self.ini; + var $2975 = self.idx; + var $2976 = self.str; + var $2977 = ((console.log(("FALTANDO " + $2976)), (_$129 => { + var $2978 = ((console.log(("VALUE " + $2973)), (_$130 => { + var _reply$pst$131 = Parser$State$new$(Parser$Error$maybe_combine$($2963, $2972), $2973, $2974, $2975, $2976); + var self = _reply$pst$131; + switch (self._) { + case 'Parser.State.new': + var $2980 = self.err; + var _reply$137 = Kind$Parser$term(_reply$pst$131); + var self = _reply$137; + switch (self._) { + case 'Parser.Reply.error': + var $2982 = self.err; + var self = $2980; + switch (self._) { + case 'Maybe.some': + var $2984 = self.value; + var $2985 = Parser$Reply$error$(Parser$Error$combine$($2984, $2982)); + var $2983 = $2985; + break; + case 'Maybe.none': + var $2986 = Parser$Reply$error$($2982); + var $2983 = $2986; + break; + }; + var $2981 = $2983; + break; + case 'Parser.Reply.value': + var $2987 = self.pst; + var $2988 = self.val; + var self = $2987; + switch (self._) { + case 'Parser.State.new': + var $2990 = self.err; + var $2991 = self.nam; + var $2992 = self.ini; + var $2993 = self.idx; + var $2994 = self.str; + var $2995 = ((console.log(("FALTANDO " + $2994)), (_$145 => { + var $2996 = ((console.log(("VALUE " + $2991)), (_$146 => { + var _reply$pst$147 = Parser$State$new$(Parser$Error$maybe_combine$($2980, $2990), $2991, $2992, $2993, $2994); + var self = _reply$pst$147; + switch (self._) { + case 'Parser.State.new': + var $2998 = self.err; + var _reply$153 = Kind$Parser$text$("to", _reply$pst$147); + var self = _reply$153; + switch (self._) { + case 'Parser.Reply.error': + var $3000 = self.err; + var self = $2998; + switch (self._) { + case 'Maybe.some': + var $3002 = self.value; + var $3003 = Parser$Reply$error$(Parser$Error$combine$($3002, $3000)); + var $3001 = $3003; + break; + case 'Maybe.none': + var $3004 = Parser$Reply$error$($3000); + var $3001 = $3004; + break; + }; + var $2999 = $3001; + break; + case 'Parser.Reply.value': + var $3005 = self.pst; + var self = $3005; + switch (self._) { + case 'Parser.State.new': + var $3007 = self.err; + var $3008 = self.nam; + var $3009 = self.ini; + var $3010 = self.idx; + var $3011 = self.str; + var $3012 = ((console.log(("FALTANDO " + $3011)), (_$161 => { + var $3013 = ((console.log(("VALUE " + $3008)), (_$162 => { + var _reply$pst$163 = Parser$State$new$(Parser$Error$maybe_combine$($2998, $3007), $3008, $3009, $3010, $3011); + var self = _reply$pst$163; + switch (self._) { + case 'Parser.State.new': + var $3015 = self.err; + var _reply$169 = Kind$Parser$term(_reply$pst$163); + var self = _reply$169; + switch (self._) { + case 'Parser.Reply.error': + var $3017 = self.err; + var self = $3015; + switch (self._) { + case 'Maybe.some': + var $3019 = self.value; + var $3020 = Parser$Reply$error$(Parser$Error$combine$($3019, $3017)); + var $3018 = $3020; + break; + case 'Maybe.none': + var $3021 = Parser$Reply$error$($3017); + var $3018 = $3021; + break; + }; + var $3016 = $3018; + break; + case 'Parser.Reply.value': + var $3022 = self.pst; + var $3023 = self.val; + var self = $3022; + switch (self._) { + case 'Parser.State.new': + var $3025 = self.err; + var $3026 = self.nam; + var $3027 = self.ini; + var $3028 = self.idx; + var $3029 = self.str; + var $3030 = ((console.log(("FALTANDO " + $3029)), (_$177 => { + var $3031 = ((console.log(("VALUE " + $3026)), (_$178 => { + var _reply$pst$179 = Parser$State$new$(Parser$Error$maybe_combine$($3015, $3025), $3026, $3027, $3028, $3029); + var self = _reply$pst$179; + switch (self._) { + case 'Parser.State.new': + var $3033 = self.err; + var _reply$185 = Kind$Parser$text$(":", _reply$pst$179); + var self = _reply$185; + switch (self._) { + case 'Parser.Reply.error': + var $3035 = self.err; + var self = $3033; + switch (self._) { + case 'Maybe.some': + var $3037 = self.value; + var $3038 = Parser$Reply$error$(Parser$Error$combine$($3037, $3035)); + var $3036 = $3038; + break; + case 'Maybe.none': + var $3039 = Parser$Reply$error$($3035); + var $3036 = $3039; + break; + }; + var $3034 = $3036; + break; + case 'Parser.Reply.value': + var $3040 = self.pst; + var self = $3040; + switch (self._) { + case 'Parser.State.new': + var $3042 = self.err; + var $3043 = self.nam; + var $3044 = self.ini; + var $3045 = self.idx; + var $3046 = self.str; + var $3047 = ((console.log(("FALTANDO " + $3046)), (_$193 => { + var $3048 = ((console.log(("VALUE " + $3043)), (_$194 => { + var _reply$pst$195 = Parser$State$new$(Parser$Error$maybe_combine$($3033, $3042), $3043, $3044, $3045, $3046); + var self = _reply$pst$195; + switch (self._) { + case 'Parser.State.new': + var $3050 = self.err; + var _reply$201 = Kind$Parser$term(_reply$pst$195); + var self = _reply$201; + switch (self._) { + case 'Parser.Reply.error': + var $3052 = self.err; + var self = $3050; + switch (self._) { + case 'Maybe.some': + var $3054 = self.value; + var $3055 = Parser$Reply$error$(Parser$Error$combine$($3054, $3052)); + var $3053 = $3055; + break; + case 'Maybe.none': + var $3056 = Parser$Reply$error$($3052); + var $3053 = $3056; + break; + }; + var $3051 = $3053; + break; + case 'Parser.Reply.value': + var $3057 = self.pst; + var $3058 = self.val; + var self = $3057; + switch (self._) { + case 'Parser.State.new': + var $3060 = self.err; + var $3061 = self.nam; + var $3062 = self.ini; + var $3063 = self.idx; + var $3064 = self.str; + var $3065 = ((console.log(("FALTANDO " + $3064)), (_$209 => { + var $3066 = ((console.log(("VALUE " + $3061)), (_$210 => { + var _reply$pst$211 = Parser$State$new$(Parser$Error$maybe_combine$($3050, $3060), $3061, $3062, $3063, $3064); + var self = _reply$pst$211; + switch (self._) { + case 'Parser.State.new': + var $3068 = self.err; + var _reply$217 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$211); + var self = _reply$217; + switch (self._) { + case 'Parser.Reply.error': + var $3070 = self.err; + var self = $3068; + switch (self._) { + case 'Maybe.some': + var $3072 = self.value; + var $3073 = Parser$Reply$error$(Parser$Error$combine$($3072, $3070)); + var $3071 = $3073; + break; + case 'Maybe.none': + var $3074 = Parser$Reply$error$($3070); + var $3071 = $3074; + break; + }; + var $3069 = $3071; + break; + case 'Parser.Reply.value': + var $3075 = self.pst; + var self = $3075; + switch (self._) { + case 'Parser.State.new': + var $3077 = self.err; + var $3078 = self.nam; + var $3079 = self.ini; + var $3080 = self.idx; + var $3081 = self.str; + var $3082 = ((console.log(("FALTANDO " + $3081)), (_$225 => { + var $3083 = ((console.log(("VALUE " + $3078)), (_$226 => { + var _reply$pst$227 = Parser$State$new$(Parser$Error$maybe_combine$($3068, $3077), $3078, $3079, $3080, $3081); + var self = _reply$pst$227; + switch (self._) { + case 'Parser.State.new': + var $3085 = self.err; + var _reply$233 = _body$2(Unit$new)(_reply$pst$227); + var self = _reply$233; + switch (self._) { + case 'Parser.Reply.error': + var $3087 = self.err; + var self = $3085; + switch (self._) { + case 'Maybe.some': + var $3089 = self.value; + var $3090 = Parser$Reply$error$(Parser$Error$combine$($3089, $3087)); + var $3088 = $3090; + break; + case 'Maybe.none': + var $3091 = Parser$Reply$error$($3087); + var $3088 = $3091; + break; + }; + var $3086 = $3088; + break; + case 'Parser.Reply.value': + var $3092 = self.pst; + var $3093 = self.val; + var self = $3092; + switch (self._) { + case 'Parser.State.new': + var $3095 = self.err; + var $3096 = self.nam; + var $3097 = self.ini; + var $3098 = self.idx; + var $3099 = self.str; + var $3100 = ((console.log(("FALTANDO " + $3099)), (_$241 => { + var $3101 = ((console.log(("VALUE " + $3096)), (_$242 => { + var _reply$pst$243 = Parser$State$new$(Parser$Error$maybe_combine$($3085, $3095), $3096, $3097, $3098, $3099); + var _term$244 = Kind$Term$ref$((_typename$1 + ".for")); + var _term$245 = Kind$Term$app$(_term$244, Kind$Term$hol$(Bits$e)); + var _term$246 = Kind$Term$app$(_term$245, Kind$Term$ref$($2867)); + var _term$247 = Kind$Term$app$(_term$246, $2988); + var _term$248 = Kind$Term$app$(_term$247, $3023); + var _lamb$249 = Kind$Term$lam$($2919, (_e$249 => { + var $3103 = Kind$Term$lam$($2867, (_s$250 => { + var $3104 = $3058; + return $3104; + })); + return $3103; + })); + var _term$250 = Kind$Term$app$(_term$248, _lamb$249); + var _term$251 = Kind$Term$let$($2867, _term$250, (_x$251 => { + var $3105 = $3093; + return $3105; + })); + var $3102 = Parser$Reply$value$(_reply$pst$243, _term$251); + return $3102; + })())); + return $3101; + })())); + var $3094 = $3100; + break; + }; + var $3086 = $3094; + break; + }; + var $3084 = $3086; + break; + }; + return $3084; + })())); + return $3083; + })())); + var $3076 = $3082; + break; + }; + var $3069 = $3076; + break; + }; + var $3067 = $3069; + break; + }; + return $3067; + })())); + return $3066; + })())); + var $3059 = $3065; + break; + }; + var $3051 = $3059; + break; + }; + var $3049 = $3051; + break; + }; + return $3049; + })())); + return $3048; + })())); + var $3041 = $3047; + break; + }; + var $3034 = $3041; + break; + }; + var $3032 = $3034; + break; + }; + return $3032; + })())); + return $3031; + })())); + var $3024 = $3030; + break; + }; + var $3016 = $3024; + break; + }; + var $3014 = $3016; + break; + }; + return $3014; + })())); + return $3013; + })())); + var $3006 = $3012; + break; + }; + var $2999 = $3006; + break; + }; + var $2997 = $2999; + break; + }; + return $2997; + })())); + return $2996; + })())); + var $2989 = $2995; + break; + }; + var $2981 = $2989; + break; + }; + var $2979 = $2981; + break; + }; + return $2979; + })())); + return $2978; + })())); + var $2971 = $2977; + break; + }; + var $2964 = $2971; + break; + }; + var $2962 = $2964; + break; + }; + return $2962; + })())); + return $2961; + })())); + var $2954 = $2960; + break; + }; + var $2947 = $2954; + break; + }; + var $2945 = $2947; + break; + }; + return $2945; + })())); + return $2944; + })())); + var $2937 = $2943; + break; + }; + var $2930 = $2937; + break; + }; + var $2928 = $2930; + break; + }; + return $2928; + })())); + return $2927; + })())); + var $2920 = $2926; + break; + }; + var $2912 = $2920; + break; + }; + var $2910 = $2912; + break; + }; + return $2910; + })())); + return $2909; + })())); + var $2902 = $2908; + break; + }; + var $2895 = $2902; + break; + }; + var $2893 = $2895; + break; + }; + return $2893; + })())); + return $2892; + })())); + var $2885 = $2891; + break; + }; + var $2878 = $2885; + break; + }; + var $2876 = $2878; + break; + }; + return $2876; + })())); + return $2875; + })())); + var $2868 = $2874; + break; + }; + var $2860 = $2868; + break; + }; + var $2858 = $2860; + break; + }; + return $2858; + })())); + return $2857; + })())); + var $2850 = $2856; + break; + }; + var $2843 = $2850; + break; + }; + var $2841 = $2843; + break; + }; + return $2841; + })); + return $2840; + }; + const Kind$Parser$letforrange = x0 => x1 => Kind$Parser$letforrange$(x0, x1); + + function Kind$Parser$letforrange$u32$(_body$1) { + var $3106 = Kind$Parser$letforrange$("U32", _body$1); + return $3106; + }; + const Kind$Parser$letforrange$u32 = x0 => Kind$Parser$letforrange$u32$(x0); + + function Kind$Parser$letforrange$with$(_typename$1, _body$2) { + var $3107 = Kind$Parser$block("for")((_pst$3 => { + var self = _pst$3; + switch (self._) { + case 'Parser.State.new': + var $3109 = self.err; + var _reply$9 = Kind$Parser$text$("for ", _pst$3); + var self = _reply$9; + switch (self._) { + case 'Parser.Reply.error': + var $3111 = self.err; + var self = $3109; + switch (self._) { + case 'Maybe.some': + var $3113 = self.value; + var $3114 = Parser$Reply$error$(Parser$Error$combine$($3113, $3111)); + var $3112 = $3114; + break; + case 'Maybe.none': + var $3115 = Parser$Reply$error$($3111); + var $3112 = $3115; + break; + }; + var $3110 = $3112; + break; + case 'Parser.Reply.value': + var $3116 = self.pst; + var self = $3116; + switch (self._) { + case 'Parser.State.new': + var $3118 = self.err; + var $3119 = self.nam; + var $3120 = self.ini; + var $3121 = self.idx; + var $3122 = self.str; + var $3123 = ((console.log(("FALTANDO " + $3122)), (_$17 => { + var $3124 = ((console.log(("VALUE " + $3119)), (_$18 => { + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($3109, $3118), $3119, $3120, $3121, $3122); + var self = _reply$pst$19; + switch (self._) { + case 'Parser.State.new': + var $3126 = self.err; + var _reply$25 = Kind$Parser$name1$(_reply$pst$19); + var self = _reply$25; + switch (self._) { + case 'Parser.Reply.error': + var $3128 = self.err; + var self = $3126; + switch (self._) { + case 'Maybe.some': + var $3130 = self.value; + var $3131 = Parser$Reply$error$(Parser$Error$combine$($3130, $3128)); + var $3129 = $3131; + break; + case 'Maybe.none': + var $3132 = Parser$Reply$error$($3128); + var $3129 = $3132; + break; + }; + var $3127 = $3129; + break; + case 'Parser.Reply.value': + var $3133 = self.pst; + var $3134 = self.val; + var self = $3133; + switch (self._) { + case 'Parser.State.new': + var $3136 = self.err; + var $3137 = self.nam; + var $3138 = self.ini; + var $3139 = self.idx; + var $3140 = self.str; + var $3141 = ((console.log(("FALTANDO " + $3140)), (_$33 => { + var $3142 = ((console.log(("VALUE " + $3137)), (_$34 => { + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($3126, $3136), $3137, $3138, $3139, $3140); + var self = _reply$pst$35; + switch (self._) { + case 'Parser.State.new': + var $3144 = self.err; + var _reply$41 = Kind$Parser$text$(":", _reply$pst$35); + var self = _reply$41; + switch (self._) { + case 'Parser.Reply.error': + var $3146 = self.err; + var self = $3144; + switch (self._) { + case 'Maybe.some': + var $3148 = self.value; + var $3149 = Parser$Reply$error$(Parser$Error$combine$($3148, $3146)); + var $3147 = $3149; + break; + case 'Maybe.none': + var $3150 = Parser$Reply$error$($3146); + var $3147 = $3150; + break; + }; + var $3145 = $3147; + break; + case 'Parser.Reply.value': + var $3151 = self.pst; + var self = $3151; + switch (self._) { + case 'Parser.State.new': + var $3153 = self.err; + var $3154 = self.nam; + var $3155 = self.ini; + var $3156 = self.idx; + var $3157 = self.str; + var $3158 = ((console.log(("FALTANDO " + $3157)), (_$49 => { + var $3159 = ((console.log(("VALUE " + $3154)), (_$50 => { + var _reply$pst$51 = Parser$State$new$(Parser$Error$maybe_combine$($3144, $3153), $3154, $3155, $3156, $3157); + var self = _reply$pst$51; + switch (self._) { + case 'Parser.State.new': + var $3161 = self.err; + var _reply$57 = Kind$Parser$text$(_typename$1, _reply$pst$51); + var self = _reply$57; + switch (self._) { + case 'Parser.Reply.error': + var $3163 = self.err; + var self = $3161; + switch (self._) { + case 'Maybe.some': + var $3165 = self.value; + var $3166 = Parser$Reply$error$(Parser$Error$combine$($3165, $3163)); + var $3164 = $3166; + break; + case 'Maybe.none': + var $3167 = Parser$Reply$error$($3163); + var $3164 = $3167; + break; + }; + var $3162 = $3164; + break; + case 'Parser.Reply.value': + var $3168 = self.pst; + var self = $3168; + switch (self._) { + case 'Parser.State.new': + var $3170 = self.err; + var $3171 = self.nam; + var $3172 = self.ini; + var $3173 = self.idx; + var $3174 = self.str; + var $3175 = ((console.log(("FALTANDO " + $3174)), (_$65 => { + var $3176 = ((console.log(("VALUE " + $3171)), (_$66 => { + var _reply$pst$67 = Parser$State$new$(Parser$Error$maybe_combine$($3161, $3170), $3171, $3172, $3173, $3174); + var self = _reply$pst$67; + switch (self._) { + case 'Parser.State.new': + var $3178 = self.err; + var _reply$73 = Kind$Parser$text$("from", _reply$pst$67); + var self = _reply$73; + switch (self._) { + case 'Parser.Reply.error': + var $3180 = self.err; + var self = $3178; + switch (self._) { + case 'Maybe.some': + var $3182 = self.value; + var $3183 = Parser$Reply$error$(Parser$Error$combine$($3182, $3180)); + var $3181 = $3183; + break; + case 'Maybe.none': + var $3184 = Parser$Reply$error$($3180); + var $3181 = $3184; + break; + }; + var $3179 = $3181; + break; + case 'Parser.Reply.value': + var $3185 = self.pst; + var self = $3185; + switch (self._) { + case 'Parser.State.new': + var $3187 = self.err; + var $3188 = self.nam; + var $3189 = self.ini; + var $3190 = self.idx; + var $3191 = self.str; + var $3192 = ((console.log(("FALTANDO " + $3191)), (_$81 => { + var $3193 = ((console.log(("VALUE " + $3188)), (_$82 => { + var _reply$pst$83 = Parser$State$new$(Parser$Error$maybe_combine$($3178, $3187), $3188, $3189, $3190, $3191); + var self = _reply$pst$83; + switch (self._) { + case 'Parser.State.new': + var $3195 = self.err; + var _reply$89 = Kind$Parser$term(_reply$pst$83); + var self = _reply$89; + switch (self._) { + case 'Parser.Reply.error': + var $3197 = self.err; + var self = $3195; + switch (self._) { + case 'Maybe.some': + var $3199 = self.value; + var $3200 = Parser$Reply$error$(Parser$Error$combine$($3199, $3197)); + var $3198 = $3200; + break; + case 'Maybe.none': + var $3201 = Parser$Reply$error$($3197); + var $3198 = $3201; + break; + }; + var $3196 = $3198; + break; + case 'Parser.Reply.value': + var $3202 = self.pst; + var $3203 = self.val; + var self = $3202; + switch (self._) { + case 'Parser.State.new': + var $3205 = self.err; + var $3206 = self.nam; + var $3207 = self.ini; + var $3208 = self.idx; + var $3209 = self.str; + var $3210 = ((console.log(("FALTANDO " + $3209)), (_$97 => { + var $3211 = ((console.log(("VALUE " + $3206)), (_$98 => { + var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($3195, $3205), $3206, $3207, $3208, $3209); + var self = _reply$pst$99; + switch (self._) { + case 'Parser.State.new': + var $3213 = self.err; + var _reply$105 = Kind$Parser$text$("to", _reply$pst$99); + var self = _reply$105; + switch (self._) { + case 'Parser.Reply.error': + var $3215 = self.err; + var self = $3213; + switch (self._) { + case 'Maybe.some': + var $3217 = self.value; + var $3218 = Parser$Reply$error$(Parser$Error$combine$($3217, $3215)); + var $3216 = $3218; + break; + case 'Maybe.none': + var $3219 = Parser$Reply$error$($3215); + var $3216 = $3219; + break; + }; + var $3214 = $3216; + break; + case 'Parser.Reply.value': + var $3220 = self.pst; + var self = $3220; + switch (self._) { + case 'Parser.State.new': + var $3222 = self.err; + var $3223 = self.nam; + var $3224 = self.ini; + var $3225 = self.idx; + var $3226 = self.str; + var $3227 = ((console.log(("FALTANDO " + $3226)), (_$113 => { + var $3228 = ((console.log(("VALUE " + $3223)), (_$114 => { + var _reply$pst$115 = Parser$State$new$(Parser$Error$maybe_combine$($3213, $3222), $3223, $3224, $3225, $3226); + var self = _reply$pst$115; + switch (self._) { + case 'Parser.State.new': + var $3230 = self.err; + var _reply$121 = Kind$Parser$term(_reply$pst$115); + var self = _reply$121; + switch (self._) { + case 'Parser.Reply.error': + var $3232 = self.err; + var self = $3230; + switch (self._) { + case 'Maybe.some': + var $3234 = self.value; + var $3235 = Parser$Reply$error$(Parser$Error$combine$($3234, $3232)); + var $3233 = $3235; + break; + case 'Maybe.none': + var $3236 = Parser$Reply$error$($3232); + var $3233 = $3236; + break; + }; + var $3231 = $3233; + break; + case 'Parser.Reply.value': + var $3237 = self.pst; + var $3238 = self.val; + var self = $3237; + switch (self._) { + case 'Parser.State.new': + var $3240 = self.err; + var $3241 = self.nam; + var $3242 = self.ini; + var $3243 = self.idx; + var $3244 = self.str; + var $3245 = ((console.log(("FALTANDO " + $3244)), (_$129 => { + var $3246 = ((console.log(("VALUE " + $3241)), (_$130 => { + var _reply$pst$131 = Parser$State$new$(Parser$Error$maybe_combine$($3230, $3240), $3241, $3242, $3243, $3244); + var self = _reply$pst$131; + switch (self._) { + case 'Parser.State.new': + var $3248 = self.err; + var _reply$137 = Kind$Parser$text$("with ", _reply$pst$131); + var self = _reply$137; + switch (self._) { + case 'Parser.Reply.error': + var $3250 = self.err; + var self = $3248; + switch (self._) { + case 'Maybe.some': + var $3252 = self.value; + var $3253 = Parser$Reply$error$(Parser$Error$combine$($3252, $3250)); + var $3251 = $3253; + break; + case 'Maybe.none': + var $3254 = Parser$Reply$error$($3250); + var $3251 = $3254; + break; + }; + var $3249 = $3251; + break; + case 'Parser.Reply.value': + var $3255 = self.pst; + var self = $3255; + switch (self._) { + case 'Parser.State.new': + var $3257 = self.err; + var $3258 = self.nam; + var $3259 = self.ini; + var $3260 = self.idx; + var $3261 = self.str; + var $3262 = ((console.log(("FALTANDO " + $3261)), (_$145 => { + var $3263 = ((console.log(("VALUE " + $3258)), (_$146 => { + var _reply$pst$147 = Parser$State$new$(Parser$Error$maybe_combine$($3248, $3257), $3258, $3259, $3260, $3261); + var self = _reply$pst$147; + switch (self._) { + case 'Parser.State.new': + var $3265 = self.err; + var _reply$153 = Kind$Parser$name1$(_reply$pst$147); + var self = _reply$153; + switch (self._) { + case 'Parser.Reply.error': + var $3267 = self.err; + var self = $3265; + switch (self._) { + case 'Maybe.some': + var $3269 = self.value; + var $3270 = Parser$Reply$error$(Parser$Error$combine$($3269, $3267)); + var $3268 = $3270; + break; + case 'Maybe.none': + var $3271 = Parser$Reply$error$($3267); + var $3268 = $3271; + break; + }; + var $3266 = $3268; + break; + case 'Parser.Reply.value': + var $3272 = self.pst; + var $3273 = self.val; + var self = $3272; + switch (self._) { + case 'Parser.State.new': + var $3275 = self.err; + var $3276 = self.nam; + var $3277 = self.ini; + var $3278 = self.idx; + var $3279 = self.str; + var $3280 = ((console.log(("FALTANDO " + $3279)), (_$161 => { + var $3281 = ((console.log(("VALUE " + $3276)), (_$162 => { + var _reply$pst$163 = Parser$State$new$(Parser$Error$maybe_combine$($3265, $3275), $3276, $3277, $3278, $3279); + var self = _reply$pst$163; + switch (self._) { + case 'Parser.State.new': + var $3283 = self.err; + var _reply$169 = Kind$Parser$text$(":", _reply$pst$163); + var self = _reply$169; + switch (self._) { + case 'Parser.Reply.error': + var $3285 = self.err; + var self = $3283; + switch (self._) { + case 'Maybe.some': + var $3287 = self.value; + var $3288 = Parser$Reply$error$(Parser$Error$combine$($3287, $3285)); + var $3286 = $3288; + break; + case 'Maybe.none': + var $3289 = Parser$Reply$error$($3285); + var $3286 = $3289; + break; + }; + var $3284 = $3286; + break; + case 'Parser.Reply.value': + var $3290 = self.pst; + var self = $3290; + switch (self._) { + case 'Parser.State.new': + var $3292 = self.err; + var $3293 = self.nam; + var $3294 = self.ini; + var $3295 = self.idx; + var $3296 = self.str; + var $3297 = ((console.log(("FALTANDO " + $3296)), (_$177 => { + var $3298 = ((console.log(("VALUE " + $3293)), (_$178 => { + var _reply$pst$179 = Parser$State$new$(Parser$Error$maybe_combine$($3283, $3292), $3293, $3294, $3295, $3296); + var self = _reply$pst$179; + switch (self._) { + case 'Parser.State.new': + var $3300 = self.err; + var _reply$185 = Kind$Parser$term(_reply$pst$179); + var self = _reply$185; + switch (self._) { + case 'Parser.Reply.error': + var $3302 = self.err; + var self = $3300; + switch (self._) { + case 'Maybe.some': + var $3304 = self.value; + var $3305 = Parser$Reply$error$(Parser$Error$combine$($3304, $3302)); + var $3303 = $3305; + break; + case 'Maybe.none': + var $3306 = Parser$Reply$error$($3302); + var $3303 = $3306; + break; + }; + var $3301 = $3303; + break; + case 'Parser.Reply.value': + var $3307 = self.pst; + var $3308 = self.val; + var self = $3307; + switch (self._) { + case 'Parser.State.new': + var $3310 = self.err; + var $3311 = self.nam; + var $3312 = self.ini; + var $3313 = self.idx; + var $3314 = self.str; + var $3315 = ((console.log(("FALTANDO " + $3314)), (_$193 => { + var $3316 = ((console.log(("VALUE " + $3311)), (_$194 => { + var _reply$pst$195 = Parser$State$new$(Parser$Error$maybe_combine$($3300, $3310), $3311, $3312, $3313, $3314); + var self = _reply$pst$195; + switch (self._) { + case 'Parser.State.new': + var $3318 = self.err; + var _reply$201 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$195); + var self = _reply$201; + switch (self._) { + case 'Parser.Reply.error': + var $3320 = self.err; + var self = $3318; + switch (self._) { + case 'Maybe.some': + var $3322 = self.value; + var $3323 = Parser$Reply$error$(Parser$Error$combine$($3322, $3320)); + var $3321 = $3323; + break; + case 'Maybe.none': + var $3324 = Parser$Reply$error$($3320); + var $3321 = $3324; + break; + }; + var $3319 = $3321; + break; + case 'Parser.Reply.value': + var $3325 = self.pst; + var self = $3325; + switch (self._) { + case 'Parser.State.new': + var $3327 = self.err; + var $3328 = self.nam; + var $3329 = self.ini; + var $3330 = self.idx; + var $3331 = self.str; + var $3332 = ((console.log(("FALTANDO " + $3331)), (_$209 => { + var $3333 = ((console.log(("VALUE " + $3328)), (_$210 => { + var _reply$pst$211 = Parser$State$new$(Parser$Error$maybe_combine$($3318, $3327), $3328, $3329, $3330, $3331); + var self = _reply$pst$211; + switch (self._) { + case 'Parser.State.new': + var $3335 = self.err; + var _reply$217 = _body$2(Unit$new)(_reply$pst$211); + var self = _reply$217; + switch (self._) { + case 'Parser.Reply.error': + var $3337 = self.err; + var self = $3335; + switch (self._) { + case 'Maybe.some': + var $3339 = self.value; + var $3340 = Parser$Reply$error$(Parser$Error$combine$($3339, $3337)); + var $3338 = $3340; + break; + case 'Maybe.none': + var $3341 = Parser$Reply$error$($3337); + var $3338 = $3341; + break; + }; + var $3336 = $3338; + break; + case 'Parser.Reply.value': + var $3342 = self.pst; + var $3343 = self.val; + var self = $3342; + switch (self._) { + case 'Parser.State.new': + var $3345 = self.err; + var $3346 = self.nam; + var $3347 = self.ini; + var $3348 = self.idx; + var $3349 = self.str; + var $3350 = ((console.log(("FALTANDO " + $3349)), (_$225 => { + var $3351 = ((console.log(("VALUE " + $3346)), (_$226 => { + var _reply$pst$227 = Parser$State$new$(Parser$Error$maybe_combine$($3335, $3345), $3346, $3347, $3348, $3349); + var _term$228 = Kind$Term$ref$((_typename$1 + ".for")); + var _term$229 = Kind$Term$app$(_term$228, Kind$Term$hol$(Bits$e)); + var _term$230 = Kind$Term$app$(_term$229, Kind$Term$ref$($3273)); + var _term$231 = Kind$Term$app$(_term$230, $3203); + var _term$232 = Kind$Term$app$(_term$231, $3238); + var _lamb$233 = Kind$Term$lam$($3134, (_e$233 => { + var $3353 = Kind$Term$lam$($3273, (_s$234 => { + var $3354 = $3308; + return $3354; + })); + return $3353; + })); + var _term$234 = Kind$Term$app$(_term$232, _lamb$233); + var _term$235 = Kind$Term$let$($3273, _term$234, (_x$235 => { + var $3355 = $3343; + return $3355; + })); + var $3352 = Parser$Reply$value$(_reply$pst$227, _term$235); + return $3352; + })())); + return $3351; + })())); + var $3344 = $3350; + break; + }; + var $3336 = $3344; + break; + }; + var $3334 = $3336; + break; + }; + return $3334; + })())); + return $3333; + })())); + var $3326 = $3332; + break; + }; + var $3319 = $3326; + break; + }; + var $3317 = $3319; + break; + }; + return $3317; + })())); + return $3316; + })())); + var $3309 = $3315; + break; + }; + var $3301 = $3309; + break; + }; + var $3299 = $3301; + break; + }; + return $3299; + })())); + return $3298; + })())); + var $3291 = $3297; + break; + }; + var $3284 = $3291; + break; + }; + var $3282 = $3284; + break; + }; + return $3282; + })())); + return $3281; + })())); + var $3274 = $3280; + break; + }; + var $3266 = $3274; + break; + }; + var $3264 = $3266; + break; + }; + return $3264; + })())); + return $3263; + })())); + var $3256 = $3262; + break; + }; + var $3249 = $3256; + break; + }; + var $3247 = $3249; + break; + }; + return $3247; + })())); + return $3246; + })())); + var $3239 = $3245; + break; + }; + var $3231 = $3239; + break; + }; + var $3229 = $3231; + break; + }; + return $3229; + })())); + return $3228; + })())); + var $3221 = $3227; + break; + }; + var $3214 = $3221; + break; + }; + var $3212 = $3214; + break; + }; + return $3212; + })())); + return $3211; + })())); + var $3204 = $3210; + break; + }; + var $3196 = $3204; + break; + }; + var $3194 = $3196; + break; + }; + return $3194; + })())); + return $3193; + })())); + var $3186 = $3192; + break; + }; + var $3179 = $3186; + break; + }; + var $3177 = $3179; + break; + }; + return $3177; + })())); + return $3176; + })())); + var $3169 = $3175; + break; + }; + var $3162 = $3169; + break; + }; + var $3160 = $3162; + break; + }; + return $3160; + })())); + return $3159; + })())); + var $3152 = $3158; + break; + }; + var $3145 = $3152; + break; + }; + var $3143 = $3145; + break; + }; + return $3143; + })())); + return $3142; + })())); + var $3135 = $3141; + break; + }; + var $3127 = $3135; + break; + }; + var $3125 = $3127; + break; + }; + return $3125; + })())); + return $3124; + })())); + var $3117 = $3123; + break; + }; + var $3110 = $3117; + break; + }; + var $3108 = $3110; + break; + }; + return $3108; + })); + return $3107; + }; + const Kind$Parser$letforrange$with = x0 => x1 => Kind$Parser$letforrange$with$(x0, x1); + + function Kind$Parser$letforrange$u32$with$(_body$1) { + var $3356 = Kind$Parser$letforrange$with$("U32", _body$1); + return $3356; + }; + const Kind$Parser$letforrange$u32$with = x0 => Kind$Parser$letforrange$u32$with$(x0); + + function Kind$Parser$letforrange$i32$(_body$1) { + var $3357 = Kind$Parser$letforrange$("I32", _body$1); + return $3357; + }; + const Kind$Parser$letforrange$i32 = x0 => Kind$Parser$letforrange$i32$(x0); + + function Kind$Parser$letforrange$i32$with$(_body$1) { + var $3358 = Kind$Parser$letforrange$with$("I32", _body$1); + return $3358; + }; + const Kind$Parser$letforrange$i32$with = x0 => Kind$Parser$letforrange$i32$with$(x0); + + function Kind$Parser$letforrange$nat$(_body$1) { + var $3359 = Kind$Parser$block("let-for")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $3361 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $3363 = self.err; + var self = $3361; + switch (self._) { + case 'Maybe.some': + var $3365 = self.value; + var $3366 = Parser$Reply$error$(Parser$Error$combine$($3365, $3363)); + var $3364 = $3366; + break; + case 'Maybe.none': + var $3367 = Parser$Reply$error$($3363); + var $3364 = $3367; + break; + }; + var $3362 = $3364; + break; + case 'Parser.Reply.value': + var $3368 = self.pst; + var self = $3368; + switch (self._) { + case 'Parser.State.new': + var $3370 = self.err; + var $3371 = self.nam; + var $3372 = self.ini; + var $3373 = self.idx; + var $3374 = self.str; + var $3375 = ((console.log(("FALTANDO " + $3374)), (_$16 => { + var $3376 = ((console.log(("VALUE " + $3371)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($3361, $3370), $3371, $3372, $3373, $3374); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $3378 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $3380 = self.err; + var self = $3378; + switch (self._) { + case 'Maybe.some': + var $3382 = self.value; + var $3383 = Parser$Reply$error$(Parser$Error$combine$($3382, $3380)); + var $3381 = $3383; + break; + case 'Maybe.none': + var $3384 = Parser$Reply$error$($3380); + var $3381 = $3384; + break; + }; + var $3379 = $3381; + break; + case 'Parser.Reply.value': + var $3385 = self.pst; + var $3386 = self.val; + var self = $3385; + switch (self._) { + case 'Parser.State.new': + var $3388 = self.err; + var $3389 = self.nam; + var $3390 = self.ini; + var $3391 = self.idx; + var $3392 = self.str; + var $3393 = ((console.log(("FALTANDO " + $3392)), (_$32 => { + var $3394 = ((console.log(("VALUE " + $3389)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($3378, $3388), $3389, $3390, $3391, $3392); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $3396 = self.err; + var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $3398 = self.err; + var self = $3396; + switch (self._) { + case 'Maybe.some': + var $3400 = self.value; + var $3401 = Parser$Reply$error$(Parser$Error$combine$($3400, $3398)); + var $3399 = $3401; + break; + case 'Maybe.none': + var $3402 = Parser$Reply$error$($3398); + var $3399 = $3402; + break; + }; + var $3397 = $3399; + break; + case 'Parser.Reply.value': + var $3403 = self.pst; + var self = $3403; + switch (self._) { + case 'Parser.State.new': + var $3405 = self.err; + var $3406 = self.nam; + var $3407 = self.ini; + var $3408 = self.idx; + var $3409 = self.str; + var $3410 = ((console.log(("FALTANDO " + $3409)), (_$48 => { + var $3411 = ((console.log(("VALUE " + $3406)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($3396, $3405), $3406, $3407, $3408, $3409); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $3413 = self.err; + var _reply$56 = Kind$Parser$text$("for ", _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $3415 = self.err; + var self = $3413; + switch (self._) { + case 'Maybe.some': + var $3417 = self.value; + var $3418 = Parser$Reply$error$(Parser$Error$combine$($3417, $3415)); + var $3416 = $3418; + break; + case 'Maybe.none': + var $3419 = Parser$Reply$error$($3415); + var $3416 = $3419; + break; + }; + var $3414 = $3416; + break; + case 'Parser.Reply.value': + var $3420 = self.pst; + var self = $3420; + switch (self._) { + case 'Parser.State.new': + var $3422 = self.err; + var $3423 = self.nam; + var $3424 = self.ini; + var $3425 = self.idx; + var $3426 = self.str; + var $3427 = ((console.log(("FALTANDO " + $3426)), (_$64 => { + var $3428 = ((console.log(("VALUE " + $3423)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($3413, $3422), $3423, $3424, $3425, $3426); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $3430 = self.err; + var _reply$72 = Kind$Parser$name1$(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $3432 = self.err; + var self = $3430; + switch (self._) { + case 'Maybe.some': + var $3434 = self.value; + var $3435 = Parser$Reply$error$(Parser$Error$combine$($3434, $3432)); + var $3433 = $3435; + break; + case 'Maybe.none': + var $3436 = Parser$Reply$error$($3432); + var $3433 = $3436; + break; + }; + var $3431 = $3433; + break; + case 'Parser.Reply.value': + var $3437 = self.pst; + var $3438 = self.val; + var self = $3437; + switch (self._) { + case 'Parser.State.new': + var $3440 = self.err; + var $3441 = self.nam; + var $3442 = self.ini; + var $3443 = self.idx; + var $3444 = self.str; + var $3445 = ((console.log(("FALTANDO " + $3444)), (_$80 => { + var $3446 = ((console.log(("VALUE " + $3441)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($3430, $3440), $3441, $3442, $3443, $3444); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $3448 = self.err; + var _reply$88 = Kind$Parser$text$("from", _reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $3450 = self.err; + var self = $3448; + switch (self._) { + case 'Maybe.some': + var $3452 = self.value; + var $3453 = Parser$Reply$error$(Parser$Error$combine$($3452, $3450)); + var $3451 = $3453; + break; + case 'Maybe.none': + var $3454 = Parser$Reply$error$($3450); + var $3451 = $3454; + break; + }; + var $3449 = $3451; + break; + case 'Parser.Reply.value': + var $3455 = self.pst; + var self = $3455; + switch (self._) { + case 'Parser.State.new': + var $3457 = self.err; + var $3458 = self.nam; + var $3459 = self.ini; + var $3460 = self.idx; + var $3461 = self.str; + var $3462 = ((console.log(("FALTANDO " + $3461)), (_$96 => { + var $3463 = ((console.log(("VALUE " + $3458)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($3448, $3457), $3458, $3459, $3460, $3461); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $3465 = self.err; + var _reply$104 = Kind$Parser$term(_reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $3467 = self.err; + var self = $3465; + switch (self._) { + case 'Maybe.some': + var $3469 = self.value; + var $3470 = Parser$Reply$error$(Parser$Error$combine$($3469, $3467)); + var $3468 = $3470; + break; + case 'Maybe.none': + var $3471 = Parser$Reply$error$($3467); + var $3468 = $3471; + break; + }; + var $3466 = $3468; + break; + case 'Parser.Reply.value': + var $3472 = self.pst; + var $3473 = self.val; + var self = $3472; + switch (self._) { + case 'Parser.State.new': + var $3475 = self.err; + var $3476 = self.nam; + var $3477 = self.ini; + var $3478 = self.idx; + var $3479 = self.str; + var $3480 = ((console.log(("FALTANDO " + $3479)), (_$112 => { + var $3481 = ((console.log(("VALUE " + $3476)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3465, $3475), $3476, $3477, $3478, $3479); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $3483 = self.err; + var _reply$120 = Kind$Parser$text$("to", _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $3485 = self.err; + var self = $3483; + switch (self._) { + case 'Maybe.some': + var $3487 = self.value; + var $3488 = Parser$Reply$error$(Parser$Error$combine$($3487, $3485)); + var $3486 = $3488; + break; + case 'Maybe.none': + var $3489 = Parser$Reply$error$($3485); + var $3486 = $3489; + break; + }; + var $3484 = $3486; + break; + case 'Parser.Reply.value': + var $3490 = self.pst; + var self = $3490; + switch (self._) { + case 'Parser.State.new': + var $3492 = self.err; + var $3493 = self.nam; + var $3494 = self.ini; + var $3495 = self.idx; + var $3496 = self.str; + var $3497 = ((console.log(("FALTANDO " + $3496)), (_$128 => { + var $3498 = ((console.log(("VALUE " + $3493)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($3483, $3492), $3493, $3494, $3495, $3496); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $3500 = self.err; + var _reply$136 = Kind$Parser$term(_reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $3502 = self.err; + var self = $3500; + switch (self._) { + case 'Maybe.some': + var $3504 = self.value; + var $3505 = Parser$Reply$error$(Parser$Error$combine$($3504, $3502)); + var $3503 = $3505; + break; + case 'Maybe.none': + var $3506 = Parser$Reply$error$($3502); + var $3503 = $3506; + break; + }; + var $3501 = $3503; + break; + case 'Parser.Reply.value': + var $3507 = self.pst; + var $3508 = self.val; + var self = $3507; + switch (self._) { + case 'Parser.State.new': + var $3510 = self.err; + var $3511 = self.nam; + var $3512 = self.ini; + var $3513 = self.idx; + var $3514 = self.str; + var $3515 = ((console.log(("FALTANDO " + $3514)), (_$144 => { + var $3516 = ((console.log(("VALUE " + $3511)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($3500, $3510), $3511, $3512, $3513, $3514); + var self = _reply$pst$146; + switch (self._) { + case 'Parser.State.new': + var $3518 = self.err; + var _reply$152 = Kind$Parser$text$(":", _reply$pst$146); + var self = _reply$152; + switch (self._) { + case 'Parser.Reply.error': + var $3520 = self.err; + var self = $3518; + switch (self._) { + case 'Maybe.some': + var $3522 = self.value; + var $3523 = Parser$Reply$error$(Parser$Error$combine$($3522, $3520)); + var $3521 = $3523; + break; + case 'Maybe.none': + var $3524 = Parser$Reply$error$($3520); + var $3521 = $3524; + break; + }; + var $3519 = $3521; + break; + case 'Parser.Reply.value': + var $3525 = self.pst; + var self = $3525; + switch (self._) { + case 'Parser.State.new': + var $3527 = self.err; + var $3528 = self.nam; + var $3529 = self.ini; + var $3530 = self.idx; + var $3531 = self.str; + var $3532 = ((console.log(("FALTANDO " + $3531)), (_$160 => { + var $3533 = ((console.log(("VALUE " + $3528)), (_$161 => { + var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($3518, $3527), $3528, $3529, $3530, $3531); + var self = _reply$pst$162; + switch (self._) { + case 'Parser.State.new': + var $3535 = self.err; + var _reply$168 = Kind$Parser$term(_reply$pst$162); + var self = _reply$168; + switch (self._) { + case 'Parser.Reply.error': + var $3537 = self.err; + var self = $3535; + switch (self._) { + case 'Maybe.some': + var $3539 = self.value; + var $3540 = Parser$Reply$error$(Parser$Error$combine$($3539, $3537)); + var $3538 = $3540; + break; + case 'Maybe.none': + var $3541 = Parser$Reply$error$($3537); + var $3538 = $3541; + break; + }; + var $3536 = $3538; + break; + case 'Parser.Reply.value': + var $3542 = self.pst; + var $3543 = self.val; + var self = $3542; + switch (self._) { + case 'Parser.State.new': + var $3545 = self.err; + var $3546 = self.nam; + var $3547 = self.ini; + var $3548 = self.idx; + var $3549 = self.str; + var $3550 = ((console.log(("FALTANDO " + $3549)), (_$176 => { + var $3551 = ((console.log(("VALUE " + $3546)), (_$177 => { + var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($3535, $3545), $3546, $3547, $3548, $3549); + var self = _reply$pst$178; + switch (self._) { + case 'Parser.State.new': + var $3553 = self.err; + var _reply$184 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$178); + var self = _reply$184; + switch (self._) { + case 'Parser.Reply.error': + var $3555 = self.err; + var self = $3553; + switch (self._) { + case 'Maybe.some': + var $3557 = self.value; + var $3558 = Parser$Reply$error$(Parser$Error$combine$($3557, $3555)); + var $3556 = $3558; + break; + case 'Maybe.none': + var $3559 = Parser$Reply$error$($3555); + var $3556 = $3559; + break; + }; + var $3554 = $3556; + break; + case 'Parser.Reply.value': + var $3560 = self.pst; + var self = $3560; + switch (self._) { + case 'Parser.State.new': + var $3562 = self.err; + var $3563 = self.nam; + var $3564 = self.ini; + var $3565 = self.idx; + var $3566 = self.str; + var $3567 = ((console.log(("FALTANDO " + $3566)), (_$192 => { + var $3568 = ((console.log(("VALUE " + $3563)), (_$193 => { + var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($3553, $3562), $3563, $3564, $3565, $3566); + var self = _reply$pst$194; + switch (self._) { + case 'Parser.State.new': + var $3570 = self.err; + var _reply$200 = _body$1(Unit$new)(_reply$pst$194); + var self = _reply$200; + switch (self._) { + case 'Parser.Reply.error': + var $3572 = self.err; + var self = $3570; + switch (self._) { + case 'Maybe.some': + var $3574 = self.value; + var $3575 = Parser$Reply$error$(Parser$Error$combine$($3574, $3572)); + var $3573 = $3575; + break; + case 'Maybe.none': + var $3576 = Parser$Reply$error$($3572); + var $3573 = $3576; + break; + }; + var $3571 = $3573; + break; + case 'Parser.Reply.value': + var $3577 = self.pst; + var $3578 = self.val; + var self = $3577; + switch (self._) { + case 'Parser.State.new': + var $3580 = self.err; + var $3581 = self.nam; + var $3582 = self.ini; + var $3583 = self.idx; + var $3584 = self.str; + var $3585 = ((console.log(("FALTANDO " + $3584)), (_$208 => { + var $3586 = ((console.log(("VALUE " + $3581)), (_$209 => { + var _reply$pst$210 = Parser$State$new$(Parser$Error$maybe_combine$($3570, $3580), $3581, $3582, $3583, $3584); + var _term$211 = Kind$Term$ref$("Nat.for"); + var _term$212 = Kind$Term$app$(_term$211, Kind$Term$hol$(Bits$e)); + var _term$213 = Kind$Term$app$(_term$212, Kind$Term$ref$($3386)); + var _term$214 = Kind$Term$app$(_term$213, $3473); + var _term$215 = Kind$Term$app$(_term$214, $3508); + var _lamb$216 = Kind$Term$lam$($3438, (_e$216 => { + var $3588 = Kind$Term$lam$($3386, (_s$217 => { + var $3589 = $3543; + return $3589; + })); + return $3588; + })); + var _term$217 = Kind$Term$app$(_term$215, _lamb$216); + var _term$218 = Kind$Term$let$($3386, _term$217, (_x$218 => { + var $3590 = $3578; + return $3590; + })); + var $3587 = Parser$Reply$value$(_reply$pst$210, _term$218); + return $3587; + })())); + return $3586; + })())); + var $3579 = $3585; + break; + }; + var $3571 = $3579; + break; + }; + var $3569 = $3571; + break; + }; + return $3569; + })())); + return $3568; + })())); + var $3561 = $3567; + break; + }; + var $3554 = $3561; + break; + }; + var $3552 = $3554; + break; + }; + return $3552; + })())); + return $3551; + })())); + var $3544 = $3550; + break; + }; + var $3536 = $3544; + break; + }; + var $3534 = $3536; + break; + }; + return $3534; + })())); + return $3533; + })())); + var $3526 = $3532; + break; + }; + var $3519 = $3526; + break; + }; + var $3517 = $3519; + break; + }; + return $3517; + })())); + return $3516; + })())); + var $3509 = $3515; + break; + }; + var $3501 = $3509; + break; + }; + var $3499 = $3501; + break; + }; + return $3499; + })())); + return $3498; + })())); + var $3491 = $3497; + break; + }; + var $3484 = $3491; + break; + }; + var $3482 = $3484; + break; + }; + return $3482; + })())); + return $3481; + })())); + var $3474 = $3480; + break; + }; + var $3466 = $3474; + break; + }; + var $3464 = $3466; + break; + }; + return $3464; + })())); + return $3463; + })())); + var $3456 = $3462; + break; + }; + var $3449 = $3456; + break; + }; + var $3447 = $3449; + break; + }; + return $3447; + })())); + return $3446; + })())); + var $3439 = $3445; + break; + }; + var $3431 = $3439; + break; + }; + var $3429 = $3431; + break; + }; + return $3429; + })())); + return $3428; + })())); + var $3421 = $3427; + break; + }; + var $3414 = $3421; + break; + }; + var $3412 = $3414; + break; + }; + return $3412; + })())); + return $3411; + })())); + var $3404 = $3410; + break; + }; + var $3397 = $3404; + break; + }; + var $3395 = $3397; + break; + }; + return $3395; + })())); + return $3394; + })())); + var $3387 = $3393; + break; + }; + var $3379 = $3387; + break; + }; + var $3377 = $3379; + break; + }; + return $3377; + })())); + return $3376; + })())); + var $3369 = $3375; + break; + }; + var $3362 = $3369; + break; + }; + var $3360 = $3362; + break; + }; + return $3360; + })); + return $3359; + }; + const Kind$Parser$letforrange$nat = x0 => Kind$Parser$letforrange$nat$(x0); + + function Kind$Parser$letforrange$nat$with$(_body$1) { + var $3591 = Kind$Parser$block("for")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $3593 = self.err; + var _reply$8 = Kind$Parser$text$("for ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $3595 = self.err; + var self = $3593; + switch (self._) { + case 'Maybe.some': + var $3597 = self.value; + var $3598 = Parser$Reply$error$(Parser$Error$combine$($3597, $3595)); + var $3596 = $3598; + break; + case 'Maybe.none': + var $3599 = Parser$Reply$error$($3595); + var $3596 = $3599; + break; + }; + var $3594 = $3596; + break; + case 'Parser.Reply.value': + var $3600 = self.pst; + var self = $3600; + switch (self._) { + case 'Parser.State.new': + var $3602 = self.err; + var $3603 = self.nam; + var $3604 = self.ini; + var $3605 = self.idx; + var $3606 = self.str; + var $3607 = ((console.log(("FALTANDO " + $3606)), (_$16 => { + var $3608 = ((console.log(("VALUE " + $3603)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($3593, $3602), $3603, $3604, $3605, $3606); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $3610 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $3612 = self.err; + var self = $3610; + switch (self._) { + case 'Maybe.some': + var $3614 = self.value; + var $3615 = Parser$Reply$error$(Parser$Error$combine$($3614, $3612)); + var $3613 = $3615; + break; + case 'Maybe.none': + var $3616 = Parser$Reply$error$($3612); + var $3613 = $3616; + break; + }; + var $3611 = $3613; + break; + case 'Parser.Reply.value': + var $3617 = self.pst; + var $3618 = self.val; + var self = $3617; + switch (self._) { + case 'Parser.State.new': + var $3620 = self.err; + var $3621 = self.nam; + var $3622 = self.ini; + var $3623 = self.idx; + var $3624 = self.str; + var $3625 = ((console.log(("FALTANDO " + $3624)), (_$32 => { + var $3626 = ((console.log(("VALUE " + $3621)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($3610, $3620), $3621, $3622, $3623, $3624); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $3628 = self.err; + var _reply$40 = Kind$Parser$text$("from", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $3630 = self.err; + var self = $3628; + switch (self._) { + case 'Maybe.some': + var $3632 = self.value; + var $3633 = Parser$Reply$error$(Parser$Error$combine$($3632, $3630)); + var $3631 = $3633; + break; + case 'Maybe.none': + var $3634 = Parser$Reply$error$($3630); + var $3631 = $3634; + break; + }; + var $3629 = $3631; + break; + case 'Parser.Reply.value': + var $3635 = self.pst; + var self = $3635; + switch (self._) { + case 'Parser.State.new': + var $3637 = self.err; + var $3638 = self.nam; + var $3639 = self.ini; + var $3640 = self.idx; + var $3641 = self.str; + var $3642 = ((console.log(("FALTANDO " + $3641)), (_$48 => { + var $3643 = ((console.log(("VALUE " + $3638)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($3628, $3637), $3638, $3639, $3640, $3641); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $3645 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $3647 = self.err; + var self = $3645; + switch (self._) { + case 'Maybe.some': + var $3649 = self.value; + var $3650 = Parser$Reply$error$(Parser$Error$combine$($3649, $3647)); + var $3648 = $3650; + break; + case 'Maybe.none': + var $3651 = Parser$Reply$error$($3647); + var $3648 = $3651; + break; + }; + var $3646 = $3648; + break; + case 'Parser.Reply.value': + var $3652 = self.pst; + var $3653 = self.val; + var self = $3652; + switch (self._) { + case 'Parser.State.new': + var $3655 = self.err; + var $3656 = self.nam; + var $3657 = self.ini; + var $3658 = self.idx; + var $3659 = self.str; + var $3660 = ((console.log(("FALTANDO " + $3659)), (_$64 => { + var $3661 = ((console.log(("VALUE " + $3656)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($3645, $3655), $3656, $3657, $3658, $3659); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $3663 = self.err; + var _reply$72 = Kind$Parser$text$("to", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $3665 = self.err; + var self = $3663; + switch (self._) { + case 'Maybe.some': + var $3667 = self.value; + var $3668 = Parser$Reply$error$(Parser$Error$combine$($3667, $3665)); + var $3666 = $3668; + break; + case 'Maybe.none': + var $3669 = Parser$Reply$error$($3665); + var $3666 = $3669; + break; + }; + var $3664 = $3666; + break; + case 'Parser.Reply.value': + var $3670 = self.pst; + var self = $3670; + switch (self._) { + case 'Parser.State.new': + var $3672 = self.err; + var $3673 = self.nam; + var $3674 = self.ini; + var $3675 = self.idx; + var $3676 = self.str; + var $3677 = ((console.log(("FALTANDO " + $3676)), (_$80 => { + var $3678 = ((console.log(("VALUE " + $3673)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($3663, $3672), $3673, $3674, $3675, $3676); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $3680 = self.err; + var _reply$88 = Kind$Parser$term(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $3682 = self.err; + var self = $3680; + switch (self._) { + case 'Maybe.some': + var $3684 = self.value; + var $3685 = Parser$Reply$error$(Parser$Error$combine$($3684, $3682)); + var $3683 = $3685; + break; + case 'Maybe.none': + var $3686 = Parser$Reply$error$($3682); + var $3683 = $3686; + break; + }; + var $3681 = $3683; + break; + case 'Parser.Reply.value': + var $3687 = self.pst; + var $3688 = self.val; + var self = $3687; + switch (self._) { + case 'Parser.State.new': + var $3690 = self.err; + var $3691 = self.nam; + var $3692 = self.ini; + var $3693 = self.idx; + var $3694 = self.str; + var $3695 = ((console.log(("FALTANDO " + $3694)), (_$96 => { + var $3696 = ((console.log(("VALUE " + $3691)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($3680, $3690), $3691, $3692, $3693, $3694); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $3698 = self.err; + var _reply$104 = Kind$Parser$text$("with ", _reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $3700 = self.err; + var self = $3698; + switch (self._) { + case 'Maybe.some': + var $3702 = self.value; + var $3703 = Parser$Reply$error$(Parser$Error$combine$($3702, $3700)); + var $3701 = $3703; + break; + case 'Maybe.none': + var $3704 = Parser$Reply$error$($3700); + var $3701 = $3704; + break; + }; + var $3699 = $3701; + break; + case 'Parser.Reply.value': + var $3705 = self.pst; + var self = $3705; + switch (self._) { + case 'Parser.State.new': + var $3707 = self.err; + var $3708 = self.nam; + var $3709 = self.ini; + var $3710 = self.idx; + var $3711 = self.str; + var $3712 = ((console.log(("FALTANDO " + $3711)), (_$112 => { + var $3713 = ((console.log(("VALUE " + $3708)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3698, $3707), $3708, $3709, $3710, $3711); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $3715 = self.err; + var _reply$120 = Kind$Parser$name1$(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $3717 = self.err; + var self = $3715; + switch (self._) { + case 'Maybe.some': + var $3719 = self.value; + var $3720 = Parser$Reply$error$(Parser$Error$combine$($3719, $3717)); + var $3718 = $3720; + break; + case 'Maybe.none': + var $3721 = Parser$Reply$error$($3717); + var $3718 = $3721; + break; + }; + var $3716 = $3718; + break; + case 'Parser.Reply.value': + var $3722 = self.pst; + var $3723 = self.val; + var self = $3722; + switch (self._) { + case 'Parser.State.new': + var $3725 = self.err; + var $3726 = self.nam; + var $3727 = self.ini; + var $3728 = self.idx; + var $3729 = self.str; + var $3730 = ((console.log(("FALTANDO " + $3729)), (_$128 => { + var $3731 = ((console.log(("VALUE " + $3726)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($3715, $3725), $3726, $3727, $3728, $3729); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $3733 = self.err; + var _reply$136 = Kind$Parser$text$(":", _reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $3735 = self.err; + var self = $3733; + switch (self._) { + case 'Maybe.some': + var $3737 = self.value; + var $3738 = Parser$Reply$error$(Parser$Error$combine$($3737, $3735)); + var $3736 = $3738; + break; + case 'Maybe.none': + var $3739 = Parser$Reply$error$($3735); + var $3736 = $3739; + break; + }; + var $3734 = $3736; + break; + case 'Parser.Reply.value': + var $3740 = self.pst; + var self = $3740; + switch (self._) { + case 'Parser.State.new': + var $3742 = self.err; + var $3743 = self.nam; + var $3744 = self.ini; + var $3745 = self.idx; + var $3746 = self.str; + var $3747 = ((console.log(("FALTANDO " + $3746)), (_$144 => { + var $3748 = ((console.log(("VALUE " + $3743)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($3733, $3742), $3743, $3744, $3745, $3746); + var self = _reply$pst$146; + switch (self._) { + case 'Parser.State.new': + var $3750 = self.err; + var _reply$152 = Kind$Parser$term(_reply$pst$146); + var self = _reply$152; + switch (self._) { + case 'Parser.Reply.error': + var $3752 = self.err; + var self = $3750; + switch (self._) { + case 'Maybe.some': + var $3754 = self.value; + var $3755 = Parser$Reply$error$(Parser$Error$combine$($3754, $3752)); + var $3753 = $3755; + break; + case 'Maybe.none': + var $3756 = Parser$Reply$error$($3752); + var $3753 = $3756; + break; + }; + var $3751 = $3753; + break; + case 'Parser.Reply.value': + var $3757 = self.pst; + var $3758 = self.val; + var self = $3757; + switch (self._) { + case 'Parser.State.new': + var $3760 = self.err; + var $3761 = self.nam; + var $3762 = self.ini; + var $3763 = self.idx; + var $3764 = self.str; + var $3765 = ((console.log(("FALTANDO " + $3764)), (_$160 => { + var $3766 = ((console.log(("VALUE " + $3761)), (_$161 => { + var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($3750, $3760), $3761, $3762, $3763, $3764); + var self = _reply$pst$162; + switch (self._) { + case 'Parser.State.new': + var $3768 = self.err; + var _reply$168 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$162); + var self = _reply$168; + switch (self._) { + case 'Parser.Reply.error': + var $3770 = self.err; + var self = $3768; + switch (self._) { + case 'Maybe.some': + var $3772 = self.value; + var $3773 = Parser$Reply$error$(Parser$Error$combine$($3772, $3770)); + var $3771 = $3773; + break; + case 'Maybe.none': + var $3774 = Parser$Reply$error$($3770); + var $3771 = $3774; + break; + }; + var $3769 = $3771; + break; + case 'Parser.Reply.value': + var $3775 = self.pst; + var self = $3775; + switch (self._) { + case 'Parser.State.new': + var $3777 = self.err; + var $3778 = self.nam; + var $3779 = self.ini; + var $3780 = self.idx; + var $3781 = self.str; + var $3782 = ((console.log(("FALTANDO " + $3781)), (_$176 => { + var $3783 = ((console.log(("VALUE " + $3778)), (_$177 => { + var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($3768, $3777), $3778, $3779, $3780, $3781); + var self = _reply$pst$178; + switch (self._) { + case 'Parser.State.new': + var $3785 = self.err; + var _reply$184 = _body$1(Unit$new)(_reply$pst$178); + var self = _reply$184; + switch (self._) { + case 'Parser.Reply.error': + var $3787 = self.err; + var self = $3785; + switch (self._) { + case 'Maybe.some': + var $3789 = self.value; + var $3790 = Parser$Reply$error$(Parser$Error$combine$($3789, $3787)); + var $3788 = $3790; + break; + case 'Maybe.none': + var $3791 = Parser$Reply$error$($3787); + var $3788 = $3791; + break; + }; + var $3786 = $3788; + break; + case 'Parser.Reply.value': + var $3792 = self.pst; + var $3793 = self.val; + var self = $3792; + switch (self._) { + case 'Parser.State.new': + var $3795 = self.err; + var $3796 = self.nam; + var $3797 = self.ini; + var $3798 = self.idx; + var $3799 = self.str; + var $3800 = ((console.log(("FALTANDO " + $3799)), (_$192 => { + var $3801 = ((console.log(("VALUE " + $3796)), (_$193 => { + var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($3785, $3795), $3796, $3797, $3798, $3799); + var _term$195 = Kind$Term$ref$("Nat.for"); + var _term$196 = Kind$Term$app$(_term$195, Kind$Term$hol$(Bits$e)); + var _term$197 = Kind$Term$app$(_term$196, Kind$Term$ref$($3723)); + var _term$198 = Kind$Term$app$(_term$197, $3653); + var _term$199 = Kind$Term$app$(_term$198, $3688); + var _lamb$200 = Kind$Term$lam$($3618, (_e$200 => { + var $3803 = Kind$Term$lam$($3723, (_s$201 => { + var $3804 = $3758; + return $3804; + })); + return $3803; + })); + var _term$201 = Kind$Term$app$(_term$199, _lamb$200); + var _term$202 = Kind$Term$let$($3723, _term$201, (_x$202 => { + var $3805 = $3793; + return $3805; + })); + var $3802 = Parser$Reply$value$(_reply$pst$194, _term$202); + return $3802; + })())); + return $3801; + })())); + var $3794 = $3800; + break; + }; + var $3786 = $3794; + break; + }; + var $3784 = $3786; + break; + }; + return $3784; + })())); + return $3783; + })())); + var $3776 = $3782; + break; + }; + var $3769 = $3776; + break; + }; + var $3767 = $3769; + break; + }; + return $3767; + })())); + return $3766; + })())); + var $3759 = $3765; + break; + }; + var $3751 = $3759; + break; + }; + var $3749 = $3751; + break; + }; + return $3749; + })())); + return $3748; + })())); + var $3741 = $3747; + break; + }; + var $3734 = $3741; + break; + }; + var $3732 = $3734; + break; + }; + return $3732; + })())); + return $3731; + })())); + var $3724 = $3730; + break; + }; + var $3716 = $3724; + break; + }; + var $3714 = $3716; + break; + }; + return $3714; + })())); + return $3713; + })())); + var $3706 = $3712; + break; + }; + var $3699 = $3706; + break; + }; + var $3697 = $3699; + break; + }; + return $3697; + })())); + return $3696; + })())); + var $3689 = $3695; + break; + }; + var $3681 = $3689; + break; + }; + var $3679 = $3681; + break; + }; + return $3679; + })())); + return $3678; + })())); + var $3671 = $3677; + break; + }; + var $3664 = $3671; + break; + }; + var $3662 = $3664; + break; + }; + return $3662; + })())); + return $3661; + })())); + var $3654 = $3660; + break; + }; + var $3646 = $3654; + break; + }; + var $3644 = $3646; + break; + }; + return $3644; + })())); + return $3643; + })())); + var $3636 = $3642; + break; + }; + var $3629 = $3636; + break; + }; + var $3627 = $3629; + break; + }; + return $3627; + })())); + return $3626; + })())); + var $3619 = $3625; + break; + }; + var $3611 = $3619; + break; + }; + var $3609 = $3611; + break; + }; + return $3609; + })())); + return $3608; + })())); + var $3601 = $3607; + break; + }; + var $3594 = $3601; + break; + }; + var $3592 = $3594; + break; + }; + return $3592; + })); + return $3591; + }; + const Kind$Parser$letforrange$nat$with = x0 => Kind$Parser$letforrange$nat$with$(x0); + + function Kind$Parser$letforin$(_body$1) { + var $3806 = Kind$Parser$block("let-for")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $3808 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $3810 = self.err; + var self = $3808; + switch (self._) { + case 'Maybe.some': + var $3812 = self.value; + var $3813 = Parser$Reply$error$(Parser$Error$combine$($3812, $3810)); + var $3811 = $3813; + break; + case 'Maybe.none': + var $3814 = Parser$Reply$error$($3810); + var $3811 = $3814; + break; + }; + var $3809 = $3811; + break; + case 'Parser.Reply.value': + var $3815 = self.pst; + var self = $3815; + switch (self._) { + case 'Parser.State.new': + var $3817 = self.err; + var $3818 = self.nam; + var $3819 = self.ini; + var $3820 = self.idx; + var $3821 = self.str; + var $3822 = ((console.log(("FALTANDO " + $3821)), (_$16 => { + var $3823 = ((console.log(("VALUE " + $3818)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($3808, $3817), $3818, $3819, $3820, $3821); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $3825 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $3827 = self.err; + var self = $3825; + switch (self._) { + case 'Maybe.some': + var $3829 = self.value; + var $3830 = Parser$Reply$error$(Parser$Error$combine$($3829, $3827)); + var $3828 = $3830; + break; + case 'Maybe.none': + var $3831 = Parser$Reply$error$($3827); + var $3828 = $3831; + break; + }; + var $3826 = $3828; + break; + case 'Parser.Reply.value': + var $3832 = self.pst; + var $3833 = self.val; + var self = $3832; + switch (self._) { + case 'Parser.State.new': + var $3835 = self.err; + var $3836 = self.nam; + var $3837 = self.ini; + var $3838 = self.idx; + var $3839 = self.str; + var $3840 = ((console.log(("FALTANDO " + $3839)), (_$32 => { + var $3841 = ((console.log(("VALUE " + $3836)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($3825, $3835), $3836, $3837, $3838, $3839); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $3843 = self.err; + var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $3845 = self.err; + var self = $3843; + switch (self._) { + case 'Maybe.some': + var $3847 = self.value; + var $3848 = Parser$Reply$error$(Parser$Error$combine$($3847, $3845)); + var $3846 = $3848; + break; + case 'Maybe.none': + var $3849 = Parser$Reply$error$($3845); + var $3846 = $3849; + break; + }; + var $3844 = $3846; + break; + case 'Parser.Reply.value': + var $3850 = self.pst; + var self = $3850; + switch (self._) { + case 'Parser.State.new': + var $3852 = self.err; + var $3853 = self.nam; + var $3854 = self.ini; + var $3855 = self.idx; + var $3856 = self.str; + var $3857 = ((console.log(("FALTANDO " + $3856)), (_$48 => { + var $3858 = ((console.log(("VALUE " + $3853)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($3843, $3852), $3853, $3854, $3855, $3856); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $3860 = self.err; + var _reply$56 = Kind$Parser$text$("for ", _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $3862 = self.err; + var self = $3860; + switch (self._) { + case 'Maybe.some': + var $3864 = self.value; + var $3865 = Parser$Reply$error$(Parser$Error$combine$($3864, $3862)); + var $3863 = $3865; + break; + case 'Maybe.none': + var $3866 = Parser$Reply$error$($3862); + var $3863 = $3866; + break; + }; + var $3861 = $3863; + break; + case 'Parser.Reply.value': + var $3867 = self.pst; + var self = $3867; + switch (self._) { + case 'Parser.State.new': + var $3869 = self.err; + var $3870 = self.nam; + var $3871 = self.ini; + var $3872 = self.idx; + var $3873 = self.str; + var $3874 = ((console.log(("FALTANDO " + $3873)), (_$64 => { + var $3875 = ((console.log(("VALUE " + $3870)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($3860, $3869), $3870, $3871, $3872, $3873); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $3877 = self.err; + var _reply$72 = Kind$Parser$name1$(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $3879 = self.err; + var self = $3877; + switch (self._) { + case 'Maybe.some': + var $3881 = self.value; + var $3882 = Parser$Reply$error$(Parser$Error$combine$($3881, $3879)); + var $3880 = $3882; + break; + case 'Maybe.none': + var $3883 = Parser$Reply$error$($3879); + var $3880 = $3883; + break; + }; + var $3878 = $3880; + break; + case 'Parser.Reply.value': + var $3884 = self.pst; + var $3885 = self.val; + var self = $3884; + switch (self._) { + case 'Parser.State.new': + var $3887 = self.err; + var $3888 = self.nam; + var $3889 = self.ini; + var $3890 = self.idx; + var $3891 = self.str; + var $3892 = ((console.log(("FALTANDO " + $3891)), (_$80 => { + var $3893 = ((console.log(("VALUE " + $3888)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($3877, $3887), $3888, $3889, $3890, $3891); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $3895 = self.err; + var _reply$88 = Kind$Parser$text$("in", _reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $3897 = self.err; + var self = $3895; + switch (self._) { + case 'Maybe.some': + var $3899 = self.value; + var $3900 = Parser$Reply$error$(Parser$Error$combine$($3899, $3897)); + var $3898 = $3900; + break; + case 'Maybe.none': + var $3901 = Parser$Reply$error$($3897); + var $3898 = $3901; + break; + }; + var $3896 = $3898; + break; + case 'Parser.Reply.value': + var $3902 = self.pst; + var self = $3902; + switch (self._) { + case 'Parser.State.new': + var $3904 = self.err; + var $3905 = self.nam; + var $3906 = self.ini; + var $3907 = self.idx; + var $3908 = self.str; + var $3909 = ((console.log(("FALTANDO " + $3908)), (_$96 => { + var $3910 = ((console.log(("VALUE " + $3905)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($3895, $3904), $3905, $3906, $3907, $3908); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $3912 = self.err; + var _reply$104 = Kind$Parser$term(_reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $3914 = self.err; + var self = $3912; + switch (self._) { + case 'Maybe.some': + var $3916 = self.value; + var $3917 = Parser$Reply$error$(Parser$Error$combine$($3916, $3914)); + var $3915 = $3917; + break; + case 'Maybe.none': + var $3918 = Parser$Reply$error$($3914); + var $3915 = $3918; + break; + }; + var $3913 = $3915; + break; + case 'Parser.Reply.value': + var $3919 = self.pst; + var $3920 = self.val; + var self = $3919; + switch (self._) { + case 'Parser.State.new': + var $3922 = self.err; + var $3923 = self.nam; + var $3924 = self.ini; + var $3925 = self.idx; + var $3926 = self.str; + var $3927 = ((console.log(("FALTANDO " + $3926)), (_$112 => { + var $3928 = ((console.log(("VALUE " + $3923)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3912, $3922), $3923, $3924, $3925, $3926); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $3930 = self.err; + var _reply$120 = Kind$Parser$text$(":", _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $3932 = self.err; + var self = $3930; + switch (self._) { + case 'Maybe.some': + var $3934 = self.value; + var $3935 = Parser$Reply$error$(Parser$Error$combine$($3934, $3932)); + var $3933 = $3935; + break; + case 'Maybe.none': + var $3936 = Parser$Reply$error$($3932); + var $3933 = $3936; + break; + }; + var $3931 = $3933; + break; + case 'Parser.Reply.value': + var $3937 = self.pst; + var self = $3937; + switch (self._) { + case 'Parser.State.new': + var $3939 = self.err; + var $3940 = self.nam; + var $3941 = self.ini; + var $3942 = self.idx; + var $3943 = self.str; + var $3944 = ((console.log(("FALTANDO " + $3943)), (_$128 => { + var $3945 = ((console.log(("VALUE " + $3940)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($3930, $3939), $3940, $3941, $3942, $3943); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $3947 = self.err; + var _reply$136 = Kind$Parser$term(_reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $3949 = self.err; + var self = $3947; + switch (self._) { + case 'Maybe.some': + var $3951 = self.value; + var $3952 = Parser$Reply$error$(Parser$Error$combine$($3951, $3949)); + var $3950 = $3952; + break; + case 'Maybe.none': + var $3953 = Parser$Reply$error$($3949); + var $3950 = $3953; + break; + }; + var $3948 = $3950; + break; + case 'Parser.Reply.value': + var $3954 = self.pst; + var $3955 = self.val; + var self = $3954; + switch (self._) { + case 'Parser.State.new': + var $3957 = self.err; + var $3958 = self.nam; + var $3959 = self.ini; + var $3960 = self.idx; + var $3961 = self.str; + var $3962 = ((console.log(("FALTANDO " + $3961)), (_$144 => { + var $3963 = ((console.log(("VALUE " + $3958)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($3947, $3957), $3958, $3959, $3960, $3961); + var self = _reply$pst$146; + switch (self._) { + case 'Parser.State.new': + var $3965 = self.err; + var _reply$152 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$146); + var self = _reply$152; + switch (self._) { + case 'Parser.Reply.error': + var $3967 = self.err; + var self = $3965; + switch (self._) { + case 'Maybe.some': + var $3969 = self.value; + var $3970 = Parser$Reply$error$(Parser$Error$combine$($3969, $3967)); + var $3968 = $3970; + break; + case 'Maybe.none': + var $3971 = Parser$Reply$error$($3967); + var $3968 = $3971; + break; + }; + var $3966 = $3968; + break; + case 'Parser.Reply.value': + var $3972 = self.pst; + var self = $3972; + switch (self._) { + case 'Parser.State.new': + var $3974 = self.err; + var $3975 = self.nam; + var $3976 = self.ini; + var $3977 = self.idx; + var $3978 = self.str; + var $3979 = ((console.log(("FALTANDO " + $3978)), (_$160 => { + var $3980 = ((console.log(("VALUE " + $3975)), (_$161 => { + var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($3965, $3974), $3975, $3976, $3977, $3978); + var self = _reply$pst$162; + switch (self._) { + case 'Parser.State.new': + var $3982 = self.err; + var _reply$168 = _body$1(Unit$new)(_reply$pst$162); + var self = _reply$168; + switch (self._) { + case 'Parser.Reply.error': + var $3984 = self.err; + var self = $3982; + switch (self._) { + case 'Maybe.some': + var $3986 = self.value; + var $3987 = Parser$Reply$error$(Parser$Error$combine$($3986, $3984)); + var $3985 = $3987; + break; + case 'Maybe.none': + var $3988 = Parser$Reply$error$($3984); + var $3985 = $3988; + break; + }; + var $3983 = $3985; + break; + case 'Parser.Reply.value': + var $3989 = self.pst; + var $3990 = self.val; + var self = $3989; + switch (self._) { + case 'Parser.State.new': + var $3992 = self.err; + var $3993 = self.nam; + var $3994 = self.ini; + var $3995 = self.idx; + var $3996 = self.str; + var $3997 = ((console.log(("FALTANDO " + $3996)), (_$176 => { + var $3998 = ((console.log(("VALUE " + $3993)), (_$177 => { + var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($3982, $3992), $3993, $3994, $3995, $3996); + var _term$179 = Kind$Term$ref$("List.for"); + var _term$180 = Kind$Term$app$(_term$179, Kind$Term$hol$(Bits$e)); + var _term$181 = Kind$Term$app$(_term$180, $3920); + var _term$182 = Kind$Term$app$(_term$181, Kind$Term$hol$(Bits$e)); + var _term$183 = Kind$Term$app$(_term$182, Kind$Term$ref$($3833)); + var _lamb$184 = Kind$Term$lam$($3885, (_i$184 => { + var $4000 = Kind$Term$lam$($3833, (_x$185 => { + var $4001 = $3955; + return $4001; + })); + return $4000; + })); + var _term$185 = Kind$Term$app$(_term$183, _lamb$184); + var _term$186 = Kind$Term$let$($3833, _term$185, (_x$186 => { + var $4002 = $3990; + return $4002; + })); + var $3999 = Parser$Reply$value$(_reply$pst$178, _term$186); + return $3999; + })())); + return $3998; + })())); + var $3991 = $3997; + break; + }; + var $3983 = $3991; + break; + }; + var $3981 = $3983; + break; + }; + return $3981; + })())); + return $3980; + })())); + var $3973 = $3979; + break; + }; + var $3966 = $3973; + break; + }; + var $3964 = $3966; + break; + }; + return $3964; + })())); + return $3963; + })())); + var $3956 = $3962; + break; + }; + var $3948 = $3956; + break; + }; + var $3946 = $3948; + break; + }; + return $3946; + })())); + return $3945; + })())); + var $3938 = $3944; + break; + }; + var $3931 = $3938; + break; + }; + var $3929 = $3931; + break; + }; + return $3929; + })())); + return $3928; + })())); + var $3921 = $3927; + break; + }; + var $3913 = $3921; + break; + }; + var $3911 = $3913; + break; + }; + return $3911; + })())); + return $3910; + })())); + var $3903 = $3909; + break; + }; + var $3896 = $3903; + break; + }; + var $3894 = $3896; + break; + }; + return $3894; + })())); + return $3893; + })())); + var $3886 = $3892; + break; + }; + var $3878 = $3886; + break; + }; + var $3876 = $3878; + break; + }; + return $3876; + })())); + return $3875; + })())); + var $3868 = $3874; + break; + }; + var $3861 = $3868; + break; + }; + var $3859 = $3861; + break; + }; + return $3859; + })())); + return $3858; + })())); + var $3851 = $3857; + break; + }; + var $3844 = $3851; + break; + }; + var $3842 = $3844; + break; + }; + return $3842; + })())); + return $3841; + })())); + var $3834 = $3840; + break; + }; + var $3826 = $3834; + break; + }; + var $3824 = $3826; + break; + }; + return $3824; + })())); + return $3823; + })())); + var $3816 = $3822; + break; + }; + var $3809 = $3816; + break; + }; + var $3807 = $3809; + break; + }; + return $3807; + })); + return $3806; + }; + const Kind$Parser$letforin = x0 => Kind$Parser$letforin$(x0); + + function Kind$Parser$letforin$with$(_body$1) { + var $4003 = Kind$Parser$block("for")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4005 = self.err; + var _reply$8 = Kind$Parser$text$("for ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4007 = self.err; + var self = $4005; + switch (self._) { + case 'Maybe.some': + var $4009 = self.value; + var $4010 = Parser$Reply$error$(Parser$Error$combine$($4009, $4007)); + var $4008 = $4010; + break; + case 'Maybe.none': + var $4011 = Parser$Reply$error$($4007); + var $4008 = $4011; + break; + }; + var $4006 = $4008; + break; + case 'Parser.Reply.value': + var $4012 = self.pst; + var self = $4012; + switch (self._) { + case 'Parser.State.new': + var $4014 = self.err; + var $4015 = self.nam; + var $4016 = self.ini; + var $4017 = self.idx; + var $4018 = self.str; + var $4019 = ((console.log(("FALTANDO " + $4018)), (_$16 => { + var $4020 = ((console.log(("VALUE " + $4015)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4005, $4014), $4015, $4016, $4017, $4018); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $4022 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $4024 = self.err; + var self = $4022; + switch (self._) { + case 'Maybe.some': + var $4026 = self.value; + var $4027 = Parser$Reply$error$(Parser$Error$combine$($4026, $4024)); + var $4025 = $4027; + break; + case 'Maybe.none': + var $4028 = Parser$Reply$error$($4024); + var $4025 = $4028; + break; + }; + var $4023 = $4025; + break; + case 'Parser.Reply.value': + var $4029 = self.pst; + var $4030 = self.val; + var self = $4029; + switch (self._) { + case 'Parser.State.new': + var $4032 = self.err; + var $4033 = self.nam; + var $4034 = self.ini; + var $4035 = self.idx; + var $4036 = self.str; + var $4037 = ((console.log(("FALTANDO " + $4036)), (_$32 => { + var $4038 = ((console.log(("VALUE " + $4033)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4022, $4032), $4033, $4034, $4035, $4036); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $4040 = self.err; + var _reply$40 = Kind$Parser$text$("in", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $4042 = self.err; + var self = $4040; + switch (self._) { + case 'Maybe.some': + var $4044 = self.value; + var $4045 = Parser$Reply$error$(Parser$Error$combine$($4044, $4042)); + var $4043 = $4045; + break; + case 'Maybe.none': + var $4046 = Parser$Reply$error$($4042); + var $4043 = $4046; + break; + }; + var $4041 = $4043; + break; + case 'Parser.Reply.value': + var $4047 = self.pst; + var self = $4047; + switch (self._) { + case 'Parser.State.new': + var $4049 = self.err; + var $4050 = self.nam; + var $4051 = self.ini; + var $4052 = self.idx; + var $4053 = self.str; + var $4054 = ((console.log(("FALTANDO " + $4053)), (_$48 => { + var $4055 = ((console.log(("VALUE " + $4050)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4040, $4049), $4050, $4051, $4052, $4053); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $4057 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $4059 = self.err; + var self = $4057; + switch (self._) { + case 'Maybe.some': + var $4061 = self.value; + var $4062 = Parser$Reply$error$(Parser$Error$combine$($4061, $4059)); + var $4060 = $4062; + break; + case 'Maybe.none': + var $4063 = Parser$Reply$error$($4059); + var $4060 = $4063; + break; + }; + var $4058 = $4060; + break; + case 'Parser.Reply.value': + var $4064 = self.pst; + var $4065 = self.val; + var self = $4064; + switch (self._) { + case 'Parser.State.new': + var $4067 = self.err; + var $4068 = self.nam; + var $4069 = self.ini; + var $4070 = self.idx; + var $4071 = self.str; + var $4072 = ((console.log(("FALTANDO " + $4071)), (_$64 => { + var $4073 = ((console.log(("VALUE " + $4068)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4057, $4067), $4068, $4069, $4070, $4071); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $4075 = self.err; + var _reply$72 = Kind$Parser$text$("with", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $4077 = self.err; + var self = $4075; + switch (self._) { + case 'Maybe.some': + var $4079 = self.value; + var $4080 = Parser$Reply$error$(Parser$Error$combine$($4079, $4077)); + var $4078 = $4080; + break; + case 'Maybe.none': + var $4081 = Parser$Reply$error$($4077); + var $4078 = $4081; + break; + }; + var $4076 = $4078; + break; + case 'Parser.Reply.value': + var $4082 = self.pst; + var self = $4082; + switch (self._) { + case 'Parser.State.new': + var $4084 = self.err; + var $4085 = self.nam; + var $4086 = self.ini; + var $4087 = self.idx; + var $4088 = self.str; + var $4089 = ((console.log(("FALTANDO " + $4088)), (_$80 => { + var $4090 = ((console.log(("VALUE " + $4085)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($4075, $4084), $4085, $4086, $4087, $4088); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $4092 = self.err; + var _reply$88 = Kind$Parser$name1$(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $4094 = self.err; + var self = $4092; + switch (self._) { + case 'Maybe.some': + var $4096 = self.value; + var $4097 = Parser$Reply$error$(Parser$Error$combine$($4096, $4094)); + var $4095 = $4097; + break; + case 'Maybe.none': + var $4098 = Parser$Reply$error$($4094); + var $4095 = $4098; + break; + }; + var $4093 = $4095; + break; + case 'Parser.Reply.value': + var $4099 = self.pst; + var $4100 = self.val; + var self = $4099; + switch (self._) { + case 'Parser.State.new': + var $4102 = self.err; + var $4103 = self.nam; + var $4104 = self.ini; + var $4105 = self.idx; + var $4106 = self.str; + var $4107 = ((console.log(("FALTANDO " + $4106)), (_$96 => { + var $4108 = ((console.log(("VALUE " + $4103)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($4092, $4102), $4103, $4104, $4105, $4106); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $4110 = self.err; + var _reply$104 = Kind$Parser$text$(":", _reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $4112 = self.err; + var self = $4110; + switch (self._) { + case 'Maybe.some': + var $4114 = self.value; + var $4115 = Parser$Reply$error$(Parser$Error$combine$($4114, $4112)); + var $4113 = $4115; + break; + case 'Maybe.none': + var $4116 = Parser$Reply$error$($4112); + var $4113 = $4116; + break; + }; + var $4111 = $4113; + break; + case 'Parser.Reply.value': + var $4117 = self.pst; + var self = $4117; + switch (self._) { + case 'Parser.State.new': + var $4119 = self.err; + var $4120 = self.nam; + var $4121 = self.ini; + var $4122 = self.idx; + var $4123 = self.str; + var $4124 = ((console.log(("FALTANDO " + $4123)), (_$112 => { + var $4125 = ((console.log(("VALUE " + $4120)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4110, $4119), $4120, $4121, $4122, $4123); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $4127 = self.err; + var _reply$120 = Kind$Parser$term(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $4129 = self.err; + var self = $4127; + switch (self._) { + case 'Maybe.some': + var $4131 = self.value; + var $4132 = Parser$Reply$error$(Parser$Error$combine$($4131, $4129)); + var $4130 = $4132; + break; + case 'Maybe.none': + var $4133 = Parser$Reply$error$($4129); + var $4130 = $4133; + break; + }; + var $4128 = $4130; + break; + case 'Parser.Reply.value': + var $4134 = self.pst; + var $4135 = self.val; + var self = $4134; + switch (self._) { + case 'Parser.State.new': + var $4137 = self.err; + var $4138 = self.nam; + var $4139 = self.ini; + var $4140 = self.idx; + var $4141 = self.str; + var $4142 = ((console.log(("FALTANDO " + $4141)), (_$128 => { + var $4143 = ((console.log(("VALUE " + $4138)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($4127, $4137), $4138, $4139, $4140, $4141); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $4145 = self.err; + var _reply$136 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $4147 = self.err; + var self = $4145; + switch (self._) { + case 'Maybe.some': + var $4149 = self.value; + var $4150 = Parser$Reply$error$(Parser$Error$combine$($4149, $4147)); + var $4148 = $4150; + break; + case 'Maybe.none': + var $4151 = Parser$Reply$error$($4147); + var $4148 = $4151; + break; + }; + var $4146 = $4148; + break; + case 'Parser.Reply.value': + var $4152 = self.pst; + var self = $4152; + switch (self._) { + case 'Parser.State.new': + var $4154 = self.err; + var $4155 = self.nam; + var $4156 = self.ini; + var $4157 = self.idx; + var $4158 = self.str; + var $4159 = ((console.log(("FALTANDO " + $4158)), (_$144 => { + var $4160 = ((console.log(("VALUE " + $4155)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($4145, $4154), $4155, $4156, $4157, $4158); + var self = _reply$pst$146; + switch (self._) { + case 'Parser.State.new': + var $4162 = self.err; + var _reply$152 = _body$1(Unit$new)(_reply$pst$146); + var self = _reply$152; + switch (self._) { + case 'Parser.Reply.error': + var $4164 = self.err; + var self = $4162; + switch (self._) { + case 'Maybe.some': + var $4166 = self.value; + var $4167 = Parser$Reply$error$(Parser$Error$combine$($4166, $4164)); + var $4165 = $4167; + break; + case 'Maybe.none': + var $4168 = Parser$Reply$error$($4164); + var $4165 = $4168; + break; + }; + var $4163 = $4165; + break; + case 'Parser.Reply.value': + var $4169 = self.pst; + var $4170 = self.val; + var self = $4169; + switch (self._) { + case 'Parser.State.new': + var $4172 = self.err; + var $4173 = self.nam; + var $4174 = self.ini; + var $4175 = self.idx; + var $4176 = self.str; + var $4177 = ((console.log(("FALTANDO " + $4176)), (_$160 => { + var $4178 = ((console.log(("VALUE " + $4173)), (_$161 => { + var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($4162, $4172), $4173, $4174, $4175, $4176); + var _term$163 = Kind$Term$ref$("List.for"); + var _term$164 = Kind$Term$app$(_term$163, Kind$Term$hol$(Bits$e)); + var _term$165 = Kind$Term$app$(_term$164, $4065); + var _term$166 = Kind$Term$app$(_term$165, Kind$Term$hol$(Bits$e)); + var _term$167 = Kind$Term$app$(_term$166, Kind$Term$ref$($4100)); + var _lamb$168 = Kind$Term$lam$($4030, (_i$168 => { + var $4180 = Kind$Term$lam$($4100, (_x$169 => { + var $4181 = $4135; + return $4181; + })); + return $4180; + })); + var _term$169 = Kind$Term$app$(_term$167, _lamb$168); + var _term$170 = Kind$Term$let$($4100, _term$169, (_x$170 => { + var $4182 = $4170; + return $4182; + })); + var $4179 = Parser$Reply$value$(_reply$pst$162, _term$170); + return $4179; + })())); + return $4178; + })())); + var $4171 = $4177; + break; + }; + var $4163 = $4171; + break; + }; + var $4161 = $4163; + break; + }; + return $4161; + })())); + return $4160; + })())); + var $4153 = $4159; + break; + }; + var $4146 = $4153; + break; + }; + var $4144 = $4146; + break; + }; + return $4144; + })())); + return $4143; + })())); + var $4136 = $4142; + break; + }; + var $4128 = $4136; + break; + }; + var $4126 = $4128; + break; + }; + return $4126; + })())); + return $4125; + })())); + var $4118 = $4124; + break; + }; + var $4111 = $4118; + break; + }; + var $4109 = $4111; + break; + }; + return $4109; + })())); + return $4108; + })())); + var $4101 = $4107; + break; + }; + var $4093 = $4101; + break; + }; + var $4091 = $4093; + break; + }; + return $4091; + })())); + return $4090; + })())); + var $4083 = $4089; + break; + }; + var $4076 = $4083; + break; + }; + var $4074 = $4076; + break; + }; + return $4074; + })())); + return $4073; + })())); + var $4066 = $4072; + break; + }; + var $4058 = $4066; + break; + }; + var $4056 = $4058; + break; + }; + return $4056; + })())); + return $4055; + })())); + var $4048 = $4054; + break; + }; + var $4041 = $4048; + break; + }; + var $4039 = $4041; + break; + }; + return $4039; + })())); + return $4038; + })())); + var $4031 = $4037; + break; + }; + var $4023 = $4031; + break; + }; + var $4021 = $4023; + break; + }; + return $4021; + })())); + return $4020; + })())); + var $4013 = $4019; + break; + }; + var $4006 = $4013; + break; + }; + var $4004 = $4006; + break; + }; + return $4004; + })); + return $4003; + }; + const Kind$Parser$letforin$with = x0 => Kind$Parser$letforin$with$(x0); + + function Kind$Parser$letforinmap$(_body$1) { + var $4183 = Kind$Parser$block("let-for-map")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4185 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4187 = self.err; + var self = $4185; + switch (self._) { + case 'Maybe.some': + var $4189 = self.value; + var $4190 = Parser$Reply$error$(Parser$Error$combine$($4189, $4187)); + var $4188 = $4190; + break; + case 'Maybe.none': + var $4191 = Parser$Reply$error$($4187); + var $4188 = $4191; + break; + }; + var $4186 = $4188; + break; + case 'Parser.Reply.value': + var $4192 = self.pst; + var self = $4192; + switch (self._) { + case 'Parser.State.new': + var $4194 = self.err; + var $4195 = self.nam; + var $4196 = self.ini; + var $4197 = self.idx; + var $4198 = self.str; + var $4199 = ((console.log(("FALTANDO " + $4198)), (_$16 => { + var $4200 = ((console.log(("VALUE " + $4195)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4185, $4194), $4195, $4196, $4197, $4198); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $4202 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $4204 = self.err; + var self = $4202; + switch (self._) { + case 'Maybe.some': + var $4206 = self.value; + var $4207 = Parser$Reply$error$(Parser$Error$combine$($4206, $4204)); + var $4205 = $4207; + break; + case 'Maybe.none': + var $4208 = Parser$Reply$error$($4204); + var $4205 = $4208; + break; + }; + var $4203 = $4205; + break; + case 'Parser.Reply.value': + var $4209 = self.pst; + var $4210 = self.val; + var self = $4209; + switch (self._) { + case 'Parser.State.new': + var $4212 = self.err; + var $4213 = self.nam; + var $4214 = self.ini; + var $4215 = self.idx; + var $4216 = self.str; + var $4217 = ((console.log(("FALTANDO " + $4216)), (_$32 => { + var $4218 = ((console.log(("VALUE " + $4213)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4202, $4212), $4213, $4214, $4215, $4216); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $4220 = self.err; + var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $4222 = self.err; + var self = $4220; + switch (self._) { + case 'Maybe.some': + var $4224 = self.value; + var $4225 = Parser$Reply$error$(Parser$Error$combine$($4224, $4222)); + var $4223 = $4225; + break; + case 'Maybe.none': + var $4226 = Parser$Reply$error$($4222); + var $4223 = $4226; + break; + }; + var $4221 = $4223; + break; + case 'Parser.Reply.value': + var $4227 = self.pst; + var self = $4227; + switch (self._) { + case 'Parser.State.new': + var $4229 = self.err; + var $4230 = self.nam; + var $4231 = self.ini; + var $4232 = self.idx; + var $4233 = self.str; + var $4234 = ((console.log(("FALTANDO " + $4233)), (_$48 => { + var $4235 = ((console.log(("VALUE " + $4230)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4220, $4229), $4230, $4231, $4232, $4233); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $4237 = self.err; + var _reply$56 = Kind$Parser$text$("for ", _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $4239 = self.err; + var self = $4237; + switch (self._) { + case 'Maybe.some': + var $4241 = self.value; + var $4242 = Parser$Reply$error$(Parser$Error$combine$($4241, $4239)); + var $4240 = $4242; + break; + case 'Maybe.none': + var $4243 = Parser$Reply$error$($4239); + var $4240 = $4243; + break; + }; + var $4238 = $4240; + break; + case 'Parser.Reply.value': + var $4244 = self.pst; + var self = $4244; + switch (self._) { + case 'Parser.State.new': + var $4246 = self.err; + var $4247 = self.nam; + var $4248 = self.ini; + var $4249 = self.idx; + var $4250 = self.str; + var $4251 = ((console.log(("FALTANDO " + $4250)), (_$64 => { + var $4252 = ((console.log(("VALUE " + $4247)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4237, $4246), $4247, $4248, $4249, $4250); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $4254 = self.err; + var _reply$72 = Kind$Parser$name1$(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $4256 = self.err; + var self = $4254; + switch (self._) { + case 'Maybe.some': + var $4258 = self.value; + var $4259 = Parser$Reply$error$(Parser$Error$combine$($4258, $4256)); + var $4257 = $4259; + break; + case 'Maybe.none': + var $4260 = Parser$Reply$error$($4256); + var $4257 = $4260; + break; + }; + var $4255 = $4257; + break; + case 'Parser.Reply.value': + var $4261 = self.pst; + var $4262 = self.val; + var self = $4261; + switch (self._) { + case 'Parser.State.new': + var $4264 = self.err; + var $4265 = self.nam; + var $4266 = self.ini; + var $4267 = self.idx; + var $4268 = self.str; + var $4269 = ((console.log(("FALTANDO " + $4268)), (_$80 => { + var $4270 = ((console.log(("VALUE " + $4265)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($4254, $4264), $4265, $4266, $4267, $4268); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $4272 = self.err; + var _reply$88 = Kind$Parser$text$(":", _reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $4274 = self.err; + var self = $4272; + switch (self._) { + case 'Maybe.some': + var $4276 = self.value; + var $4277 = Parser$Reply$error$(Parser$Error$combine$($4276, $4274)); + var $4275 = $4277; + break; + case 'Maybe.none': + var $4278 = Parser$Reply$error$($4274); + var $4275 = $4278; + break; + }; + var $4273 = $4275; + break; + case 'Parser.Reply.value': + var $4279 = self.pst; + var self = $4279; + switch (self._) { + case 'Parser.State.new': + var $4281 = self.err; + var $4282 = self.nam; + var $4283 = self.ini; + var $4284 = self.idx; + var $4285 = self.str; + var $4286 = ((console.log(("FALTANDO " + $4285)), (_$96 => { + var $4287 = ((console.log(("VALUE " + $4282)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($4272, $4281), $4282, $4283, $4284, $4285); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $4289 = self.err; + var _reply$104 = Kind$Parser$name1$(_reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $4291 = self.err; + var self = $4289; + switch (self._) { + case 'Maybe.some': + var $4293 = self.value; + var $4294 = Parser$Reply$error$(Parser$Error$combine$($4293, $4291)); + var $4292 = $4294; + break; + case 'Maybe.none': + var $4295 = Parser$Reply$error$($4291); + var $4292 = $4295; + break; + }; + var $4290 = $4292; + break; + case 'Parser.Reply.value': + var $4296 = self.pst; + var $4297 = self.val; + var self = $4296; + switch (self._) { + case 'Parser.State.new': + var $4299 = self.err; + var $4300 = self.nam; + var $4301 = self.ini; + var $4302 = self.idx; + var $4303 = self.str; + var $4304 = ((console.log(("FALTANDO " + $4303)), (_$112 => { + var $4305 = ((console.log(("VALUE " + $4300)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4289, $4299), $4300, $4301, $4302, $4303); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $4307 = self.err; + var _reply$120 = Kind$Parser$text$("in", _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $4309 = self.err; + var self = $4307; + switch (self._) { + case 'Maybe.some': + var $4311 = self.value; + var $4312 = Parser$Reply$error$(Parser$Error$combine$($4311, $4309)); + var $4310 = $4312; + break; + case 'Maybe.none': + var $4313 = Parser$Reply$error$($4309); + var $4310 = $4313; + break; + }; + var $4308 = $4310; + break; + case 'Parser.Reply.value': + var $4314 = self.pst; + var self = $4314; + switch (self._) { + case 'Parser.State.new': + var $4316 = self.err; + var $4317 = self.nam; + var $4318 = self.ini; + var $4319 = self.idx; + var $4320 = self.str; + var $4321 = ((console.log(("FALTANDO " + $4320)), (_$128 => { + var $4322 = ((console.log(("VALUE " + $4317)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($4307, $4316), $4317, $4318, $4319, $4320); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $4324 = self.err; + var _reply$136 = Kind$Parser$term(_reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $4326 = self.err; + var self = $4324; + switch (self._) { + case 'Maybe.some': + var $4328 = self.value; + var $4329 = Parser$Reply$error$(Parser$Error$combine$($4328, $4326)); + var $4327 = $4329; + break; + case 'Maybe.none': + var $4330 = Parser$Reply$error$($4326); + var $4327 = $4330; + break; + }; + var $4325 = $4327; + break; + case 'Parser.Reply.value': + var $4331 = self.pst; + var $4332 = self.val; + var self = $4331; + switch (self._) { + case 'Parser.State.new': + var $4334 = self.err; + var $4335 = self.nam; + var $4336 = self.ini; + var $4337 = self.idx; + var $4338 = self.str; + var $4339 = ((console.log(("FALTANDO " + $4338)), (_$144 => { + var $4340 = ((console.log(("VALUE " + $4335)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($4324, $4334), $4335, $4336, $4337, $4338); + var self = _reply$pst$146; + switch (self._) { + case 'Parser.State.new': + var $4342 = self.err; + var _reply$152 = Kind$Parser$text$(":", _reply$pst$146); + var self = _reply$152; + switch (self._) { + case 'Parser.Reply.error': + var $4344 = self.err; + var self = $4342; + switch (self._) { + case 'Maybe.some': + var $4346 = self.value; + var $4347 = Parser$Reply$error$(Parser$Error$combine$($4346, $4344)); + var $4345 = $4347; + break; + case 'Maybe.none': + var $4348 = Parser$Reply$error$($4344); + var $4345 = $4348; + break; + }; + var $4343 = $4345; + break; + case 'Parser.Reply.value': + var $4349 = self.pst; + var self = $4349; + switch (self._) { + case 'Parser.State.new': + var $4351 = self.err; + var $4352 = self.nam; + var $4353 = self.ini; + var $4354 = self.idx; + var $4355 = self.str; + var $4356 = ((console.log(("FALTANDO " + $4355)), (_$160 => { + var $4357 = ((console.log(("VALUE " + $4352)), (_$161 => { + var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($4342, $4351), $4352, $4353, $4354, $4355); + var self = _reply$pst$162; + switch (self._) { + case 'Parser.State.new': + var $4359 = self.err; + var _reply$168 = Kind$Parser$term(_reply$pst$162); + var self = _reply$168; + switch (self._) { + case 'Parser.Reply.error': + var $4361 = self.err; + var self = $4359; + switch (self._) { + case 'Maybe.some': + var $4363 = self.value; + var $4364 = Parser$Reply$error$(Parser$Error$combine$($4363, $4361)); + var $4362 = $4364; + break; + case 'Maybe.none': + var $4365 = Parser$Reply$error$($4361); + var $4362 = $4365; + break; + }; + var $4360 = $4362; + break; + case 'Parser.Reply.value': + var $4366 = self.pst; + var $4367 = self.val; + var self = $4366; + switch (self._) { + case 'Parser.State.new': + var $4369 = self.err; + var $4370 = self.nam; + var $4371 = self.ini; + var $4372 = self.idx; + var $4373 = self.str; + var $4374 = ((console.log(("FALTANDO " + $4373)), (_$176 => { + var $4375 = ((console.log(("VALUE " + $4370)), (_$177 => { + var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($4359, $4369), $4370, $4371, $4372, $4373); + var self = _reply$pst$178; + switch (self._) { + case 'Parser.State.new': + var $4377 = self.err; + var _reply$184 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$178); + var self = _reply$184; + switch (self._) { + case 'Parser.Reply.error': + var $4379 = self.err; + var self = $4377; + switch (self._) { + case 'Maybe.some': + var $4381 = self.value; + var $4382 = Parser$Reply$error$(Parser$Error$combine$($4381, $4379)); + var $4380 = $4382; + break; + case 'Maybe.none': + var $4383 = Parser$Reply$error$($4379); + var $4380 = $4383; + break; + }; + var $4378 = $4380; + break; + case 'Parser.Reply.value': + var $4384 = self.pst; + var self = $4384; + switch (self._) { + case 'Parser.State.new': + var $4386 = self.err; + var $4387 = self.nam; + var $4388 = self.ini; + var $4389 = self.idx; + var $4390 = self.str; + var $4391 = ((console.log(("FALTANDO " + $4390)), (_$192 => { + var $4392 = ((console.log(("VALUE " + $4387)), (_$193 => { + var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($4377, $4386), $4387, $4388, $4389, $4390); + var self = _reply$pst$194; + switch (self._) { + case 'Parser.State.new': + var $4394 = self.err; + var _reply$200 = _body$1(Unit$new)(_reply$pst$194); + var self = _reply$200; + switch (self._) { + case 'Parser.Reply.error': + var $4396 = self.err; + var self = $4394; + switch (self._) { + case 'Maybe.some': + var $4398 = self.value; + var $4399 = Parser$Reply$error$(Parser$Error$combine$($4398, $4396)); + var $4397 = $4399; + break; + case 'Maybe.none': + var $4400 = Parser$Reply$error$($4396); + var $4397 = $4400; + break; + }; + var $4395 = $4397; + break; + case 'Parser.Reply.value': + var $4401 = self.pst; + var $4402 = self.val; + var self = $4401; + switch (self._) { + case 'Parser.State.new': + var $4404 = self.err; + var $4405 = self.nam; + var $4406 = self.ini; + var $4407 = self.idx; + var $4408 = self.str; + var $4409 = ((console.log(("FALTANDO " + $4408)), (_$208 => { + var $4410 = ((console.log(("VALUE " + $4405)), (_$209 => { + var _reply$pst$210 = Parser$State$new$(Parser$Error$maybe_combine$($4394, $4404), $4405, $4406, $4407, $4408); + var _term$211 = Kind$Term$ref$("BBT.for"); + var _term$212 = Kind$Term$app$(_term$211, Kind$Term$hol$(Bits$e)); + var _term$213 = Kind$Term$app$(_term$212, Kind$Term$hol$(Bits$e)); + var _term$214 = Kind$Term$app$(_term$213, $4332); + var _term$215 = Kind$Term$app$(_term$214, Kind$Term$hol$(Bits$e)); + var _term$216 = Kind$Term$app$(_term$215, Kind$Term$ref$($4210)); + var _lamb$217 = Kind$Term$lam$($4262, (_k$217 => { + var $4412 = Kind$Term$lam$($4297, (_i$218 => { + var $4413 = Kind$Term$lam$($4210, (_x$219 => { + var $4414 = $4367; + return $4414; + })); + return $4413; + })); + return $4412; + })); + var _term$218 = Kind$Term$app$(_term$216, _lamb$217); + var _term$219 = Kind$Term$let$($4210, _term$218, (_x$219 => { + var $4415 = $4402; + return $4415; + })); + var $4411 = Parser$Reply$value$(_reply$pst$210, _term$219); + return $4411; + })())); + return $4410; + })())); + var $4403 = $4409; + break; + }; + var $4395 = $4403; + break; + }; + var $4393 = $4395; + break; + }; + return $4393; + })())); + return $4392; + })())); + var $4385 = $4391; + break; + }; + var $4378 = $4385; + break; + }; + var $4376 = $4378; + break; + }; + return $4376; + })())); + return $4375; + })())); + var $4368 = $4374; + break; + }; + var $4360 = $4368; + break; + }; + var $4358 = $4360; + break; + }; + return $4358; + })())); + return $4357; + })())); + var $4350 = $4356; + break; + }; + var $4343 = $4350; + break; + }; + var $4341 = $4343; + break; + }; + return $4341; + })())); + return $4340; + })())); + var $4333 = $4339; + break; + }; + var $4325 = $4333; + break; + }; + var $4323 = $4325; + break; + }; + return $4323; + })())); + return $4322; + })())); + var $4315 = $4321; + break; + }; + var $4308 = $4315; + break; + }; + var $4306 = $4308; + break; + }; + return $4306; + })())); + return $4305; + })())); + var $4298 = $4304; + break; + }; + var $4290 = $4298; + break; + }; + var $4288 = $4290; + break; + }; + return $4288; + })())); + return $4287; + })())); + var $4280 = $4286; + break; + }; + var $4273 = $4280; + break; + }; + var $4271 = $4273; + break; + }; + return $4271; + })())); + return $4270; + })())); + var $4263 = $4269; + break; + }; + var $4255 = $4263; + break; + }; + var $4253 = $4255; + break; + }; + return $4253; + })())); + return $4252; + })())); + var $4245 = $4251; + break; + }; + var $4238 = $4245; + break; + }; + var $4236 = $4238; + break; + }; + return $4236; + })())); + return $4235; + })())); + var $4228 = $4234; + break; + }; + var $4221 = $4228; + break; + }; + var $4219 = $4221; + break; + }; + return $4219; + })())); + return $4218; + })())); + var $4211 = $4217; + break; + }; + var $4203 = $4211; + break; + }; + var $4201 = $4203; + break; + }; + return $4201; + })())); + return $4200; + })())); + var $4193 = $4199; + break; + }; + var $4186 = $4193; + break; + }; + var $4184 = $4186; + break; + }; + return $4184; + })); + return $4183; + }; + const Kind$Parser$letforinmap = x0 => Kind$Parser$letforinmap$(x0); + + function Kind$Parser$letforinmap$with$(_body$1) { + var $4416 = Kind$Parser$block("for-map")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4418 = self.err; + var _reply$8 = Kind$Parser$text$("for ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4420 = self.err; + var self = $4418; + switch (self._) { + case 'Maybe.some': + var $4422 = self.value; + var $4423 = Parser$Reply$error$(Parser$Error$combine$($4422, $4420)); + var $4421 = $4423; + break; + case 'Maybe.none': + var $4424 = Parser$Reply$error$($4420); + var $4421 = $4424; + break; + }; + var $4419 = $4421; + break; + case 'Parser.Reply.value': + var $4425 = self.pst; + var self = $4425; + switch (self._) { + case 'Parser.State.new': + var $4427 = self.err; + var $4428 = self.nam; + var $4429 = self.ini; + var $4430 = self.idx; + var $4431 = self.str; + var $4432 = ((console.log(("FALTANDO " + $4431)), (_$16 => { + var $4433 = ((console.log(("VALUE " + $4428)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4418, $4427), $4428, $4429, $4430, $4431); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $4435 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $4437 = self.err; + var self = $4435; + switch (self._) { + case 'Maybe.some': + var $4439 = self.value; + var $4440 = Parser$Reply$error$(Parser$Error$combine$($4439, $4437)); + var $4438 = $4440; + break; + case 'Maybe.none': + var $4441 = Parser$Reply$error$($4437); + var $4438 = $4441; + break; + }; + var $4436 = $4438; + break; + case 'Parser.Reply.value': + var $4442 = self.pst; + var $4443 = self.val; + var self = $4442; + switch (self._) { + case 'Parser.State.new': + var $4445 = self.err; + var $4446 = self.nam; + var $4447 = self.ini; + var $4448 = self.idx; + var $4449 = self.str; + var $4450 = ((console.log(("FALTANDO " + $4449)), (_$32 => { + var $4451 = ((console.log(("VALUE " + $4446)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4435, $4445), $4446, $4447, $4448, $4449); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $4453 = self.err; + var _reply$40 = Kind$Parser$text$(":", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $4455 = self.err; + var self = $4453; + switch (self._) { + case 'Maybe.some': + var $4457 = self.value; + var $4458 = Parser$Reply$error$(Parser$Error$combine$($4457, $4455)); + var $4456 = $4458; + break; + case 'Maybe.none': + var $4459 = Parser$Reply$error$($4455); + var $4456 = $4459; + break; + }; + var $4454 = $4456; + break; + case 'Parser.Reply.value': + var $4460 = self.pst; + var self = $4460; + switch (self._) { + case 'Parser.State.new': + var $4462 = self.err; + var $4463 = self.nam; + var $4464 = self.ini; + var $4465 = self.idx; + var $4466 = self.str; + var $4467 = ((console.log(("FALTANDO " + $4466)), (_$48 => { + var $4468 = ((console.log(("VALUE " + $4463)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4453, $4462), $4463, $4464, $4465, $4466); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $4470 = self.err; + var _reply$56 = Kind$Parser$name1$(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $4472 = self.err; + var self = $4470; + switch (self._) { + case 'Maybe.some': + var $4474 = self.value; + var $4475 = Parser$Reply$error$(Parser$Error$combine$($4474, $4472)); + var $4473 = $4475; + break; + case 'Maybe.none': + var $4476 = Parser$Reply$error$($4472); + var $4473 = $4476; + break; + }; + var $4471 = $4473; + break; + case 'Parser.Reply.value': + var $4477 = self.pst; + var $4478 = self.val; + var self = $4477; + switch (self._) { + case 'Parser.State.new': + var $4480 = self.err; + var $4481 = self.nam; + var $4482 = self.ini; + var $4483 = self.idx; + var $4484 = self.str; + var $4485 = ((console.log(("FALTANDO " + $4484)), (_$64 => { + var $4486 = ((console.log(("VALUE " + $4481)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4470, $4480), $4481, $4482, $4483, $4484); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $4488 = self.err; + var _reply$72 = Kind$Parser$text$("in", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $4490 = self.err; + var self = $4488; + switch (self._) { + case 'Maybe.some': + var $4492 = self.value; + var $4493 = Parser$Reply$error$(Parser$Error$combine$($4492, $4490)); + var $4491 = $4493; + break; + case 'Maybe.none': + var $4494 = Parser$Reply$error$($4490); + var $4491 = $4494; + break; + }; + var $4489 = $4491; + break; + case 'Parser.Reply.value': + var $4495 = self.pst; + var self = $4495; + switch (self._) { + case 'Parser.State.new': + var $4497 = self.err; + var $4498 = self.nam; + var $4499 = self.ini; + var $4500 = self.idx; + var $4501 = self.str; + var $4502 = ((console.log(("FALTANDO " + $4501)), (_$80 => { + var $4503 = ((console.log(("VALUE " + $4498)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($4488, $4497), $4498, $4499, $4500, $4501); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $4505 = self.err; + var _reply$88 = Kind$Parser$term(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $4507 = self.err; + var self = $4505; + switch (self._) { + case 'Maybe.some': + var $4509 = self.value; + var $4510 = Parser$Reply$error$(Parser$Error$combine$($4509, $4507)); + var $4508 = $4510; + break; + case 'Maybe.none': + var $4511 = Parser$Reply$error$($4507); + var $4508 = $4511; + break; + }; + var $4506 = $4508; + break; + case 'Parser.Reply.value': + var $4512 = self.pst; + var $4513 = self.val; + var self = $4512; + switch (self._) { + case 'Parser.State.new': + var $4515 = self.err; + var $4516 = self.nam; + var $4517 = self.ini; + var $4518 = self.idx; + var $4519 = self.str; + var $4520 = ((console.log(("FALTANDO " + $4519)), (_$96 => { + var $4521 = ((console.log(("VALUE " + $4516)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($4505, $4515), $4516, $4517, $4518, $4519); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $4523 = self.err; + var _reply$104 = Kind$Parser$text$("with", _reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $4525 = self.err; + var self = $4523; + switch (self._) { + case 'Maybe.some': + var $4527 = self.value; + var $4528 = Parser$Reply$error$(Parser$Error$combine$($4527, $4525)); + var $4526 = $4528; + break; + case 'Maybe.none': + var $4529 = Parser$Reply$error$($4525); + var $4526 = $4529; + break; + }; + var $4524 = $4526; + break; + case 'Parser.Reply.value': + var $4530 = self.pst; + var self = $4530; + switch (self._) { + case 'Parser.State.new': + var $4532 = self.err; + var $4533 = self.nam; + var $4534 = self.ini; + var $4535 = self.idx; + var $4536 = self.str; + var $4537 = ((console.log(("FALTANDO " + $4536)), (_$112 => { + var $4538 = ((console.log(("VALUE " + $4533)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4523, $4532), $4533, $4534, $4535, $4536); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $4540 = self.err; + var _reply$120 = Kind$Parser$name1$(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $4542 = self.err; + var self = $4540; + switch (self._) { + case 'Maybe.some': + var $4544 = self.value; + var $4545 = Parser$Reply$error$(Parser$Error$combine$($4544, $4542)); + var $4543 = $4545; + break; + case 'Maybe.none': + var $4546 = Parser$Reply$error$($4542); + var $4543 = $4546; + break; + }; + var $4541 = $4543; + break; + case 'Parser.Reply.value': + var $4547 = self.pst; + var $4548 = self.val; + var self = $4547; + switch (self._) { + case 'Parser.State.new': + var $4550 = self.err; + var $4551 = self.nam; + var $4552 = self.ini; + var $4553 = self.idx; + var $4554 = self.str; + var $4555 = ((console.log(("FALTANDO " + $4554)), (_$128 => { + var $4556 = ((console.log(("VALUE " + $4551)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($4540, $4550), $4551, $4552, $4553, $4554); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $4558 = self.err; + var _reply$136 = Kind$Parser$text$(":", _reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $4560 = self.err; + var self = $4558; + switch (self._) { + case 'Maybe.some': + var $4562 = self.value; + var $4563 = Parser$Reply$error$(Parser$Error$combine$($4562, $4560)); + var $4561 = $4563; + break; + case 'Maybe.none': + var $4564 = Parser$Reply$error$($4560); + var $4561 = $4564; + break; + }; + var $4559 = $4561; + break; + case 'Parser.Reply.value': + var $4565 = self.pst; + var self = $4565; + switch (self._) { + case 'Parser.State.new': + var $4567 = self.err; + var $4568 = self.nam; + var $4569 = self.ini; + var $4570 = self.idx; + var $4571 = self.str; + var $4572 = ((console.log(("FALTANDO " + $4571)), (_$144 => { + var $4573 = ((console.log(("VALUE " + $4568)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($4558, $4567), $4568, $4569, $4570, $4571); + var self = _reply$pst$146; + switch (self._) { + case 'Parser.State.new': + var $4575 = self.err; + var _reply$152 = Kind$Parser$term(_reply$pst$146); + var self = _reply$152; + switch (self._) { + case 'Parser.Reply.error': + var $4577 = self.err; + var self = $4575; + switch (self._) { + case 'Maybe.some': + var $4579 = self.value; + var $4580 = Parser$Reply$error$(Parser$Error$combine$($4579, $4577)); + var $4578 = $4580; + break; + case 'Maybe.none': + var $4581 = Parser$Reply$error$($4577); + var $4578 = $4581; + break; + }; + var $4576 = $4578; + break; + case 'Parser.Reply.value': + var $4582 = self.pst; + var $4583 = self.val; + var self = $4582; + switch (self._) { + case 'Parser.State.new': + var $4585 = self.err; + var $4586 = self.nam; + var $4587 = self.ini; + var $4588 = self.idx; + var $4589 = self.str; + var $4590 = ((console.log(("FALTANDO " + $4589)), (_$160 => { + var $4591 = ((console.log(("VALUE " + $4586)), (_$161 => { + var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($4575, $4585), $4586, $4587, $4588, $4589); + var self = _reply$pst$162; + switch (self._) { + case 'Parser.State.new': + var $4593 = self.err; + var _reply$168 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$162); + var self = _reply$168; + switch (self._) { + case 'Parser.Reply.error': + var $4595 = self.err; + var self = $4593; + switch (self._) { + case 'Maybe.some': + var $4597 = self.value; + var $4598 = Parser$Reply$error$(Parser$Error$combine$($4597, $4595)); + var $4596 = $4598; + break; + case 'Maybe.none': + var $4599 = Parser$Reply$error$($4595); + var $4596 = $4599; + break; + }; + var $4594 = $4596; + break; + case 'Parser.Reply.value': + var $4600 = self.pst; + var self = $4600; + switch (self._) { + case 'Parser.State.new': + var $4602 = self.err; + var $4603 = self.nam; + var $4604 = self.ini; + var $4605 = self.idx; + var $4606 = self.str; + var $4607 = ((console.log(("FALTANDO " + $4606)), (_$176 => { + var $4608 = ((console.log(("VALUE " + $4603)), (_$177 => { + var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($4593, $4602), $4603, $4604, $4605, $4606); + var self = _reply$pst$178; + switch (self._) { + case 'Parser.State.new': + var $4610 = self.err; + var _reply$184 = _body$1(Unit$new)(_reply$pst$178); + var self = _reply$184; + switch (self._) { + case 'Parser.Reply.error': + var $4612 = self.err; + var self = $4610; + switch (self._) { + case 'Maybe.some': + var $4614 = self.value; + var $4615 = Parser$Reply$error$(Parser$Error$combine$($4614, $4612)); + var $4613 = $4615; + break; + case 'Maybe.none': + var $4616 = Parser$Reply$error$($4612); + var $4613 = $4616; + break; + }; + var $4611 = $4613; + break; + case 'Parser.Reply.value': + var $4617 = self.pst; + var $4618 = self.val; + var self = $4617; + switch (self._) { + case 'Parser.State.new': + var $4620 = self.err; + var $4621 = self.nam; + var $4622 = self.ini; + var $4623 = self.idx; + var $4624 = self.str; + var $4625 = ((console.log(("FALTANDO " + $4624)), (_$192 => { + var $4626 = ((console.log(("VALUE " + $4621)), (_$193 => { + var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($4610, $4620), $4621, $4622, $4623, $4624); + var _term$195 = Kind$Term$ref$("BBT.for"); + var _term$196 = Kind$Term$app$(_term$195, Kind$Term$hol$(Bits$e)); + var _term$197 = Kind$Term$app$(_term$196, Kind$Term$hol$(Bits$e)); + var _term$198 = Kind$Term$app$(_term$197, $4513); + var _term$199 = Kind$Term$app$(_term$198, Kind$Term$hol$(Bits$e)); + var _term$200 = Kind$Term$app$(_term$199, Kind$Term$ref$($4548)); + var _lamb$201 = Kind$Term$lam$($4443, (_k$201 => { + var $4628 = Kind$Term$lam$($4478, (_i$202 => { + var $4629 = Kind$Term$lam$($4548, (_x$203 => { + var $4630 = $4583; + return $4630; + })); + return $4629; + })); + return $4628; + })); + var _term$202 = Kind$Term$app$(_term$200, _lamb$201); + var _term$203 = Kind$Term$let$($4548, _term$202, (_x$203 => { + var $4631 = $4618; + return $4631; + })); + var $4627 = Parser$Reply$value$(_reply$pst$194, _term$203); + return $4627; + })())); + return $4626; + })())); + var $4619 = $4625; + break; + }; + var $4611 = $4619; + break; + }; + var $4609 = $4611; + break; + }; + return $4609; + })())); + return $4608; + })())); + var $4601 = $4607; + break; + }; + var $4594 = $4601; + break; + }; + var $4592 = $4594; + break; + }; + return $4592; + })())); + return $4591; + })())); + var $4584 = $4590; + break; + }; + var $4576 = $4584; + break; + }; + var $4574 = $4576; + break; + }; + return $4574; + })())); + return $4573; + })())); + var $4566 = $4572; + break; + }; + var $4559 = $4566; + break; + }; + var $4557 = $4559; + break; + }; + return $4557; + })())); + return $4556; + })())); + var $4549 = $4555; + break; + }; + var $4541 = $4549; + break; + }; + var $4539 = $4541; + break; + }; + return $4539; + })())); + return $4538; + })())); + var $4531 = $4537; + break; + }; + var $4524 = $4531; + break; + }; + var $4522 = $4524; + break; + }; + return $4522; + })())); + return $4521; + })())); + var $4514 = $4520; + break; + }; + var $4506 = $4514; + break; + }; + var $4504 = $4506; + break; + }; + return $4504; + })())); + return $4503; + })())); + var $4496 = $4502; + break; + }; + var $4489 = $4496; + break; + }; + var $4487 = $4489; + break; + }; + return $4487; + })())); + return $4486; + })())); + var $4479 = $4485; + break; + }; + var $4471 = $4479; + break; + }; + var $4469 = $4471; + break; + }; + return $4469; + })())); + return $4468; + })())); + var $4461 = $4467; + break; + }; + var $4454 = $4461; + break; + }; + var $4452 = $4454; + break; + }; + return $4452; + })())); + return $4451; + })())); + var $4444 = $4450; + break; + }; + var $4436 = $4444; + break; + }; + var $4434 = $4436; + break; + }; + return $4434; + })())); + return $4433; + })())); + var $4426 = $4432; + break; + }; + var $4419 = $4426; + break; + }; + var $4417 = $4419; + break; + }; + return $4417; + })); + return $4416; + }; + const Kind$Parser$letforinmap$with = x0 => Kind$Parser$letforinmap$with$(x0); + + function Kind$Parser$letwhile$(_body$1) { + var $4632 = Kind$Parser$block("let-while")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4634 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4636 = self.err; + var self = $4634; + switch (self._) { + case 'Maybe.some': + var $4638 = self.value; + var $4639 = Parser$Reply$error$(Parser$Error$combine$($4638, $4636)); + var $4637 = $4639; + break; + case 'Maybe.none': + var $4640 = Parser$Reply$error$($4636); + var $4637 = $4640; + break; + }; + var $4635 = $4637; + break; + case 'Parser.Reply.value': + var $4641 = self.pst; + var self = $4641; + switch (self._) { + case 'Parser.State.new': + var $4643 = self.err; + var $4644 = self.nam; + var $4645 = self.ini; + var $4646 = self.idx; + var $4647 = self.str; + var $4648 = ((console.log(("FALTANDO " + $4647)), (_$16 => { + var $4649 = ((console.log(("VALUE " + $4644)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4634, $4643), $4644, $4645, $4646, $4647); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $4651 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $4653 = self.err; + var self = $4651; + switch (self._) { + case 'Maybe.some': + var $4655 = self.value; + var $4656 = Parser$Reply$error$(Parser$Error$combine$($4655, $4653)); + var $4654 = $4656; + break; + case 'Maybe.none': + var $4657 = Parser$Reply$error$($4653); + var $4654 = $4657; + break; + }; + var $4652 = $4654; + break; + case 'Parser.Reply.value': + var $4658 = self.pst; + var $4659 = self.val; + var self = $4658; + switch (self._) { + case 'Parser.State.new': + var $4661 = self.err; + var $4662 = self.nam; + var $4663 = self.ini; + var $4664 = self.idx; + var $4665 = self.str; + var $4666 = ((console.log(("FALTANDO " + $4665)), (_$32 => { + var $4667 = ((console.log(("VALUE " + $4662)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4651, $4661), $4662, $4663, $4664, $4665); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $4669 = self.err; + var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $4671 = self.err; + var self = $4669; + switch (self._) { + case 'Maybe.some': + var $4673 = self.value; + var $4674 = Parser$Reply$error$(Parser$Error$combine$($4673, $4671)); + var $4672 = $4674; + break; + case 'Maybe.none': + var $4675 = Parser$Reply$error$($4671); + var $4672 = $4675; + break; + }; + var $4670 = $4672; + break; + case 'Parser.Reply.value': + var $4676 = self.pst; + var self = $4676; + switch (self._) { + case 'Parser.State.new': + var $4678 = self.err; + var $4679 = self.nam; + var $4680 = self.ini; + var $4681 = self.idx; + var $4682 = self.str; + var $4683 = ((console.log(("FALTANDO " + $4682)), (_$48 => { + var $4684 = ((console.log(("VALUE " + $4679)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4669, $4678), $4679, $4680, $4681, $4682); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $4686 = self.err; + var _reply$56 = Kind$Parser$text$("while ", _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $4688 = self.err; + var self = $4686; + switch (self._) { + case 'Maybe.some': + var $4690 = self.value; + var $4691 = Parser$Reply$error$(Parser$Error$combine$($4690, $4688)); + var $4689 = $4691; + break; + case 'Maybe.none': + var $4692 = Parser$Reply$error$($4688); + var $4689 = $4692; + break; + }; + var $4687 = $4689; + break; + case 'Parser.Reply.value': + var $4693 = self.pst; + var self = $4693; + switch (self._) { + case 'Parser.State.new': + var $4695 = self.err; + var $4696 = self.nam; + var $4697 = self.ini; + var $4698 = self.idx; + var $4699 = self.str; + var $4700 = ((console.log(("FALTANDO " + $4699)), (_$64 => { + var $4701 = ((console.log(("VALUE " + $4696)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4686, $4695), $4696, $4697, $4698, $4699); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $4703 = self.err; + var _reply$72 = Kind$Parser$term(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $4705 = self.err; + var self = $4703; + switch (self._) { + case 'Maybe.some': + var $4707 = self.value; + var $4708 = Parser$Reply$error$(Parser$Error$combine$($4707, $4705)); + var $4706 = $4708; + break; + case 'Maybe.none': + var $4709 = Parser$Reply$error$($4705); + var $4706 = $4709; + break; + }; + var $4704 = $4706; + break; + case 'Parser.Reply.value': + var $4710 = self.pst; + var $4711 = self.val; + var self = $4710; + switch (self._) { + case 'Parser.State.new': + var $4713 = self.err; + var $4714 = self.nam; + var $4715 = self.ini; + var $4716 = self.idx; + var $4717 = self.str; + var $4718 = ((console.log(("FALTANDO " + $4717)), (_$80 => { + var $4719 = ((console.log(("VALUE " + $4714)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($4703, $4713), $4714, $4715, $4716, $4717); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $4721 = self.err; + var _reply$88 = Kind$Parser$text$(":", _reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $4723 = self.err; + var self = $4721; + switch (self._) { + case 'Maybe.some': + var $4725 = self.value; + var $4726 = Parser$Reply$error$(Parser$Error$combine$($4725, $4723)); + var $4724 = $4726; + break; + case 'Maybe.none': + var $4727 = Parser$Reply$error$($4723); + var $4724 = $4727; + break; + }; + var $4722 = $4724; + break; + case 'Parser.Reply.value': + var $4728 = self.pst; + var self = $4728; + switch (self._) { + case 'Parser.State.new': + var $4730 = self.err; + var $4731 = self.nam; + var $4732 = self.ini; + var $4733 = self.idx; + var $4734 = self.str; + var $4735 = ((console.log(("FALTANDO " + $4734)), (_$96 => { + var $4736 = ((console.log(("VALUE " + $4731)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($4721, $4730), $4731, $4732, $4733, $4734); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $4738 = self.err; + var _reply$104 = Kind$Parser$term(_reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $4740 = self.err; + var self = $4738; + switch (self._) { + case 'Maybe.some': + var $4742 = self.value; + var $4743 = Parser$Reply$error$(Parser$Error$combine$($4742, $4740)); + var $4741 = $4743; + break; + case 'Maybe.none': + var $4744 = Parser$Reply$error$($4740); + var $4741 = $4744; + break; + }; + var $4739 = $4741; + break; + case 'Parser.Reply.value': + var $4745 = self.pst; + var $4746 = self.val; + var self = $4745; + switch (self._) { + case 'Parser.State.new': + var $4748 = self.err; + var $4749 = self.nam; + var $4750 = self.ini; + var $4751 = self.idx; + var $4752 = self.str; + var $4753 = ((console.log(("FALTANDO " + $4752)), (_$112 => { + var $4754 = ((console.log(("VALUE " + $4749)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4738, $4748), $4749, $4750, $4751, $4752); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $4756 = self.err; + var _reply$120 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $4758 = self.err; + var self = $4756; + switch (self._) { + case 'Maybe.some': + var $4760 = self.value; + var $4761 = Parser$Reply$error$(Parser$Error$combine$($4760, $4758)); + var $4759 = $4761; + break; + case 'Maybe.none': + var $4762 = Parser$Reply$error$($4758); + var $4759 = $4762; + break; + }; + var $4757 = $4759; + break; + case 'Parser.Reply.value': + var $4763 = self.pst; + var self = $4763; + switch (self._) { + case 'Parser.State.new': + var $4765 = self.err; + var $4766 = self.nam; + var $4767 = self.ini; + var $4768 = self.idx; + var $4769 = self.str; + var $4770 = ((console.log(("FALTANDO " + $4769)), (_$128 => { + var $4771 = ((console.log(("VALUE " + $4766)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($4756, $4765), $4766, $4767, $4768, $4769); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $4773 = self.err; + var _reply$136 = _body$1(Unit$new)(_reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $4775 = self.err; + var self = $4773; + switch (self._) { + case 'Maybe.some': + var $4777 = self.value; + var $4778 = Parser$Reply$error$(Parser$Error$combine$($4777, $4775)); + var $4776 = $4778; + break; + case 'Maybe.none': + var $4779 = Parser$Reply$error$($4775); + var $4776 = $4779; + break; + }; + var $4774 = $4776; + break; + case 'Parser.Reply.value': + var $4780 = self.pst; + var $4781 = self.val; + var self = $4780; + switch (self._) { + case 'Parser.State.new': + var $4783 = self.err; + var $4784 = self.nam; + var $4785 = self.ini; + var $4786 = self.idx; + var $4787 = self.str; + var $4788 = ((console.log(("FALTANDO " + $4787)), (_$144 => { + var $4789 = ((console.log(("VALUE " + $4784)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($4773, $4783), $4784, $4785, $4786, $4787); + var _term$147 = Kind$Term$ref$("Function.while"); + var _term$148 = Kind$Term$app$(_term$147, Kind$Term$hol$(Bits$e)); + var _term$149 = Kind$Term$app$(_term$148, Kind$Term$ref$($4659)); + var _term$150 = Kind$Term$app$(_term$149, Kind$Term$lam$($4659, (_s$150 => { + var $4791 = $4711; + return $4791; + }))); + var _term$151 = Kind$Term$app$(_term$150, Kind$Term$lam$($4659, (_s$151 => { + var $4792 = $4746; + return $4792; + }))); + var _term$152 = Kind$Term$let$($4659, _term$151, (_x$152 => { + var $4793 = $4781; + return $4793; + })); + var $4790 = Parser$Reply$value$(_reply$pst$146, _term$152); + return $4790; + })())); + return $4789; + })())); + var $4782 = $4788; + break; + }; + var $4774 = $4782; + break; + }; + var $4772 = $4774; + break; + }; + return $4772; + })())); + return $4771; + })())); + var $4764 = $4770; + break; + }; + var $4757 = $4764; + break; + }; + var $4755 = $4757; + break; + }; + return $4755; + })())); + return $4754; + })())); + var $4747 = $4753; + break; + }; + var $4739 = $4747; + break; + }; + var $4737 = $4739; + break; + }; + return $4737; + })())); + return $4736; + })())); + var $4729 = $4735; + break; + }; + var $4722 = $4729; + break; + }; + var $4720 = $4722; + break; + }; + return $4720; + })())); + return $4719; + })())); + var $4712 = $4718; + break; + }; + var $4704 = $4712; + break; + }; + var $4702 = $4704; + break; + }; + return $4702; + })())); + return $4701; + })())); + var $4694 = $4700; + break; + }; + var $4687 = $4694; + break; + }; + var $4685 = $4687; + break; + }; + return $4685; + })())); + return $4684; + })())); + var $4677 = $4683; + break; + }; + var $4670 = $4677; + break; + }; + var $4668 = $4670; + break; + }; + return $4668; + })())); + return $4667; + })())); + var $4660 = $4666; + break; + }; + var $4652 = $4660; + break; + }; + var $4650 = $4652; + break; + }; + return $4650; + })())); + return $4649; + })())); + var $4642 = $4648; + break; + }; + var $4635 = $4642; + break; + }; + var $4633 = $4635; + break; + }; + return $4633; + })); + return $4632; + }; + const Kind$Parser$letwhile = x0 => Kind$Parser$letwhile$(x0); + + function Kind$Parser$letwhile$with$(_body$1) { + var $4794 = Kind$Parser$block("let-while")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4796 = self.err; + var _reply$8 = Kind$Parser$text$("while ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4798 = self.err; + var self = $4796; + switch (self._) { + case 'Maybe.some': + var $4800 = self.value; + var $4801 = Parser$Reply$error$(Parser$Error$combine$($4800, $4798)); + var $4799 = $4801; + break; + case 'Maybe.none': + var $4802 = Parser$Reply$error$($4798); + var $4799 = $4802; + break; + }; + var $4797 = $4799; + break; + case 'Parser.Reply.value': + var $4803 = self.pst; + var self = $4803; + switch (self._) { + case 'Parser.State.new': + var $4805 = self.err; + var $4806 = self.nam; + var $4807 = self.ini; + var $4808 = self.idx; + var $4809 = self.str; + var $4810 = ((console.log(("FALTANDO " + $4809)), (_$16 => { + var $4811 = ((console.log(("VALUE " + $4806)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4796, $4805), $4806, $4807, $4808, $4809); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $4813 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $4815 = self.err; + var self = $4813; + switch (self._) { + case 'Maybe.some': + var $4817 = self.value; + var $4818 = Parser$Reply$error$(Parser$Error$combine$($4817, $4815)); + var $4816 = $4818; + break; + case 'Maybe.none': + var $4819 = Parser$Reply$error$($4815); + var $4816 = $4819; + break; + }; + var $4814 = $4816; + break; + case 'Parser.Reply.value': + var $4820 = self.pst; + var $4821 = self.val; + var self = $4820; + switch (self._) { + case 'Parser.State.new': + var $4823 = self.err; + var $4824 = self.nam; + var $4825 = self.ini; + var $4826 = self.idx; + var $4827 = self.str; + var $4828 = ((console.log(("FALTANDO " + $4827)), (_$32 => { + var $4829 = ((console.log(("VALUE " + $4824)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4813, $4823), $4824, $4825, $4826, $4827); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $4831 = self.err; + var _reply$40 = Kind$Parser$text$("with ", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $4833 = self.err; + var self = $4831; + switch (self._) { + case 'Maybe.some': + var $4835 = self.value; + var $4836 = Parser$Reply$error$(Parser$Error$combine$($4835, $4833)); + var $4834 = $4836; + break; + case 'Maybe.none': + var $4837 = Parser$Reply$error$($4833); + var $4834 = $4837; + break; + }; + var $4832 = $4834; + break; + case 'Parser.Reply.value': + var $4838 = self.pst; + var self = $4838; + switch (self._) { + case 'Parser.State.new': + var $4840 = self.err; + var $4841 = self.nam; + var $4842 = self.ini; + var $4843 = self.idx; + var $4844 = self.str; + var $4845 = ((console.log(("FALTANDO " + $4844)), (_$48 => { + var $4846 = ((console.log(("VALUE " + $4841)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4831, $4840), $4841, $4842, $4843, $4844); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $4848 = self.err; + var _reply$56 = Kind$Parser$name1$(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $4850 = self.err; + var self = $4848; + switch (self._) { + case 'Maybe.some': + var $4852 = self.value; + var $4853 = Parser$Reply$error$(Parser$Error$combine$($4852, $4850)); + var $4851 = $4853; + break; + case 'Maybe.none': + var $4854 = Parser$Reply$error$($4850); + var $4851 = $4854; + break; + }; + var $4849 = $4851; + break; + case 'Parser.Reply.value': + var $4855 = self.pst; + var $4856 = self.val; + var self = $4855; + switch (self._) { + case 'Parser.State.new': + var $4858 = self.err; + var $4859 = self.nam; + var $4860 = self.ini; + var $4861 = self.idx; + var $4862 = self.str; + var $4863 = ((console.log(("FALTANDO " + $4862)), (_$64 => { + var $4864 = ((console.log(("VALUE " + $4859)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4848, $4858), $4859, $4860, $4861, $4862); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $4866 = self.err; + var _reply$72 = Kind$Parser$text$(":", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $4868 = self.err; + var self = $4866; + switch (self._) { + case 'Maybe.some': + var $4870 = self.value; + var $4871 = Parser$Reply$error$(Parser$Error$combine$($4870, $4868)); + var $4869 = $4871; + break; + case 'Maybe.none': + var $4872 = Parser$Reply$error$($4868); + var $4869 = $4872; + break; + }; + var $4867 = $4869; + break; + case 'Parser.Reply.value': + var $4873 = self.pst; + var self = $4873; + switch (self._) { + case 'Parser.State.new': + var $4875 = self.err; + var $4876 = self.nam; + var $4877 = self.ini; + var $4878 = self.idx; + var $4879 = self.str; + var $4880 = ((console.log(("FALTANDO " + $4879)), (_$80 => { + var $4881 = ((console.log(("VALUE " + $4876)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($4866, $4875), $4876, $4877, $4878, $4879); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $4883 = self.err; + var _reply$88 = Kind$Parser$term(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $4885 = self.err; + var self = $4883; + switch (self._) { + case 'Maybe.some': + var $4887 = self.value; + var $4888 = Parser$Reply$error$(Parser$Error$combine$($4887, $4885)); + var $4886 = $4888; + break; + case 'Maybe.none': + var $4889 = Parser$Reply$error$($4885); + var $4886 = $4889; + break; + }; + var $4884 = $4886; + break; + case 'Parser.Reply.value': + var $4890 = self.pst; + var $4891 = self.val; + var self = $4890; + switch (self._) { + case 'Parser.State.new': + var $4893 = self.err; + var $4894 = self.nam; + var $4895 = self.ini; + var $4896 = self.idx; + var $4897 = self.str; + var $4898 = ((console.log(("FALTANDO " + $4897)), (_$96 => { + var $4899 = ((console.log(("VALUE " + $4894)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($4883, $4893), $4894, $4895, $4896, $4897); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $4901 = self.err; + var _reply$104 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $4903 = self.err; + var self = $4901; + switch (self._) { + case 'Maybe.some': + var $4905 = self.value; + var $4906 = Parser$Reply$error$(Parser$Error$combine$($4905, $4903)); + var $4904 = $4906; + break; + case 'Maybe.none': + var $4907 = Parser$Reply$error$($4903); + var $4904 = $4907; + break; + }; + var $4902 = $4904; + break; + case 'Parser.Reply.value': + var $4908 = self.pst; + var self = $4908; + switch (self._) { + case 'Parser.State.new': + var $4910 = self.err; + var $4911 = self.nam; + var $4912 = self.ini; + var $4913 = self.idx; + var $4914 = self.str; + var $4915 = ((console.log(("FALTANDO " + $4914)), (_$112 => { + var $4916 = ((console.log(("VALUE " + $4911)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4901, $4910), $4911, $4912, $4913, $4914); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $4918 = self.err; + var _reply$120 = _body$1(Unit$new)(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $4920 = self.err; + var self = $4918; + switch (self._) { + case 'Maybe.some': + var $4922 = self.value; + var $4923 = Parser$Reply$error$(Parser$Error$combine$($4922, $4920)); + var $4921 = $4923; + break; + case 'Maybe.none': + var $4924 = Parser$Reply$error$($4920); + var $4921 = $4924; + break; + }; + var $4919 = $4921; + break; + case 'Parser.Reply.value': + var $4925 = self.pst; + var $4926 = self.val; + var self = $4925; + switch (self._) { + case 'Parser.State.new': + var $4928 = self.err; + var $4929 = self.nam; + var $4930 = self.ini; + var $4931 = self.idx; + var $4932 = self.str; + var $4933 = ((console.log(("FALTANDO " + $4932)), (_$128 => { + var $4934 = ((console.log(("VALUE " + $4929)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($4918, $4928), $4929, $4930, $4931, $4932); + var _term$131 = Kind$Term$ref$("Function.while"); + var _term$132 = Kind$Term$app$(_term$131, Kind$Term$hol$(Bits$e)); + var _term$133 = Kind$Term$app$(_term$132, Kind$Term$ref$($4856)); + var _term$134 = Kind$Term$app$(_term$133, Kind$Term$lam$($4856, (_s$134 => { + var $4936 = $4821; + return $4936; + }))); + var _term$135 = Kind$Term$app$(_term$134, Kind$Term$lam$($4856, (_s$135 => { + var $4937 = $4891; + return $4937; + }))); + var _term$136 = Kind$Term$let$($4856, _term$135, (_x$136 => { + var $4938 = $4926; + return $4938; + })); + var $4935 = Parser$Reply$value$(_reply$pst$130, _term$136); + return $4935; + })())); + return $4934; + })())); + var $4927 = $4933; + break; + }; + var $4919 = $4927; + break; + }; + var $4917 = $4919; + break; + }; + return $4917; + })())); + return $4916; + })())); + var $4909 = $4915; + break; + }; + var $4902 = $4909; + break; + }; + var $4900 = $4902; + break; + }; + return $4900; + })())); + return $4899; + })())); + var $4892 = $4898; + break; + }; + var $4884 = $4892; + break; + }; + var $4882 = $4884; + break; + }; + return $4882; + })())); + return $4881; + })())); + var $4874 = $4880; + break; + }; + var $4867 = $4874; + break; + }; + var $4865 = $4867; + break; + }; + return $4865; + })())); + return $4864; + })())); + var $4857 = $4863; + break; + }; + var $4849 = $4857; + break; + }; + var $4847 = $4849; + break; + }; + return $4847; + })())); + return $4846; + })())); + var $4839 = $4845; + break; + }; + var $4832 = $4839; + break; + }; + var $4830 = $4832; + break; + }; + return $4830; + })())); + return $4829; + })())); + var $4822 = $4828; + break; + }; + var $4814 = $4822; + break; + }; + var $4812 = $4814; + break; + }; + return $4812; + })())); + return $4811; + })())); + var $4804 = $4810; + break; + }; + var $4797 = $4804; + break; + }; + var $4795 = $4797; + break; + }; + return $4795; + })); + return $4794; + }; + const Kind$Parser$letwhile$with = x0 => Kind$Parser$letwhile$with$(x0); + + function Kind$Parser$let$abort$(_body$1) { + var $4939 = Kind$Parser$block("let")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4941 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4943 = self.err; + var self = $4941; + switch (self._) { + case 'Maybe.some': + var $4945 = self.value; + var $4946 = Parser$Reply$error$(Parser$Error$combine$($4945, $4943)); + var $4944 = $4946; + break; + case 'Maybe.none': + var $4947 = Parser$Reply$error$($4943); + var $4944 = $4947; + break; + }; + var $4942 = $4944; + break; + case 'Parser.Reply.value': + var $4948 = self.pst; + var self = $4948; + switch (self._) { + case 'Parser.State.new': + var $4950 = self.err; + var $4951 = self.nam; + var $4952 = self.ini; + var $4953 = self.idx; + var $4954 = self.str; + var $4955 = ((console.log(("FALTANDO " + $4954)), (_$16 => { + var $4956 = ((console.log(("VALUE " + $4951)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4941, $4950), $4951, $4952, $4953, $4954); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $4958 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $4960 = self.err; + var self = $4958; + switch (self._) { + case 'Maybe.some': + var $4962 = self.value; + var $4963 = Parser$Reply$error$(Parser$Error$combine$($4962, $4960)); + var $4961 = $4963; + break; + case 'Maybe.none': + var $4964 = Parser$Reply$error$($4960); + var $4961 = $4964; + break; + }; + var $4959 = $4961; + break; + case 'Parser.Reply.value': + var $4965 = self.pst; + var $4966 = self.val; + var self = $4965; + switch (self._) { + case 'Parser.State.new': + var $4968 = self.err; + var $4969 = self.nam; + var $4970 = self.ini; + var $4971 = self.idx; + var $4972 = self.str; + var $4973 = ((console.log(("FALTANDO " + $4972)), (_$32 => { + var $4974 = ((console.log(("VALUE " + $4969)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4958, $4968), $4969, $4970, $4971, $4972); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $4976 = self.err; + var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $4978 = self.err; + var self = $4976; + switch (self._) { + case 'Maybe.some': + var $4980 = self.value; + var $4981 = Parser$Reply$error$(Parser$Error$combine$($4980, $4978)); + var $4979 = $4981; + break; + case 'Maybe.none': + var $4982 = Parser$Reply$error$($4978); + var $4979 = $4982; + break; + }; + var $4977 = $4979; + break; + case 'Parser.Reply.value': + var $4983 = self.pst; + var self = $4983; + switch (self._) { + case 'Parser.State.new': + var $4985 = self.err; + var $4986 = self.nam; + var $4987 = self.ini; + var $4988 = self.idx; + var $4989 = self.str; + var $4990 = ((console.log(("FALTANDO " + $4989)), (_$48 => { + var $4991 = ((console.log(("VALUE " + $4986)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4976, $4985), $4986, $4987, $4988, $4989); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $4993 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $4995 = self.err; + var self = $4993; + switch (self._) { + case 'Maybe.some': + var $4997 = self.value; + var $4998 = Parser$Reply$error$(Parser$Error$combine$($4997, $4995)); + var $4996 = $4998; + break; + case 'Maybe.none': + var $4999 = Parser$Reply$error$($4995); + var $4996 = $4999; + break; + }; + var $4994 = $4996; + break; + case 'Parser.Reply.value': + var $5000 = self.pst; + var $5001 = self.val; + var self = $5000; + switch (self._) { + case 'Parser.State.new': + var $5003 = self.err; + var $5004 = self.nam; + var $5005 = self.ini; + var $5006 = self.idx; + var $5007 = self.str; + var $5008 = ((console.log(("FALTANDO " + $5007)), (_$64 => { + var $5009 = ((console.log(("VALUE " + $5004)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4993, $5003), $5004, $5005, $5006, $5007); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $5011 = self.err; + var _reply$72 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $5013 = self.err; + var self = $5011; + switch (self._) { + case 'Maybe.some': + var $5015 = self.value; + var $5016 = Parser$Reply$error$(Parser$Error$combine$($5015, $5013)); + var $5014 = $5016; + break; + case 'Maybe.none': + var $5017 = Parser$Reply$error$($5013); + var $5014 = $5017; + break; + }; + var $5012 = $5014; + break; + case 'Parser.Reply.value': + var $5018 = self.pst; + var self = $5018; + switch (self._) { + case 'Parser.State.new': + var $5020 = self.err; + var $5021 = self.nam; + var $5022 = self.ini; + var $5023 = self.idx; + var $5024 = self.str; + var $5025 = ((console.log(("FALTANDO " + $5024)), (_$80 => { + var $5026 = ((console.log(("VALUE " + $5021)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5011, $5020), $5021, $5022, $5023, $5024); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $5028 = self.err; + var _reply$88 = Kind$Parser$text$("abort", _reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $5030 = self.err; + var self = $5028; + switch (self._) { + case 'Maybe.some': + var $5032 = self.value; + var $5033 = Parser$Reply$error$(Parser$Error$combine$($5032, $5030)); + var $5031 = $5033; + break; + case 'Maybe.none': + var $5034 = Parser$Reply$error$($5030); + var $5031 = $5034; + break; + }; + var $5029 = $5031; + break; + case 'Parser.Reply.value': + var $5035 = self.pst; + var self = $5035; + switch (self._) { + case 'Parser.State.new': + var $5037 = self.err; + var $5038 = self.nam; + var $5039 = self.ini; + var $5040 = self.idx; + var $5041 = self.str; + var $5042 = ((console.log(("FALTANDO " + $5041)), (_$96 => { + var $5043 = ((console.log(("VALUE " + $5038)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($5028, $5037), $5038, $5039, $5040, $5041); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $5045 = self.err; + var _reply$104 = Kind$Parser$term(_reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $5047 = self.err; + var self = $5045; + switch (self._) { + case 'Maybe.some': + var $5049 = self.value; + var $5050 = Parser$Reply$error$(Parser$Error$combine$($5049, $5047)); + var $5048 = $5050; + break; + case 'Maybe.none': + var $5051 = Parser$Reply$error$($5047); + var $5048 = $5051; + break; + }; + var $5046 = $5048; + break; + case 'Parser.Reply.value': + var $5052 = self.pst; + var $5053 = self.val; + var self = $5052; + switch (self._) { + case 'Parser.State.new': + var $5055 = self.err; + var $5056 = self.nam; + var $5057 = self.ini; + var $5058 = self.idx; + var $5059 = self.str; + var $5060 = ((console.log(("FALTANDO " + $5059)), (_$112 => { + var $5061 = ((console.log(("VALUE " + $5056)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5045, $5055), $5056, $5057, $5058, $5059); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $5063 = self.err; + var _reply$120 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $5065 = self.err; + var self = $5063; + switch (self._) { + case 'Maybe.some': + var $5067 = self.value; + var $5068 = Parser$Reply$error$(Parser$Error$combine$($5067, $5065)); + var $5066 = $5068; + break; + case 'Maybe.none': + var $5069 = Parser$Reply$error$($5065); + var $5066 = $5069; + break; + }; + var $5064 = $5066; + break; + case 'Parser.Reply.value': + var $5070 = self.pst; + var self = $5070; + switch (self._) { + case 'Parser.State.new': + var $5072 = self.err; + var $5073 = self.nam; + var $5074 = self.ini; + var $5075 = self.idx; + var $5076 = self.str; + var $5077 = ((console.log(("FALTANDO " + $5076)), (_$128 => { + var $5078 = ((console.log(("VALUE " + $5073)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($5063, $5072), $5073, $5074, $5075, $5076); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $5080 = self.err; + var _reply$136 = _body$1(Unit$new)(_reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $5082 = self.err; + var self = $5080; + switch (self._) { + case 'Maybe.some': + var $5084 = self.value; + var $5085 = Parser$Reply$error$(Parser$Error$combine$($5084, $5082)); + var $5083 = $5085; + break; + case 'Maybe.none': + var $5086 = Parser$Reply$error$($5082); + var $5083 = $5086; + break; + }; + var $5081 = $5083; + break; + case 'Parser.Reply.value': + var $5087 = self.pst; + var $5088 = self.val; + var self = $5087; + switch (self._) { + case 'Parser.State.new': + var $5090 = self.err; + var $5091 = self.nam; + var $5092 = self.ini; + var $5093 = self.idx; + var $5094 = self.str; + var $5095 = ((console.log(("FALTANDO " + $5094)), (_$144 => { + var $5096 = ((console.log(("VALUE " + $5091)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($5080, $5090), $5091, $5092, $5093, $5094); + var _term$147 = $5001; + var _term$148 = Kind$Term$app$(_term$147, Kind$Term$lam$("", (_$148 => { + var $5098 = Kind$Term$hol$(Bits$e); + return $5098; + }))); + var _term$149 = Kind$Term$app$(_term$148, $5053); + var _term$150 = Kind$Term$app$(_term$149, Kind$Term$lam$($4966, (_$150 => { + var $5099 = $5088; + return $5099; + }))); + var $5097 = Parser$Reply$value$(_reply$pst$146, _term$150); + return $5097; + })())); + return $5096; + })())); + var $5089 = $5095; + break; + }; + var $5081 = $5089; + break; + }; + var $5079 = $5081; + break; + }; + return $5079; + })())); + return $5078; + })())); + var $5071 = $5077; + break; + }; + var $5064 = $5071; + break; + }; + var $5062 = $5064; + break; + }; + return $5062; + })())); + return $5061; + })())); + var $5054 = $5060; + break; + }; + var $5046 = $5054; + break; + }; + var $5044 = $5046; + break; + }; + return $5044; + })())); + return $5043; + })())); + var $5036 = $5042; + break; + }; + var $5029 = $5036; + break; + }; + var $5027 = $5029; + break; + }; + return $5027; + })())); + return $5026; + })())); + var $5019 = $5025; + break; + }; + var $5012 = $5019; + break; + }; + var $5010 = $5012; + break; + }; + return $5010; + })())); + return $5009; + })())); + var $5002 = $5008; + break; + }; + var $4994 = $5002; + break; + }; + var $4992 = $4994; + break; + }; + return $4992; + })())); + return $4991; + })())); + var $4984 = $4990; + break; + }; + var $4977 = $4984; + break; + }; + var $4975 = $4977; + break; + }; + return $4975; + })())); + return $4974; + })())); + var $4967 = $4973; + break; + }; + var $4959 = $4967; + break; + }; + var $4957 = $4959; + break; + }; + return $4957; + })())); + return $4956; + })())); + var $4949 = $4955; + break; + }; + var $4942 = $4949; + break; + }; + var $4940 = $4942; + break; + }; + return $4940; + })); + return $4939; + }; + const Kind$Parser$let$abort = x0 => Kind$Parser$let$abort$(x0); + + function Kind$Parser$let$(_body$1) { + var $5100 = Kind$Parser$block("let")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5102 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5104 = self.err; + var self = $5102; + switch (self._) { + case 'Maybe.some': + var $5106 = self.value; + var $5107 = Parser$Reply$error$(Parser$Error$combine$($5106, $5104)); + var $5105 = $5107; + break; + case 'Maybe.none': + var $5108 = Parser$Reply$error$($5104); + var $5105 = $5108; + break; + }; + var $5103 = $5105; + break; + case 'Parser.Reply.value': + var $5109 = self.pst; + var self = $5109; + switch (self._) { + case 'Parser.State.new': + var $5111 = self.err; + var $5112 = self.nam; + var $5113 = self.ini; + var $5114 = self.idx; + var $5115 = self.str; + var $5116 = ((console.log(("FALTANDO " + $5115)), (_$16 => { + var $5117 = ((console.log(("VALUE " + $5112)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5102, $5111), $5112, $5113, $5114, $5115); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $5119 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $5121 = self.err; + var self = $5119; + switch (self._) { + case 'Maybe.some': + var $5123 = self.value; + var $5124 = Parser$Reply$error$(Parser$Error$combine$($5123, $5121)); + var $5122 = $5124; + break; + case 'Maybe.none': + var $5125 = Parser$Reply$error$($5121); + var $5122 = $5125; + break; + }; + var $5120 = $5122; + break; + case 'Parser.Reply.value': + var $5126 = self.pst; + var $5127 = self.val; + var self = $5126; + switch (self._) { + case 'Parser.State.new': + var $5129 = self.err; + var $5130 = self.nam; + var $5131 = self.ini; + var $5132 = self.idx; + var $5133 = self.str; + var $5134 = ((console.log(("FALTANDO " + $5133)), (_$32 => { + var $5135 = ((console.log(("VALUE " + $5130)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5119, $5129), $5130, $5131, $5132, $5133); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $5137 = self.err; + var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $5139 = self.err; + var self = $5137; + switch (self._) { + case 'Maybe.some': + var $5141 = self.value; + var $5142 = Parser$Reply$error$(Parser$Error$combine$($5141, $5139)); + var $5140 = $5142; + break; + case 'Maybe.none': + var $5143 = Parser$Reply$error$($5139); + var $5140 = $5143; + break; + }; + var $5138 = $5140; + break; + case 'Parser.Reply.value': + var $5144 = self.pst; + var self = $5144; + switch (self._) { + case 'Parser.State.new': + var $5146 = self.err; + var $5147 = self.nam; + var $5148 = self.ini; + var $5149 = self.idx; + var $5150 = self.str; + var $5151 = ((console.log(("FALTANDO " + $5150)), (_$48 => { + var $5152 = ((console.log(("VALUE " + $5147)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5137, $5146), $5147, $5148, $5149, $5150); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $5154 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $5156 = self.err; + var self = $5154; + switch (self._) { + case 'Maybe.some': + var $5158 = self.value; + var $5159 = Parser$Reply$error$(Parser$Error$combine$($5158, $5156)); + var $5157 = $5159; + break; + case 'Maybe.none': + var $5160 = Parser$Reply$error$($5156); + var $5157 = $5160; + break; + }; + var $5155 = $5157; + break; + case 'Parser.Reply.value': + var $5161 = self.pst; + var $5162 = self.val; + var self = $5161; + switch (self._) { + case 'Parser.State.new': + var $5164 = self.err; + var $5165 = self.nam; + var $5166 = self.ini; + var $5167 = self.idx; + var $5168 = self.str; + var $5169 = ((console.log(("FALTANDO " + $5168)), (_$64 => { + var $5170 = ((console.log(("VALUE " + $5165)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5154, $5164), $5165, $5166, $5167, $5168); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $5172 = self.err; + var _reply$72 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $5174 = self.err; + var self = $5172; + switch (self._) { + case 'Maybe.some': + var $5176 = self.value; + var $5177 = Parser$Reply$error$(Parser$Error$combine$($5176, $5174)); + var $5175 = $5177; + break; + case 'Maybe.none': + var $5178 = Parser$Reply$error$($5174); + var $5175 = $5178; + break; + }; + var $5173 = $5175; + break; + case 'Parser.Reply.value': + var $5179 = self.pst; + var self = $5179; + switch (self._) { + case 'Parser.State.new': + var $5181 = self.err; + var $5182 = self.nam; + var $5183 = self.ini; + var $5184 = self.idx; + var $5185 = self.str; + var $5186 = ((console.log(("FALTANDO " + $5185)), (_$80 => { + var $5187 = ((console.log(("VALUE " + $5182)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5172, $5181), $5182, $5183, $5184, $5185); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $5189 = self.err; + var _reply$88 = _body$1(Unit$new)(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $5191 = self.err; + var self = $5189; + switch (self._) { + case 'Maybe.some': + var $5193 = self.value; + var $5194 = Parser$Reply$error$(Parser$Error$combine$($5193, $5191)); + var $5192 = $5194; + break; + case 'Maybe.none': + var $5195 = Parser$Reply$error$($5191); + var $5192 = $5195; + break; + }; + var $5190 = $5192; + break; + case 'Parser.Reply.value': + var $5196 = self.pst; + var $5197 = self.val; + var self = $5196; + switch (self._) { + case 'Parser.State.new': + var $5199 = self.err; + var $5200 = self.nam; + var $5201 = self.ini; + var $5202 = self.idx; + var $5203 = self.str; + var $5204 = ((console.log(("FALTANDO " + $5203)), (_$96 => { + var $5205 = ((console.log(("VALUE " + $5200)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($5189, $5199), $5200, $5201, $5202, $5203); + var $5206 = Parser$Reply$value$(_reply$pst$98, Kind$Term$let$($5127, $5162, (_x$99 => { + var $5207 = $5197; + return $5207; + }))); + return $5206; + })())); + return $5205; + })())); + var $5198 = $5204; + break; + }; + var $5190 = $5198; + break; + }; + var $5188 = $5190; + break; + }; + return $5188; + })())); + return $5187; + })())); + var $5180 = $5186; + break; + }; + var $5173 = $5180; + break; + }; + var $5171 = $5173; + break; + }; + return $5171; + })())); + return $5170; + })())); + var $5163 = $5169; + break; + }; + var $5155 = $5163; + break; + }; + var $5153 = $5155; + break; + }; + return $5153; + })())); + return $5152; + })())); + var $5145 = $5151; + break; + }; + var $5138 = $5145; + break; + }; + var $5136 = $5138; + break; + }; + return $5136; + })())); + return $5135; + })())); + var $5128 = $5134; + break; + }; + var $5120 = $5128; + break; + }; + var $5118 = $5120; + break; + }; + return $5118; + })())); + return $5117; + })())); + var $5110 = $5116; + break; + }; + var $5103 = $5110; + break; + }; + var $5101 = $5103; + break; + }; + return $5101; + })); + return $5100; + }; + const Kind$Parser$let = x0 => Kind$Parser$let$(x0); + + function Kind$Parser$let$omit$(_body$1) { + var $5208 = Kind$Parser$block("let")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5210 = self.err; + var _reply$8 = Kind$Parser$name1$(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5212 = self.err; + var self = $5210; + switch (self._) { + case 'Maybe.some': + var $5214 = self.value; + var $5215 = Parser$Reply$error$(Parser$Error$combine$($5214, $5212)); + var $5213 = $5215; + break; + case 'Maybe.none': + var $5216 = Parser$Reply$error$($5212); + var $5213 = $5216; + break; + }; + var $5211 = $5213; + break; + case 'Parser.Reply.value': + var $5217 = self.pst; + var $5218 = self.val; + var self = $5217; + switch (self._) { + case 'Parser.State.new': + var $5220 = self.err; + var $5221 = self.nam; + var $5222 = self.ini; + var $5223 = self.idx; + var $5224 = self.str; + var $5225 = ((console.log(("FALTANDO " + $5224)), (_$16 => { + var $5226 = ((console.log(("VALUE " + $5221)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5210, $5220), $5221, $5222, $5223, $5224); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $5228 = self.err; + var _reply$24 = Kind$Parser$text$("= ", _reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $5230 = self.err; + var self = $5228; + switch (self._) { + case 'Maybe.some': + var $5232 = self.value; + var $5233 = Parser$Reply$error$(Parser$Error$combine$($5232, $5230)); + var $5231 = $5233; + break; + case 'Maybe.none': + var $5234 = Parser$Reply$error$($5230); + var $5231 = $5234; + break; + }; + var $5229 = $5231; + break; + case 'Parser.Reply.value': + var $5235 = self.pst; + var self = $5235; + switch (self._) { + case 'Parser.State.new': + var $5237 = self.err; + var $5238 = self.nam; + var $5239 = self.ini; + var $5240 = self.idx; + var $5241 = self.str; + var $5242 = ((console.log(("FALTANDO " + $5241)), (_$32 => { + var $5243 = ((console.log(("VALUE " + $5238)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5228, $5237), $5238, $5239, $5240, $5241); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $5245 = self.err; + var _reply$40 = Kind$Parser$term(_reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $5247 = self.err; + var self = $5245; + switch (self._) { + case 'Maybe.some': + var $5249 = self.value; + var $5250 = Parser$Reply$error$(Parser$Error$combine$($5249, $5247)); + var $5248 = $5250; + break; + case 'Maybe.none': + var $5251 = Parser$Reply$error$($5247); + var $5248 = $5251; + break; + }; + var $5246 = $5248; + break; + case 'Parser.Reply.value': + var $5252 = self.pst; + var $5253 = self.val; + var self = $5252; + switch (self._) { + case 'Parser.State.new': + var $5255 = self.err; + var $5256 = self.nam; + var $5257 = self.ini; + var $5258 = self.idx; + var $5259 = self.str; + var $5260 = ((console.log(("FALTANDO " + $5259)), (_$48 => { + var $5261 = ((console.log(("VALUE " + $5256)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5245, $5255), $5256, $5257, $5258, $5259); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $5263 = self.err; + var _reply$56 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $5265 = self.err; + var self = $5263; + switch (self._) { + case 'Maybe.some': + var $5267 = self.value; + var $5268 = Parser$Reply$error$(Parser$Error$combine$($5267, $5265)); + var $5266 = $5268; + break; + case 'Maybe.none': + var $5269 = Parser$Reply$error$($5265); + var $5266 = $5269; + break; + }; + var $5264 = $5266; + break; + case 'Parser.Reply.value': + var $5270 = self.pst; + var self = $5270; + switch (self._) { + case 'Parser.State.new': + var $5272 = self.err; + var $5273 = self.nam; + var $5274 = self.ini; + var $5275 = self.idx; + var $5276 = self.str; + var $5277 = ((console.log(("FALTANDO " + $5276)), (_$64 => { + var $5278 = ((console.log(("VALUE " + $5273)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5263, $5272), $5273, $5274, $5275, $5276); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $5280 = self.err; + var _reply$72 = _body$1(Unit$new)(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $5282 = self.err; + var self = $5280; + switch (self._) { + case 'Maybe.some': + var $5284 = self.value; + var $5285 = Parser$Reply$error$(Parser$Error$combine$($5284, $5282)); + var $5283 = $5285; + break; + case 'Maybe.none': + var $5286 = Parser$Reply$error$($5282); + var $5283 = $5286; + break; + }; + var $5281 = $5283; + break; + case 'Parser.Reply.value': + var $5287 = self.pst; + var $5288 = self.val; + var self = $5287; + switch (self._) { + case 'Parser.State.new': + var $5290 = self.err; + var $5291 = self.nam; + var $5292 = self.ini; + var $5293 = self.idx; + var $5294 = self.str; + var $5295 = ((console.log(("FALTANDO " + $5294)), (_$80 => { + var $5296 = ((console.log(("VALUE " + $5291)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5280, $5290), $5291, $5292, $5293, $5294); + var $5297 = Parser$Reply$value$(_reply$pst$82, Kind$Term$let$($5218, $5253, (_x$83 => { + var $5298 = $5288; + return $5298; + }))); + return $5297; + })())); + return $5296; + })())); + var $5289 = $5295; + break; + }; + var $5281 = $5289; + break; + }; + var $5279 = $5281; + break; + }; + return $5279; + })())); + return $5278; + })())); + var $5271 = $5277; + break; + }; + var $5264 = $5271; + break; + }; + var $5262 = $5264; + break; + }; + return $5262; + })())); + return $5261; + })())); + var $5254 = $5260; + break; + }; + var $5246 = $5254; + break; + }; + var $5244 = $5246; + break; + }; + return $5244; + })())); + return $5243; + })())); + var $5236 = $5242; + break; + }; + var $5229 = $5236; + break; + }; + var $5227 = $5229; + break; + }; + return $5227; + })())); + return $5226; + })())); + var $5219 = $5225; + break; + }; + var $5211 = $5219; + break; + }; + var $5209 = $5211; + break; + }; + return $5209; + })); + return $5208; + }; + const Kind$Parser$let$omit = x0 => Kind$Parser$let$omit$(x0); + + function Kind$Parser$getwhile$(_body$1) { + var $5299 = Kind$Parser$block("let-while")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5301 = self.err; + var _reply$8 = Parser$maybe$(Kind$Parser$text("let "), _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5303 = self.err; + var self = $5301; + switch (self._) { + case 'Maybe.some': + var $5305 = self.value; + var $5306 = Parser$Reply$error$(Parser$Error$combine$($5305, $5303)); + var $5304 = $5306; + break; + case 'Maybe.none': + var $5307 = Parser$Reply$error$($5303); + var $5304 = $5307; + break; + }; + var $5302 = $5304; + break; + case 'Parser.Reply.value': + var $5308 = self.pst; + var self = $5308; + switch (self._) { + case 'Parser.State.new': + var $5310 = self.err; + var $5311 = self.nam; + var $5312 = self.ini; + var $5313 = self.idx; + var $5314 = self.str; + var $5315 = ((console.log(("FALTANDO " + $5314)), (_$16 => { + var $5316 = ((console.log(("VALUE " + $5311)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5301, $5310), $5311, $5312, $5313, $5314); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $5318 = self.err; + var _reply$24 = Kind$Parser$text$("{", _reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $5320 = self.err; + var self = $5318; + switch (self._) { + case 'Maybe.some': + var $5322 = self.value; + var $5323 = Parser$Reply$error$(Parser$Error$combine$($5322, $5320)); + var $5321 = $5323; + break; + case 'Maybe.none': + var $5324 = Parser$Reply$error$($5320); + var $5321 = $5324; + break; + }; + var $5319 = $5321; + break; + case 'Parser.Reply.value': + var $5325 = self.pst; + var self = $5325; + switch (self._) { + case 'Parser.State.new': + var $5327 = self.err; + var $5328 = self.nam; + var $5329 = self.ini; + var $5330 = self.idx; + var $5331 = self.str; + var $5332 = ((console.log(("FALTANDO " + $5331)), (_$32 => { + var $5333 = ((console.log(("VALUE " + $5328)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5318, $5327), $5328, $5329, $5330, $5331); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $5335 = self.err; + var _reply$40 = Kind$Parser$name1$(_reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $5337 = self.err; + var self = $5335; + switch (self._) { + case 'Maybe.some': + var $5339 = self.value; + var $5340 = Parser$Reply$error$(Parser$Error$combine$($5339, $5337)); + var $5338 = $5340; + break; + case 'Maybe.none': + var $5341 = Parser$Reply$error$($5337); + var $5338 = $5341; + break; + }; + var $5336 = $5338; + break; + case 'Parser.Reply.value': + var $5342 = self.pst; + var $5343 = self.val; + var self = $5342; + switch (self._) { + case 'Parser.State.new': + var $5345 = self.err; + var $5346 = self.nam; + var $5347 = self.ini; + var $5348 = self.idx; + var $5349 = self.str; + var $5350 = ((console.log(("FALTANDO " + $5349)), (_$48 => { + var $5351 = ((console.log(("VALUE " + $5346)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5335, $5345), $5346, $5347, $5348, $5349); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $5353 = self.err; + var _reply$56 = Kind$Parser$text$(",", _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $5355 = self.err; + var self = $5353; + switch (self._) { + case 'Maybe.some': + var $5357 = self.value; + var $5358 = Parser$Reply$error$(Parser$Error$combine$($5357, $5355)); + var $5356 = $5358; + break; + case 'Maybe.none': + var $5359 = Parser$Reply$error$($5355); + var $5356 = $5359; + break; + }; + var $5354 = $5356; + break; + case 'Parser.Reply.value': + var $5360 = self.pst; + var self = $5360; + switch (self._) { + case 'Parser.State.new': + var $5362 = self.err; + var $5363 = self.nam; + var $5364 = self.ini; + var $5365 = self.idx; + var $5366 = self.str; + var $5367 = ((console.log(("FALTANDO " + $5366)), (_$64 => { + var $5368 = ((console.log(("VALUE " + $5363)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5353, $5362), $5363, $5364, $5365, $5366); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $5370 = self.err; + var _reply$72 = Kind$Parser$name1$(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $5372 = self.err; + var self = $5370; + switch (self._) { + case 'Maybe.some': + var $5374 = self.value; + var $5375 = Parser$Reply$error$(Parser$Error$combine$($5374, $5372)); + var $5373 = $5375; + break; + case 'Maybe.none': + var $5376 = Parser$Reply$error$($5372); + var $5373 = $5376; + break; + }; + var $5371 = $5373; + break; + case 'Parser.Reply.value': + var $5377 = self.pst; + var $5378 = self.val; + var self = $5377; + switch (self._) { + case 'Parser.State.new': + var $5380 = self.err; + var $5381 = self.nam; + var $5382 = self.ini; + var $5383 = self.idx; + var $5384 = self.str; + var $5385 = ((console.log(("FALTANDO " + $5384)), (_$80 => { + var $5386 = ((console.log(("VALUE " + $5381)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5370, $5380), $5381, $5382, $5383, $5384); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $5388 = self.err; + var _reply$88 = Kind$Parser$text$("}", _reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $5390 = self.err; + var self = $5388; + switch (self._) { + case 'Maybe.some': + var $5392 = self.value; + var $5393 = Parser$Reply$error$(Parser$Error$combine$($5392, $5390)); + var $5391 = $5393; + break; + case 'Maybe.none': + var $5394 = Parser$Reply$error$($5390); + var $5391 = $5394; + break; + }; + var $5389 = $5391; + break; + case 'Parser.Reply.value': + var $5395 = self.pst; + var self = $5395; + switch (self._) { + case 'Parser.State.new': + var $5397 = self.err; + var $5398 = self.nam; + var $5399 = self.ini; + var $5400 = self.idx; + var $5401 = self.str; + var $5402 = ((console.log(("FALTANDO " + $5401)), (_$96 => { + var $5403 = ((console.log(("VALUE " + $5398)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($5388, $5397), $5398, $5399, $5400, $5401); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $5405 = self.err; + var _reply$104 = Kind$Parser$text$("=", _reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $5407 = self.err; + var self = $5405; + switch (self._) { + case 'Maybe.some': + var $5409 = self.value; + var $5410 = Parser$Reply$error$(Parser$Error$combine$($5409, $5407)); + var $5408 = $5410; + break; + case 'Maybe.none': + var $5411 = Parser$Reply$error$($5407); + var $5408 = $5411; + break; + }; + var $5406 = $5408; + break; + case 'Parser.Reply.value': + var $5412 = self.pst; + var self = $5412; + switch (self._) { + case 'Parser.State.new': + var $5414 = self.err; + var $5415 = self.nam; + var $5416 = self.ini; + var $5417 = self.idx; + var $5418 = self.str; + var $5419 = ((console.log(("FALTANDO " + $5418)), (_$112 => { + var $5420 = ((console.log(("VALUE " + $5415)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5405, $5414), $5415, $5416, $5417, $5418); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $5422 = self.err; + var _reply$120 = Kind$Parser$text$("while ", _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $5424 = self.err; + var self = $5422; + switch (self._) { + case 'Maybe.some': + var $5426 = self.value; + var $5427 = Parser$Reply$error$(Parser$Error$combine$($5426, $5424)); + var $5425 = $5427; + break; + case 'Maybe.none': + var $5428 = Parser$Reply$error$($5424); + var $5425 = $5428; + break; + }; + var $5423 = $5425; + break; + case 'Parser.Reply.value': + var $5429 = self.pst; + var self = $5429; + switch (self._) { + case 'Parser.State.new': + var $5431 = self.err; + var $5432 = self.nam; + var $5433 = self.ini; + var $5434 = self.idx; + var $5435 = self.str; + var $5436 = ((console.log(("FALTANDO " + $5435)), (_$128 => { + var $5437 = ((console.log(("VALUE " + $5432)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($5422, $5431), $5432, $5433, $5434, $5435); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $5439 = self.err; + var _reply$136 = Kind$Parser$term(_reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $5441 = self.err; + var self = $5439; + switch (self._) { + case 'Maybe.some': + var $5443 = self.value; + var $5444 = Parser$Reply$error$(Parser$Error$combine$($5443, $5441)); + var $5442 = $5444; + break; + case 'Maybe.none': + var $5445 = Parser$Reply$error$($5441); + var $5442 = $5445; + break; + }; + var $5440 = $5442; + break; + case 'Parser.Reply.value': + var $5446 = self.pst; + var $5447 = self.val; + var self = $5446; + switch (self._) { + case 'Parser.State.new': + var $5449 = self.err; + var $5450 = self.nam; + var $5451 = self.ini; + var $5452 = self.idx; + var $5453 = self.str; + var $5454 = ((console.log(("FALTANDO " + $5453)), (_$144 => { + var $5455 = ((console.log(("VALUE " + $5450)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($5439, $5449), $5450, $5451, $5452, $5453); + var self = _reply$pst$146; + switch (self._) { + case 'Parser.State.new': + var $5457 = self.err; + var _reply$152 = Kind$Parser$text$(":", _reply$pst$146); + var self = _reply$152; + switch (self._) { + case 'Parser.Reply.error': + var $5459 = self.err; + var self = $5457; + switch (self._) { + case 'Maybe.some': + var $5461 = self.value; + var $5462 = Parser$Reply$error$(Parser$Error$combine$($5461, $5459)); + var $5460 = $5462; + break; + case 'Maybe.none': + var $5463 = Parser$Reply$error$($5459); + var $5460 = $5463; + break; + }; + var $5458 = $5460; + break; + case 'Parser.Reply.value': + var $5464 = self.pst; + var self = $5464; + switch (self._) { + case 'Parser.State.new': + var $5466 = self.err; + var $5467 = self.nam; + var $5468 = self.ini; + var $5469 = self.idx; + var $5470 = self.str; + var $5471 = ((console.log(("FALTANDO " + $5470)), (_$160 => { + var $5472 = ((console.log(("VALUE " + $5467)), (_$161 => { + var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($5457, $5466), $5467, $5468, $5469, $5470); + var self = _reply$pst$162; + switch (self._) { + case 'Parser.State.new': + var $5474 = self.err; + var _reply$168 = Kind$Parser$term(_reply$pst$162); + var self = _reply$168; + switch (self._) { + case 'Parser.Reply.error': + var $5476 = self.err; + var self = $5474; + switch (self._) { + case 'Maybe.some': + var $5478 = self.value; + var $5479 = Parser$Reply$error$(Parser$Error$combine$($5478, $5476)); + var $5477 = $5479; + break; + case 'Maybe.none': + var $5480 = Parser$Reply$error$($5476); + var $5477 = $5480; + break; + }; + var $5475 = $5477; + break; + case 'Parser.Reply.value': + var $5481 = self.pst; + var $5482 = self.val; + var self = $5481; + switch (self._) { + case 'Parser.State.new': + var $5484 = self.err; + var $5485 = self.nam; + var $5486 = self.ini; + var $5487 = self.idx; + var $5488 = self.str; + var $5489 = ((console.log(("FALTANDO " + $5488)), (_$176 => { + var $5490 = ((console.log(("VALUE " + $5485)), (_$177 => { + var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($5474, $5484), $5485, $5486, $5487, $5488); + var self = _reply$pst$178; + switch (self._) { + case 'Parser.State.new': + var $5492 = self.err; + var _reply$184 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$178); + var self = _reply$184; + switch (self._) { + case 'Parser.Reply.error': + var $5494 = self.err; + var self = $5492; + switch (self._) { + case 'Maybe.some': + var $5496 = self.value; + var $5497 = Parser$Reply$error$(Parser$Error$combine$($5496, $5494)); + var $5495 = $5497; + break; + case 'Maybe.none': + var $5498 = Parser$Reply$error$($5494); + var $5495 = $5498; + break; + }; + var $5493 = $5495; + break; + case 'Parser.Reply.value': + var $5499 = self.pst; + var self = $5499; + switch (self._) { + case 'Parser.State.new': + var $5501 = self.err; + var $5502 = self.nam; + var $5503 = self.ini; + var $5504 = self.idx; + var $5505 = self.str; + var $5506 = ((console.log(("FALTANDO " + $5505)), (_$192 => { + var $5507 = ((console.log(("VALUE " + $5502)), (_$193 => { + var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($5492, $5501), $5502, $5503, $5504, $5505); + var self = _reply$pst$194; + switch (self._) { + case 'Parser.State.new': + var $5509 = self.err; + var _reply$200 = _body$1(Unit$new)(_reply$pst$194); + var self = _reply$200; + switch (self._) { + case 'Parser.Reply.error': + var $5511 = self.err; + var self = $5509; + switch (self._) { + case 'Maybe.some': + var $5513 = self.value; + var $5514 = Parser$Reply$error$(Parser$Error$combine$($5513, $5511)); + var $5512 = $5514; + break; + case 'Maybe.none': + var $5515 = Parser$Reply$error$($5511); + var $5512 = $5515; + break; + }; + var $5510 = $5512; + break; + case 'Parser.Reply.value': + var $5516 = self.pst; + var $5517 = self.val; + var self = $5516; + switch (self._) { + case 'Parser.State.new': + var $5519 = self.err; + var $5520 = self.nam; + var $5521 = self.ini; + var $5522 = self.idx; + var $5523 = self.str; + var $5524 = ((console.log(("FALTANDO " + $5523)), (_$208 => { + var $5525 = ((console.log(("VALUE " + $5520)), (_$209 => { + var _reply$pst$210 = Parser$State$new$(Parser$Error$maybe_combine$($5509, $5519), $5520, $5521, $5522, $5523); + var _moti$211 = Kind$Term$lam$("", (_x$211 => { + var $5527 = Kind$Term$hol$(Bits$e); + return $5527; + })); + var _term$212 = Kind$Term$ref$("Function.while"); + var _term$213 = Kind$Term$app$(_term$212, Kind$Term$hol$(Bits$e)); + var _init$214 = Kind$Term$ref$("Pair.new"); + var _init$215 = Kind$Term$app$(_init$214, Kind$Term$hol$(Bits$e)); + var _init$216 = Kind$Term$app$(_init$215, Kind$Term$hol$(Bits$e)); + var _init$217 = Kind$Term$app$(_init$216, Kind$Term$ref$($5343)); + var _init$218 = Kind$Term$app$(_init$217, Kind$Term$ref$($5378)); + var _term$219 = Kind$Term$app$(_term$213, _init$218); + var _term$220 = Kind$Term$app$(_term$219, Kind$Term$lam$("s", (_s$220 => { + var $5528 = Kind$Term$app$(Kind$Term$app$(_s$220, _moti$211), Kind$Term$lam$($5343, (_x$221 => { + var $5529 = Kind$Term$lam$($5378, (_y$222 => { + var $5530 = $5447; + return $5530; + })); + return $5529; + }))); + return $5528; + }))); + var _term$221 = Kind$Term$app$(_term$220, Kind$Term$lam$("s", (_s$221 => { + var $5531 = Kind$Term$app$(Kind$Term$app$(_s$221, _moti$211), Kind$Term$lam$($5343, (_x$222 => { + var $5532 = Kind$Term$lam$($5378, (_y$223 => { + var $5533 = $5482; + return $5533; + })); + return $5532; + }))); + return $5531; + }))); + var _term$222 = Kind$Term$app$(Kind$Term$app$(_term$221, _moti$211), Kind$Term$lam$($5343, (_x$222 => { + var $5534 = Kind$Term$lam$($5378, (_y$223 => { + var $5535 = $5517; + return $5535; + })); + return $5534; + }))); + var $5526 = Parser$Reply$value$(_reply$pst$210, _term$222); + return $5526; + })())); + return $5525; + })())); + var $5518 = $5524; + break; + }; + var $5510 = $5518; + break; + }; + var $5508 = $5510; + break; + }; + return $5508; + })())); + return $5507; + })())); + var $5500 = $5506; + break; + }; + var $5493 = $5500; + break; + }; + var $5491 = $5493; + break; + }; + return $5491; + })())); + return $5490; + })())); + var $5483 = $5489; + break; + }; + var $5475 = $5483; + break; + }; + var $5473 = $5475; + break; + }; + return $5473; + })())); + return $5472; + })())); + var $5465 = $5471; + break; + }; + var $5458 = $5465; + break; + }; + var $5456 = $5458; + break; + }; + return $5456; + })())); + return $5455; + })())); + var $5448 = $5454; + break; + }; + var $5440 = $5448; + break; + }; + var $5438 = $5440; + break; + }; + return $5438; + })())); + return $5437; + })())); + var $5430 = $5436; + break; + }; + var $5423 = $5430; + break; + }; + var $5421 = $5423; + break; + }; + return $5421; + })())); + return $5420; + })())); + var $5413 = $5419; + break; + }; + var $5406 = $5413; + break; + }; + var $5404 = $5406; + break; + }; + return $5404; + })())); + return $5403; + })())); + var $5396 = $5402; + break; + }; + var $5389 = $5396; + break; + }; + var $5387 = $5389; + break; + }; + return $5387; + })())); + return $5386; + })())); + var $5379 = $5385; + break; + }; + var $5371 = $5379; + break; + }; + var $5369 = $5371; + break; + }; + return $5369; + })())); + return $5368; + })())); + var $5361 = $5367; + break; + }; + var $5354 = $5361; + break; + }; + var $5352 = $5354; + break; + }; + return $5352; + })())); + return $5351; + })())); + var $5344 = $5350; + break; + }; + var $5336 = $5344; + break; + }; + var $5334 = $5336; + break; + }; + return $5334; + })())); + return $5333; + })())); + var $5326 = $5332; + break; + }; + var $5319 = $5326; + break; + }; + var $5317 = $5319; + break; + }; + return $5317; + })())); + return $5316; + })())); + var $5309 = $5315; + break; + }; + var $5302 = $5309; + break; + }; + var $5300 = $5302; + break; + }; + return $5300; + })); + return $5299; + }; + const Kind$Parser$getwhile = x0 => Kind$Parser$getwhile$(x0); + + function Kind$Parser$getwhile$with$(_body$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5537 = self.err; + var _reply$8 = Kind$Parser$text$("while ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5539 = self.err; + var self = $5537; + switch (self._) { + case 'Maybe.some': + var $5541 = self.value; + var $5542 = Parser$Reply$error$(Parser$Error$combine$($5541, $5539)); + var $5540 = $5542; + break; + case 'Maybe.none': + var $5543 = Parser$Reply$error$($5539); + var $5540 = $5543; + break; + }; + var $5538 = $5540; + break; + case 'Parser.Reply.value': + var $5544 = self.pst; + var self = $5544; + switch (self._) { + case 'Parser.State.new': + var $5546 = self.err; + var $5547 = self.nam; + var $5548 = self.ini; + var $5549 = self.idx; + var $5550 = self.str; + var $5551 = ((console.log(("FALTANDO " + $5550)), (_$16 => { + var $5552 = ((console.log(("VALUE " + $5547)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5537, $5546), $5547, $5548, $5549, $5550); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $5554 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $5556 = self.err; + var self = $5554; + switch (self._) { + case 'Maybe.some': + var $5558 = self.value; + var $5559 = Parser$Reply$error$(Parser$Error$combine$($5558, $5556)); + var $5557 = $5559; + break; + case 'Maybe.none': + var $5560 = Parser$Reply$error$($5556); + var $5557 = $5560; + break; + }; + var $5555 = $5557; + break; + case 'Parser.Reply.value': + var $5561 = self.pst; + var $5562 = self.val; + var self = $5561; + switch (self._) { + case 'Parser.State.new': + var $5564 = self.err; + var $5565 = self.nam; + var $5566 = self.ini; + var $5567 = self.idx; + var $5568 = self.str; + var $5569 = ((console.log(("FALTANDO " + $5568)), (_$32 => { + var $5570 = ((console.log(("VALUE " + $5565)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5554, $5564), $5565, $5566, $5567, $5568); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $5572 = self.err; + var _reply$40 = Kind$Parser$text$("with ", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $5574 = self.err; + var self = $5572; + switch (self._) { + case 'Maybe.some': + var $5576 = self.value; + var $5577 = Parser$Reply$error$(Parser$Error$combine$($5576, $5574)); + var $5575 = $5577; + break; + case 'Maybe.none': + var $5578 = Parser$Reply$error$($5574); + var $5575 = $5578; + break; + }; + var $5573 = $5575; + break; + case 'Parser.Reply.value': + var $5579 = self.pst; + var self = $5579; + switch (self._) { + case 'Parser.State.new': + var $5581 = self.err; + var $5582 = self.nam; + var $5583 = self.ini; + var $5584 = self.idx; + var $5585 = self.str; + var $5586 = ((console.log(("FALTANDO " + $5585)), (_$48 => { + var $5587 = ((console.log(("VALUE " + $5582)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5572, $5581), $5582, $5583, $5584, $5585); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $5589 = self.err; + var _reply$56 = Kind$Parser$text$("{", _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $5591 = self.err; + var self = $5589; + switch (self._) { + case 'Maybe.some': + var $5593 = self.value; + var $5594 = Parser$Reply$error$(Parser$Error$combine$($5593, $5591)); + var $5592 = $5594; + break; + case 'Maybe.none': + var $5595 = Parser$Reply$error$($5591); + var $5592 = $5595; + break; + }; + var $5590 = $5592; + break; + case 'Parser.Reply.value': + var $5596 = self.pst; + var self = $5596; + switch (self._) { + case 'Parser.State.new': + var $5598 = self.err; + var $5599 = self.nam; + var $5600 = self.ini; + var $5601 = self.idx; + var $5602 = self.str; + var $5603 = ((console.log(("FALTANDO " + $5602)), (_$64 => { + var $5604 = ((console.log(("VALUE " + $5599)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5589, $5598), $5599, $5600, $5601, $5602); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $5606 = self.err; + var _reply$72 = Kind$Parser$name1$(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $5608 = self.err; + var self = $5606; + switch (self._) { + case 'Maybe.some': + var $5610 = self.value; + var $5611 = Parser$Reply$error$(Parser$Error$combine$($5610, $5608)); + var $5609 = $5611; + break; + case 'Maybe.none': + var $5612 = Parser$Reply$error$($5608); + var $5609 = $5612; + break; + }; + var $5607 = $5609; + break; + case 'Parser.Reply.value': + var $5613 = self.pst; + var $5614 = self.val; + var self = $5613; + switch (self._) { + case 'Parser.State.new': + var $5616 = self.err; + var $5617 = self.nam; + var $5618 = self.ini; + var $5619 = self.idx; + var $5620 = self.str; + var $5621 = ((console.log(("FALTANDO " + $5620)), (_$80 => { + var $5622 = ((console.log(("VALUE " + $5617)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5606, $5616), $5617, $5618, $5619, $5620); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $5624 = self.err; + var _reply$88 = Kind$Parser$text$(",", _reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $5626 = self.err; + var self = $5624; + switch (self._) { + case 'Maybe.some': + var $5628 = self.value; + var $5629 = Parser$Reply$error$(Parser$Error$combine$($5628, $5626)); + var $5627 = $5629; + break; + case 'Maybe.none': + var $5630 = Parser$Reply$error$($5626); + var $5627 = $5630; + break; + }; + var $5625 = $5627; + break; + case 'Parser.Reply.value': + var $5631 = self.pst; + var self = $5631; + switch (self._) { + case 'Parser.State.new': + var $5633 = self.err; + var $5634 = self.nam; + var $5635 = self.ini; + var $5636 = self.idx; + var $5637 = self.str; + var $5638 = ((console.log(("FALTANDO " + $5637)), (_$96 => { + var $5639 = ((console.log(("VALUE " + $5634)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($5624, $5633), $5634, $5635, $5636, $5637); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $5641 = self.err; + var _reply$104 = Kind$Parser$name1$(_reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $5643 = self.err; + var self = $5641; + switch (self._) { + case 'Maybe.some': + var $5645 = self.value; + var $5646 = Parser$Reply$error$(Parser$Error$combine$($5645, $5643)); + var $5644 = $5646; + break; + case 'Maybe.none': + var $5647 = Parser$Reply$error$($5643); + var $5644 = $5647; + break; + }; + var $5642 = $5644; + break; + case 'Parser.Reply.value': + var $5648 = self.pst; + var $5649 = self.val; + var self = $5648; + switch (self._) { + case 'Parser.State.new': + var $5651 = self.err; + var $5652 = self.nam; + var $5653 = self.ini; + var $5654 = self.idx; + var $5655 = self.str; + var $5656 = ((console.log(("FALTANDO " + $5655)), (_$112 => { + var $5657 = ((console.log(("VALUE " + $5652)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5641, $5651), $5652, $5653, $5654, $5655); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $5659 = self.err; + var _reply$120 = Kind$Parser$text$("}", _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $5661 = self.err; + var self = $5659; + switch (self._) { + case 'Maybe.some': + var $5663 = self.value; + var $5664 = Parser$Reply$error$(Parser$Error$combine$($5663, $5661)); + var $5662 = $5664; + break; + case 'Maybe.none': + var $5665 = Parser$Reply$error$($5661); + var $5662 = $5665; + break; + }; + var $5660 = $5662; + break; + case 'Parser.Reply.value': + var $5666 = self.pst; + var self = $5666; + switch (self._) { + case 'Parser.State.new': + var $5668 = self.err; + var $5669 = self.nam; + var $5670 = self.ini; + var $5671 = self.idx; + var $5672 = self.str; + var $5673 = ((console.log(("FALTANDO " + $5672)), (_$128 => { + var $5674 = ((console.log(("VALUE " + $5669)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($5659, $5668), $5669, $5670, $5671, $5672); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $5676 = self.err; + var _reply$136 = Kind$Parser$text$(":", _reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $5678 = self.err; + var self = $5676; + switch (self._) { + case 'Maybe.some': + var $5680 = self.value; + var $5681 = Parser$Reply$error$(Parser$Error$combine$($5680, $5678)); + var $5679 = $5681; + break; + case 'Maybe.none': + var $5682 = Parser$Reply$error$($5678); + var $5679 = $5682; + break; + }; + var $5677 = $5679; + break; + case 'Parser.Reply.value': + var $5683 = self.pst; + var self = $5683; + switch (self._) { + case 'Parser.State.new': + var $5685 = self.err; + var $5686 = self.nam; + var $5687 = self.ini; + var $5688 = self.idx; + var $5689 = self.str; + var $5690 = ((console.log(("FALTANDO " + $5689)), (_$144 => { + var $5691 = ((console.log(("VALUE " + $5686)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($5676, $5685), $5686, $5687, $5688, $5689); + var self = _reply$pst$146; + switch (self._) { + case 'Parser.State.new': + var $5693 = self.err; + var _reply$152 = Kind$Parser$term(_reply$pst$146); + var self = _reply$152; + switch (self._) { + case 'Parser.Reply.error': + var $5695 = self.err; + var self = $5693; + switch (self._) { + case 'Maybe.some': + var $5697 = self.value; + var $5698 = Parser$Reply$error$(Parser$Error$combine$($5697, $5695)); + var $5696 = $5698; + break; + case 'Maybe.none': + var $5699 = Parser$Reply$error$($5695); + var $5696 = $5699; + break; + }; + var $5694 = $5696; + break; + case 'Parser.Reply.value': + var $5700 = self.pst; + var $5701 = self.val; + var self = $5700; + switch (self._) { + case 'Parser.State.new': + var $5703 = self.err; + var $5704 = self.nam; + var $5705 = self.ini; + var $5706 = self.idx; + var $5707 = self.str; + var $5708 = ((console.log(("FALTANDO " + $5707)), (_$160 => { + var $5709 = ((console.log(("VALUE " + $5704)), (_$161 => { + var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($5693, $5703), $5704, $5705, $5706, $5707); + var self = _reply$pst$162; + switch (self._) { + case 'Parser.State.new': + var $5711 = self.err; + var _reply$168 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$162); + var self = _reply$168; + switch (self._) { + case 'Parser.Reply.error': + var $5713 = self.err; + var self = $5711; + switch (self._) { + case 'Maybe.some': + var $5715 = self.value; + var $5716 = Parser$Reply$error$(Parser$Error$combine$($5715, $5713)); + var $5714 = $5716; + break; + case 'Maybe.none': + var $5717 = Parser$Reply$error$($5713); + var $5714 = $5717; + break; + }; + var $5712 = $5714; + break; + case 'Parser.Reply.value': + var $5718 = self.pst; + var self = $5718; + switch (self._) { + case 'Parser.State.new': + var $5720 = self.err; + var $5721 = self.nam; + var $5722 = self.ini; + var $5723 = self.idx; + var $5724 = self.str; + var $5725 = ((console.log(("FALTANDO " + $5724)), (_$176 => { + var $5726 = ((console.log(("VALUE " + $5721)), (_$177 => { + var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($5711, $5720), $5721, $5722, $5723, $5724); + var self = _reply$pst$178; + switch (self._) { + case 'Parser.State.new': + var $5728 = self.err; + var _reply$184 = _body$1(Unit$new)(_reply$pst$178); + var self = _reply$184; + switch (self._) { + case 'Parser.Reply.error': + var $5730 = self.err; + var self = $5728; + switch (self._) { + case 'Maybe.some': + var $5732 = self.value; + var $5733 = Parser$Reply$error$(Parser$Error$combine$($5732, $5730)); + var $5731 = $5733; + break; + case 'Maybe.none': + var $5734 = Parser$Reply$error$($5730); + var $5731 = $5734; + break; + }; + var $5729 = $5731; + break; + case 'Parser.Reply.value': + var $5735 = self.pst; + var $5736 = self.val; + var self = $5735; + switch (self._) { + case 'Parser.State.new': + var $5738 = self.err; + var $5739 = self.nam; + var $5740 = self.ini; + var $5741 = self.idx; + var $5742 = self.str; + var $5743 = ((console.log(("FALTANDO " + $5742)), (_$192 => { + var $5744 = ((console.log(("VALUE " + $5739)), (_$193 => { + var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($5728, $5738), $5739, $5740, $5741, $5742); + var _moti$195 = Kind$Term$lam$("", (_x$195 => { + var $5746 = Kind$Term$hol$(Bits$e); + return $5746; + })); + var _term$196 = Kind$Term$ref$("Function.while"); + var _term$197 = Kind$Term$app$(_term$196, Kind$Term$hol$(Bits$e)); + var _init$198 = Kind$Term$ref$("Pair.new"); + var _init$199 = Kind$Term$app$(_init$198, Kind$Term$hol$(Bits$e)); + var _init$200 = Kind$Term$app$(_init$199, Kind$Term$hol$(Bits$e)); + var _init$201 = Kind$Term$app$(_init$200, Kind$Term$ref$($5614)); + var _init$202 = Kind$Term$app$(_init$201, Kind$Term$ref$($5649)); + var _term$203 = Kind$Term$app$(_term$197, _init$202); + var _term$204 = Kind$Term$app$(_term$203, Kind$Term$lam$("s", (_s$204 => { + var $5747 = Kind$Term$app$(Kind$Term$app$(_s$204, _moti$195), Kind$Term$lam$($5614, (_x$205 => { + var $5748 = Kind$Term$lam$($5649, (_y$206 => { + var $5749 = $5562; + return $5749; + })); + return $5748; + }))); + return $5747; + }))); + var _term$205 = Kind$Term$app$(_term$204, Kind$Term$lam$("s", (_s$205 => { + var $5750 = Kind$Term$app$(Kind$Term$app$(_s$205, _moti$195), Kind$Term$lam$($5614, (_x$206 => { + var $5751 = Kind$Term$lam$($5649, (_y$207 => { + var $5752 = $5701; + return $5752; + })); + return $5751; + }))); + return $5750; + }))); + var _term$206 = Kind$Term$app$(Kind$Term$app$(_term$205, _moti$195), Kind$Term$lam$($5614, (_x$206 => { + var $5753 = Kind$Term$lam$($5649, (_y$207 => { + var $5754 = $5736; + return $5754; + })); + return $5753; + }))); + var $5745 = Parser$Reply$value$(_reply$pst$194, _term$206); + return $5745; + })())); + return $5744; + })())); + var $5737 = $5743; + break; + }; + var $5729 = $5737; + break; + }; + var $5727 = $5729; + break; + }; + return $5727; + })())); + return $5726; + })())); + var $5719 = $5725; + break; + }; + var $5712 = $5719; + break; + }; + var $5710 = $5712; + break; + }; + return $5710; + })())); + return $5709; + })())); + var $5702 = $5708; + break; + }; + var $5694 = $5702; + break; + }; + var $5692 = $5694; + break; + }; + return $5692; + })())); + return $5691; + })())); + var $5684 = $5690; + break; + }; + var $5677 = $5684; + break; + }; + var $5675 = $5677; + break; + }; + return $5675; + })())); + return $5674; + })())); + var $5667 = $5673; + break; + }; + var $5660 = $5667; + break; + }; + var $5658 = $5660; + break; + }; + return $5658; + })())); + return $5657; + })())); + var $5650 = $5656; + break; + }; + var $5642 = $5650; + break; + }; + var $5640 = $5642; + break; + }; + return $5640; + })())); + return $5639; + })())); + var $5632 = $5638; + break; + }; + var $5625 = $5632; + break; + }; + var $5623 = $5625; + break; + }; + return $5623; + })())); + return $5622; + })())); + var $5615 = $5621; + break; + }; + var $5607 = $5615; + break; + }; + var $5605 = $5607; + break; + }; + return $5605; + })())); + return $5604; + })())); + var $5597 = $5603; + break; + }; + var $5590 = $5597; + break; + }; + var $5588 = $5590; + break; + }; + return $5588; + })())); + return $5587; + })())); + var $5580 = $5586; + break; + }; + var $5573 = $5580; + break; + }; + var $5571 = $5573; + break; + }; + return $5571; + })())); + return $5570; + })())); + var $5563 = $5569; + break; + }; + var $5555 = $5563; + break; + }; + var $5553 = $5555; + break; + }; + return $5553; + })())); + return $5552; + })())); + var $5545 = $5551; + break; + }; + var $5538 = $5545; + break; + }; + var $5536 = $5538; + break; + }; + return $5536; + }; + const Kind$Parser$getwhile$with = x0 => x1 => Kind$Parser$getwhile$with$(x0, x1); + + function Kind$Parser$get$(_body$1) { + var $5755 = Kind$Parser$block("let")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5757 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5759 = self.err; + var self = $5757; + switch (self._) { + case 'Maybe.some': + var $5761 = self.value; + var $5762 = Parser$Reply$error$(Parser$Error$combine$($5761, $5759)); + var $5760 = $5762; + break; + case 'Maybe.none': + var $5763 = Parser$Reply$error$($5759); + var $5760 = $5763; + break; + }; + var $5758 = $5760; + break; + case 'Parser.Reply.value': + var $5764 = self.pst; + var self = $5764; + switch (self._) { + case 'Parser.State.new': + var $5766 = self.err; + var $5767 = self.nam; + var $5768 = self.ini; + var $5769 = self.idx; + var $5770 = self.str; + var $5771 = ((console.log(("FALTANDO " + $5770)), (_$16 => { + var $5772 = ((console.log(("VALUE " + $5767)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5757, $5766), $5767, $5768, $5769, $5770); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $5774 = self.err; + var _reply$24 = Kind$Parser$text$("{", _reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $5776 = self.err; + var self = $5774; + switch (self._) { + case 'Maybe.some': + var $5778 = self.value; + var $5779 = Parser$Reply$error$(Parser$Error$combine$($5778, $5776)); + var $5777 = $5779; + break; + case 'Maybe.none': + var $5780 = Parser$Reply$error$($5776); + var $5777 = $5780; + break; + }; + var $5775 = $5777; + break; + case 'Parser.Reply.value': + var $5781 = self.pst; + var self = $5781; + switch (self._) { + case 'Parser.State.new': + var $5783 = self.err; + var $5784 = self.nam; + var $5785 = self.ini; + var $5786 = self.idx; + var $5787 = self.str; + var $5788 = ((console.log(("FALTANDO " + $5787)), (_$32 => { + var $5789 = ((console.log(("VALUE " + $5784)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5774, $5783), $5784, $5785, $5786, $5787); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $5791 = self.err; + var _reply$40 = Kind$Parser$name1$(_reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $5793 = self.err; + var self = $5791; + switch (self._) { + case 'Maybe.some': + var $5795 = self.value; + var $5796 = Parser$Reply$error$(Parser$Error$combine$($5795, $5793)); + var $5794 = $5796; + break; + case 'Maybe.none': + var $5797 = Parser$Reply$error$($5793); + var $5794 = $5797; + break; + }; + var $5792 = $5794; + break; + case 'Parser.Reply.value': + var $5798 = self.pst; + var $5799 = self.val; + var self = $5798; + switch (self._) { + case 'Parser.State.new': + var $5801 = self.err; + var $5802 = self.nam; + var $5803 = self.ini; + var $5804 = self.idx; + var $5805 = self.str; + var $5806 = ((console.log(("FALTANDO " + $5805)), (_$48 => { + var $5807 = ((console.log(("VALUE " + $5802)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5791, $5801), $5802, $5803, $5804, $5805); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $5809 = self.err; + var _reply$56 = Kind$Parser$text$(",", _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $5811 = self.err; + var self = $5809; + switch (self._) { + case 'Maybe.some': + var $5813 = self.value; + var $5814 = Parser$Reply$error$(Parser$Error$combine$($5813, $5811)); + var $5812 = $5814; + break; + case 'Maybe.none': + var $5815 = Parser$Reply$error$($5811); + var $5812 = $5815; + break; + }; + var $5810 = $5812; + break; + case 'Parser.Reply.value': + var $5816 = self.pst; + var self = $5816; + switch (self._) { + case 'Parser.State.new': + var $5818 = self.err; + var $5819 = self.nam; + var $5820 = self.ini; + var $5821 = self.idx; + var $5822 = self.str; + var $5823 = ((console.log(("FALTANDO " + $5822)), (_$64 => { + var $5824 = ((console.log(("VALUE " + $5819)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5809, $5818), $5819, $5820, $5821, $5822); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $5826 = self.err; + var _reply$72 = Kind$Parser$name1$(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $5828 = self.err; + var self = $5826; + switch (self._) { + case 'Maybe.some': + var $5830 = self.value; + var $5831 = Parser$Reply$error$(Parser$Error$combine$($5830, $5828)); + var $5829 = $5831; + break; + case 'Maybe.none': + var $5832 = Parser$Reply$error$($5828); + var $5829 = $5832; + break; + }; + var $5827 = $5829; + break; + case 'Parser.Reply.value': + var $5833 = self.pst; + var $5834 = self.val; + var self = $5833; + switch (self._) { + case 'Parser.State.new': + var $5836 = self.err; + var $5837 = self.nam; + var $5838 = self.ini; + var $5839 = self.idx; + var $5840 = self.str; + var $5841 = ((console.log(("FALTANDO " + $5840)), (_$80 => { + var $5842 = ((console.log(("VALUE " + $5837)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5826, $5836), $5837, $5838, $5839, $5840); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $5844 = self.err; + var _reply$88 = Kind$Parser$text$("}", _reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $5846 = self.err; + var self = $5844; + switch (self._) { + case 'Maybe.some': + var $5848 = self.value; + var $5849 = Parser$Reply$error$(Parser$Error$combine$($5848, $5846)); + var $5847 = $5849; + break; + case 'Maybe.none': + var $5850 = Parser$Reply$error$($5846); + var $5847 = $5850; + break; + }; + var $5845 = $5847; + break; + case 'Parser.Reply.value': + var $5851 = self.pst; + var self = $5851; + switch (self._) { + case 'Parser.State.new': + var $5853 = self.err; + var $5854 = self.nam; + var $5855 = self.ini; + var $5856 = self.idx; + var $5857 = self.str; + var $5858 = ((console.log(("FALTANDO " + $5857)), (_$96 => { + var $5859 = ((console.log(("VALUE " + $5854)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($5844, $5853), $5854, $5855, $5856, $5857); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $5861 = self.err; + var _reply$104 = Kind$Parser$text$("=", _reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $5863 = self.err; + var self = $5861; + switch (self._) { + case 'Maybe.some': + var $5865 = self.value; + var $5866 = Parser$Reply$error$(Parser$Error$combine$($5865, $5863)); + var $5864 = $5866; + break; + case 'Maybe.none': + var $5867 = Parser$Reply$error$($5863); + var $5864 = $5867; + break; + }; + var $5862 = $5864; + break; + case 'Parser.Reply.value': + var $5868 = self.pst; + var self = $5868; + switch (self._) { + case 'Parser.State.new': + var $5870 = self.err; + var $5871 = self.nam; + var $5872 = self.ini; + var $5873 = self.idx; + var $5874 = self.str; + var $5875 = ((console.log(("FALTANDO " + $5874)), (_$112 => { + var $5876 = ((console.log(("VALUE " + $5871)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5861, $5870), $5871, $5872, $5873, $5874); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $5878 = self.err; + var _reply$120 = Kind$Parser$term(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $5880 = self.err; + var self = $5878; + switch (self._) { + case 'Maybe.some': + var $5882 = self.value; + var $5883 = Parser$Reply$error$(Parser$Error$combine$($5882, $5880)); + var $5881 = $5883; + break; + case 'Maybe.none': + var $5884 = Parser$Reply$error$($5880); + var $5881 = $5884; + break; + }; + var $5879 = $5881; + break; + case 'Parser.Reply.value': + var $5885 = self.pst; + var $5886 = self.val; + var self = $5885; + switch (self._) { + case 'Parser.State.new': + var $5888 = self.err; + var $5889 = self.nam; + var $5890 = self.ini; + var $5891 = self.idx; + var $5892 = self.str; + var $5893 = ((console.log(("FALTANDO " + $5892)), (_$128 => { + var $5894 = ((console.log(("VALUE " + $5889)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($5878, $5888), $5889, $5890, $5891, $5892); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $5896 = self.err; + var _reply$136 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $5898 = self.err; + var self = $5896; + switch (self._) { + case 'Maybe.some': + var $5900 = self.value; + var $5901 = Parser$Reply$error$(Parser$Error$combine$($5900, $5898)); + var $5899 = $5901; + break; + case 'Maybe.none': + var $5902 = Parser$Reply$error$($5898); + var $5899 = $5902; + break; + }; + var $5897 = $5899; + break; + case 'Parser.Reply.value': + var $5903 = self.pst; + var self = $5903; + switch (self._) { + case 'Parser.State.new': + var $5905 = self.err; + var $5906 = self.nam; + var $5907 = self.ini; + var $5908 = self.idx; + var $5909 = self.str; + var $5910 = ((console.log(("FALTANDO " + $5909)), (_$144 => { + var $5911 = ((console.log(("VALUE " + $5906)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($5896, $5905), $5906, $5907, $5908, $5909); + var self = _reply$pst$146; + switch (self._) { + case 'Parser.State.new': + var $5913 = self.err; + var _reply$152 = _body$1(Unit$new)(_reply$pst$146); + var self = _reply$152; + switch (self._) { + case 'Parser.Reply.error': + var $5915 = self.err; + var self = $5913; + switch (self._) { + case 'Maybe.some': + var $5917 = self.value; + var $5918 = Parser$Reply$error$(Parser$Error$combine$($5917, $5915)); + var $5916 = $5918; + break; + case 'Maybe.none': + var $5919 = Parser$Reply$error$($5915); + var $5916 = $5919; + break; + }; + var $5914 = $5916; + break; + case 'Parser.Reply.value': + var $5920 = self.pst; + var $5921 = self.val; + var self = $5920; + switch (self._) { + case 'Parser.State.new': + var $5923 = self.err; + var $5924 = self.nam; + var $5925 = self.ini; + var $5926 = self.idx; + var $5927 = self.str; + var $5928 = ((console.log(("FALTANDO " + $5927)), (_$160 => { + var $5929 = ((console.log(("VALUE " + $5924)), (_$161 => { + var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($5913, $5923), $5924, $5925, $5926, $5927); + var _term$163 = $5886; + var _term$164 = Kind$Term$app$(_term$163, Kind$Term$lam$("", (_x$164 => { + var $5931 = Kind$Term$hol$(Bits$e); + return $5931; + }))); + var _term$165 = Kind$Term$app$(_term$164, Kind$Term$lam$($5799, (_x$165 => { + var $5932 = Kind$Term$lam$($5834, (_y$166 => { + var $5933 = $5921; + return $5933; + })); + return $5932; + }))); + var $5930 = Parser$Reply$value$(_reply$pst$162, _term$165); + return $5930; + })())); + return $5929; + })())); + var $5922 = $5928; + break; + }; + var $5914 = $5922; + break; + }; + var $5912 = $5914; + break; + }; + return $5912; + })())); + return $5911; + })())); + var $5904 = $5910; + break; + }; + var $5897 = $5904; + break; + }; + var $5895 = $5897; + break; + }; + return $5895; + })())); + return $5894; + })())); + var $5887 = $5893; + break; + }; + var $5879 = $5887; + break; + }; + var $5877 = $5879; + break; + }; + return $5877; + })())); + return $5876; + })())); + var $5869 = $5875; + break; + }; + var $5862 = $5869; + break; + }; + var $5860 = $5862; + break; + }; + return $5860; + })())); + return $5859; + })())); + var $5852 = $5858; + break; + }; + var $5845 = $5852; + break; + }; + var $5843 = $5845; + break; + }; + return $5843; + })())); + return $5842; + })())); + var $5835 = $5841; + break; + }; + var $5827 = $5835; + break; + }; + var $5825 = $5827; + break; + }; + return $5825; + })())); + return $5824; + })())); + var $5817 = $5823; + break; + }; + var $5810 = $5817; + break; + }; + var $5808 = $5810; + break; + }; + return $5808; + })())); + return $5807; + })())); + var $5800 = $5806; + break; + }; + var $5792 = $5800; + break; + }; + var $5790 = $5792; + break; + }; + return $5790; + })())); + return $5789; + })())); + var $5782 = $5788; + break; + }; + var $5775 = $5782; + break; + }; + var $5773 = $5775; + break; + }; + return $5773; + })())); + return $5772; + })())); + var $5765 = $5771; + break; + }; + var $5758 = $5765; + break; + }; + var $5756 = $5758; + break; + }; + return $5756; + })); + return $5755; + }; + const Kind$Parser$get = x0 => Kind$Parser$get$(x0); + + function Kind$Parser$get$omit$(_body$1) { + var $5934 = Kind$Parser$block("let")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5936 = self.err; + var _reply$8 = Kind$Parser$text$("{", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5938 = self.err; + var self = $5936; + switch (self._) { + case 'Maybe.some': + var $5940 = self.value; + var $5941 = Parser$Reply$error$(Parser$Error$combine$($5940, $5938)); + var $5939 = $5941; + break; + case 'Maybe.none': + var $5942 = Parser$Reply$error$($5938); + var $5939 = $5942; + break; + }; + var $5937 = $5939; + break; + case 'Parser.Reply.value': + var $5943 = self.pst; + var self = $5943; + switch (self._) { + case 'Parser.State.new': + var $5945 = self.err; + var $5946 = self.nam; + var $5947 = self.ini; + var $5948 = self.idx; + var $5949 = self.str; + var $5950 = ((console.log(("FALTANDO " + $5949)), (_$16 => { + var $5951 = ((console.log(("VALUE " + $5946)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5936, $5945), $5946, $5947, $5948, $5949); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $5953 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $5955 = self.err; + var self = $5953; + switch (self._) { + case 'Maybe.some': + var $5957 = self.value; + var $5958 = Parser$Reply$error$(Parser$Error$combine$($5957, $5955)); + var $5956 = $5958; + break; + case 'Maybe.none': + var $5959 = Parser$Reply$error$($5955); + var $5956 = $5959; + break; + }; + var $5954 = $5956; + break; + case 'Parser.Reply.value': + var $5960 = self.pst; + var $5961 = self.val; + var self = $5960; + switch (self._) { + case 'Parser.State.new': + var $5963 = self.err; + var $5964 = self.nam; + var $5965 = self.ini; + var $5966 = self.idx; + var $5967 = self.str; + var $5968 = ((console.log(("FALTANDO " + $5967)), (_$32 => { + var $5969 = ((console.log(("VALUE " + $5964)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5953, $5963), $5964, $5965, $5966, $5967); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $5971 = self.err; + var _reply$40 = Kind$Parser$text$(",", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $5973 = self.err; + var self = $5971; + switch (self._) { + case 'Maybe.some': + var $5975 = self.value; + var $5976 = Parser$Reply$error$(Parser$Error$combine$($5975, $5973)); + var $5974 = $5976; + break; + case 'Maybe.none': + var $5977 = Parser$Reply$error$($5973); + var $5974 = $5977; + break; + }; + var $5972 = $5974; + break; + case 'Parser.Reply.value': + var $5978 = self.pst; + var self = $5978; + switch (self._) { + case 'Parser.State.new': + var $5980 = self.err; + var $5981 = self.nam; + var $5982 = self.ini; + var $5983 = self.idx; + var $5984 = self.str; + var $5985 = ((console.log(("FALTANDO " + $5984)), (_$48 => { + var $5986 = ((console.log(("VALUE " + $5981)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5971, $5980), $5981, $5982, $5983, $5984); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $5988 = self.err; + var _reply$56 = Kind$Parser$name1$(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $5990 = self.err; + var self = $5988; + switch (self._) { + case 'Maybe.some': + var $5992 = self.value; + var $5993 = Parser$Reply$error$(Parser$Error$combine$($5992, $5990)); + var $5991 = $5993; + break; + case 'Maybe.none': + var $5994 = Parser$Reply$error$($5990); + var $5991 = $5994; + break; + }; + var $5989 = $5991; + break; + case 'Parser.Reply.value': + var $5995 = self.pst; + var $5996 = self.val; + var self = $5995; + switch (self._) { + case 'Parser.State.new': + var $5998 = self.err; + var $5999 = self.nam; + var $6000 = self.ini; + var $6001 = self.idx; + var $6002 = self.str; + var $6003 = ((console.log(("FALTANDO " + $6002)), (_$64 => { + var $6004 = ((console.log(("VALUE " + $5999)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5988, $5998), $5999, $6000, $6001, $6002); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $6006 = self.err; + var _reply$72 = Kind$Parser$text$("}", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $6008 = self.err; + var self = $6006; + switch (self._) { + case 'Maybe.some': + var $6010 = self.value; + var $6011 = Parser$Reply$error$(Parser$Error$combine$($6010, $6008)); + var $6009 = $6011; + break; + case 'Maybe.none': + var $6012 = Parser$Reply$error$($6008); + var $6009 = $6012; + break; + }; + var $6007 = $6009; + break; + case 'Parser.Reply.value': + var $6013 = self.pst; + var self = $6013; + switch (self._) { + case 'Parser.State.new': + var $6015 = self.err; + var $6016 = self.nam; + var $6017 = self.ini; + var $6018 = self.idx; + var $6019 = self.str; + var $6020 = ((console.log(("FALTANDO " + $6019)), (_$80 => { + var $6021 = ((console.log(("VALUE " + $6016)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($6006, $6015), $6016, $6017, $6018, $6019); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $6023 = self.err; + var _reply$88 = Kind$Parser$text$("= ", _reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $6025 = self.err; + var self = $6023; + switch (self._) { + case 'Maybe.some': + var $6027 = self.value; + var $6028 = Parser$Reply$error$(Parser$Error$combine$($6027, $6025)); + var $6026 = $6028; + break; + case 'Maybe.none': + var $6029 = Parser$Reply$error$($6025); + var $6026 = $6029; + break; + }; + var $6024 = $6026; + break; + case 'Parser.Reply.value': + var $6030 = self.pst; + var self = $6030; + switch (self._) { + case 'Parser.State.new': + var $6032 = self.err; + var $6033 = self.nam; + var $6034 = self.ini; + var $6035 = self.idx; + var $6036 = self.str; + var $6037 = ((console.log(("FALTANDO " + $6036)), (_$96 => { + var $6038 = ((console.log(("VALUE " + $6033)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($6023, $6032), $6033, $6034, $6035, $6036); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $6040 = self.err; + var _reply$104 = Kind$Parser$term(_reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $6042 = self.err; + var self = $6040; + switch (self._) { + case 'Maybe.some': + var $6044 = self.value; + var $6045 = Parser$Reply$error$(Parser$Error$combine$($6044, $6042)); + var $6043 = $6045; + break; + case 'Maybe.none': + var $6046 = Parser$Reply$error$($6042); + var $6043 = $6046; + break; + }; + var $6041 = $6043; + break; + case 'Parser.Reply.value': + var $6047 = self.pst; + var $6048 = self.val; + var self = $6047; + switch (self._) { + case 'Parser.State.new': + var $6050 = self.err; + var $6051 = self.nam; + var $6052 = self.ini; + var $6053 = self.idx; + var $6054 = self.str; + var $6055 = ((console.log(("FALTANDO " + $6054)), (_$112 => { + var $6056 = ((console.log(("VALUE " + $6051)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($6040, $6050), $6051, $6052, $6053, $6054); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $6058 = self.err; + var _reply$120 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $6060 = self.err; + var self = $6058; + switch (self._) { + case 'Maybe.some': + var $6062 = self.value; + var $6063 = Parser$Reply$error$(Parser$Error$combine$($6062, $6060)); + var $6061 = $6063; + break; + case 'Maybe.none': + var $6064 = Parser$Reply$error$($6060); + var $6061 = $6064; + break; + }; + var $6059 = $6061; + break; + case 'Parser.Reply.value': + var $6065 = self.pst; + var self = $6065; + switch (self._) { + case 'Parser.State.new': + var $6067 = self.err; + var $6068 = self.nam; + var $6069 = self.ini; + var $6070 = self.idx; + var $6071 = self.str; + var $6072 = ((console.log(("FALTANDO " + $6071)), (_$128 => { + var $6073 = ((console.log(("VALUE " + $6068)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($6058, $6067), $6068, $6069, $6070, $6071); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $6075 = self.err; + var _reply$136 = _body$1(Unit$new)(_reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $6077 = self.err; + var self = $6075; + switch (self._) { + case 'Maybe.some': + var $6079 = self.value; + var $6080 = Parser$Reply$error$(Parser$Error$combine$($6079, $6077)); + var $6078 = $6080; + break; + case 'Maybe.none': + var $6081 = Parser$Reply$error$($6077); + var $6078 = $6081; + break; + }; + var $6076 = $6078; + break; + case 'Parser.Reply.value': + var $6082 = self.pst; + var $6083 = self.val; + var self = $6082; + switch (self._) { + case 'Parser.State.new': + var $6085 = self.err; + var $6086 = self.nam; + var $6087 = self.ini; + var $6088 = self.idx; + var $6089 = self.str; + var $6090 = ((console.log(("FALTANDO " + $6089)), (_$144 => { + var $6091 = ((console.log(("VALUE " + $6086)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($6075, $6085), $6086, $6087, $6088, $6089); + var _term$147 = $6048; + var _term$148 = Kind$Term$app$(_term$147, Kind$Term$lam$("", (_x$148 => { + var $6093 = Kind$Term$hol$(Bits$e); + return $6093; + }))); + var _term$149 = Kind$Term$app$(_term$148, Kind$Term$lam$($5961, (_x$149 => { + var $6094 = Kind$Term$lam$($5996, (_y$150 => { + var $6095 = $6083; + return $6095; + })); + return $6094; + }))); + var $6092 = Parser$Reply$value$(_reply$pst$146, _term$149); + return $6092; + })())); + return $6091; + })())); + var $6084 = $6090; + break; + }; + var $6076 = $6084; + break; + }; + var $6074 = $6076; + break; + }; + return $6074; + })())); + return $6073; + })())); + var $6066 = $6072; + break; + }; + var $6059 = $6066; + break; + }; + var $6057 = $6059; + break; + }; + return $6057; + })())); + return $6056; + })())); + var $6049 = $6055; + break; + }; + var $6041 = $6049; + break; + }; + var $6039 = $6041; + break; + }; + return $6039; + })())); + return $6038; + })())); + var $6031 = $6037; + break; + }; + var $6024 = $6031; + break; + }; + var $6022 = $6024; + break; + }; + return $6022; + })())); + return $6021; + })())); + var $6014 = $6020; + break; + }; + var $6007 = $6014; + break; + }; + var $6005 = $6007; + break; + }; + return $6005; + })())); + return $6004; + })())); + var $5997 = $6003; + break; + }; + var $5989 = $5997; + break; + }; + var $5987 = $5989; + break; + }; + return $5987; + })())); + return $5986; + })())); + var $5979 = $5985; + break; + }; + var $5972 = $5979; + break; + }; + var $5970 = $5972; + break; + }; + return $5970; + })())); + return $5969; + })())); + var $5962 = $5968; + break; + }; + var $5954 = $5962; + break; + }; + var $5952 = $5954; + break; + }; + return $5952; + })())); + return $5951; + })())); + var $5944 = $5950; + break; + }; + var $5937 = $5944; + break; + }; + var $5935 = $5937; + break; + }; + return $5935; + })); + return $5934; + }; + const Kind$Parser$get$omit = x0 => Kind$Parser$get$omit$(x0); + + function Kind$Parser$def$(_body$1) { + var $6096 = Kind$Parser$block("def")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $6098 = self.err; + var _reply$8 = Kind$Parser$text$("def ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $6100 = self.err; + var self = $6098; + switch (self._) { + case 'Maybe.some': + var $6102 = self.value; + var $6103 = Parser$Reply$error$(Parser$Error$combine$($6102, $6100)); + var $6101 = $6103; + break; + case 'Maybe.none': + var $6104 = Parser$Reply$error$($6100); + var $6101 = $6104; + break; + }; + var $6099 = $6101; + break; + case 'Parser.Reply.value': + var $6105 = self.pst; + var self = $6105; + switch (self._) { + case 'Parser.State.new': + var $6107 = self.err; + var $6108 = self.nam; + var $6109 = self.ini; + var $6110 = self.idx; + var $6111 = self.str; + var $6112 = ((console.log(("FALTANDO " + $6111)), (_$16 => { + var $6113 = ((console.log(("VALUE " + $6108)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($6098, $6107), $6108, $6109, $6110, $6111); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $6115 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $6117 = self.err; + var self = $6115; + switch (self._) { + case 'Maybe.some': + var $6119 = self.value; + var $6120 = Parser$Reply$error$(Parser$Error$combine$($6119, $6117)); + var $6118 = $6120; + break; + case 'Maybe.none': + var $6121 = Parser$Reply$error$($6117); + var $6118 = $6121; + break; + }; + var $6116 = $6118; + break; + case 'Parser.Reply.value': + var $6122 = self.pst; + var $6123 = self.val; + var self = $6122; + switch (self._) { + case 'Parser.State.new': + var $6125 = self.err; + var $6126 = self.nam; + var $6127 = self.ini; + var $6128 = self.idx; + var $6129 = self.str; + var $6130 = ((console.log(("FALTANDO " + $6129)), (_$32 => { + var $6131 = ((console.log(("VALUE " + $6126)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($6115, $6125), $6126, $6127, $6128, $6129); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $6133 = self.err; + var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $6135 = self.err; + var self = $6133; + switch (self._) { + case 'Maybe.some': + var $6137 = self.value; + var $6138 = Parser$Reply$error$(Parser$Error$combine$($6137, $6135)); + var $6136 = $6138; + break; + case 'Maybe.none': + var $6139 = Parser$Reply$error$($6135); + var $6136 = $6139; + break; + }; + var $6134 = $6136; + break; + case 'Parser.Reply.value': + var $6140 = self.pst; + var self = $6140; + switch (self._) { + case 'Parser.State.new': + var $6142 = self.err; + var $6143 = self.nam; + var $6144 = self.ini; + var $6145 = self.idx; + var $6146 = self.str; + var $6147 = ((console.log(("FALTANDO " + $6146)), (_$48 => { + var $6148 = ((console.log(("VALUE " + $6143)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($6133, $6142), $6143, $6144, $6145, $6146); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $6150 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $6152 = self.err; + var self = $6150; + switch (self._) { + case 'Maybe.some': + var $6154 = self.value; + var $6155 = Parser$Reply$error$(Parser$Error$combine$($6154, $6152)); + var $6153 = $6155; + break; + case 'Maybe.none': + var $6156 = Parser$Reply$error$($6152); + var $6153 = $6156; + break; + }; + var $6151 = $6153; + break; + case 'Parser.Reply.value': + var $6157 = self.pst; + var $6158 = self.val; + var self = $6157; + switch (self._) { + case 'Parser.State.new': + var $6160 = self.err; + var $6161 = self.nam; + var $6162 = self.ini; + var $6163 = self.idx; + var $6164 = self.str; + var $6165 = ((console.log(("FALTANDO " + $6164)), (_$64 => { + var $6166 = ((console.log(("VALUE " + $6161)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($6150, $6160), $6161, $6162, $6163, $6164); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $6168 = self.err; + var _reply$72 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $6170 = self.err; + var self = $6168; + switch (self._) { + case 'Maybe.some': + var $6172 = self.value; + var $6173 = Parser$Reply$error$(Parser$Error$combine$($6172, $6170)); + var $6171 = $6173; + break; + case 'Maybe.none': + var $6174 = Parser$Reply$error$($6170); + var $6171 = $6174; + break; + }; + var $6169 = $6171; + break; + case 'Parser.Reply.value': + var $6175 = self.pst; + var self = $6175; + switch (self._) { + case 'Parser.State.new': + var $6177 = self.err; + var $6178 = self.nam; + var $6179 = self.ini; + var $6180 = self.idx; + var $6181 = self.str; + var $6182 = ((console.log(("FALTANDO " + $6181)), (_$80 => { + var $6183 = ((console.log(("VALUE " + $6178)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($6168, $6177), $6178, $6179, $6180, $6181); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $6185 = self.err; + var _reply$88 = _body$1(Unit$new)(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $6187 = self.err; + var self = $6185; + switch (self._) { + case 'Maybe.some': + var $6189 = self.value; + var $6190 = Parser$Reply$error$(Parser$Error$combine$($6189, $6187)); + var $6188 = $6190; + break; + case 'Maybe.none': + var $6191 = Parser$Reply$error$($6187); + var $6188 = $6191; + break; + }; + var $6186 = $6188; + break; + case 'Parser.Reply.value': + var $6192 = self.pst; + var $6193 = self.val; + var self = $6192; + switch (self._) { + case 'Parser.State.new': + var $6195 = self.err; + var $6196 = self.nam; + var $6197 = self.ini; + var $6198 = self.idx; + var $6199 = self.str; + var $6200 = ((console.log(("FALTANDO " + $6199)), (_$96 => { + var $6201 = ((console.log(("VALUE " + $6196)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($6185, $6195), $6196, $6197, $6198, $6199); + var $6202 = Parser$Reply$value$(_reply$pst$98, Kind$Term$def$($6123, $6158, (_x$99 => { + var $6203 = $6193; + return $6203; + }))); + return $6202; + })())); + return $6201; + })())); + var $6194 = $6200; + break; + }; + var $6186 = $6194; + break; + }; + var $6184 = $6186; + break; + }; + return $6184; + })())); + return $6183; + })())); + var $6176 = $6182; + break; + }; + var $6169 = $6176; + break; + }; + var $6167 = $6169; + break; + }; + return $6167; + })())); + return $6166; + })())); + var $6159 = $6165; + break; + }; + var $6151 = $6159; + break; + }; + var $6149 = $6151; + break; + }; + return $6149; + })())); + return $6148; + })())); + var $6141 = $6147; + break; + }; + var $6134 = $6141; + break; + }; + var $6132 = $6134; + break; + }; + return $6132; + })())); + return $6131; + })())); + var $6124 = $6130; + break; + }; + var $6116 = $6124; + break; + }; + var $6114 = $6116; + break; + }; + return $6114; + })())); + return $6113; + })())); + var $6106 = $6112; + break; + }; + var $6099 = $6106; + break; + }; + var $6097 = $6099; + break; + }; + return $6097; + })); + return $6096; + }; + const Kind$Parser$def = x0 => Kind$Parser$def$(x0); + + function Kind$Term$cse$(_path$1, _expr$2, _name$3, _with$4, _cses$5, _moti$6) { + var $6204 = ({ + _: 'Kind.Term.cse', + 'path': _path$1, + 'expr': _expr$2, + 'name': _name$3, + 'with': _with$4, + 'cses': _cses$5, + 'moti': _moti$6 + }); + return $6204; + }; + const Kind$Term$cse = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$cse$(x0, x1, x2, x3, x4, x5); + + function Kind$Parser$use$abort$(_body$1) { + var $6205 = Kind$Parser$block("use")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $6207 = self.err; + var _reply$8 = Kind$Parser$text$("use ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $6209 = self.err; + var self = $6207; + switch (self._) { + case 'Maybe.some': + var $6211 = self.value; + var $6212 = Parser$Reply$error$(Parser$Error$combine$($6211, $6209)); + var $6210 = $6212; + break; + case 'Maybe.none': + var $6213 = Parser$Reply$error$($6209); + var $6210 = $6213; + break; + }; + var $6208 = $6210; + break; + case 'Parser.Reply.value': + var $6214 = self.pst; + var self = $6214; + switch (self._) { + case 'Parser.State.new': + var $6216 = self.err; + var $6217 = self.nam; + var $6218 = self.ini; + var $6219 = self.idx; + var $6220 = self.str; + var $6221 = ((console.log(("FALTANDO " + $6220)), (_$16 => { + var $6222 = ((console.log(("VALUE " + $6217)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($6207, $6216), $6217, $6218, $6219, $6220); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $6224 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $6226 = self.err; + var self = $6224; + switch (self._) { + case 'Maybe.some': + var $6228 = self.value; + var $6229 = Parser$Reply$error$(Parser$Error$combine$($6228, $6226)); + var $6227 = $6229; + break; + case 'Maybe.none': + var $6230 = Parser$Reply$error$($6226); + var $6227 = $6230; + break; + }; + var $6225 = $6227; + break; + case 'Parser.Reply.value': + var $6231 = self.pst; + var $6232 = self.val; + var self = $6231; + switch (self._) { + case 'Parser.State.new': + var $6234 = self.err; + var $6235 = self.nam; + var $6236 = self.ini; + var $6237 = self.idx; + var $6238 = self.str; + var $6239 = ((console.log(("FALTANDO " + $6238)), (_$32 => { + var $6240 = ((console.log(("VALUE " + $6235)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($6224, $6234), $6235, $6236, $6237, $6238); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $6242 = self.err; + var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $6244 = self.err; + var self = $6242; + switch (self._) { + case 'Maybe.some': + var $6246 = self.value; + var $6247 = Parser$Reply$error$(Parser$Error$combine$($6246, $6244)); + var $6245 = $6247; + break; + case 'Maybe.none': + var $6248 = Parser$Reply$error$($6244); + var $6245 = $6248; + break; + }; + var $6243 = $6245; + break; + case 'Parser.Reply.value': + var $6249 = self.pst; + var self = $6249; + switch (self._) { + case 'Parser.State.new': + var $6251 = self.err; + var $6252 = self.nam; + var $6253 = self.ini; + var $6254 = self.idx; + var $6255 = self.str; + var $6256 = ((console.log(("FALTANDO " + $6255)), (_$48 => { + var $6257 = ((console.log(("VALUE " + $6252)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($6242, $6251), $6252, $6253, $6254, $6255); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $6259 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $6261 = self.err; + var self = $6259; + switch (self._) { + case 'Maybe.some': + var $6263 = self.value; + var $6264 = Parser$Reply$error$(Parser$Error$combine$($6263, $6261)); + var $6262 = $6264; + break; + case 'Maybe.none': + var $6265 = Parser$Reply$error$($6261); + var $6262 = $6265; + break; + }; + var $6260 = $6262; + break; + case 'Parser.Reply.value': + var $6266 = self.pst; + var $6267 = self.val; + var self = $6266; + switch (self._) { + case 'Parser.State.new': + var $6269 = self.err; + var $6270 = self.nam; + var $6271 = self.ini; + var $6272 = self.idx; + var $6273 = self.str; + var $6274 = ((console.log(("FALTANDO " + $6273)), (_$64 => { + var $6275 = ((console.log(("VALUE " + $6270)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($6259, $6269), $6270, $6271, $6272, $6273); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $6277 = self.err; + var _reply$72 = Kind$Parser$text$("abort ", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $6279 = self.err; + var self = $6277; + switch (self._) { + case 'Maybe.some': + var $6281 = self.value; + var $6282 = Parser$Reply$error$(Parser$Error$combine$($6281, $6279)); + var $6280 = $6282; + break; + case 'Maybe.none': + var $6283 = Parser$Reply$error$($6279); + var $6280 = $6283; + break; + }; + var $6278 = $6280; + break; + case 'Parser.Reply.value': + var $6284 = self.pst; + var self = $6284; + switch (self._) { + case 'Parser.State.new': + var $6286 = self.err; + var $6287 = self.nam; + var $6288 = self.ini; + var $6289 = self.idx; + var $6290 = self.str; + var $6291 = ((console.log(("FALTANDO " + $6290)), (_$80 => { + var $6292 = ((console.log(("VALUE " + $6287)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($6277, $6286), $6287, $6288, $6289, $6290); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $6294 = self.err; + var _reply$88 = Kind$Parser$term(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $6296 = self.err; + var self = $6294; + switch (self._) { + case 'Maybe.some': + var $6298 = self.value; + var $6299 = Parser$Reply$error$(Parser$Error$combine$($6298, $6296)); + var $6297 = $6299; + break; + case 'Maybe.none': + var $6300 = Parser$Reply$error$($6296); + var $6297 = $6300; + break; + }; + var $6295 = $6297; + break; + case 'Parser.Reply.value': + var $6301 = self.pst; + var $6302 = self.val; + var self = $6301; + switch (self._) { + case 'Parser.State.new': + var $6304 = self.err; + var $6305 = self.nam; + var $6306 = self.ini; + var $6307 = self.idx; + var $6308 = self.str; + var $6309 = ((console.log(("FALTANDO " + $6308)), (_$96 => { + var $6310 = ((console.log(("VALUE " + $6305)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($6294, $6304), $6305, $6306, $6307, $6308); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $6312 = self.err; + var _reply$104 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $6314 = self.err; + var self = $6312; + switch (self._) { + case 'Maybe.some': + var $6316 = self.value; + var $6317 = Parser$Reply$error$(Parser$Error$combine$($6316, $6314)); + var $6315 = $6317; + break; + case 'Maybe.none': + var $6318 = Parser$Reply$error$($6314); + var $6315 = $6318; + break; + }; + var $6313 = $6315; + break; + case 'Parser.Reply.value': + var $6319 = self.pst; + var self = $6319; + switch (self._) { + case 'Parser.State.new': + var $6321 = self.err; + var $6322 = self.nam; + var $6323 = self.ini; + var $6324 = self.idx; + var $6325 = self.str; + var $6326 = ((console.log(("FALTANDO " + $6325)), (_$112 => { + var $6327 = ((console.log(("VALUE " + $6322)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($6312, $6321), $6322, $6323, $6324, $6325); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $6329 = self.err; + var _reply$120 = _body$1(Unit$new)(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $6331 = self.err; + var self = $6329; + switch (self._) { + case 'Maybe.some': + var $6333 = self.value; + var $6334 = Parser$Reply$error$(Parser$Error$combine$($6333, $6331)); + var $6332 = $6334; + break; + case 'Maybe.none': + var $6335 = Parser$Reply$error$($6331); + var $6332 = $6335; + break; + }; + var $6330 = $6332; + break; + case 'Parser.Reply.value': + var $6336 = self.pst; + var $6337 = self.val; + var self = $6336; + switch (self._) { + case 'Parser.State.new': + var $6339 = self.err; + var $6340 = self.nam; + var $6341 = self.ini; + var $6342 = self.idx; + var $6343 = self.str; + var $6344 = ((console.log(("FALTANDO " + $6343)), (_$128 => { + var $6345 = ((console.log(("VALUE " + $6340)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($6329, $6339), $6340, $6341, $6342, $6343); + var _term$131 = $6267; + var _term$132 = Kind$Term$app$(_term$131, Kind$Term$lam$("", (_$132 => { + var $6347 = Kind$Term$hol$(Bits$e); + return $6347; + }))); + var _term$133 = Kind$Term$app$(_term$132, $6302); + var _term$134 = Kind$Term$app$(_term$133, Kind$Term$lam$($6232, (_$134 => { + var _wyth$135 = List$nil; + var _cses$136 = Kind$Map$set$("_", $6337, Kind$Map$new); + var _moti$137 = Maybe$some$(Kind$Term$hol$(Bits$e)); + var _term$138 = Kind$Term$let$($6232, Kind$Term$ref$($6232), (_$138 => { + var $6349 = Kind$Term$cse$(Bits$e, Kind$Term$ref$($6232), $6232, _wyth$135, _cses$136, _moti$137); + return $6349; + })); + var $6348 = _term$138; + return $6348; + }))); + var $6346 = Parser$Reply$value$(_reply$pst$130, _term$134); + return $6346; + })())); + return $6345; + })())); + var $6338 = $6344; + break; + }; + var $6330 = $6338; + break; + }; + var $6328 = $6330; + break; + }; + return $6328; + })())); + return $6327; + })())); + var $6320 = $6326; + break; + }; + var $6313 = $6320; + break; + }; + var $6311 = $6313; + break; + }; + return $6311; + })())); + return $6310; + })())); + var $6303 = $6309; + break; + }; + var $6295 = $6303; + break; + }; + var $6293 = $6295; + break; + }; + return $6293; + })())); + return $6292; + })())); + var $6285 = $6291; + break; + }; + var $6278 = $6285; + break; + }; + var $6276 = $6278; + break; + }; + return $6276; + })())); + return $6275; + })())); + var $6268 = $6274; + break; + }; + var $6260 = $6268; + break; + }; + var $6258 = $6260; + break; + }; + return $6258; + })())); + return $6257; + })())); + var $6250 = $6256; + break; + }; + var $6243 = $6250; + break; + }; + var $6241 = $6243; + break; + }; + return $6241; + })())); + return $6240; + })())); + var $6233 = $6239; + break; + }; + var $6225 = $6233; + break; + }; + var $6223 = $6225; + break; + }; + return $6223; + })())); + return $6222; + })())); + var $6215 = $6221; + break; + }; + var $6208 = $6215; + break; + }; + var $6206 = $6208; + break; + }; + return $6206; + })); + return $6205; + }; + const Kind$Parser$use$abort = x0 => Kind$Parser$use$abort$(x0); + + function Kind$Parser$use$(_body$1) { + var $6350 = Kind$Parser$block("use")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $6352 = self.err; + var _reply$8 = Kind$Parser$text$("use ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $6354 = self.err; + var self = $6352; + switch (self._) { + case 'Maybe.some': + var $6356 = self.value; + var $6357 = Parser$Reply$error$(Parser$Error$combine$($6356, $6354)); + var $6355 = $6357; + break; + case 'Maybe.none': + var $6358 = Parser$Reply$error$($6354); + var $6355 = $6358; + break; + }; + var $6353 = $6355; + break; + case 'Parser.Reply.value': + var $6359 = self.pst; + var self = $6359; + switch (self._) { + case 'Parser.State.new': + var $6361 = self.err; + var $6362 = self.nam; + var $6363 = self.ini; + var $6364 = self.idx; + var $6365 = self.str; + var $6366 = ((console.log(("FALTANDO " + $6365)), (_$16 => { + var $6367 = ((console.log(("VALUE " + $6362)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($6352, $6361), $6362, $6363, $6364, $6365); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $6369 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $6371 = self.err; + var self = $6369; + switch (self._) { + case 'Maybe.some': + var $6373 = self.value; + var $6374 = Parser$Reply$error$(Parser$Error$combine$($6373, $6371)); + var $6372 = $6374; + break; + case 'Maybe.none': + var $6375 = Parser$Reply$error$($6371); + var $6372 = $6375; + break; + }; + var $6370 = $6372; + break; + case 'Parser.Reply.value': + var $6376 = self.pst; + var $6377 = self.val; + var self = $6376; + switch (self._) { + case 'Parser.State.new': + var $6379 = self.err; + var $6380 = self.nam; + var $6381 = self.ini; + var $6382 = self.idx; + var $6383 = self.str; + var $6384 = ((console.log(("FALTANDO " + $6383)), (_$32 => { + var $6385 = ((console.log(("VALUE " + $6380)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($6369, $6379), $6380, $6381, $6382, $6383); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $6387 = self.err; + var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $6389 = self.err; + var self = $6387; + switch (self._) { + case 'Maybe.some': + var $6391 = self.value; + var $6392 = Parser$Reply$error$(Parser$Error$combine$($6391, $6389)); + var $6390 = $6392; + break; + case 'Maybe.none': + var $6393 = Parser$Reply$error$($6389); + var $6390 = $6393; + break; + }; + var $6388 = $6390; + break; + case 'Parser.Reply.value': + var $6394 = self.pst; + var self = $6394; + switch (self._) { + case 'Parser.State.new': + var $6396 = self.err; + var $6397 = self.nam; + var $6398 = self.ini; + var $6399 = self.idx; + var $6400 = self.str; + var $6401 = ((console.log(("FALTANDO " + $6400)), (_$48 => { + var $6402 = ((console.log(("VALUE " + $6397)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($6387, $6396), $6397, $6398, $6399, $6400); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $6404 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $6406 = self.err; + var self = $6404; + switch (self._) { + case 'Maybe.some': + var $6408 = self.value; + var $6409 = Parser$Reply$error$(Parser$Error$combine$($6408, $6406)); + var $6407 = $6409; + break; + case 'Maybe.none': + var $6410 = Parser$Reply$error$($6406); + var $6407 = $6410; + break; + }; + var $6405 = $6407; + break; + case 'Parser.Reply.value': + var $6411 = self.pst; + var $6412 = self.val; + var self = $6411; + switch (self._) { + case 'Parser.State.new': + var $6414 = self.err; + var $6415 = self.nam; + var $6416 = self.ini; + var $6417 = self.idx; + var $6418 = self.str; + var $6419 = ((console.log(("FALTANDO " + $6418)), (_$64 => { + var $6420 = ((console.log(("VALUE " + $6415)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($6404, $6414), $6415, $6416, $6417, $6418); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $6422 = self.err; + var _reply$72 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $6424 = self.err; + var self = $6422; + switch (self._) { + case 'Maybe.some': + var $6426 = self.value; + var $6427 = Parser$Reply$error$(Parser$Error$combine$($6426, $6424)); + var $6425 = $6427; + break; + case 'Maybe.none': + var $6428 = Parser$Reply$error$($6424); + var $6425 = $6428; + break; + }; + var $6423 = $6425; + break; + case 'Parser.Reply.value': + var $6429 = self.pst; + var self = $6429; + switch (self._) { + case 'Parser.State.new': + var $6431 = self.err; + var $6432 = self.nam; + var $6433 = self.ini; + var $6434 = self.idx; + var $6435 = self.str; + var $6436 = ((console.log(("FALTANDO " + $6435)), (_$80 => { + var $6437 = ((console.log(("VALUE " + $6432)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($6422, $6431), $6432, $6433, $6434, $6435); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $6439 = self.err; + var _reply$88 = _body$1(Unit$new)(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $6441 = self.err; + var self = $6439; + switch (self._) { + case 'Maybe.some': + var $6443 = self.value; + var $6444 = Parser$Reply$error$(Parser$Error$combine$($6443, $6441)); + var $6442 = $6444; + break; + case 'Maybe.none': + var $6445 = Parser$Reply$error$($6441); + var $6442 = $6445; + break; + }; + var $6440 = $6442; + break; + case 'Parser.Reply.value': + var $6446 = self.pst; + var $6447 = self.val; + var self = $6446; + switch (self._) { + case 'Parser.State.new': + var $6449 = self.err; + var $6450 = self.nam; + var $6451 = self.ini; + var $6452 = self.idx; + var $6453 = self.str; + var $6454 = ((console.log(("FALTANDO " + $6453)), (_$96 => { + var $6455 = ((console.log(("VALUE " + $6450)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($6439, $6449), $6450, $6451, $6452, $6453); + var _wyth$99 = List$nil; + var _cses$100 = Kind$Map$set$("_", $6447, Kind$Map$new); + var _moti$101 = Maybe$some$(Kind$Term$hol$(Bits$e)); + var _term$102 = Kind$Term$let$($6377, $6412, (_$102 => { + var $6457 = Kind$Term$cse$(Bits$e, Kind$Term$ref$($6377), $6377, _wyth$99, _cses$100, _moti$101); + return $6457; + })); + var $6456 = Parser$Reply$value$(_reply$pst$98, _term$102); + return $6456; + })())); + return $6455; + })())); + var $6448 = $6454; + break; + }; + var $6440 = $6448; + break; + }; + var $6438 = $6440; + break; + }; + return $6438; + })())); + return $6437; + })())); + var $6430 = $6436; + break; + }; + var $6423 = $6430; + break; + }; + var $6421 = $6423; + break; + }; + return $6421; + })())); + return $6420; + })())); + var $6413 = $6419; + break; + }; + var $6405 = $6413; + break; + }; + var $6403 = $6405; + break; + }; + return $6403; + })())); + return $6402; + })())); + var $6395 = $6401; + break; + }; + var $6388 = $6395; + break; + }; + var $6386 = $6388; + break; + }; + return $6386; + })())); + return $6385; + })())); + var $6378 = $6384; + break; + }; + var $6370 = $6378; + break; + }; + var $6368 = $6370; + break; + }; + return $6368; + })())); + return $6367; + })())); + var $6360 = $6366; + break; + }; + var $6353 = $6360; + break; + }; + var $6351 = $6353; + break; + }; + return $6351; + })); + return $6350; + }; + const Kind$Parser$use = x0 => Kind$Parser$use$(x0); + const Kind$Parser$goal_rewrite = Kind$Parser$block("goal-rewrite")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6459 = self.err; + var _reply$7 = Kind$Parser$text$("rewrite ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6461 = self.err; + var self = $6459; + switch (self._) { + case 'Maybe.some': + var $6463 = self.value; + var $6464 = Parser$Reply$error$(Parser$Error$combine$($6463, $6461)); + var $6462 = $6464; + break; + case 'Maybe.none': + var $6465 = Parser$Reply$error$($6461); + var $6462 = $6465; + break; + }; + var $6460 = $6462; + break; + case 'Parser.Reply.value': + var $6466 = self.pst; + var self = $6466; + switch (self._) { + case 'Parser.State.new': + var $6468 = self.err; + var $6469 = self.nam; + var $6470 = self.ini; + var $6471 = self.idx; + var $6472 = self.str; + var $6473 = ((console.log(("FALTANDO " + $6472)), (_$15 => { + var $6474 = ((console.log(("VALUE " + $6469)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6459, $6468), $6469, $6470, $6471, $6472); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $6476 = self.err; + var _reply$23 = Kind$Parser$name1$(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $6478 = self.err; + var self = $6476; + switch (self._) { + case 'Maybe.some': + var $6480 = self.value; + var $6481 = Parser$Reply$error$(Parser$Error$combine$($6480, $6478)); + var $6479 = $6481; + break; + case 'Maybe.none': + var $6482 = Parser$Reply$error$($6478); + var $6479 = $6482; + break; + }; + var $6477 = $6479; + break; + case 'Parser.Reply.value': + var $6483 = self.pst; + var $6484 = self.val; + var self = $6483; + switch (self._) { + case 'Parser.State.new': + var $6486 = self.err; + var $6487 = self.nam; + var $6488 = self.ini; + var $6489 = self.idx; + var $6490 = self.str; + var $6491 = ((console.log(("FALTANDO " + $6490)), (_$31 => { + var $6492 = ((console.log(("VALUE " + $6487)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6476, $6486), $6487, $6488, $6489, $6490); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $6494 = self.err; + var _reply$39 = Kind$Parser$text$("in", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $6496 = self.err; + var self = $6494; + switch (self._) { + case 'Maybe.some': + var $6498 = self.value; + var $6499 = Parser$Reply$error$(Parser$Error$combine$($6498, $6496)); + var $6497 = $6499; + break; + case 'Maybe.none': + var $6500 = Parser$Reply$error$($6496); + var $6497 = $6500; + break; + }; + var $6495 = $6497; + break; + case 'Parser.Reply.value': + var $6501 = self.pst; + var self = $6501; + switch (self._) { + case 'Parser.State.new': + var $6503 = self.err; + var $6504 = self.nam; + var $6505 = self.ini; + var $6506 = self.idx; + var $6507 = self.str; + var $6508 = ((console.log(("FALTANDO " + $6507)), (_$47 => { + var $6509 = ((console.log(("VALUE " + $6504)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6494, $6503), $6504, $6505, $6506, $6507); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $6511 = self.err; + var _reply$55 = Kind$Parser$term(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $6513 = self.err; + var self = $6511; + switch (self._) { + case 'Maybe.some': + var $6515 = self.value; + var $6516 = Parser$Reply$error$(Parser$Error$combine$($6515, $6513)); + var $6514 = $6516; + break; + case 'Maybe.none': + var $6517 = Parser$Reply$error$($6513); + var $6514 = $6517; + break; + }; + var $6512 = $6514; + break; + case 'Parser.Reply.value': + var $6518 = self.pst; + var $6519 = self.val; + var self = $6518; + switch (self._) { + case 'Parser.State.new': + var $6521 = self.err; + var $6522 = self.nam; + var $6523 = self.ini; + var $6524 = self.idx; + var $6525 = self.str; + var $6526 = ((console.log(("FALTANDO " + $6525)), (_$63 => { + var $6527 = ((console.log(("VALUE " + $6522)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($6511, $6521), $6522, $6523, $6524, $6525); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $6529 = self.err; + var _reply$71 = Kind$Parser$text$("with", _reply$pst$65); + var self = _reply$71; + switch (self._) { + case 'Parser.Reply.error': + var $6531 = self.err; + var self = $6529; + switch (self._) { + case 'Maybe.some': + var $6533 = self.value; + var $6534 = Parser$Reply$error$(Parser$Error$combine$($6533, $6531)); + var $6532 = $6534; + break; + case 'Maybe.none': + var $6535 = Parser$Reply$error$($6531); + var $6532 = $6535; + break; + }; + var $6530 = $6532; + break; + case 'Parser.Reply.value': + var $6536 = self.pst; + var self = $6536; + switch (self._) { + case 'Parser.State.new': + var $6538 = self.err; + var $6539 = self.nam; + var $6540 = self.ini; + var $6541 = self.idx; + var $6542 = self.str; + var $6543 = ((console.log(("FALTANDO " + $6542)), (_$79 => { + var $6544 = ((console.log(("VALUE " + $6539)), (_$80 => { + var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($6529, $6538), $6539, $6540, $6541, $6542); + var self = _reply$pst$81; + switch (self._) { + case 'Parser.State.new': + var $6546 = self.err; + var _reply$87 = Kind$Parser$term(_reply$pst$81); + var self = _reply$87; + switch (self._) { + case 'Parser.Reply.error': + var $6548 = self.err; + var self = $6546; + switch (self._) { + case 'Maybe.some': + var $6550 = self.value; + var $6551 = Parser$Reply$error$(Parser$Error$combine$($6550, $6548)); + var $6549 = $6551; + break; + case 'Maybe.none': + var $6552 = Parser$Reply$error$($6548); + var $6549 = $6552; + break; + }; + var $6547 = $6549; + break; + case 'Parser.Reply.value': + var $6553 = self.pst; + var $6554 = self.val; + var self = $6553; + switch (self._) { + case 'Parser.State.new': + var $6556 = self.err; + var $6557 = self.nam; + var $6558 = self.ini; + var $6559 = self.idx; + var $6560 = self.str; + var $6561 = ((console.log(("FALTANDO " + $6560)), (_$95 => { + var $6562 = ((console.log(("VALUE " + $6557)), (_$96 => { + var _reply$pst$97 = Parser$State$new$(Parser$Error$maybe_combine$($6546, $6556), $6557, $6558, $6559, $6560); + var self = _reply$pst$97; + switch (self._) { + case 'Parser.State.new': + var $6564 = self.err; + var _reply$103 = Kind$Parser$term(_reply$pst$97); + var self = _reply$103; + switch (self._) { + case 'Parser.Reply.error': + var $6566 = self.err; + var self = $6564; + switch (self._) { + case 'Maybe.some': + var $6568 = self.value; + var $6569 = Parser$Reply$error$(Parser$Error$combine$($6568, $6566)); + var $6567 = $6569; + break; + case 'Maybe.none': + var $6570 = Parser$Reply$error$($6566); + var $6567 = $6570; + break; + }; + var $6565 = $6567; + break; + case 'Parser.Reply.value': + var $6571 = self.pst; + var $6572 = self.val; + var self = $6571; + switch (self._) { + case 'Parser.State.new': + var $6574 = self.err; + var $6575 = self.nam; + var $6576 = self.ini; + var $6577 = self.idx; + var $6578 = self.str; + var $6579 = ((console.log(("FALTANDO " + $6578)), (_$111 => { + var $6580 = ((console.log(("VALUE " + $6575)), (_$112 => { + var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($6564, $6574), $6575, $6576, $6577, $6578); + var _moti$114 = Kind$Term$lam$($6484, (_s$114 => { + var $6582 = Kind$Term$lam$("", (_x$115 => { + var $6583 = $6519; + return $6583; + })); + return $6582; + })); + var _term$115 = Kind$Term$ref$("Equal.mirror"); + var _term$116 = Kind$Term$app$(_term$115, Kind$Term$hol$(Bits$e)); + var _term$117 = Kind$Term$app$(_term$116, Kind$Term$hol$(Bits$e)); + var _term$118 = Kind$Term$app$(_term$117, Kind$Term$hol$(Bits$e)); + var _term$119 = Kind$Term$app$(_term$118, $6554); + var _term$120 = Kind$Term$app$(_term$119, _moti$114); + var _term$121 = Kind$Term$app$(_term$120, $6572); + var $6581 = Parser$Reply$value$(_reply$pst$113, _term$121); + return $6581; + })())); + return $6580; + })())); + var $6573 = $6579; + break; + }; + var $6565 = $6573; + break; + }; + var $6563 = $6565; + break; + }; + return $6563; + })())); + return $6562; + })())); + var $6555 = $6561; + break; + }; + var $6547 = $6555; + break; + }; + var $6545 = $6547; + break; + }; + return $6545; + })())); + return $6544; + })())); + var $6537 = $6543; + break; + }; + var $6530 = $6537; + break; + }; + var $6528 = $6530; + break; + }; + return $6528; + })())); + return $6527; + })())); + var $6520 = $6526; + break; + }; + var $6512 = $6520; + break; + }; + var $6510 = $6512; + break; + }; + return $6510; + })())); + return $6509; + })())); + var $6502 = $6508; + break; + }; + var $6495 = $6502; + break; + }; + var $6493 = $6495; + break; + }; + return $6493; + })())); + return $6492; + })())); + var $6485 = $6491; + break; + }; + var $6477 = $6485; + break; + }; + var $6475 = $6477; + break; + }; + return $6475; + })())); + return $6474; + })())); + var $6467 = $6473; + break; + }; + var $6460 = $6467; + break; + }; + var $6458 = $6460; + break; + }; + return $6458; + })); + const Kind$Parser$if = Kind$Parser$block("if")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6585 = self.err; + var _reply$7 = Kind$Parser$text$("if ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6587 = self.err; + var self = $6585; + switch (self._) { + case 'Maybe.some': + var $6589 = self.value; + var $6590 = Parser$Reply$error$(Parser$Error$combine$($6589, $6587)); + var $6588 = $6590; + break; + case 'Maybe.none': + var $6591 = Parser$Reply$error$($6587); + var $6588 = $6591; + break; + }; + var $6586 = $6588; + break; + case 'Parser.Reply.value': + var $6592 = self.pst; + var self = $6592; + switch (self._) { + case 'Parser.State.new': + var $6594 = self.err; + var $6595 = self.nam; + var $6596 = self.ini; + var $6597 = self.idx; + var $6598 = self.str; + var $6599 = ((console.log(("FALTANDO " + $6598)), (_$15 => { + var $6600 = ((console.log(("VALUE " + $6595)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6585, $6594), $6595, $6596, $6597, $6598); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $6602 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $6604 = self.err; + var self = $6602; + switch (self._) { + case 'Maybe.some': + var $6606 = self.value; + var $6607 = Parser$Reply$error$(Parser$Error$combine$($6606, $6604)); + var $6605 = $6607; + break; + case 'Maybe.none': + var $6608 = Parser$Reply$error$($6604); + var $6605 = $6608; + break; + }; + var $6603 = $6605; + break; + case 'Parser.Reply.value': + var $6609 = self.pst; + var $6610 = self.val; + var self = $6609; + switch (self._) { + case 'Parser.State.new': + var $6612 = self.err; + var $6613 = self.nam; + var $6614 = self.ini; + var $6615 = self.idx; + var $6616 = self.str; + var $6617 = ((console.log(("FALTANDO " + $6616)), (_$31 => { + var $6618 = ((console.log(("VALUE " + $6613)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6602, $6612), $6613, $6614, $6615, $6616); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $6620 = self.err; + var _reply$39 = Kind$Parser$text$("then", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $6622 = self.err; + var self = $6620; + switch (self._) { + case 'Maybe.some': + var $6624 = self.value; + var $6625 = Parser$Reply$error$(Parser$Error$combine$($6624, $6622)); + var $6623 = $6625; + break; + case 'Maybe.none': + var $6626 = Parser$Reply$error$($6622); + var $6623 = $6626; + break; + }; + var $6621 = $6623; + break; + case 'Parser.Reply.value': + var $6627 = self.pst; + var self = $6627; + switch (self._) { + case 'Parser.State.new': + var $6629 = self.err; + var $6630 = self.nam; + var $6631 = self.ini; + var $6632 = self.idx; + var $6633 = self.str; + var $6634 = ((console.log(("FALTANDO " + $6633)), (_$47 => { + var $6635 = ((console.log(("VALUE " + $6630)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6620, $6629), $6630, $6631, $6632, $6633); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $6637 = self.err; + var _reply$55 = Kind$Parser$term(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $6639 = self.err; + var self = $6637; + switch (self._) { + case 'Maybe.some': + var $6641 = self.value; + var $6642 = Parser$Reply$error$(Parser$Error$combine$($6641, $6639)); + var $6640 = $6642; + break; + case 'Maybe.none': + var $6643 = Parser$Reply$error$($6639); + var $6640 = $6643; + break; + }; + var $6638 = $6640; + break; + case 'Parser.Reply.value': + var $6644 = self.pst; + var $6645 = self.val; + var self = $6644; + switch (self._) { + case 'Parser.State.new': + var $6647 = self.err; + var $6648 = self.nam; + var $6649 = self.ini; + var $6650 = self.idx; + var $6651 = self.str; + var $6652 = ((console.log(("FALTANDO " + $6651)), (_$63 => { + var $6653 = ((console.log(("VALUE " + $6648)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($6637, $6647), $6648, $6649, $6650, $6651); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $6655 = self.err; + var _reply$71 = Kind$Parser$text$("else", _reply$pst$65); + var self = _reply$71; + switch (self._) { + case 'Parser.Reply.error': + var $6657 = self.err; + var self = $6655; + switch (self._) { + case 'Maybe.some': + var $6659 = self.value; + var $6660 = Parser$Reply$error$(Parser$Error$combine$($6659, $6657)); + var $6658 = $6660; + break; + case 'Maybe.none': + var $6661 = Parser$Reply$error$($6657); + var $6658 = $6661; + break; + }; + var $6656 = $6658; + break; + case 'Parser.Reply.value': + var $6662 = self.pst; + var self = $6662; + switch (self._) { + case 'Parser.State.new': + var $6664 = self.err; + var $6665 = self.nam; + var $6666 = self.ini; + var $6667 = self.idx; + var $6668 = self.str; + var $6669 = ((console.log(("FALTANDO " + $6668)), (_$79 => { + var $6670 = ((console.log(("VALUE " + $6665)), (_$80 => { + var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($6655, $6664), $6665, $6666, $6667, $6668); + var self = _reply$pst$81; + switch (self._) { + case 'Parser.State.new': + var $6672 = self.err; + var _reply$87 = Kind$Parser$term(_reply$pst$81); + var self = _reply$87; + switch (self._) { + case 'Parser.Reply.error': + var $6674 = self.err; + var self = $6672; + switch (self._) { + case 'Maybe.some': + var $6676 = self.value; + var $6677 = Parser$Reply$error$(Parser$Error$combine$($6676, $6674)); + var $6675 = $6677; + break; + case 'Maybe.none': + var $6678 = Parser$Reply$error$($6674); + var $6675 = $6678; + break; + }; + var $6673 = $6675; + break; + case 'Parser.Reply.value': + var $6679 = self.pst; + var $6680 = self.val; + var self = $6679; + switch (self._) { + case 'Parser.State.new': + var $6682 = self.err; + var $6683 = self.nam; + var $6684 = self.ini; + var $6685 = self.idx; + var $6686 = self.str; + var $6687 = ((console.log(("FALTANDO " + $6686)), (_$95 => { + var $6688 = ((console.log(("VALUE " + $6683)), (_$96 => { + var _reply$pst$97 = Parser$State$new$(Parser$Error$maybe_combine$($6672, $6682), $6683, $6684, $6685, $6686); + var _term$98 = $6610; + var _term$99 = Kind$Term$app$(_term$98, Kind$Term$lam$("", (_x$99 => { + var $6690 = Kind$Term$hol$(Bits$e); + return $6690; + }))); + var _term$100 = Kind$Term$app$(_term$99, $6645); + var _term$101 = Kind$Term$app$(_term$100, $6680); + var $6689 = Parser$Reply$value$(_reply$pst$97, _term$101); + return $6689; + })())); + return $6688; + })())); + var $6681 = $6687; + break; + }; + var $6673 = $6681; + break; + }; + var $6671 = $6673; + break; + }; + return $6671; + })())); + return $6670; + })())); + var $6663 = $6669; + break; + }; + var $6656 = $6663; + break; + }; + var $6654 = $6656; + break; + }; + return $6654; + })())); + return $6653; + })())); + var $6646 = $6652; + break; + }; + var $6638 = $6646; + break; + }; + var $6636 = $6638; + break; + }; + return $6636; + })())); + return $6635; + })())); + var $6628 = $6634; + break; + }; + var $6621 = $6628; + break; + }; + var $6619 = $6621; + break; + }; + return $6619; + })())); + return $6618; + })())); + var $6611 = $6617; + break; + }; + var $6603 = $6611; + break; + }; + var $6601 = $6603; + break; + }; + return $6601; + })())); + return $6600; + })())); + var $6593 = $6599; + break; + }; + var $6586 = $6593; + break; + }; + var $6584 = $6586; + break; + }; + return $6584; + })); + const Kind$Code$escapes = List$cons$(Pair$new$("\\b", 8), List$cons$(Pair$new$("\\f", 12), List$cons$(Pair$new$("\\n", 10), List$cons$(Pair$new$("\\r", 13), List$cons$(Pair$new$("\\t", 9), List$cons$(Pair$new$("\\v", 11), List$cons$(Pair$new$(String$cons$(Kind$Code$backslash, String$cons$(Kind$Code$backslash, String$nil)), Kind$Code$backslash), List$cons$(Pair$new$("\\\"", 34), List$cons$(Pair$new$("\\0", 0), List$cons$(Pair$new$("\\\'", 39), List$nil)))))))))); + const Kind$Parser$char$single = Parser$choice(List$cons$(Parser$choice(List$mapped$(Kind$Code$escapes, (_esc$1 => { + var self = _esc$1; + switch (self._) { + case 'Pair.new': + var $6692 = self.fst; + var $6693 = self.snd; + var $6694 = (_pst$4 => { + var self = _pst$4; + switch (self._) { + case 'Parser.State.new': + var $6696 = self.err; + var _reply$10 = Parser$text$($6692, _pst$4); + var self = _reply$10; + switch (self._) { + case 'Parser.Reply.error': + var $6698 = self.err; + var self = $6696; + switch (self._) { + case 'Maybe.some': + var $6700 = self.value; + var $6701 = Parser$Reply$error$(Parser$Error$combine$($6700, $6698)); + var $6699 = $6701; + break; + case 'Maybe.none': + var $6702 = Parser$Reply$error$($6698); + var $6699 = $6702; + break; + }; + var $6697 = $6699; + break; + case 'Parser.Reply.value': + var $6703 = self.pst; + var self = $6703; + switch (self._) { + case 'Parser.State.new': + var $6705 = self.err; + var $6706 = self.nam; + var $6707 = self.ini; + var $6708 = self.idx; + var $6709 = self.str; + var $6710 = ((console.log(("FALTANDO " + $6709)), (_$18 => { + var $6711 = ((console.log(("VALUE " + $6706)), (_$19 => { + var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($6696, $6705), $6706, $6707, $6708, $6709); + var $6712 = Parser$Reply$value$(_reply$pst$20, $6693); + return $6712; + })())); + return $6711; + })())); + var $6704 = $6710; + break; + }; + var $6697 = $6704; + break; + }; + var $6695 = $6697; + break; + }; + return $6695; + }); + var $6691 = $6694; + break; + }; + return $6691; + }))), List$cons$(Parser$one, List$nil))); + const Kind$Parser$char = Kind$Parser$block("char")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6714 = self.err; + var _reply$7 = Kind$Parser$text$("\'", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6716 = self.err; + var self = $6714; + switch (self._) { + case 'Maybe.some': + var $6718 = self.value; + var $6719 = Parser$Reply$error$(Parser$Error$combine$($6718, $6716)); + var $6717 = $6719; + break; + case 'Maybe.none': + var $6720 = Parser$Reply$error$($6716); + var $6717 = $6720; + break; + }; + var $6715 = $6717; + break; + case 'Parser.Reply.value': + var $6721 = self.pst; + var self = $6721; + switch (self._) { + case 'Parser.State.new': + var $6723 = self.err; + var $6724 = self.nam; + var $6725 = self.ini; + var $6726 = self.idx; + var $6727 = self.str; + var $6728 = ((console.log(("FALTANDO " + $6727)), (_$15 => { + var $6729 = ((console.log(("VALUE " + $6724)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6714, $6723), $6724, $6725, $6726, $6727); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $6731 = self.err; + var _reply$23 = Kind$Parser$char$single(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $6733 = self.err; + var self = $6731; + switch (self._) { + case 'Maybe.some': + var $6735 = self.value; + var $6736 = Parser$Reply$error$(Parser$Error$combine$($6735, $6733)); + var $6734 = $6736; + break; + case 'Maybe.none': + var $6737 = Parser$Reply$error$($6733); + var $6734 = $6737; + break; + }; + var $6732 = $6734; + break; + case 'Parser.Reply.value': + var $6738 = self.pst; + var $6739 = self.val; + var self = $6738; + switch (self._) { + case 'Parser.State.new': + var $6741 = self.err; + var $6742 = self.nam; + var $6743 = self.ini; + var $6744 = self.idx; + var $6745 = self.str; + var $6746 = ((console.log(("FALTANDO " + $6745)), (_$31 => { + var $6747 = ((console.log(("VALUE " + $6742)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6731, $6741), $6742, $6743, $6744, $6745); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $6749 = self.err; + var _reply$39 = Kind$Parser$text$("\'", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $6751 = self.err; + var self = $6749; + switch (self._) { + case 'Maybe.some': + var $6753 = self.value; + var $6754 = Parser$Reply$error$(Parser$Error$combine$($6753, $6751)); + var $6752 = $6754; + break; + case 'Maybe.none': + var $6755 = Parser$Reply$error$($6751); + var $6752 = $6755; + break; + }; + var $6750 = $6752; + break; + case 'Parser.Reply.value': + var $6756 = self.pst; + var self = $6756; + switch (self._) { + case 'Parser.State.new': + var $6758 = self.err; + var $6759 = self.nam; + var $6760 = self.ini; + var $6761 = self.idx; + var $6762 = self.str; + var $6763 = ((console.log(("FALTANDO " + $6762)), (_$47 => { + var $6764 = ((console.log(("VALUE " + $6759)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6749, $6758), $6759, $6760, $6761, $6762); + var $6765 = Parser$Reply$value$(_reply$pst$49, Kind$Term$chr$($6739)); + return $6765; + })())); + return $6764; + })())); + var $6757 = $6763; + break; + }; + var $6750 = $6757; + break; + }; + var $6748 = $6750; + break; + }; + return $6748; + })())); + return $6747; + })())); + var $6740 = $6746; + break; + }; + var $6732 = $6740; + break; + }; + var $6730 = $6732; + break; + }; + return $6730; + })())); + return $6729; + })())); + var $6722 = $6728; + break; + }; + var $6715 = $6722; + break; + }; + var $6713 = $6715; + break; + }; + return $6713; + })); + + function Kind$Parser$string$go$(_delim$1, _str$2, _pst$3) { + var Kind$Parser$string$go$ = (_delim$1, _str$2, _pst$3) => ({ + ctr: 'TCO', + arg: [_delim$1, _str$2, _pst$3] + }); + var Kind$Parser$string$go = _delim$1 => _str$2 => _pst$3 => Kind$Parser$string$go$(_delim$1, _str$2, _pst$3); + var arg = [_delim$1, _str$2, _pst$3]; + while (true) { + let [_delim$1, _str$2, _pst$3] = arg; + var R = (() => { + var self = _pst$3; + switch (self._) { + case 'Parser.State.new': + var $6766 = self.err; + var $6767 = self.nam; + var $6768 = self.ini; + var $6769 = self.idx; + var $6770 = self.str; + var self = $6770; + if (self.length === 0) { + var $6772 = Parser$Reply$fail$($6767, $6768, $6769, "Non-terminating string."); + var $6771 = $6772; + } else { + var $6773 = self.charCodeAt(0); + var $6774 = self.slice(1); + var self = ($6773 === _delim$1); + if (self) { + var _pst$11 = Parser$State$new$($6766, $6767, $6768, Nat$succ$($6769), $6774); + var $6776 = Parser$Reply$value$(_pst$11, String$reverse$(_str$2)); + var $6775 = $6776; + } else { + var self = Kind$Parser$char$single(_pst$3); + switch (self._) { + case 'Parser.Reply.error': + var $6778 = self.err; + var $6779 = Parser$Reply$error$($6778); + var $6777 = $6779; + break; + case 'Parser.Reply.value': + var $6780 = self.pst; + var $6781 = self.val; + var $6782 = Kind$Parser$string$go$(_delim$1, String$cons$($6781, _str$2), $6780); + var $6777 = $6782; + break; + }; + var $6775 = $6777; + }; + var $6771 = $6775; + }; + return $6771; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const Kind$Parser$string$go = x0 => x1 => x2 => Kind$Parser$string$go$(x0, x1, x2); + + function Kind$Parser$string$(_delim$1) { + var $6783 = Kind$Parser$block("string")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $6785 = self.err; + var _reply$8 = Kind$Parser$text$(String$cons$(_delim$1, String$nil), _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $6787 = self.err; + var self = $6785; + switch (self._) { + case 'Maybe.some': + var $6789 = self.value; + var $6790 = Parser$Reply$error$(Parser$Error$combine$($6789, $6787)); + var $6788 = $6790; + break; + case 'Maybe.none': + var $6791 = Parser$Reply$error$($6787); + var $6788 = $6791; + break; + }; + var $6786 = $6788; + break; + case 'Parser.Reply.value': + var $6792 = self.pst; + var self = $6792; + switch (self._) { + case 'Parser.State.new': + var $6794 = self.err; + var $6795 = self.nam; + var $6796 = self.ini; + var $6797 = self.idx; + var $6798 = self.str; + var $6799 = ((console.log(("FALTANDO " + $6798)), (_$16 => { + var $6800 = ((console.log(("VALUE " + $6795)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($6785, $6794), $6795, $6796, $6797, $6798); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $6802 = self.err; + var _reply$24 = Kind$Parser$string$go$(_delim$1, "", _reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $6804 = self.err; + var self = $6802; + switch (self._) { + case 'Maybe.some': + var $6806 = self.value; + var $6807 = Parser$Reply$error$(Parser$Error$combine$($6806, $6804)); + var $6805 = $6807; + break; + case 'Maybe.none': + var $6808 = Parser$Reply$error$($6804); + var $6805 = $6808; + break; + }; + var $6803 = $6805; + break; + case 'Parser.Reply.value': + var $6809 = self.pst; + var $6810 = self.val; + var self = $6809; + switch (self._) { + case 'Parser.State.new': + var $6812 = self.err; + var $6813 = self.nam; + var $6814 = self.ini; + var $6815 = self.idx; + var $6816 = self.str; + var $6817 = ((console.log(("FALTANDO " + $6816)), (_$32 => { + var $6818 = ((console.log(("VALUE " + $6813)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($6802, $6812), $6813, $6814, $6815, $6816); + var $6819 = Parser$Reply$value$(_reply$pst$34, Kind$Term$str$($6810)); + return $6819; + })())); + return $6818; + })())); + var $6811 = $6817; + break; + }; + var $6803 = $6811; + break; + }; + var $6801 = $6803; + break; + }; + return $6801; + })())); + return $6800; + })())); + var $6793 = $6799; + break; + }; + var $6786 = $6793; + break; + }; + var $6784 = $6786; + break; + }; + return $6784; + })); + return $6783; + }; + const Kind$Parser$string = x0 => Kind$Parser$string$(x0); + + function Kind$Term$new$(_args$1) { + var $6820 = ({ + _: 'Kind.Term.new', + 'args': _args$1 + }); + return $6820; + }; + const Kind$Term$new = x0 => Kind$Term$new$(x0); + const Kind$Parser$new = Kind$Parser$block("new-struct")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6822 = self.err; + var _reply$7 = Kind$Parser$items1$("{", Kind$Parser$term, "}")(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6824 = self.err; + var self = $6822; + switch (self._) { + case 'Maybe.some': + var $6826 = self.value; + var $6827 = Parser$Reply$error$(Parser$Error$combine$($6826, $6824)); + var $6825 = $6827; + break; + case 'Maybe.none': + var $6828 = Parser$Reply$error$($6824); + var $6825 = $6828; + break; + }; + var $6823 = $6825; + break; + case 'Parser.Reply.value': + var $6829 = self.pst; + var $6830 = self.val; + var self = $6829; + switch (self._) { + case 'Parser.State.new': + var $6832 = self.err; + var $6833 = self.nam; + var $6834 = self.ini; + var $6835 = self.idx; + var $6836 = self.str; + var $6837 = ((console.log(("FALTANDO " + $6836)), (_$15 => { + var $6838 = ((console.log(("VALUE " + $6833)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6822, $6832), $6833, $6834, $6835, $6836); + var $6839 = Parser$Reply$value$(_reply$pst$17, Kind$Term$new$($6830)); + return $6839; + })())); + return $6838; + })())); + var $6831 = $6837; + break; + }; + var $6823 = $6831; + break; + }; + var $6821 = $6823; + break; + }; + return $6821; + })); + const Kind$Parser$sigma$type = Kind$Parser$block("sigma")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6841 = self.err; + var _reply$7 = Kind$Parser$text$("[", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6843 = self.err; + var self = $6841; + switch (self._) { + case 'Maybe.some': + var $6845 = self.value; + var $6846 = Parser$Reply$error$(Parser$Error$combine$($6845, $6843)); + var $6844 = $6846; + break; + case 'Maybe.none': + var $6847 = Parser$Reply$error$($6843); + var $6844 = $6847; + break; + }; + var $6842 = $6844; + break; + case 'Parser.Reply.value': + var $6848 = self.pst; + var self = $6848; + switch (self._) { + case 'Parser.State.new': + var $6850 = self.err; + var $6851 = self.nam; + var $6852 = self.ini; + var $6853 = self.idx; + var $6854 = self.str; + var $6855 = ((console.log(("FALTANDO " + $6854)), (_$15 => { + var $6856 = ((console.log(("VALUE " + $6851)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6841, $6850), $6851, $6852, $6853, $6854); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $6858 = self.err; + var _reply$23 = Kind$Parser$name1$(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $6860 = self.err; + var self = $6858; + switch (self._) { + case 'Maybe.some': + var $6862 = self.value; + var $6863 = Parser$Reply$error$(Parser$Error$combine$($6862, $6860)); + var $6861 = $6863; + break; + case 'Maybe.none': + var $6864 = Parser$Reply$error$($6860); + var $6861 = $6864; + break; + }; + var $6859 = $6861; + break; + case 'Parser.Reply.value': + var $6865 = self.pst; + var $6866 = self.val; + var self = $6865; + switch (self._) { + case 'Parser.State.new': + var $6868 = self.err; + var $6869 = self.nam; + var $6870 = self.ini; + var $6871 = self.idx; + var $6872 = self.str; + var $6873 = ((console.log(("FALTANDO " + $6872)), (_$31 => { + var $6874 = ((console.log(("VALUE " + $6869)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6858, $6868), $6869, $6870, $6871, $6872); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $6876 = self.err; + var _reply$39 = Kind$Parser$text$(":", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $6878 = self.err; + var self = $6876; + switch (self._) { + case 'Maybe.some': + var $6880 = self.value; + var $6881 = Parser$Reply$error$(Parser$Error$combine$($6880, $6878)); + var $6879 = $6881; + break; + case 'Maybe.none': + var $6882 = Parser$Reply$error$($6878); + var $6879 = $6882; + break; + }; + var $6877 = $6879; + break; + case 'Parser.Reply.value': + var $6883 = self.pst; + var self = $6883; + switch (self._) { + case 'Parser.State.new': + var $6885 = self.err; + var $6886 = self.nam; + var $6887 = self.ini; + var $6888 = self.idx; + var $6889 = self.str; + var $6890 = ((console.log(("FALTANDO " + $6889)), (_$47 => { + var $6891 = ((console.log(("VALUE " + $6886)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6876, $6885), $6886, $6887, $6888, $6889); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $6893 = self.err; + var _reply$55 = Kind$Parser$term(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $6895 = self.err; + var self = $6893; + switch (self._) { + case 'Maybe.some': + var $6897 = self.value; + var $6898 = Parser$Reply$error$(Parser$Error$combine$($6897, $6895)); + var $6896 = $6898; + break; + case 'Maybe.none': + var $6899 = Parser$Reply$error$($6895); + var $6896 = $6899; + break; + }; + var $6894 = $6896; + break; + case 'Parser.Reply.value': + var $6900 = self.pst; + var $6901 = self.val; + var self = $6900; + switch (self._) { + case 'Parser.State.new': + var $6903 = self.err; + var $6904 = self.nam; + var $6905 = self.ini; + var $6906 = self.idx; + var $6907 = self.str; + var $6908 = ((console.log(("FALTANDO " + $6907)), (_$63 => { + var $6909 = ((console.log(("VALUE " + $6904)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($6893, $6903), $6904, $6905, $6906, $6907); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $6911 = self.err; + var _reply$71 = Kind$Parser$text$("]", _reply$pst$65); + var self = _reply$71; + switch (self._) { + case 'Parser.Reply.error': + var $6913 = self.err; + var self = $6911; + switch (self._) { + case 'Maybe.some': + var $6915 = self.value; + var $6916 = Parser$Reply$error$(Parser$Error$combine$($6915, $6913)); + var $6914 = $6916; + break; + case 'Maybe.none': + var $6917 = Parser$Reply$error$($6913); + var $6914 = $6917; + break; + }; + var $6912 = $6914; + break; + case 'Parser.Reply.value': + var $6918 = self.pst; + var self = $6918; + switch (self._) { + case 'Parser.State.new': + var $6920 = self.err; + var $6921 = self.nam; + var $6922 = self.ini; + var $6923 = self.idx; + var $6924 = self.str; + var $6925 = ((console.log(("FALTANDO " + $6924)), (_$79 => { + var $6926 = ((console.log(("VALUE " + $6921)), (_$80 => { + var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($6911, $6920), $6921, $6922, $6923, $6924); + var self = _reply$pst$81; + switch (self._) { + case 'Parser.State.new': + var $6928 = self.err; + var _reply$87 = Kind$Parser$term(_reply$pst$81); + var self = _reply$87; + switch (self._) { + case 'Parser.Reply.error': + var $6930 = self.err; + var self = $6928; + switch (self._) { + case 'Maybe.some': + var $6932 = self.value; + var $6933 = Parser$Reply$error$(Parser$Error$combine$($6932, $6930)); + var $6931 = $6933; + break; + case 'Maybe.none': + var $6934 = Parser$Reply$error$($6930); + var $6931 = $6934; + break; + }; + var $6929 = $6931; + break; + case 'Parser.Reply.value': + var $6935 = self.pst; + var $6936 = self.val; + var self = $6935; + switch (self._) { + case 'Parser.State.new': + var $6938 = self.err; + var $6939 = self.nam; + var $6940 = self.ini; + var $6941 = self.idx; + var $6942 = self.str; + var $6943 = ((console.log(("FALTANDO " + $6942)), (_$95 => { + var $6944 = ((console.log(("VALUE " + $6939)), (_$96 => { + var _reply$pst$97 = Parser$State$new$(Parser$Error$maybe_combine$($6928, $6938), $6939, $6940, $6941, $6942); + var _term$98 = Kind$Term$ref$("Sigma"); + var _term$99 = Kind$Term$app$(_term$98, $6901); + var _term$100 = Kind$Term$app$(_term$99, Kind$Term$lam$($6866, (_x$100 => { + var $6946 = $6936; + return $6946; + }))); + var $6945 = Parser$Reply$value$(_reply$pst$97, _term$100); + return $6945; + })())); + return $6944; + })())); + var $6937 = $6943; + break; + }; + var $6929 = $6937; + break; + }; + var $6927 = $6929; + break; + }; + return $6927; + })())); + return $6926; + })())); + var $6919 = $6925; + break; + }; + var $6912 = $6919; + break; + }; + var $6910 = $6912; + break; + }; + return $6910; + })())); + return $6909; + })())); + var $6902 = $6908; + break; + }; + var $6894 = $6902; + break; + }; + var $6892 = $6894; + break; + }; + return $6892; + })())); + return $6891; + })())); + var $6884 = $6890; + break; + }; + var $6877 = $6884; + break; + }; + var $6875 = $6877; + break; + }; + return $6875; + })())); + return $6874; + })())); + var $6867 = $6873; + break; + }; + var $6859 = $6867; + break; + }; + var $6857 = $6859; + break; + }; + return $6857; + })())); + return $6856; + })())); + var $6849 = $6855; + break; + }; + var $6842 = $6849; + break; + }; + var $6840 = $6842; + break; + }; + return $6840; + })); + const Kind$Parser$some = Kind$Parser$block("some")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6948 = self.err; + var _reply$7 = Kind$Parser$text$("some(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6950 = self.err; + var self = $6948; + switch (self._) { + case 'Maybe.some': + var $6952 = self.value; + var $6953 = Parser$Reply$error$(Parser$Error$combine$($6952, $6950)); + var $6951 = $6953; + break; + case 'Maybe.none': + var $6954 = Parser$Reply$error$($6950); + var $6951 = $6954; + break; + }; + var $6949 = $6951; + break; + case 'Parser.Reply.value': + var $6955 = self.pst; + var self = $6955; + switch (self._) { + case 'Parser.State.new': + var $6957 = self.err; + var $6958 = self.nam; + var $6959 = self.ini; + var $6960 = self.idx; + var $6961 = self.str; + var $6962 = ((console.log(("FALTANDO " + $6961)), (_$15 => { + var $6963 = ((console.log(("VALUE " + $6958)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6948, $6957), $6958, $6959, $6960, $6961); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $6965 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $6967 = self.err; + var self = $6965; + switch (self._) { + case 'Maybe.some': + var $6969 = self.value; + var $6970 = Parser$Reply$error$(Parser$Error$combine$($6969, $6967)); + var $6968 = $6970; + break; + case 'Maybe.none': + var $6971 = Parser$Reply$error$($6967); + var $6968 = $6971; + break; + }; + var $6966 = $6968; + break; + case 'Parser.Reply.value': + var $6972 = self.pst; + var $6973 = self.val; + var self = $6972; + switch (self._) { + case 'Parser.State.new': + var $6975 = self.err; + var $6976 = self.nam; + var $6977 = self.ini; + var $6978 = self.idx; + var $6979 = self.str; + var $6980 = ((console.log(("FALTANDO " + $6979)), (_$31 => { + var $6981 = ((console.log(("VALUE " + $6976)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6965, $6975), $6976, $6977, $6978, $6979); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $6983 = self.err; + var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $6985 = self.err; + var self = $6983; + switch (self._) { + case 'Maybe.some': + var $6987 = self.value; + var $6988 = Parser$Reply$error$(Parser$Error$combine$($6987, $6985)); + var $6986 = $6988; + break; + case 'Maybe.none': + var $6989 = Parser$Reply$error$($6985); + var $6986 = $6989; + break; + }; + var $6984 = $6986; + break; + case 'Parser.Reply.value': + var $6990 = self.pst; + var self = $6990; + switch (self._) { + case 'Parser.State.new': + var $6992 = self.err; + var $6993 = self.nam; + var $6994 = self.ini; + var $6995 = self.idx; + var $6996 = self.str; + var $6997 = ((console.log(("FALTANDO " + $6996)), (_$47 => { + var $6998 = ((console.log(("VALUE " + $6993)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6983, $6992), $6993, $6994, $6995, $6996); + var _term$50 = Kind$Term$ref$("Maybe.some"); + var _term$51 = Kind$Term$app$(_term$50, Kind$Term$hol$(Bits$e)); + var _term$52 = Kind$Term$app$(_term$51, $6973); + var $6999 = Parser$Reply$value$(_reply$pst$49, _term$52); + return $6999; + })())); + return $6998; + })())); + var $6991 = $6997; + break; + }; + var $6984 = $6991; + break; + }; + var $6982 = $6984; + break; + }; + return $6982; + })())); + return $6981; + })())); + var $6974 = $6980; + break; + }; + var $6966 = $6974; + break; + }; + var $6964 = $6966; + break; + }; + return $6964; + })())); + return $6963; + })())); + var $6956 = $6962; + break; + }; + var $6949 = $6956; + break; + }; + var $6947 = $6949; + break; + }; + return $6947; + })); + const Kind$Parser$not = Kind$Parser$block("not")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7001 = self.err; + var _reply$7 = Kind$Parser$text$("not(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7003 = self.err; + var self = $7001; + switch (self._) { + case 'Maybe.some': + var $7005 = self.value; + var $7006 = Parser$Reply$error$(Parser$Error$combine$($7005, $7003)); + var $7004 = $7006; + break; + case 'Maybe.none': + var $7007 = Parser$Reply$error$($7003); + var $7004 = $7007; + break; + }; + var $7002 = $7004; + break; + case 'Parser.Reply.value': + var $7008 = self.pst; + var self = $7008; + switch (self._) { + case 'Parser.State.new': + var $7010 = self.err; + var $7011 = self.nam; + var $7012 = self.ini; + var $7013 = self.idx; + var $7014 = self.str; + var $7015 = ((console.log(("FALTANDO " + $7014)), (_$15 => { + var $7016 = ((console.log(("VALUE " + $7011)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7001, $7010), $7011, $7012, $7013, $7014); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $7018 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $7020 = self.err; + var self = $7018; + switch (self._) { + case 'Maybe.some': + var $7022 = self.value; + var $7023 = Parser$Reply$error$(Parser$Error$combine$($7022, $7020)); + var $7021 = $7023; + break; + case 'Maybe.none': + var $7024 = Parser$Reply$error$($7020); + var $7021 = $7024; + break; + }; + var $7019 = $7021; + break; + case 'Parser.Reply.value': + var $7025 = self.pst; + var $7026 = self.val; + var self = $7025; + switch (self._) { + case 'Parser.State.new': + var $7028 = self.err; + var $7029 = self.nam; + var $7030 = self.ini; + var $7031 = self.idx; + var $7032 = self.str; + var $7033 = ((console.log(("FALTANDO " + $7032)), (_$31 => { + var $7034 = ((console.log(("VALUE " + $7029)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7018, $7028), $7029, $7030, $7031, $7032); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $7036 = self.err; + var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $7038 = self.err; + var self = $7036; + switch (self._) { + case 'Maybe.some': + var $7040 = self.value; + var $7041 = Parser$Reply$error$(Parser$Error$combine$($7040, $7038)); + var $7039 = $7041; + break; + case 'Maybe.none': + var $7042 = Parser$Reply$error$($7038); + var $7039 = $7042; + break; + }; + var $7037 = $7039; + break; + case 'Parser.Reply.value': + var $7043 = self.pst; + var self = $7043; + switch (self._) { + case 'Parser.State.new': + var $7045 = self.err; + var $7046 = self.nam; + var $7047 = self.ini; + var $7048 = self.idx; + var $7049 = self.str; + var $7050 = ((console.log(("FALTANDO " + $7049)), (_$47 => { + var $7051 = ((console.log(("VALUE " + $7046)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7036, $7045), $7046, $7047, $7048, $7049); + var _term$50 = Kind$Term$ref$("Bool.not"); + var _term$51 = Kind$Term$app$(_term$50, $7026); + var $7052 = Parser$Reply$value$(_reply$pst$49, _term$51); + return $7052; + })())); + return $7051; + })())); + var $7044 = $7050; + break; + }; + var $7037 = $7044; + break; + }; + var $7035 = $7037; + break; + }; + return $7035; + })())); + return $7034; + })())); + var $7027 = $7033; + break; + }; + var $7019 = $7027; + break; + }; + var $7017 = $7019; + break; + }; + return $7017; + })())); + return $7016; + })())); + var $7009 = $7015; + break; + }; + var $7002 = $7009; + break; + }; + var $7000 = $7002; + break; + }; + return $7000; + })); + const Kind$Parser$left = Kind$Parser$block("left")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7054 = self.err; + var _reply$7 = Kind$Parser$text$("left(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7056 = self.err; + var self = $7054; + switch (self._) { + case 'Maybe.some': + var $7058 = self.value; + var $7059 = Parser$Reply$error$(Parser$Error$combine$($7058, $7056)); + var $7057 = $7059; + break; + case 'Maybe.none': + var $7060 = Parser$Reply$error$($7056); + var $7057 = $7060; + break; + }; + var $7055 = $7057; + break; + case 'Parser.Reply.value': + var $7061 = self.pst; + var self = $7061; + switch (self._) { + case 'Parser.State.new': + var $7063 = self.err; + var $7064 = self.nam; + var $7065 = self.ini; + var $7066 = self.idx; + var $7067 = self.str; + var $7068 = ((console.log(("FALTANDO " + $7067)), (_$15 => { + var $7069 = ((console.log(("VALUE " + $7064)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7054, $7063), $7064, $7065, $7066, $7067); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $7071 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $7073 = self.err; + var self = $7071; + switch (self._) { + case 'Maybe.some': + var $7075 = self.value; + var $7076 = Parser$Reply$error$(Parser$Error$combine$($7075, $7073)); + var $7074 = $7076; + break; + case 'Maybe.none': + var $7077 = Parser$Reply$error$($7073); + var $7074 = $7077; + break; + }; + var $7072 = $7074; + break; + case 'Parser.Reply.value': + var $7078 = self.pst; + var $7079 = self.val; + var self = $7078; + switch (self._) { + case 'Parser.State.new': + var $7081 = self.err; + var $7082 = self.nam; + var $7083 = self.ini; + var $7084 = self.idx; + var $7085 = self.str; + var $7086 = ((console.log(("FALTANDO " + $7085)), (_$31 => { + var $7087 = ((console.log(("VALUE " + $7082)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7071, $7081), $7082, $7083, $7084, $7085); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $7089 = self.err; + var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $7091 = self.err; + var self = $7089; + switch (self._) { + case 'Maybe.some': + var $7093 = self.value; + var $7094 = Parser$Reply$error$(Parser$Error$combine$($7093, $7091)); + var $7092 = $7094; + break; + case 'Maybe.none': + var $7095 = Parser$Reply$error$($7091); + var $7092 = $7095; + break; + }; + var $7090 = $7092; + break; + case 'Parser.Reply.value': + var $7096 = self.pst; + var self = $7096; + switch (self._) { + case 'Parser.State.new': + var $7098 = self.err; + var $7099 = self.nam; + var $7100 = self.ini; + var $7101 = self.idx; + var $7102 = self.str; + var $7103 = ((console.log(("FALTANDO " + $7102)), (_$47 => { + var $7104 = ((console.log(("VALUE " + $7099)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7089, $7098), $7099, $7100, $7101, $7102); + var _term$50 = Kind$Term$ref$("Either.left"); + var _term$51 = Kind$Term$app$(_term$50, Kind$Term$hol$(Bits$e)); + var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); + var _term$53 = Kind$Term$app$(_term$52, $7079); + var $7105 = Parser$Reply$value$(_reply$pst$49, _term$53); + return $7105; + })())); + return $7104; + })())); + var $7097 = $7103; + break; + }; + var $7090 = $7097; + break; + }; + var $7088 = $7090; + break; + }; + return $7088; + })())); + return $7087; + })())); + var $7080 = $7086; + break; + }; + var $7072 = $7080; + break; + }; + var $7070 = $7072; + break; + }; + return $7070; + })())); + return $7069; + })())); + var $7062 = $7068; + break; + }; + var $7055 = $7062; + break; + }; + var $7053 = $7055; + break; + }; + return $7053; + })); + const Kind$Parser$right = Kind$Parser$block("right")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7107 = self.err; + var _reply$7 = Kind$Parser$text$("right(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7109 = self.err; + var self = $7107; + switch (self._) { + case 'Maybe.some': + var $7111 = self.value; + var $7112 = Parser$Reply$error$(Parser$Error$combine$($7111, $7109)); + var $7110 = $7112; + break; + case 'Maybe.none': + var $7113 = Parser$Reply$error$($7109); + var $7110 = $7113; + break; + }; + var $7108 = $7110; + break; + case 'Parser.Reply.value': + var $7114 = self.pst; + var self = $7114; + switch (self._) { + case 'Parser.State.new': + var $7116 = self.err; + var $7117 = self.nam; + var $7118 = self.ini; + var $7119 = self.idx; + var $7120 = self.str; + var $7121 = ((console.log(("FALTANDO " + $7120)), (_$15 => { + var $7122 = ((console.log(("VALUE " + $7117)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7107, $7116), $7117, $7118, $7119, $7120); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $7124 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $7126 = self.err; + var self = $7124; + switch (self._) { + case 'Maybe.some': + var $7128 = self.value; + var $7129 = Parser$Reply$error$(Parser$Error$combine$($7128, $7126)); + var $7127 = $7129; + break; + case 'Maybe.none': + var $7130 = Parser$Reply$error$($7126); + var $7127 = $7130; + break; + }; + var $7125 = $7127; + break; + case 'Parser.Reply.value': + var $7131 = self.pst; + var $7132 = self.val; + var self = $7131; + switch (self._) { + case 'Parser.State.new': + var $7134 = self.err; + var $7135 = self.nam; + var $7136 = self.ini; + var $7137 = self.idx; + var $7138 = self.str; + var $7139 = ((console.log(("FALTANDO " + $7138)), (_$31 => { + var $7140 = ((console.log(("VALUE " + $7135)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7124, $7134), $7135, $7136, $7137, $7138); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $7142 = self.err; + var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $7144 = self.err; + var self = $7142; + switch (self._) { + case 'Maybe.some': + var $7146 = self.value; + var $7147 = Parser$Reply$error$(Parser$Error$combine$($7146, $7144)); + var $7145 = $7147; + break; + case 'Maybe.none': + var $7148 = Parser$Reply$error$($7144); + var $7145 = $7148; + break; + }; + var $7143 = $7145; + break; + case 'Parser.Reply.value': + var $7149 = self.pst; + var self = $7149; + switch (self._) { + case 'Parser.State.new': + var $7151 = self.err; + var $7152 = self.nam; + var $7153 = self.ini; + var $7154 = self.idx; + var $7155 = self.str; + var $7156 = ((console.log(("FALTANDO " + $7155)), (_$47 => { + var $7157 = ((console.log(("VALUE " + $7152)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7142, $7151), $7152, $7153, $7154, $7155); + var _term$50 = Kind$Term$ref$("Either.right"); + var _term$51 = Kind$Term$app$(_term$50, Kind$Term$hol$(Bits$e)); + var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); + var _term$53 = Kind$Term$app$(_term$52, $7132); + var $7158 = Parser$Reply$value$(_reply$pst$49, _term$53); + return $7158; + })())); + return $7157; + })())); + var $7150 = $7156; + break; + }; + var $7143 = $7150; + break; + }; + var $7141 = $7143; + break; + }; + return $7141; + })())); + return $7140; + })())); + var $7133 = $7139; + break; + }; + var $7125 = $7133; + break; + }; + var $7123 = $7125; + break; + }; + return $7123; + })())); + return $7122; + })())); + var $7115 = $7121; + break; + }; + var $7108 = $7115; + break; + }; + var $7106 = $7108; + break; + }; + return $7106; + })); + const Kind$Parser$apply = Kind$Parser$block("apply")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7160 = self.err; + var _reply$7 = Kind$Parser$text$("apply(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7162 = self.err; + var self = $7160; + switch (self._) { + case 'Maybe.some': + var $7164 = self.value; + var $7165 = Parser$Reply$error$(Parser$Error$combine$($7164, $7162)); + var $7163 = $7165; + break; + case 'Maybe.none': + var $7166 = Parser$Reply$error$($7162); + var $7163 = $7166; + break; + }; + var $7161 = $7163; + break; + case 'Parser.Reply.value': + var $7167 = self.pst; + var self = $7167; + switch (self._) { + case 'Parser.State.new': + var $7169 = self.err; + var $7170 = self.nam; + var $7171 = self.ini; + var $7172 = self.idx; + var $7173 = self.str; + var $7174 = ((console.log(("FALTANDO " + $7173)), (_$15 => { + var $7175 = ((console.log(("VALUE " + $7170)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7160, $7169), $7170, $7171, $7172, $7173); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $7177 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $7179 = self.err; + var self = $7177; + switch (self._) { + case 'Maybe.some': + var $7181 = self.value; + var $7182 = Parser$Reply$error$(Parser$Error$combine$($7181, $7179)); + var $7180 = $7182; + break; + case 'Maybe.none': + var $7183 = Parser$Reply$error$($7179); + var $7180 = $7183; + break; + }; + var $7178 = $7180; + break; + case 'Parser.Reply.value': + var $7184 = self.pst; + var $7185 = self.val; + var self = $7184; + switch (self._) { + case 'Parser.State.new': + var $7187 = self.err; + var $7188 = self.nam; + var $7189 = self.ini; + var $7190 = self.idx; + var $7191 = self.str; + var $7192 = ((console.log(("FALTANDO " + $7191)), (_$31 => { + var $7193 = ((console.log(("VALUE " + $7188)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7177, $7187), $7188, $7189, $7190, $7191); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $7195 = self.err; + var _reply$39 = Kind$Parser$text$(",", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $7197 = self.err; + var self = $7195; + switch (self._) { + case 'Maybe.some': + var $7199 = self.value; + var $7200 = Parser$Reply$error$(Parser$Error$combine$($7199, $7197)); + var $7198 = $7200; + break; + case 'Maybe.none': + var $7201 = Parser$Reply$error$($7197); + var $7198 = $7201; + break; + }; + var $7196 = $7198; + break; + case 'Parser.Reply.value': + var $7202 = self.pst; + var self = $7202; + switch (self._) { + case 'Parser.State.new': + var $7204 = self.err; + var $7205 = self.nam; + var $7206 = self.ini; + var $7207 = self.idx; + var $7208 = self.str; + var $7209 = ((console.log(("FALTANDO " + $7208)), (_$47 => { + var $7210 = ((console.log(("VALUE " + $7205)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7195, $7204), $7205, $7206, $7207, $7208); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $7212 = self.err; + var _reply$55 = Kind$Parser$term(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $7214 = self.err; + var self = $7212; + switch (self._) { + case 'Maybe.some': + var $7216 = self.value; + var $7217 = Parser$Reply$error$(Parser$Error$combine$($7216, $7214)); + var $7215 = $7217; + break; + case 'Maybe.none': + var $7218 = Parser$Reply$error$($7214); + var $7215 = $7218; + break; + }; + var $7213 = $7215; + break; + case 'Parser.Reply.value': + var $7219 = self.pst; + var $7220 = self.val; + var self = $7219; + switch (self._) { + case 'Parser.State.new': + var $7222 = self.err; + var $7223 = self.nam; + var $7224 = self.ini; + var $7225 = self.idx; + var $7226 = self.str; + var $7227 = ((console.log(("FALTANDO " + $7226)), (_$63 => { + var $7228 = ((console.log(("VALUE " + $7223)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($7212, $7222), $7223, $7224, $7225, $7226); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $7230 = self.err; + var _reply$71 = Kind$Parser$text$(")", _reply$pst$65); + var self = _reply$71; + switch (self._) { + case 'Parser.Reply.error': + var $7232 = self.err; + var self = $7230; + switch (self._) { + case 'Maybe.some': + var $7234 = self.value; + var $7235 = Parser$Reply$error$(Parser$Error$combine$($7234, $7232)); + var $7233 = $7235; + break; + case 'Maybe.none': + var $7236 = Parser$Reply$error$($7232); + var $7233 = $7236; + break; + }; + var $7231 = $7233; + break; + case 'Parser.Reply.value': + var $7237 = self.pst; + var self = $7237; + switch (self._) { + case 'Parser.State.new': + var $7239 = self.err; + var $7240 = self.nam; + var $7241 = self.ini; + var $7242 = self.idx; + var $7243 = self.str; + var $7244 = ((console.log(("FALTANDO " + $7243)), (_$79 => { + var $7245 = ((console.log(("VALUE " + $7240)), (_$80 => { + var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($7230, $7239), $7240, $7241, $7242, $7243); + var _term$82 = Kind$Term$ref$("Equal.apply"); + var _term$83 = Kind$Term$app$(_term$82, Kind$Term$hol$(Bits$e)); + var _term$84 = Kind$Term$app$(_term$83, Kind$Term$hol$(Bits$e)); + var _term$85 = Kind$Term$app$(_term$84, Kind$Term$hol$(Bits$e)); + var _term$86 = Kind$Term$app$(_term$85, Kind$Term$hol$(Bits$e)); + var _term$87 = Kind$Term$app$(_term$86, $7185); + var _term$88 = Kind$Term$app$(_term$87, $7220); + var $7246 = Parser$Reply$value$(_reply$pst$81, _term$88); + return $7246; + })())); + return $7245; + })())); + var $7238 = $7244; + break; + }; + var $7231 = $7238; + break; + }; + var $7229 = $7231; + break; + }; + return $7229; + })())); + return $7228; + })())); + var $7221 = $7227; + break; + }; + var $7213 = $7221; + break; + }; + var $7211 = $7213; + break; + }; + return $7211; + })())); + return $7210; + })())); + var $7203 = $7209; + break; + }; + var $7196 = $7203; + break; + }; + var $7194 = $7196; + break; + }; + return $7194; + })())); + return $7193; + })())); + var $7186 = $7192; + break; + }; + var $7178 = $7186; + break; + }; + var $7176 = $7178; + break; + }; + return $7176; + })())); + return $7175; + })())); + var $7168 = $7174; + break; + }; + var $7161 = $7168; + break; + }; + var $7159 = $7161; + break; + }; + return $7159; + })); + const Kind$Parser$chain = Kind$Parser$block("chain")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7248 = self.err; + var _reply$7 = Kind$Parser$text$("chain(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7250 = self.err; + var self = $7248; + switch (self._) { + case 'Maybe.some': + var $7252 = self.value; + var $7253 = Parser$Reply$error$(Parser$Error$combine$($7252, $7250)); + var $7251 = $7253; + break; + case 'Maybe.none': + var $7254 = Parser$Reply$error$($7250); + var $7251 = $7254; + break; + }; + var $7249 = $7251; + break; + case 'Parser.Reply.value': + var $7255 = self.pst; + var self = $7255; + switch (self._) { + case 'Parser.State.new': + var $7257 = self.err; + var $7258 = self.nam; + var $7259 = self.ini; + var $7260 = self.idx; + var $7261 = self.str; + var $7262 = ((console.log(("FALTANDO " + $7261)), (_$15 => { + var $7263 = ((console.log(("VALUE " + $7258)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7248, $7257), $7258, $7259, $7260, $7261); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $7265 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $7267 = self.err; + var self = $7265; + switch (self._) { + case 'Maybe.some': + var $7269 = self.value; + var $7270 = Parser$Reply$error$(Parser$Error$combine$($7269, $7267)); + var $7268 = $7270; + break; + case 'Maybe.none': + var $7271 = Parser$Reply$error$($7267); + var $7268 = $7271; + break; + }; + var $7266 = $7268; + break; + case 'Parser.Reply.value': + var $7272 = self.pst; + var $7273 = self.val; + var self = $7272; + switch (self._) { + case 'Parser.State.new': + var $7275 = self.err; + var $7276 = self.nam; + var $7277 = self.ini; + var $7278 = self.idx; + var $7279 = self.str; + var $7280 = ((console.log(("FALTANDO " + $7279)), (_$31 => { + var $7281 = ((console.log(("VALUE " + $7276)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7265, $7275), $7276, $7277, $7278, $7279); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $7283 = self.err; + var _reply$39 = Kind$Parser$text$(",", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $7285 = self.err; + var self = $7283; + switch (self._) { + case 'Maybe.some': + var $7287 = self.value; + var $7288 = Parser$Reply$error$(Parser$Error$combine$($7287, $7285)); + var $7286 = $7288; + break; + case 'Maybe.none': + var $7289 = Parser$Reply$error$($7285); + var $7286 = $7289; + break; + }; + var $7284 = $7286; + break; + case 'Parser.Reply.value': + var $7290 = self.pst; + var self = $7290; + switch (self._) { + case 'Parser.State.new': + var $7292 = self.err; + var $7293 = self.nam; + var $7294 = self.ini; + var $7295 = self.idx; + var $7296 = self.str; + var $7297 = ((console.log(("FALTANDO " + $7296)), (_$47 => { + var $7298 = ((console.log(("VALUE " + $7293)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7283, $7292), $7293, $7294, $7295, $7296); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $7300 = self.err; + var _reply$55 = Kind$Parser$term(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $7302 = self.err; + var self = $7300; + switch (self._) { + case 'Maybe.some': + var $7304 = self.value; + var $7305 = Parser$Reply$error$(Parser$Error$combine$($7304, $7302)); + var $7303 = $7305; + break; + case 'Maybe.none': + var $7306 = Parser$Reply$error$($7302); + var $7303 = $7306; + break; + }; + var $7301 = $7303; + break; + case 'Parser.Reply.value': + var $7307 = self.pst; + var $7308 = self.val; + var self = $7307; + switch (self._) { + case 'Parser.State.new': + var $7310 = self.err; + var $7311 = self.nam; + var $7312 = self.ini; + var $7313 = self.idx; + var $7314 = self.str; + var $7315 = ((console.log(("FALTANDO " + $7314)), (_$63 => { + var $7316 = ((console.log(("VALUE " + $7311)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($7300, $7310), $7311, $7312, $7313, $7314); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $7318 = self.err; + var _reply$71 = Kind$Parser$text$(")", _reply$pst$65); + var self = _reply$71; + switch (self._) { + case 'Parser.Reply.error': + var $7320 = self.err; + var self = $7318; + switch (self._) { + case 'Maybe.some': + var $7322 = self.value; + var $7323 = Parser$Reply$error$(Parser$Error$combine$($7322, $7320)); + var $7321 = $7323; + break; + case 'Maybe.none': + var $7324 = Parser$Reply$error$($7320); + var $7321 = $7324; + break; + }; + var $7319 = $7321; + break; + case 'Parser.Reply.value': + var $7325 = self.pst; + var self = $7325; + switch (self._) { + case 'Parser.State.new': + var $7327 = self.err; + var $7328 = self.nam; + var $7329 = self.ini; + var $7330 = self.idx; + var $7331 = self.str; + var $7332 = ((console.log(("FALTANDO " + $7331)), (_$79 => { + var $7333 = ((console.log(("VALUE " + $7328)), (_$80 => { + var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($7318, $7327), $7328, $7329, $7330, $7331); + var _term$82 = Kind$Term$ref$("Equal.chain"); + var _term$83 = Kind$Term$app$(_term$82, Kind$Term$hol$(Bits$e)); + var _term$84 = Kind$Term$app$(_term$83, Kind$Term$hol$(Bits$e)); + var _term$85 = Kind$Term$app$(_term$84, Kind$Term$hol$(Bits$e)); + var _term$86 = Kind$Term$app$(_term$85, Kind$Term$hol$(Bits$e)); + var _term$87 = Kind$Term$app$(_term$86, $7273); + var _term$88 = Kind$Term$app$(_term$87, $7308); + var $7334 = Parser$Reply$value$(_reply$pst$81, _term$88); + return $7334; + })())); + return $7333; + })())); + var $7326 = $7332; + break; + }; + var $7319 = $7326; + break; + }; + var $7317 = $7319; + break; + }; + return $7317; + })())); + return $7316; + })())); + var $7309 = $7315; + break; + }; + var $7301 = $7309; + break; + }; + var $7299 = $7301; + break; + }; + return $7299; + })())); + return $7298; + })())); + var $7291 = $7297; + break; + }; + var $7284 = $7291; + break; + }; + var $7282 = $7284; + break; + }; + return $7282; + })())); + return $7281; + })())); + var $7274 = $7280; + break; + }; + var $7266 = $7274; + break; + }; + var $7264 = $7266; + break; + }; + return $7264; + })())); + return $7263; + })())); + var $7256 = $7262; + break; + }; + var $7249 = $7256; + break; + }; + var $7247 = $7249; + break; + }; + return $7247; + })); + const Kind$Parser$mirror = Kind$Parser$block("mirror")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7336 = self.err; + var _reply$7 = Kind$Parser$text$("mirror(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7338 = self.err; + var self = $7336; + switch (self._) { + case 'Maybe.some': + var $7340 = self.value; + var $7341 = Parser$Reply$error$(Parser$Error$combine$($7340, $7338)); + var $7339 = $7341; + break; + case 'Maybe.none': + var $7342 = Parser$Reply$error$($7338); + var $7339 = $7342; + break; + }; + var $7337 = $7339; + break; + case 'Parser.Reply.value': + var $7343 = self.pst; + var self = $7343; + switch (self._) { + case 'Parser.State.new': + var $7345 = self.err; + var $7346 = self.nam; + var $7347 = self.ini; + var $7348 = self.idx; + var $7349 = self.str; + var $7350 = ((console.log(("FALTANDO " + $7349)), (_$15 => { + var $7351 = ((console.log(("VALUE " + $7346)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7336, $7345), $7346, $7347, $7348, $7349); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $7353 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $7355 = self.err; + var self = $7353; + switch (self._) { + case 'Maybe.some': + var $7357 = self.value; + var $7358 = Parser$Reply$error$(Parser$Error$combine$($7357, $7355)); + var $7356 = $7358; + break; + case 'Maybe.none': + var $7359 = Parser$Reply$error$($7355); + var $7356 = $7359; + break; + }; + var $7354 = $7356; + break; + case 'Parser.Reply.value': + var $7360 = self.pst; + var $7361 = self.val; + var self = $7360; + switch (self._) { + case 'Parser.State.new': + var $7363 = self.err; + var $7364 = self.nam; + var $7365 = self.ini; + var $7366 = self.idx; + var $7367 = self.str; + var $7368 = ((console.log(("FALTANDO " + $7367)), (_$31 => { + var $7369 = ((console.log(("VALUE " + $7364)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7353, $7363), $7364, $7365, $7366, $7367); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $7371 = self.err; + var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $7373 = self.err; + var self = $7371; + switch (self._) { + case 'Maybe.some': + var $7375 = self.value; + var $7376 = Parser$Reply$error$(Parser$Error$combine$($7375, $7373)); + var $7374 = $7376; + break; + case 'Maybe.none': + var $7377 = Parser$Reply$error$($7373); + var $7374 = $7377; + break; + }; + var $7372 = $7374; + break; + case 'Parser.Reply.value': + var $7378 = self.pst; + var self = $7378; + switch (self._) { + case 'Parser.State.new': + var $7380 = self.err; + var $7381 = self.nam; + var $7382 = self.ini; + var $7383 = self.idx; + var $7384 = self.str; + var $7385 = ((console.log(("FALTANDO " + $7384)), (_$47 => { + var $7386 = ((console.log(("VALUE " + $7381)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7371, $7380), $7381, $7382, $7383, $7384); + var _term$50 = Kind$Term$ref$("Equal.mirror"); + var _term$51 = Kind$Term$app$(_term$50, Kind$Term$hol$(Bits$e)); + var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); + var _term$53 = Kind$Term$app$(_term$52, Kind$Term$hol$(Bits$e)); + var _term$54 = Kind$Term$app$(_term$53, $7361); + var $7387 = Parser$Reply$value$(_reply$pst$49, _term$54); + return $7387; + })())); + return $7386; + })())); + var $7379 = $7385; + break; + }; + var $7372 = $7379; + break; + }; + var $7370 = $7372; + break; + }; + return $7370; + })())); + return $7369; + })())); + var $7362 = $7368; + break; + }; + var $7354 = $7362; + break; + }; + var $7352 = $7354; + break; + }; + return $7352; + })())); + return $7351; + })())); + var $7344 = $7350; + break; + }; + var $7337 = $7344; + break; + }; + var $7335 = $7337; + break; + }; + return $7335; + })); + + function Kind$Parser$comprehension$and_all$(_a$1) { + var self = _a$1; + switch (self._) { + case 'List.cons': + var $7389 = self.head; + var $7390 = self.tail; + var _and$4 = Kind$Term$ref$("Bool.and"); + var _and$5 = Kind$Term$app$(_and$4, $7389); + var _and$6 = Kind$Term$app$(_and$5, Kind$Parser$comprehension$and_all$($7390)); + var $7391 = _and$6; + var $7388 = $7391; + break; + case 'List.nil': + var $7392 = Kind$Term$ref$("Bool.true"); + var $7388 = $7392; + break; + }; + return $7388; + }; + const Kind$Parser$comprehension$and_all = x0 => Kind$Parser$comprehension$and_all$(x0); + + function Kind$Parser$comprehension$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7394 = self.err; + var _reply$7 = Kind$Parser$text$("[", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7396 = self.err; + var self = $7394; + switch (self._) { + case 'Maybe.some': + var $7398 = self.value; + var $7399 = Parser$Reply$error$(Parser$Error$combine$($7398, $7396)); + var $7397 = $7399; + break; + case 'Maybe.none': + var $7400 = Parser$Reply$error$($7396); + var $7397 = $7400; + break; + }; + var $7395 = $7397; + break; + case 'Parser.Reply.value': + var $7401 = self.pst; + var self = $7401; + switch (self._) { + case 'Parser.State.new': + var $7403 = self.err; + var $7404 = self.nam; + var $7405 = self.ini; + var $7406 = self.idx; + var $7407 = self.str; + var $7408 = ((console.log(("FALTANDO " + $7407)), (_$15 => { + var $7409 = ((console.log(("VALUE " + $7404)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7394, $7403), $7404, $7405, $7406, $7407); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $7411 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $7413 = self.err; + var self = $7411; + switch (self._) { + case 'Maybe.some': + var $7415 = self.value; + var $7416 = Parser$Reply$error$(Parser$Error$combine$($7415, $7413)); + var $7414 = $7416; + break; + case 'Maybe.none': + var $7417 = Parser$Reply$error$($7413); + var $7414 = $7417; + break; + }; + var $7412 = $7414; + break; + case 'Parser.Reply.value': + var $7418 = self.pst; + var $7419 = self.val; + var self = $7418; + switch (self._) { + case 'Parser.State.new': + var $7421 = self.err; + var $7422 = self.nam; + var $7423 = self.ini; + var $7424 = self.idx; + var $7425 = self.str; + var $7426 = ((console.log(("FALTANDO " + $7425)), (_$31 => { + var $7427 = ((console.log(("VALUE " + $7422)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7411, $7421), $7422, $7423, $7424, $7425); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $7429 = self.err; + var _reply$39 = Kind$Parser$text$("for", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $7431 = self.err; + var self = $7429; + switch (self._) { + case 'Maybe.some': + var $7433 = self.value; + var $7434 = Parser$Reply$error$(Parser$Error$combine$($7433, $7431)); + var $7432 = $7434; + break; + case 'Maybe.none': + var $7435 = Parser$Reply$error$($7431); + var $7432 = $7435; + break; + }; + var $7430 = $7432; + break; + case 'Parser.Reply.value': + var $7436 = self.pst; + var self = $7436; + switch (self._) { + case 'Parser.State.new': + var $7438 = self.err; + var $7439 = self.nam; + var $7440 = self.ini; + var $7441 = self.idx; + var $7442 = self.str; + var $7443 = ((console.log(("FALTANDO " + $7442)), (_$47 => { + var $7444 = ((console.log(("VALUE " + $7439)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7429, $7438), $7439, $7440, $7441, $7442); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $7446 = self.err; + var _reply$55 = Kind$Parser$name1$(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $7448 = self.err; + var self = $7446; + switch (self._) { + case 'Maybe.some': + var $7450 = self.value; + var $7451 = Parser$Reply$error$(Parser$Error$combine$($7450, $7448)); + var $7449 = $7451; + break; + case 'Maybe.none': + var $7452 = Parser$Reply$error$($7448); + var $7449 = $7452; + break; + }; + var $7447 = $7449; + break; + case 'Parser.Reply.value': + var $7453 = self.pst; + var $7454 = self.val; + var self = $7453; + switch (self._) { + case 'Parser.State.new': + var $7456 = self.err; + var $7457 = self.nam; + var $7458 = self.ini; + var $7459 = self.idx; + var $7460 = self.str; + var $7461 = ((console.log(("FALTANDO " + $7460)), (_$63 => { + var $7462 = ((console.log(("VALUE " + $7457)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($7446, $7456), $7457, $7458, $7459, $7460); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $7464 = self.err; + var _reply$71 = Kind$Parser$text$("in", _reply$pst$65); + var self = _reply$71; + switch (self._) { + case 'Parser.Reply.error': + var $7466 = self.err; + var self = $7464; + switch (self._) { + case 'Maybe.some': + var $7468 = self.value; + var $7469 = Parser$Reply$error$(Parser$Error$combine$($7468, $7466)); + var $7467 = $7469; + break; + case 'Maybe.none': + var $7470 = Parser$Reply$error$($7466); + var $7467 = $7470; + break; + }; + var $7465 = $7467; + break; + case 'Parser.Reply.value': + var $7471 = self.pst; + var self = $7471; + switch (self._) { + case 'Parser.State.new': + var $7473 = self.err; + var $7474 = self.nam; + var $7475 = self.ini; + var $7476 = self.idx; + var $7477 = self.str; + var $7478 = ((console.log(("FALTANDO " + $7477)), (_$79 => { + var $7479 = ((console.log(("VALUE " + $7474)), (_$80 => { + var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($7464, $7473), $7474, $7475, $7476, $7477); + var self = _reply$pst$81; + switch (self._) { + case 'Parser.State.new': + var $7481 = self.err; + var _reply$87 = Kind$Parser$term(_reply$pst$81); + var self = _reply$87; + switch (self._) { + case 'Parser.Reply.error': + var $7483 = self.err; + var self = $7481; + switch (self._) { + case 'Maybe.some': + var $7485 = self.value; + var $7486 = Parser$Reply$error$(Parser$Error$combine$($7485, $7483)); + var $7484 = $7486; + break; + case 'Maybe.none': + var $7487 = Parser$Reply$error$($7483); + var $7484 = $7487; + break; + }; + var $7482 = $7484; + break; + case 'Parser.Reply.value': + var $7488 = self.pst; + var $7489 = self.val; + var self = $7488; + switch (self._) { + case 'Parser.State.new': + var $7491 = self.err; + var $7492 = self.nam; + var $7493 = self.ini; + var $7494 = self.idx; + var $7495 = self.str; + var $7496 = ((console.log(("FALTANDO " + $7495)), (_$95 => { + var $7497 = ((console.log(("VALUE " + $7492)), (_$96 => { + var _reply$pst$97 = Parser$State$new$(Parser$Error$maybe_combine$($7481, $7491), $7492, $7493, $7494, $7495); + var self = _reply$pst$97; + switch (self._) { + case 'Parser.State.new': + var $7499 = self.err; + var _reply$103 = Parser$maybe$(Kind$Parser$text("where"), _reply$pst$97); + var self = _reply$103; + switch (self._) { + case 'Parser.Reply.error': + var $7501 = self.err; + var self = $7499; + switch (self._) { + case 'Maybe.some': + var $7503 = self.value; + var $7504 = Parser$Reply$error$(Parser$Error$combine$($7503, $7501)); + var $7502 = $7504; + break; + case 'Maybe.none': + var $7505 = Parser$Reply$error$($7501); + var $7502 = $7505; + break; + }; + var $7500 = $7502; + break; + case 'Parser.Reply.value': + var $7506 = self.pst; + var self = $7506; + switch (self._) { + case 'Parser.State.new': + var $7508 = self.err; + var $7509 = self.nam; + var $7510 = self.ini; + var $7511 = self.idx; + var $7512 = self.str; + var $7513 = ((console.log(("FALTANDO " + $7512)), (_$111 => { + var $7514 = ((console.log(("VALUE " + $7509)), (_$112 => { + var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($7499, $7508), $7509, $7510, $7511, $7512); + var self = _reply$pst$113; + switch (self._) { + case 'Parser.State.new': + var $7516 = self.err; + var _reply$119 = Parser$until$(Kind$Parser$text("]"), (_pst$119 => { + var self = _pst$119; + switch (self._) { + case 'Parser.State.new': + var $7519 = self.err; + var _reply$125 = Kind$Parser$spaces(_pst$119); + var self = _reply$125; + switch (self._) { + case 'Parser.Reply.error': + var $7521 = self.err; + var self = $7519; + switch (self._) { + case 'Maybe.some': + var $7523 = self.value; + var $7524 = Parser$Reply$error$(Parser$Error$combine$($7523, $7521)); + var $7522 = $7524; + break; + case 'Maybe.none': + var $7525 = Parser$Reply$error$($7521); + var $7522 = $7525; + break; + }; + var $7520 = $7522; + break; + case 'Parser.Reply.value': + var $7526 = self.pst; + var self = $7526; + switch (self._) { + case 'Parser.State.new': + var $7528 = self.err; + var $7529 = self.nam; + var $7530 = self.ini; + var $7531 = self.idx; + var $7532 = self.str; + var $7533 = ((console.log(("FALTANDO " + $7532)), (_$133 => { + var $7534 = ((console.log(("VALUE " + $7529)), (_$134 => { + var _reply$pst$135 = Parser$State$new$(Parser$Error$maybe_combine$($7519, $7528), $7529, $7530, $7531, $7532); + var self = _reply$pst$135; + switch (self._) { + case 'Parser.State.new': + var $7536 = self.err; + var _reply$141 = Kind$Parser$term(_reply$pst$135); + var self = _reply$141; + switch (self._) { + case 'Parser.Reply.error': + var $7538 = self.err; + var self = $7536; + switch (self._) { + case 'Maybe.some': + var $7540 = self.value; + var $7541 = Parser$Reply$error$(Parser$Error$combine$($7540, $7538)); + var $7539 = $7541; + break; + case 'Maybe.none': + var $7542 = Parser$Reply$error$($7538); + var $7539 = $7542; + break; + }; + var $7537 = $7539; + break; + case 'Parser.Reply.value': + var $7543 = self.pst; + var $7544 = self.val; + var self = $7543; + switch (self._) { + case 'Parser.State.new': + var $7546 = self.err; + var $7547 = self.nam; + var $7548 = self.ini; + var $7549 = self.idx; + var $7550 = self.str; + var $7551 = ((console.log(("FALTANDO " + $7550)), (_$149 => { + var $7552 = ((console.log(("VALUE " + $7547)), (_$150 => { + var _reply$pst$151 = Parser$State$new$(Parser$Error$maybe_combine$($7536, $7546), $7547, $7548, $7549, $7550); + var self = _reply$pst$151; + switch (self._) { + case 'Parser.State.new': + var $7554 = self.err; + var _reply$157 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$151); + var self = _reply$157; + switch (self._) { + case 'Parser.Reply.error': + var $7556 = self.err; + var self = $7554; + switch (self._) { + case 'Maybe.some': + var $7558 = self.value; + var $7559 = Parser$Reply$error$(Parser$Error$combine$($7558, $7556)); + var $7557 = $7559; + break; + case 'Maybe.none': + var $7560 = Parser$Reply$error$($7556); + var $7557 = $7560; + break; + }; + var $7555 = $7557; + break; + case 'Parser.Reply.value': + var $7561 = self.pst; + var self = $7561; + switch (self._) { + case 'Parser.State.new': + var $7563 = self.err; + var $7564 = self.nam; + var $7565 = self.ini; + var $7566 = self.idx; + var $7567 = self.str; + var $7568 = ((console.log(("FALTANDO " + $7567)), (_$165 => { + var $7569 = ((console.log(("VALUE " + $7564)), (_$166 => { + var _reply$pst$167 = Parser$State$new$(Parser$Error$maybe_combine$($7554, $7563), $7564, $7565, $7566, $7567); + var $7570 = Parser$Reply$value$(_reply$pst$167, $7544); + return $7570; + })())); + return $7569; + })())); + var $7562 = $7568; + break; + }; + var $7555 = $7562; + break; + }; + var $7553 = $7555; + break; + }; + return $7553; + })())); + return $7552; + })())); + var $7545 = $7551; + break; + }; + var $7537 = $7545; + break; + }; + var $7535 = $7537; + break; + }; + return $7535; + })())); + return $7534; + })())); + var $7527 = $7533; + break; + }; + var $7520 = $7527; + break; + }; + var $7518 = $7520; + break; + }; + return $7518; + }))(_reply$pst$113); + var self = _reply$119; + switch (self._) { + case 'Parser.Reply.error': + var $7571 = self.err; + var self = $7516; + switch (self._) { + case 'Maybe.some': + var $7573 = self.value; + var $7574 = Parser$Reply$error$(Parser$Error$combine$($7573, $7571)); + var $7572 = $7574; + break; + case 'Maybe.none': + var $7575 = Parser$Reply$error$($7571); + var $7572 = $7575; + break; + }; + var $7517 = $7572; + break; + case 'Parser.Reply.value': + var $7576 = self.pst; + var $7577 = self.val; + var self = $7576; + switch (self._) { + case 'Parser.State.new': + var $7579 = self.err; + var $7580 = self.nam; + var $7581 = self.ini; + var $7582 = self.idx; + var $7583 = self.str; + var $7584 = ((console.log(("FALTANDO " + $7583)), (_$127 => { + var $7585 = ((console.log(("VALUE " + $7580)), (_$128 => { + var _reply$pst$129 = Parser$State$new$(Parser$Error$maybe_combine$($7516, $7579), $7580, $7581, $7582, $7583); + var _and$130 = Kind$Parser$comprehension$and_all$($7577); + var _filter_fun$131 = Kind$Term$ref$("List.filter"); + var _filter_fun$132 = Kind$Term$app$(_filter_fun$131, Kind$Term$hol$(Bits$e)); + var _lamb_filter$133 = Kind$Term$lam$($7454, (_i$133 => { + var $7587 = _and$130; + return $7587; + })); + var _filter_fun$134 = Kind$Term$app$(_filter_fun$132, _lamb_filter$133); + var _filter_fun$135 = Kind$Term$app$(_filter_fun$134, $7489); + var _term$136 = Kind$Term$ref$("List.map"); + var _term$137 = Kind$Term$app$(_term$136, Kind$Term$hol$(Bits$e)); + var _term$138 = Kind$Term$app$(_term$137, Kind$Term$hol$(Bits$e)); + var _lamb$139 = Kind$Term$lam$($7454, (_i$139 => { + var $7588 = $7419; + return $7588; + })); + var _term$140 = Kind$Term$app$(_term$138, _lamb$139); + var _term$141 = Kind$Term$app$(_term$140, _filter_fun$135); + var $7586 = Parser$Reply$value$(_reply$pst$129, _term$141); + return $7586; + })())); + return $7585; + })())); + var $7578 = $7584; + break; + }; + var $7517 = $7578; + break; + }; + var $7515 = $7517; + break; + }; + return $7515; + })())); + return $7514; + })())); + var $7507 = $7513; + break; + }; + var $7500 = $7507; + break; + }; + var $7498 = $7500; + break; + }; + return $7498; + })())); + return $7497; + })())); + var $7490 = $7496; + break; + }; + var $7482 = $7490; + break; + }; + var $7480 = $7482; + break; + }; + return $7480; + })())); + return $7479; + })())); + var $7472 = $7478; + break; + }; + var $7465 = $7472; + break; + }; + var $7463 = $7465; + break; + }; + return $7463; + })())); + return $7462; + })())); + var $7455 = $7461; + break; + }; + var $7447 = $7455; + break; + }; + var $7445 = $7447; + break; + }; + return $7445; + })())); + return $7444; + })())); + var $7437 = $7443; + break; + }; + var $7430 = $7437; + break; + }; + var $7428 = $7430; + break; + }; + return $7428; + })())); + return $7427; + })())); + var $7420 = $7426; + break; + }; + var $7412 = $7420; + break; + }; + var $7410 = $7412; + break; + }; + return $7410; + })())); + return $7409; + })())); + var $7402 = $7408; + break; + }; + var $7395 = $7402; + break; + }; + var $7393 = $7395; + break; + }; + return $7393; + }; + const Kind$Parser$comprehension = x0 => Kind$Parser$comprehension$(x0); + + function Kind$Parser$comprehension_range$go$(_typename$1) { + var $7589 = Kind$Parser$block("comprehension_range")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $7591 = self.err; + var _reply$8 = Kind$Parser$text$("[", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $7593 = self.err; + var self = $7591; + switch (self._) { + case 'Maybe.some': + var $7595 = self.value; + var $7596 = Parser$Reply$error$(Parser$Error$combine$($7595, $7593)); + var $7594 = $7596; + break; + case 'Maybe.none': + var $7597 = Parser$Reply$error$($7593); + var $7594 = $7597; + break; + }; + var $7592 = $7594; + break; + case 'Parser.Reply.value': + var $7598 = self.pst; + var self = $7598; + switch (self._) { + case 'Parser.State.new': + var $7600 = self.err; + var $7601 = self.nam; + var $7602 = self.ini; + var $7603 = self.idx; + var $7604 = self.str; + var $7605 = ((console.log(("FALTANDO " + $7604)), (_$16 => { + var $7606 = ((console.log(("VALUE " + $7601)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($7591, $7600), $7601, $7602, $7603, $7604); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $7608 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $7610 = self.err; + var self = $7608; + switch (self._) { + case 'Maybe.some': + var $7612 = self.value; + var $7613 = Parser$Reply$error$(Parser$Error$combine$($7612, $7610)); + var $7611 = $7613; + break; + case 'Maybe.none': + var $7614 = Parser$Reply$error$($7610); + var $7611 = $7614; + break; + }; + var $7609 = $7611; + break; + case 'Parser.Reply.value': + var $7615 = self.pst; + var $7616 = self.val; + var self = $7615; + switch (self._) { + case 'Parser.State.new': + var $7618 = self.err; + var $7619 = self.nam; + var $7620 = self.ini; + var $7621 = self.idx; + var $7622 = self.str; + var $7623 = ((console.log(("FALTANDO " + $7622)), (_$32 => { + var $7624 = ((console.log(("VALUE " + $7619)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($7608, $7618), $7619, $7620, $7621, $7622); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $7626 = self.err; + var _reply$40 = Kind$Parser$text$("to", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $7628 = self.err; + var self = $7626; + switch (self._) { + case 'Maybe.some': + var $7630 = self.value; + var $7631 = Parser$Reply$error$(Parser$Error$combine$($7630, $7628)); + var $7629 = $7631; + break; + case 'Maybe.none': + var $7632 = Parser$Reply$error$($7628); + var $7629 = $7632; + break; + }; + var $7627 = $7629; + break; + case 'Parser.Reply.value': + var $7633 = self.pst; + var self = $7633; + switch (self._) { + case 'Parser.State.new': + var $7635 = self.err; + var $7636 = self.nam; + var $7637 = self.ini; + var $7638 = self.idx; + var $7639 = self.str; + var $7640 = ((console.log(("FALTANDO " + $7639)), (_$48 => { + var $7641 = ((console.log(("VALUE " + $7636)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($7626, $7635), $7636, $7637, $7638, $7639); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $7643 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $7645 = self.err; + var self = $7643; + switch (self._) { + case 'Maybe.some': + var $7647 = self.value; + var $7648 = Parser$Reply$error$(Parser$Error$combine$($7647, $7645)); + var $7646 = $7648; + break; + case 'Maybe.none': + var $7649 = Parser$Reply$error$($7645); + var $7646 = $7649; + break; + }; + var $7644 = $7646; + break; + case 'Parser.Reply.value': + var $7650 = self.pst; + var $7651 = self.val; + var self = $7650; + switch (self._) { + case 'Parser.State.new': + var $7653 = self.err; + var $7654 = self.nam; + var $7655 = self.ini; + var $7656 = self.idx; + var $7657 = self.str; + var $7658 = ((console.log(("FALTANDO " + $7657)), (_$64 => { + var $7659 = ((console.log(("VALUE " + $7654)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($7643, $7653), $7654, $7655, $7656, $7657); + var _list$67 = (_x$67 => { + var _term$68 = Kind$Term$ref$((_x$67 + ".range")); + var _term$69 = Kind$Term$app$(_term$68, $7616); + var _term$70 = Kind$Term$app$(_term$69, $7651); + var $7661 = _term$70; + return $7661; + }); + var self = _typename$1; + switch (self._) { + case 'Maybe.some': + var $7662 = self.value; + var $7663 = (_pst$69 => { + var self = _pst$69; + switch (self._) { + case 'Parser.State.new': + var $7665 = self.err; + var _reply$75 = Kind$Parser$text$(":", _pst$69); + var self = _reply$75; + switch (self._) { + case 'Parser.Reply.error': + var $7667 = self.err; + var self = $7665; + switch (self._) { + case 'Maybe.some': + var $7669 = self.value; + var $7670 = Parser$Reply$error$(Parser$Error$combine$($7669, $7667)); + var $7668 = $7670; + break; + case 'Maybe.none': + var $7671 = Parser$Reply$error$($7667); + var $7668 = $7671; + break; + }; + var $7666 = $7668; + break; + case 'Parser.Reply.value': + var $7672 = self.pst; + var self = $7672; + switch (self._) { + case 'Parser.State.new': + var $7674 = self.err; + var $7675 = self.nam; + var $7676 = self.ini; + var $7677 = self.idx; + var $7678 = self.str; + var $7679 = ((console.log(("FALTANDO " + $7678)), (_$83 => { + var $7680 = ((console.log(("VALUE " + $7675)), (_$84 => { + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($7665, $7674), $7675, $7676, $7677, $7678); + var self = _reply$pst$85; + switch (self._) { + case 'Parser.State.new': + var $7682 = self.err; + var _reply$91 = Kind$Parser$text$($7662, _reply$pst$85); + var self = _reply$91; + switch (self._) { + case 'Parser.Reply.error': + var $7684 = self.err; + var self = $7682; + switch (self._) { + case 'Maybe.some': + var $7686 = self.value; + var $7687 = Parser$Reply$error$(Parser$Error$combine$($7686, $7684)); + var $7685 = $7687; + break; + case 'Maybe.none': + var $7688 = Parser$Reply$error$($7684); + var $7685 = $7688; + break; + }; + var $7683 = $7685; + break; + case 'Parser.Reply.value': + var $7689 = self.pst; + var self = $7689; + switch (self._) { + case 'Parser.State.new': + var $7691 = self.err; + var $7692 = self.nam; + var $7693 = self.ini; + var $7694 = self.idx; + var $7695 = self.str; + var $7696 = ((console.log(("FALTANDO " + $7695)), (_$99 => { + var $7697 = ((console.log(("VALUE " + $7692)), (_$100 => { + var _reply$pst$101 = Parser$State$new$(Parser$Error$maybe_combine$($7682, $7691), $7692, $7693, $7694, $7695); + var self = _reply$pst$101; + switch (self._) { + case 'Parser.State.new': + var $7699 = self.err; + var _reply$107 = Kind$Parser$text$("]", _reply$pst$101); + var self = _reply$107; + switch (self._) { + case 'Parser.Reply.error': + var $7701 = self.err; + var self = $7699; + switch (self._) { + case 'Maybe.some': + var $7703 = self.value; + var $7704 = Parser$Reply$error$(Parser$Error$combine$($7703, $7701)); + var $7702 = $7704; + break; + case 'Maybe.none': + var $7705 = Parser$Reply$error$($7701); + var $7702 = $7705; + break; + }; + var $7700 = $7702; + break; + case 'Parser.Reply.value': + var $7706 = self.pst; + var self = $7706; + switch (self._) { + case 'Parser.State.new': + var $7708 = self.err; + var $7709 = self.nam; + var $7710 = self.ini; + var $7711 = self.idx; + var $7712 = self.str; + var $7713 = ((console.log(("FALTANDO " + $7712)), (_$115 => { + var $7714 = ((console.log(("VALUE " + $7709)), (_$116 => { + var _reply$pst$117 = Parser$State$new$(Parser$Error$maybe_combine$($7699, $7708), $7709, $7710, $7711, $7712); + var $7715 = Parser$Reply$value$(_reply$pst$117, _list$67($7662)); + return $7715; + })())); + return $7714; + })())); + var $7707 = $7713; + break; + }; + var $7700 = $7707; + break; + }; + var $7698 = $7700; + break; + }; + return $7698; + })())); + return $7697; + })())); + var $7690 = $7696; + break; + }; + var $7683 = $7690; + break; + }; + var $7681 = $7683; + break; + }; + return $7681; + })())); + return $7680; + })())); + var $7673 = $7679; + break; + }; + var $7666 = $7673; + break; + }; + var $7664 = $7666; + break; + }; + return $7664; + }); + var $7660 = $7663; + break; + case 'Maybe.none': + var $7716 = (_pst$68 => { + var self = _pst$68; + switch (self._) { + case 'Parser.State.new': + var $7718 = self.err; + var _reply$74 = Parser$maybe$((_pst$74 => { + var self = _pst$74; + switch (self._) { + case 'Parser.State.new': + var $7721 = self.err; + var _reply$80 = Kind$Parser$text$(":", _pst$74); + var self = _reply$80; + switch (self._) { + case 'Parser.Reply.error': + var $7723 = self.err; + var self = $7721; + switch (self._) { + case 'Maybe.some': + var $7725 = self.value; + var $7726 = Parser$Reply$error$(Parser$Error$combine$($7725, $7723)); + var $7724 = $7726; + break; + case 'Maybe.none': + var $7727 = Parser$Reply$error$($7723); + var $7724 = $7727; + break; + }; + var $7722 = $7724; + break; + case 'Parser.Reply.value': + var $7728 = self.pst; + var self = $7728; + switch (self._) { + case 'Parser.State.new': + var $7730 = self.err; + var $7731 = self.nam; + var $7732 = self.ini; + var $7733 = self.idx; + var $7734 = self.str; + var $7735 = ((console.log(("FALTANDO " + $7734)), (_$88 => { + var $7736 = ((console.log(("VALUE " + $7731)), (_$89 => { + var _reply$pst$90 = Parser$State$new$(Parser$Error$maybe_combine$($7721, $7730), $7731, $7732, $7733, $7734); + var $7737 = Kind$Parser$text$("Nat", _reply$pst$90); + return $7737; + })())); + return $7736; + })())); + var $7729 = $7735; + break; + }; + var $7722 = $7729; + break; + }; + var $7720 = $7722; + break; + }; + return $7720; + }), _pst$68); + var self = _reply$74; + switch (self._) { + case 'Parser.Reply.error': + var $7738 = self.err; + var self = $7718; + switch (self._) { + case 'Maybe.some': + var $7740 = self.value; + var $7741 = Parser$Reply$error$(Parser$Error$combine$($7740, $7738)); + var $7739 = $7741; + break; + case 'Maybe.none': + var $7742 = Parser$Reply$error$($7738); + var $7739 = $7742; + break; + }; + var $7719 = $7739; + break; + case 'Parser.Reply.value': + var $7743 = self.pst; + var self = $7743; + switch (self._) { + case 'Parser.State.new': + var $7745 = self.err; + var $7746 = self.nam; + var $7747 = self.ini; + var $7748 = self.idx; + var $7749 = self.str; + var $7750 = ((console.log(("FALTANDO " + $7749)), (_$82 => { + var $7751 = ((console.log(("VALUE " + $7746)), (_$83 => { + var _reply$pst$84 = Parser$State$new$(Parser$Error$maybe_combine$($7718, $7745), $7746, $7747, $7748, $7749); + var self = _reply$pst$84; + switch (self._) { + case 'Parser.State.new': + var $7753 = self.err; + var _reply$90 = Kind$Parser$text$("]", _reply$pst$84); + var self = _reply$90; + switch (self._) { + case 'Parser.Reply.error': + var $7755 = self.err; + var self = $7753; + switch (self._) { + case 'Maybe.some': + var $7757 = self.value; + var $7758 = Parser$Reply$error$(Parser$Error$combine$($7757, $7755)); + var $7756 = $7758; + break; + case 'Maybe.none': + var $7759 = Parser$Reply$error$($7755); + var $7756 = $7759; + break; + }; + var $7754 = $7756; + break; + case 'Parser.Reply.value': + var $7760 = self.pst; + var self = $7760; + switch (self._) { + case 'Parser.State.new': + var $7762 = self.err; + var $7763 = self.nam; + var $7764 = self.ini; + var $7765 = self.idx; + var $7766 = self.str; + var $7767 = ((console.log(("FALTANDO " + $7766)), (_$98 => { + var $7768 = ((console.log(("VALUE " + $7763)), (_$99 => { + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($7753, $7762), $7763, $7764, $7765, $7766); + var $7769 = Parser$Reply$value$(_reply$pst$100, _list$67("Nat")); + return $7769; + })())); + return $7768; + })())); + var $7761 = $7767; + break; + }; + var $7754 = $7761; + break; + }; + var $7752 = $7754; + break; + }; + return $7752; + })())); + return $7751; + })())); + var $7744 = $7750; + break; + }; + var $7719 = $7744; + break; + }; + var $7717 = $7719; + break; + }; + return $7717; + }); + var $7660 = $7716; + break; + }; + var $7660 = $7660(_reply$pst$66); + return $7660; + })())); + return $7659; + })())); + var $7652 = $7658; + break; + }; + var $7644 = $7652; + break; + }; + var $7642 = $7644; + break; + }; + return $7642; + })())); + return $7641; + })())); + var $7634 = $7640; + break; + }; + var $7627 = $7634; + break; + }; + var $7625 = $7627; + break; + }; + return $7625; + })())); + return $7624; + })())); + var $7617 = $7623; + break; + }; + var $7609 = $7617; + break; + }; + var $7607 = $7609; + break; + }; + return $7607; + })())); + return $7606; + })())); + var $7599 = $7605; + break; + }; + var $7592 = $7599; + break; + }; + var $7590 = $7592; + break; + }; + return $7590; + })); + return $7589; + }; + const Kind$Parser$comprehension_range$go = x0 => Kind$Parser$comprehension_range$go$(x0); + const Kind$Parser$comprehension_range = Parser$choice(List$cons$(Kind$Parser$comprehension_range$go$(Maybe$none), List$cons$(Kind$Parser$comprehension_range$go$(Maybe$some$("I32")), List$cons$(Kind$Parser$comprehension_range$go$(Maybe$some$("U32")), List$nil)))); + + function Kind$Name$read$(_str$1) { + var $7770 = _str$1; + return $7770; + }; + const Kind$Name$read = x0 => Kind$Name$read$(x0); + const Kind$Parser$list = Kind$Parser$block("list")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7772 = self.err; + var _reply$7 = Kind$Parser$items$("[", Kind$Parser$term, "]")(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7774 = self.err; + var self = $7772; + switch (self._) { + case 'Maybe.some': + var $7776 = self.value; + var $7777 = Parser$Reply$error$(Parser$Error$combine$($7776, $7774)); + var $7775 = $7777; + break; + case 'Maybe.none': + var $7778 = Parser$Reply$error$($7774); + var $7775 = $7778; + break; + }; + var $7773 = $7775; + break; + case 'Parser.Reply.value': + var $7779 = self.pst; + var $7780 = self.val; + var self = $7779; + switch (self._) { + case 'Parser.State.new': + var $7782 = self.err; + var $7783 = self.nam; + var $7784 = self.ini; + var $7785 = self.idx; + var $7786 = self.str; + var $7787 = ((console.log(("FALTANDO " + $7786)), (_$15 => { + var $7788 = ((console.log(("VALUE " + $7783)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7772, $7782), $7783, $7784, $7785, $7786); + var $7789 = Parser$Reply$value$(_reply$pst$17, List$fold$($7780, Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("List.nil")), Kind$Term$hol$(Bits$e)), (_x$18 => _xs$19 => { + var _term$20 = Kind$Term$ref$(Kind$Name$read$("List.cons")); + var _term$21 = Kind$Term$app$(_term$20, Kind$Term$hol$(Bits$e)); + var _term$22 = Kind$Term$app$(_term$21, _x$18); + var _term$23 = Kind$Term$app$(_term$22, _xs$19); + var $7790 = _term$23; + return $7790; + }))); + return $7789; + })())); + return $7788; + })())); + var $7781 = $7787; + break; + }; + var $7773 = $7781; + break; + }; + var $7771 = $7773; + break; + }; + return $7771; + })); + const Kind$Parser$map = Kind$Parser$block("map")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7792 = self.err; + var _reply$7 = Kind$Parser$items$("{", (_pst$7 => { + var self = _pst$7; + switch (self._) { + case 'Parser.State.new': + var $7795 = self.err; + var _reply$13 = Kind$Parser$term(_pst$7); + var self = _reply$13; + switch (self._) { + case 'Parser.Reply.error': + var $7797 = self.err; + var self = $7795; + switch (self._) { + case 'Maybe.some': + var $7799 = self.value; + var $7800 = Parser$Reply$error$(Parser$Error$combine$($7799, $7797)); + var $7798 = $7800; + break; + case 'Maybe.none': + var $7801 = Parser$Reply$error$($7797); + var $7798 = $7801; + break; + }; + var $7796 = $7798; + break; + case 'Parser.Reply.value': + var $7802 = self.pst; + var $7803 = self.val; + var self = $7802; + switch (self._) { + case 'Parser.State.new': + var $7805 = self.err; + var $7806 = self.nam; + var $7807 = self.ini; + var $7808 = self.idx; + var $7809 = self.str; + var $7810 = ((console.log(("FALTANDO " + $7809)), (_$21 => { + var $7811 = ((console.log(("VALUE " + $7806)), (_$22 => { + var _reply$pst$23 = Parser$State$new$(Parser$Error$maybe_combine$($7795, $7805), $7806, $7807, $7808, $7809); + var self = _reply$pst$23; + switch (self._) { + case 'Parser.State.new': + var $7813 = self.err; + var _reply$29 = Kind$Parser$text$(":", _reply$pst$23); + var self = _reply$29; + switch (self._) { + case 'Parser.Reply.error': + var $7815 = self.err; + var self = $7813; + switch (self._) { + case 'Maybe.some': + var $7817 = self.value; + var $7818 = Parser$Reply$error$(Parser$Error$combine$($7817, $7815)); + var $7816 = $7818; + break; + case 'Maybe.none': + var $7819 = Parser$Reply$error$($7815); + var $7816 = $7819; + break; + }; + var $7814 = $7816; + break; + case 'Parser.Reply.value': + var $7820 = self.pst; + var self = $7820; + switch (self._) { + case 'Parser.State.new': + var $7822 = self.err; + var $7823 = self.nam; + var $7824 = self.ini; + var $7825 = self.idx; + var $7826 = self.str; + var $7827 = ((console.log(("FALTANDO " + $7826)), (_$37 => { + var $7828 = ((console.log(("VALUE " + $7823)), (_$38 => { + var _reply$pst$39 = Parser$State$new$(Parser$Error$maybe_combine$($7813, $7822), $7823, $7824, $7825, $7826); + var self = _reply$pst$39; + switch (self._) { + case 'Parser.State.new': + var $7830 = self.err; + var _reply$45 = Kind$Parser$term(_reply$pst$39); + var self = _reply$45; + switch (self._) { + case 'Parser.Reply.error': + var $7832 = self.err; + var self = $7830; + switch (self._) { + case 'Maybe.some': + var $7834 = self.value; + var $7835 = Parser$Reply$error$(Parser$Error$combine$($7834, $7832)); + var $7833 = $7835; + break; + case 'Maybe.none': + var $7836 = Parser$Reply$error$($7832); + var $7833 = $7836; + break; + }; + var $7831 = $7833; + break; + case 'Parser.Reply.value': + var $7837 = self.pst; + var $7838 = self.val; + var self = $7837; + switch (self._) { + case 'Parser.State.new': + var $7840 = self.err; + var $7841 = self.nam; + var $7842 = self.ini; + var $7843 = self.idx; + var $7844 = self.str; + var $7845 = ((console.log(("FALTANDO " + $7844)), (_$53 => { + var $7846 = ((console.log(("VALUE " + $7841)), (_$54 => { + var _reply$pst$55 = Parser$State$new$(Parser$Error$maybe_combine$($7830, $7840), $7841, $7842, $7843, $7844); + var $7847 = Parser$Reply$value$(_reply$pst$55, Pair$new$($7803, $7838)); + return $7847; + })())); + return $7846; + })())); + var $7839 = $7845; + break; + }; + var $7831 = $7839; + break; + }; + var $7829 = $7831; + break; + }; + return $7829; + })())); + return $7828; + })())); + var $7821 = $7827; + break; + }; + var $7814 = $7821; + break; + }; + var $7812 = $7814; + break; + }; + return $7812; + })())); + return $7811; + })())); + var $7804 = $7810; + break; + }; + var $7796 = $7804; + break; + }; + var $7794 = $7796; + break; + }; + return $7794; + }), "}")(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7848 = self.err; + var self = $7792; + switch (self._) { + case 'Maybe.some': + var $7850 = self.value; + var $7851 = Parser$Reply$error$(Parser$Error$combine$($7850, $7848)); + var $7849 = $7851; + break; + case 'Maybe.none': + var $7852 = Parser$Reply$error$($7848); + var $7849 = $7852; + break; + }; + var $7793 = $7849; + break; + case 'Parser.Reply.value': + var $7853 = self.pst; + var $7854 = self.val; + var self = $7853; + switch (self._) { + case 'Parser.State.new': + var $7856 = self.err; + var $7857 = self.nam; + var $7858 = self.ini; + var $7859 = self.idx; + var $7860 = self.str; + var $7861 = ((console.log(("FALTANDO " + $7860)), (_$15 => { + var $7862 = ((console.log(("VALUE " + $7857)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7792, $7856), $7857, $7858, $7859, $7860); + var _list$18 = List$fold$($7854, Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)), (_kv$18 => _xs$19 => { + var self = _kv$18; + switch (self._) { + case 'Pair.new': + var $7865 = self.fst; + var $7866 = self.snd; + var _pair$22 = Kind$Term$ref$("Pair.new"); + var _pair$23 = Kind$Term$app$(_pair$22, Kind$Term$hol$(Bits$e)); + var _pair$24 = Kind$Term$app$(_pair$23, Kind$Term$hol$(Bits$e)); + var _pair$25 = Kind$Term$app$(_pair$24, $7865); + var _pair$26 = Kind$Term$app$(_pair$25, $7866); + var _term$27 = Kind$Term$ref$("List.cons"); + var _term$28 = Kind$Term$app$(_term$27, Kind$Term$hol$(Bits$e)); + var _term$29 = Kind$Term$app$(_term$28, _pair$26); + var _term$30 = Kind$Term$app$(_term$29, _xs$19); + var $7867 = _term$30; + var $7864 = $7867; + break; + }; + return $7864; + })); + var _term$19 = Kind$Term$ref$("Map.from_list"); + var _term$20 = Kind$Term$app$(_term$19, Kind$Term$hol$(Bits$e)); + var _term$21 = Kind$Term$app$(_term$20, _list$18); + var $7863 = Parser$Reply$value$(_reply$pst$17, _term$21); + return $7863; + })())); + return $7862; + })())); + var $7855 = $7861; + break; + }; + var $7793 = $7855; + break; + }; + var $7791 = $7793; + break; + }; + return $7791; + })); + + function Kind$Parser$log$(_body$1) { + var $7868 = Kind$Parser$block("log")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $7870 = self.err; + var _reply$8 = Kind$Parser$text$("log(", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $7872 = self.err; + var self = $7870; + switch (self._) { + case 'Maybe.some': + var $7874 = self.value; + var $7875 = Parser$Reply$error$(Parser$Error$combine$($7874, $7872)); + var $7873 = $7875; + break; + case 'Maybe.none': + var $7876 = Parser$Reply$error$($7872); + var $7873 = $7876; + break; + }; + var $7871 = $7873; + break; + case 'Parser.Reply.value': + var $7877 = self.pst; + var self = $7877; + switch (self._) { + case 'Parser.State.new': + var $7879 = self.err; + var $7880 = self.nam; + var $7881 = self.ini; + var $7882 = self.idx; + var $7883 = self.str; + var $7884 = ((console.log(("FALTANDO " + $7883)), (_$16 => { + var $7885 = ((console.log(("VALUE " + $7880)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($7870, $7879), $7880, $7881, $7882, $7883); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $7887 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $7889 = self.err; + var self = $7887; + switch (self._) { + case 'Maybe.some': + var $7891 = self.value; + var $7892 = Parser$Reply$error$(Parser$Error$combine$($7891, $7889)); + var $7890 = $7892; + break; + case 'Maybe.none': + var $7893 = Parser$Reply$error$($7889); + var $7890 = $7893; + break; + }; + var $7888 = $7890; + break; + case 'Parser.Reply.value': + var $7894 = self.pst; + var $7895 = self.val; + var self = $7894; + switch (self._) { + case 'Parser.State.new': + var $7897 = self.err; + var $7898 = self.nam; + var $7899 = self.ini; + var $7900 = self.idx; + var $7901 = self.str; + var $7902 = ((console.log(("FALTANDO " + $7901)), (_$32 => { + var $7903 = ((console.log(("VALUE " + $7898)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($7887, $7897), $7898, $7899, $7900, $7901); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $7905 = self.err; + var _reply$40 = Kind$Parser$text$(")", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $7907 = self.err; + var self = $7905; + switch (self._) { + case 'Maybe.some': + var $7909 = self.value; + var $7910 = Parser$Reply$error$(Parser$Error$combine$($7909, $7907)); + var $7908 = $7910; + break; + case 'Maybe.none': + var $7911 = Parser$Reply$error$($7907); + var $7908 = $7911; + break; + }; + var $7906 = $7908; + break; + case 'Parser.Reply.value': + var $7912 = self.pst; + var self = $7912; + switch (self._) { + case 'Parser.State.new': + var $7914 = self.err; + var $7915 = self.nam; + var $7916 = self.ini; + var $7917 = self.idx; + var $7918 = self.str; + var $7919 = ((console.log(("FALTANDO " + $7918)), (_$48 => { + var $7920 = ((console.log(("VALUE " + $7915)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($7905, $7914), $7915, $7916, $7917, $7918); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $7922 = self.err; + var _reply$56 = _body$1(Unit$new)(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $7924 = self.err; + var self = $7922; + switch (self._) { + case 'Maybe.some': + var $7926 = self.value; + var $7927 = Parser$Reply$error$(Parser$Error$combine$($7926, $7924)); + var $7925 = $7927; + break; + case 'Maybe.none': + var $7928 = Parser$Reply$error$($7924); + var $7925 = $7928; + break; + }; + var $7923 = $7925; + break; + case 'Parser.Reply.value': + var $7929 = self.pst; + var $7930 = self.val; + var self = $7929; + switch (self._) { + case 'Parser.State.new': + var $7932 = self.err; + var $7933 = self.nam; + var $7934 = self.ini; + var $7935 = self.idx; + var $7936 = self.str; + var $7937 = ((console.log(("FALTANDO " + $7936)), (_$64 => { + var $7938 = ((console.log(("VALUE " + $7933)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($7922, $7932), $7933, $7934, $7935, $7936); + var _term$67 = Kind$Term$ref$("Debug.log"); + var _term$68 = Kind$Term$app$(_term$67, Kind$Term$hol$(Bits$e)); + var _term$69 = Kind$Term$app$(_term$68, $7895); + var _term$70 = Kind$Term$app$(_term$69, Kind$Term$lam$("", (_x$70 => { + var $7940 = $7930; + return $7940; + }))); + var $7939 = Parser$Reply$value$(_reply$pst$66, _term$70); + return $7939; + })())); + return $7938; + })())); + var $7931 = $7937; + break; + }; + var $7923 = $7931; + break; + }; + var $7921 = $7923; + break; + }; + return $7921; + })())); + return $7920; + })())); + var $7913 = $7919; + break; + }; + var $7906 = $7913; + break; + }; + var $7904 = $7906; + break; + }; + return $7904; + })())); + return $7903; + })())); + var $7896 = $7902; + break; + }; + var $7888 = $7896; + break; + }; + var $7886 = $7888; + break; + }; + return $7886; + })())); + return $7885; + })())); + var $7878 = $7884; + break; + }; + var $7871 = $7878; + break; + }; + var $7869 = $7871; + break; + }; + return $7869; + })); + return $7868; + }; + const Kind$Parser$log = x0 => Kind$Parser$log$(x0); + + function String$map$(_f$1, _as$2) { + var self = _as$2; + if (self.length === 0) { + var $7942 = String$nil; + var $7941 = $7942; + } else { + var $7943 = self.charCodeAt(0); + var $7944 = self.slice(1); + var $7945 = String$cons$(_f$1($7943), String$map$(_f$1, $7944)); + var $7941 = $7945; + }; + return $7941; + }; + const String$map = x0 => x1 => String$map$(x0, x1); + + function Char$to_upper$(_char$1) { + var self = ((_char$1 >= 97) && (_char$1 <= 122)); + if (self) { + var $7947 = ((_char$1 - 32) & 0xFFFF); + var $7946 = $7947; + } else { + var $7948 = _char$1; + var $7946 = $7948; + }; + return $7946; + }; + const Char$to_upper = x0 => Char$to_upper$(x0); + + function String$to_upper$(_str$1) { + var $7949 = String$map$(Char$to_upper, _str$1); + return $7949; + }; + const String$to_upper = x0 => String$to_upper$(x0); + + function String$is_upper$(_str$1) { + var $7950 = (String$to_upper$(_str$1) === _str$1); + return $7950; + }; + const String$is_upper = x0 => String$is_upper$(x0); + + function String$take$(_n$1, _xs$2) { + var self = _xs$2; + if (self.length === 0) { + var $7952 = String$nil; + var $7951 = $7952; + } else { + var $7953 = self.charCodeAt(0); + var $7954 = self.slice(1); + var self = _n$1; + if (self === 0n) { + var $7956 = String$nil; + var $7955 = $7956; + } else { + var $7957 = (self - 1n); + var $7958 = String$cons$($7953, String$take$($7957, $7954)); + var $7955 = $7958; + }; + var $7951 = $7955; + }; + return $7951; + }; + const String$take = x0 => x1 => String$take$(x0, x1); + const Nat$sub = a0 => a1 => (a0 - a1 <= 0n ? 0n : a0 - a1); + + function String$slice$(_i$1, _j$2, _xs$3) { + var $7959 = String$take$((_j$2 - _i$1 <= 0n ? 0n : _j$2 - _i$1), String$drop$(_i$1, _xs$3)); + return $7959; + }; + const String$slice = x0 => x1 => x2 => String$slice$(x0, x1, x2); + + function Kind$Term$unroll_nat$(_natx$1) { + var self = _natx$1; + if (self === 0n) { + var $7961 = Kind$Term$ref$(Kind$Name$read$("Nat.zero")); + var $7960 = $7961; + } else { + var $7962 = (self - 1n); + var _func$3 = Kind$Term$ref$(Kind$Name$read$("Nat.succ")); + var _argm$4 = Kind$Term$nat$($7962); + var $7963 = Kind$Term$app$(_func$3, _argm$4); + var $7960 = $7963; + }; + return $7960; + }; + const Kind$Term$unroll_nat = x0 => Kind$Term$unroll_nat$(x0); + const U16$to_bits = a0 => (u16_to_bits(a0)); + + function Kind$Term$unroll_chr$bits$(_bits$1) { + var self = _bits$1; + switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { + case 'o': + var $7965 = self.slice(0, -1); + var $7966 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.o")), Kind$Term$unroll_chr$bits$($7965)); + var $7964 = $7966; + break; + case 'i': + var $7967 = self.slice(0, -1); + var $7968 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.i")), Kind$Term$unroll_chr$bits$($7967)); + var $7964 = $7968; + break; + case 'e': + var $7969 = Kind$Term$ref$(Kind$Name$read$("Bits.e")); + var $7964 = $7969; + break; + }; + return $7964; + }; + const Kind$Term$unroll_chr$bits = x0 => Kind$Term$unroll_chr$bits$(x0); + + function Kind$Term$unroll_chr$(_chrx$1) { + var _bits$2 = (u16_to_bits(_chrx$1)); + var _term$3 = Kind$Term$ref$(Kind$Name$read$("Word.from_bits")); + var _term$4 = Kind$Term$app$(_term$3, Kind$Term$nat$(16n)); + var _term$5 = Kind$Term$app$(_term$4, Kind$Term$unroll_chr$bits$(_bits$2)); + var _term$6 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("U16.new")), _term$5); + var $7970 = _term$6; + return $7970; + }; + const Kind$Term$unroll_chr = x0 => Kind$Term$unroll_chr$(x0); + + function Kind$Term$unroll_str$(_strx$1) { + var self = _strx$1; + if (self.length === 0) { + var $7972 = Kind$Term$ref$(Kind$Name$read$("String.nil")); + var $7971 = $7972; + } else { + var $7973 = self.charCodeAt(0); + var $7974 = self.slice(1); + var _char$4 = Kind$Term$chr$($7973); + var _term$5 = Kind$Term$ref$(Kind$Name$read$("String.cons")); + var _term$6 = Kind$Term$app$(_term$5, _char$4); + var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$($7974)); + var $7975 = _term$7; + var $7971 = $7975; + }; + return $7971; + }; + const Kind$Term$unroll_str = x0 => Kind$Term$unroll_str$(x0); + + function Kind$Term$reduce$(_term$1, _defs$2) { + var self = _term$1; + switch (self._) { + case 'Kind.Term.ref': + var $7977 = self.name; + var self = Kind$Map$get$($7977, _defs$2); + switch (self._) { + case 'Maybe.some': + var $7979 = self.value; + var self = $7979; + switch (self._) { + case 'Kind.Def.new': + var $7981 = self.term; + var $7982 = Kind$Term$reduce$($7981, _defs$2); + var $7980 = $7982; + break; + }; + var $7978 = $7980; + break; + case 'Maybe.none': + var $7983 = Kind$Term$ref$($7977); + var $7978 = $7983; + break; + }; + var $7976 = $7978; + break; + case 'Kind.Term.app': + var $7984 = self.func; + var $7985 = self.argm; + var _func$5 = Kind$Term$reduce$($7984, _defs$2); + var self = _func$5; + switch (self._) { + case 'Kind.Term.lam': + var $7987 = self.body; + var $7988 = Kind$Term$reduce$($7987($7985), _defs$2); + var $7986 = $7988; + break; + case 'Kind.Term.var': + case 'Kind.Term.ref': + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.app': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + case 'Kind.Term.ori': + var $7989 = _term$1; + var $7986 = $7989; + break; + }; + var $7976 = $7986; + break; + case 'Kind.Term.let': + var $7990 = self.expr; + var $7991 = self.body; + var $7992 = Kind$Term$reduce$($7991($7990), _defs$2); + var $7976 = $7992; + break; + case 'Kind.Term.def': + var $7993 = self.expr; + var $7994 = self.body; + var $7995 = Kind$Term$reduce$($7994($7993), _defs$2); + var $7976 = $7995; + break; + case 'Kind.Term.ann': + var $7996 = self.term; + var $7997 = Kind$Term$reduce$($7996, _defs$2); + var $7976 = $7997; + break; + case 'Kind.Term.nat': + var $7998 = self.natx; + var $7999 = Kind$Term$reduce$(Kind$Term$unroll_nat$($7998), _defs$2); + var $7976 = $7999; + break; + case 'Kind.Term.chr': + var $8000 = self.chrx; + var $8001 = Kind$Term$reduce$(Kind$Term$unroll_chr$($8000), _defs$2); + var $7976 = $8001; + break; + case 'Kind.Term.str': + var $8002 = self.strx; + var $8003 = Kind$Term$reduce$(Kind$Term$unroll_str$($8002), _defs$2); + var $7976 = $8003; + break; + case 'Kind.Term.ori': + var $8004 = self.expr; + var $8005 = Kind$Term$reduce$($8004, _defs$2); + var $7976 = $8005; + break; + case 'Kind.Term.var': + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + var $8006 = _term$1; + var $7976 = $8006; + break; + }; + return $7976; + }; + const Kind$Term$reduce = x0 => x1 => Kind$Term$reduce$(x0, x1); + + function Kind$Parser$open$(_body$1) { + var $8007 = Kind$Parser$block("open")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $8009 = self.err; + var _reply$8 = Kind$Parser$text$("open ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $8011 = self.err; + var self = $8009; + switch (self._) { + case 'Maybe.some': + var $8013 = self.value; + var $8014 = Parser$Reply$error$(Parser$Error$combine$($8013, $8011)); + var $8012 = $8014; + break; + case 'Maybe.none': + var $8015 = Parser$Reply$error$($8011); + var $8012 = $8015; + break; + }; + var $8010 = $8012; + break; + case 'Parser.Reply.value': + var $8016 = self.pst; + var self = $8016; + switch (self._) { + case 'Parser.State.new': + var $8018 = self.err; + var $8019 = self.nam; + var $8020 = self.ini; + var $8021 = self.idx; + var $8022 = self.str; + var $8023 = ((console.log(("FALTANDO " + $8022)), (_$16 => { + var $8024 = ((console.log(("VALUE " + $8019)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8009, $8018), $8019, $8020, $8021, $8022); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $8026 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $8028 = self.err; + var self = $8026; + switch (self._) { + case 'Maybe.some': + var $8030 = self.value; + var $8031 = Parser$Reply$error$(Parser$Error$combine$($8030, $8028)); + var $8029 = $8031; + break; + case 'Maybe.none': + var $8032 = Parser$Reply$error$($8028); + var $8029 = $8032; + break; + }; + var $8027 = $8029; + break; + case 'Parser.Reply.value': + var $8033 = self.pst; + var $8034 = self.val; + var self = $8033; + switch (self._) { + case 'Parser.State.new': + var $8036 = self.err; + var $8037 = self.nam; + var $8038 = self.ini; + var $8039 = self.idx; + var $8040 = self.str; + var $8041 = ((console.log(("FALTANDO " + $8040)), (_$32 => { + var $8042 = ((console.log(("VALUE " + $8037)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8026, $8036), $8037, $8038, $8039, $8040); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $8044 = self.err; + var _reply$40 = Parser$maybe$((_pst$40 => { + var self = _pst$40; + switch (self._) { + case 'Parser.State.new': + var $8047 = self.err; + var _reply$46 = Kind$Parser$text$("as", _pst$40); + var self = _reply$46; + switch (self._) { + case 'Parser.Reply.error': + var $8049 = self.err; + var self = $8047; + switch (self._) { + case 'Maybe.some': + var $8051 = self.value; + var $8052 = Parser$Reply$error$(Parser$Error$combine$($8051, $8049)); + var $8050 = $8052; + break; + case 'Maybe.none': + var $8053 = Parser$Reply$error$($8049); + var $8050 = $8053; + break; + }; + var $8048 = $8050; + break; + case 'Parser.Reply.value': + var $8054 = self.pst; + var self = $8054; + switch (self._) { + case 'Parser.State.new': + var $8056 = self.err; + var $8057 = self.nam; + var $8058 = self.ini; + var $8059 = self.idx; + var $8060 = self.str; + var $8061 = ((console.log(("FALTANDO " + $8060)), (_$54 => { + var $8062 = ((console.log(("VALUE " + $8057)), (_$55 => { + var _reply$pst$56 = Parser$State$new$(Parser$Error$maybe_combine$($8047, $8056), $8057, $8058, $8059, $8060); + var $8063 = Kind$Parser$name1$(_reply$pst$56); + return $8063; + })())); + return $8062; + })())); + var $8055 = $8061; + break; + }; + var $8048 = $8055; + break; + }; + var $8046 = $8048; + break; + }; + return $8046; + }), _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $8064 = self.err; + var self = $8044; + switch (self._) { + case 'Maybe.some': + var $8066 = self.value; + var $8067 = Parser$Reply$error$(Parser$Error$combine$($8066, $8064)); + var $8065 = $8067; + break; + case 'Maybe.none': + var $8068 = Parser$Reply$error$($8064); + var $8065 = $8068; + break; + }; + var $8045 = $8065; + break; + case 'Parser.Reply.value': + var $8069 = self.pst; + var $8070 = self.val; + var self = $8069; + switch (self._) { + case 'Parser.State.new': + var $8072 = self.err; + var $8073 = self.nam; + var $8074 = self.ini; + var $8075 = self.idx; + var $8076 = self.str; + var $8077 = ((console.log(("FALTANDO " + $8076)), (_$48 => { + var $8078 = ((console.log(("VALUE " + $8073)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8044, $8072), $8073, $8074, $8075, $8076); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $8080 = self.err; + var _reply$56 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $8082 = self.err; + var self = $8080; + switch (self._) { + case 'Maybe.some': + var $8084 = self.value; + var $8085 = Parser$Reply$error$(Parser$Error$combine$($8084, $8082)); + var $8083 = $8085; + break; + case 'Maybe.none': + var $8086 = Parser$Reply$error$($8082); + var $8083 = $8086; + break; + }; + var $8081 = $8083; + break; + case 'Parser.Reply.value': + var $8087 = self.pst; + var self = $8087; + switch (self._) { + case 'Parser.State.new': + var $8089 = self.err; + var $8090 = self.nam; + var $8091 = self.ini; + var $8092 = self.idx; + var $8093 = self.str; + var $8094 = ((console.log(("FALTANDO " + $8093)), (_$64 => { + var $8095 = ((console.log(("VALUE " + $8090)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8080, $8089), $8090, $8091, $8092, $8093); + var self = $8070; + switch (self._) { + case 'Maybe.some': + var $8097 = self.value; + var $8098 = $8097; + var _name$67 = $8098; + break; + case 'Maybe.none': + var self = Kind$Term$reduce$($8034, Kind$Map$new); + switch (self._) { + case 'Kind.Term.var': + var $8100 = self.name; + var $8101 = $8100; + var $8099 = $8101; + break; + case 'Kind.Term.ref': + var $8102 = self.name; + var $8103 = $8102; + var $8099 = $8103; + break; + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.app': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + case 'Kind.Term.ori': + var $8104 = Kind$Name$read$("self"); + var $8099 = $8104; + break; + }; + var _name$67 = $8099; + break; + }; + var _wyth$68 = List$nil; + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $8105 = self.err; + var _reply$74 = _body$1(Unit$new)(_reply$pst$66); + var self = _reply$74; + switch (self._) { + case 'Parser.Reply.error': + var $8107 = self.err; + var self = $8105; + switch (self._) { + case 'Maybe.some': + var $8109 = self.value; + var $8110 = Parser$Reply$error$(Parser$Error$combine$($8109, $8107)); + var $8108 = $8110; + break; + case 'Maybe.none': + var $8111 = Parser$Reply$error$($8107); + var $8108 = $8111; + break; + }; + var $8106 = $8108; + break; + case 'Parser.Reply.value': + var $8112 = self.pst; + var $8113 = self.val; + var self = $8112; + switch (self._) { + case 'Parser.State.new': + var $8115 = self.err; + var $8116 = self.nam; + var $8117 = self.ini; + var $8118 = self.idx; + var $8119 = self.str; + var $8120 = ((console.log(("FALTANDO " + $8119)), (_$82 => { + var $8121 = ((console.log(("VALUE " + $8116)), (_$83 => { + var _reply$pst$84 = Parser$State$new$(Parser$Error$maybe_combine$($8105, $8115), $8116, $8117, $8118, $8119); + var _cses$85 = Kind$Map$set$("_", $8113, Kind$Map$new); + var _moti$86 = Maybe$some$(Kind$Term$hol$(Bits$e)); + var $8122 = Parser$Reply$value$(_reply$pst$84, Kind$Term$cse$(Bits$e, $8034, _name$67, _wyth$68, _cses$85, _moti$86)); + return $8122; + })())); + return $8121; + })())); + var $8114 = $8120; + break; + }; + var $8106 = $8114; + break; + }; + var $8096 = $8106; + break; + }; + return $8096; + })())); + return $8095; + })())); + var $8088 = $8094; + break; + }; + var $8081 = $8088; + break; + }; + var $8079 = $8081; + break; + }; + return $8079; + })())); + return $8078; + })())); + var $8071 = $8077; + break; + }; + var $8045 = $8071; + break; + }; + var $8043 = $8045; + break; + }; + return $8043; + })())); + return $8042; + })())); + var $8035 = $8041; + break; + }; + var $8027 = $8035; + break; + }; + var $8025 = $8027; + break; + }; + return $8025; + })())); + return $8024; + })())); + var $8017 = $8023; + break; + }; + var $8010 = $8017; + break; + }; + var $8008 = $8010; + break; + }; + return $8008; + })); + return $8007; + }; + const Kind$Parser$open = x0 => Kind$Parser$open$(x0); + + function Kind$Parser$do$statements$(_monad_name$1) { + var $8123 = Parser$choice(List$cons$(Kind$Parser$block("do-get")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $8125 = self.err; + var _reply$8 = Parser$choice$(List$cons$(Kind$Parser$text("var "), List$cons$(Kind$Parser$text("get "), List$nil)), _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $8127 = self.err; + var self = $8125; + switch (self._) { + case 'Maybe.some': + var $8129 = self.value; + var $8130 = Parser$Reply$error$(Parser$Error$combine$($8129, $8127)); + var $8128 = $8130; + break; + case 'Maybe.none': + var $8131 = Parser$Reply$error$($8127); + var $8128 = $8131; + break; + }; + var $8126 = $8128; + break; + case 'Parser.Reply.value': + var $8132 = self.pst; + var self = $8132; + switch (self._) { + case 'Parser.State.new': + var $8134 = self.err; + var $8135 = self.nam; + var $8136 = self.ini; + var $8137 = self.idx; + var $8138 = self.str; + var $8139 = ((console.log(("FALTANDO " + $8138)), (_$16 => { + var $8140 = ((console.log(("VALUE " + $8135)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8125, $8134), $8135, $8136, $8137, $8138); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $8142 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $8144 = self.err; + var self = $8142; + switch (self._) { + case 'Maybe.some': + var $8146 = self.value; + var $8147 = Parser$Reply$error$(Parser$Error$combine$($8146, $8144)); + var $8145 = $8147; + break; + case 'Maybe.none': + var $8148 = Parser$Reply$error$($8144); + var $8145 = $8148; + break; + }; + var $8143 = $8145; + break; + case 'Parser.Reply.value': + var $8149 = self.pst; + var $8150 = self.val; + var self = $8149; + switch (self._) { + case 'Parser.State.new': + var $8152 = self.err; + var $8153 = self.nam; + var $8154 = self.ini; + var $8155 = self.idx; + var $8156 = self.str; + var $8157 = ((console.log(("FALTANDO " + $8156)), (_$32 => { + var $8158 = ((console.log(("VALUE " + $8153)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8142, $8152), $8153, $8154, $8155, $8156); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $8160 = self.err; + var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $8162 = self.err; + var self = $8160; + switch (self._) { + case 'Maybe.some': + var $8164 = self.value; + var $8165 = Parser$Reply$error$(Parser$Error$combine$($8164, $8162)); + var $8163 = $8165; + break; + case 'Maybe.none': + var $8166 = Parser$Reply$error$($8162); + var $8163 = $8166; + break; + }; + var $8161 = $8163; + break; + case 'Parser.Reply.value': + var $8167 = self.pst; + var self = $8167; + switch (self._) { + case 'Parser.State.new': + var $8169 = self.err; + var $8170 = self.nam; + var $8171 = self.ini; + var $8172 = self.idx; + var $8173 = self.str; + var $8174 = ((console.log(("FALTANDO " + $8173)), (_$48 => { + var $8175 = ((console.log(("VALUE " + $8170)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8160, $8169), $8170, $8171, $8172, $8173); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $8177 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $8179 = self.err; + var self = $8177; + switch (self._) { + case 'Maybe.some': + var $8181 = self.value; + var $8182 = Parser$Reply$error$(Parser$Error$combine$($8181, $8179)); + var $8180 = $8182; + break; + case 'Maybe.none': + var $8183 = Parser$Reply$error$($8179); + var $8180 = $8183; + break; + }; + var $8178 = $8180; + break; + case 'Parser.Reply.value': + var $8184 = self.pst; + var $8185 = self.val; + var self = $8184; + switch (self._) { + case 'Parser.State.new': + var $8187 = self.err; + var $8188 = self.nam; + var $8189 = self.ini; + var $8190 = self.idx; + var $8191 = self.str; + var $8192 = ((console.log(("FALTANDO " + $8191)), (_$64 => { + var $8193 = ((console.log(("VALUE " + $8188)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8177, $8187), $8188, $8189, $8190, $8191); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $8195 = self.err; + var _reply$72 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $8197 = self.err; + var self = $8195; + switch (self._) { + case 'Maybe.some': + var $8199 = self.value; + var $8200 = Parser$Reply$error$(Parser$Error$combine$($8199, $8197)); + var $8198 = $8200; + break; + case 'Maybe.none': + var $8201 = Parser$Reply$error$($8197); + var $8198 = $8201; + break; + }; + var $8196 = $8198; + break; + case 'Parser.Reply.value': + var $8202 = self.pst; + var self = $8202; + switch (self._) { + case 'Parser.State.new': + var $8204 = self.err; + var $8205 = self.nam; + var $8206 = self.ini; + var $8207 = self.idx; + var $8208 = self.str; + var $8209 = ((console.log(("FALTANDO " + $8208)), (_$80 => { + var $8210 = ((console.log(("VALUE " + $8205)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($8195, $8204), $8205, $8206, $8207, $8208); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $8212 = self.err; + var _reply$88 = Kind$Parser$do$statements$(_monad_name$1)(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $8214 = self.err; + var self = $8212; + switch (self._) { + case 'Maybe.some': + var $8216 = self.value; + var $8217 = Parser$Reply$error$(Parser$Error$combine$($8216, $8214)); + var $8215 = $8217; + break; + case 'Maybe.none': + var $8218 = Parser$Reply$error$($8214); + var $8215 = $8218; + break; + }; + var $8213 = $8215; + break; + case 'Parser.Reply.value': + var $8219 = self.pst; + var $8220 = self.val; + var self = $8219; + switch (self._) { + case 'Parser.State.new': + var $8222 = self.err; + var $8223 = self.nam; + var $8224 = self.ini; + var $8225 = self.idx; + var $8226 = self.str; + var $8227 = ((console.log(("FALTANDO " + $8226)), (_$96 => { + var $8228 = ((console.log(("VALUE " + $8223)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($8212, $8222), $8223, $8224, $8225, $8226); + var _term$99 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); + var _term$100 = Kind$Term$app$(_term$99, Kind$Term$ref$((_monad_name$1 + ".monad"))); + var _term$101 = Kind$Term$app$(_term$100, Kind$Term$hol$(Bits$e)); + var _term$102 = Kind$Term$app$(_term$101, Kind$Term$hol$(Bits$e)); + var _term$103 = Kind$Term$app$(_term$102, $8185); + var _term$104 = Kind$Term$app$(_term$103, Kind$Term$lam$($8150, (_x$104 => { + var $8230 = $8220; + return $8230; + }))); + var $8229 = Parser$Reply$value$(_reply$pst$98, _term$104); + return $8229; + })())); + return $8228; + })())); + var $8221 = $8227; + break; + }; + var $8213 = $8221; + break; + }; + var $8211 = $8213; + break; + }; + return $8211; + })())); + return $8210; + })())); + var $8203 = $8209; + break; + }; + var $8196 = $8203; + break; + }; + var $8194 = $8196; + break; + }; + return $8194; + })())); + return $8193; + })())); + var $8186 = $8192; + break; + }; + var $8178 = $8186; + break; + }; + var $8176 = $8178; + break; + }; + return $8176; + })())); + return $8175; + })())); + var $8168 = $8174; + break; + }; + var $8161 = $8168; + break; + }; + var $8159 = $8161; + break; + }; + return $8159; + })())); + return $8158; + })())); + var $8151 = $8157; + break; + }; + var $8143 = $8151; + break; + }; + var $8141 = $8143; + break; + }; + return $8141; + })())); + return $8140; + })())); + var $8133 = $8139; + break; + }; + var $8126 = $8133; + break; + }; + var $8124 = $8126; + break; + }; + return $8124; + })), List$cons$(Kind$Parser$block("do-return")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $8232 = self.err; + var _reply$8 = Kind$Parser$text$("return ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $8234 = self.err; + var self = $8232; + switch (self._) { + case 'Maybe.some': + var $8236 = self.value; + var $8237 = Parser$Reply$error$(Parser$Error$combine$($8236, $8234)); + var $8235 = $8237; + break; + case 'Maybe.none': + var $8238 = Parser$Reply$error$($8234); + var $8235 = $8238; + break; + }; + var $8233 = $8235; + break; + case 'Parser.Reply.value': + var $8239 = self.pst; + var self = $8239; + switch (self._) { + case 'Parser.State.new': + var $8241 = self.err; + var $8242 = self.nam; + var $8243 = self.ini; + var $8244 = self.idx; + var $8245 = self.str; + var $8246 = ((console.log(("FALTANDO " + $8245)), (_$16 => { + var $8247 = ((console.log(("VALUE " + $8242)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8232, $8241), $8242, $8243, $8244, $8245); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $8249 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $8251 = self.err; + var self = $8249; + switch (self._) { + case 'Maybe.some': + var $8253 = self.value; + var $8254 = Parser$Reply$error$(Parser$Error$combine$($8253, $8251)); + var $8252 = $8254; + break; + case 'Maybe.none': + var $8255 = Parser$Reply$error$($8251); + var $8252 = $8255; + break; + }; + var $8250 = $8252; + break; + case 'Parser.Reply.value': + var $8256 = self.pst; + var $8257 = self.val; + var self = $8256; + switch (self._) { + case 'Parser.State.new': + var $8259 = self.err; + var $8260 = self.nam; + var $8261 = self.ini; + var $8262 = self.idx; + var $8263 = self.str; + var $8264 = ((console.log(("FALTANDO " + $8263)), (_$32 => { + var $8265 = ((console.log(("VALUE " + $8260)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8249, $8259), $8260, $8261, $8262, $8263); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $8267 = self.err; + var _reply$40 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $8269 = self.err; + var self = $8267; + switch (self._) { + case 'Maybe.some': + var $8271 = self.value; + var $8272 = Parser$Reply$error$(Parser$Error$combine$($8271, $8269)); + var $8270 = $8272; + break; + case 'Maybe.none': + var $8273 = Parser$Reply$error$($8269); + var $8270 = $8273; + break; + }; + var $8268 = $8270; + break; + case 'Parser.Reply.value': + var $8274 = self.pst; + var self = $8274; + switch (self._) { + case 'Parser.State.new': + var $8276 = self.err; + var $8277 = self.nam; + var $8278 = self.ini; + var $8279 = self.idx; + var $8280 = self.str; + var $8281 = ((console.log(("FALTANDO " + $8280)), (_$48 => { + var $8282 = ((console.log(("VALUE " + $8277)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8267, $8276), $8277, $8278, $8279, $8280); + var _term$51 = Kind$Term$app$(Kind$Term$ref$("Monad.pure"), Kind$Term$ref$(_monad_name$1)); + var _term$52 = Kind$Term$app$(_term$51, Kind$Term$ref$((_monad_name$1 + ".monad"))); + var _term$53 = Kind$Term$app$(_term$52, Kind$Term$hol$(Bits$e)); + var _term$54 = Kind$Term$app$(_term$53, $8257); + var $8283 = Parser$Reply$value$(_reply$pst$50, _term$54); + return $8283; + })())); + return $8282; + })())); + var $8275 = $8281; + break; + }; + var $8268 = $8275; + break; + }; + var $8266 = $8268; + break; + }; + return $8266; + })())); + return $8265; + })())); + var $8258 = $8264; + break; + }; + var $8250 = $8258; + break; + }; + var $8248 = $8250; + break; + }; + return $8248; + })())); + return $8247; + })())); + var $8240 = $8246; + break; + }; + var $8233 = $8240; + break; + }; + var $8231 = $8233; + break; + }; + return $8231; + })), List$cons$(Kind$Parser$block("do-for-range")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $8285 = self.err; + var _reply$8 = Kind$Parser$text$("for ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $8287 = self.err; + var self = $8285; + switch (self._) { + case 'Maybe.some': + var $8289 = self.value; + var $8290 = Parser$Reply$error$(Parser$Error$combine$($8289, $8287)); + var $8288 = $8290; + break; + case 'Maybe.none': + var $8291 = Parser$Reply$error$($8287); + var $8288 = $8291; + break; + }; + var $8286 = $8288; + break; + case 'Parser.Reply.value': + var $8292 = self.pst; + var self = $8292; + switch (self._) { + case 'Parser.State.new': + var $8294 = self.err; + var $8295 = self.nam; + var $8296 = self.ini; + var $8297 = self.idx; + var $8298 = self.str; + var $8299 = ((console.log(("FALTANDO " + $8298)), (_$16 => { + var $8300 = ((console.log(("VALUE " + $8295)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8285, $8294), $8295, $8296, $8297, $8298); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $8302 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $8304 = self.err; + var self = $8302; + switch (self._) { + case 'Maybe.some': + var $8306 = self.value; + var $8307 = Parser$Reply$error$(Parser$Error$combine$($8306, $8304)); + var $8305 = $8307; + break; + case 'Maybe.none': + var $8308 = Parser$Reply$error$($8304); + var $8305 = $8308; + break; + }; + var $8303 = $8305; + break; + case 'Parser.Reply.value': + var $8309 = self.pst; + var $8310 = self.val; + var self = $8309; + switch (self._) { + case 'Parser.State.new': + var $8312 = self.err; + var $8313 = self.nam; + var $8314 = self.ini; + var $8315 = self.idx; + var $8316 = self.str; + var $8317 = ((console.log(("FALTANDO " + $8316)), (_$32 => { + var $8318 = ((console.log(("VALUE " + $8313)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8302, $8312), $8313, $8314, $8315, $8316); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $8320 = self.err; + var _reply$40 = Kind$Parser$text$("from", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $8322 = self.err; + var self = $8320; + switch (self._) { + case 'Maybe.some': + var $8324 = self.value; + var $8325 = Parser$Reply$error$(Parser$Error$combine$($8324, $8322)); + var $8323 = $8325; + break; + case 'Maybe.none': + var $8326 = Parser$Reply$error$($8322); + var $8323 = $8326; + break; + }; + var $8321 = $8323; + break; + case 'Parser.Reply.value': + var $8327 = self.pst; + var self = $8327; + switch (self._) { + case 'Parser.State.new': + var $8329 = self.err; + var $8330 = self.nam; + var $8331 = self.ini; + var $8332 = self.idx; + var $8333 = self.str; + var $8334 = ((console.log(("FALTANDO " + $8333)), (_$48 => { + var $8335 = ((console.log(("VALUE " + $8330)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8320, $8329), $8330, $8331, $8332, $8333); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $8337 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $8339 = self.err; + var self = $8337; + switch (self._) { + case 'Maybe.some': + var $8341 = self.value; + var $8342 = Parser$Reply$error$(Parser$Error$combine$($8341, $8339)); + var $8340 = $8342; + break; + case 'Maybe.none': + var $8343 = Parser$Reply$error$($8339); + var $8340 = $8343; + break; + }; + var $8338 = $8340; + break; + case 'Parser.Reply.value': + var $8344 = self.pst; + var $8345 = self.val; + var self = $8344; + switch (self._) { + case 'Parser.State.new': + var $8347 = self.err; + var $8348 = self.nam; + var $8349 = self.ini; + var $8350 = self.idx; + var $8351 = self.str; + var $8352 = ((console.log(("FALTANDO " + $8351)), (_$64 => { + var $8353 = ((console.log(("VALUE " + $8348)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8337, $8347), $8348, $8349, $8350, $8351); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $8355 = self.err; + var _reply$72 = Kind$Parser$text$("to", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $8357 = self.err; + var self = $8355; + switch (self._) { + case 'Maybe.some': + var $8359 = self.value; + var $8360 = Parser$Reply$error$(Parser$Error$combine$($8359, $8357)); + var $8358 = $8360; + break; + case 'Maybe.none': + var $8361 = Parser$Reply$error$($8357); + var $8358 = $8361; + break; + }; + var $8356 = $8358; + break; + case 'Parser.Reply.value': + var $8362 = self.pst; + var self = $8362; + switch (self._) { + case 'Parser.State.new': + var $8364 = self.err; + var $8365 = self.nam; + var $8366 = self.ini; + var $8367 = self.idx; + var $8368 = self.str; + var $8369 = ((console.log(("FALTANDO " + $8368)), (_$80 => { + var $8370 = ((console.log(("VALUE " + $8365)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($8355, $8364), $8365, $8366, $8367, $8368); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $8372 = self.err; + var _reply$88 = Kind$Parser$term(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $8374 = self.err; + var self = $8372; + switch (self._) { + case 'Maybe.some': + var $8376 = self.value; + var $8377 = Parser$Reply$error$(Parser$Error$combine$($8376, $8374)); + var $8375 = $8377; + break; + case 'Maybe.none': + var $8378 = Parser$Reply$error$($8374); + var $8375 = $8378; + break; + }; + var $8373 = $8375; + break; + case 'Parser.Reply.value': + var $8379 = self.pst; + var $8380 = self.val; + var self = $8379; + switch (self._) { + case 'Parser.State.new': + var $8382 = self.err; + var $8383 = self.nam; + var $8384 = self.ini; + var $8385 = self.idx; + var $8386 = self.str; + var $8387 = ((console.log(("FALTANDO " + $8386)), (_$96 => { + var $8388 = ((console.log(("VALUE " + $8383)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($8372, $8382), $8383, $8384, $8385, $8386); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $8390 = self.err; + var _reply$104 = Kind$Parser$text$(":", _reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $8392 = self.err; + var self = $8390; + switch (self._) { + case 'Maybe.some': + var $8394 = self.value; + var $8395 = Parser$Reply$error$(Parser$Error$combine$($8394, $8392)); + var $8393 = $8395; + break; + case 'Maybe.none': + var $8396 = Parser$Reply$error$($8392); + var $8393 = $8396; + break; + }; + var $8391 = $8393; + break; + case 'Parser.Reply.value': + var $8397 = self.pst; + var self = $8397; + switch (self._) { + case 'Parser.State.new': + var $8399 = self.err; + var $8400 = self.nam; + var $8401 = self.ini; + var $8402 = self.idx; + var $8403 = self.str; + var $8404 = ((console.log(("FALTANDO " + $8403)), (_$112 => { + var $8405 = ((console.log(("VALUE " + $8400)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($8390, $8399), $8400, $8401, $8402, $8403); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $8407 = self.err; + var _reply$120 = Kind$Parser$term(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $8409 = self.err; + var self = $8407; + switch (self._) { + case 'Maybe.some': + var $8411 = self.value; + var $8412 = Parser$Reply$error$(Parser$Error$combine$($8411, $8409)); + var $8410 = $8412; + break; + case 'Maybe.none': + var $8413 = Parser$Reply$error$($8409); + var $8410 = $8413; + break; + }; + var $8408 = $8410; + break; + case 'Parser.Reply.value': + var $8414 = self.pst; + var $8415 = self.val; + var self = $8414; + switch (self._) { + case 'Parser.State.new': + var $8417 = self.err; + var $8418 = self.nam; + var $8419 = self.ini; + var $8420 = self.idx; + var $8421 = self.str; + var $8422 = ((console.log(("FALTANDO " + $8421)), (_$128 => { + var $8423 = ((console.log(("VALUE " + $8418)), (_$129 => { + var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($8407, $8417), $8418, $8419, $8420, $8421); + var self = _reply$pst$130; + switch (self._) { + case 'Parser.State.new': + var $8425 = self.err; + var _reply$136 = Parser$maybe$(Kind$Parser$do$statements$(_monad_name$1), _reply$pst$130); + var self = _reply$136; + switch (self._) { + case 'Parser.Reply.error': + var $8427 = self.err; + var self = $8425; + switch (self._) { + case 'Maybe.some': + var $8429 = self.value; + var $8430 = Parser$Reply$error$(Parser$Error$combine$($8429, $8427)); + var $8428 = $8430; + break; + case 'Maybe.none': + var $8431 = Parser$Reply$error$($8427); + var $8428 = $8431; + break; + }; + var $8426 = $8428; + break; + case 'Parser.Reply.value': + var $8432 = self.pst; + var $8433 = self.val; + var self = $8432; + switch (self._) { + case 'Parser.State.new': + var $8435 = self.err; + var $8436 = self.nam; + var $8437 = self.ini; + var $8438 = self.idx; + var $8439 = self.str; + var $8440 = ((console.log(("FALTANDO " + $8439)), (_$144 => { + var $8441 = ((console.log(("VALUE " + $8436)), (_$145 => { + var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($8425, $8435), $8436, $8437, $8438, $8439); + var _expr$147 = Kind$Term$ref$("Nat.for.io"); + var _expr$148 = Kind$Term$app$(_expr$147, $8345); + var _expr$149 = Kind$Term$app$(_expr$148, $8380); + var _expr$150 = Kind$Term$app$(_expr$149, Kind$Term$lam$($8310, (_x$150 => { + var $8443 = $8415; + return $8443; + }))); + var self = $8433; + switch (self._) { + case 'Maybe.some': + var $8444 = self.value; + var _term$152 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); + var _term$153 = Kind$Term$app$(_term$152, Kind$Term$ref$((_monad_name$1 + ".monad"))); + var _term$154 = Kind$Term$app$(_term$153, Kind$Term$hol$(Bits$e)); + var _term$155 = Kind$Term$app$(_term$154, Kind$Term$hol$(Bits$e)); + var _term$156 = Kind$Term$app$(_term$155, _expr$150); + var _term$157 = Kind$Term$app$(_term$156, Kind$Term$lam$("", (_x$157 => { + var $8446 = $8444; + return $8446; + }))); + var $8445 = (_pst$158 => { + var $8447 = Parser$Reply$value$(_pst$158, _term$157); + return $8447; + }); + var $8442 = $8445; + break; + case 'Maybe.none': + var $8448 = (_pst$151 => { + var $8449 = Parser$Reply$value$(_pst$151, _expr$150); + return $8449; + }); + var $8442 = $8448; + break; + }; + var $8442 = $8442(_reply$pst$146); + return $8442; + })())); + return $8441; + })())); + var $8434 = $8440; + break; + }; + var $8426 = $8434; + break; + }; + var $8424 = $8426; + break; + }; + return $8424; + })())); + return $8423; + })())); + var $8416 = $8422; + break; + }; + var $8408 = $8416; + break; + }; + var $8406 = $8408; + break; + }; + return $8406; + })())); + return $8405; + })())); + var $8398 = $8404; + break; + }; + var $8391 = $8398; + break; + }; + var $8389 = $8391; + break; + }; + return $8389; + })())); + return $8388; + })())); + var $8381 = $8387; + break; + }; + var $8373 = $8381; + break; + }; + var $8371 = $8373; + break; + }; + return $8371; + })())); + return $8370; + })())); + var $8363 = $8369; + break; + }; + var $8356 = $8363; + break; + }; + var $8354 = $8356; + break; + }; + return $8354; + })())); + return $8353; + })())); + var $8346 = $8352; + break; + }; + var $8338 = $8346; + break; + }; + var $8336 = $8338; + break; + }; + return $8336; + })())); + return $8335; + })())); + var $8328 = $8334; + break; + }; + var $8321 = $8328; + break; + }; + var $8319 = $8321; + break; + }; + return $8319; + })())); + return $8318; + })())); + var $8311 = $8317; + break; + }; + var $8303 = $8311; + break; + }; + var $8301 = $8303; + break; + }; + return $8301; + })())); + return $8300; + })())); + var $8293 = $8299; + break; + }; + var $8286 = $8293; + break; + }; + var $8284 = $8286; + break; + }; + return $8284; + })), List$cons$(Kind$Parser$block("do-for-in")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $8451 = self.err; + var _reply$8 = Kind$Parser$text$("for ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $8453 = self.err; + var self = $8451; + switch (self._) { + case 'Maybe.some': + var $8455 = self.value; + var $8456 = Parser$Reply$error$(Parser$Error$combine$($8455, $8453)); + var $8454 = $8456; + break; + case 'Maybe.none': + var $8457 = Parser$Reply$error$($8453); + var $8454 = $8457; + break; + }; + var $8452 = $8454; + break; + case 'Parser.Reply.value': + var $8458 = self.pst; + var self = $8458; + switch (self._) { + case 'Parser.State.new': + var $8460 = self.err; + var $8461 = self.nam; + var $8462 = self.ini; + var $8463 = self.idx; + var $8464 = self.str; + var $8465 = ((console.log(("FALTANDO " + $8464)), (_$16 => { + var $8466 = ((console.log(("VALUE " + $8461)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8451, $8460), $8461, $8462, $8463, $8464); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $8468 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $8470 = self.err; + var self = $8468; + switch (self._) { + case 'Maybe.some': + var $8472 = self.value; + var $8473 = Parser$Reply$error$(Parser$Error$combine$($8472, $8470)); + var $8471 = $8473; + break; + case 'Maybe.none': + var $8474 = Parser$Reply$error$($8470); + var $8471 = $8474; + break; + }; + var $8469 = $8471; + break; + case 'Parser.Reply.value': + var $8475 = self.pst; + var $8476 = self.val; + var self = $8475; + switch (self._) { + case 'Parser.State.new': + var $8478 = self.err; + var $8479 = self.nam; + var $8480 = self.ini; + var $8481 = self.idx; + var $8482 = self.str; + var $8483 = ((console.log(("FALTANDO " + $8482)), (_$32 => { + var $8484 = ((console.log(("VALUE " + $8479)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8468, $8478), $8479, $8480, $8481, $8482); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $8486 = self.err; + var _reply$40 = Kind$Parser$text$("in", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $8488 = self.err; + var self = $8486; + switch (self._) { + case 'Maybe.some': + var $8490 = self.value; + var $8491 = Parser$Reply$error$(Parser$Error$combine$($8490, $8488)); + var $8489 = $8491; + break; + case 'Maybe.none': + var $8492 = Parser$Reply$error$($8488); + var $8489 = $8492; + break; + }; + var $8487 = $8489; + break; + case 'Parser.Reply.value': + var $8493 = self.pst; + var self = $8493; + switch (self._) { + case 'Parser.State.new': + var $8495 = self.err; + var $8496 = self.nam; + var $8497 = self.ini; + var $8498 = self.idx; + var $8499 = self.str; + var $8500 = ((console.log(("FALTANDO " + $8499)), (_$48 => { + var $8501 = ((console.log(("VALUE " + $8496)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8486, $8495), $8496, $8497, $8498, $8499); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $8503 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $8505 = self.err; + var self = $8503; + switch (self._) { + case 'Maybe.some': + var $8507 = self.value; + var $8508 = Parser$Reply$error$(Parser$Error$combine$($8507, $8505)); + var $8506 = $8508; + break; + case 'Maybe.none': + var $8509 = Parser$Reply$error$($8505); + var $8506 = $8509; + break; + }; + var $8504 = $8506; + break; + case 'Parser.Reply.value': + var $8510 = self.pst; + var $8511 = self.val; + var self = $8510; + switch (self._) { + case 'Parser.State.new': + var $8513 = self.err; + var $8514 = self.nam; + var $8515 = self.ini; + var $8516 = self.idx; + var $8517 = self.str; + var $8518 = ((console.log(("FALTANDO " + $8517)), (_$64 => { + var $8519 = ((console.log(("VALUE " + $8514)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8503, $8513), $8514, $8515, $8516, $8517); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $8521 = self.err; + var _reply$72 = Kind$Parser$text$(":", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $8523 = self.err; + var self = $8521; + switch (self._) { + case 'Maybe.some': + var $8525 = self.value; + var $8526 = Parser$Reply$error$(Parser$Error$combine$($8525, $8523)); + var $8524 = $8526; + break; + case 'Maybe.none': + var $8527 = Parser$Reply$error$($8523); + var $8524 = $8527; + break; + }; + var $8522 = $8524; + break; + case 'Parser.Reply.value': + var $8528 = self.pst; + var self = $8528; + switch (self._) { + case 'Parser.State.new': + var $8530 = self.err; + var $8531 = self.nam; + var $8532 = self.ini; + var $8533 = self.idx; + var $8534 = self.str; + var $8535 = ((console.log(("FALTANDO " + $8534)), (_$80 => { + var $8536 = ((console.log(("VALUE " + $8531)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($8521, $8530), $8531, $8532, $8533, $8534); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $8538 = self.err; + var _reply$88 = Kind$Parser$term(_reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $8540 = self.err; + var self = $8538; + switch (self._) { + case 'Maybe.some': + var $8542 = self.value; + var $8543 = Parser$Reply$error$(Parser$Error$combine$($8542, $8540)); + var $8541 = $8543; + break; + case 'Maybe.none': + var $8544 = Parser$Reply$error$($8540); + var $8541 = $8544; + break; + }; + var $8539 = $8541; + break; + case 'Parser.Reply.value': + var $8545 = self.pst; + var $8546 = self.val; + var self = $8545; + switch (self._) { + case 'Parser.State.new': + var $8548 = self.err; + var $8549 = self.nam; + var $8550 = self.ini; + var $8551 = self.idx; + var $8552 = self.str; + var $8553 = ((console.log(("FALTANDO " + $8552)), (_$96 => { + var $8554 = ((console.log(("VALUE " + $8549)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($8538, $8548), $8549, $8550, $8551, $8552); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $8556 = self.err; + var _reply$104 = Parser$maybe$(Kind$Parser$do$statements$(_monad_name$1), _reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $8558 = self.err; + var self = $8556; + switch (self._) { + case 'Maybe.some': + var $8560 = self.value; + var $8561 = Parser$Reply$error$(Parser$Error$combine$($8560, $8558)); + var $8559 = $8561; + break; + case 'Maybe.none': + var $8562 = Parser$Reply$error$($8558); + var $8559 = $8562; + break; + }; + var $8557 = $8559; + break; + case 'Parser.Reply.value': + var $8563 = self.pst; + var $8564 = self.val; + var self = $8563; + switch (self._) { + case 'Parser.State.new': + var $8566 = self.err; + var $8567 = self.nam; + var $8568 = self.ini; + var $8569 = self.idx; + var $8570 = self.str; + var $8571 = ((console.log(("FALTANDO " + $8570)), (_$112 => { + var $8572 = ((console.log(("VALUE " + $8567)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($8556, $8566), $8567, $8568, $8569, $8570); + var _expr$115 = Kind$Term$ref$("List.for.io"); + var _expr$116 = Kind$Term$app$(_expr$115, Kind$Term$hol$(Bits$e)); + var _expr$117 = Kind$Term$app$(_expr$116, $8511); + var _expr$118 = Kind$Term$app$(_expr$117, Kind$Term$lam$($8476, (_x$118 => { + var $8574 = $8546; + return $8574; + }))); + var self = $8564; + switch (self._) { + case 'Maybe.some': + var $8575 = self.value; + var _term$120 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); + var _term$121 = Kind$Term$app$(_term$120, Kind$Term$ref$((_monad_name$1 + ".monad"))); + var _term$122 = Kind$Term$app$(_term$121, Kind$Term$hol$(Bits$e)); + var _term$123 = Kind$Term$app$(_term$122, Kind$Term$hol$(Bits$e)); + var _term$124 = Kind$Term$app$(_term$123, _expr$118); + var _term$125 = Kind$Term$app$(_term$124, Kind$Term$lam$("", (_x$125 => { + var $8577 = $8575; + return $8577; + }))); + var $8576 = (_pst$126 => { + var $8578 = Parser$Reply$value$(_pst$126, _term$125); + return $8578; + }); + var $8573 = $8576; + break; + case 'Maybe.none': + var $8579 = (_pst$119 => { + var $8580 = Parser$Reply$value$(_pst$119, _expr$118); + return $8580; + }); + var $8573 = $8579; + break; + }; + var $8573 = $8573(_reply$pst$114); + return $8573; + })())); + return $8572; + })())); + var $8565 = $8571; + break; + }; + var $8557 = $8565; + break; + }; + var $8555 = $8557; + break; + }; + return $8555; + })())); + return $8554; + })())); + var $8547 = $8553; + break; + }; + var $8539 = $8547; + break; + }; + var $8537 = $8539; + break; + }; + return $8537; + })())); + return $8536; + })())); + var $8529 = $8535; + break; + }; + var $8522 = $8529; + break; + }; + var $8520 = $8522; + break; + }; + return $8520; + })())); + return $8519; + })())); + var $8512 = $8518; + break; + }; + var $8504 = $8512; + break; + }; + var $8502 = $8504; + break; + }; + return $8502; + })())); + return $8501; + })())); + var $8494 = $8500; + break; + }; + var $8487 = $8494; + break; + }; + var $8485 = $8487; + break; + }; + return $8485; + })())); + return $8484; + })())); + var $8477 = $8483; + break; + }; + var $8469 = $8477; + break; + }; + var $8467 = $8469; + break; + }; + return $8467; + })())); + return $8466; + })())); + var $8459 = $8465; + break; + }; + var $8452 = $8459; + break; + }; + var $8450 = $8452; + break; + }; + return $8450; + })), List$cons$(Kind$Parser$letforrange$u32$((_x$2 => { + var $8581 = Kind$Parser$do$statements$(_monad_name$1); + return $8581; + })), List$cons$(Kind$Parser$letforrange$u32$with$((_x$2 => { + var $8582 = Kind$Parser$do$statements$(_monad_name$1); + return $8582; + })), List$cons$(Kind$Parser$letforrange$nat$((_x$2 => { + var $8583 = Kind$Parser$do$statements$(_monad_name$1); + return $8583; + })), List$cons$(Kind$Parser$letforrange$nat$with$((_x$2 => { + var $8584 = Kind$Parser$do$statements$(_monad_name$1); + return $8584; + })), List$cons$(Kind$Parser$letforin$((_x$2 => { + var $8585 = Kind$Parser$do$statements$(_monad_name$1); + return $8585; + })), List$cons$(Kind$Parser$letforin$with$((_x$2 => { + var $8586 = Kind$Parser$do$statements$(_monad_name$1); + return $8586; + })), List$cons$(Kind$Parser$letwhile$((_x$2 => { + var $8587 = Kind$Parser$do$statements$(_monad_name$1); + return $8587; + })), List$cons$(Kind$Parser$letwhile$with$((_x$2 => { + var $8588 = Kind$Parser$do$statements$(_monad_name$1); + return $8588; + })), List$cons$(Kind$Parser$let$abort$((_x$2 => { + var $8589 = Kind$Parser$do$statements$(_monad_name$1); + return $8589; + })), List$cons$(Kind$Parser$let$((_x$2 => { + var $8590 = Kind$Parser$do$statements$(_monad_name$1); + return $8590; + })), List$cons$(Kind$Parser$getwhile$((_x$2 => { + var $8591 = Kind$Parser$do$statements$(_monad_name$1); + return $8591; + })), List$cons$(Kind$Parser$getwhile$with((_x$2 => { + var $8592 = Kind$Parser$do$statements$(_monad_name$1); + return $8592; + })), List$cons$(Kind$Parser$get$((_x$2 => { + var $8593 = Kind$Parser$do$statements$(_monad_name$1); + return $8593; + })), List$cons$(Kind$Parser$def$((_x$2 => { + var $8594 = Kind$Parser$do$statements$(_monad_name$1); + return $8594; + })), List$cons$(Kind$Parser$use$abort$((_x$2 => { + var $8595 = Kind$Parser$do$statements$(_monad_name$1); + return $8595; + })), List$cons$(Kind$Parser$use$((_x$2 => { + var $8596 = Kind$Parser$do$statements$(_monad_name$1); + return $8596; + })), List$cons$(Kind$Parser$log$((_x$2 => { + var $8597 = Kind$Parser$do$statements$(_monad_name$1); + return $8597; + })), List$cons$(Kind$Parser$open$((_x$2 => { + var $8598 = Kind$Parser$do$statements$(_monad_name$1); + return $8598; + })), List$cons$(Kind$Parser$block("do-statement")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $8600 = self.err; + var _reply$8 = Kind$Parser$term(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $8602 = self.err; + var self = $8600; + switch (self._) { + case 'Maybe.some': + var $8604 = self.value; + var $8605 = Parser$Reply$error$(Parser$Error$combine$($8604, $8602)); + var $8603 = $8605; + break; + case 'Maybe.none': + var $8606 = Parser$Reply$error$($8602); + var $8603 = $8606; + break; + }; + var $8601 = $8603; + break; + case 'Parser.Reply.value': + var $8607 = self.pst; + var $8608 = self.val; + var self = $8607; + switch (self._) { + case 'Parser.State.new': + var $8610 = self.err; + var $8611 = self.nam; + var $8612 = self.ini; + var $8613 = self.idx; + var $8614 = self.str; + var $8615 = ((console.log(("FALTANDO " + $8614)), (_$16 => { + var $8616 = ((console.log(("VALUE " + $8611)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8600, $8610), $8611, $8612, $8613, $8614); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $8618 = self.err; + var _reply$24 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $8620 = self.err; + var self = $8618; + switch (self._) { + case 'Maybe.some': + var $8622 = self.value; + var $8623 = Parser$Reply$error$(Parser$Error$combine$($8622, $8620)); + var $8621 = $8623; + break; + case 'Maybe.none': + var $8624 = Parser$Reply$error$($8620); + var $8621 = $8624; + break; + }; + var $8619 = $8621; + break; + case 'Parser.Reply.value': + var $8625 = self.pst; + var self = $8625; + switch (self._) { + case 'Parser.State.new': + var $8627 = self.err; + var $8628 = self.nam; + var $8629 = self.ini; + var $8630 = self.idx; + var $8631 = self.str; + var $8632 = ((console.log(("FALTANDO " + $8631)), (_$32 => { + var $8633 = ((console.log(("VALUE " + $8628)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8618, $8627), $8628, $8629, $8630, $8631); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $8635 = self.err; + var _reply$40 = Kind$Parser$do$statements$(_monad_name$1)(_reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $8637 = self.err; + var self = $8635; + switch (self._) { + case 'Maybe.some': + var $8639 = self.value; + var $8640 = Parser$Reply$error$(Parser$Error$combine$($8639, $8637)); + var $8638 = $8640; + break; + case 'Maybe.none': + var $8641 = Parser$Reply$error$($8637); + var $8638 = $8641; + break; + }; + var $8636 = $8638; + break; + case 'Parser.Reply.value': + var $8642 = self.pst; + var $8643 = self.val; + var self = $8642; + switch (self._) { + case 'Parser.State.new': + var $8645 = self.err; + var $8646 = self.nam; + var $8647 = self.ini; + var $8648 = self.idx; + var $8649 = self.str; + var $8650 = ((console.log(("FALTANDO " + $8649)), (_$48 => { + var $8651 = ((console.log(("VALUE " + $8646)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8635, $8645), $8646, $8647, $8648, $8649); + var _term$51 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); + var _term$52 = Kind$Term$app$(_term$51, Kind$Term$ref$((_monad_name$1 + ".monad"))); + var _term$53 = Kind$Term$app$(_term$52, Kind$Term$hol$(Bits$e)); + var _term$54 = Kind$Term$app$(_term$53, Kind$Term$hol$(Bits$e)); + var _term$55 = Kind$Term$app$(_term$54, $8608); + var _term$56 = Kind$Term$app$(_term$55, Kind$Term$lam$("", (_x$56 => { + var $8653 = $8643; + return $8653; + }))); + var $8652 = Parser$Reply$value$(_reply$pst$50, _term$56); + return $8652; + })())); + return $8651; + })())); + var $8644 = $8650; + break; + }; + var $8636 = $8644; + break; + }; + var $8634 = $8636; + break; + }; + return $8634; + })())); + return $8633; + })())); + var $8626 = $8632; + break; + }; + var $8619 = $8626; + break; + }; + var $8617 = $8619; + break; + }; + return $8617; + })())); + return $8616; + })())); + var $8609 = $8615; + break; + }; + var $8601 = $8609; + break; + }; + var $8599 = $8601; + break; + }; + return $8599; + })), List$cons$(Kind$Parser$block("do-end")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $8655 = self.err; + var _reply$8 = Kind$Parser$term(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $8657 = self.err; + var self = $8655; + switch (self._) { + case 'Maybe.some': + var $8659 = self.value; + var $8660 = Parser$Reply$error$(Parser$Error$combine$($8659, $8657)); + var $8658 = $8660; + break; + case 'Maybe.none': + var $8661 = Parser$Reply$error$($8657); + var $8658 = $8661; + break; + }; + var $8656 = $8658; + break; + case 'Parser.Reply.value': + var $8662 = self.pst; + var $8663 = self.val; + var self = $8662; + switch (self._) { + case 'Parser.State.new': + var $8665 = self.err; + var $8666 = self.nam; + var $8667 = self.ini; + var $8668 = self.idx; + var $8669 = self.str; + var $8670 = ((console.log(("FALTANDO " + $8669)), (_$16 => { + var $8671 = ((console.log(("VALUE " + $8666)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8655, $8665), $8666, $8667, $8668, $8669); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $8673 = self.err; + var _reply$24 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $8675 = self.err; + var self = $8673; + switch (self._) { + case 'Maybe.some': + var $8677 = self.value; + var $8678 = Parser$Reply$error$(Parser$Error$combine$($8677, $8675)); + var $8676 = $8678; + break; + case 'Maybe.none': + var $8679 = Parser$Reply$error$($8675); + var $8676 = $8679; + break; + }; + var $8674 = $8676; + break; + case 'Parser.Reply.value': + var $8680 = self.pst; + var self = $8680; + switch (self._) { + case 'Parser.State.new': + var $8682 = self.err; + var $8683 = self.nam; + var $8684 = self.ini; + var $8685 = self.idx; + var $8686 = self.str; + var $8687 = ((console.log(("FALTANDO " + $8686)), (_$32 => { + var $8688 = ((console.log(("VALUE " + $8683)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8673, $8682), $8683, $8684, $8685, $8686); + var $8689 = Parser$Reply$value$(_reply$pst$34, $8663); + return $8689; + })())); + return $8688; + })())); + var $8681 = $8687; + break; + }; + var $8674 = $8681; + break; + }; + var $8672 = $8674; + break; + }; + return $8672; + })())); + return $8671; + })())); + var $8664 = $8670; + break; + }; + var $8656 = $8664; + break; + }; + var $8654 = $8656; + break; + }; + return $8654; + })), List$nil))))))))))))))))))))))))); + return $8123; + }; + const Kind$Parser$do$statements = x0 => Kind$Parser$do$statements$(x0); + const Kind$Parser$do = Kind$Parser$block("do")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8691 = self.err; + var _reply$7 = Parser$maybe$(Kind$Parser$text("do "), _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8693 = self.err; + var self = $8691; + switch (self._) { + case 'Maybe.some': + var $8695 = self.value; + var $8696 = Parser$Reply$error$(Parser$Error$combine$($8695, $8693)); + var $8694 = $8696; + break; + case 'Maybe.none': + var $8697 = Parser$Reply$error$($8693); + var $8694 = $8697; + break; + }; + var $8692 = $8694; + break; + case 'Parser.Reply.value': + var $8698 = self.pst; + var self = $8698; + switch (self._) { + case 'Parser.State.new': + var $8700 = self.err; + var $8701 = self.nam; + var $8702 = self.ini; + var $8703 = self.idx; + var $8704 = self.str; + var $8705 = ((console.log(("FALTANDO " + $8704)), (_$15 => { + var $8706 = ((console.log(("VALUE " + $8701)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($8691, $8700), $8701, $8702, $8703, $8704); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $8708 = self.err; + var _reply$23 = Kind$Parser$name1$(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $8710 = self.err; + var self = $8708; + switch (self._) { + case 'Maybe.some': + var $8712 = self.value; + var $8713 = Parser$Reply$error$(Parser$Error$combine$($8712, $8710)); + var $8711 = $8713; + break; + case 'Maybe.none': + var $8714 = Parser$Reply$error$($8710); + var $8711 = $8714; + break; + }; + var $8709 = $8711; + break; + case 'Parser.Reply.value': + var $8715 = self.pst; + var $8716 = self.val; + var self = $8715; + switch (self._) { + case 'Parser.State.new': + var $8718 = self.err; + var $8719 = self.nam; + var $8720 = self.ini; + var $8721 = self.idx; + var $8722 = self.str; + var $8723 = ((console.log(("FALTANDO " + $8722)), (_$31 => { + var $8724 = ((console.log(("VALUE " + $8719)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($8708, $8718), $8719, $8720, $8721, $8722); + var self = String$is_upper$(String$slice$(0n, 1n, $8716)); + if (self) { + var $8726 = (_pst$34 => { + var self = _pst$34; + switch (self._) { + case 'Parser.State.new': + var $8728 = self.err; + var _reply$40 = Parser$text$(" {", _pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $8730 = self.err; + var self = $8728; + switch (self._) { + case 'Maybe.some': + var $8732 = self.value; + var $8733 = Parser$Reply$error$(Parser$Error$combine$($8732, $8730)); + var $8731 = $8733; + break; + case 'Maybe.none': + var $8734 = Parser$Reply$error$($8730); + var $8731 = $8734; + break; + }; + var $8729 = $8731; + break; + case 'Parser.Reply.value': + var $8735 = self.pst; + var self = $8735; + switch (self._) { + case 'Parser.State.new': + var $8737 = self.err; + var $8738 = self.nam; + var $8739 = self.ini; + var $8740 = self.idx; + var $8741 = self.str; + var $8742 = ((console.log(("FALTANDO " + $8741)), (_$48 => { + var $8743 = ((console.log(("VALUE " + $8738)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8728, $8737), $8738, $8739, $8740, $8741); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $8745 = self.err; + var _reply$56 = Kind$Parser$do$statements$($8716)(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $8747 = self.err; + var self = $8745; + switch (self._) { + case 'Maybe.some': + var $8749 = self.value; + var $8750 = Parser$Reply$error$(Parser$Error$combine$($8749, $8747)); + var $8748 = $8750; + break; + case 'Maybe.none': + var $8751 = Parser$Reply$error$($8747); + var $8748 = $8751; + break; + }; + var $8746 = $8748; + break; + case 'Parser.Reply.value': + var $8752 = self.pst; + var $8753 = self.val; + var self = $8752; + switch (self._) { + case 'Parser.State.new': + var $8755 = self.err; + var $8756 = self.nam; + var $8757 = self.ini; + var $8758 = self.idx; + var $8759 = self.str; + var $8760 = ((console.log(("FALTANDO " + $8759)), (_$64 => { + var $8761 = ((console.log(("VALUE " + $8756)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8745, $8755), $8756, $8757, $8758, $8759); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $8763 = self.err; + var _reply$72 = Kind$Parser$text$("}", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $8765 = self.err; + var self = $8763; + switch (self._) { + case 'Maybe.some': + var $8767 = self.value; + var $8768 = Parser$Reply$error$(Parser$Error$combine$($8767, $8765)); + var $8766 = $8768; + break; + case 'Maybe.none': + var $8769 = Parser$Reply$error$($8765); + var $8766 = $8769; + break; + }; + var $8764 = $8766; + break; + case 'Parser.Reply.value': + var $8770 = self.pst; + var self = $8770; + switch (self._) { + case 'Parser.State.new': + var $8772 = self.err; + var $8773 = self.nam; + var $8774 = self.ini; + var $8775 = self.idx; + var $8776 = self.str; + var $8777 = ((console.log(("FALTANDO " + $8776)), (_$80 => { + var $8778 = ((console.log(("VALUE " + $8773)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($8763, $8772), $8773, $8774, $8775, $8776); + var $8779 = Parser$Reply$value$(_reply$pst$82, $8753); + return $8779; + })())); + return $8778; + })())); + var $8771 = $8777; + break; + }; + var $8764 = $8771; + break; + }; + var $8762 = $8764; + break; + }; + return $8762; + })())); + return $8761; + })())); + var $8754 = $8760; + break; + }; + var $8746 = $8754; + break; + }; + var $8744 = $8746; + break; + }; + return $8744; + })())); + return $8743; + })())); + var $8736 = $8742; + break; + }; + var $8729 = $8736; + break; + }; + var $8727 = $8729; + break; + }; + return $8727; + }); + var $8725 = $8726; + } else { + var $8780 = Parser$fail("Not a do-block."); + var $8725 = $8780; + }; + var $8725 = $8725(_reply$pst$33); + return $8725; + })())); + return $8724; + })())); + var $8717 = $8723; + break; + }; + var $8709 = $8717; + break; + }; + var $8707 = $8709; + break; + }; + return $8707; + })())); + return $8706; + })())); + var $8699 = $8705; + break; + }; + var $8692 = $8699; + break; + }; + var $8690 = $8692; + break; + }; + return $8690; + })); + + function Kind$Term$extract_name$(_term$1) { + var _term$2 = Kind$Term$reduce$(_term$1, Kind$Map$new); + var self = _term$2; + switch (self._) { + case 'Kind.Term.var': + var $8782 = self.name; + var $8783 = $8782; + var $8781 = $8783; + break; + case 'Kind.Term.ref': + var $8784 = self.name; + var $8785 = $8784; + var $8781 = $8785; + break; + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.app': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + case 'Kind.Term.ori': + var $8786 = "self"; + var $8781 = $8786; + break; + }; + return $8781; + }; + const Kind$Term$extract_name = x0 => Kind$Term$extract_name$(x0); + + function Kind$Ann$new$(_name$1, _term$2, _type$3) { + var $8787 = ({ + _: 'Kind.Ann.new', + 'name': _name$1, + 'term': _term$2, + 'type': _type$3 + }); + return $8787; + }; + const Kind$Ann$new = x0 => x1 => x2 => Kind$Ann$new$(x0, x1, x2); + const Kind$Parser$case$with = Parser$choice(List$cons$((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8789 = self.err; + var _reply$7 = Kind$Parser$text$("with ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8791 = self.err; + var self = $8789; + switch (self._) { + case 'Maybe.some': + var $8793 = self.value; + var $8794 = Parser$Reply$error$(Parser$Error$combine$($8793, $8791)); + var $8792 = $8794; + break; + case 'Maybe.none': + var $8795 = Parser$Reply$error$($8791); + var $8792 = $8795; + break; + }; + var $8790 = $8792; + break; + case 'Parser.Reply.value': + var $8796 = self.pst; + var self = $8796; + switch (self._) { + case 'Parser.State.new': + var $8798 = self.err; + var $8799 = self.nam; + var $8800 = self.ini; + var $8801 = self.idx; + var $8802 = self.str; + var $8803 = ((console.log(("FALTANDO " + $8802)), (_$15 => { + var $8804 = ((console.log(("VALUE " + $8799)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($8789, $8798), $8799, $8800, $8801, $8802); + var $8805 = Parser$many$((_pst$18 => { + var self = _pst$18; + switch (self._) { + case 'Parser.State.new': + var $8807 = self.err; + var _reply$24 = Kind$Parser$name1$(_pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $8809 = self.err; + var self = $8807; + switch (self._) { + case 'Maybe.some': + var $8811 = self.value; + var $8812 = Parser$Reply$error$(Parser$Error$combine$($8811, $8809)); + var $8810 = $8812; + break; + case 'Maybe.none': + var $8813 = Parser$Reply$error$($8809); + var $8810 = $8813; + break; + }; + var $8808 = $8810; + break; + case 'Parser.Reply.value': + var $8814 = self.pst; + var $8815 = self.val; + var self = $8814; + switch (self._) { + case 'Parser.State.new': + var $8817 = self.err; + var $8818 = self.nam; + var $8819 = self.ini; + var $8820 = self.idx; + var $8821 = self.str; + var $8822 = ((console.log(("FALTANDO " + $8821)), (_$32 => { + var $8823 = ((console.log(("VALUE " + $8818)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8807, $8817), $8818, $8819, $8820, $8821); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $8825 = self.err; + var _reply$40 = Parser$maybe$((_pst$40 => { + var self = _pst$40; + switch (self._) { + case 'Parser.State.new': + var $8828 = self.err; + var _reply$46 = Kind$Parser$text$(":", _pst$40); + var self = _reply$46; + switch (self._) { + case 'Parser.Reply.error': + var $8830 = self.err; + var self = $8828; + switch (self._) { + case 'Maybe.some': + var $8832 = self.value; + var $8833 = Parser$Reply$error$(Parser$Error$combine$($8832, $8830)); + var $8831 = $8833; + break; + case 'Maybe.none': + var $8834 = Parser$Reply$error$($8830); + var $8831 = $8834; + break; + }; + var $8829 = $8831; + break; + case 'Parser.Reply.value': + var $8835 = self.pst; + var self = $8835; + switch (self._) { + case 'Parser.State.new': + var $8837 = self.err; + var $8838 = self.nam; + var $8839 = self.ini; + var $8840 = self.idx; + var $8841 = self.str; + var $8842 = ((console.log(("FALTANDO " + $8841)), (_$54 => { + var $8843 = ((console.log(("VALUE " + $8838)), (_$55 => { + var _reply$pst$56 = Parser$State$new$(Parser$Error$maybe_combine$($8828, $8837), $8838, $8839, $8840, $8841); + var self = _reply$pst$56; + switch (self._) { + case 'Parser.State.new': + var $8845 = self.err; + var _reply$62 = Kind$Parser$term(_reply$pst$56); + var self = _reply$62; + switch (self._) { + case 'Parser.Reply.error': + var $8847 = self.err; + var self = $8845; + switch (self._) { + case 'Maybe.some': + var $8849 = self.value; + var $8850 = Parser$Reply$error$(Parser$Error$combine$($8849, $8847)); + var $8848 = $8850; + break; + case 'Maybe.none': + var $8851 = Parser$Reply$error$($8847); + var $8848 = $8851; + break; + }; + var $8846 = $8848; + break; + case 'Parser.Reply.value': + var $8852 = self.pst; + var $8853 = self.val; + var self = $8852; + switch (self._) { + case 'Parser.State.new': + var $8855 = self.err; + var $8856 = self.nam; + var $8857 = self.ini; + var $8858 = self.idx; + var $8859 = self.str; + var $8860 = ((console.log(("FALTANDO " + $8859)), (_$70 => { + var $8861 = ((console.log(("VALUE " + $8856)), (_$71 => { + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8845, $8855), $8856, $8857, $8858, $8859); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $8863 = self.err; + var _reply$78 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $8865 = self.err; + var self = $8863; + switch (self._) { + case 'Maybe.some': + var $8867 = self.value; + var $8868 = Parser$Reply$error$(Parser$Error$combine$($8867, $8865)); + var $8866 = $8868; + break; + case 'Maybe.none': + var $8869 = Parser$Reply$error$($8865); + var $8866 = $8869; + break; + }; + var $8864 = $8866; + break; + case 'Parser.Reply.value': + var $8870 = self.pst; + var self = $8870; + switch (self._) { + case 'Parser.State.new': + var $8872 = self.err; + var $8873 = self.nam; + var $8874 = self.ini; + var $8875 = self.idx; + var $8876 = self.str; + var $8877 = ((console.log(("FALTANDO " + $8876)), (_$86 => { + var $8878 = ((console.log(("VALUE " + $8873)), (_$87 => { + var _reply$pst$88 = Parser$State$new$(Parser$Error$maybe_combine$($8863, $8872), $8873, $8874, $8875, $8876); + var $8879 = Parser$Reply$value$(_reply$pst$88, $8853); + return $8879; + })())); + return $8878; + })())); + var $8871 = $8877; + break; + }; + var $8864 = $8871; + break; + }; + var $8862 = $8864; + break; + }; + return $8862; + })())); + return $8861; + })())); + var $8854 = $8860; + break; + }; + var $8846 = $8854; + break; + }; + var $8844 = $8846; + break; + }; + return $8844; + })())); + return $8843; + })())); + var $8836 = $8842; + break; + }; + var $8829 = $8836; + break; + }; + var $8827 = $8829; + break; + }; + return $8827; + }), _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $8880 = self.err; + var self = $8825; + switch (self._) { + case 'Maybe.some': + var $8882 = self.value; + var $8883 = Parser$Reply$error$(Parser$Error$combine$($8882, $8880)); + var $8881 = $8883; + break; + case 'Maybe.none': + var $8884 = Parser$Reply$error$($8880); + var $8881 = $8884; + break; + }; + var $8826 = $8881; + break; + case 'Parser.Reply.value': + var $8885 = self.pst; + var $8886 = self.val; + var self = $8885; + switch (self._) { + case 'Parser.State.new': + var $8888 = self.err; + var $8889 = self.nam; + var $8890 = self.ini; + var $8891 = self.idx; + var $8892 = self.str; + var $8893 = ((console.log(("FALTANDO " + $8892)), (_$48 => { + var $8894 = ((console.log(("VALUE " + $8889)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8825, $8888), $8889, $8890, $8891, $8892); + var $8895 = Parser$Reply$value$(_reply$pst$50, Kind$Ann$new$($8815, Kind$Term$ref$($8815), $8886)); + return $8895; + })())); + return $8894; + })())); + var $8887 = $8893; + break; + }; + var $8826 = $8887; + break; + }; + var $8824 = $8826; + break; + }; + return $8824; + })())); + return $8823; + })())); + var $8816 = $8822; + break; + }; + var $8808 = $8816; + break; + }; + var $8806 = $8808; + break; + }; + return $8806; + }))(_reply$pst$17); + return $8805; + })())); + return $8804; + })())); + var $8797 = $8803; + break; + }; + var $8790 = $8797; + break; + }; + var $8788 = $8790; + break; + }; + return $8788; + }), List$cons$((_pst$1 => { + var $8896 = Parser$Reply$value$(_pst$1, List$nil); + return $8896; + }), List$nil))); + + function Kind$Parser$case$case$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8898 = self.err; + var _reply$7 = Parser$try$(Kind$Parser$text(":"), _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8900 = self.err; + var self = $8898; + switch (self._) { + case 'Maybe.some': + var $8902 = self.value; + var $8903 = Parser$Reply$error$(Parser$Error$combine$($8902, $8900)); + var $8901 = $8903; + break; + case 'Maybe.none': + var $8904 = Parser$Reply$error$($8900); + var $8901 = $8904; + break; + }; + var $8899 = $8901; + break; + case 'Parser.Reply.value': + var $8905 = self.pst; + var $8906 = self.val; + var self = $8905; + switch (self._) { + case 'Parser.State.new': + var $8908 = self.err; + var $8909 = self.nam; + var $8910 = self.ini; + var $8911 = self.idx; + var $8912 = self.str; + var $8913 = ((console.log(("FALTANDO " + $8912)), (_$15 => { + var $8914 = ((console.log(("VALUE " + $8909)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($8898, $8908), $8909, $8910, $8911, $8912); + var self = $8906; + if (self) { + var $8916 = (_pst$18 => { + var self = _pst$18; + switch (self._) { + case 'Parser.State.new': + var $8918 = self.err; + var _reply$24 = Kind$Parser$spaces(_pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $8920 = self.err; + var self = $8918; + switch (self._) { + case 'Maybe.some': + var $8922 = self.value; + var $8923 = Parser$Reply$error$(Parser$Error$combine$($8922, $8920)); + var $8921 = $8923; + break; + case 'Maybe.none': + var $8924 = Parser$Reply$error$($8920); + var $8921 = $8924; + break; + }; + var $8919 = $8921; + break; + case 'Parser.Reply.value': + var $8925 = self.pst; + var self = $8925; + switch (self._) { + case 'Parser.State.new': + var $8927 = self.err; + var $8928 = self.nam; + var $8929 = self.ini; + var $8930 = self.idx; + var $8931 = self.str; + var $8932 = ((console.log(("FALTANDO " + $8931)), (_$32 => { + var $8933 = ((console.log(("VALUE " + $8928)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8918, $8927), $8928, $8929, $8930, $8931); + var $8934 = Parser$fail$("Expected constructor names.", _reply$pst$34); + return $8934; + })())); + return $8933; + })())); + var $8926 = $8932; + break; + }; + var $8919 = $8926; + break; + }; + var $8917 = $8919; + break; + }; + return $8917; + }); + var $8915 = $8916; + } else { + var $8935 = (_pst$18 => { + var self = _pst$18; + switch (self._) { + case 'Parser.State.new': + var $8937 = self.err; + var _reply$24 = Parser$until$(Kind$Parser$text(":"), Kind$Parser$name1)(_pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $8939 = self.err; + var self = $8937; + switch (self._) { + case 'Maybe.some': + var $8941 = self.value; + var $8942 = Parser$Reply$error$(Parser$Error$combine$($8941, $8939)); + var $8940 = $8942; + break; + case 'Maybe.none': + var $8943 = Parser$Reply$error$($8939); + var $8940 = $8943; + break; + }; + var $8938 = $8940; + break; + case 'Parser.Reply.value': + var $8944 = self.pst; + var $8945 = self.val; + var self = $8944; + switch (self._) { + case 'Parser.State.new': + var $8947 = self.err; + var $8948 = self.nam; + var $8949 = self.ini; + var $8950 = self.idx; + var $8951 = self.str; + var $8952 = ((console.log(("FALTANDO " + $8951)), (_$32 => { + var $8953 = ((console.log(("VALUE " + $8948)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8937, $8947), $8948, $8949, $8950, $8951); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $8955 = self.err; + var _reply$40 = Kind$Parser$term(_reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $8957 = self.err; + var self = $8955; + switch (self._) { + case 'Maybe.some': + var $8959 = self.value; + var $8960 = Parser$Reply$error$(Parser$Error$combine$($8959, $8957)); + var $8958 = $8960; + break; + case 'Maybe.none': + var $8961 = Parser$Reply$error$($8957); + var $8958 = $8961; + break; + }; + var $8956 = $8958; + break; + case 'Parser.Reply.value': + var $8962 = self.pst; + var $8963 = self.val; + var self = $8962; + switch (self._) { + case 'Parser.State.new': + var $8965 = self.err; + var $8966 = self.nam; + var $8967 = self.ini; + var $8968 = self.idx; + var $8969 = self.str; + var $8970 = ((console.log(("FALTANDO " + $8969)), (_$48 => { + var $8971 = ((console.log(("VALUE " + $8966)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8955, $8965), $8966, $8967, $8968, $8969); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $8973 = self.err; + var _reply$56 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $8975 = self.err; + var self = $8973; + switch (self._) { + case 'Maybe.some': + var $8977 = self.value; + var $8978 = Parser$Reply$error$(Parser$Error$combine$($8977, $8975)); + var $8976 = $8978; + break; + case 'Maybe.none': + var $8979 = Parser$Reply$error$($8975); + var $8976 = $8979; + break; + }; + var $8974 = $8976; + break; + case 'Parser.Reply.value': + var $8980 = self.pst; + var self = $8980; + switch (self._) { + case 'Parser.State.new': + var $8982 = self.err; + var $8983 = self.nam; + var $8984 = self.ini; + var $8985 = self.idx; + var $8986 = self.str; + var $8987 = ((console.log(("FALTANDO " + $8986)), (_$64 => { + var $8988 = ((console.log(("VALUE " + $8983)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8973, $8982), $8983, $8984, $8985, $8986); + var $8989 = Parser$Reply$value$(_reply$pst$66, Pair$new$($8945, $8963)); + return $8989; + })())); + return $8988; + })())); + var $8981 = $8987; + break; + }; + var $8974 = $8981; + break; + }; + var $8972 = $8974; + break; + }; + return $8972; + })())); + return $8971; + })())); + var $8964 = $8970; + break; + }; + var $8956 = $8964; + break; + }; + var $8954 = $8956; + break; + }; + return $8954; + })())); + return $8953; + })())); + var $8946 = $8952; + break; + }; + var $8938 = $8946; + break; + }; + var $8936 = $8938; + break; + }; + return $8936; + }); + var $8915 = $8935; + }; + var $8915 = $8915(_reply$pst$17); + return $8915; + })())); + return $8914; + })())); + var $8907 = $8913; + break; + }; + var $8899 = $8907; + break; + }; + var $8897 = $8899; + break; + }; + return $8897; + }; + const Kind$Parser$case$case = x0 => Kind$Parser$case$case$(x0); + + function Parser$append_error$(_parse$2, _msg$3, _pst$4) { + var _reply$5 = _parse$2(_pst$4); + var self = _reply$5; + switch (self._) { + case 'Parser.Reply.error': + var $8991 = self.err; + var self = $8991; + switch (self._) { + case 'Parser.Error.new': + var $8993 = self.nam; + var $8994 = self.ini; + var $8995 = self.idx; + var $8996 = self.msg; + var $8997 = Parser$Reply$fail$($8993, $8994, $8995, ($8996 + _msg$3)); + var $8992 = $8997; + break; + }; + var $8990 = $8992; + break; + case 'Parser.Reply.value': + var $8998 = _reply$5; + var $8990 = $8998; + break; + }; + return $8990; + }; + const Parser$append_error = x0 => x1 => x2 => Parser$append_error$(x0, x1, x2); + + function Kind$Parser$case$group$(_dflt$1, _cses$2) { + var self = _cses$2; + switch (self._) { + case 'List.cons': + var $9000 = self.head; + var $9001 = self.tail; + var _map$5 = Kind$Parser$case$group$(_dflt$1, $9001); + var self = $9000; + switch (self._) { + case 'Pair.new': + var $9003 = self.fst; + var $9004 = self.snd; + var self = $9003; + switch (self._) { + case 'List.cons': + var $9006 = self.head; + var $9007 = self.tail; + var _rest$10 = Maybe$default$(Kind$Map$get$($9006, _map$5), List$nil); + var $9008 = Kind$Map$set$($9006, List$cons$(Pair$new$($9007, $9004), _rest$10), _map$5); + var $9005 = $9008; + break; + case 'List.nil': + var $9009 = _map$5; + var $9005 = $9009; + break; + }; + var $9002 = $9005; + break; + }; + var $8999 = $9002; + break; + case 'List.nil': + var self = _dflt$1; + switch (self._) { + case 'Maybe.some': + var $9011 = self.value; + var $9012 = Kind$Map$set$("_", List$cons$(Pair$new$(List$nil, $9011), List$nil), Kind$Map$new); + var $9010 = $9012; + break; + case 'Maybe.none': + var $9013 = Kind$Map$new; + var $9010 = $9013; + break; + }; + var $8999 = $9010; + break; + }; + return $8999; + }; + const Kind$Parser$case$group = x0 => x1 => Kind$Parser$case$group$(x0, x1); + + function BitsMap$map$(_fn$3, _map$4) { + var self = _map$4; + switch (self._) { + case 'BitsMap.tie': + var $9015 = self.val; + var $9016 = self.lft; + var $9017 = self.rgt; + var self = $9015; + switch (self._) { + case 'Maybe.some': + var $9019 = self.value; + var $9020 = Maybe$some$(_fn$3($9019)); + var _val$8 = $9020; + break; + case 'Maybe.none': + var $9021 = Maybe$none; + var _val$8 = $9021; + break; + }; + var _lft$9 = BitsMap$map$(_fn$3, $9016); + var _rgt$10 = BitsMap$map$(_fn$3, $9017); + var $9018 = BitsMap$tie$(_val$8, _lft$9, _rgt$10); + var $9014 = $9018; + break; + case 'BitsMap.new': + var $9022 = BitsMap$new; + var $9014 = $9022; + break; + }; + return $9014; + }; + const BitsMap$map = x0 => x1 => BitsMap$map$(x0, x1); + + function Kind$Map$map$(_fn$3, _map$4) { + var $9023 = BitsMap$map$(_fn$3, _map$4); + return $9023; + }; + const Kind$Map$map = x0 => x1 => Kind$Map$map$(x0, x1); + + function Kind$Parser$case$build$(_vals$1, _wyth$2, _cses$3, _dflt$4, _moti$5) { + var self = _vals$1; + switch (self._) { + case 'List.cons': + var $9025 = self.head; + var $9026 = self.tail; + var _group$8 = Kind$Parser$case$group$(_dflt$4, _cses$3); + var _name$9 = Pair$fst$($9025); + var _expr$10 = Pair$snd$($9025); + var _cses$11 = Kind$Map$map$((_cses$11 => { + var $9028 = Kind$Parser$case$build$($9026, _wyth$2, _cses$11, _dflt$4, _moti$5); + return $9028; + }), _group$8); + var $9027 = Kind$Term$cse$(Bits$e, _expr$10, _name$9, _wyth$2, _cses$11, _moti$5); + var $9024 = $9027; + break; + case 'List.nil': + var self = _cses$3; + switch (self._) { + case 'List.cons': + var $9030 = self.head; + var $9031 = Pair$snd$($9030); + var $9029 = $9031; + break; + case 'List.nil': + var $9032 = Kind$Term$ref$("missing_case"); + var $9029 = $9032; + break; + }; + var $9024 = $9029; + break; + }; + return $9024; + }; + const Kind$Parser$case$build = x0 => x1 => x2 => x3 => x4 => Kind$Parser$case$build$(x0, x1, x2, x3, x4); + const Kind$Parser$case = Kind$Parser$block("case")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9034 = self.err; + var _reply$7 = Kind$Parser$text$("case ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9036 = self.err; + var self = $9034; + switch (self._) { + case 'Maybe.some': + var $9038 = self.value; + var $9039 = Parser$Reply$error$(Parser$Error$combine$($9038, $9036)); + var $9037 = $9039; + break; + case 'Maybe.none': + var $9040 = Parser$Reply$error$($9036); + var $9037 = $9040; + break; + }; + var $9035 = $9037; + break; + case 'Parser.Reply.value': + var $9041 = self.pst; + var self = $9041; + switch (self._) { + case 'Parser.State.new': + var $9043 = self.err; + var $9044 = self.nam; + var $9045 = self.ini; + var $9046 = self.idx; + var $9047 = self.str; + var $9048 = ((console.log(("FALTANDO " + $9047)), (_$15 => { + var $9049 = ((console.log(("VALUE " + $9044)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9034, $9043), $9044, $9045, $9046, $9047); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $9051 = self.err; + var _reply$23 = Parser$many1$((_pst$23 => { + var self = _pst$23; + switch (self._) { + case 'Parser.State.new': + var $9054 = self.err; + var _reply$29 = Parser$avoiding$(Kind$Parser$text("{"), Kind$Parser$term, _pst$23); + var self = _reply$29; + switch (self._) { + case 'Parser.Reply.error': + var $9056 = self.err; + var self = $9054; + switch (self._) { + case 'Maybe.some': + var $9058 = self.value; + var $9059 = Parser$Reply$error$(Parser$Error$combine$($9058, $9056)); + var $9057 = $9059; + break; + case 'Maybe.none': + var $9060 = Parser$Reply$error$($9056); + var $9057 = $9060; + break; + }; + var $9055 = $9057; + break; + case 'Parser.Reply.value': + var $9061 = self.pst; + var $9062 = self.val; + var self = $9061; + switch (self._) { + case 'Parser.State.new': + var $9064 = self.err; + var $9065 = self.nam; + var $9066 = self.ini; + var $9067 = self.idx; + var $9068 = self.str; + var $9069 = ((console.log(("FALTANDO " + $9068)), (_$37 => { + var $9070 = ((console.log(("VALUE " + $9065)), (_$38 => { + var _reply$pst$39 = Parser$State$new$(Parser$Error$maybe_combine$($9054, $9064), $9065, $9066, $9067, $9068); + var self = _reply$pst$39; + switch (self._) { + case 'Parser.State.new': + var $9072 = self.err; + var _reply$45 = Parser$maybe$((_pst$45 => { + var self = _pst$45; + switch (self._) { + case 'Parser.State.new': + var $9075 = self.err; + var _reply$51 = Kind$Parser$text$("as", _pst$45); + var self = _reply$51; + switch (self._) { + case 'Parser.Reply.error': + var $9077 = self.err; + var self = $9075; + switch (self._) { + case 'Maybe.some': + var $9079 = self.value; + var $9080 = Parser$Reply$error$(Parser$Error$combine$($9079, $9077)); + var $9078 = $9080; + break; + case 'Maybe.none': + var $9081 = Parser$Reply$error$($9077); + var $9078 = $9081; + break; + }; + var $9076 = $9078; + break; + case 'Parser.Reply.value': + var $9082 = self.pst; + var self = $9082; + switch (self._) { + case 'Parser.State.new': + var $9084 = self.err; + var $9085 = self.nam; + var $9086 = self.ini; + var $9087 = self.idx; + var $9088 = self.str; + var $9089 = ((console.log(("FALTANDO " + $9088)), (_$59 => { + var $9090 = ((console.log(("VALUE " + $9085)), (_$60 => { + var _reply$pst$61 = Parser$State$new$(Parser$Error$maybe_combine$($9075, $9084), $9085, $9086, $9087, $9088); + var self = _reply$pst$61; + switch (self._) { + case 'Parser.State.new': + var $9092 = self.err; + var _reply$67 = Kind$Parser$name1$(_reply$pst$61); + var self = _reply$67; + switch (self._) { + case 'Parser.Reply.error': + var $9094 = self.err; + var self = $9092; + switch (self._) { + case 'Maybe.some': + var $9096 = self.value; + var $9097 = Parser$Reply$error$(Parser$Error$combine$($9096, $9094)); + var $9095 = $9097; + break; + case 'Maybe.none': + var $9098 = Parser$Reply$error$($9094); + var $9095 = $9098; + break; + }; + var $9093 = $9095; + break; + case 'Parser.Reply.value': + var $9099 = self.pst; + var $9100 = self.val; + var self = $9099; + switch (self._) { + case 'Parser.State.new': + var $9102 = self.err; + var $9103 = self.nam; + var $9104 = self.ini; + var $9105 = self.idx; + var $9106 = self.str; + var $9107 = ((console.log(("FALTANDO " + $9106)), (_$75 => { + var $9108 = ((console.log(("VALUE " + $9103)), (_$76 => { + var _reply$pst$77 = Parser$State$new$(Parser$Error$maybe_combine$($9092, $9102), $9103, $9104, $9105, $9106); + var self = _reply$pst$77; + switch (self._) { + case 'Parser.State.new': + var $9110 = self.err; + var _reply$83 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$77); + var self = _reply$83; + switch (self._) { + case 'Parser.Reply.error': + var $9112 = self.err; + var self = $9110; + switch (self._) { + case 'Maybe.some': + var $9114 = self.value; + var $9115 = Parser$Reply$error$(Parser$Error$combine$($9114, $9112)); + var $9113 = $9115; + break; + case 'Maybe.none': + var $9116 = Parser$Reply$error$($9112); + var $9113 = $9116; + break; + }; + var $9111 = $9113; + break; + case 'Parser.Reply.value': + var $9117 = self.pst; + var self = $9117; + switch (self._) { + case 'Parser.State.new': + var $9119 = self.err; + var $9120 = self.nam; + var $9121 = self.ini; + var $9122 = self.idx; + var $9123 = self.str; + var $9124 = ((console.log(("FALTANDO " + $9123)), (_$91 => { + var $9125 = ((console.log(("VALUE " + $9120)), (_$92 => { + var _reply$pst$93 = Parser$State$new$(Parser$Error$maybe_combine$($9110, $9119), $9120, $9121, $9122, $9123); + var $9126 = Parser$Reply$value$(_reply$pst$93, $9100); + return $9126; + })())); + return $9125; + })())); + var $9118 = $9124; + break; + }; + var $9111 = $9118; + break; + }; + var $9109 = $9111; + break; + }; + return $9109; + })())); + return $9108; + })())); + var $9101 = $9107; + break; + }; + var $9093 = $9101; + break; + }; + var $9091 = $9093; + break; + }; + return $9091; + })())); + return $9090; + })())); + var $9083 = $9089; + break; + }; + var $9076 = $9083; + break; + }; + var $9074 = $9076; + break; + }; + return $9074; + }), _reply$pst$39); + var self = _reply$45; + switch (self._) { + case 'Parser.Reply.error': + var $9127 = self.err; + var self = $9072; + switch (self._) { + case 'Maybe.some': + var $9129 = self.value; + var $9130 = Parser$Reply$error$(Parser$Error$combine$($9129, $9127)); + var $9128 = $9130; + break; + case 'Maybe.none': + var $9131 = Parser$Reply$error$($9127); + var $9128 = $9131; + break; + }; + var $9073 = $9128; + break; + case 'Parser.Reply.value': + var $9132 = self.pst; + var $9133 = self.val; + var self = $9132; + switch (self._) { + case 'Parser.State.new': + var $9135 = self.err; + var $9136 = self.nam; + var $9137 = self.ini; + var $9138 = self.idx; + var $9139 = self.str; + var $9140 = ((console.log(("FALTANDO " + $9139)), (_$53 => { + var $9141 = ((console.log(("VALUE " + $9136)), (_$54 => { + var _reply$pst$55 = Parser$State$new$(Parser$Error$maybe_combine$($9072, $9135), $9136, $9137, $9138, $9139); + var _name$56 = Maybe$default$($9133, Kind$Term$extract_name$($9062)); + var $9142 = Parser$Reply$value$(_reply$pst$55, Pair$new$(_name$56, $9062)); + return $9142; + })())); + return $9141; + })())); + var $9134 = $9140; + break; + }; + var $9073 = $9134; + break; + }; + var $9071 = $9073; + break; + }; + return $9071; + })())); + return $9070; + })())); + var $9063 = $9069; + break; + }; + var $9055 = $9063; + break; + }; + var $9053 = $9055; + break; + }; + return $9053; + }), _reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $9143 = self.err; + var self = $9051; + switch (self._) { + case 'Maybe.some': + var $9145 = self.value; + var $9146 = Parser$Reply$error$(Parser$Error$combine$($9145, $9143)); + var $9144 = $9146; + break; + case 'Maybe.none': + var $9147 = Parser$Reply$error$($9143); + var $9144 = $9147; + break; + }; + var $9052 = $9144; + break; + case 'Parser.Reply.value': + var $9148 = self.pst; + var $9149 = self.val; + var self = $9148; + switch (self._) { + case 'Parser.State.new': + var $9151 = self.err; + var $9152 = self.nam; + var $9153 = self.ini; + var $9154 = self.idx; + var $9155 = self.str; + var $9156 = ((console.log(("FALTANDO " + $9155)), (_$31 => { + var $9157 = ((console.log(("VALUE " + $9152)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9051, $9151), $9152, $9153, $9154, $9155); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $9159 = self.err; + var _reply$39 = Kind$Parser$case$with(_reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $9161 = self.err; + var self = $9159; + switch (self._) { + case 'Maybe.some': + var $9163 = self.value; + var $9164 = Parser$Reply$error$(Parser$Error$combine$($9163, $9161)); + var $9162 = $9164; + break; + case 'Maybe.none': + var $9165 = Parser$Reply$error$($9161); + var $9162 = $9165; + break; + }; + var $9160 = $9162; + break; + case 'Parser.Reply.value': + var $9166 = self.pst; + var $9167 = self.val; + var self = $9166; + switch (self._) { + case 'Parser.State.new': + var $9169 = self.err; + var $9170 = self.nam; + var $9171 = self.ini; + var $9172 = self.idx; + var $9173 = self.str; + var $9174 = ((console.log(("FALTANDO " + $9173)), (_$47 => { + var $9175 = ((console.log(("VALUE " + $9170)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9159, $9169), $9170, $9171, $9172, $9173); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $9177 = self.err; + var _reply$55 = Kind$Parser$items$("{", Kind$Parser$case$case, "}")(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $9179 = self.err; + var self = $9177; + switch (self._) { + case 'Maybe.some': + var $9181 = self.value; + var $9182 = Parser$Reply$error$(Parser$Error$combine$($9181, $9179)); + var $9180 = $9182; + break; + case 'Maybe.none': + var $9183 = Parser$Reply$error$($9179); + var $9180 = $9183; + break; + }; + var $9178 = $9180; + break; + case 'Parser.Reply.value': + var $9184 = self.pst; + var $9185 = self.val; + var self = $9184; + switch (self._) { + case 'Parser.State.new': + var $9187 = self.err; + var $9188 = self.nam; + var $9189 = self.ini; + var $9190 = self.idx; + var $9191 = self.str; + var $9192 = ((console.log(("FALTANDO " + $9191)), (_$63 => { + var $9193 = ((console.log(("VALUE " + $9188)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($9177, $9187), $9188, $9189, $9190, $9191); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $9195 = self.err; + var _reply$71 = Parser$maybe$(Kind$Parser$text("!"), _reply$pst$65); + var self = _reply$71; + switch (self._) { + case 'Parser.Reply.error': + var $9197 = self.err; + var self = $9195; + switch (self._) { + case 'Maybe.some': + var $9199 = self.value; + var $9200 = Parser$Reply$error$(Parser$Error$combine$($9199, $9197)); + var $9198 = $9200; + break; + case 'Maybe.none': + var $9201 = Parser$Reply$error$($9197); + var $9198 = $9201; + break; + }; + var $9196 = $9198; + break; + case 'Parser.Reply.value': + var $9202 = self.pst; + var $9203 = self.val; + var self = $9202; + switch (self._) { + case 'Parser.State.new': + var $9205 = self.err; + var $9206 = self.nam; + var $9207 = self.ini; + var $9208 = self.idx; + var $9209 = self.str; + var $9210 = ((console.log(("FALTANDO " + $9209)), (_$79 => { + var $9211 = ((console.log(("VALUE " + $9206)), (_$80 => { + var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($9195, $9205), $9206, $9207, $9208, $9209); + var self = _reply$pst$81; + switch (self._) { + case 'Parser.State.new': + var $9213 = self.err; + var _reply$87 = Parser$maybe$((_pst$87 => { + var self = _pst$87; + switch (self._) { + case 'Parser.State.new': + var $9216 = self.err; + var _reply$93 = Kind$Parser$text$("default", _pst$87); + var self = _reply$93; + switch (self._) { + case 'Parser.Reply.error': + var $9218 = self.err; + var self = $9216; + switch (self._) { + case 'Maybe.some': + var $9220 = self.value; + var $9221 = Parser$Reply$error$(Parser$Error$combine$($9220, $9218)); + var $9219 = $9221; + break; + case 'Maybe.none': + var $9222 = Parser$Reply$error$($9218); + var $9219 = $9222; + break; + }; + var $9217 = $9219; + break; + case 'Parser.Reply.value': + var $9223 = self.pst; + var self = $9223; + switch (self._) { + case 'Parser.State.new': + var $9225 = self.err; + var $9226 = self.nam; + var $9227 = self.ini; + var $9228 = self.idx; + var $9229 = self.str; + var $9230 = ((console.log(("FALTANDO " + $9229)), (_$101 => { + var $9231 = ((console.log(("VALUE " + $9226)), (_$102 => { + var _reply$pst$103 = Parser$State$new$(Parser$Error$maybe_combine$($9216, $9225), $9226, $9227, $9228, $9229); + var self = _reply$pst$103; + switch (self._) { + case 'Parser.State.new': + var $9233 = self.err; + var _reply$109 = Kind$Parser$term(_reply$pst$103); + var self = _reply$109; + switch (self._) { + case 'Parser.Reply.error': + var $9235 = self.err; + var self = $9233; + switch (self._) { + case 'Maybe.some': + var $9237 = self.value; + var $9238 = Parser$Reply$error$(Parser$Error$combine$($9237, $9235)); + var $9236 = $9238; + break; + case 'Maybe.none': + var $9239 = Parser$Reply$error$($9235); + var $9236 = $9239; + break; + }; + var $9234 = $9236; + break; + case 'Parser.Reply.value': + var $9240 = self.pst; + var $9241 = self.val; + var self = $9240; + switch (self._) { + case 'Parser.State.new': + var $9243 = self.err; + var $9244 = self.nam; + var $9245 = self.ini; + var $9246 = self.idx; + var $9247 = self.str; + var $9248 = ((console.log(("FALTANDO " + $9247)), (_$117 => { + var $9249 = ((console.log(("VALUE " + $9244)), (_$118 => { + var _reply$pst$119 = Parser$State$new$(Parser$Error$maybe_combine$($9233, $9243), $9244, $9245, $9246, $9247); + var $9250 = Parser$Reply$value$(_reply$pst$119, $9241); + return $9250; + })())); + return $9249; + })())); + var $9242 = $9248; + break; + }; + var $9234 = $9242; + break; + }; + var $9232 = $9234; + break; + }; + return $9232; + })())); + return $9231; + })())); + var $9224 = $9230; + break; + }; + var $9217 = $9224; + break; + }; + var $9215 = $9217; + break; + }; + return $9215; + }), _reply$pst$81); + var self = _reply$87; + switch (self._) { + case 'Parser.Reply.error': + var $9251 = self.err; + var self = $9213; + switch (self._) { + case 'Maybe.some': + var $9253 = self.value; + var $9254 = Parser$Reply$error$(Parser$Error$combine$($9253, $9251)); + var $9252 = $9254; + break; + case 'Maybe.none': + var $9255 = Parser$Reply$error$($9251); + var $9252 = $9255; + break; + }; + var $9214 = $9252; + break; + case 'Parser.Reply.value': + var $9256 = self.pst; + var $9257 = self.val; + var self = $9256; + switch (self._) { + case 'Parser.State.new': + var $9259 = self.err; + var $9260 = self.nam; + var $9261 = self.ini; + var $9262 = self.idx; + var $9263 = self.str; + var $9264 = ((console.log(("FALTANDO " + $9263)), (_$95 => { + var $9265 = ((console.log(("VALUE " + $9260)), (_$96 => { + var _reply$pst$97 = Parser$State$new$(Parser$Error$maybe_combine$($9213, $9259), $9260, $9261, $9262, $9263); + var self = _reply$pst$97; + switch (self._) { + case 'Parser.State.new': + var $9267 = self.err; + var _reply$103 = Parser$maybe$((_pst$103 => { + var self = _pst$103; + switch (self._) { + case 'Parser.State.new': + var $9270 = self.err; + var _reply$109 = Kind$Parser$text$(":", _pst$103); + var self = _reply$109; + switch (self._) { + case 'Parser.Reply.error': + var $9272 = self.err; + var self = $9270; + switch (self._) { + case 'Maybe.some': + var $9274 = self.value; + var $9275 = Parser$Reply$error$(Parser$Error$combine$($9274, $9272)); + var $9273 = $9275; + break; + case 'Maybe.none': + var $9276 = Parser$Reply$error$($9272); + var $9273 = $9276; + break; + }; + var $9271 = $9273; + break; + case 'Parser.Reply.value': + var $9277 = self.pst; + var self = $9277; + switch (self._) { + case 'Parser.State.new': + var $9279 = self.err; + var $9280 = self.nam; + var $9281 = self.ini; + var $9282 = self.idx; + var $9283 = self.str; + var $9284 = ((console.log(("FALTANDO " + $9283)), (_$117 => { + var $9285 = ((console.log(("VALUE " + $9280)), (_$118 => { + var _reply$pst$119 = Parser$State$new$(Parser$Error$maybe_combine$($9270, $9279), $9280, $9281, $9282, $9283); + var $9286 = Parser$append_error$(Kind$Parser$term, "\u{a}Inside motive.", _reply$pst$119); + return $9286; + })())); + return $9285; + })())); + var $9278 = $9284; + break; + }; + var $9271 = $9278; + break; + }; + var $9269 = $9271; + break; + }; + return $9269; + }), _reply$pst$97); + var self = _reply$103; + switch (self._) { + case 'Parser.Reply.error': + var $9287 = self.err; + var self = $9267; + switch (self._) { + case 'Maybe.some': + var $9289 = self.value; + var $9290 = Parser$Reply$error$(Parser$Error$combine$($9289, $9287)); + var $9288 = $9290; + break; + case 'Maybe.none': + var $9291 = Parser$Reply$error$($9287); + var $9288 = $9291; + break; + }; + var $9268 = $9288; + break; + case 'Parser.Reply.value': + var $9292 = self.pst; + var $9293 = self.val; + var self = $9292; + switch (self._) { + case 'Parser.State.new': + var $9295 = self.err; + var $9296 = self.nam; + var $9297 = self.ini; + var $9298 = self.idx; + var $9299 = self.str; + var $9300 = ((console.log(("FALTANDO " + $9299)), (_$111 => { + var $9301 = ((console.log(("VALUE " + $9296)), (_$112 => { + var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($9267, $9295), $9296, $9297, $9298, $9299); + var self = $9293; + switch (self._) { + case 'Maybe.some': + var $9303 = self.value; + var $9304 = Maybe$some$($9303); + var _moti$114 = $9304; + break; + case 'Maybe.none': + var self = $9203; + switch (self._) { + case 'Maybe.none': + var $9306 = Maybe$some$(Kind$Term$hol$(Bits$e)); + var $9305 = $9306; + break; + case 'Maybe.some': + var $9307 = Maybe$none; + var $9305 = $9307; + break; + }; + var _moti$114 = $9305; + break; + }; + var $9302 = Parser$Reply$value$(_reply$pst$113, Kind$Parser$case$build$($9149, $9167, $9185, $9257, _moti$114)); + return $9302; + })())); + return $9301; + })())); + var $9294 = $9300; + break; + }; + var $9268 = $9294; + break; + }; + var $9266 = $9268; + break; + }; + return $9266; + })())); + return $9265; + })())); + var $9258 = $9264; + break; + }; + var $9214 = $9258; + break; + }; + var $9212 = $9214; + break; + }; + return $9212; + })())); + return $9211; + })())); + var $9204 = $9210; + break; + }; + var $9196 = $9204; + break; + }; + var $9194 = $9196; + break; + }; + return $9194; + })())); + return $9193; + })())); + var $9186 = $9192; + break; + }; + var $9178 = $9186; + break; + }; + var $9176 = $9178; + break; + }; + return $9176; + })())); + return $9175; + })())); + var $9168 = $9174; + break; + }; + var $9160 = $9168; + break; + }; + var $9158 = $9160; + break; + }; + return $9158; + })())); + return $9157; + })())); + var $9150 = $9156; + break; + }; + var $9052 = $9150; + break; + }; + var $9050 = $9052; + break; + }; + return $9050; + })())); + return $9049; + })())); + var $9042 = $9048; + break; + }; + var $9035 = $9042; + break; + }; + var $9033 = $9035; + break; + }; + return $9033; + })); + const Kind$Parser$without = Kind$Parser$block("without")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9309 = self.err; + var _reply$7 = Kind$Parser$text$("without ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9311 = self.err; + var self = $9309; + switch (self._) { + case 'Maybe.some': + var $9313 = self.value; + var $9314 = Parser$Reply$error$(Parser$Error$combine$($9313, $9311)); + var $9312 = $9314; + break; + case 'Maybe.none': + var $9315 = Parser$Reply$error$($9311); + var $9312 = $9315; + break; + }; + var $9310 = $9312; + break; + case 'Parser.Reply.value': + var $9316 = self.pst; + var self = $9316; + switch (self._) { + case 'Parser.State.new': + var $9318 = self.err; + var $9319 = self.nam; + var $9320 = self.ini; + var $9321 = self.idx; + var $9322 = self.str; + var $9323 = ((console.log(("FALTANDO " + $9322)), (_$15 => { + var $9324 = ((console.log(("VALUE " + $9319)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9309, $9318), $9319, $9320, $9321, $9322); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $9326 = self.err; + var _reply$23 = Kind$Parser$name1$(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $9328 = self.err; + var self = $9326; + switch (self._) { + case 'Maybe.some': + var $9330 = self.value; + var $9331 = Parser$Reply$error$(Parser$Error$combine$($9330, $9328)); + var $9329 = $9331; + break; + case 'Maybe.none': + var $9332 = Parser$Reply$error$($9328); + var $9329 = $9332; + break; + }; + var $9327 = $9329; + break; + case 'Parser.Reply.value': + var $9333 = self.pst; + var $9334 = self.val; + var self = $9333; + switch (self._) { + case 'Parser.State.new': + var $9336 = self.err; + var $9337 = self.nam; + var $9338 = self.ini; + var $9339 = self.idx; + var $9340 = self.str; + var $9341 = ((console.log(("FALTANDO " + $9340)), (_$31 => { + var $9342 = ((console.log(("VALUE " + $9337)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9326, $9336), $9337, $9338, $9339, $9340); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $9344 = self.err; + var _reply$39 = Kind$Parser$text$(":", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $9346 = self.err; + var self = $9344; + switch (self._) { + case 'Maybe.some': + var $9348 = self.value; + var $9349 = Parser$Reply$error$(Parser$Error$combine$($9348, $9346)); + var $9347 = $9349; + break; + case 'Maybe.none': + var $9350 = Parser$Reply$error$($9346); + var $9347 = $9350; + break; + }; + var $9345 = $9347; + break; + case 'Parser.Reply.value': + var $9351 = self.pst; + var self = $9351; + switch (self._) { + case 'Parser.State.new': + var $9353 = self.err; + var $9354 = self.nam; + var $9355 = self.ini; + var $9356 = self.idx; + var $9357 = self.str; + var $9358 = ((console.log(("FALTANDO " + $9357)), (_$47 => { + var $9359 = ((console.log(("VALUE " + $9354)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9344, $9353), $9354, $9355, $9356, $9357); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $9361 = self.err; + var _reply$55 = Kind$Parser$term(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $9363 = self.err; + var self = $9361; + switch (self._) { + case 'Maybe.some': + var $9365 = self.value; + var $9366 = Parser$Reply$error$(Parser$Error$combine$($9365, $9363)); + var $9364 = $9366; + break; + case 'Maybe.none': + var $9367 = Parser$Reply$error$($9363); + var $9364 = $9367; + break; + }; + var $9362 = $9364; + break; + case 'Parser.Reply.value': + var $9368 = self.pst; + var $9369 = self.val; + var self = $9368; + switch (self._) { + case 'Parser.State.new': + var $9371 = self.err; + var $9372 = self.nam; + var $9373 = self.ini; + var $9374 = self.idx; + var $9375 = self.str; + var $9376 = ((console.log(("FALTANDO " + $9375)), (_$63 => { + var $9377 = ((console.log(("VALUE " + $9372)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($9361, $9371), $9372, $9373, $9374, $9375); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $9379 = self.err; + var _reply$71 = Kind$Parser$term(_reply$pst$65); + var self = _reply$71; + switch (self._) { + case 'Parser.Reply.error': + var $9381 = self.err; + var self = $9379; + switch (self._) { + case 'Maybe.some': + var $9383 = self.value; + var $9384 = Parser$Reply$error$(Parser$Error$combine$($9383, $9381)); + var $9382 = $9384; + break; + case 'Maybe.none': + var $9385 = Parser$Reply$error$($9381); + var $9382 = $9385; + break; + }; + var $9380 = $9382; + break; + case 'Parser.Reply.value': + var $9386 = self.pst; + var $9387 = self.val; + var self = $9386; + switch (self._) { + case 'Parser.State.new': + var $9389 = self.err; + var $9390 = self.nam; + var $9391 = self.ini; + var $9392 = self.idx; + var $9393 = self.str; + var $9394 = ((console.log(("FALTANDO " + $9393)), (_$79 => { + var $9395 = ((console.log(("VALUE " + $9390)), (_$80 => { + var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($9379, $9389), $9390, $9391, $9392, $9393); + var _term$82 = Kind$Term$ref$($9334); + var _term$83 = Kind$Term$app$(_term$82, Kind$Term$lam$("", (_x$83 => { + var $9397 = Kind$Term$hol$(Bits$e); + return $9397; + }))); + var _term$84 = Kind$Term$app$(_term$83, $9369); + var _term$85 = Kind$Term$app$(_term$84, Kind$Term$lam$($9334, (_x$85 => { + var $9398 = $9387; + return $9398; + }))); + var $9396 = Parser$Reply$value$(_reply$pst$81, _term$85); + return $9396; + })())); + return $9395; + })())); + var $9388 = $9394; + break; + }; + var $9380 = $9388; + break; + }; + var $9378 = $9380; + break; + }; + return $9378; + })())); + return $9377; + })())); + var $9370 = $9376; + break; + }; + var $9362 = $9370; + break; + }; + var $9360 = $9362; + break; + }; + return $9360; + })())); + return $9359; + })())); + var $9352 = $9358; + break; + }; + var $9345 = $9352; + break; + }; + var $9343 = $9345; + break; + }; + return $9343; + })())); + return $9342; + })())); + var $9335 = $9341; + break; + }; + var $9327 = $9335; + break; + }; + var $9325 = $9327; + break; + }; + return $9325; + })())); + return $9324; + })())); + var $9317 = $9323; + break; + }; + var $9310 = $9317; + break; + }; + var $9308 = $9310; + break; + }; + return $9308; + })); + + function Kind$Parser$switch$case$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9400 = self.err; + var _reply$7 = Kind$Parser$term(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9402 = self.err; + var self = $9400; + switch (self._) { + case 'Maybe.some': + var $9404 = self.value; + var $9405 = Parser$Reply$error$(Parser$Error$combine$($9404, $9402)); + var $9403 = $9405; + break; + case 'Maybe.none': + var $9406 = Parser$Reply$error$($9402); + var $9403 = $9406; + break; + }; + var $9401 = $9403; + break; + case 'Parser.Reply.value': + var $9407 = self.pst; + var $9408 = self.val; + var self = $9407; + switch (self._) { + case 'Parser.State.new': + var $9410 = self.err; + var $9411 = self.nam; + var $9412 = self.ini; + var $9413 = self.idx; + var $9414 = self.str; + var $9415 = ((console.log(("FALTANDO " + $9414)), (_$15 => { + var $9416 = ((console.log(("VALUE " + $9411)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9400, $9410), $9411, $9412, $9413, $9414); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $9418 = self.err; + var _reply$23 = Kind$Parser$text$(":", _reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $9420 = self.err; + var self = $9418; + switch (self._) { + case 'Maybe.some': + var $9422 = self.value; + var $9423 = Parser$Reply$error$(Parser$Error$combine$($9422, $9420)); + var $9421 = $9423; + break; + case 'Maybe.none': + var $9424 = Parser$Reply$error$($9420); + var $9421 = $9424; + break; + }; + var $9419 = $9421; + break; + case 'Parser.Reply.value': + var $9425 = self.pst; + var self = $9425; + switch (self._) { + case 'Parser.State.new': + var $9427 = self.err; + var $9428 = self.nam; + var $9429 = self.ini; + var $9430 = self.idx; + var $9431 = self.str; + var $9432 = ((console.log(("FALTANDO " + $9431)), (_$31 => { + var $9433 = ((console.log(("VALUE " + $9428)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9418, $9427), $9428, $9429, $9430, $9431); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $9435 = self.err; + var _reply$39 = Kind$Parser$term(_reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $9437 = self.err; + var self = $9435; + switch (self._) { + case 'Maybe.some': + var $9439 = self.value; + var $9440 = Parser$Reply$error$(Parser$Error$combine$($9439, $9437)); + var $9438 = $9440; + break; + case 'Maybe.none': + var $9441 = Parser$Reply$error$($9437); + var $9438 = $9441; + break; + }; + var $9436 = $9438; + break; + case 'Parser.Reply.value': + var $9442 = self.pst; + var $9443 = self.val; + var self = $9442; + switch (self._) { + case 'Parser.State.new': + var $9445 = self.err; + var $9446 = self.nam; + var $9447 = self.ini; + var $9448 = self.idx; + var $9449 = self.str; + var $9450 = ((console.log(("FALTANDO " + $9449)), (_$47 => { + var $9451 = ((console.log(("VALUE " + $9446)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9435, $9445), $9446, $9447, $9448, $9449); + var $9452 = Parser$Reply$value$(_reply$pst$49, Pair$new$($9408, $9443)); + return $9452; + })())); + return $9451; + })())); + var $9444 = $9450; + break; + }; + var $9436 = $9444; + break; + }; + var $9434 = $9436; + break; + }; + return $9434; + })())); + return $9433; + })())); + var $9426 = $9432; + break; + }; + var $9419 = $9426; + break; + }; + var $9417 = $9419; + break; + }; + return $9417; + })())); + return $9416; + })())); + var $9409 = $9415; + break; + }; + var $9401 = $9409; + break; + }; + var $9399 = $9401; + break; + }; + return $9399; + }; + const Kind$Parser$switch$case = x0 => Kind$Parser$switch$case$(x0); + const Kind$Parser$switch = Kind$Parser$block("switch")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9454 = self.err; + var _reply$7 = Kind$Parser$text$("switch", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9456 = self.err; + var self = $9454; + switch (self._) { + case 'Maybe.some': + var $9458 = self.value; + var $9459 = Parser$Reply$error$(Parser$Error$combine$($9458, $9456)); + var $9457 = $9459; + break; + case 'Maybe.none': + var $9460 = Parser$Reply$error$($9456); + var $9457 = $9460; + break; + }; + var $9455 = $9457; + break; + case 'Parser.Reply.value': + var $9461 = self.pst; + var self = $9461; + switch (self._) { + case 'Parser.State.new': + var $9463 = self.err; + var $9464 = self.nam; + var $9465 = self.ini; + var $9466 = self.idx; + var $9467 = self.str; + var $9468 = ((console.log(("FALTANDO " + $9467)), (_$15 => { + var $9469 = ((console.log(("VALUE " + $9464)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9454, $9463), $9464, $9465, $9466, $9467); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $9471 = self.err; + var _reply$23 = Kind$Parser$term(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $9473 = self.err; + var self = $9471; + switch (self._) { + case 'Maybe.some': + var $9475 = self.value; + var $9476 = Parser$Reply$error$(Parser$Error$combine$($9475, $9473)); + var $9474 = $9476; + break; + case 'Maybe.none': + var $9477 = Parser$Reply$error$($9473); + var $9474 = $9477; + break; + }; + var $9472 = $9474; + break; + case 'Parser.Reply.value': + var $9478 = self.pst; + var $9479 = self.val; + var self = $9478; + switch (self._) { + case 'Parser.State.new': + var $9481 = self.err; + var $9482 = self.nam; + var $9483 = self.ini; + var $9484 = self.idx; + var $9485 = self.str; + var $9486 = ((console.log(("FALTANDO " + $9485)), (_$31 => { + var $9487 = ((console.log(("VALUE " + $9482)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9471, $9481), $9482, $9483, $9484, $9485); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $9489 = self.err; + var _reply$39 = Kind$Parser$items$("{", Kind$Parser$switch$case, "}")(_reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $9491 = self.err; + var self = $9489; + switch (self._) { + case 'Maybe.some': + var $9493 = self.value; + var $9494 = Parser$Reply$error$(Parser$Error$combine$($9493, $9491)); + var $9492 = $9494; + break; + case 'Maybe.none': + var $9495 = Parser$Reply$error$($9491); + var $9492 = $9495; + break; + }; + var $9490 = $9492; + break; + case 'Parser.Reply.value': + var $9496 = self.pst; + var $9497 = self.val; + var self = $9496; + switch (self._) { + case 'Parser.State.new': + var $9499 = self.err; + var $9500 = self.nam; + var $9501 = self.ini; + var $9502 = self.idx; + var $9503 = self.str; + var $9504 = ((console.log(("FALTANDO " + $9503)), (_$47 => { + var $9505 = ((console.log(("VALUE " + $9500)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9489, $9499), $9500, $9501, $9502, $9503); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $9507 = self.err; + var _reply$55 = Kind$Parser$text$("default", _reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $9509 = self.err; + var self = $9507; + switch (self._) { + case 'Maybe.some': + var $9511 = self.value; + var $9512 = Parser$Reply$error$(Parser$Error$combine$($9511, $9509)); + var $9510 = $9512; + break; + case 'Maybe.none': + var $9513 = Parser$Reply$error$($9509); + var $9510 = $9513; + break; + }; + var $9508 = $9510; + break; + case 'Parser.Reply.value': + var $9514 = self.pst; + var self = $9514; + switch (self._) { + case 'Parser.State.new': + var $9516 = self.err; + var $9517 = self.nam; + var $9518 = self.ini; + var $9519 = self.idx; + var $9520 = self.str; + var $9521 = ((console.log(("FALTANDO " + $9520)), (_$63 => { + var $9522 = ((console.log(("VALUE " + $9517)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($9507, $9516), $9517, $9518, $9519, $9520); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $9524 = self.err; + var _reply$71 = Kind$Parser$term(_reply$pst$65); + var self = _reply$71; + switch (self._) { + case 'Parser.Reply.error': + var $9526 = self.err; + var self = $9524; + switch (self._) { + case 'Maybe.some': + var $9528 = self.value; + var $9529 = Parser$Reply$error$(Parser$Error$combine$($9528, $9526)); + var $9527 = $9529; + break; + case 'Maybe.none': + var $9530 = Parser$Reply$error$($9526); + var $9527 = $9530; + break; + }; + var $9525 = $9527; + break; + case 'Parser.Reply.value': + var $9531 = self.pst; + var $9532 = self.val; + var self = $9531; + switch (self._) { + case 'Parser.State.new': + var $9534 = self.err; + var $9535 = self.nam; + var $9536 = self.ini; + var $9537 = self.idx; + var $9538 = self.str; + var $9539 = ((console.log(("FALTANDO " + $9538)), (_$79 => { + var $9540 = ((console.log(("VALUE " + $9535)), (_$80 => { + var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($9524, $9534), $9535, $9536, $9537, $9538); + var _term$82 = List$fold$($9497, $9532, (_cse$82 => _rest$83 => { + var self = _cse$82; + switch (self._) { + case 'Pair.new': + var $9543 = self.fst; + var $9544 = self.snd; + var _term$86 = Kind$Term$app$($9479, $9543); + var _term$87 = Kind$Term$app$(_term$86, Kind$Term$lam$("", (_x$87 => { + var $9546 = Kind$Term$hol$(Bits$e); + return $9546; + }))); + var _term$88 = Kind$Term$app$(_term$87, $9544); + var _term$89 = Kind$Term$app$(_term$88, _rest$83); + var $9545 = _term$89; + var $9542 = $9545; + break; + }; + return $9542; + })); + var $9541 = Parser$Reply$value$(_reply$pst$81, _term$82); + return $9541; + })())); + return $9540; + })())); + var $9533 = $9539; + break; + }; + var $9525 = $9533; + break; + }; + var $9523 = $9525; + break; + }; + return $9523; + })())); + return $9522; + })())); + var $9515 = $9521; + break; + }; + var $9508 = $9515; + break; + }; + var $9506 = $9508; + break; + }; + return $9506; + })())); + return $9505; + })())); + var $9498 = $9504; + break; + }; + var $9490 = $9498; + break; + }; + var $9488 = $9490; + break; + }; + return $9488; + })())); + return $9487; + })())); + var $9480 = $9486; + break; + }; + var $9472 = $9480; + break; + }; + var $9470 = $9472; + break; + }; + return $9470; + })())); + return $9469; + })())); + var $9462 = $9468; + break; + }; + var $9455 = $9462; + break; + }; + var $9453 = $9455; + break; + }; + return $9453; + })); + + function Bits$tail$(_a$1) { + var self = _a$1; + switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { + case 'o': + var $9548 = self.slice(0, -1); + var $9549 = $9548; + var $9547 = $9549; + break; + case 'i': + var $9550 = self.slice(0, -1); + var $9551 = $9550; + var $9547 = $9551; + break; + case 'e': + var $9552 = Bits$e; + var $9547 = $9552; + break; + }; + return $9547; + }; + const Bits$tail = x0 => Bits$tail$(x0); + + function Bits$inc$(_a$1) { + var self = _a$1; + switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { + case 'o': + var $9554 = self.slice(0, -1); + var $9555 = ($9554 + '1'); + var $9553 = $9555; + break; + case 'i': + var $9556 = self.slice(0, -1); + var $9557 = (Bits$inc$($9556) + '0'); + var $9553 = $9557; + break; + case 'e': + var $9558 = (Bits$e + '1'); + var $9553 = $9558; + break; + }; + return $9553; + }; + const Bits$inc = x0 => Bits$inc$(x0); + const Nat$to_bits = a0 => (nat_to_bits(a0)); + + function Maybe$is_some$(_m$2) { + var self = _m$2; + switch (self._) { + case 'Maybe.none': + var $9560 = Bool$false; + var $9559 = $9560; + break; + case 'Maybe.some': + var $9561 = Bool$true; + var $9559 = $9561; + break; + }; + return $9559; + }; + const Maybe$is_some = x0 => Maybe$is_some$(x0); + + function Kind$Term$gol$(_name$1, _dref$2, _verb$3) { + var $9562 = ({ + _: 'Kind.Term.gol', + 'name': _name$1, + 'dref': _dref$2, + 'verb': _verb$3 + }); + return $9562; + }; + const Kind$Term$gol = x0 => x1 => x2 => Kind$Term$gol$(x0, x1, x2); + const Kind$Parser$goal = Kind$Parser$block("goal")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9564 = self.err; + var _reply$7 = Kind$Parser$text$("?", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9566 = self.err; + var self = $9564; + switch (self._) { + case 'Maybe.some': + var $9568 = self.value; + var $9569 = Parser$Reply$error$(Parser$Error$combine$($9568, $9566)); + var $9567 = $9569; + break; + case 'Maybe.none': + var $9570 = Parser$Reply$error$($9566); + var $9567 = $9570; + break; + }; + var $9565 = $9567; + break; + case 'Parser.Reply.value': + var $9571 = self.pst; + var self = $9571; + switch (self._) { + case 'Parser.State.new': + var $9573 = self.err; + var $9574 = self.nam; + var $9575 = self.ini; + var $9576 = self.idx; + var $9577 = self.str; + var $9578 = ((console.log(("FALTANDO " + $9577)), (_$15 => { + var $9579 = ((console.log(("VALUE " + $9574)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9564, $9573), $9574, $9575, $9576, $9577); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $9581 = self.err; + var _reply$23 = Kind$Parser$name$(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $9583 = self.err; + var self = $9581; + switch (self._) { + case 'Maybe.some': + var $9585 = self.value; + var $9586 = Parser$Reply$error$(Parser$Error$combine$($9585, $9583)); + var $9584 = $9586; + break; + case 'Maybe.none': + var $9587 = Parser$Reply$error$($9583); + var $9584 = $9587; + break; + }; + var $9582 = $9584; + break; + case 'Parser.Reply.value': + var $9588 = self.pst; + var $9589 = self.val; + var self = $9588; + switch (self._) { + case 'Parser.State.new': + var $9591 = self.err; + var $9592 = self.nam; + var $9593 = self.ini; + var $9594 = self.idx; + var $9595 = self.str; + var $9596 = ((console.log(("FALTANDO " + $9595)), (_$31 => { + var $9597 = ((console.log(("VALUE " + $9592)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9581, $9591), $9592, $9593, $9594, $9595); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $9599 = self.err; + var _reply$39 = Parser$many$((_pst$39 => { + var self = _pst$39; + switch (self._) { + case 'Parser.State.new': + var $9602 = self.err; + var _reply$45 = Kind$Parser$text$("-", _pst$39); + var self = _reply$45; + switch (self._) { + case 'Parser.Reply.error': + var $9604 = self.err; + var self = $9602; + switch (self._) { + case 'Maybe.some': + var $9606 = self.value; + var $9607 = Parser$Reply$error$(Parser$Error$combine$($9606, $9604)); + var $9605 = $9607; + break; + case 'Maybe.none': + var $9608 = Parser$Reply$error$($9604); + var $9605 = $9608; + break; + }; + var $9603 = $9605; + break; + case 'Parser.Reply.value': + var $9609 = self.pst; + var self = $9609; + switch (self._) { + case 'Parser.State.new': + var $9611 = self.err; + var $9612 = self.nam; + var $9613 = self.ini; + var $9614 = self.idx; + var $9615 = self.str; + var $9616 = ((console.log(("FALTANDO " + $9615)), (_$53 => { + var $9617 = ((console.log(("VALUE " + $9612)), (_$54 => { + var _reply$pst$55 = Parser$State$new$(Parser$Error$maybe_combine$($9602, $9611), $9612, $9613, $9614, $9615); + var self = _reply$pst$55; + switch (self._) { + case 'Parser.State.new': + var $9619 = self.err; + var _reply$61 = Parser$nat$(_reply$pst$55); + var self = _reply$61; + switch (self._) { + case 'Parser.Reply.error': + var $9621 = self.err; + var self = $9619; + switch (self._) { + case 'Maybe.some': + var $9623 = self.value; + var $9624 = Parser$Reply$error$(Parser$Error$combine$($9623, $9621)); + var $9622 = $9624; + break; + case 'Maybe.none': + var $9625 = Parser$Reply$error$($9621); + var $9622 = $9625; + break; + }; + var $9620 = $9622; + break; + case 'Parser.Reply.value': + var $9626 = self.pst; + var $9627 = self.val; + var self = $9626; + switch (self._) { + case 'Parser.State.new': + var $9629 = self.err; + var $9630 = self.nam; + var $9631 = self.ini; + var $9632 = self.idx; + var $9633 = self.str; + var $9634 = ((console.log(("FALTANDO " + $9633)), (_$69 => { + var $9635 = ((console.log(("VALUE " + $9630)), (_$70 => { + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($9619, $9629), $9630, $9631, $9632, $9633); + var _bits$72 = Bits$reverse$(Bits$tail$(Bits$reverse$((nat_to_bits($9627))))); + var $9636 = Parser$Reply$value$(_reply$pst$71, _bits$72); + return $9636; + })())); + return $9635; + })())); + var $9628 = $9634; + break; + }; + var $9620 = $9628; + break; + }; + var $9618 = $9620; + break; + }; + return $9618; + })())); + return $9617; + })())); + var $9610 = $9616; + break; + }; + var $9603 = $9610; + break; + }; + var $9601 = $9603; + break; + }; + return $9601; + }))(_reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $9637 = self.err; + var self = $9599; + switch (self._) { + case 'Maybe.some': + var $9639 = self.value; + var $9640 = Parser$Reply$error$(Parser$Error$combine$($9639, $9637)); + var $9638 = $9640; + break; + case 'Maybe.none': + var $9641 = Parser$Reply$error$($9637); + var $9638 = $9641; + break; + }; + var $9600 = $9638; + break; + case 'Parser.Reply.value': + var $9642 = self.pst; + var $9643 = self.val; + var self = $9642; + switch (self._) { + case 'Parser.State.new': + var $9645 = self.err; + var $9646 = self.nam; + var $9647 = self.ini; + var $9648 = self.idx; + var $9649 = self.str; + var $9650 = ((console.log(("FALTANDO " + $9649)), (_$47 => { + var $9651 = ((console.log(("VALUE " + $9646)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9599, $9645), $9646, $9647, $9648, $9649); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $9653 = self.err; + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $9655 = self.err; + var _reply$60 = Parser$maybe$(Parser$text("-"), _reply$pst$49); + var self = _reply$60; + switch (self._) { + case 'Parser.Reply.error': + var $9657 = self.err; + var self = $9655; + switch (self._) { + case 'Maybe.some': + var $9659 = self.value; + var $9660 = Parser$Reply$error$(Parser$Error$combine$($9659, $9657)); + var $9658 = $9660; + break; + case 'Maybe.none': + var $9661 = Parser$Reply$error$($9657); + var $9658 = $9661; + break; + }; + var $9656 = $9658; + break; + case 'Parser.Reply.value': + var $9662 = self.pst; + var $9663 = self.val; + var self = $9662; + switch (self._) { + case 'Parser.State.new': + var $9665 = self.err; + var $9666 = self.nam; + var $9667 = self.ini; + var $9668 = self.idx; + var $9669 = self.str; + var $9670 = ((console.log(("FALTANDO " + $9669)), (_$68 => { + var $9671 = ((console.log(("VALUE " + $9666)), (_$69 => { + var _reply$pst$70 = Parser$State$new$(Parser$Error$maybe_combine$($9655, $9665), $9666, $9667, $9668, $9669); + var $9672 = Parser$Reply$value$(_reply$pst$70, Maybe$is_some$($9663)); + return $9672; + })())); + return $9671; + })())); + var $9664 = $9670; + break; + }; + var $9656 = $9664; + break; + }; + var _reply$55 = $9656; + break; + }; + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $9673 = self.err; + var self = $9653; + switch (self._) { + case 'Maybe.some': + var $9675 = self.value; + var $9676 = Parser$Reply$error$(Parser$Error$combine$($9675, $9673)); + var $9674 = $9676; + break; + case 'Maybe.none': + var $9677 = Parser$Reply$error$($9673); + var $9674 = $9677; + break; + }; + var $9654 = $9674; + break; + case 'Parser.Reply.value': + var $9678 = self.pst; + var $9679 = self.val; + var self = $9678; + switch (self._) { + case 'Parser.State.new': + var $9681 = self.err; + var $9682 = self.nam; + var $9683 = self.ini; + var $9684 = self.idx; + var $9685 = self.str; + var $9686 = ((console.log(("FALTANDO " + $9685)), (_$63 => { + var $9687 = ((console.log(("VALUE " + $9682)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($9653, $9681), $9682, $9683, $9684, $9685); + var $9688 = Parser$Reply$value$(_reply$pst$65, Kind$Term$gol$($9589, $9643, $9679)); + return $9688; + })())); + return $9687; + })())); + var $9680 = $9686; + break; + }; + var $9654 = $9680; + break; + }; + var $9652 = $9654; + break; + }; + return $9652; + })())); + return $9651; + })())); + var $9644 = $9650; + break; + }; + var $9600 = $9644; + break; + }; + var $9598 = $9600; + break; + }; + return $9598; + })())); + return $9597; + })())); + var $9590 = $9596; + break; + }; + var $9582 = $9590; + break; + }; + var $9580 = $9582; + break; + }; + return $9580; + })())); + return $9579; + })())); + var $9572 = $9578; + break; + }; + var $9565 = $9572; + break; + }; + var $9563 = $9565; + break; + }; + return $9563; + })); + const Kind$Parser$hole = Kind$Parser$block("hole")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9690 = self.err; + var _reply$7 = Kind$Parser$text$("_", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9692 = self.err; + var self = $9690; + switch (self._) { + case 'Maybe.some': + var $9694 = self.value; + var $9695 = Parser$Reply$error$(Parser$Error$combine$($9694, $9692)); + var $9693 = $9695; + break; + case 'Maybe.none': + var $9696 = Parser$Reply$error$($9692); + var $9693 = $9696; + break; + }; + var $9691 = $9693; + break; + case 'Parser.Reply.value': + var $9697 = self.pst; + var self = $9697; + switch (self._) { + case 'Parser.State.new': + var $9699 = self.err; + var $9700 = self.nam; + var $9701 = self.ini; + var $9702 = self.idx; + var $9703 = self.str; + var $9704 = ((console.log(("FALTANDO " + $9703)), (_$15 => { + var $9705 = ((console.log(("VALUE " + $9700)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9690, $9699), $9700, $9701, $9702, $9703); + var $9706 = Parser$Reply$value$(_reply$pst$17, Kind$Term$hol$(Bits$e)); + return $9706; + })())); + return $9705; + })())); + var $9698 = $9704; + break; + }; + var $9691 = $9698; + break; + }; + var $9689 = $9691; + break; + }; + return $9689; + })); + + function Kind$Parser$float$sign$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9708 = self.nam; + var $9709 = self.ini; + var $9710 = self.idx; + var $9711 = self.str; + var self = $9711; + if (self.length === 0) { + var $9713 = Parser$Reply$fail$($9708, $9709, $9710, "Expected \'+\' or \'-\'."); + var $9712 = $9713; + } else { + var $9714 = self.charCodeAt(0); + var $9715 = self.slice(1); + var self = (($9714 === 43) || ($9714 === 45)); + if (self) { + var $9717 = Parser$Reply$value$(_pst$1, $9714); + var $9716 = $9717; + } else { + var $9718 = Parser$Reply$fail$($9708, $9709, $9710, "Expected \'+\' ou \'-\'."); + var $9716 = $9718; + }; + var $9712 = $9716; + }; + var $9707 = $9712; + break; + }; + return $9707; + }; + const Kind$Parser$float$sign = x0 => Kind$Parser$float$sign$(x0); + + function List$any$(_cond$2, _list$3) { + var List$any$ = (_cond$2, _list$3) => ({ + ctr: 'TCO', + arg: [_cond$2, _list$3] + }); + var List$any = _cond$2 => _list$3 => List$any$(_cond$2, _list$3); + var arg = [_cond$2, _list$3]; + while (true) { + let [_cond$2, _list$3] = arg; + var R = (() => { + var self = _list$3; + switch (self._) { + case 'List.cons': + var $9719 = self.head; + var $9720 = self.tail; + var self = _cond$2($9719); + if (self) { + var $9722 = Bool$true; + var $9721 = $9722; + } else { + var $9723 = List$any$(_cond$2, $9720); + var $9721 = $9723; + }; + return $9721; + case 'List.nil': + var $9724 = Bool$false; + return $9724; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const List$any = x0 => x1 => List$any$(x0, x1); + + function Kind$Parser$float$str_digit$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9726 = self.err; + var $9727 = self.nam; + var $9728 = self.ini; + var $9729 = self.idx; + var $9730 = self.str; + var self = $9730; + if (self.length === 0) { + var $9732 = Parser$Reply$fail$($9727, $9728, $9729, "Not a digit."); + var $9731 = $9732; + } else { + var $9733 = self.charCodeAt(0); + var $9734 = self.slice(1); + var _digits$9 = List$cons$(48, List$cons$(49, List$cons$(50, List$cons$(51, List$cons$(52, List$cons$(52, List$cons$(53, List$cons$(54, List$cons$(55, List$cons$(56, List$cons$(57, List$nil))))))))))); + var _pst$10 = Parser$State$new$($9726, $9727, $9728, Nat$succ$($9729), $9734); + var self = List$any$(a1 => ($9733 === a1), _digits$9); + if (self) { + var $9736 = Parser$Reply$value$(_pst$10, $9733); + var $9735 = $9736; + } else { + var $9737 = Parser$Reply$fail$($9727, $9728, $9729, "Not a digit."); + var $9735 = $9737; + }; + var $9731 = $9735; + }; + var $9725 = $9731; + break; + }; + return $9725; + }; + const Kind$Parser$float$str_digit = x0 => Kind$Parser$float$str_digit$(x0); + + function String$from_list$(_xs$1) { + var self = _xs$1; + switch (self._) { + case 'List.cons': + var $9739 = self.head; + var $9740 = self.tail; + var $9741 = String$cons$($9739, String$from_list$($9740)); + var $9738 = $9741; + break; + case 'List.nil': + var $9742 = String$nil; + var $9738 = $9742; + break; + }; + return $9738; + }; + const String$from_list = x0 => String$from_list$(x0); + const Kind$Parser$float$64 = Kind$Parser$block("float")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9744 = self.err; + var _reply$7 = Parser$maybe$(Kind$Parser$float$sign, _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9746 = self.err; + var self = $9744; + switch (self._) { + case 'Maybe.some': + var $9748 = self.value; + var $9749 = Parser$Reply$error$(Parser$Error$combine$($9748, $9746)); + var $9747 = $9749; + break; + case 'Maybe.none': + var $9750 = Parser$Reply$error$($9746); + var $9747 = $9750; + break; + }; + var $9745 = $9747; + break; + case 'Parser.Reply.value': + var $9751 = self.pst; + var $9752 = self.val; + var self = $9751; + switch (self._) { + case 'Parser.State.new': + var $9754 = self.err; + var $9755 = self.nam; + var $9756 = self.ini; + var $9757 = self.idx; + var $9758 = self.str; + var $9759 = ((console.log(("FALTANDO " + $9758)), (_$15 => { + var $9760 = ((console.log(("VALUE " + $9755)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9744, $9754), $9755, $9756, $9757, $9758); + var _sign$18 = Maybe$default$($9752, 43); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $9762 = self.err; + var _reply$24 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$17); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $9764 = self.err; + var self = $9762; + switch (self._) { + case 'Maybe.some': + var $9766 = self.value; + var $9767 = Parser$Reply$error$(Parser$Error$combine$($9766, $9764)); + var $9765 = $9767; + break; + case 'Maybe.none': + var $9768 = Parser$Reply$error$($9764); + var $9765 = $9768; + break; + }; + var $9763 = $9765; + break; + case 'Parser.Reply.value': + var $9769 = self.pst; + var $9770 = self.val; + var self = $9769; + switch (self._) { + case 'Parser.State.new': + var $9772 = self.err; + var $9773 = self.nam; + var $9774 = self.ini; + var $9775 = self.idx; + var $9776 = self.str; + var $9777 = ((console.log(("FALTANDO " + $9776)), (_$32 => { + var $9778 = ((console.log(("VALUE " + $9773)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($9762, $9772), $9773, $9774, $9775, $9776); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $9780 = self.err; + var _reply$40 = Parser$text$(".", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $9782 = self.err; + var self = $9780; + switch (self._) { + case 'Maybe.some': + var $9784 = self.value; + var $9785 = Parser$Reply$error$(Parser$Error$combine$($9784, $9782)); + var $9783 = $9785; + break; + case 'Maybe.none': + var $9786 = Parser$Reply$error$($9782); + var $9783 = $9786; + break; + }; + var $9781 = $9783; + break; + case 'Parser.Reply.value': + var $9787 = self.pst; + var self = $9787; + switch (self._) { + case 'Parser.State.new': + var $9789 = self.err; + var $9790 = self.nam; + var $9791 = self.ini; + var $9792 = self.idx; + var $9793 = self.str; + var $9794 = ((console.log(("FALTANDO " + $9793)), (_$48 => { + var $9795 = ((console.log(("VALUE " + $9790)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($9780, $9789), $9790, $9791, $9792, $9793); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $9797 = self.err; + var _reply$56 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $9799 = self.err; + var self = $9797; + switch (self._) { + case 'Maybe.some': + var $9801 = self.value; + var $9802 = Parser$Reply$error$(Parser$Error$combine$($9801, $9799)); + var $9800 = $9802; + break; + case 'Maybe.none': + var $9803 = Parser$Reply$error$($9799); + var $9800 = $9803; + break; + }; + var $9798 = $9800; + break; + case 'Parser.Reply.value': + var $9804 = self.pst; + var $9805 = self.val; + var self = $9804; + switch (self._) { + case 'Parser.State.new': + var $9807 = self.err; + var $9808 = self.nam; + var $9809 = self.ini; + var $9810 = self.idx; + var $9811 = self.str; + var $9812 = ((console.log(("FALTANDO " + $9811)), (_$64 => { + var $9813 = ((console.log(("VALUE " + $9808)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($9797, $9807), $9808, $9809, $9810, $9811); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $9815 = self.err; + var _reply$72 = Parser$text$("#64", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $9817 = self.err; + var self = $9815; + switch (self._) { + case 'Maybe.some': + var $9819 = self.value; + var $9820 = Parser$Reply$error$(Parser$Error$combine$($9819, $9817)); + var $9818 = $9820; + break; + case 'Maybe.none': + var $9821 = Parser$Reply$error$($9817); + var $9818 = $9821; + break; + }; + var $9816 = $9818; + break; + case 'Parser.Reply.value': + var $9822 = self.pst; + var self = $9822; + switch (self._) { + case 'Parser.State.new': + var $9824 = self.err; + var $9825 = self.nam; + var $9826 = self.ini; + var $9827 = self.idx; + var $9828 = self.str; + var $9829 = ((console.log(("FALTANDO " + $9828)), (_$80 => { + var $9830 = ((console.log(("VALUE " + $9825)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($9815, $9824), $9825, $9826, $9827, $9828); + var _float_str$83 = Kind$Term$str$((String$cons$(_sign$18, String$from_list$($9770)) + ("." + String$from_list$($9805)))); + var _conv$84 = Kind$Term$ref$("F64.parse"); + var _term$85 = Kind$Term$app$(_conv$84, _float_str$83); + var $9831 = Parser$Reply$value$(_reply$pst$82, _term$85); + return $9831; + })())); + return $9830; + })())); + var $9823 = $9829; + break; + }; + var $9816 = $9823; + break; + }; + var $9814 = $9816; + break; + }; + return $9814; + })())); + return $9813; + })())); + var $9806 = $9812; + break; + }; + var $9798 = $9806; + break; + }; + var $9796 = $9798; + break; + }; + return $9796; + })())); + return $9795; + })())); + var $9788 = $9794; + break; + }; + var $9781 = $9788; + break; + }; + var $9779 = $9781; + break; + }; + return $9779; + })())); + return $9778; + })())); + var $9771 = $9777; + break; + }; + var $9763 = $9771; + break; + }; + var $9761 = $9763; + break; + }; + return $9761; + })())); + return $9760; + })())); + var $9753 = $9759; + break; + }; + var $9745 = $9753; + break; + }; + var $9743 = $9745; + break; + }; + return $9743; + })); + const Kind$Parser$float$32 = Kind$Parser$block("float")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9833 = self.err; + var _reply$7 = Parser$maybe$(Kind$Parser$float$sign, _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9835 = self.err; + var self = $9833; + switch (self._) { + case 'Maybe.some': + var $9837 = self.value; + var $9838 = Parser$Reply$error$(Parser$Error$combine$($9837, $9835)); + var $9836 = $9838; + break; + case 'Maybe.none': + var $9839 = Parser$Reply$error$($9835); + var $9836 = $9839; + break; + }; + var $9834 = $9836; + break; + case 'Parser.Reply.value': + var $9840 = self.pst; + var $9841 = self.val; + var self = $9840; + switch (self._) { + case 'Parser.State.new': + var $9843 = self.err; + var $9844 = self.nam; + var $9845 = self.ini; + var $9846 = self.idx; + var $9847 = self.str; + var $9848 = ((console.log(("FALTANDO " + $9847)), (_$15 => { + var $9849 = ((console.log(("VALUE " + $9844)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9833, $9843), $9844, $9845, $9846, $9847); + var _sign$18 = Maybe$default$($9841, 43); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $9851 = self.err; + var _reply$24 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$17); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $9853 = self.err; + var self = $9851; + switch (self._) { + case 'Maybe.some': + var $9855 = self.value; + var $9856 = Parser$Reply$error$(Parser$Error$combine$($9855, $9853)); + var $9854 = $9856; + break; + case 'Maybe.none': + var $9857 = Parser$Reply$error$($9853); + var $9854 = $9857; + break; + }; + var $9852 = $9854; + break; + case 'Parser.Reply.value': + var $9858 = self.pst; + var $9859 = self.val; + var self = $9858; + switch (self._) { + case 'Parser.State.new': + var $9861 = self.err; + var $9862 = self.nam; + var $9863 = self.ini; + var $9864 = self.idx; + var $9865 = self.str; + var $9866 = ((console.log(("FALTANDO " + $9865)), (_$32 => { + var $9867 = ((console.log(("VALUE " + $9862)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($9851, $9861), $9862, $9863, $9864, $9865); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $9869 = self.err; + var _reply$40 = Parser$text$(".", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $9871 = self.err; + var self = $9869; + switch (self._) { + case 'Maybe.some': + var $9873 = self.value; + var $9874 = Parser$Reply$error$(Parser$Error$combine$($9873, $9871)); + var $9872 = $9874; + break; + case 'Maybe.none': + var $9875 = Parser$Reply$error$($9871); + var $9872 = $9875; + break; + }; + var $9870 = $9872; + break; + case 'Parser.Reply.value': + var $9876 = self.pst; + var self = $9876; + switch (self._) { + case 'Parser.State.new': + var $9878 = self.err; + var $9879 = self.nam; + var $9880 = self.ini; + var $9881 = self.idx; + var $9882 = self.str; + var $9883 = ((console.log(("FALTANDO " + $9882)), (_$48 => { + var $9884 = ((console.log(("VALUE " + $9879)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($9869, $9878), $9879, $9880, $9881, $9882); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $9886 = self.err; + var _reply$56 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $9888 = self.err; + var self = $9886; + switch (self._) { + case 'Maybe.some': + var $9890 = self.value; + var $9891 = Parser$Reply$error$(Parser$Error$combine$($9890, $9888)); + var $9889 = $9891; + break; + case 'Maybe.none': + var $9892 = Parser$Reply$error$($9888); + var $9889 = $9892; + break; + }; + var $9887 = $9889; + break; + case 'Parser.Reply.value': + var $9893 = self.pst; + var $9894 = self.val; + var self = $9893; + switch (self._) { + case 'Parser.State.new': + var $9896 = self.err; + var $9897 = self.nam; + var $9898 = self.ini; + var $9899 = self.idx; + var $9900 = self.str; + var $9901 = ((console.log(("FALTANDO " + $9900)), (_$64 => { + var $9902 = ((console.log(("VALUE " + $9897)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($9886, $9896), $9897, $9898, $9899, $9900); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $9904 = self.err; + var _reply$72 = Parser$text$("#32", _reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $9906 = self.err; + var self = $9904; + switch (self._) { + case 'Maybe.some': + var $9908 = self.value; + var $9909 = Parser$Reply$error$(Parser$Error$combine$($9908, $9906)); + var $9907 = $9909; + break; + case 'Maybe.none': + var $9910 = Parser$Reply$error$($9906); + var $9907 = $9910; + break; + }; + var $9905 = $9907; + break; + case 'Parser.Reply.value': + var $9911 = self.pst; + var self = $9911; + switch (self._) { + case 'Parser.State.new': + var $9913 = self.err; + var $9914 = self.nam; + var $9915 = self.ini; + var $9916 = self.idx; + var $9917 = self.str; + var $9918 = ((console.log(("FALTANDO " + $9917)), (_$80 => { + var $9919 = ((console.log(("VALUE " + $9914)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($9904, $9913), $9914, $9915, $9916, $9917); + var _float_str$83 = Kind$Term$str$((String$cons$(_sign$18, String$from_list$($9859)) + ("." + String$from_list$($9894)))); + var _conv$84 = Kind$Term$ref$("F32.parse"); + var _term$85 = Kind$Term$app$(_conv$84, _float_str$83); + var $9920 = Parser$Reply$value$(_reply$pst$82, _term$85); + return $9920; + })())); + return $9919; + })())); + var $9912 = $9918; + break; + }; + var $9905 = $9912; + break; + }; + var $9903 = $9905; + break; + }; + return $9903; + })())); + return $9902; + })())); + var $9895 = $9901; + break; + }; + var $9887 = $9895; + break; + }; + var $9885 = $9887; + break; + }; + return $9885; + })())); + return $9884; + })())); + var $9877 = $9883; + break; + }; + var $9870 = $9877; + break; + }; + var $9868 = $9870; + break; + }; + return $9868; + })())); + return $9867; + })())); + var $9860 = $9866; + break; + }; + var $9852 = $9860; + break; + }; + var $9850 = $9852; + break; + }; + return $9850; + })())); + return $9849; + })())); + var $9842 = $9848; + break; + }; + var $9834 = $9842; + break; + }; + var $9832 = $9834; + break; + }; + return $9832; + })); + function Kind$Parser$int_pos$(_pst$1) { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $8737 = self.err; + var $9922 = self.err; var _reply$7 = Parser$text$("+", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $8739 = self.err; - var self = $8737; + var $9924 = self.err; + var self = $9922; switch (self._) { case 'Maybe.some': - var $8741 = self.value; - var $8742 = Parser$Reply$error$(Parser$Error$combine$($8741, $8739)); - var $8740 = $8742; + var $9926 = self.value; + var $9927 = Parser$Reply$error$(Parser$Error$combine$($9926, $9924)); + var $9925 = $9927; break; case 'Maybe.none': - var $8743 = Parser$Reply$error$($8739); - var $8740 = $8743; + var $9928 = Parser$Reply$error$($9924); + var $9925 = $9928; break; }; - var $8738 = $8740; + var $9923 = $9925; break; case 'Parser.Reply.value': - var $8744 = self.pst; - var self = $8744; + var $9929 = self.pst; + var self = $9929; switch (self._) { case 'Parser.State.new': - var $8746 = self.err; - var $8747 = self.nam; - var $8748 = self.ini; - var $8749 = self.idx; - var $8750 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8737, $8746), $8747, $8748, $8749, $8750); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $8752 = self.err; - var _reply$21 = Parser$many1$(Parser$digit, _reply$pst$15); - var self = _reply$21; + var $9931 = self.err; + var $9932 = self.nam; + var $9933 = self.ini; + var $9934 = self.idx; + var $9935 = self.str; + var $9936 = ((console.log(("FALTANDO " + $9935)), (_$15 => { + var $9937 = ((console.log(("VALUE " + $9932)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9922, $9931), $9932, $9933, $9934, $9935); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $8754 = self.err; - var self = $8752; + case 'Parser.State.new': + var $9939 = self.err; + var _reply$23 = Parser$many1$(Parser$digit, _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $8756 = self.value; - var $8757 = Parser$Reply$error$(Parser$Error$combine$($8756, $8754)); - var $8755 = $8757; + case 'Parser.Reply.error': + var $9941 = self.err; + var self = $9939; + switch (self._) { + case 'Maybe.some': + var $9943 = self.value; + var $9944 = Parser$Reply$error$(Parser$Error$combine$($9943, $9941)); + var $9942 = $9944; + break; + case 'Maybe.none': + var $9945 = Parser$Reply$error$($9941); + var $9942 = $9945; + break; + }; + var $9940 = $9942; break; - case 'Maybe.none': - var $8758 = Parser$Reply$error$($8754); - var $8755 = $8758; + case 'Parser.Reply.value': + var $9946 = self.pst; + var $9947 = self.val; + var self = $9946; + switch (self._) { + case 'Parser.State.new': + var $9949 = self.err; + var $9950 = self.nam; + var $9951 = self.ini; + var $9952 = self.idx; + var $9953 = self.str; + var $9954 = ((console.log(("FALTANDO " + $9953)), (_$31 => { + var $9955 = ((console.log(("VALUE " + $9950)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9939, $9949), $9950, $9951, $9952, $9953); + var $9956 = Parser$Reply$value$(_reply$pst$33, Pair$new$(Bool$true, Nat$from_base$(10n, $9947))); + return $9956; + })())); + return $9955; + })())); + var $9948 = $9954; + break; + }; + var $9940 = $9948; break; }; - var $8753 = $8755; - break; - case 'Parser.Reply.value': - var $8759 = self.pst; - var $8760 = self.val; - var self = $8759; - switch (self._) { - case 'Parser.State.new': - var $8762 = self.err; - var $8763 = self.nam; - var $8764 = self.ini; - var $8765 = self.idx; - var $8766 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8752, $8762), $8763, $8764, $8765, $8766); - var $8767 = Parser$Reply$value$(_reply$pst$29, Pair$new$(Bool$true, Nat$from_base$(10n, $8760))); - var $8761 = $8767; - break; - }; - var $8753 = $8761; + var $9938 = $9940; break; }; - var $8751 = $8753; - break; - }; - var $8745 = $8751; + return $9938; + })())); + return $9937; + })())); + var $9930 = $9936; break; }; - var $8738 = $8745; + var $9923 = $9930; break; }; - var $8736 = $8738; + var $9921 = $9923; break; }; - return $8736; + return $9921; }; const Kind$Parser$int_pos = x0 => Kind$Parser$int_pos$(x0); @@ -27608,254 +31380,284 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $8769 = self.err; + var $9958 = self.err; var _reply$7 = Parser$text$("-", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $8771 = self.err; - var self = $8769; + var $9960 = self.err; + var self = $9958; switch (self._) { case 'Maybe.some': - var $8773 = self.value; - var $8774 = Parser$Reply$error$(Parser$Error$combine$($8773, $8771)); - var $8772 = $8774; + var $9962 = self.value; + var $9963 = Parser$Reply$error$(Parser$Error$combine$($9962, $9960)); + var $9961 = $9963; break; case 'Maybe.none': - var $8775 = Parser$Reply$error$($8771); - var $8772 = $8775; + var $9964 = Parser$Reply$error$($9960); + var $9961 = $9964; break; }; - var $8770 = $8772; + var $9959 = $9961; break; case 'Parser.Reply.value': - var $8776 = self.pst; - var self = $8776; + var $9965 = self.pst; + var self = $9965; switch (self._) { case 'Parser.State.new': - var $8778 = self.err; - var $8779 = self.nam; - var $8780 = self.ini; - var $8781 = self.idx; - var $8782 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8769, $8778), $8779, $8780, $8781, $8782); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $8784 = self.err; - var _reply$21 = Parser$many1$(Parser$digit, _reply$pst$15); - var self = _reply$21; + var $9967 = self.err; + var $9968 = self.nam; + var $9969 = self.ini; + var $9970 = self.idx; + var $9971 = self.str; + var $9972 = ((console.log(("FALTANDO " + $9971)), (_$15 => { + var $9973 = ((console.log(("VALUE " + $9968)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9958, $9967), $9968, $9969, $9970, $9971); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $8786 = self.err; - var self = $8784; + case 'Parser.State.new': + var $9975 = self.err; + var _reply$23 = Parser$many1$(Parser$digit, _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $8788 = self.value; - var $8789 = Parser$Reply$error$(Parser$Error$combine$($8788, $8786)); - var $8787 = $8789; + case 'Parser.Reply.error': + var $9977 = self.err; + var self = $9975; + switch (self._) { + case 'Maybe.some': + var $9979 = self.value; + var $9980 = Parser$Reply$error$(Parser$Error$combine$($9979, $9977)); + var $9978 = $9980; + break; + case 'Maybe.none': + var $9981 = Parser$Reply$error$($9977); + var $9978 = $9981; + break; + }; + var $9976 = $9978; break; - case 'Maybe.none': - var $8790 = Parser$Reply$error$($8786); - var $8787 = $8790; + case 'Parser.Reply.value': + var $9982 = self.pst; + var $9983 = self.val; + var self = $9982; + switch (self._) { + case 'Parser.State.new': + var $9985 = self.err; + var $9986 = self.nam; + var $9987 = self.ini; + var $9988 = self.idx; + var $9989 = self.str; + var $9990 = ((console.log(("FALTANDO " + $9989)), (_$31 => { + var $9991 = ((console.log(("VALUE " + $9986)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9975, $9985), $9986, $9987, $9988, $9989); + var $9992 = Parser$Reply$value$(_reply$pst$33, Pair$new$(Bool$false, Nat$from_base$(10n, $9983))); + return $9992; + })())); + return $9991; + })())); + var $9984 = $9990; + break; + }; + var $9976 = $9984; break; }; - var $8785 = $8787; - break; - case 'Parser.Reply.value': - var $8791 = self.pst; - var $8792 = self.val; - var self = $8791; - switch (self._) { - case 'Parser.State.new': - var $8794 = self.err; - var $8795 = self.nam; - var $8796 = self.ini; - var $8797 = self.idx; - var $8798 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8784, $8794), $8795, $8796, $8797, $8798); - var $8799 = Parser$Reply$value$(_reply$pst$29, Pair$new$(Bool$false, Nat$from_base$(10n, $8792))); - var $8793 = $8799; - break; - }; - var $8785 = $8793; + var $9974 = $9976; break; }; - var $8783 = $8785; - break; - }; - var $8777 = $8783; + return $9974; + })())); + return $9973; + })())); + var $9966 = $9972; break; }; - var $8770 = $8777; + var $9959 = $9966; break; }; - var $8768 = $8770; + var $9957 = $9959; break; }; - return $8768; + return $9957; }; const Kind$Parser$int_neg = x0 => Kind$Parser$int_neg$(x0); function Kind$Parser$machine_integer$signed$(_size$1) { - var $8800 = Kind$Parser$block("int")((() => { + var $9993 = Kind$Parser$block("int")((() => { var _size_str$2 = Nat$show$(_size$1); - var $8801 = (_pst$3 => { + var $9994 = (_pst$3 => { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $8803 = self.err; + var $9996 = self.err; var _reply$9 = Kind$Parser$spaces(_pst$3); var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $8805 = self.err; - var self = $8803; + var $9998 = self.err; + var self = $9996; switch (self._) { case 'Maybe.some': - var $8807 = self.value; - var $8808 = Parser$Reply$error$(Parser$Error$combine$($8807, $8805)); - var $8806 = $8808; + var $10000 = self.value; + var $10001 = Parser$Reply$error$(Parser$Error$combine$($10000, $9998)); + var $9999 = $10001; break; case 'Maybe.none': - var $8809 = Parser$Reply$error$($8805); - var $8806 = $8809; + var $10002 = Parser$Reply$error$($9998); + var $9999 = $10002; break; }; - var $8804 = $8806; + var $9997 = $9999; break; case 'Parser.Reply.value': - var $8810 = self.pst; - var self = $8810; + var $10003 = self.pst; + var self = $10003; switch (self._) { case 'Parser.State.new': - var $8812 = self.err; - var $8813 = self.nam; - var $8814 = self.ini; - var $8815 = self.idx; - var $8816 = self.str; - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($8803, $8812), $8813, $8814, $8815, $8816); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $8818 = self.err; - var _reply$23 = Parser$choice$(List$cons$(Kind$Parser$int_pos, List$cons$(Kind$Parser$int_neg, List$nil)), _reply$pst$17); - var self = _reply$23; + var $10005 = self.err; + var $10006 = self.nam; + var $10007 = self.ini; + var $10008 = self.idx; + var $10009 = self.str; + var $10010 = ((console.log(("FALTANDO " + $10009)), (_$17 => { + var $10011 = ((console.log(("VALUE " + $10006)), (_$18 => { + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($9996, $10005), $10006, $10007, $10008, $10009); + var self = _reply$pst$19; switch (self._) { - case 'Parser.Reply.error': - var $8820 = self.err; - var self = $8818; + case 'Parser.State.new': + var $10013 = self.err; + var _reply$25 = Parser$choice$(List$cons$(Kind$Parser$int_pos, List$cons$(Kind$Parser$int_neg, List$nil)), _reply$pst$19); + var self = _reply$25; switch (self._) { - case 'Maybe.some': - var $8822 = self.value; - var $8823 = Parser$Reply$error$(Parser$Error$combine$($8822, $8820)); - var $8821 = $8823; - break; - case 'Maybe.none': - var $8824 = Parser$Reply$error$($8820); - var $8821 = $8824; - break; - }; - var $8819 = $8821; - break; - case 'Parser.Reply.value': - var $8825 = self.pst; - var $8826 = self.val; - var self = $8825; - switch (self._) { - case 'Parser.State.new': - var $8828 = self.err; - var $8829 = self.nam; - var $8830 = self.ini; - var $8831 = self.idx; - var $8832 = self.str; - var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($8818, $8828), $8829, $8830, $8831, $8832); - var self = _reply$pst$31; + case 'Parser.Reply.error': + var $10015 = self.err; + var self = $10013; switch (self._) { - case 'Parser.State.new': - var $8834 = self.err; - var _reply$37 = Parser$text$(("#" + _size_str$2), _reply$pst$31); - var self = _reply$37; - switch (self._) { - case 'Parser.Reply.error': - var $8836 = self.err; - var self = $8834; - switch (self._) { - case 'Maybe.some': - var $8838 = self.value; - var $8839 = Parser$Reply$error$(Parser$Error$combine$($8838, $8836)); - var $8837 = $8839; - break; - case 'Maybe.none': - var $8840 = Parser$Reply$error$($8836); - var $8837 = $8840; - break; - }; - var $8835 = $8837; - break; - case 'Parser.Reply.value': - var $8841 = self.pst; - var self = $8841; - switch (self._) { - case 'Parser.State.new': - var $8843 = self.err; - var $8844 = self.nam; - var $8845 = self.ini; - var $8846 = self.idx; - var $8847 = self.str; - var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($8834, $8843), $8844, $8845, $8846, $8847); - var $8848 = Parser$Reply$value$(_reply$pst$45, (() => { - var self = $8826; - switch (self._) { - case 'Pair.new': - var $8849 = self.fst; - var $8850 = self.snd; - var _term$48 = Kind$Term$ref$(("I" + (_size_str$2 + ".from_nat"))); - var _term$49 = Kind$Term$app$(_term$48, Kind$Term$nat$($8850)); - var self = $8849; - if (self) { - var $8852 = _term$49; - var _term$50 = $8852; - } else { - var $8853 = Kind$Term$app$(Kind$Term$ref$(("I" + (_size_str$2 + ".neg"))), _term$49); - var _term$50 = $8853; - }; - var $8851 = _term$50; - return $8851; - }; - })()); - var $8842 = $8848; - break; - }; - var $8835 = $8842; - break; - }; - var $8833 = $8835; + case 'Maybe.some': + var $10017 = self.value; + var $10018 = Parser$Reply$error$(Parser$Error$combine$($10017, $10015)); + var $10016 = $10018; + break; + case 'Maybe.none': + var $10019 = Parser$Reply$error$($10015); + var $10016 = $10019; break; }; - var $8827 = $8833; + var $10014 = $10016; + break; + case 'Parser.Reply.value': + var $10020 = self.pst; + var $10021 = self.val; + var self = $10020; + switch (self._) { + case 'Parser.State.new': + var $10023 = self.err; + var $10024 = self.nam; + var $10025 = self.ini; + var $10026 = self.idx; + var $10027 = self.str; + var $10028 = ((console.log(("FALTANDO " + $10027)), (_$33 => { + var $10029 = ((console.log(("VALUE " + $10024)), (_$34 => { + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($10013, $10023), $10024, $10025, $10026, $10027); + var self = _reply$pst$35; + switch (self._) { + case 'Parser.State.new': + var $10031 = self.err; + var _reply$41 = Parser$text$(("#" + _size_str$2), _reply$pst$35); + var self = _reply$41; + switch (self._) { + case 'Parser.Reply.error': + var $10033 = self.err; + var self = $10031; + switch (self._) { + case 'Maybe.some': + var $10035 = self.value; + var $10036 = Parser$Reply$error$(Parser$Error$combine$($10035, $10033)); + var $10034 = $10036; + break; + case 'Maybe.none': + var $10037 = Parser$Reply$error$($10033); + var $10034 = $10037; + break; + }; + var $10032 = $10034; + break; + case 'Parser.Reply.value': + var $10038 = self.pst; + var self = $10038; + switch (self._) { + case 'Parser.State.new': + var $10040 = self.err; + var $10041 = self.nam; + var $10042 = self.ini; + var $10043 = self.idx; + var $10044 = self.str; + var $10045 = ((console.log(("FALTANDO " + $10044)), (_$49 => { + var $10046 = ((console.log(("VALUE " + $10041)), (_$50 => { + var _reply$pst$51 = Parser$State$new$(Parser$Error$maybe_combine$($10031, $10040), $10041, $10042, $10043, $10044); + var $10047 = Parser$Reply$value$(_reply$pst$51, (() => { + var self = $10021; + switch (self._) { + case 'Pair.new': + var $10048 = self.fst; + var $10049 = self.snd; + var _term$54 = Kind$Term$ref$(("I" + (_size_str$2 + ".from_nat"))); + var _term$55 = Kind$Term$app$(_term$54, Kind$Term$nat$($10049)); + var self = $10048; + if (self) { + var $10051 = _term$55; + var _term$56 = $10051; + } else { + var $10052 = Kind$Term$app$(Kind$Term$ref$(("I" + (_size_str$2 + ".neg"))), _term$55); + var _term$56 = $10052; + }; + var $10050 = _term$56; + return $10050; + }; + })()); + return $10047; + })())); + return $10046; + })())); + var $10039 = $10045; + break; + }; + var $10032 = $10039; + break; + }; + var $10030 = $10032; + break; + }; + return $10030; + })())); + return $10029; + })())); + var $10022 = $10028; + break; + }; + var $10014 = $10022; break; }; - var $8819 = $8827; + var $10012 = $10014; break; }; - var $8817 = $8819; - break; - }; - var $8811 = $8817; + return $10012; + })())); + return $10011; + })())); + var $10004 = $10010; break; }; - var $8804 = $8811; + var $9997 = $10004; break; }; - var $8802 = $8804; + var $9995 = $9997; break; }; - return $8802; + return $9995; }); - return $8801; + return $9994; })()); - return $8800; + return $9993; }; const Kind$Parser$machine_integer$signed = x0 => Kind$Parser$machine_integer$signed$(x0); @@ -27863,180 +31665,180 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $8855 = self.err; - var $8856 = self.nam; - var $8857 = self.ini; - var $8858 = self.idx; - var $8859 = self.str; - var self = $8859; + var $10054 = self.err; + var $10055 = self.nam; + var $10056 = self.ini; + var $10057 = self.idx; + var $10058 = self.str; + var self = $10058; if (self.length === 0) { - var $8861 = Parser$Reply$fail$($8856, $8857, $8858, "Not a digit."); - var $8860 = $8861; + var $10060 = Parser$Reply$fail$($10055, $10056, $10057, "Not a digit."); + var $10059 = $10060; } else { - var $8862 = self.charCodeAt(0); - var $8863 = self.slice(1); - var _pst$9 = Parser$State$new$($8855, $8856, $8857, Nat$succ$($8858), $8863); - var self = ($8862 === 48); + var $10061 = self.charCodeAt(0); + var $10062 = self.slice(1); + var _pst$9 = Parser$State$new$($10054, $10055, $10056, Nat$succ$($10057), $10062); + var self = ($10061 === 48); if (self) { - var $8865 = Parser$Reply$value$(_pst$9, 0n); - var $8864 = $8865; + var $10064 = Parser$Reply$value$(_pst$9, 0n); + var $10063 = $10064; } else { - var self = ($8862 === 49); + var self = ($10061 === 49); if (self) { - var $8867 = Parser$Reply$value$(_pst$9, 1n); - var $8866 = $8867; + var $10066 = Parser$Reply$value$(_pst$9, 1n); + var $10065 = $10066; } else { - var self = ($8862 === 50); + var self = ($10061 === 50); if (self) { - var $8869 = Parser$Reply$value$(_pst$9, 2n); - var $8868 = $8869; + var $10068 = Parser$Reply$value$(_pst$9, 2n); + var $10067 = $10068; } else { - var self = ($8862 === 51); + var self = ($10061 === 51); if (self) { - var $8871 = Parser$Reply$value$(_pst$9, 3n); - var $8870 = $8871; + var $10070 = Parser$Reply$value$(_pst$9, 3n); + var $10069 = $10070; } else { - var self = ($8862 === 52); + var self = ($10061 === 52); if (self) { - var $8873 = Parser$Reply$value$(_pst$9, 4n); - var $8872 = $8873; + var $10072 = Parser$Reply$value$(_pst$9, 4n); + var $10071 = $10072; } else { - var self = ($8862 === 53); + var self = ($10061 === 53); if (self) { - var $8875 = Parser$Reply$value$(_pst$9, 5n); - var $8874 = $8875; + var $10074 = Parser$Reply$value$(_pst$9, 5n); + var $10073 = $10074; } else { - var self = ($8862 === 54); + var self = ($10061 === 54); if (self) { - var $8877 = Parser$Reply$value$(_pst$9, 6n); - var $8876 = $8877; + var $10076 = Parser$Reply$value$(_pst$9, 6n); + var $10075 = $10076; } else { - var self = ($8862 === 55); + var self = ($10061 === 55); if (self) { - var $8879 = Parser$Reply$value$(_pst$9, 7n); - var $8878 = $8879; + var $10078 = Parser$Reply$value$(_pst$9, 7n); + var $10077 = $10078; } else { - var self = ($8862 === 56); + var self = ($10061 === 56); if (self) { - var $8881 = Parser$Reply$value$(_pst$9, 8n); - var $8880 = $8881; + var $10080 = Parser$Reply$value$(_pst$9, 8n); + var $10079 = $10080; } else { - var self = ($8862 === 57); + var self = ($10061 === 57); if (self) { - var $8883 = Parser$Reply$value$(_pst$9, 9n); - var $8882 = $8883; + var $10082 = Parser$Reply$value$(_pst$9, 9n); + var $10081 = $10082; } else { - var self = ($8862 === 97); + var self = ($10061 === 97); if (self) { - var $8885 = Parser$Reply$value$(_pst$9, 10n); - var $8884 = $8885; + var $10084 = Parser$Reply$value$(_pst$9, 10n); + var $10083 = $10084; } else { - var self = ($8862 === 98); + var self = ($10061 === 98); if (self) { - var $8887 = Parser$Reply$value$(_pst$9, 11n); - var $8886 = $8887; + var $10086 = Parser$Reply$value$(_pst$9, 11n); + var $10085 = $10086; } else { - var self = ($8862 === 99); + var self = ($10061 === 99); if (self) { - var $8889 = Parser$Reply$value$(_pst$9, 12n); - var $8888 = $8889; + var $10088 = Parser$Reply$value$(_pst$9, 12n); + var $10087 = $10088; } else { - var self = ($8862 === 100); + var self = ($10061 === 100); if (self) { - var $8891 = Parser$Reply$value$(_pst$9, 13n); - var $8890 = $8891; + var $10090 = Parser$Reply$value$(_pst$9, 13n); + var $10089 = $10090; } else { - var self = ($8862 === 101); + var self = ($10061 === 101); if (self) { - var $8893 = Parser$Reply$value$(_pst$9, 14n); - var $8892 = $8893; + var $10092 = Parser$Reply$value$(_pst$9, 14n); + var $10091 = $10092; } else { - var self = ($8862 === 102); + var self = ($10061 === 102); if (self) { - var $8895 = Parser$Reply$value$(_pst$9, 15n); - var $8894 = $8895; + var $10094 = Parser$Reply$value$(_pst$9, 15n); + var $10093 = $10094; } else { - var self = ($8862 === 65); + var self = ($10061 === 65); if (self) { - var $8897 = Parser$Reply$value$(_pst$9, 10n); - var $8896 = $8897; + var $10096 = Parser$Reply$value$(_pst$9, 10n); + var $10095 = $10096; } else { - var self = ($8862 === 66); + var self = ($10061 === 66); if (self) { - var $8899 = Parser$Reply$value$(_pst$9, 11n); - var $8898 = $8899; + var $10098 = Parser$Reply$value$(_pst$9, 11n); + var $10097 = $10098; } else { - var self = ($8862 === 67); + var self = ($10061 === 67); if (self) { - var $8901 = Parser$Reply$value$(_pst$9, 12n); - var $8900 = $8901; + var $10100 = Parser$Reply$value$(_pst$9, 12n); + var $10099 = $10100; } else { - var self = ($8862 === 68); + var self = ($10061 === 68); if (self) { - var $8903 = Parser$Reply$value$(_pst$9, 13n); - var $8902 = $8903; + var $10102 = Parser$Reply$value$(_pst$9, 13n); + var $10101 = $10102; } else { - var self = ($8862 === 69); + var self = ($10061 === 69); if (self) { - var $8905 = Parser$Reply$value$(_pst$9, 14n); - var $8904 = $8905; + var $10104 = Parser$Reply$value$(_pst$9, 14n); + var $10103 = $10104; } else { - var self = ($8862 === 70); + var self = ($10061 === 70); if (self) { - var $8907 = Parser$Reply$value$(_pst$9, 15n); - var $8906 = $8907; + var $10106 = Parser$Reply$value$(_pst$9, 15n); + var $10105 = $10106; } else { - var $8908 = Parser$Reply$fail$($8856, $8857, $8858, "Not a digit."); - var $8906 = $8908; + var $10107 = Parser$Reply$fail$($10055, $10056, $10057, "Not a digit."); + var $10105 = $10107; }; - var $8904 = $8906; + var $10103 = $10105; }; - var $8902 = $8904; + var $10101 = $10103; }; - var $8900 = $8902; + var $10099 = $10101; }; - var $8898 = $8900; + var $10097 = $10099; }; - var $8896 = $8898; + var $10095 = $10097; }; - var $8894 = $8896; + var $10093 = $10095; }; - var $8892 = $8894; + var $10091 = $10093; }; - var $8890 = $8892; + var $10089 = $10091; }; - var $8888 = $8890; + var $10087 = $10089; }; - var $8886 = $8888; + var $10085 = $10087; }; - var $8884 = $8886; + var $10083 = $10085; }; - var $8882 = $8884; + var $10081 = $10083; }; - var $8880 = $8882; + var $10079 = $10081; }; - var $8878 = $8880; + var $10077 = $10079; }; - var $8876 = $8878; + var $10075 = $10077; }; - var $8874 = $8876; + var $10073 = $10075; }; - var $8872 = $8874; + var $10071 = $10073; }; - var $8870 = $8872; + var $10069 = $10071; }; - var $8868 = $8870; + var $10067 = $10069; }; - var $8866 = $8868; + var $10065 = $10067; }; - var $8864 = $8866; + var $10063 = $10065; }; - var $8860 = $8864; + var $10059 = $10063; }; - var $8854 = $8860; + var $10053 = $10059; break; }; - return $8854; + return $10053; }; const Parser$hex_digit = x0 => Parser$hex_digit$(x0); @@ -28044,883 +31846,997 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $8910 = self.err; + var $10109 = self.err; var _reply$7 = Parser$text$("0x", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $8912 = self.err; - var self = $8910; + var $10111 = self.err; + var self = $10109; switch (self._) { case 'Maybe.some': - var $8914 = self.value; - var $8915 = Parser$Reply$error$(Parser$Error$combine$($8914, $8912)); - var $8913 = $8915; + var $10113 = self.value; + var $10114 = Parser$Reply$error$(Parser$Error$combine$($10113, $10111)); + var $10112 = $10114; break; case 'Maybe.none': - var $8916 = Parser$Reply$error$($8912); - var $8913 = $8916; + var $10115 = Parser$Reply$error$($10111); + var $10112 = $10115; break; }; - var $8911 = $8913; + var $10110 = $10112; break; case 'Parser.Reply.value': - var $8917 = self.pst; - var self = $8917; + var $10116 = self.pst; + var self = $10116; switch (self._) { case 'Parser.State.new': - var $8919 = self.err; - var $8920 = self.nam; - var $8921 = self.ini; - var $8922 = self.idx; - var $8923 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8910, $8919), $8920, $8921, $8922, $8923); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $8925 = self.err; - var _reply$21 = Parser$many1$(Parser$hex_digit, _reply$pst$15); - var self = _reply$21; + var $10118 = self.err; + var $10119 = self.nam; + var $10120 = self.ini; + var $10121 = self.idx; + var $10122 = self.str; + var $10123 = ((console.log(("FALTANDO " + $10122)), (_$15 => { + var $10124 = ((console.log(("VALUE " + $10119)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10109, $10118), $10119, $10120, $10121, $10122); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $8927 = self.err; - var self = $8925; + case 'Parser.State.new': + var $10126 = self.err; + var _reply$23 = Parser$many1$(Parser$hex_digit, _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $8929 = self.value; - var $8930 = Parser$Reply$error$(Parser$Error$combine$($8929, $8927)); - var $8928 = $8930; + case 'Parser.Reply.error': + var $10128 = self.err; + var self = $10126; + switch (self._) { + case 'Maybe.some': + var $10130 = self.value; + var $10131 = Parser$Reply$error$(Parser$Error$combine$($10130, $10128)); + var $10129 = $10131; + break; + case 'Maybe.none': + var $10132 = Parser$Reply$error$($10128); + var $10129 = $10132; + break; + }; + var $10127 = $10129; break; - case 'Maybe.none': - var $8931 = Parser$Reply$error$($8927); - var $8928 = $8931; + case 'Parser.Reply.value': + var $10133 = self.pst; + var $10134 = self.val; + var self = $10133; + switch (self._) { + case 'Parser.State.new': + var $10136 = self.err; + var $10137 = self.nam; + var $10138 = self.ini; + var $10139 = self.idx; + var $10140 = self.str; + var $10141 = ((console.log(("FALTANDO " + $10140)), (_$31 => { + var $10142 = ((console.log(("VALUE " + $10137)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10126, $10136), $10137, $10138, $10139, $10140); + var $10143 = Parser$Reply$value$(_reply$pst$33, Nat$from_base$(16n, $10134)); + return $10143; + })())); + return $10142; + })())); + var $10135 = $10141; + break; + }; + var $10127 = $10135; break; }; - var $8926 = $8928; - break; - case 'Parser.Reply.value': - var $8932 = self.pst; - var $8933 = self.val; - var self = $8932; - switch (self._) { - case 'Parser.State.new': - var $8935 = self.err; - var $8936 = self.nam; - var $8937 = self.ini; - var $8938 = self.idx; - var $8939 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8925, $8935), $8936, $8937, $8938, $8939); - var $8940 = Parser$Reply$value$(_reply$pst$29, Nat$from_base$(16n, $8933)); - var $8934 = $8940; - break; - }; - var $8926 = $8934; + var $10125 = $10127; break; }; - var $8924 = $8926; - break; - }; - var $8918 = $8924; + return $10125; + })())); + return $10124; + })())); + var $10117 = $10123; break; }; - var $8911 = $8918; + var $10110 = $10117; break; }; - var $8909 = $8911; + var $10108 = $10110; break; }; - return $8909; + return $10108; }; const Parser$hex_nat = x0 => Parser$hex_nat$(x0); const Kind$Parser$nat = Kind$Parser$block("nat")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $8942 = self.err; + var $10145 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $8944 = self.err; - var self = $8942; + var $10147 = self.err; + var self = $10145; switch (self._) { case 'Maybe.some': - var $8946 = self.value; - var $8947 = Parser$Reply$error$(Parser$Error$combine$($8946, $8944)); - var $8945 = $8947; + var $10149 = self.value; + var $10150 = Parser$Reply$error$(Parser$Error$combine$($10149, $10147)); + var $10148 = $10150; break; case 'Maybe.none': - var $8948 = Parser$Reply$error$($8944); - var $8945 = $8948; + var $10151 = Parser$Reply$error$($10147); + var $10148 = $10151; break; }; - var $8943 = $8945; + var $10146 = $10148; break; case 'Parser.Reply.value': - var $8949 = self.pst; - var self = $8949; + var $10152 = self.pst; + var self = $10152; switch (self._) { case 'Parser.State.new': - var $8951 = self.err; - var $8952 = self.nam; - var $8953 = self.ini; - var $8954 = self.idx; - var $8955 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8942, $8951), $8952, $8953, $8954, $8955); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $8957 = self.err; - var _reply$21 = Parser$choice$(List$cons$(Parser$hex_nat, List$cons$(Parser$nat, List$nil)), _reply$pst$15); - var self = _reply$21; + var $10154 = self.err; + var $10155 = self.nam; + var $10156 = self.ini; + var $10157 = self.idx; + var $10158 = self.str; + var $10159 = ((console.log(("FALTANDO " + $10158)), (_$15 => { + var $10160 = ((console.log(("VALUE " + $10155)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10145, $10154), $10155, $10156, $10157, $10158); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $8959 = self.err; - var self = $8957; + case 'Parser.State.new': + var $10162 = self.err; + var _reply$23 = Parser$choice$(List$cons$(Parser$hex_nat, List$cons$(Parser$nat, List$nil)), _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $8961 = self.value; - var $8962 = Parser$Reply$error$(Parser$Error$combine$($8961, $8959)); - var $8960 = $8962; + case 'Parser.Reply.error': + var $10164 = self.err; + var self = $10162; + switch (self._) { + case 'Maybe.some': + var $10166 = self.value; + var $10167 = Parser$Reply$error$(Parser$Error$combine$($10166, $10164)); + var $10165 = $10167; + break; + case 'Maybe.none': + var $10168 = Parser$Reply$error$($10164); + var $10165 = $10168; + break; + }; + var $10163 = $10165; break; - case 'Maybe.none': - var $8963 = Parser$Reply$error$($8959); - var $8960 = $8963; + case 'Parser.Reply.value': + var $10169 = self.pst; + var $10170 = self.val; + var self = $10169; + switch (self._) { + case 'Parser.State.new': + var $10172 = self.err; + var $10173 = self.nam; + var $10174 = self.ini; + var $10175 = self.idx; + var $10176 = self.str; + var $10177 = ((console.log(("FALTANDO " + $10176)), (_$31 => { + var $10178 = ((console.log(("VALUE " + $10173)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10162, $10172), $10173, $10174, $10175, $10176); + var $10179 = Parser$Reply$value$(_reply$pst$33, Kind$Term$nat$($10170)); + return $10179; + })())); + return $10178; + })())); + var $10171 = $10177; + break; + }; + var $10163 = $10171; break; }; - var $8958 = $8960; - break; - case 'Parser.Reply.value': - var $8964 = self.pst; - var $8965 = self.val; - var self = $8964; - switch (self._) { - case 'Parser.State.new': - var $8967 = self.err; - var $8968 = self.nam; - var $8969 = self.ini; - var $8970 = self.idx; - var $8971 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8957, $8967), $8968, $8969, $8970, $8971); - var $8972 = Parser$Reply$value$(_reply$pst$29, Kind$Term$nat$($8965)); - var $8966 = $8972; - break; - }; - var $8958 = $8966; + var $10161 = $10163; break; }; - var $8956 = $8958; - break; - }; - var $8950 = $8956; + return $10161; + })())); + return $10160; + })())); + var $10153 = $10159; break; }; - var $8943 = $8950; + var $10146 = $10153; break; }; - var $8941 = $8943; + var $10144 = $10146; break; }; - return $8941; + return $10144; })); function Kind$Parser$machine_integer$unsigned$(_size$1) { - var $8973 = Kind$Parser$block("int")((() => { + var $10180 = Kind$Parser$block("int")((() => { var _size_str$2 = Nat$show$(_size$1); - var $8974 = (_pst$3 => { + var $10181 = (_pst$3 => { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $8976 = self.err; + var $10183 = self.err; var _reply$9 = Kind$Parser$spaces(_pst$3); var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $8978 = self.err; - var self = $8976; + var $10185 = self.err; + var self = $10183; switch (self._) { case 'Maybe.some': - var $8980 = self.value; - var $8981 = Parser$Reply$error$(Parser$Error$combine$($8980, $8978)); - var $8979 = $8981; + var $10187 = self.value; + var $10188 = Parser$Reply$error$(Parser$Error$combine$($10187, $10185)); + var $10186 = $10188; break; case 'Maybe.none': - var $8982 = Parser$Reply$error$($8978); - var $8979 = $8982; + var $10189 = Parser$Reply$error$($10185); + var $10186 = $10189; break; }; - var $8977 = $8979; + var $10184 = $10186; break; case 'Parser.Reply.value': - var $8983 = self.pst; - var self = $8983; + var $10190 = self.pst; + var self = $10190; switch (self._) { case 'Parser.State.new': - var $8985 = self.err; - var $8986 = self.nam; - var $8987 = self.ini; - var $8988 = self.idx; - var $8989 = self.str; - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($8976, $8985), $8986, $8987, $8988, $8989); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $8991 = self.err; - var _reply$23 = Kind$Parser$nat(_reply$pst$17); - var self = _reply$23; + var $10192 = self.err; + var $10193 = self.nam; + var $10194 = self.ini; + var $10195 = self.idx; + var $10196 = self.str; + var $10197 = ((console.log(("FALTANDO " + $10196)), (_$17 => { + var $10198 = ((console.log(("VALUE " + $10193)), (_$18 => { + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($10183, $10192), $10193, $10194, $10195, $10196); + var self = _reply$pst$19; switch (self._) { - case 'Parser.Reply.error': - var $8993 = self.err; - var self = $8991; + case 'Parser.State.new': + var $10200 = self.err; + var _reply$25 = Kind$Parser$nat(_reply$pst$19); + var self = _reply$25; switch (self._) { - case 'Maybe.some': - var $8995 = self.value; - var $8996 = Parser$Reply$error$(Parser$Error$combine$($8995, $8993)); - var $8994 = $8996; - break; - case 'Maybe.none': - var $8997 = Parser$Reply$error$($8993); - var $8994 = $8997; - break; - }; - var $8992 = $8994; - break; - case 'Parser.Reply.value': - var $8998 = self.pst; - var $8999 = self.val; - var self = $8998; - switch (self._) { - case 'Parser.State.new': - var $9001 = self.err; - var $9002 = self.nam; - var $9003 = self.ini; - var $9004 = self.idx; - var $9005 = self.str; - var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($8991, $9001), $9002, $9003, $9004, $9005); - var self = _reply$pst$31; + case 'Parser.Reply.error': + var $10202 = self.err; + var self = $10200; switch (self._) { - case 'Parser.State.new': - var $9007 = self.err; - var _reply$37 = Parser$text$(("#" + Nat$show$(_size$1)), _reply$pst$31); - var self = _reply$37; - switch (self._) { - case 'Parser.Reply.error': - var $9009 = self.err; - var self = $9007; - switch (self._) { - case 'Maybe.some': - var $9011 = self.value; - var $9012 = Parser$Reply$error$(Parser$Error$combine$($9011, $9009)); - var $9010 = $9012; - break; - case 'Maybe.none': - var $9013 = Parser$Reply$error$($9009); - var $9010 = $9013; - break; - }; - var $9008 = $9010; - break; - case 'Parser.Reply.value': - var $9014 = self.pst; - var self = $9014; - switch (self._) { - case 'Parser.State.new': - var $9016 = self.err; - var $9017 = self.nam; - var $9018 = self.ini; - var $9019 = self.idx; - var $9020 = self.str; - var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($9007, $9016), $9017, $9018, $9019, $9020); - var _term$46 = Kind$Term$ref$(("Nat.to_u" + Nat$show$(_size$1))); - var _term$47 = Kind$Term$app$(_term$46, $8999); - var $9021 = Parser$Reply$value$(_reply$pst$45, _term$47); - var $9015 = $9021; - break; - }; - var $9008 = $9015; - break; - }; - var $9006 = $9008; + case 'Maybe.some': + var $10204 = self.value; + var $10205 = Parser$Reply$error$(Parser$Error$combine$($10204, $10202)); + var $10203 = $10205; + break; + case 'Maybe.none': + var $10206 = Parser$Reply$error$($10202); + var $10203 = $10206; break; }; - var $9000 = $9006; + var $10201 = $10203; + break; + case 'Parser.Reply.value': + var $10207 = self.pst; + var $10208 = self.val; + var self = $10207; + switch (self._) { + case 'Parser.State.new': + var $10210 = self.err; + var $10211 = self.nam; + var $10212 = self.ini; + var $10213 = self.idx; + var $10214 = self.str; + var $10215 = ((console.log(("FALTANDO " + $10214)), (_$33 => { + var $10216 = ((console.log(("VALUE " + $10211)), (_$34 => { + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($10200, $10210), $10211, $10212, $10213, $10214); + var self = _reply$pst$35; + switch (self._) { + case 'Parser.State.new': + var $10218 = self.err; + var _reply$41 = Parser$text$(("#" + Nat$show$(_size$1)), _reply$pst$35); + var self = _reply$41; + switch (self._) { + case 'Parser.Reply.error': + var $10220 = self.err; + var self = $10218; + switch (self._) { + case 'Maybe.some': + var $10222 = self.value; + var $10223 = Parser$Reply$error$(Parser$Error$combine$($10222, $10220)); + var $10221 = $10223; + break; + case 'Maybe.none': + var $10224 = Parser$Reply$error$($10220); + var $10221 = $10224; + break; + }; + var $10219 = $10221; + break; + case 'Parser.Reply.value': + var $10225 = self.pst; + var self = $10225; + switch (self._) { + case 'Parser.State.new': + var $10227 = self.err; + var $10228 = self.nam; + var $10229 = self.ini; + var $10230 = self.idx; + var $10231 = self.str; + var $10232 = ((console.log(("FALTANDO " + $10231)), (_$49 => { + var $10233 = ((console.log(("VALUE " + $10228)), (_$50 => { + var _reply$pst$51 = Parser$State$new$(Parser$Error$maybe_combine$($10218, $10227), $10228, $10229, $10230, $10231); + var _term$52 = Kind$Term$ref$(("Nat.to_u" + Nat$show$(_size$1))); + var _term$53 = Kind$Term$app$(_term$52, $10208); + var $10234 = Parser$Reply$value$(_reply$pst$51, _term$53); + return $10234; + })())); + return $10233; + })())); + var $10226 = $10232; + break; + }; + var $10219 = $10226; + break; + }; + var $10217 = $10219; + break; + }; + return $10217; + })())); + return $10216; + })())); + var $10209 = $10215; + break; + }; + var $10201 = $10209; break; }; - var $8992 = $9000; + var $10199 = $10201; break; }; - var $8990 = $8992; - break; - }; - var $8984 = $8990; + return $10199; + })())); + return $10198; + })())); + var $10191 = $10197; break; }; - var $8977 = $8984; + var $10184 = $10191; break; }; - var $8975 = $8977; + var $10182 = $10184; break; }; - return $8975; + return $10182; }); - return $8974; + return $10181; })()); - return $8973; + return $10180; }; const Kind$Parser$machine_integer$unsigned = x0 => Kind$Parser$machine_integer$unsigned$(x0); const Kind$Parser$u64 = Kind$Parser$block("u64")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9023 = self.err; + var $10236 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9025 = self.err; - var self = $9023; + var $10238 = self.err; + var self = $10236; switch (self._) { case 'Maybe.some': - var $9027 = self.value; - var $9028 = Parser$Reply$error$(Parser$Error$combine$($9027, $9025)); - var $9026 = $9028; + var $10240 = self.value; + var $10241 = Parser$Reply$error$(Parser$Error$combine$($10240, $10238)); + var $10239 = $10241; break; case 'Maybe.none': - var $9029 = Parser$Reply$error$($9025); - var $9026 = $9029; + var $10242 = Parser$Reply$error$($10238); + var $10239 = $10242; break; }; - var $9024 = $9026; + var $10237 = $10239; break; case 'Parser.Reply.value': - var $9030 = self.pst; - var self = $9030; + var $10243 = self.pst; + var self = $10243; switch (self._) { case 'Parser.State.new': - var $9032 = self.err; - var $9033 = self.nam; - var $9034 = self.ini; - var $9035 = self.idx; - var $9036 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9023, $9032), $9033, $9034, $9035, $9036); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $9038 = self.err; - var _reply$21 = Parser$nat$(_reply$pst$15); - var self = _reply$21; + var $10245 = self.err; + var $10246 = self.nam; + var $10247 = self.ini; + var $10248 = self.idx; + var $10249 = self.str; + var $10250 = ((console.log(("FALTANDO " + $10249)), (_$15 => { + var $10251 = ((console.log(("VALUE " + $10246)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10236, $10245), $10246, $10247, $10248, $10249); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $9040 = self.err; - var self = $9038; + case 'Parser.State.new': + var $10253 = self.err; + var _reply$23 = Parser$nat$(_reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $9042 = self.value; - var $9043 = Parser$Reply$error$(Parser$Error$combine$($9042, $9040)); - var $9041 = $9043; - break; - case 'Maybe.none': - var $9044 = Parser$Reply$error$($9040); - var $9041 = $9044; - break; - }; - var $9039 = $9041; - break; - case 'Parser.Reply.value': - var $9045 = self.pst; - var $9046 = self.val; - var self = $9045; - switch (self._) { - case 'Parser.State.new': - var $9048 = self.err; - var $9049 = self.nam; - var $9050 = self.ini; - var $9051 = self.idx; - var $9052 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9038, $9048), $9049, $9050, $9051, $9052); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $10255 = self.err; + var self = $10253; switch (self._) { - case 'Parser.State.new': - var $9054 = self.err; - var _reply$35 = Parser$text$("l", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $9056 = self.err; - var self = $9054; - switch (self._) { - case 'Maybe.some': - var $9058 = self.value; - var $9059 = Parser$Reply$error$(Parser$Error$combine$($9058, $9056)); - var $9057 = $9059; - break; - case 'Maybe.none': - var $9060 = Parser$Reply$error$($9056); - var $9057 = $9060; - break; - }; - var $9055 = $9057; - break; - case 'Parser.Reply.value': - var $9061 = self.pst; - var self = $9061; - switch (self._) { - case 'Parser.State.new': - var $9063 = self.err; - var $9064 = self.nam; - var $9065 = self.ini; - var $9066 = self.idx; - var $9067 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9054, $9063), $9064, $9065, $9066, $9067); - var _term$44 = Kind$Term$ref$("U64.from_nat"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($9046)); - var $9068 = Parser$Reply$value$(_reply$pst$43, _term$45); - var $9062 = $9068; - break; - }; - var $9055 = $9062; - break; - }; - var $9053 = $9055; + case 'Maybe.some': + var $10257 = self.value; + var $10258 = Parser$Reply$error$(Parser$Error$combine$($10257, $10255)); + var $10256 = $10258; + break; + case 'Maybe.none': + var $10259 = Parser$Reply$error$($10255); + var $10256 = $10259; break; }; - var $9047 = $9053; + var $10254 = $10256; + break; + case 'Parser.Reply.value': + var $10260 = self.pst; + var $10261 = self.val; + var self = $10260; + switch (self._) { + case 'Parser.State.new': + var $10263 = self.err; + var $10264 = self.nam; + var $10265 = self.ini; + var $10266 = self.idx; + var $10267 = self.str; + var $10268 = ((console.log(("FALTANDO " + $10267)), (_$31 => { + var $10269 = ((console.log(("VALUE " + $10264)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10253, $10263), $10264, $10265, $10266, $10267); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $10271 = self.err; + var _reply$39 = Parser$text$("l", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $10273 = self.err; + var self = $10271; + switch (self._) { + case 'Maybe.some': + var $10275 = self.value; + var $10276 = Parser$Reply$error$(Parser$Error$combine$($10275, $10273)); + var $10274 = $10276; + break; + case 'Maybe.none': + var $10277 = Parser$Reply$error$($10273); + var $10274 = $10277; + break; + }; + var $10272 = $10274; + break; + case 'Parser.Reply.value': + var $10278 = self.pst; + var self = $10278; + switch (self._) { + case 'Parser.State.new': + var $10280 = self.err; + var $10281 = self.nam; + var $10282 = self.ini; + var $10283 = self.idx; + var $10284 = self.str; + var $10285 = ((console.log(("FALTANDO " + $10284)), (_$47 => { + var $10286 = ((console.log(("VALUE " + $10281)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($10271, $10280), $10281, $10282, $10283, $10284); + var _term$50 = Kind$Term$ref$("U64.from_nat"); + var _term$51 = Kind$Term$app$(_term$50, Kind$Term$nat$($10261)); + var $10287 = Parser$Reply$value$(_reply$pst$49, _term$51); + return $10287; + })())); + return $10286; + })())); + var $10279 = $10285; + break; + }; + var $10272 = $10279; + break; + }; + var $10270 = $10272; + break; + }; + return $10270; + })())); + return $10269; + })())); + var $10262 = $10268; + break; + }; + var $10254 = $10262; break; }; - var $9039 = $9047; + var $10252 = $10254; break; }; - var $9037 = $9039; - break; - }; - var $9031 = $9037; + return $10252; + })())); + return $10251; + })())); + var $10244 = $10250; break; }; - var $9024 = $9031; + var $10237 = $10244; break; }; - var $9022 = $9024; + var $10235 = $10237; break; }; - return $9022; + return $10235; })); const Kind$Parser$u32 = Kind$Parser$block("u32")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9070 = self.err; + var $10289 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9072 = self.err; - var self = $9070; + var $10291 = self.err; + var self = $10289; switch (self._) { case 'Maybe.some': - var $9074 = self.value; - var $9075 = Parser$Reply$error$(Parser$Error$combine$($9074, $9072)); - var $9073 = $9075; + var $10293 = self.value; + var $10294 = Parser$Reply$error$(Parser$Error$combine$($10293, $10291)); + var $10292 = $10294; break; case 'Maybe.none': - var $9076 = Parser$Reply$error$($9072); - var $9073 = $9076; + var $10295 = Parser$Reply$error$($10291); + var $10292 = $10295; break; }; - var $9071 = $9073; + var $10290 = $10292; break; case 'Parser.Reply.value': - var $9077 = self.pst; - var self = $9077; + var $10296 = self.pst; + var self = $10296; switch (self._) { case 'Parser.State.new': - var $9079 = self.err; - var $9080 = self.nam; - var $9081 = self.ini; - var $9082 = self.idx; - var $9083 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9070, $9079), $9080, $9081, $9082, $9083); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $9085 = self.err; - var _reply$21 = Parser$nat$(_reply$pst$15); - var self = _reply$21; + var $10298 = self.err; + var $10299 = self.nam; + var $10300 = self.ini; + var $10301 = self.idx; + var $10302 = self.str; + var $10303 = ((console.log(("FALTANDO " + $10302)), (_$15 => { + var $10304 = ((console.log(("VALUE " + $10299)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10289, $10298), $10299, $10300, $10301, $10302); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $9087 = self.err; - var self = $9085; + case 'Parser.State.new': + var $10306 = self.err; + var _reply$23 = Parser$nat$(_reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $9089 = self.value; - var $9090 = Parser$Reply$error$(Parser$Error$combine$($9089, $9087)); - var $9088 = $9090; - break; - case 'Maybe.none': - var $9091 = Parser$Reply$error$($9087); - var $9088 = $9091; - break; - }; - var $9086 = $9088; - break; - case 'Parser.Reply.value': - var $9092 = self.pst; - var $9093 = self.val; - var self = $9092; - switch (self._) { - case 'Parser.State.new': - var $9095 = self.err; - var $9096 = self.nam; - var $9097 = self.ini; - var $9098 = self.idx; - var $9099 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9085, $9095), $9096, $9097, $9098, $9099); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $10308 = self.err; + var self = $10306; switch (self._) { - case 'Parser.State.new': - var $9101 = self.err; - var _reply$35 = Parser$text$("u", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $9103 = self.err; - var self = $9101; - switch (self._) { - case 'Maybe.some': - var $9105 = self.value; - var $9106 = Parser$Reply$error$(Parser$Error$combine$($9105, $9103)); - var $9104 = $9106; - break; - case 'Maybe.none': - var $9107 = Parser$Reply$error$($9103); - var $9104 = $9107; - break; - }; - var $9102 = $9104; - break; - case 'Parser.Reply.value': - var $9108 = self.pst; - var self = $9108; - switch (self._) { - case 'Parser.State.new': - var $9110 = self.err; - var $9111 = self.nam; - var $9112 = self.ini; - var $9113 = self.idx; - var $9114 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9101, $9110), $9111, $9112, $9113, $9114); - var _term$44 = Kind$Term$ref$("U32.from_nat"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($9093)); - var $9115 = Parser$Reply$value$(_reply$pst$43, _term$45); - var $9109 = $9115; - break; - }; - var $9102 = $9109; - break; - }; - var $9100 = $9102; + case 'Maybe.some': + var $10310 = self.value; + var $10311 = Parser$Reply$error$(Parser$Error$combine$($10310, $10308)); + var $10309 = $10311; + break; + case 'Maybe.none': + var $10312 = Parser$Reply$error$($10308); + var $10309 = $10312; break; }; - var $9094 = $9100; + var $10307 = $10309; + break; + case 'Parser.Reply.value': + var $10313 = self.pst; + var $10314 = self.val; + var self = $10313; + switch (self._) { + case 'Parser.State.new': + var $10316 = self.err; + var $10317 = self.nam; + var $10318 = self.ini; + var $10319 = self.idx; + var $10320 = self.str; + var $10321 = ((console.log(("FALTANDO " + $10320)), (_$31 => { + var $10322 = ((console.log(("VALUE " + $10317)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10306, $10316), $10317, $10318, $10319, $10320); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $10324 = self.err; + var _reply$39 = Parser$text$("u", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $10326 = self.err; + var self = $10324; + switch (self._) { + case 'Maybe.some': + var $10328 = self.value; + var $10329 = Parser$Reply$error$(Parser$Error$combine$($10328, $10326)); + var $10327 = $10329; + break; + case 'Maybe.none': + var $10330 = Parser$Reply$error$($10326); + var $10327 = $10330; + break; + }; + var $10325 = $10327; + break; + case 'Parser.Reply.value': + var $10331 = self.pst; + var self = $10331; + switch (self._) { + case 'Parser.State.new': + var $10333 = self.err; + var $10334 = self.nam; + var $10335 = self.ini; + var $10336 = self.idx; + var $10337 = self.str; + var $10338 = ((console.log(("FALTANDO " + $10337)), (_$47 => { + var $10339 = ((console.log(("VALUE " + $10334)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($10324, $10333), $10334, $10335, $10336, $10337); + var _term$50 = Kind$Term$ref$("U32.from_nat"); + var _term$51 = Kind$Term$app$(_term$50, Kind$Term$nat$($10314)); + var $10340 = Parser$Reply$value$(_reply$pst$49, _term$51); + return $10340; + })())); + return $10339; + })())); + var $10332 = $10338; + break; + }; + var $10325 = $10332; + break; + }; + var $10323 = $10325; + break; + }; + return $10323; + })())); + return $10322; + })())); + var $10315 = $10321; + break; + }; + var $10307 = $10315; break; }; - var $9086 = $9094; + var $10305 = $10307; break; }; - var $9084 = $9086; - break; - }; - var $9078 = $9084; + return $10305; + })())); + return $10304; + })())); + var $10297 = $10303; break; }; - var $9071 = $9078; + var $10290 = $10297; break; }; - var $9069 = $9071; + var $10288 = $10290; break; }; - return $9069; + return $10288; })); const Kind$Parser$u16 = Kind$Parser$block("u16")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9117 = self.err; + var $10342 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9119 = self.err; - var self = $9117; + var $10344 = self.err; + var self = $10342; switch (self._) { case 'Maybe.some': - var $9121 = self.value; - var $9122 = Parser$Reply$error$(Parser$Error$combine$($9121, $9119)); - var $9120 = $9122; + var $10346 = self.value; + var $10347 = Parser$Reply$error$(Parser$Error$combine$($10346, $10344)); + var $10345 = $10347; break; case 'Maybe.none': - var $9123 = Parser$Reply$error$($9119); - var $9120 = $9123; + var $10348 = Parser$Reply$error$($10344); + var $10345 = $10348; break; }; - var $9118 = $9120; + var $10343 = $10345; break; case 'Parser.Reply.value': - var $9124 = self.pst; - var self = $9124; + var $10349 = self.pst; + var self = $10349; switch (self._) { case 'Parser.State.new': - var $9126 = self.err; - var $9127 = self.nam; - var $9128 = self.ini; - var $9129 = self.idx; - var $9130 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9117, $9126), $9127, $9128, $9129, $9130); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $9132 = self.err; - var _reply$21 = Parser$nat$(_reply$pst$15); - var self = _reply$21; + var $10351 = self.err; + var $10352 = self.nam; + var $10353 = self.ini; + var $10354 = self.idx; + var $10355 = self.str; + var $10356 = ((console.log(("FALTANDO " + $10355)), (_$15 => { + var $10357 = ((console.log(("VALUE " + $10352)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10342, $10351), $10352, $10353, $10354, $10355); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $9134 = self.err; - var self = $9132; + case 'Parser.State.new': + var $10359 = self.err; + var _reply$23 = Parser$nat$(_reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $9136 = self.value; - var $9137 = Parser$Reply$error$(Parser$Error$combine$($9136, $9134)); - var $9135 = $9137; - break; - case 'Maybe.none': - var $9138 = Parser$Reply$error$($9134); - var $9135 = $9138; - break; - }; - var $9133 = $9135; - break; - case 'Parser.Reply.value': - var $9139 = self.pst; - var $9140 = self.val; - var self = $9139; - switch (self._) { - case 'Parser.State.new': - var $9142 = self.err; - var $9143 = self.nam; - var $9144 = self.ini; - var $9145 = self.idx; - var $9146 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9132, $9142), $9143, $9144, $9145, $9146); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $10361 = self.err; + var self = $10359; switch (self._) { - case 'Parser.State.new': - var $9148 = self.err; - var _reply$35 = Parser$text$("s", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $9150 = self.err; - var self = $9148; - switch (self._) { - case 'Maybe.some': - var $9152 = self.value; - var $9153 = Parser$Reply$error$(Parser$Error$combine$($9152, $9150)); - var $9151 = $9153; - break; - case 'Maybe.none': - var $9154 = Parser$Reply$error$($9150); - var $9151 = $9154; - break; - }; - var $9149 = $9151; - break; - case 'Parser.Reply.value': - var $9155 = self.pst; - var self = $9155; - switch (self._) { - case 'Parser.State.new': - var $9157 = self.err; - var $9158 = self.nam; - var $9159 = self.ini; - var $9160 = self.idx; - var $9161 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9148, $9157), $9158, $9159, $9160, $9161); - var _term$44 = Kind$Term$ref$("U16.from_nat"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($9140)); - var $9162 = Parser$Reply$value$(_reply$pst$43, _term$45); - var $9156 = $9162; - break; - }; - var $9149 = $9156; - break; - }; - var $9147 = $9149; + case 'Maybe.some': + var $10363 = self.value; + var $10364 = Parser$Reply$error$(Parser$Error$combine$($10363, $10361)); + var $10362 = $10364; + break; + case 'Maybe.none': + var $10365 = Parser$Reply$error$($10361); + var $10362 = $10365; break; }; - var $9141 = $9147; + var $10360 = $10362; + break; + case 'Parser.Reply.value': + var $10366 = self.pst; + var $10367 = self.val; + var self = $10366; + switch (self._) { + case 'Parser.State.new': + var $10369 = self.err; + var $10370 = self.nam; + var $10371 = self.ini; + var $10372 = self.idx; + var $10373 = self.str; + var $10374 = ((console.log(("FALTANDO " + $10373)), (_$31 => { + var $10375 = ((console.log(("VALUE " + $10370)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10359, $10369), $10370, $10371, $10372, $10373); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $10377 = self.err; + var _reply$39 = Parser$text$("s", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $10379 = self.err; + var self = $10377; + switch (self._) { + case 'Maybe.some': + var $10381 = self.value; + var $10382 = Parser$Reply$error$(Parser$Error$combine$($10381, $10379)); + var $10380 = $10382; + break; + case 'Maybe.none': + var $10383 = Parser$Reply$error$($10379); + var $10380 = $10383; + break; + }; + var $10378 = $10380; + break; + case 'Parser.Reply.value': + var $10384 = self.pst; + var self = $10384; + switch (self._) { + case 'Parser.State.new': + var $10386 = self.err; + var $10387 = self.nam; + var $10388 = self.ini; + var $10389 = self.idx; + var $10390 = self.str; + var $10391 = ((console.log(("FALTANDO " + $10390)), (_$47 => { + var $10392 = ((console.log(("VALUE " + $10387)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($10377, $10386), $10387, $10388, $10389, $10390); + var _term$50 = Kind$Term$ref$("U16.from_nat"); + var _term$51 = Kind$Term$app$(_term$50, Kind$Term$nat$($10367)); + var $10393 = Parser$Reply$value$(_reply$pst$49, _term$51); + return $10393; + })())); + return $10392; + })())); + var $10385 = $10391; + break; + }; + var $10378 = $10385; + break; + }; + var $10376 = $10378; + break; + }; + return $10376; + })())); + return $10375; + })())); + var $10368 = $10374; + break; + }; + var $10360 = $10368; break; }; - var $9133 = $9141; + var $10358 = $10360; break; }; - var $9131 = $9133; - break; - }; - var $9125 = $9131; + return $10358; + })())); + return $10357; + })())); + var $10350 = $10356; break; }; - var $9118 = $9125; + var $10343 = $10350; break; }; - var $9116 = $9118; + var $10341 = $10343; break; }; - return $9116; + return $10341; })); const Kind$Parser$u8 = Kind$Parser$block("u8")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9164 = self.err; + var $10395 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9166 = self.err; - var self = $9164; + var $10397 = self.err; + var self = $10395; switch (self._) { case 'Maybe.some': - var $9168 = self.value; - var $9169 = Parser$Reply$error$(Parser$Error$combine$($9168, $9166)); - var $9167 = $9169; + var $10399 = self.value; + var $10400 = Parser$Reply$error$(Parser$Error$combine$($10399, $10397)); + var $10398 = $10400; break; case 'Maybe.none': - var $9170 = Parser$Reply$error$($9166); - var $9167 = $9170; + var $10401 = Parser$Reply$error$($10397); + var $10398 = $10401; break; }; - var $9165 = $9167; + var $10396 = $10398; break; case 'Parser.Reply.value': - var $9171 = self.pst; - var self = $9171; + var $10402 = self.pst; + var self = $10402; switch (self._) { case 'Parser.State.new': - var $9173 = self.err; - var $9174 = self.nam; - var $9175 = self.ini; - var $9176 = self.idx; - var $9177 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9164, $9173), $9174, $9175, $9176, $9177); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $9179 = self.err; - var _reply$21 = Parser$nat$(_reply$pst$15); - var self = _reply$21; + var $10404 = self.err; + var $10405 = self.nam; + var $10406 = self.ini; + var $10407 = self.idx; + var $10408 = self.str; + var $10409 = ((console.log(("FALTANDO " + $10408)), (_$15 => { + var $10410 = ((console.log(("VALUE " + $10405)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10395, $10404), $10405, $10406, $10407, $10408); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $9181 = self.err; - var self = $9179; + case 'Parser.State.new': + var $10412 = self.err; + var _reply$23 = Parser$nat$(_reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $9183 = self.value; - var $9184 = Parser$Reply$error$(Parser$Error$combine$($9183, $9181)); - var $9182 = $9184; - break; - case 'Maybe.none': - var $9185 = Parser$Reply$error$($9181); - var $9182 = $9185; - break; - }; - var $9180 = $9182; - break; - case 'Parser.Reply.value': - var $9186 = self.pst; - var $9187 = self.val; - var self = $9186; - switch (self._) { - case 'Parser.State.new': - var $9189 = self.err; - var $9190 = self.nam; - var $9191 = self.ini; - var $9192 = self.idx; - var $9193 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9179, $9189), $9190, $9191, $9192, $9193); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $10414 = self.err; + var self = $10412; switch (self._) { - case 'Parser.State.new': - var $9195 = self.err; - var _reply$35 = Parser$text$("b", _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $9197 = self.err; - var self = $9195; - switch (self._) { - case 'Maybe.some': - var $9199 = self.value; - var $9200 = Parser$Reply$error$(Parser$Error$combine$($9199, $9197)); - var $9198 = $9200; - break; - case 'Maybe.none': - var $9201 = Parser$Reply$error$($9197); - var $9198 = $9201; - break; - }; - var $9196 = $9198; - break; - case 'Parser.Reply.value': - var $9202 = self.pst; - var self = $9202; - switch (self._) { - case 'Parser.State.new': - var $9204 = self.err; - var $9205 = self.nam; - var $9206 = self.ini; - var $9207 = self.idx; - var $9208 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9195, $9204), $9205, $9206, $9207, $9208); - var _term$44 = Kind$Term$ref$("U8.from_nat"); - var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($9187)); - var $9209 = Parser$Reply$value$(_reply$pst$43, _term$45); - var $9203 = $9209; - break; - }; - var $9196 = $9203; - break; - }; - var $9194 = $9196; + case 'Maybe.some': + var $10416 = self.value; + var $10417 = Parser$Reply$error$(Parser$Error$combine$($10416, $10414)); + var $10415 = $10417; + break; + case 'Maybe.none': + var $10418 = Parser$Reply$error$($10414); + var $10415 = $10418; break; }; - var $9188 = $9194; + var $10413 = $10415; + break; + case 'Parser.Reply.value': + var $10419 = self.pst; + var $10420 = self.val; + var self = $10419; + switch (self._) { + case 'Parser.State.new': + var $10422 = self.err; + var $10423 = self.nam; + var $10424 = self.ini; + var $10425 = self.idx; + var $10426 = self.str; + var $10427 = ((console.log(("FALTANDO " + $10426)), (_$31 => { + var $10428 = ((console.log(("VALUE " + $10423)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10412, $10422), $10423, $10424, $10425, $10426); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $10430 = self.err; + var _reply$39 = Parser$text$("b", _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $10432 = self.err; + var self = $10430; + switch (self._) { + case 'Maybe.some': + var $10434 = self.value; + var $10435 = Parser$Reply$error$(Parser$Error$combine$($10434, $10432)); + var $10433 = $10435; + break; + case 'Maybe.none': + var $10436 = Parser$Reply$error$($10432); + var $10433 = $10436; + break; + }; + var $10431 = $10433; + break; + case 'Parser.Reply.value': + var $10437 = self.pst; + var self = $10437; + switch (self._) { + case 'Parser.State.new': + var $10439 = self.err; + var $10440 = self.nam; + var $10441 = self.ini; + var $10442 = self.idx; + var $10443 = self.str; + var $10444 = ((console.log(("FALTANDO " + $10443)), (_$47 => { + var $10445 = ((console.log(("VALUE " + $10440)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($10430, $10439), $10440, $10441, $10442, $10443); + var _term$50 = Kind$Term$ref$("U8.from_nat"); + var _term$51 = Kind$Term$app$(_term$50, Kind$Term$nat$($10420)); + var $10446 = Parser$Reply$value$(_reply$pst$49, _term$51); + return $10446; + })())); + return $10445; + })())); + var $10438 = $10444; + break; + }; + var $10431 = $10438; + break; + }; + var $10429 = $10431; + break; + }; + return $10429; + })())); + return $10428; + })())); + var $10421 = $10427; + break; + }; + var $10413 = $10421; break; }; - var $9180 = $9188; + var $10411 = $10413; break; }; - var $9178 = $9180; - break; - }; - var $9172 = $9178; + return $10411; + })())); + return $10410; + })())); + var $10403 = $10409; break; }; - var $9165 = $9172; + var $10396 = $10403; break; }; - var $9163 = $9165; + var $10394 = $10396; break; }; - return $9163; + return $10394; })); function Parser$Number$new$(_sign$1, _numb$2, _frac$3) { - var $9210 = ({ + var $10447 = ({ _: 'Parser.Number.new', 'sign': _sign$1, 'numb': _numb$2, 'frac': _frac$3 }); - return $9210; + return $10447; }; const Parser$Number$new = x0 => x1 => x2 => Parser$Number$new$(x0, x1, x2); @@ -28928,330 +32844,372 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9212 = self.err; + var $10449 = self.err; var _reply$7 = Parser$choice$(List$cons$((_pst$7 => { var self = _pst$7; switch (self._) { case 'Parser.State.new': - var $9215 = self.err; + var $10452 = self.err; var _reply$13 = Parser$text$("+", _pst$7); var self = _reply$13; switch (self._) { case 'Parser.Reply.error': - var $9217 = self.err; - var self = $9215; + var $10454 = self.err; + var self = $10452; switch (self._) { case 'Maybe.some': - var $9219 = self.value; - var $9220 = Parser$Reply$error$(Parser$Error$combine$($9219, $9217)); - var $9218 = $9220; + var $10456 = self.value; + var $10457 = Parser$Reply$error$(Parser$Error$combine$($10456, $10454)); + var $10455 = $10457; break; case 'Maybe.none': - var $9221 = Parser$Reply$error$($9217); - var $9218 = $9221; + var $10458 = Parser$Reply$error$($10454); + var $10455 = $10458; break; }; - var $9216 = $9218; + var $10453 = $10455; break; case 'Parser.Reply.value': - var $9222 = self.pst; - var self = $9222; + var $10459 = self.pst; + var self = $10459; switch (self._) { case 'Parser.State.new': - var $9224 = self.err; - var $9225 = self.nam; - var $9226 = self.ini; - var $9227 = self.idx; - var $9228 = self.str; - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($9215, $9224), $9225, $9226, $9227, $9228); - var $9229 = Parser$Reply$value$(_reply$pst$21, Maybe$some$(Bool$true)); - var $9223 = $9229; + var $10461 = self.err; + var $10462 = self.nam; + var $10463 = self.ini; + var $10464 = self.idx; + var $10465 = self.str; + var $10466 = ((console.log(("FALTANDO " + $10465)), (_$21 => { + var $10467 = ((console.log(("VALUE " + $10462)), (_$22 => { + var _reply$pst$23 = Parser$State$new$(Parser$Error$maybe_combine$($10452, $10461), $10462, $10463, $10464, $10465); + var $10468 = Parser$Reply$value$(_reply$pst$23, Maybe$some$(Bool$true)); + return $10468; + })())); + return $10467; + })())); + var $10460 = $10466; break; }; - var $9216 = $9223; + var $10453 = $10460; break; }; - var $9214 = $9216; + var $10451 = $10453; break; }; - return $9214; + return $10451; }), List$cons$((_pst$7 => { var self = _pst$7; switch (self._) { case 'Parser.State.new': - var $9231 = self.err; + var $10470 = self.err; var _reply$13 = Parser$text$("-", _pst$7); var self = _reply$13; switch (self._) { case 'Parser.Reply.error': - var $9233 = self.err; - var self = $9231; + var $10472 = self.err; + var self = $10470; switch (self._) { case 'Maybe.some': - var $9235 = self.value; - var $9236 = Parser$Reply$error$(Parser$Error$combine$($9235, $9233)); - var $9234 = $9236; + var $10474 = self.value; + var $10475 = Parser$Reply$error$(Parser$Error$combine$($10474, $10472)); + var $10473 = $10475; break; case 'Maybe.none': - var $9237 = Parser$Reply$error$($9233); - var $9234 = $9237; + var $10476 = Parser$Reply$error$($10472); + var $10473 = $10476; break; }; - var $9232 = $9234; + var $10471 = $10473; break; case 'Parser.Reply.value': - var $9238 = self.pst; - var self = $9238; + var $10477 = self.pst; + var self = $10477; switch (self._) { case 'Parser.State.new': - var $9240 = self.err; - var $9241 = self.nam; - var $9242 = self.ini; - var $9243 = self.idx; - var $9244 = self.str; - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($9231, $9240), $9241, $9242, $9243, $9244); - var $9245 = Parser$Reply$value$(_reply$pst$21, Maybe$some$(Bool$false)); - var $9239 = $9245; + var $10479 = self.err; + var $10480 = self.nam; + var $10481 = self.ini; + var $10482 = self.idx; + var $10483 = self.str; + var $10484 = ((console.log(("FALTANDO " + $10483)), (_$21 => { + var $10485 = ((console.log(("VALUE " + $10480)), (_$22 => { + var _reply$pst$23 = Parser$State$new$(Parser$Error$maybe_combine$($10470, $10479), $10480, $10481, $10482, $10483); + var $10486 = Parser$Reply$value$(_reply$pst$23, Maybe$some$(Bool$false)); + return $10486; + })())); + return $10485; + })())); + var $10478 = $10484; break; }; - var $9232 = $9239; + var $10471 = $10478; break; }; - var $9230 = $9232; + var $10469 = $10471; break; }; - return $9230; + return $10469; }), List$cons$((_pst$7 => { - var $9246 = Parser$Reply$value$(_pst$7, Maybe$none); - return $9246; + var $10487 = Parser$Reply$value$(_pst$7, Maybe$none); + return $10487; }), List$nil))), _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9247 = self.err; - var self = $9212; + var $10488 = self.err; + var self = $10449; switch (self._) { case 'Maybe.some': - var $9249 = self.value; - var $9250 = Parser$Reply$error$(Parser$Error$combine$($9249, $9247)); - var $9248 = $9250; + var $10490 = self.value; + var $10491 = Parser$Reply$error$(Parser$Error$combine$($10490, $10488)); + var $10489 = $10491; break; case 'Maybe.none': - var $9251 = Parser$Reply$error$($9247); - var $9248 = $9251; + var $10492 = Parser$Reply$error$($10488); + var $10489 = $10492; break; }; - var $9213 = $9248; + var $10450 = $10489; break; case 'Parser.Reply.value': - var $9252 = self.pst; - var $9253 = self.val; - var self = $9252; + var $10493 = self.pst; + var $10494 = self.val; + var self = $10493; switch (self._) { case 'Parser.State.new': - var $9255 = self.err; - var $9256 = self.nam; - var $9257 = self.ini; - var $9258 = self.idx; - var $9259 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9212, $9255), $9256, $9257, $9258, $9259); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $9261 = self.err; - var _reply$21 = Parser$choice$(List$cons$(Parser$hex_nat, List$cons$(Parser$nat, List$nil)), _reply$pst$15); - var self = _reply$21; + var $10496 = self.err; + var $10497 = self.nam; + var $10498 = self.ini; + var $10499 = self.idx; + var $10500 = self.str; + var $10501 = ((console.log(("FALTANDO " + $10500)), (_$15 => { + var $10502 = ((console.log(("VALUE " + $10497)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10449, $10496), $10497, $10498, $10499, $10500); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $9263 = self.err; - var self = $9261; + case 'Parser.State.new': + var $10504 = self.err; + var _reply$23 = Parser$choice$(List$cons$(Parser$hex_nat, List$cons$(Parser$nat, List$nil)), _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $9265 = self.value; - var $9266 = Parser$Reply$error$(Parser$Error$combine$($9265, $9263)); - var $9264 = $9266; - break; - case 'Maybe.none': - var $9267 = Parser$Reply$error$($9263); - var $9264 = $9267; - break; - }; - var $9262 = $9264; - break; - case 'Parser.Reply.value': - var $9268 = self.pst; - var $9269 = self.val; - var self = $9268; - switch (self._) { - case 'Parser.State.new': - var $9271 = self.err; - var $9272 = self.nam; - var $9273 = self.ini; - var $9274 = self.idx; - var $9275 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9261, $9271), $9272, $9273, $9274, $9275); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $10506 = self.err; + var self = $10504; switch (self._) { - case 'Parser.State.new': - var $9277 = self.err; - var self = _reply$pst$29; - switch (self._) { - case 'Parser.State.new': - var $9279 = self.err; - var _reply$40 = Parser$maybe$(Parser$text("."), _reply$pst$29); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $9281 = self.err; - var self = $9279; - switch (self._) { - case 'Maybe.some': - var $9283 = self.value; - var $9284 = Parser$Reply$error$(Parser$Error$combine$($9283, $9281)); - var $9282 = $9284; - break; - case 'Maybe.none': - var $9285 = Parser$Reply$error$($9281); - var $9282 = $9285; - break; - }; - var $9280 = $9282; - break; - case 'Parser.Reply.value': - var $9286 = self.pst; - var self = $9286; - switch (self._) { - case 'Parser.State.new': - var $9288 = self.err; - var $9289 = self.nam; - var $9290 = self.ini; - var $9291 = self.idx; - var $9292 = self.str; - var _reply$pst$48 = Parser$State$new$(Parser$Error$maybe_combine$($9279, $9288), $9289, $9290, $9291, $9292); - var self = _reply$pst$48; - switch (self._) { - case 'Parser.State.new': - var $9294 = self.err; - var _reply$54 = Parser$maybe$(Parser$nat, _reply$pst$48); - var self = _reply$54; - switch (self._) { - case 'Parser.Reply.error': - var $9296 = self.err; - var self = $9294; - switch (self._) { - case 'Maybe.some': - var $9298 = self.value; - var $9299 = Parser$Reply$error$(Parser$Error$combine$($9298, $9296)); - var $9297 = $9299; - break; - case 'Maybe.none': - var $9300 = Parser$Reply$error$($9296); - var $9297 = $9300; - break; - }; - var $9295 = $9297; - break; - case 'Parser.Reply.value': - var $9301 = self.pst; - var $9302 = self.val; - var self = $9301; - switch (self._) { - case 'Parser.State.new': - var $9304 = self.err; - var $9305 = self.nam; - var $9306 = self.ini; - var $9307 = self.idx; - var $9308 = self.str; - var _reply$pst$62 = Parser$State$new$(Parser$Error$maybe_combine$($9294, $9304), $9305, $9306, $9307, $9308); - var $9309 = Parser$Reply$value$(_reply$pst$62, $9302); - var $9303 = $9309; - break; - }; - var $9295 = $9303; - break; - }; - var $9293 = $9295; - break; - }; - var $9287 = $9293; - break; - }; - var $9280 = $9287; - break; - }; - var _reply$35 = $9280; - break; - }; - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $9310 = self.err; - var self = $9277; - switch (self._) { - case 'Maybe.some': - var $9312 = self.value; - var $9313 = Parser$Reply$error$(Parser$Error$combine$($9312, $9310)); - var $9311 = $9313; - break; - case 'Maybe.none': - var $9314 = Parser$Reply$error$($9310); - var $9311 = $9314; - break; - }; - var $9278 = $9311; - break; - case 'Parser.Reply.value': - var $9315 = self.pst; - var $9316 = self.val; - var self = $9315; - switch (self._) { - case 'Parser.State.new': - var $9318 = self.err; - var $9319 = self.nam; - var $9320 = self.ini; - var $9321 = self.idx; - var $9322 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9277, $9318), $9319, $9320, $9321, $9322); - var $9323 = Parser$Reply$value$(_reply$pst$43, Parser$Number$new$($9253, $9269, $9316)); - var $9317 = $9323; - break; - }; - var $9278 = $9317; - break; - }; - var $9276 = $9278; + case 'Maybe.some': + var $10508 = self.value; + var $10509 = Parser$Reply$error$(Parser$Error$combine$($10508, $10506)); + var $10507 = $10509; + break; + case 'Maybe.none': + var $10510 = Parser$Reply$error$($10506); + var $10507 = $10510; break; }; - var $9270 = $9276; + var $10505 = $10507; + break; + case 'Parser.Reply.value': + var $10511 = self.pst; + var $10512 = self.val; + var self = $10511; + switch (self._) { + case 'Parser.State.new': + var $10514 = self.err; + var $10515 = self.nam; + var $10516 = self.ini; + var $10517 = self.idx; + var $10518 = self.str; + var $10519 = ((console.log(("FALTANDO " + $10518)), (_$31 => { + var $10520 = ((console.log(("VALUE " + $10515)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10504, $10514), $10515, $10516, $10517, $10518); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $10522 = self.err; + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $10524 = self.err; + var _reply$44 = Parser$maybe$(Parser$text("."), _reply$pst$33); + var self = _reply$44; + switch (self._) { + case 'Parser.Reply.error': + var $10526 = self.err; + var self = $10524; + switch (self._) { + case 'Maybe.some': + var $10528 = self.value; + var $10529 = Parser$Reply$error$(Parser$Error$combine$($10528, $10526)); + var $10527 = $10529; + break; + case 'Maybe.none': + var $10530 = Parser$Reply$error$($10526); + var $10527 = $10530; + break; + }; + var $10525 = $10527; + break; + case 'Parser.Reply.value': + var $10531 = self.pst; + var self = $10531; + switch (self._) { + case 'Parser.State.new': + var $10533 = self.err; + var $10534 = self.nam; + var $10535 = self.ini; + var $10536 = self.idx; + var $10537 = self.str; + var $10538 = ((console.log(("FALTANDO " + $10537)), (_$52 => { + var $10539 = ((console.log(("VALUE " + $10534)), (_$53 => { + var _reply$pst$54 = Parser$State$new$(Parser$Error$maybe_combine$($10524, $10533), $10534, $10535, $10536, $10537); + var self = _reply$pst$54; + switch (self._) { + case 'Parser.State.new': + var $10541 = self.err; + var _reply$60 = Parser$maybe$(Parser$nat, _reply$pst$54); + var self = _reply$60; + switch (self._) { + case 'Parser.Reply.error': + var $10543 = self.err; + var self = $10541; + switch (self._) { + case 'Maybe.some': + var $10545 = self.value; + var $10546 = Parser$Reply$error$(Parser$Error$combine$($10545, $10543)); + var $10544 = $10546; + break; + case 'Maybe.none': + var $10547 = Parser$Reply$error$($10543); + var $10544 = $10547; + break; + }; + var $10542 = $10544; + break; + case 'Parser.Reply.value': + var $10548 = self.pst; + var $10549 = self.val; + var self = $10548; + switch (self._) { + case 'Parser.State.new': + var $10551 = self.err; + var $10552 = self.nam; + var $10553 = self.ini; + var $10554 = self.idx; + var $10555 = self.str; + var $10556 = ((console.log(("FALTANDO " + $10555)), (_$68 => { + var $10557 = ((console.log(("VALUE " + $10552)), (_$69 => { + var _reply$pst$70 = Parser$State$new$(Parser$Error$maybe_combine$($10541, $10551), $10552, $10553, $10554, $10555); + var $10558 = Parser$Reply$value$(_reply$pst$70, $10549); + return $10558; + })())); + return $10557; + })())); + var $10550 = $10556; + break; + }; + var $10542 = $10550; + break; + }; + var $10540 = $10542; + break; + }; + return $10540; + })())); + return $10539; + })())); + var $10532 = $10538; + break; + }; + var $10525 = $10532; + break; + }; + var _reply$39 = $10525; + break; + }; + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $10559 = self.err; + var self = $10522; + switch (self._) { + case 'Maybe.some': + var $10561 = self.value; + var $10562 = Parser$Reply$error$(Parser$Error$combine$($10561, $10559)); + var $10560 = $10562; + break; + case 'Maybe.none': + var $10563 = Parser$Reply$error$($10559); + var $10560 = $10563; + break; + }; + var $10523 = $10560; + break; + case 'Parser.Reply.value': + var $10564 = self.pst; + var $10565 = self.val; + var self = $10564; + switch (self._) { + case 'Parser.State.new': + var $10567 = self.err; + var $10568 = self.nam; + var $10569 = self.ini; + var $10570 = self.idx; + var $10571 = self.str; + var $10572 = ((console.log(("FALTANDO " + $10571)), (_$47 => { + var $10573 = ((console.log(("VALUE " + $10568)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($10522, $10567), $10568, $10569, $10570, $10571); + var $10574 = Parser$Reply$value$(_reply$pst$49, Parser$Number$new$($10494, $10512, $10565)); + return $10574; + })())); + return $10573; + })())); + var $10566 = $10572; + break; + }; + var $10523 = $10566; + break; + }; + var $10521 = $10523; + break; + }; + return $10521; + })())); + return $10520; + })())); + var $10513 = $10519; + break; + }; + var $10505 = $10513; break; }; - var $9262 = $9270; + var $10503 = $10505; break; }; - var $9260 = $9262; - break; - }; - var $9254 = $9260; + return $10503; + })())); + return $10502; + })())); + var $10495 = $10501; break; }; - var $9213 = $9254; + var $10450 = $10495; break; }; - var $9211 = $9213; + var $10448 = $10450; break; }; - return $9211; + return $10448; }; const Parser$num = x0 => Parser$num$(x0); function Kind$Term$num$(_sign$1, _numb$2, _frac$3) { - var $9324 = ({ + var $10575 = ({ _: 'Kind.Term.num', 'sign': _sign$1, 'numb': _numb$2, 'frac': _frac$3 }); - return $9324; + return $10575; }; const Kind$Term$num = x0 => x1 => x2 => Kind$Term$num$(x0, x1, x2); @@ -29259,344 +33217,374 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9326 = self.err; + var $10577 = self.err; var _reply$7 = Parser$num$(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9328 = self.err; - var self = $9326; + var $10579 = self.err; + var self = $10577; switch (self._) { case 'Maybe.some': - var $9330 = self.value; - var $9331 = Parser$Reply$error$(Parser$Error$combine$($9330, $9328)); - var $9329 = $9331; + var $10581 = self.value; + var $10582 = Parser$Reply$error$(Parser$Error$combine$($10581, $10579)); + var $10580 = $10582; break; case 'Maybe.none': - var $9332 = Parser$Reply$error$($9328); - var $9329 = $9332; + var $10583 = Parser$Reply$error$($10579); + var $10580 = $10583; break; }; - var $9327 = $9329; + var $10578 = $10580; break; case 'Parser.Reply.value': - var $9333 = self.pst; - var $9334 = self.val; - var self = $9333; + var $10584 = self.pst; + var $10585 = self.val; + var self = $10584; switch (self._) { case 'Parser.State.new': - var $9336 = self.err; - var $9337 = self.nam; - var $9338 = self.ini; - var $9339 = self.idx; - var $9340 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9326, $9336), $9337, $9338, $9339, $9340); - var self = $9334; - switch (self._) { - case 'Parser.Number.new': - var $9342 = self.sign; - var $9343 = self.numb; - var $9344 = self.frac; - var self = $9342; + var $10587 = self.err; + var $10588 = self.nam; + var $10589 = self.ini; + var $10590 = self.idx; + var $10591 = self.str; + var $10592 = ((console.log(("FALTANDO " + $10591)), (_$15 => { + var $10593 = ((console.log(("VALUE " + $10588)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10577, $10587), $10588, $10589, $10590, $10591); + var self = $10585; switch (self._) { - case 'Maybe.none': - var self = $9344; + case 'Parser.Number.new': + var $10595 = self.sign; + var $10596 = self.numb; + var $10597 = self.frac; + var self = $10595; switch (self._) { case 'Maybe.none': - var $9347 = (_pst$19 => { - var $9348 = Parser$Reply$value$(_pst$19, Kind$Term$nat$($9343)); - return $9348; - }); - var $9346 = $9347; + var self = $10597; + switch (self._) { + case 'Maybe.none': + var $10600 = (_pst$21 => { + var $10601 = Parser$Reply$value$(_pst$21, Kind$Term$nat$($10596)); + return $10601; + }); + var $10599 = $10600; + break; + case 'Maybe.some': + var $10602 = (_pst$22 => { + var $10603 = Parser$Reply$value$(_pst$22, Kind$Term$num$($10595, $10596, $10597)); + return $10603; + }); + var $10599 = $10602; + break; + }; + var $10598 = $10599; break; case 'Maybe.some': - var $9349 = (_pst$20 => { - var $9350 = Parser$Reply$value$(_pst$20, Kind$Term$num$($9342, $9343, $9344)); - return $9350; + var $10604 = (_pst$22 => { + var $10605 = Parser$Reply$value$(_pst$22, Kind$Term$num$($10595, $10596, $10597)); + return $10605; }); - var $9346 = $9349; + var $10598 = $10604; break; }; - var $9345 = $9346; - break; - case 'Maybe.some': - var $9351 = (_pst$20 => { - var $9352 = Parser$Reply$value$(_pst$20, Kind$Term$num$($9342, $9343, $9344)); - return $9352; - }); - var $9345 = $9351; + var $10594 = $10598; break; }; - var $9341 = $9345; - break; - }; - var $9341 = $9341(_reply$pst$15); - var $9335 = $9341; + var $10594 = $10594(_reply$pst$17); + return $10594; + })())); + return $10593; + })())); + var $10586 = $10592; break; }; - var $9327 = $9335; + var $10578 = $10586; break; }; - var $9325 = $9327; + var $10576 = $10578; break; }; - return $9325; + return $10576; }; const Kind$Parser$num = x0 => Kind$Parser$num$(x0); const Kind$Parser$reference = Kind$Parser$block("reference")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9354 = self.err; + var $10607 = self.err; var _reply$7 = Kind$Parser$name1$(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9356 = self.err; - var self = $9354; + var $10609 = self.err; + var self = $10607; switch (self._) { case 'Maybe.some': - var $9358 = self.value; - var $9359 = Parser$Reply$error$(Parser$Error$combine$($9358, $9356)); - var $9357 = $9359; + var $10611 = self.value; + var $10612 = Parser$Reply$error$(Parser$Error$combine$($10611, $10609)); + var $10610 = $10612; break; case 'Maybe.none': - var $9360 = Parser$Reply$error$($9356); - var $9357 = $9360; + var $10613 = Parser$Reply$error$($10609); + var $10610 = $10613; break; }; - var $9355 = $9357; + var $10608 = $10610; break; case 'Parser.Reply.value': - var $9361 = self.pst; - var $9362 = self.val; - var self = $9361; + var $10614 = self.pst; + var $10615 = self.val; + var self = $10614; switch (self._) { case 'Parser.State.new': - var $9364 = self.err; - var $9365 = self.nam; - var $9366 = self.ini; - var $9367 = self.idx; - var $9368 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9354, $9364), $9365, $9366, $9367, $9368); - var self = ($9362 === "Type"); - if (self) { - var $9370 = (_pst$16 => { - var $9371 = Parser$Reply$value$(_pst$16, Kind$Term$typ); - return $9371; - }); - var $9369 = $9370; - } else { - var self = ($9362 === "true"); - if (self) { - var $9373 = (_pst$16 => { - var $9374 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Bool.true")); - return $9374; - }); - var $9372 = $9373; - } else { - var self = ($9362 === "false"); + var $10617 = self.err; + var $10618 = self.nam; + var $10619 = self.ini; + var $10620 = self.idx; + var $10621 = self.str; + var $10622 = ((console.log(("FALTANDO " + $10621)), (_$15 => { + var $10623 = ((console.log(("VALUE " + $10618)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10607, $10617), $10618, $10619, $10620, $10621); + var self = ($10615 === "Type"); if (self) { - var $9376 = (_pst$16 => { - var $9377 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Bool.false")); - return $9377; + var $10625 = (_pst$18 => { + var $10626 = Parser$Reply$value$(_pst$18, Kind$Term$typ); + return $10626; }); - var $9375 = $9376; + var $10624 = $10625; } else { - var self = ($9362 === "unit"); + var self = ($10615 === "true"); if (self) { - var $9379 = (_pst$16 => { - var $9380 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Unit.new")); - return $9380; + var $10628 = (_pst$18 => { + var $10629 = Parser$Reply$value$(_pst$18, Kind$Term$ref$("Bool.true")); + return $10629; }); - var $9378 = $9379; + var $10627 = $10628; } else { - var self = ($9362 === "none"); + var self = ($10615 === "false"); if (self) { - var _term$16 = Kind$Term$ref$("Maybe.none"); - var _term$17 = Kind$Term$app$(_term$16, Kind$Term$hol$(Bits$e)); - var $9382 = (_pst$18 => { - var $9383 = Parser$Reply$value$(_pst$18, _term$17); - return $9383; + var $10631 = (_pst$18 => { + var $10632 = Parser$Reply$value$(_pst$18, Kind$Term$ref$("Bool.false")); + return $10632; }); - var $9381 = $9382; + var $10630 = $10631; } else { - var self = ($9362 === "refl"); + var self = ($10615 === "unit"); if (self) { - var _term$16 = Kind$Term$ref$("Equal.refl"); - var _term$17 = Kind$Term$app$(_term$16, Kind$Term$hol$(Bits$e)); - var _term$18 = Kind$Term$app$(_term$17, Kind$Term$hol$(Bits$e)); - var $9385 = (_pst$19 => { - var $9386 = Parser$Reply$value$(_pst$19, _term$18); - return $9386; + var $10634 = (_pst$18 => { + var $10635 = Parser$Reply$value$(_pst$18, Kind$Term$ref$("Unit.new")); + return $10635; }); - var $9384 = $9385; + var $10633 = $10634; } else { - var $9387 = (_pst$16 => { - var $9388 = Parser$Reply$value$(_pst$16, Kind$Term$ref$($9362)); - return $9388; - }); - var $9384 = $9387; + var self = ($10615 === "none"); + if (self) { + var _term$18 = Kind$Term$ref$("Maybe.none"); + var _term$19 = Kind$Term$app$(_term$18, Kind$Term$hol$(Bits$e)); + var $10637 = (_pst$20 => { + var $10638 = Parser$Reply$value$(_pst$20, _term$19); + return $10638; + }); + var $10636 = $10637; + } else { + var self = ($10615 === "refl"); + if (self) { + var _term$18 = Kind$Term$ref$("Equal.refl"); + var _term$19 = Kind$Term$app$(_term$18, Kind$Term$hol$(Bits$e)); + var _term$20 = Kind$Term$app$(_term$19, Kind$Term$hol$(Bits$e)); + var $10640 = (_pst$21 => { + var $10641 = Parser$Reply$value$(_pst$21, _term$20); + return $10641; + }); + var $10639 = $10640; + } else { + var $10642 = (_pst$18 => { + var $10643 = Parser$Reply$value$(_pst$18, Kind$Term$ref$($10615)); + return $10643; + }); + var $10639 = $10642; + }; + var $10636 = $10639; + }; + var $10633 = $10636; }; - var $9381 = $9384; + var $10630 = $10633; }; - var $9378 = $9381; + var $10627 = $10630; }; - var $9375 = $9378; + var $10624 = $10627; }; - var $9372 = $9375; - }; - var $9369 = $9372; - }; - var $9369 = $9369(_reply$pst$15); - var $9363 = $9369; + var $10624 = $10624(_reply$pst$17); + return $10624; + })())); + return $10623; + })())); + var $10616 = $10622; break; }; - var $9355 = $9363; + var $10608 = $10616; break; }; - var $9353 = $9355; + var $10606 = $10608; break; }; - return $9353; + return $10606; })); function Kind$Parser$items_now$(_ini$2, _parser$3, _end$4) { - var $9389 = Parser$wrap1(Kind$Parser$text_now$(_ini$2))((_pst$5 => { + var $10644 = Parser$wrap1(Kind$Parser$text_now$(_ini$2))((_pst$5 => { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $9391 = self.err; + var $10646 = self.err; var _reply$11 = Kind$Parser$spaces(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $9393 = self.err; - var self = $9391; + var $10648 = self.err; + var self = $10646; switch (self._) { case 'Maybe.some': - var $9395 = self.value; - var $9396 = Parser$Reply$error$(Parser$Error$combine$($9395, $9393)); - var $9394 = $9396; + var $10650 = self.value; + var $10651 = Parser$Reply$error$(Parser$Error$combine$($10650, $10648)); + var $10649 = $10651; break; case 'Maybe.none': - var $9397 = Parser$Reply$error$($9393); - var $9394 = $9397; + var $10652 = Parser$Reply$error$($10648); + var $10649 = $10652; break; }; - var $9392 = $9394; + var $10647 = $10649; break; case 'Parser.Reply.value': - var $9398 = self.pst; - var self = $9398; + var $10653 = self.pst; + var self = $10653; switch (self._) { case 'Parser.State.new': - var $9400 = self.err; - var $9401 = self.nam; - var $9402 = self.ini; - var $9403 = self.idx; - var $9404 = self.str; - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($9391, $9400), $9401, $9402, $9403, $9404); - var self = _reply$pst$19; - switch (self._) { - case 'Parser.State.new': - var $9406 = self.err; - var _reply$25 = _parser$3(_reply$pst$19); - var self = _reply$25; + var $10655 = self.err; + var $10656 = self.nam; + var $10657 = self.ini; + var $10658 = self.idx; + var $10659 = self.str; + var $10660 = ((console.log(("FALTANDO " + $10659)), (_$19 => { + var $10661 = ((console.log(("VALUE " + $10656)), (_$20 => { + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($10646, $10655), $10656, $10657, $10658, $10659); + var self = _reply$pst$21; switch (self._) { - case 'Parser.Reply.error': - var $9408 = self.err; - var self = $9406; + case 'Parser.State.new': + var $10663 = self.err; + var _reply$27 = _parser$3(_reply$pst$21); + var self = _reply$27; switch (self._) { - case 'Maybe.some': - var $9410 = self.value; - var $9411 = Parser$Reply$error$(Parser$Error$combine$($9410, $9408)); - var $9409 = $9411; - break; - case 'Maybe.none': - var $9412 = Parser$Reply$error$($9408); - var $9409 = $9412; - break; - }; - var $9407 = $9409; - break; - case 'Parser.Reply.value': - var $9413 = self.pst; - var $9414 = self.val; - var self = $9413; - switch (self._) { - case 'Parser.State.new': - var $9416 = self.err; - var $9417 = self.nam; - var $9418 = self.ini; - var $9419 = self.idx; - var $9420 = self.str; - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9406, $9416), $9417, $9418, $9419, $9420); - var self = _reply$pst$33; + case 'Parser.Reply.error': + var $10665 = self.err; + var self = $10663; switch (self._) { - case 'Parser.State.new': - var $9422 = self.err; - var _reply$39 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $9424 = self.err; - var self = $9422; - switch (self._) { - case 'Maybe.some': - var $9426 = self.value; - var $9427 = Parser$Reply$error$(Parser$Error$combine$($9426, $9424)); - var $9425 = $9427; - break; - case 'Maybe.none': - var $9428 = Parser$Reply$error$($9424); - var $9425 = $9428; - break; - }; - var $9423 = $9425; - break; - case 'Parser.Reply.value': - var $9429 = self.pst; - var self = $9429; - switch (self._) { - case 'Parser.State.new': - var $9431 = self.err; - var $9432 = self.nam; - var $9433 = self.ini; - var $9434 = self.idx; - var $9435 = self.str; - var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($9422, $9431), $9432, $9433, $9434, $9435); - var $9436 = Parser$Reply$value$(_reply$pst$47, $9414); - var $9430 = $9436; - break; - }; - var $9423 = $9430; - break; - }; - var $9421 = $9423; + case 'Maybe.some': + var $10667 = self.value; + var $10668 = Parser$Reply$error$(Parser$Error$combine$($10667, $10665)); + var $10666 = $10668; + break; + case 'Maybe.none': + var $10669 = Parser$Reply$error$($10665); + var $10666 = $10669; break; }; - var $9415 = $9421; + var $10664 = $10666; + break; + case 'Parser.Reply.value': + var $10670 = self.pst; + var $10671 = self.val; + var self = $10670; + switch (self._) { + case 'Parser.State.new': + var $10673 = self.err; + var $10674 = self.nam; + var $10675 = self.ini; + var $10676 = self.idx; + var $10677 = self.str; + var $10678 = ((console.log(("FALTANDO " + $10677)), (_$35 => { + var $10679 = ((console.log(("VALUE " + $10674)), (_$36 => { + var _reply$pst$37 = Parser$State$new$(Parser$Error$maybe_combine$($10663, $10673), $10674, $10675, $10676, $10677); + var self = _reply$pst$37; + switch (self._) { + case 'Parser.State.new': + var $10681 = self.err; + var _reply$43 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$37); + var self = _reply$43; + switch (self._) { + case 'Parser.Reply.error': + var $10683 = self.err; + var self = $10681; + switch (self._) { + case 'Maybe.some': + var $10685 = self.value; + var $10686 = Parser$Reply$error$(Parser$Error$combine$($10685, $10683)); + var $10684 = $10686; + break; + case 'Maybe.none': + var $10687 = Parser$Reply$error$($10683); + var $10684 = $10687; + break; + }; + var $10682 = $10684; + break; + case 'Parser.Reply.value': + var $10688 = self.pst; + var self = $10688; + switch (self._) { + case 'Parser.State.new': + var $10690 = self.err; + var $10691 = self.nam; + var $10692 = self.ini; + var $10693 = self.idx; + var $10694 = self.str; + var $10695 = ((console.log(("FALTANDO " + $10694)), (_$51 => { + var $10696 = ((console.log(("VALUE " + $10691)), (_$52 => { + var _reply$pst$53 = Parser$State$new$(Parser$Error$maybe_combine$($10681, $10690), $10691, $10692, $10693, $10694); + var $10697 = Parser$Reply$value$(_reply$pst$53, $10671); + return $10697; + })())); + return $10696; + })())); + var $10689 = $10695; + break; + }; + var $10682 = $10689; + break; + }; + var $10680 = $10682; + break; + }; + return $10680; + })())); + return $10679; + })())); + var $10672 = $10678; + break; + }; + var $10664 = $10672; break; }; - var $9407 = $9415; + var $10662 = $10664; break; }; - var $9405 = $9407; - break; - }; - var $9399 = $9405; + return $10662; + })())); + return $10661; + })())); + var $10654 = $10660; break; }; - var $9392 = $9399; + var $10647 = $10654; break; }; - var $9390 = $9392; + var $10645 = $10647; break; }; - return $9390; + return $10645; }))(Kind$Parser$text(_end$4)); - return $9389; + return $10644; }; const Kind$Parser$items_now = x0 => x1 => x2 => Kind$Parser$items_now$(x0, x1, x2); const List$for = a0 => a1 => a2 => (list_for(a0)(a1)(a2)); @@ -29605,62 +33593,68 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9438 = self.err; + var $10699 = self.err; var _reply$8 = Kind$Parser$items_now$("(", Kind$Parser$term, ")")(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9440 = self.err; - var self = $9438; + var $10701 = self.err; + var self = $10699; switch (self._) { case 'Maybe.some': - var $9442 = self.value; - var $9443 = Parser$Reply$error$(Parser$Error$combine$($9442, $9440)); - var $9441 = $9443; + var $10703 = self.value; + var $10704 = Parser$Reply$error$(Parser$Error$combine$($10703, $10701)); + var $10702 = $10704; break; case 'Maybe.none': - var $9444 = Parser$Reply$error$($9440); - var $9441 = $9444; + var $10705 = Parser$Reply$error$($10701); + var $10702 = $10705; break; }; - var $9439 = $9441; + var $10700 = $10702; break; case 'Parser.Reply.value': - var $9445 = self.pst; - var $9446 = self.val; - var self = $9445; + var $10706 = self.pst; + var $10707 = self.val; + var self = $10706; switch (self._) { case 'Parser.State.new': - var $9448 = self.err; - var $9449 = self.nam; - var $9450 = self.ini; - var $9451 = self.idx; - var $9452 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9438, $9448), $9449, $9450, $9451, $9452); - var _expr$17 = (() => { - var $9455 = _func$1; - var $9456 = $9446; - let _f$18 = $9455; - let _x$17; - while ($9456._ === 'List.cons') { - _x$17 = $9456.head; - var $9455 = Kind$Term$app$(_f$18, _x$17); - _f$18 = $9455; - $9456 = $9456.tail; - } - return _f$18; - })(); - var $9453 = Parser$Reply$value$(_reply$pst$16, _expr$17); - var $9447 = $9453; + var $10709 = self.err; + var $10710 = self.nam; + var $10711 = self.ini; + var $10712 = self.idx; + var $10713 = self.str; + var $10714 = ((console.log(("FALTANDO " + $10713)), (_$16 => { + var $10715 = ((console.log(("VALUE " + $10710)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10699, $10709), $10710, $10711, $10712, $10713); + var _expr$19 = (() => { + var $10718 = _func$1; + var $10719 = $10707; + let _f$20 = $10718; + let _x$19; + while ($10719._ === 'List.cons') { + _x$19 = $10719.head; + var $10718 = Kind$Term$app$(_f$20, _x$19); + _f$20 = $10718; + $10719 = $10719.tail; + } + return _f$20; + })(); + var $10716 = Parser$Reply$value$(_reply$pst$18, _expr$19); + return $10716; + })())); + return $10715; + })())); + var $10708 = $10714; break; }; - var $9439 = $9447; + var $10700 = $10708; break; }; - var $9437 = $9439; + var $10698 = $10700; break; }; - return $9437; + return $10698; }; const Kind$Parser$application = x0 => x1 => Kind$Parser$application$(x0, x1); @@ -29668,62 +33662,68 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9458 = self.err; + var $10721 = self.err; var _reply$8 = Kind$Parser$items_now$("<", Kind$Parser$term, ">")(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9460 = self.err; - var self = $9458; + var $10723 = self.err; + var self = $10721; switch (self._) { case 'Maybe.some': - var $9462 = self.value; - var $9463 = Parser$Reply$error$(Parser$Error$combine$($9462, $9460)); - var $9461 = $9463; + var $10725 = self.value; + var $10726 = Parser$Reply$error$(Parser$Error$combine$($10725, $10723)); + var $10724 = $10726; break; case 'Maybe.none': - var $9464 = Parser$Reply$error$($9460); - var $9461 = $9464; + var $10727 = Parser$Reply$error$($10723); + var $10724 = $10727; break; }; - var $9459 = $9461; + var $10722 = $10724; break; case 'Parser.Reply.value': - var $9465 = self.pst; - var $9466 = self.val; - var self = $9465; + var $10728 = self.pst; + var $10729 = self.val; + var self = $10728; switch (self._) { case 'Parser.State.new': - var $9468 = self.err; - var $9469 = self.nam; - var $9470 = self.ini; - var $9471 = self.idx; - var $9472 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9458, $9468), $9469, $9470, $9471, $9472); - var _expr$17 = (() => { - var $9475 = _func$1; - var $9476 = $9466; - let _f$18 = $9475; - let _x$17; - while ($9476._ === 'List.cons') { - _x$17 = $9476.head; - var $9475 = Kind$Term$app$(_f$18, _x$17); - _f$18 = $9475; - $9476 = $9476.tail; - } - return _f$18; - })(); - var $9473 = Parser$Reply$value$(_reply$pst$16, _expr$17); - var $9467 = $9473; + var $10731 = self.err; + var $10732 = self.nam; + var $10733 = self.ini; + var $10734 = self.idx; + var $10735 = self.str; + var $10736 = ((console.log(("FALTANDO " + $10735)), (_$16 => { + var $10737 = ((console.log(("VALUE " + $10732)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10721, $10731), $10732, $10733, $10734, $10735); + var _expr$19 = (() => { + var $10740 = _func$1; + var $10741 = $10729; + let _f$20 = $10740; + let _x$19; + while ($10741._ === 'List.cons') { + _x$19 = $10741.head; + var $10740 = Kind$Term$app$(_f$20, _x$19); + _f$20 = $10740; + $10741 = $10741.tail; + } + return _f$20; + })(); + var $10738 = Parser$Reply$value$(_reply$pst$18, _expr$19); + return $10738; + })())); + return $10737; + })())); + var $10730 = $10736; break; }; - var $9459 = $9467; + var $10722 = $10730; break; }; - var $9457 = $9459; + var $10720 = $10722; break; }; - return $9457; + return $10720; }; const Kind$Parser$application$erased = x0 => x1 => Kind$Parser$application$erased$(x0, x1); @@ -29731,227 +33731,257 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9478 = self.err; + var $10743 = self.err; var _reply$8 = Kind$Parser$text_now$("[")(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9480 = self.err; - var self = $9478; + var $10745 = self.err; + var self = $10743; switch (self._) { case 'Maybe.some': - var $9482 = self.value; - var $9483 = Parser$Reply$error$(Parser$Error$combine$($9482, $9480)); - var $9481 = $9483; + var $10747 = self.value; + var $10748 = Parser$Reply$error$(Parser$Error$combine$($10747, $10745)); + var $10746 = $10748; break; case 'Maybe.none': - var $9484 = Parser$Reply$error$($9480); - var $9481 = $9484; + var $10749 = Parser$Reply$error$($10745); + var $10746 = $10749; break; }; - var $9479 = $9481; + var $10744 = $10746; break; case 'Parser.Reply.value': - var $9485 = self.pst; - var self = $9485; + var $10750 = self.pst; + var self = $10750; switch (self._) { case 'Parser.State.new': - var $9487 = self.err; - var $9488 = self.nam; - var $9489 = self.ini; - var $9490 = self.idx; - var $9491 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9478, $9487), $9488, $9489, $9490, $9491); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $9493 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $10752 = self.err; + var $10753 = self.nam; + var $10754 = self.ini; + var $10755 = self.idx; + var $10756 = self.str; + var $10757 = ((console.log(("FALTANDO " + $10756)), (_$16 => { + var $10758 = ((console.log(("VALUE " + $10753)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10743, $10752), $10753, $10754, $10755, $10756); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $9495 = self.err; - var self = $9493; + case 'Parser.State.new': + var $10760 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $9497 = self.value; - var $9498 = Parser$Reply$error$(Parser$Error$combine$($9497, $9495)); - var $9496 = $9498; - break; - case 'Maybe.none': - var $9499 = Parser$Reply$error$($9495); - var $9496 = $9499; - break; - }; - var $9494 = $9496; - break; - case 'Parser.Reply.value': - var $9500 = self.pst; - var $9501 = self.val; - var self = $9500; - switch (self._) { - case 'Parser.State.new': - var $9503 = self.err; - var $9504 = self.nam; - var $9505 = self.ini; - var $9506 = self.idx; - var $9507 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9493, $9503), $9504, $9505, $9506, $9507); - var self = _reply$pst$30; + case 'Parser.Reply.error': + var $10762 = self.err; + var self = $10760; switch (self._) { - case 'Parser.State.new': - var $9509 = self.err; - var _reply$36 = Kind$Parser$text$("]", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $9511 = self.err; - var self = $9509; - switch (self._) { - case 'Maybe.some': - var $9513 = self.value; - var $9514 = Parser$Reply$error$(Parser$Error$combine$($9513, $9511)); - var $9512 = $9514; - break; - case 'Maybe.none': - var $9515 = Parser$Reply$error$($9511); - var $9512 = $9515; - break; - }; - var $9510 = $9512; - break; - case 'Parser.Reply.value': - var $9516 = self.pst; - var self = $9516; - switch (self._) { - case 'Parser.State.new': - var $9518 = self.err; - var $9519 = self.nam; - var $9520 = self.ini; - var $9521 = self.idx; - var $9522 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9509, $9518), $9519, $9520, $9521, $9522); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $9524 = self.err; - var _reply$50 = Kind$Parser$text$("<-", _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $9526 = self.err; - var self = $9524; - switch (self._) { - case 'Maybe.some': - var $9528 = self.value; - var $9529 = Parser$Reply$error$(Parser$Error$combine$($9528, $9526)); - var $9527 = $9529; - break; - case 'Maybe.none': - var $9530 = Parser$Reply$error$($9526); - var $9527 = $9530; - break; - }; - var $9525 = $9527; - break; - case 'Parser.Reply.value': - var $9531 = self.pst; - var self = $9531; - switch (self._) { - case 'Parser.State.new': - var $9533 = self.err; - var $9534 = self.nam; - var $9535 = self.ini; - var $9536 = self.idx; - var $9537 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($9524, $9533), $9534, $9535, $9536, $9537); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $9539 = self.err; - var _reply$64 = Kind$Parser$term(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $9541 = self.err; - var self = $9539; - switch (self._) { - case 'Maybe.some': - var $9543 = self.value; - var $9544 = Parser$Reply$error$(Parser$Error$combine$($9543, $9541)); - var $9542 = $9544; - break; - case 'Maybe.none': - var $9545 = Parser$Reply$error$($9541); - var $9542 = $9545; - break; - }; - var $9540 = $9542; - break; - case 'Parser.Reply.value': - var $9546 = self.pst; - var $9547 = self.val; - var self = $9546; - switch (self._) { - case 'Parser.State.new': - var $9549 = self.err; - var $9550 = self.nam; - var $9551 = self.ini; - var $9552 = self.idx; - var $9553 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($9539, $9549), $9550, $9551, $9552, $9553); - var _term$73 = Kind$Term$ref$("List.set"); - var _term$74 = Kind$Term$app$(_term$73, Kind$Term$hol$(Bits$e)); - var _term$75 = Kind$Term$app$(_term$74, $9501); - var _term$76 = Kind$Term$app$(_term$75, $9547); - var _term$77 = Kind$Term$app$(_term$76, _list$1); - var $9554 = Parser$Reply$value$(_reply$pst$72, _term$77); - var $9548 = $9554; - break; - }; - var $9540 = $9548; - break; - }; - var $9538 = $9540; - break; - }; - var $9532 = $9538; - break; - }; - var $9525 = $9532; - break; - }; - var $9523 = $9525; - break; - }; - var $9517 = $9523; - break; - }; - var $9510 = $9517; - break; - }; - var $9508 = $9510; + case 'Maybe.some': + var $10764 = self.value; + var $10765 = Parser$Reply$error$(Parser$Error$combine$($10764, $10762)); + var $10763 = $10765; + break; + case 'Maybe.none': + var $10766 = Parser$Reply$error$($10762); + var $10763 = $10766; break; }; - var $9502 = $9508; + var $10761 = $10763; + break; + case 'Parser.Reply.value': + var $10767 = self.pst; + var $10768 = self.val; + var self = $10767; + switch (self._) { + case 'Parser.State.new': + var $10770 = self.err; + var $10771 = self.nam; + var $10772 = self.ini; + var $10773 = self.idx; + var $10774 = self.str; + var $10775 = ((console.log(("FALTANDO " + $10774)), (_$32 => { + var $10776 = ((console.log(("VALUE " + $10771)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($10760, $10770), $10771, $10772, $10773, $10774); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $10778 = self.err; + var _reply$40 = Kind$Parser$text$("]", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $10780 = self.err; + var self = $10778; + switch (self._) { + case 'Maybe.some': + var $10782 = self.value; + var $10783 = Parser$Reply$error$(Parser$Error$combine$($10782, $10780)); + var $10781 = $10783; + break; + case 'Maybe.none': + var $10784 = Parser$Reply$error$($10780); + var $10781 = $10784; + break; + }; + var $10779 = $10781; + break; + case 'Parser.Reply.value': + var $10785 = self.pst; + var self = $10785; + switch (self._) { + case 'Parser.State.new': + var $10787 = self.err; + var $10788 = self.nam; + var $10789 = self.ini; + var $10790 = self.idx; + var $10791 = self.str; + var $10792 = ((console.log(("FALTANDO " + $10791)), (_$48 => { + var $10793 = ((console.log(("VALUE " + $10788)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($10778, $10787), $10788, $10789, $10790, $10791); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $10795 = self.err; + var _reply$56 = Kind$Parser$text$("<-", _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $10797 = self.err; + var self = $10795; + switch (self._) { + case 'Maybe.some': + var $10799 = self.value; + var $10800 = Parser$Reply$error$(Parser$Error$combine$($10799, $10797)); + var $10798 = $10800; + break; + case 'Maybe.none': + var $10801 = Parser$Reply$error$($10797); + var $10798 = $10801; + break; + }; + var $10796 = $10798; + break; + case 'Parser.Reply.value': + var $10802 = self.pst; + var self = $10802; + switch (self._) { + case 'Parser.State.new': + var $10804 = self.err; + var $10805 = self.nam; + var $10806 = self.ini; + var $10807 = self.idx; + var $10808 = self.str; + var $10809 = ((console.log(("FALTANDO " + $10808)), (_$64 => { + var $10810 = ((console.log(("VALUE " + $10805)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($10795, $10804), $10805, $10806, $10807, $10808); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $10812 = self.err; + var _reply$72 = Kind$Parser$term(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $10814 = self.err; + var self = $10812; + switch (self._) { + case 'Maybe.some': + var $10816 = self.value; + var $10817 = Parser$Reply$error$(Parser$Error$combine$($10816, $10814)); + var $10815 = $10817; + break; + case 'Maybe.none': + var $10818 = Parser$Reply$error$($10814); + var $10815 = $10818; + break; + }; + var $10813 = $10815; + break; + case 'Parser.Reply.value': + var $10819 = self.pst; + var $10820 = self.val; + var self = $10819; + switch (self._) { + case 'Parser.State.new': + var $10822 = self.err; + var $10823 = self.nam; + var $10824 = self.ini; + var $10825 = self.idx; + var $10826 = self.str; + var $10827 = ((console.log(("FALTANDO " + $10826)), (_$80 => { + var $10828 = ((console.log(("VALUE " + $10823)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($10812, $10822), $10823, $10824, $10825, $10826); + var _term$83 = Kind$Term$ref$("List.set"); + var _term$84 = Kind$Term$app$(_term$83, Kind$Term$hol$(Bits$e)); + var _term$85 = Kind$Term$app$(_term$84, $10768); + var _term$86 = Kind$Term$app$(_term$85, $10820); + var _term$87 = Kind$Term$app$(_term$86, _list$1); + var $10829 = Parser$Reply$value$(_reply$pst$82, _term$87); + return $10829; + })())); + return $10828; + })())); + var $10821 = $10827; + break; + }; + var $10813 = $10821; + break; + }; + var $10811 = $10813; + break; + }; + return $10811; + })())); + return $10810; + })())); + var $10803 = $10809; + break; + }; + var $10796 = $10803; + break; + }; + var $10794 = $10796; + break; + }; + return $10794; + })())); + return $10793; + })())); + var $10786 = $10792; + break; + }; + var $10779 = $10786; + break; + }; + var $10777 = $10779; + break; + }; + return $10777; + })())); + return $10776; + })())); + var $10769 = $10775; + break; + }; + var $10761 = $10769; break; }; - var $9494 = $9502; + var $10759 = $10761; break; }; - var $9492 = $9494; - break; - }; - var $9486 = $9492; + return $10759; + })())); + return $10758; + })())); + var $10751 = $10757; break; }; - var $9479 = $9486; + var $10744 = $10751; break; }; - var $9477 = $9479; + var $10742 = $10744; break; }; - return $9477; + return $10742; }; const Kind$Parser$list_set = x0 => x1 => Kind$Parser$list_set$(x0, x1); @@ -29959,139 +33989,157 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9556 = self.err; + var $10831 = self.err; var _reply$8 = Kind$Parser$text_now$("[")(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9558 = self.err; - var self = $9556; + var $10833 = self.err; + var self = $10831; switch (self._) { case 'Maybe.some': - var $9560 = self.value; - var $9561 = Parser$Reply$error$(Parser$Error$combine$($9560, $9558)); - var $9559 = $9561; + var $10835 = self.value; + var $10836 = Parser$Reply$error$(Parser$Error$combine$($10835, $10833)); + var $10834 = $10836; break; case 'Maybe.none': - var $9562 = Parser$Reply$error$($9558); - var $9559 = $9562; + var $10837 = Parser$Reply$error$($10833); + var $10834 = $10837; break; }; - var $9557 = $9559; + var $10832 = $10834; break; case 'Parser.Reply.value': - var $9563 = self.pst; - var self = $9563; + var $10838 = self.pst; + var self = $10838; switch (self._) { case 'Parser.State.new': - var $9565 = self.err; - var $9566 = self.nam; - var $9567 = self.ini; - var $9568 = self.idx; - var $9569 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9556, $9565), $9566, $9567, $9568, $9569); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $9571 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $10840 = self.err; + var $10841 = self.nam; + var $10842 = self.ini; + var $10843 = self.idx; + var $10844 = self.str; + var $10845 = ((console.log(("FALTANDO " + $10844)), (_$16 => { + var $10846 = ((console.log(("VALUE " + $10841)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10831, $10840), $10841, $10842, $10843, $10844); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $9573 = self.err; - var self = $9571; + case 'Parser.State.new': + var $10848 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $9575 = self.value; - var $9576 = Parser$Reply$error$(Parser$Error$combine$($9575, $9573)); - var $9574 = $9576; - break; - case 'Maybe.none': - var $9577 = Parser$Reply$error$($9573); - var $9574 = $9577; - break; - }; - var $9572 = $9574; - break; - case 'Parser.Reply.value': - var $9578 = self.pst; - var $9579 = self.val; - var self = $9578; - switch (self._) { - case 'Parser.State.new': - var $9581 = self.err; - var $9582 = self.nam; - var $9583 = self.ini; - var $9584 = self.idx; - var $9585 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9571, $9581), $9582, $9583, $9584, $9585); - var self = _reply$pst$30; + case 'Parser.Reply.error': + var $10850 = self.err; + var self = $10848; switch (self._) { - case 'Parser.State.new': - var $9587 = self.err; - var _reply$36 = Kind$Parser$text$("]", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $9589 = self.err; - var self = $9587; - switch (self._) { - case 'Maybe.some': - var $9591 = self.value; - var $9592 = Parser$Reply$error$(Parser$Error$combine$($9591, $9589)); - var $9590 = $9592; - break; - case 'Maybe.none': - var $9593 = Parser$Reply$error$($9589); - var $9590 = $9593; - break; - }; - var $9588 = $9590; - break; - case 'Parser.Reply.value': - var $9594 = self.pst; - var self = $9594; - switch (self._) { - case 'Parser.State.new': - var $9596 = self.err; - var $9597 = self.nam; - var $9598 = self.ini; - var $9599 = self.idx; - var $9600 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9587, $9596), $9597, $9598, $9599, $9600); - var _term$45 = Kind$Term$ref$("List.get"); - var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); - var _term$47 = Kind$Term$app$(_term$46, $9579); - var _term$48 = Kind$Term$app$(_term$47, _list$1); - var $9601 = Parser$Reply$value$(_reply$pst$44, _term$48); - var $9595 = $9601; - break; - }; - var $9588 = $9595; - break; - }; - var $9586 = $9588; + case 'Maybe.some': + var $10852 = self.value; + var $10853 = Parser$Reply$error$(Parser$Error$combine$($10852, $10850)); + var $10851 = $10853; + break; + case 'Maybe.none': + var $10854 = Parser$Reply$error$($10850); + var $10851 = $10854; break; }; - var $9580 = $9586; + var $10849 = $10851; + break; + case 'Parser.Reply.value': + var $10855 = self.pst; + var $10856 = self.val; + var self = $10855; + switch (self._) { + case 'Parser.State.new': + var $10858 = self.err; + var $10859 = self.nam; + var $10860 = self.ini; + var $10861 = self.idx; + var $10862 = self.str; + var $10863 = ((console.log(("FALTANDO " + $10862)), (_$32 => { + var $10864 = ((console.log(("VALUE " + $10859)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($10848, $10858), $10859, $10860, $10861, $10862); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $10866 = self.err; + var _reply$40 = Kind$Parser$text$("]", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $10868 = self.err; + var self = $10866; + switch (self._) { + case 'Maybe.some': + var $10870 = self.value; + var $10871 = Parser$Reply$error$(Parser$Error$combine$($10870, $10868)); + var $10869 = $10871; + break; + case 'Maybe.none': + var $10872 = Parser$Reply$error$($10868); + var $10869 = $10872; + break; + }; + var $10867 = $10869; + break; + case 'Parser.Reply.value': + var $10873 = self.pst; + var self = $10873; + switch (self._) { + case 'Parser.State.new': + var $10875 = self.err; + var $10876 = self.nam; + var $10877 = self.ini; + var $10878 = self.idx; + var $10879 = self.str; + var $10880 = ((console.log(("FALTANDO " + $10879)), (_$48 => { + var $10881 = ((console.log(("VALUE " + $10876)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($10866, $10875), $10876, $10877, $10878, $10879); + var _term$51 = Kind$Term$ref$("List.get"); + var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); + var _term$53 = Kind$Term$app$(_term$52, $10856); + var _term$54 = Kind$Term$app$(_term$53, _list$1); + var $10882 = Parser$Reply$value$(_reply$pst$50, _term$54); + return $10882; + })())); + return $10881; + })())); + var $10874 = $10880; + break; + }; + var $10867 = $10874; + break; + }; + var $10865 = $10867; + break; + }; + return $10865; + })())); + return $10864; + })())); + var $10857 = $10863; + break; + }; + var $10849 = $10857; break; }; - var $9572 = $9580; + var $10847 = $10849; break; }; - var $9570 = $9572; - break; - }; - var $9564 = $9570; + return $10847; + })())); + return $10846; + })())); + var $10839 = $10845; break; }; - var $9557 = $9564; + var $10832 = $10839; break; }; - var $9555 = $9557; + var $10830 = $10832; break; }; - return $9555; + return $10830; }; const Kind$Parser$list_get = x0 => x1 => Kind$Parser$list_get$(x0, x1); @@ -30099,227 +34147,257 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9603 = self.err; + var $10884 = self.err; var _reply$8 = Kind$Parser$text_now$("{")(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9605 = self.err; - var self = $9603; + var $10886 = self.err; + var self = $10884; switch (self._) { case 'Maybe.some': - var $9607 = self.value; - var $9608 = Parser$Reply$error$(Parser$Error$combine$($9607, $9605)); - var $9606 = $9608; + var $10888 = self.value; + var $10889 = Parser$Reply$error$(Parser$Error$combine$($10888, $10886)); + var $10887 = $10889; break; case 'Maybe.none': - var $9609 = Parser$Reply$error$($9605); - var $9606 = $9609; + var $10890 = Parser$Reply$error$($10886); + var $10887 = $10890; break; }; - var $9604 = $9606; + var $10885 = $10887; break; case 'Parser.Reply.value': - var $9610 = self.pst; - var self = $9610; + var $10891 = self.pst; + var self = $10891; switch (self._) { case 'Parser.State.new': - var $9612 = self.err; - var $9613 = self.nam; - var $9614 = self.ini; - var $9615 = self.idx; - var $9616 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9603, $9612), $9613, $9614, $9615, $9616); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $9618 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $10893 = self.err; + var $10894 = self.nam; + var $10895 = self.ini; + var $10896 = self.idx; + var $10897 = self.str; + var $10898 = ((console.log(("FALTANDO " + $10897)), (_$16 => { + var $10899 = ((console.log(("VALUE " + $10894)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10884, $10893), $10894, $10895, $10896, $10897); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $9620 = self.err; - var self = $9618; + case 'Parser.State.new': + var $10901 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $9622 = self.value; - var $9623 = Parser$Reply$error$(Parser$Error$combine$($9622, $9620)); - var $9621 = $9623; - break; - case 'Maybe.none': - var $9624 = Parser$Reply$error$($9620); - var $9621 = $9624; - break; - }; - var $9619 = $9621; - break; - case 'Parser.Reply.value': - var $9625 = self.pst; - var $9626 = self.val; - var self = $9625; - switch (self._) { - case 'Parser.State.new': - var $9628 = self.err; - var $9629 = self.nam; - var $9630 = self.ini; - var $9631 = self.idx; - var $9632 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9618, $9628), $9629, $9630, $9631, $9632); - var self = _reply$pst$30; + case 'Parser.Reply.error': + var $10903 = self.err; + var self = $10901; switch (self._) { - case 'Parser.State.new': - var $9634 = self.err; - var _reply$36 = Kind$Parser$text$("}", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $9636 = self.err; - var self = $9634; - switch (self._) { - case 'Maybe.some': - var $9638 = self.value; - var $9639 = Parser$Reply$error$(Parser$Error$combine$($9638, $9636)); - var $9637 = $9639; - break; - case 'Maybe.none': - var $9640 = Parser$Reply$error$($9636); - var $9637 = $9640; - break; - }; - var $9635 = $9637; - break; - case 'Parser.Reply.value': - var $9641 = self.pst; - var self = $9641; - switch (self._) { - case 'Parser.State.new': - var $9643 = self.err; - var $9644 = self.nam; - var $9645 = self.ini; - var $9646 = self.idx; - var $9647 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9634, $9643), $9644, $9645, $9646, $9647); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $9649 = self.err; - var _reply$50 = Kind$Parser$text$("<-", _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $9651 = self.err; - var self = $9649; - switch (self._) { - case 'Maybe.some': - var $9653 = self.value; - var $9654 = Parser$Reply$error$(Parser$Error$combine$($9653, $9651)); - var $9652 = $9654; - break; - case 'Maybe.none': - var $9655 = Parser$Reply$error$($9651); - var $9652 = $9655; - break; - }; - var $9650 = $9652; - break; - case 'Parser.Reply.value': - var $9656 = self.pst; - var self = $9656; - switch (self._) { - case 'Parser.State.new': - var $9658 = self.err; - var $9659 = self.nam; - var $9660 = self.ini; - var $9661 = self.idx; - var $9662 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($9649, $9658), $9659, $9660, $9661, $9662); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $9664 = self.err; - var _reply$64 = Kind$Parser$term(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $9666 = self.err; - var self = $9664; - switch (self._) { - case 'Maybe.some': - var $9668 = self.value; - var $9669 = Parser$Reply$error$(Parser$Error$combine$($9668, $9666)); - var $9667 = $9669; - break; - case 'Maybe.none': - var $9670 = Parser$Reply$error$($9666); - var $9667 = $9670; - break; - }; - var $9665 = $9667; - break; - case 'Parser.Reply.value': - var $9671 = self.pst; - var $9672 = self.val; - var self = $9671; - switch (self._) { - case 'Parser.State.new': - var $9674 = self.err; - var $9675 = self.nam; - var $9676 = self.ini; - var $9677 = self.idx; - var $9678 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($9664, $9674), $9675, $9676, $9677, $9678); - var _term$73 = Kind$Term$ref$("Map.set"); - var _term$74 = Kind$Term$app$(_term$73, Kind$Term$hol$(Bits$e)); - var _term$75 = Kind$Term$app$(_term$74, $9626); - var _term$76 = Kind$Term$app$(_term$75, $9672); - var _term$77 = Kind$Term$app$(_term$76, _map$1); - var $9679 = Parser$Reply$value$(_reply$pst$72, _term$77); - var $9673 = $9679; - break; - }; - var $9665 = $9673; - break; - }; - var $9663 = $9665; - break; - }; - var $9657 = $9663; - break; - }; - var $9650 = $9657; - break; - }; - var $9648 = $9650; - break; - }; - var $9642 = $9648; - break; - }; - var $9635 = $9642; - break; - }; - var $9633 = $9635; + case 'Maybe.some': + var $10905 = self.value; + var $10906 = Parser$Reply$error$(Parser$Error$combine$($10905, $10903)); + var $10904 = $10906; + break; + case 'Maybe.none': + var $10907 = Parser$Reply$error$($10903); + var $10904 = $10907; break; }; - var $9627 = $9633; + var $10902 = $10904; + break; + case 'Parser.Reply.value': + var $10908 = self.pst; + var $10909 = self.val; + var self = $10908; + switch (self._) { + case 'Parser.State.new': + var $10911 = self.err; + var $10912 = self.nam; + var $10913 = self.ini; + var $10914 = self.idx; + var $10915 = self.str; + var $10916 = ((console.log(("FALTANDO " + $10915)), (_$32 => { + var $10917 = ((console.log(("VALUE " + $10912)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($10901, $10911), $10912, $10913, $10914, $10915); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $10919 = self.err; + var _reply$40 = Kind$Parser$text$("}", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $10921 = self.err; + var self = $10919; + switch (self._) { + case 'Maybe.some': + var $10923 = self.value; + var $10924 = Parser$Reply$error$(Parser$Error$combine$($10923, $10921)); + var $10922 = $10924; + break; + case 'Maybe.none': + var $10925 = Parser$Reply$error$($10921); + var $10922 = $10925; + break; + }; + var $10920 = $10922; + break; + case 'Parser.Reply.value': + var $10926 = self.pst; + var self = $10926; + switch (self._) { + case 'Parser.State.new': + var $10928 = self.err; + var $10929 = self.nam; + var $10930 = self.ini; + var $10931 = self.idx; + var $10932 = self.str; + var $10933 = ((console.log(("FALTANDO " + $10932)), (_$48 => { + var $10934 = ((console.log(("VALUE " + $10929)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($10919, $10928), $10929, $10930, $10931, $10932); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $10936 = self.err; + var _reply$56 = Kind$Parser$text$("<-", _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $10938 = self.err; + var self = $10936; + switch (self._) { + case 'Maybe.some': + var $10940 = self.value; + var $10941 = Parser$Reply$error$(Parser$Error$combine$($10940, $10938)); + var $10939 = $10941; + break; + case 'Maybe.none': + var $10942 = Parser$Reply$error$($10938); + var $10939 = $10942; + break; + }; + var $10937 = $10939; + break; + case 'Parser.Reply.value': + var $10943 = self.pst; + var self = $10943; + switch (self._) { + case 'Parser.State.new': + var $10945 = self.err; + var $10946 = self.nam; + var $10947 = self.ini; + var $10948 = self.idx; + var $10949 = self.str; + var $10950 = ((console.log(("FALTANDO " + $10949)), (_$64 => { + var $10951 = ((console.log(("VALUE " + $10946)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($10936, $10945), $10946, $10947, $10948, $10949); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $10953 = self.err; + var _reply$72 = Kind$Parser$term(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $10955 = self.err; + var self = $10953; + switch (self._) { + case 'Maybe.some': + var $10957 = self.value; + var $10958 = Parser$Reply$error$(Parser$Error$combine$($10957, $10955)); + var $10956 = $10958; + break; + case 'Maybe.none': + var $10959 = Parser$Reply$error$($10955); + var $10956 = $10959; + break; + }; + var $10954 = $10956; + break; + case 'Parser.Reply.value': + var $10960 = self.pst; + var $10961 = self.val; + var self = $10960; + switch (self._) { + case 'Parser.State.new': + var $10963 = self.err; + var $10964 = self.nam; + var $10965 = self.ini; + var $10966 = self.idx; + var $10967 = self.str; + var $10968 = ((console.log(("FALTANDO " + $10967)), (_$80 => { + var $10969 = ((console.log(("VALUE " + $10964)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($10953, $10963), $10964, $10965, $10966, $10967); + var _term$83 = Kind$Term$ref$("Map.set"); + var _term$84 = Kind$Term$app$(_term$83, Kind$Term$hol$(Bits$e)); + var _term$85 = Kind$Term$app$(_term$84, $10909); + var _term$86 = Kind$Term$app$(_term$85, $10961); + var _term$87 = Kind$Term$app$(_term$86, _map$1); + var $10970 = Parser$Reply$value$(_reply$pst$82, _term$87); + return $10970; + })())); + return $10969; + })())); + var $10962 = $10968; + break; + }; + var $10954 = $10962; + break; + }; + var $10952 = $10954; + break; + }; + return $10952; + })())); + return $10951; + })())); + var $10944 = $10950; + break; + }; + var $10937 = $10944; + break; + }; + var $10935 = $10937; + break; + }; + return $10935; + })())); + return $10934; + })())); + var $10927 = $10933; + break; + }; + var $10920 = $10927; + break; + }; + var $10918 = $10920; + break; + }; + return $10918; + })())); + return $10917; + })())); + var $10910 = $10916; + break; + }; + var $10902 = $10910; break; }; - var $9619 = $9627; + var $10900 = $10902; break; }; - var $9617 = $9619; - break; - }; - var $9611 = $9617; + return $10900; + })())); + return $10899; + })())); + var $10892 = $10898; break; }; - var $9604 = $9611; + var $10885 = $10892; break; }; - var $9602 = $9604; + var $10883 = $10885; break; }; - return $9602; + return $10883; }; const Kind$Parser$map_set = x0 => x1 => Kind$Parser$map_set$(x0, x1); @@ -30327,150 +34405,168 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9681 = self.err; + var $10972 = self.err; var _reply$8 = Kind$Parser$text_now$("{")(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9683 = self.err; - var self = $9681; + var $10974 = self.err; + var self = $10972; switch (self._) { case 'Maybe.some': - var $9685 = self.value; - var $9686 = Parser$Reply$error$(Parser$Error$combine$($9685, $9683)); - var $9684 = $9686; + var $10976 = self.value; + var $10977 = Parser$Reply$error$(Parser$Error$combine$($10976, $10974)); + var $10975 = $10977; break; case 'Maybe.none': - var $9687 = Parser$Reply$error$($9683); - var $9684 = $9687; + var $10978 = Parser$Reply$error$($10974); + var $10975 = $10978; break; }; - var $9682 = $9684; + var $10973 = $10975; break; case 'Parser.Reply.value': - var $9688 = self.pst; - var self = $9688; + var $10979 = self.pst; + var self = $10979; switch (self._) { case 'Parser.State.new': - var $9690 = self.err; - var $9691 = self.nam; - var $9692 = self.ini; - var $9693 = self.idx; - var $9694 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9681, $9690), $9691, $9692, $9693, $9694); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $9696 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $10981 = self.err; + var $10982 = self.nam; + var $10983 = self.ini; + var $10984 = self.idx; + var $10985 = self.str; + var $10986 = ((console.log(("FALTANDO " + $10985)), (_$16 => { + var $10987 = ((console.log(("VALUE " + $10982)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10972, $10981), $10982, $10983, $10984, $10985); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $9698 = self.err; - var self = $9696; + case 'Parser.State.new': + var $10989 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $9700 = self.value; - var $9701 = Parser$Reply$error$(Parser$Error$combine$($9700, $9698)); - var $9699 = $9701; - break; - case 'Maybe.none': - var $9702 = Parser$Reply$error$($9698); - var $9699 = $9702; - break; - }; - var $9697 = $9699; - break; - case 'Parser.Reply.value': - var $9703 = self.pst; - var $9704 = self.val; - var self = $9703; - switch (self._) { - case 'Parser.State.new': - var $9706 = self.err; - var $9707 = self.nam; - var $9708 = self.ini; - var $9709 = self.idx; - var $9710 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9696, $9706), $9707, $9708, $9709, $9710); - var self = _reply$pst$30; + case 'Parser.Reply.error': + var $10991 = self.err; + var self = $10989; switch (self._) { - case 'Parser.State.new': - var $9712 = self.err; - var _reply$36 = Kind$Parser$text$("}", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $9714 = self.err; - var self = $9712; - switch (self._) { - case 'Maybe.some': - var $9716 = self.value; - var $9717 = Parser$Reply$error$(Parser$Error$combine$($9716, $9714)); - var $9715 = $9717; - break; - case 'Maybe.none': - var $9718 = Parser$Reply$error$($9714); - var $9715 = $9718; - break; - }; - var $9713 = $9715; - break; - case 'Parser.Reply.value': - var $9719 = self.pst; - var self = $9719; - switch (self._) { - case 'Parser.State.new': - var $9721 = self.err; - var $9722 = self.nam; - var $9723 = self.ini; - var $9724 = self.idx; - var $9725 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9712, $9721), $9722, $9723, $9724, $9725); - var _term$45 = Kind$Term$ref$("Map.get"); - var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); - var _term$47 = Kind$Term$app$(_term$46, $9704); - var _term$48 = Kind$Term$app$(_term$47, _map$1); - var $9726 = Parser$Reply$value$(_reply$pst$44, _term$48); - var $9720 = $9726; - break; - }; - var $9713 = $9720; - break; - }; - var $9711 = $9713; + case 'Maybe.some': + var $10993 = self.value; + var $10994 = Parser$Reply$error$(Parser$Error$combine$($10993, $10991)); + var $10992 = $10994; + break; + case 'Maybe.none': + var $10995 = Parser$Reply$error$($10991); + var $10992 = $10995; break; }; - var $9705 = $9711; + var $10990 = $10992; + break; + case 'Parser.Reply.value': + var $10996 = self.pst; + var $10997 = self.val; + var self = $10996; + switch (self._) { + case 'Parser.State.new': + var $10999 = self.err; + var $11000 = self.nam; + var $11001 = self.ini; + var $11002 = self.idx; + var $11003 = self.str; + var $11004 = ((console.log(("FALTANDO " + $11003)), (_$32 => { + var $11005 = ((console.log(("VALUE " + $11000)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($10989, $10999), $11000, $11001, $11002, $11003); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $11007 = self.err; + var _reply$40 = Kind$Parser$text$("}", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $11009 = self.err; + var self = $11007; + switch (self._) { + case 'Maybe.some': + var $11011 = self.value; + var $11012 = Parser$Reply$error$(Parser$Error$combine$($11011, $11009)); + var $11010 = $11012; + break; + case 'Maybe.none': + var $11013 = Parser$Reply$error$($11009); + var $11010 = $11013; + break; + }; + var $11008 = $11010; + break; + case 'Parser.Reply.value': + var $11014 = self.pst; + var self = $11014; + switch (self._) { + case 'Parser.State.new': + var $11016 = self.err; + var $11017 = self.nam; + var $11018 = self.ini; + var $11019 = self.idx; + var $11020 = self.str; + var $11021 = ((console.log(("FALTANDO " + $11020)), (_$48 => { + var $11022 = ((console.log(("VALUE " + $11017)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11007, $11016), $11017, $11018, $11019, $11020); + var _term$51 = Kind$Term$ref$("Map.get"); + var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); + var _term$53 = Kind$Term$app$(_term$52, $10997); + var _term$54 = Kind$Term$app$(_term$53, _map$1); + var $11023 = Parser$Reply$value$(_reply$pst$50, _term$54); + return $11023; + })())); + return $11022; + })())); + var $11015 = $11021; + break; + }; + var $11008 = $11015; + break; + }; + var $11006 = $11008; + break; + }; + return $11006; + })())); + return $11005; + })())); + var $10998 = $11004; + break; + }; + var $10990 = $10998; break; }; - var $9697 = $9705; + var $10988 = $10990; break; }; - var $9695 = $9697; - break; - }; - var $9689 = $9695; + return $10988; + })())); + return $10987; + })())); + var $10980 = $10986; break; }; - var $9682 = $9689; + var $10973 = $10980; break; }; - var $9680 = $9682; + var $10971 = $10973; break; }; - return $9680; + return $10971; }; const Kind$Parser$map_get = x0 => x1 => Kind$Parser$map_get$(x0, x1); function Kind$Term$set$(_expr$1, _fkey$2, _fval$3) { - var $9727 = ({ + var $11024 = ({ _: 'Kind.Term.set', 'expr': _expr$1, 'fkey': _fkey$2, 'fval': _fval$3 }); - return $9727; + return $11024; }; const Kind$Term$set = x0 => x1 => x2 => Kind$Term$set$(x0, x1, x2); @@ -30478,189 +34574,213 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9729 = self.err; + var $11026 = self.err; var _reply$8 = Kind$Parser$text$("@", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9731 = self.err; - var self = $9729; + var $11028 = self.err; + var self = $11026; switch (self._) { case 'Maybe.some': - var $9733 = self.value; - var $9734 = Parser$Reply$error$(Parser$Error$combine$($9733, $9731)); - var $9732 = $9734; + var $11030 = self.value; + var $11031 = Parser$Reply$error$(Parser$Error$combine$($11030, $11028)); + var $11029 = $11031; break; case 'Maybe.none': - var $9735 = Parser$Reply$error$($9731); - var $9732 = $9735; + var $11032 = Parser$Reply$error$($11028); + var $11029 = $11032; break; }; - var $9730 = $9732; + var $11027 = $11029; break; case 'Parser.Reply.value': - var $9736 = self.pst; - var self = $9736; + var $11033 = self.pst; + var self = $11033; switch (self._) { case 'Parser.State.new': - var $9738 = self.err; - var $9739 = self.nam; - var $9740 = self.ini; - var $9741 = self.idx; - var $9742 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9729, $9738), $9739, $9740, $9741, $9742); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $9744 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; + var $11035 = self.err; + var $11036 = self.nam; + var $11037 = self.ini; + var $11038 = self.idx; + var $11039 = self.str; + var $11040 = ((console.log(("FALTANDO " + $11039)), (_$16 => { + var $11041 = ((console.log(("VALUE " + $11036)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11026, $11035), $11036, $11037, $11038, $11039); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $9746 = self.err; - var self = $9744; + case 'Parser.State.new': + var $11043 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $9748 = self.value; - var $9749 = Parser$Reply$error$(Parser$Error$combine$($9748, $9746)); - var $9747 = $9749; - break; - case 'Maybe.none': - var $9750 = Parser$Reply$error$($9746); - var $9747 = $9750; - break; - }; - var $9745 = $9747; - break; - case 'Parser.Reply.value': - var $9751 = self.pst; - var $9752 = self.val; - var self = $9751; - switch (self._) { - case 'Parser.State.new': - var $9754 = self.err; - var $9755 = self.nam; - var $9756 = self.ini; - var $9757 = self.idx; - var $9758 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9744, $9754), $9755, $9756, $9757, $9758); - var self = _reply$pst$30; + case 'Parser.Reply.error': + var $11045 = self.err; + var self = $11043; switch (self._) { - case 'Parser.State.new': - var $9760 = self.err; - var _reply$36 = Kind$Parser$text$("<-", _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $9762 = self.err; - var self = $9760; - switch (self._) { - case 'Maybe.some': - var $9764 = self.value; - var $9765 = Parser$Reply$error$(Parser$Error$combine$($9764, $9762)); - var $9763 = $9765; - break; - case 'Maybe.none': - var $9766 = Parser$Reply$error$($9762); - var $9763 = $9766; - break; - }; - var $9761 = $9763; - break; - case 'Parser.Reply.value': - var $9767 = self.pst; - var self = $9767; - switch (self._) { - case 'Parser.State.new': - var $9769 = self.err; - var $9770 = self.nam; - var $9771 = self.ini; - var $9772 = self.idx; - var $9773 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9760, $9769), $9770, $9771, $9772, $9773); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $9775 = self.err; - var _reply$50 = Kind$Parser$term(_reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $9777 = self.err; - var self = $9775; - switch (self._) { - case 'Maybe.some': - var $9779 = self.value; - var $9780 = Parser$Reply$error$(Parser$Error$combine$($9779, $9777)); - var $9778 = $9780; - break; - case 'Maybe.none': - var $9781 = Parser$Reply$error$($9777); - var $9778 = $9781; - break; - }; - var $9776 = $9778; - break; - case 'Parser.Reply.value': - var $9782 = self.pst; - var $9783 = self.val; - var self = $9782; - switch (self._) { - case 'Parser.State.new': - var $9785 = self.err; - var $9786 = self.nam; - var $9787 = self.ini; - var $9788 = self.idx; - var $9789 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($9775, $9785), $9786, $9787, $9788, $9789); - var $9790 = Parser$Reply$value$(_reply$pst$58, Kind$Term$set$(_term$1, $9752, $9783)); - var $9784 = $9790; - break; - }; - var $9776 = $9784; - break; - }; - var $9774 = $9776; - break; - }; - var $9768 = $9774; - break; - }; - var $9761 = $9768; - break; - }; - var $9759 = $9761; + case 'Maybe.some': + var $11047 = self.value; + var $11048 = Parser$Reply$error$(Parser$Error$combine$($11047, $11045)); + var $11046 = $11048; + break; + case 'Maybe.none': + var $11049 = Parser$Reply$error$($11045); + var $11046 = $11049; break; }; - var $9753 = $9759; + var $11044 = $11046; + break; + case 'Parser.Reply.value': + var $11050 = self.pst; + var $11051 = self.val; + var self = $11050; + switch (self._) { + case 'Parser.State.new': + var $11053 = self.err; + var $11054 = self.nam; + var $11055 = self.ini; + var $11056 = self.idx; + var $11057 = self.str; + var $11058 = ((console.log(("FALTANDO " + $11057)), (_$32 => { + var $11059 = ((console.log(("VALUE " + $11054)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11043, $11053), $11054, $11055, $11056, $11057); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $11061 = self.err; + var _reply$40 = Kind$Parser$text$("<-", _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $11063 = self.err; + var self = $11061; + switch (self._) { + case 'Maybe.some': + var $11065 = self.value; + var $11066 = Parser$Reply$error$(Parser$Error$combine$($11065, $11063)); + var $11064 = $11066; + break; + case 'Maybe.none': + var $11067 = Parser$Reply$error$($11063); + var $11064 = $11067; + break; + }; + var $11062 = $11064; + break; + case 'Parser.Reply.value': + var $11068 = self.pst; + var self = $11068; + switch (self._) { + case 'Parser.State.new': + var $11070 = self.err; + var $11071 = self.nam; + var $11072 = self.ini; + var $11073 = self.idx; + var $11074 = self.str; + var $11075 = ((console.log(("FALTANDO " + $11074)), (_$48 => { + var $11076 = ((console.log(("VALUE " + $11071)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11061, $11070), $11071, $11072, $11073, $11074); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $11078 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $11080 = self.err; + var self = $11078; + switch (self._) { + case 'Maybe.some': + var $11082 = self.value; + var $11083 = Parser$Reply$error$(Parser$Error$combine$($11082, $11080)); + var $11081 = $11083; + break; + case 'Maybe.none': + var $11084 = Parser$Reply$error$($11080); + var $11081 = $11084; + break; + }; + var $11079 = $11081; + break; + case 'Parser.Reply.value': + var $11085 = self.pst; + var $11086 = self.val; + var self = $11085; + switch (self._) { + case 'Parser.State.new': + var $11088 = self.err; + var $11089 = self.nam; + var $11090 = self.ini; + var $11091 = self.idx; + var $11092 = self.str; + var $11093 = ((console.log(("FALTANDO " + $11092)), (_$64 => { + var $11094 = ((console.log(("VALUE " + $11089)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($11078, $11088), $11089, $11090, $11091, $11092); + var $11095 = Parser$Reply$value$(_reply$pst$66, Kind$Term$set$(_term$1, $11051, $11086)); + return $11095; + })())); + return $11094; + })())); + var $11087 = $11093; + break; + }; + var $11079 = $11087; + break; + }; + var $11077 = $11079; + break; + }; + return $11077; + })())); + return $11076; + })())); + var $11069 = $11075; + break; + }; + var $11062 = $11069; + break; + }; + var $11060 = $11062; + break; + }; + return $11060; + })())); + return $11059; + })())); + var $11052 = $11058; + break; + }; + var $11044 = $11052; break; }; - var $9745 = $9753; + var $11042 = $11044; break; }; - var $9743 = $9745; - break; - }; - var $9737 = $9743; + return $11042; + })())); + return $11041; + })())); + var $11034 = $11040; break; }; - var $9730 = $9737; + var $11027 = $11034; break; }; - var $9728 = $9730; + var $11025 = $11027; break; }; - return $9728; + return $11025; }; const Kind$Parser$field_set = x0 => x1 => Kind$Parser$field_set$(x0, x1); function Kind$Term$get$(_expr$1, _fkey$2) { - var $9791 = ({ + var $11096 = ({ _: 'Kind.Term.get', 'expr': _expr$1, 'fkey': _fkey$2 }); - return $9791; + return $11096; }; const Kind$Term$get = x0 => x1 => Kind$Term$get$(x0, x1); @@ -30668,92 +34788,104 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9793 = self.err; + var $11098 = self.err; var _reply$8 = Kind$Parser$text$("@", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9795 = self.err; - var self = $9793; + var $11100 = self.err; + var self = $11098; switch (self._) { case 'Maybe.some': - var $9797 = self.value; - var $9798 = Parser$Reply$error$(Parser$Error$combine$($9797, $9795)); - var $9796 = $9798; + var $11102 = self.value; + var $11103 = Parser$Reply$error$(Parser$Error$combine$($11102, $11100)); + var $11101 = $11103; break; case 'Maybe.none': - var $9799 = Parser$Reply$error$($9795); - var $9796 = $9799; + var $11104 = Parser$Reply$error$($11100); + var $11101 = $11104; break; }; - var $9794 = $9796; + var $11099 = $11101; break; case 'Parser.Reply.value': - var $9800 = self.pst; - var self = $9800; + var $11105 = self.pst; + var self = $11105; switch (self._) { case 'Parser.State.new': - var $9802 = self.err; - var $9803 = self.nam; - var $9804 = self.ini; - var $9805 = self.idx; - var $9806 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9793, $9802), $9803, $9804, $9805, $9806); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $9808 = self.err; - var _reply$22 = Kind$Parser$name1$(_reply$pst$16); - var self = _reply$22; + var $11107 = self.err; + var $11108 = self.nam; + var $11109 = self.ini; + var $11110 = self.idx; + var $11111 = self.str; + var $11112 = ((console.log(("FALTANDO " + $11111)), (_$16 => { + var $11113 = ((console.log(("VALUE " + $11108)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11098, $11107), $11108, $11109, $11110, $11111); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $9810 = self.err; - var self = $9808; + case 'Parser.State.new': + var $11115 = self.err; + var _reply$24 = Kind$Parser$name1$(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $9812 = self.value; - var $9813 = Parser$Reply$error$(Parser$Error$combine$($9812, $9810)); - var $9811 = $9813; + case 'Parser.Reply.error': + var $11117 = self.err; + var self = $11115; + switch (self._) { + case 'Maybe.some': + var $11119 = self.value; + var $11120 = Parser$Reply$error$(Parser$Error$combine$($11119, $11117)); + var $11118 = $11120; + break; + case 'Maybe.none': + var $11121 = Parser$Reply$error$($11117); + var $11118 = $11121; + break; + }; + var $11116 = $11118; break; - case 'Maybe.none': - var $9814 = Parser$Reply$error$($9810); - var $9811 = $9814; + case 'Parser.Reply.value': + var $11122 = self.pst; + var $11123 = self.val; + var self = $11122; + switch (self._) { + case 'Parser.State.new': + var $11125 = self.err; + var $11126 = self.nam; + var $11127 = self.ini; + var $11128 = self.idx; + var $11129 = self.str; + var $11130 = ((console.log(("FALTANDO " + $11129)), (_$32 => { + var $11131 = ((console.log(("VALUE " + $11126)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11115, $11125), $11126, $11127, $11128, $11129); + var $11132 = Parser$Reply$value$(_reply$pst$34, Kind$Term$get$(_term$1, $11123)); + return $11132; + })())); + return $11131; + })())); + var $11124 = $11130; + break; + }; + var $11116 = $11124; break; }; - var $9809 = $9811; - break; - case 'Parser.Reply.value': - var $9815 = self.pst; - var $9816 = self.val; - var self = $9815; - switch (self._) { - case 'Parser.State.new': - var $9818 = self.err; - var $9819 = self.nam; - var $9820 = self.ini; - var $9821 = self.idx; - var $9822 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9808, $9818), $9819, $9820, $9821, $9822); - var $9823 = Parser$Reply$value$(_reply$pst$30, Kind$Term$get$(_term$1, $9816)); - var $9817 = $9823; - break; - }; - var $9809 = $9817; + var $11114 = $11116; break; }; - var $9807 = $9809; - break; - }; - var $9801 = $9807; + return $11114; + })())); + return $11113; + })())); + var $11106 = $11112; break; }; - var $9794 = $9801; + var $11099 = $11106; break; }; - var $9792 = $9794; + var $11097 = $11099; break; }; - return $9792; + return $11097; }; const Kind$Parser$field_get = x0 => x1 => Kind$Parser$field_get$(x0, x1); @@ -30761,95 +34893,107 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9825 = self.err; + var $11134 = self.err; var _reply$8 = Kind$Parser$text$("->", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9827 = self.err; - var self = $9825; + var $11136 = self.err; + var self = $11134; switch (self._) { case 'Maybe.some': - var $9829 = self.value; - var $9830 = Parser$Reply$error$(Parser$Error$combine$($9829, $9827)); - var $9828 = $9830; + var $11138 = self.value; + var $11139 = Parser$Reply$error$(Parser$Error$combine$($11138, $11136)); + var $11137 = $11139; break; case 'Maybe.none': - var $9831 = Parser$Reply$error$($9827); - var $9828 = $9831; + var $11140 = Parser$Reply$error$($11136); + var $11137 = $11140; break; }; - var $9826 = $9828; + var $11135 = $11137; break; case 'Parser.Reply.value': - var $9832 = self.pst; - var self = $9832; + var $11141 = self.pst; + var self = $11141; switch (self._) { case 'Parser.State.new': - var $9834 = self.err; - var $9835 = self.nam; - var $9836 = self.ini; - var $9837 = self.idx; - var $9838 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9825, $9834), $9835, $9836, $9837, $9838); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $9840 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $11143 = self.err; + var $11144 = self.nam; + var $11145 = self.ini; + var $11146 = self.idx; + var $11147 = self.str; + var $11148 = ((console.log(("FALTANDO " + $11147)), (_$16 => { + var $11149 = ((console.log(("VALUE " + $11144)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11134, $11143), $11144, $11145, $11146, $11147); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $9842 = self.err; - var self = $9840; + case 'Parser.State.new': + var $11151 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $9844 = self.value; - var $9845 = Parser$Reply$error$(Parser$Error$combine$($9844, $9842)); - var $9843 = $9845; + case 'Parser.Reply.error': + var $11153 = self.err; + var self = $11151; + switch (self._) { + case 'Maybe.some': + var $11155 = self.value; + var $11156 = Parser$Reply$error$(Parser$Error$combine$($11155, $11153)); + var $11154 = $11156; + break; + case 'Maybe.none': + var $11157 = Parser$Reply$error$($11153); + var $11154 = $11157; + break; + }; + var $11152 = $11154; break; - case 'Maybe.none': - var $9846 = Parser$Reply$error$($9842); - var $9843 = $9846; + case 'Parser.Reply.value': + var $11158 = self.pst; + var $11159 = self.val; + var self = $11158; + switch (self._) { + case 'Parser.State.new': + var $11161 = self.err; + var $11162 = self.nam; + var $11163 = self.ini; + var $11164 = self.idx; + var $11165 = self.str; + var $11166 = ((console.log(("FALTANDO " + $11165)), (_$32 => { + var $11167 = ((console.log(("VALUE " + $11162)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11151, $11161), $11162, $11163, $11164, $11165); + var $11168 = Parser$Reply$value$(_reply$pst$34, Kind$Term$all$(Bool$false, "", "", _xtyp$1, (_s$35 => _x$36 => { + var $11169 = $11159; + return $11169; + }))); + return $11168; + })())); + return $11167; + })())); + var $11160 = $11166; + break; + }; + var $11152 = $11160; break; }; - var $9841 = $9843; - break; - case 'Parser.Reply.value': - var $9847 = self.pst; - var $9848 = self.val; - var self = $9847; - switch (self._) { - case 'Parser.State.new': - var $9850 = self.err; - var $9851 = self.nam; - var $9852 = self.ini; - var $9853 = self.idx; - var $9854 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9840, $9850), $9851, $9852, $9853, $9854); - var $9855 = Parser$Reply$value$(_reply$pst$30, Kind$Term$all$(Bool$false, "", "", _xtyp$1, (_s$31 => _x$32 => { - var $9856 = $9848; - return $9856; - }))); - var $9849 = $9855; - break; - }; - var $9841 = $9849; + var $11150 = $11152; break; }; - var $9839 = $9841; - break; - }; - var $9833 = $9839; + return $11150; + })())); + return $11149; + })())); + var $11142 = $11148; break; }; - var $9826 = $9833; + var $11135 = $11142; break; }; - var $9824 = $9826; + var $11133 = $11135; break; }; - return $9824; + return $11133; }; const Kind$Parser$arrow = x0 => x1 => Kind$Parser$arrow$(x0, x1); @@ -30857,139 +35001,157 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9858 = self.err; + var $11171 = self.err; var _reply$8 = Kind$Parser$text$("++", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9860 = self.err; - var self = $9858; + var $11173 = self.err; + var self = $11171; switch (self._) { case 'Maybe.some': - var $9862 = self.value; - var $9863 = Parser$Reply$error$(Parser$Error$combine$($9862, $9860)); - var $9861 = $9863; + var $11175 = self.value; + var $11176 = Parser$Reply$error$(Parser$Error$combine$($11175, $11173)); + var $11174 = $11176; break; case 'Maybe.none': - var $9864 = Parser$Reply$error$($9860); - var $9861 = $9864; + var $11177 = Parser$Reply$error$($11173); + var $11174 = $11177; break; }; - var $9859 = $9861; + var $11172 = $11174; break; case 'Parser.Reply.value': - var $9865 = self.pst; - var self = $9865; + var $11178 = self.pst; + var self = $11178; switch (self._) { case 'Parser.State.new': - var $9867 = self.err; - var $9868 = self.nam; - var $9869 = self.ini; - var $9870 = self.idx; - var $9871 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9858, $9867), $9868, $9869, $9870, $9871); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $9873 = self.err; - var _reply$22 = Parser$text$(" ", _reply$pst$16); - var self = _reply$22; + var $11180 = self.err; + var $11181 = self.nam; + var $11182 = self.ini; + var $11183 = self.idx; + var $11184 = self.str; + var $11185 = ((console.log(("FALTANDO " + $11184)), (_$16 => { + var $11186 = ((console.log(("VALUE " + $11181)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11171, $11180), $11181, $11182, $11183, $11184); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $9875 = self.err; - var self = $9873; + case 'Parser.State.new': + var $11188 = self.err; + var _reply$24 = Parser$text$(" ", _reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $9877 = self.value; - var $9878 = Parser$Reply$error$(Parser$Error$combine$($9877, $9875)); - var $9876 = $9878; - break; - case 'Maybe.none': - var $9879 = Parser$Reply$error$($9875); - var $9876 = $9879; - break; - }; - var $9874 = $9876; - break; - case 'Parser.Reply.value': - var $9880 = self.pst; - var self = $9880; - switch (self._) { - case 'Parser.State.new': - var $9882 = self.err; - var $9883 = self.nam; - var $9884 = self.ini; - var $9885 = self.idx; - var $9886 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9873, $9882), $9883, $9884, $9885, $9886); - var self = _reply$pst$30; + case 'Parser.Reply.error': + var $11190 = self.err; + var self = $11188; switch (self._) { - case 'Parser.State.new': - var $9888 = self.err; - var _reply$36 = Kind$Parser$term(_reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $9890 = self.err; - var self = $9888; - switch (self._) { - case 'Maybe.some': - var $9892 = self.value; - var $9893 = Parser$Reply$error$(Parser$Error$combine$($9892, $9890)); - var $9891 = $9893; - break; - case 'Maybe.none': - var $9894 = Parser$Reply$error$($9890); - var $9891 = $9894; - break; - }; - var $9889 = $9891; - break; - case 'Parser.Reply.value': - var $9895 = self.pst; - var $9896 = self.val; - var self = $9895; - switch (self._) { - case 'Parser.State.new': - var $9898 = self.err; - var $9899 = self.nam; - var $9900 = self.ini; - var $9901 = self.idx; - var $9902 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9888, $9898), $9899, $9900, $9901, $9902); - var _term$45 = Kind$Term$ref$("List.concat"); - var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); - var _term$47 = Kind$Term$app$(_term$46, _lst0$1); - var _term$48 = Kind$Term$app$(_term$47, $9896); - var $9903 = Parser$Reply$value$(_reply$pst$44, _term$48); - var $9897 = $9903; - break; - }; - var $9889 = $9897; - break; - }; - var $9887 = $9889; + case 'Maybe.some': + var $11192 = self.value; + var $11193 = Parser$Reply$error$(Parser$Error$combine$($11192, $11190)); + var $11191 = $11193; + break; + case 'Maybe.none': + var $11194 = Parser$Reply$error$($11190); + var $11191 = $11194; break; }; - var $9881 = $9887; + var $11189 = $11191; + break; + case 'Parser.Reply.value': + var $11195 = self.pst; + var self = $11195; + switch (self._) { + case 'Parser.State.new': + var $11197 = self.err; + var $11198 = self.nam; + var $11199 = self.ini; + var $11200 = self.idx; + var $11201 = self.str; + var $11202 = ((console.log(("FALTANDO " + $11201)), (_$32 => { + var $11203 = ((console.log(("VALUE " + $11198)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11188, $11197), $11198, $11199, $11200, $11201); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $11205 = self.err; + var _reply$40 = Kind$Parser$term(_reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $11207 = self.err; + var self = $11205; + switch (self._) { + case 'Maybe.some': + var $11209 = self.value; + var $11210 = Parser$Reply$error$(Parser$Error$combine$($11209, $11207)); + var $11208 = $11210; + break; + case 'Maybe.none': + var $11211 = Parser$Reply$error$($11207); + var $11208 = $11211; + break; + }; + var $11206 = $11208; + break; + case 'Parser.Reply.value': + var $11212 = self.pst; + var $11213 = self.val; + var self = $11212; + switch (self._) { + case 'Parser.State.new': + var $11215 = self.err; + var $11216 = self.nam; + var $11217 = self.ini; + var $11218 = self.idx; + var $11219 = self.str; + var $11220 = ((console.log(("FALTANDO " + $11219)), (_$48 => { + var $11221 = ((console.log(("VALUE " + $11216)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11205, $11215), $11216, $11217, $11218, $11219); + var _term$51 = Kind$Term$ref$("List.concat"); + var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); + var _term$53 = Kind$Term$app$(_term$52, _lst0$1); + var _term$54 = Kind$Term$app$(_term$53, $11213); + var $11222 = Parser$Reply$value$(_reply$pst$50, _term$54); + return $11222; + })())); + return $11221; + })())); + var $11214 = $11220; + break; + }; + var $11206 = $11214; + break; + }; + var $11204 = $11206; + break; + }; + return $11204; + })())); + return $11203; + })())); + var $11196 = $11202; + break; + }; + var $11189 = $11196; break; }; - var $9874 = $9881; + var $11187 = $11189; break; }; - var $9872 = $9874; - break; - }; - var $9866 = $9872; + return $11187; + })())); + return $11186; + })())); + var $11179 = $11185; break; }; - var $9859 = $9866; + var $11172 = $11179; break; }; - var $9857 = $9859; + var $11170 = $11172; break; }; - return $9857; + return $11170; }; const Kind$Parser$concat = x0 => x1 => Kind$Parser$concat$(x0, x1); @@ -30997,107 +35159,119 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9905 = self.err; + var $11224 = self.err; var _reply$8 = Kind$Parser$text$("==", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9907 = self.err; - var self = $9905; + var $11226 = self.err; + var self = $11224; switch (self._) { case 'Maybe.some': - var $9909 = self.value; - var $9910 = Parser$Reply$error$(Parser$Error$combine$($9909, $9907)); - var $9908 = $9910; + var $11228 = self.value; + var $11229 = Parser$Reply$error$(Parser$Error$combine$($11228, $11226)); + var $11227 = $11229; break; case 'Maybe.none': - var $9911 = Parser$Reply$error$($9907); - var $9908 = $9911; + var $11230 = Parser$Reply$error$($11226); + var $11227 = $11230; break; }; - var $9906 = $9908; + var $11225 = $11227; break; case 'Parser.Reply.value': - var $9912 = self.pst; - var self = $9912; + var $11231 = self.pst; + var self = $11231; switch (self._) { case 'Parser.State.new': - var $9914 = self.err; - var $9915 = self.nam; - var $9916 = self.ini; - var $9917 = self.idx; - var $9918 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9905, $9914), $9915, $9916, $9917, $9918); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $9920 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $11233 = self.err; + var $11234 = self.nam; + var $11235 = self.ini; + var $11236 = self.idx; + var $11237 = self.str; + var $11238 = ((console.log(("FALTANDO " + $11237)), (_$16 => { + var $11239 = ((console.log(("VALUE " + $11234)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11224, $11233), $11234, $11235, $11236, $11237); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $9922 = self.err; - var self = $9920; + case 'Parser.State.new': + var $11241 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $9924 = self.value; - var $9925 = Parser$Reply$error$(Parser$Error$combine$($9924, $9922)); - var $9923 = $9925; + case 'Parser.Reply.error': + var $11243 = self.err; + var self = $11241; + switch (self._) { + case 'Maybe.some': + var $11245 = self.value; + var $11246 = Parser$Reply$error$(Parser$Error$combine$($11245, $11243)); + var $11244 = $11246; + break; + case 'Maybe.none': + var $11247 = Parser$Reply$error$($11243); + var $11244 = $11247; + break; + }; + var $11242 = $11244; break; - case 'Maybe.none': - var $9926 = Parser$Reply$error$($9922); - var $9923 = $9926; + case 'Parser.Reply.value': + var $11248 = self.pst; + var $11249 = self.val; + var self = $11248; + switch (self._) { + case 'Parser.State.new': + var $11251 = self.err; + var $11252 = self.nam; + var $11253 = self.ini; + var $11254 = self.idx; + var $11255 = self.str; + var $11256 = ((console.log(("FALTANDO " + $11255)), (_$32 => { + var $11257 = ((console.log(("VALUE " + $11252)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11241, $11251), $11252, $11253, $11254, $11255); + var _term$35 = Kind$Term$ref$("Equal"); + var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); + var _term$37 = Kind$Term$app$(_term$36, _val0$1); + var _term$38 = Kind$Term$app$(_term$37, $11249); + var $11258 = Parser$Reply$value$(_reply$pst$34, _term$38); + return $11258; + })())); + return $11257; + })())); + var $11250 = $11256; + break; + }; + var $11242 = $11250; break; }; - var $9921 = $9923; - break; - case 'Parser.Reply.value': - var $9927 = self.pst; - var $9928 = self.val; - var self = $9927; - switch (self._) { - case 'Parser.State.new': - var $9930 = self.err; - var $9931 = self.nam; - var $9932 = self.ini; - var $9933 = self.idx; - var $9934 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9920, $9930), $9931, $9932, $9933, $9934); - var _term$31 = Kind$Term$ref$("Equal"); - var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); - var _term$33 = Kind$Term$app$(_term$32, _val0$1); - var _term$34 = Kind$Term$app$(_term$33, $9928); - var $9935 = Parser$Reply$value$(_reply$pst$30, _term$34); - var $9929 = $9935; - break; - }; - var $9921 = $9929; + var $11240 = $11242; break; }; - var $9919 = $9921; - break; - }; - var $9913 = $9919; + return $11240; + })())); + return $11239; + })())); + var $11232 = $11238; break; }; - var $9906 = $9913; + var $11225 = $11232; break; }; - var $9904 = $9906; + var $11223 = $11225; break; }; - return $9904; + return $11223; }; const Kind$Parser$equality = x0 => x1 => Kind$Parser$equality$(x0, x1); function Kind$Term$ope$(_name$1, _arg0$2, _arg1$3) { - var $9936 = ({ + var $11259 = ({ _: 'Kind.Term.ope', 'name': _name$1, 'arg0': _arg0$2, 'arg1': _arg1$3 }); - return $9936; + return $11259; }; const Kind$Term$ope = x0 => x1 => x2 => Kind$Term$ope$(x0, x1, x2); @@ -31105,92 +35279,104 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $9938 = self.err; + var $11261 = self.err; var _reply$10 = Kind$Parser$text$(_sym$1, _pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $9940 = self.err; - var self = $9938; + var $11263 = self.err; + var self = $11261; switch (self._) { case 'Maybe.some': - var $9942 = self.value; - var $9943 = Parser$Reply$error$(Parser$Error$combine$($9942, $9940)); - var $9941 = $9943; + var $11265 = self.value; + var $11266 = Parser$Reply$error$(Parser$Error$combine$($11265, $11263)); + var $11264 = $11266; break; case 'Maybe.none': - var $9944 = Parser$Reply$error$($9940); - var $9941 = $9944; + var $11267 = Parser$Reply$error$($11263); + var $11264 = $11267; break; }; - var $9939 = $9941; + var $11262 = $11264; break; case 'Parser.Reply.value': - var $9945 = self.pst; - var self = $9945; + var $11268 = self.pst; + var self = $11268; switch (self._) { case 'Parser.State.new': - var $9947 = self.err; - var $9948 = self.nam; - var $9949 = self.ini; - var $9950 = self.idx; - var $9951 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($9938, $9947), $9948, $9949, $9950, $9951); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $9953 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; + var $11270 = self.err; + var $11271 = self.nam; + var $11272 = self.ini; + var $11273 = self.idx; + var $11274 = self.str; + var $11275 = ((console.log(("FALTANDO " + $11274)), (_$18 => { + var $11276 = ((console.log(("VALUE " + $11271)), (_$19 => { + var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($11261, $11270), $11271, $11272, $11273, $11274); + var self = _reply$pst$20; switch (self._) { - case 'Parser.Reply.error': - var $9955 = self.err; - var self = $9953; + case 'Parser.State.new': + var $11278 = self.err; + var _reply$26 = Kind$Parser$term(_reply$pst$20); + var self = _reply$26; switch (self._) { - case 'Maybe.some': - var $9957 = self.value; - var $9958 = Parser$Reply$error$(Parser$Error$combine$($9957, $9955)); - var $9956 = $9958; + case 'Parser.Reply.error': + var $11280 = self.err; + var self = $11278; + switch (self._) { + case 'Maybe.some': + var $11282 = self.value; + var $11283 = Parser$Reply$error$(Parser$Error$combine$($11282, $11280)); + var $11281 = $11283; + break; + case 'Maybe.none': + var $11284 = Parser$Reply$error$($11280); + var $11281 = $11284; + break; + }; + var $11279 = $11281; break; - case 'Maybe.none': - var $9959 = Parser$Reply$error$($9955); - var $9956 = $9959; + case 'Parser.Reply.value': + var $11285 = self.pst; + var $11286 = self.val; + var self = $11285; + switch (self._) { + case 'Parser.State.new': + var $11288 = self.err; + var $11289 = self.nam; + var $11290 = self.ini; + var $11291 = self.idx; + var $11292 = self.str; + var $11293 = ((console.log(("FALTANDO " + $11292)), (_$34 => { + var $11294 = ((console.log(("VALUE " + $11289)), (_$35 => { + var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($11278, $11288), $11289, $11290, $11291, $11292); + var $11295 = Parser$Reply$value$(_reply$pst$36, Kind$Term$ope$(_sym$1, _val0$3, $11286)); + return $11295; + })())); + return $11294; + })())); + var $11287 = $11293; + break; + }; + var $11279 = $11287; break; }; - var $9954 = $9956; - break; - case 'Parser.Reply.value': - var $9960 = self.pst; - var $9961 = self.val; - var self = $9960; - switch (self._) { - case 'Parser.State.new': - var $9963 = self.err; - var $9964 = self.nam; - var $9965 = self.ini; - var $9966 = self.idx; - var $9967 = self.str; - var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($9953, $9963), $9964, $9965, $9966, $9967); - var $9968 = Parser$Reply$value$(_reply$pst$32, Kind$Term$ope$(_sym$1, _val0$3, $9961)); - var $9962 = $9968; - break; - }; - var $9954 = $9962; + var $11277 = $11279; break; }; - var $9952 = $9954; - break; - }; - var $9946 = $9952; + return $11277; + })())); + return $11276; + })())); + var $11269 = $11275; break; }; - var $9939 = $9946; + var $11262 = $11269; break; }; - var $9937 = $9939; + var $11260 = $11262; break; }; - return $9937; + return $11260; }; const Kind$Parser$op = x0 => x1 => x2 => x3 => Kind$Parser$op$(x0, x1, x2, x3); const Kind$Parser$add = Kind$Parser$op("+")("Nat.add"); @@ -31210,98 +35396,110 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $9970 = self.err; + var $11297 = self.err; var _reply$8 = Kind$Parser$text$(".", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $9972 = self.err; - var self = $9970; + var $11299 = self.err; + var self = $11297; switch (self._) { case 'Maybe.some': - var $9974 = self.value; - var $9975 = Parser$Reply$error$(Parser$Error$combine$($9974, $9972)); - var $9973 = $9975; + var $11301 = self.value; + var $11302 = Parser$Reply$error$(Parser$Error$combine$($11301, $11299)); + var $11300 = $11302; break; case 'Maybe.none': - var $9976 = Parser$Reply$error$($9972); - var $9973 = $9976; + var $11303 = Parser$Reply$error$($11299); + var $11300 = $11303; break; }; - var $9971 = $9973; + var $11298 = $11300; break; case 'Parser.Reply.value': - var $9977 = self.pst; - var self = $9977; + var $11304 = self.pst; + var self = $11304; switch (self._) { case 'Parser.State.new': - var $9979 = self.err; - var $9980 = self.nam; - var $9981 = self.ini; - var $9982 = self.idx; - var $9983 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9970, $9979), $9980, $9981, $9982, $9983); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $9985 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $11306 = self.err; + var $11307 = self.nam; + var $11308 = self.ini; + var $11309 = self.idx; + var $11310 = self.str; + var $11311 = ((console.log(("FALTANDO " + $11310)), (_$16 => { + var $11312 = ((console.log(("VALUE " + $11307)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11297, $11306), $11307, $11308, $11309, $11310); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $9987 = self.err; - var self = $9985; + case 'Parser.State.new': + var $11314 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $9989 = self.value; - var $9990 = Parser$Reply$error$(Parser$Error$combine$($9989, $9987)); - var $9988 = $9990; + case 'Parser.Reply.error': + var $11316 = self.err; + var self = $11314; + switch (self._) { + case 'Maybe.some': + var $11318 = self.value; + var $11319 = Parser$Reply$error$(Parser$Error$combine$($11318, $11316)); + var $11317 = $11319; + break; + case 'Maybe.none': + var $11320 = Parser$Reply$error$($11316); + var $11317 = $11320; + break; + }; + var $11315 = $11317; break; - case 'Maybe.none': - var $9991 = Parser$Reply$error$($9987); - var $9988 = $9991; + case 'Parser.Reply.value': + var $11321 = self.pst; + var $11322 = self.val; + var self = $11321; + switch (self._) { + case 'Parser.State.new': + var $11324 = self.err; + var $11325 = self.nam; + var $11326 = self.ini; + var $11327 = self.idx; + var $11328 = self.str; + var $11329 = ((console.log(("FALTANDO " + $11328)), (_$32 => { + var $11330 = ((console.log(("VALUE " + $11325)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11314, $11324), $11325, $11326, $11327, $11328); + var _term$35 = Kind$Term$ref$("Function.comp"); + var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); + var _term$37 = Kind$Term$app$(_term$36, Kind$Term$hol$(Bits$e)); + var _term$38 = Kind$Term$app$(_term$37, Kind$Term$hol$(Bits$e)); + var _term$39 = Kind$Term$app$(_term$38, _val0$1); + var _term$40 = Kind$Term$app$(_term$39, $11322); + var $11331 = Parser$Reply$value$(_reply$pst$34, _term$40); + return $11331; + })())); + return $11330; + })())); + var $11323 = $11329; + break; + }; + var $11315 = $11323; break; }; - var $9986 = $9988; - break; - case 'Parser.Reply.value': - var $9992 = self.pst; - var $9993 = self.val; - var self = $9992; - switch (self._) { - case 'Parser.State.new': - var $9995 = self.err; - var $9996 = self.nam; - var $9997 = self.ini; - var $9998 = self.idx; - var $9999 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9985, $9995), $9996, $9997, $9998, $9999); - var _term$31 = Kind$Term$ref$("Function.comp"); - var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); - var _term$33 = Kind$Term$app$(_term$32, Kind$Term$hol$(Bits$e)); - var _term$34 = Kind$Term$app$(_term$33, Kind$Term$hol$(Bits$e)); - var _term$35 = Kind$Term$app$(_term$34, _val0$1); - var _term$36 = Kind$Term$app$(_term$35, $9993); - var $10000 = Parser$Reply$value$(_reply$pst$30, _term$36); - var $9994 = $10000; - break; - }; - var $9986 = $9994; + var $11313 = $11315; break; }; - var $9984 = $9986; - break; - }; - var $9978 = $9984; + return $11313; + })())); + return $11312; + })())); + var $11305 = $11311; break; }; - var $9971 = $9978; + var $11298 = $11305; break; }; - var $9969 = $9971; + var $11296 = $11298; break; }; - return $9969; + return $11296; }; const Kind$Parser$composition = x0 => x1 => Kind$Parser$composition$(x0, x1); @@ -31309,96 +35507,108 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10002 = self.err; + var $11333 = self.err; var _reply$8 = Kind$Parser$text$("<>", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10004 = self.err; - var self = $10002; + var $11335 = self.err; + var self = $11333; switch (self._) { case 'Maybe.some': - var $10006 = self.value; - var $10007 = Parser$Reply$error$(Parser$Error$combine$($10006, $10004)); - var $10005 = $10007; + var $11337 = self.value; + var $11338 = Parser$Reply$error$(Parser$Error$combine$($11337, $11335)); + var $11336 = $11338; break; case 'Maybe.none': - var $10008 = Parser$Reply$error$($10004); - var $10005 = $10008; + var $11339 = Parser$Reply$error$($11335); + var $11336 = $11339; break; }; - var $10003 = $10005; + var $11334 = $11336; break; case 'Parser.Reply.value': - var $10009 = self.pst; - var self = $10009; + var $11340 = self.pst; + var self = $11340; switch (self._) { case 'Parser.State.new': - var $10011 = self.err; - var $10012 = self.nam; - var $10013 = self.ini; - var $10014 = self.idx; - var $10015 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10002, $10011), $10012, $10013, $10014, $10015); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10017 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $11342 = self.err; + var $11343 = self.nam; + var $11344 = self.ini; + var $11345 = self.idx; + var $11346 = self.str; + var $11347 = ((console.log(("FALTANDO " + $11346)), (_$16 => { + var $11348 = ((console.log(("VALUE " + $11343)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11333, $11342), $11343, $11344, $11345, $11346); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $10019 = self.err; - var self = $10017; + case 'Parser.State.new': + var $11350 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $10021 = self.value; - var $10022 = Parser$Reply$error$(Parser$Error$combine$($10021, $10019)); - var $10020 = $10022; + case 'Parser.Reply.error': + var $11352 = self.err; + var self = $11350; + switch (self._) { + case 'Maybe.some': + var $11354 = self.value; + var $11355 = Parser$Reply$error$(Parser$Error$combine$($11354, $11352)); + var $11353 = $11355; + break; + case 'Maybe.none': + var $11356 = Parser$Reply$error$($11352); + var $11353 = $11356; + break; + }; + var $11351 = $11353; break; - case 'Maybe.none': - var $10023 = Parser$Reply$error$($10019); - var $10020 = $10023; + case 'Parser.Reply.value': + var $11357 = self.pst; + var $11358 = self.val; + var self = $11357; + switch (self._) { + case 'Parser.State.new': + var $11360 = self.err; + var $11361 = self.nam; + var $11362 = self.ini; + var $11363 = self.idx; + var $11364 = self.str; + var $11365 = ((console.log(("FALTANDO " + $11364)), (_$32 => { + var $11366 = ((console.log(("VALUE " + $11361)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11350, $11360), $11361, $11362, $11363, $11364); + var _term$35 = Kind$Term$ref$("Maybe.default"); + var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); + var _term$37 = Kind$Term$app$(_term$36, _val0$1); + var _term$38 = Kind$Term$app$(_term$37, $11358); + var $11367 = Parser$Reply$value$(_reply$pst$34, _term$38); + return $11367; + })())); + return $11366; + })())); + var $11359 = $11365; + break; + }; + var $11351 = $11359; break; }; - var $10018 = $10020; - break; - case 'Parser.Reply.value': - var $10024 = self.pst; - var $10025 = self.val; - var self = $10024; - switch (self._) { - case 'Parser.State.new': - var $10027 = self.err; - var $10028 = self.nam; - var $10029 = self.ini; - var $10030 = self.idx; - var $10031 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10017, $10027), $10028, $10029, $10030, $10031); - var _term$31 = Kind$Term$ref$("Maybe.default"); - var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); - var _term$33 = Kind$Term$app$(_term$32, _val0$1); - var _term$34 = Kind$Term$app$(_term$33, $10025); - var $10032 = Parser$Reply$value$(_reply$pst$30, _term$34); - var $10026 = $10032; - break; - }; - var $10018 = $10026; + var $11349 = $11351; break; }; - var $10016 = $10018; - break; - }; - var $10010 = $10016; + return $11349; + })())); + return $11348; + })())); + var $11341 = $11347; break; }; - var $10003 = $10010; + var $11334 = $11341; break; }; - var $10001 = $10003; + var $11332 = $11334; break; }; - return $10001; + return $11332; }; const Kind$Parser$default = x0 => x1 => Kind$Parser$default$(x0, x1); @@ -31406,96 +35616,108 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10034 = self.err; + var $11369 = self.err; var _reply$8 = Kind$Parser$text$("&", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10036 = self.err; - var self = $10034; + var $11371 = self.err; + var self = $11369; switch (self._) { case 'Maybe.some': - var $10038 = self.value; - var $10039 = Parser$Reply$error$(Parser$Error$combine$($10038, $10036)); - var $10037 = $10039; + var $11373 = self.value; + var $11374 = Parser$Reply$error$(Parser$Error$combine$($11373, $11371)); + var $11372 = $11374; break; case 'Maybe.none': - var $10040 = Parser$Reply$error$($10036); - var $10037 = $10040; + var $11375 = Parser$Reply$error$($11371); + var $11372 = $11375; break; }; - var $10035 = $10037; + var $11370 = $11372; break; case 'Parser.Reply.value': - var $10041 = self.pst; - var self = $10041; + var $11376 = self.pst; + var self = $11376; switch (self._) { case 'Parser.State.new': - var $10043 = self.err; - var $10044 = self.nam; - var $10045 = self.ini; - var $10046 = self.idx; - var $10047 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10034, $10043), $10044, $10045, $10046, $10047); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10049 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $11378 = self.err; + var $11379 = self.nam; + var $11380 = self.ini; + var $11381 = self.idx; + var $11382 = self.str; + var $11383 = ((console.log(("FALTANDO " + $11382)), (_$16 => { + var $11384 = ((console.log(("VALUE " + $11379)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11369, $11378), $11379, $11380, $11381, $11382); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $10051 = self.err; - var self = $10049; + case 'Parser.State.new': + var $11386 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $10053 = self.value; - var $10054 = Parser$Reply$error$(Parser$Error$combine$($10053, $10051)); - var $10052 = $10054; + case 'Parser.Reply.error': + var $11388 = self.err; + var self = $11386; + switch (self._) { + case 'Maybe.some': + var $11390 = self.value; + var $11391 = Parser$Reply$error$(Parser$Error$combine$($11390, $11388)); + var $11389 = $11391; + break; + case 'Maybe.none': + var $11392 = Parser$Reply$error$($11388); + var $11389 = $11392; + break; + }; + var $11387 = $11389; break; - case 'Maybe.none': - var $10055 = Parser$Reply$error$($10051); - var $10052 = $10055; + case 'Parser.Reply.value': + var $11393 = self.pst; + var $11394 = self.val; + var self = $11393; + switch (self._) { + case 'Parser.State.new': + var $11396 = self.err; + var $11397 = self.nam; + var $11398 = self.ini; + var $11399 = self.idx; + var $11400 = self.str; + var $11401 = ((console.log(("FALTANDO " + $11400)), (_$32 => { + var $11402 = ((console.log(("VALUE " + $11397)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11386, $11396), $11397, $11398, $11399, $11400); + var _term$35 = Kind$Term$ref$("List.cons"); + var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); + var _term$37 = Kind$Term$app$(_term$36, _head$1); + var _term$38 = Kind$Term$app$(_term$37, $11394); + var $11403 = Parser$Reply$value$(_reply$pst$34, _term$38); + return $11403; + })())); + return $11402; + })())); + var $11395 = $11401; + break; + }; + var $11387 = $11395; break; }; - var $10050 = $10052; - break; - case 'Parser.Reply.value': - var $10056 = self.pst; - var $10057 = self.val; - var self = $10056; - switch (self._) { - case 'Parser.State.new': - var $10059 = self.err; - var $10060 = self.nam; - var $10061 = self.ini; - var $10062 = self.idx; - var $10063 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10049, $10059), $10060, $10061, $10062, $10063); - var _term$31 = Kind$Term$ref$("List.cons"); - var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); - var _term$33 = Kind$Term$app$(_term$32, _head$1); - var _term$34 = Kind$Term$app$(_term$33, $10057); - var $10064 = Parser$Reply$value$(_reply$pst$30, _term$34); - var $10058 = $10064; - break; - }; - var $10050 = $10058; + var $11385 = $11387; break; }; - var $10048 = $10050; - break; - }; - var $10042 = $10048; + return $11385; + })())); + return $11384; + })())); + var $11377 = $11383; break; }; - var $10035 = $10042; + var $11370 = $11377; break; }; - var $10033 = $10035; + var $11368 = $11370; break; }; - return $10033; + return $11368; }; const Kind$Parser$cons = x0 => x1 => Kind$Parser$cons$(x0, x1); @@ -31503,196 +35725,220 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10066 = self.err; + var $11405 = self.err; var _reply$8 = Kind$Parser$text$("|", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10068 = self.err; - var self = $10066; + var $11407 = self.err; + var self = $11405; switch (self._) { case 'Maybe.some': - var $10070 = self.value; - var $10071 = Parser$Reply$error$(Parser$Error$combine$($10070, $10068)); - var $10069 = $10071; + var $11409 = self.value; + var $11410 = Parser$Reply$error$(Parser$Error$combine$($11409, $11407)); + var $11408 = $11410; break; case 'Maybe.none': - var $10072 = Parser$Reply$error$($10068); - var $10069 = $10072; + var $11411 = Parser$Reply$error$($11407); + var $11408 = $11411; break; }; - var $10067 = $10069; + var $11406 = $11408; break; case 'Parser.Reply.value': - var $10073 = self.pst; - var self = $10073; + var $11412 = self.pst; + var self = $11412; switch (self._) { case 'Parser.State.new': - var $10075 = self.err; - var $10076 = self.nam; - var $10077 = self.ini; - var $10078 = self.idx; - var $10079 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10066, $10075), $10076, $10077, $10078, $10079); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10081 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $11414 = self.err; + var $11415 = self.nam; + var $11416 = self.ini; + var $11417 = self.idx; + var $11418 = self.str; + var $11419 = ((console.log(("FALTANDO " + $11418)), (_$16 => { + var $11420 = ((console.log(("VALUE " + $11415)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11405, $11414), $11415, $11416, $11417, $11418); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $10083 = self.err; - var self = $10081; + case 'Parser.State.new': + var $11422 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $10085 = self.value; - var $10086 = Parser$Reply$error$(Parser$Error$combine$($10085, $10083)); - var $10084 = $10086; + case 'Parser.Reply.error': + var $11424 = self.err; + var self = $11422; + switch (self._) { + case 'Maybe.some': + var $11426 = self.value; + var $11427 = Parser$Reply$error$(Parser$Error$combine$($11426, $11424)); + var $11425 = $11427; + break; + case 'Maybe.none': + var $11428 = Parser$Reply$error$($11424); + var $11425 = $11428; + break; + }; + var $11423 = $11425; break; - case 'Maybe.none': - var $10087 = Parser$Reply$error$($10083); - var $10084 = $10087; + case 'Parser.Reply.value': + var $11429 = self.pst; + var $11430 = self.val; + var self = $11429; + switch (self._) { + case 'Parser.State.new': + var $11432 = self.err; + var $11433 = self.nam; + var $11434 = self.ini; + var $11435 = self.idx; + var $11436 = self.str; + var $11437 = ((console.log(("FALTANDO " + $11436)), (_$32 => { + var $11438 = ((console.log(("VALUE " + $11433)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11422, $11432), $11433, $11434, $11435, $11436); + var _term$35 = Kind$Term$ref$("String.concat"); + var _term$36 = Kind$Term$app$(_term$35, _str0$1); + var _term$37 = Kind$Term$app$(_term$36, $11430); + var $11439 = Parser$Reply$value$(_reply$pst$34, _term$37); + return $11439; + })())); + return $11438; + })())); + var $11431 = $11437; + break; + }; + var $11423 = $11431; break; }; - var $10082 = $10084; - break; - case 'Parser.Reply.value': - var $10088 = self.pst; - var $10089 = self.val; - var self = $10088; - switch (self._) { - case 'Parser.State.new': - var $10091 = self.err; - var $10092 = self.nam; - var $10093 = self.ini; - var $10094 = self.idx; - var $10095 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10081, $10091), $10092, $10093, $10094, $10095); - var _term$31 = Kind$Term$ref$("String.concat"); - var _term$32 = Kind$Term$app$(_term$31, _str0$1); - var _term$33 = Kind$Term$app$(_term$32, $10089); - var $10096 = Parser$Reply$value$(_reply$pst$30, _term$33); - var $10090 = $10096; - break; - }; - var $10082 = $10090; + var $11421 = $11423; break; }; - var $10080 = $10082; - break; - }; - var $10074 = $10080; + return $11421; + })())); + return $11420; + })())); + var $11413 = $11419; break; }; - var $10067 = $10074; + var $11406 = $11413; break; }; - var $10065 = $10067; + var $11404 = $11406; break; }; - return $10065; + return $11404; }; const Kind$Parser$string_concat = x0 => x1 => Kind$Parser$string_concat$(x0, x1); function Kind$Parser$sigma$(_val0$1) { - var $10097 = Kind$Parser$block("sigma")((_pst$2 => { + var $11440 = Kind$Parser$block("sigma")((_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10099 = self.err; + var $11442 = self.err; var _reply$8 = Kind$Parser$text$("~", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10101 = self.err; - var self = $10099; + var $11444 = self.err; + var self = $11442; switch (self._) { case 'Maybe.some': - var $10103 = self.value; - var $10104 = Parser$Reply$error$(Parser$Error$combine$($10103, $10101)); - var $10102 = $10104; + var $11446 = self.value; + var $11447 = Parser$Reply$error$(Parser$Error$combine$($11446, $11444)); + var $11445 = $11447; break; case 'Maybe.none': - var $10105 = Parser$Reply$error$($10101); - var $10102 = $10105; + var $11448 = Parser$Reply$error$($11444); + var $11445 = $11448; break; }; - var $10100 = $10102; + var $11443 = $11445; break; case 'Parser.Reply.value': - var $10106 = self.pst; - var self = $10106; + var $11449 = self.pst; + var self = $11449; switch (self._) { case 'Parser.State.new': - var $10108 = self.err; - var $10109 = self.nam; - var $10110 = self.ini; - var $10111 = self.idx; - var $10112 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10099, $10108), $10109, $10110, $10111, $10112); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10114 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $11451 = self.err; + var $11452 = self.nam; + var $11453 = self.ini; + var $11454 = self.idx; + var $11455 = self.str; + var $11456 = ((console.log(("FALTANDO " + $11455)), (_$16 => { + var $11457 = ((console.log(("VALUE " + $11452)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11442, $11451), $11452, $11453, $11454, $11455); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $10116 = self.err; - var self = $10114; + case 'Parser.State.new': + var $11459 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $10118 = self.value; - var $10119 = Parser$Reply$error$(Parser$Error$combine$($10118, $10116)); - var $10117 = $10119; + case 'Parser.Reply.error': + var $11461 = self.err; + var self = $11459; + switch (self._) { + case 'Maybe.some': + var $11463 = self.value; + var $11464 = Parser$Reply$error$(Parser$Error$combine$($11463, $11461)); + var $11462 = $11464; + break; + case 'Maybe.none': + var $11465 = Parser$Reply$error$($11461); + var $11462 = $11465; + break; + }; + var $11460 = $11462; break; - case 'Maybe.none': - var $10120 = Parser$Reply$error$($10116); - var $10117 = $10120; + case 'Parser.Reply.value': + var $11466 = self.pst; + var $11467 = self.val; + var self = $11466; + switch (self._) { + case 'Parser.State.new': + var $11469 = self.err; + var $11470 = self.nam; + var $11471 = self.ini; + var $11472 = self.idx; + var $11473 = self.str; + var $11474 = ((console.log(("FALTANDO " + $11473)), (_$32 => { + var $11475 = ((console.log(("VALUE " + $11470)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11459, $11469), $11470, $11471, $11472, $11473); + var _term$35 = Kind$Term$ref$("Sigma.new"); + var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); + var _term$37 = Kind$Term$app$(_term$36, Kind$Term$hol$(Bits$e)); + var _term$38 = Kind$Term$app$(_term$37, _val0$1); + var _term$39 = Kind$Term$app$(_term$38, $11467); + var $11476 = Parser$Reply$value$(_reply$pst$34, _term$39); + return $11476; + })())); + return $11475; + })())); + var $11468 = $11474; + break; + }; + var $11460 = $11468; break; }; - var $10115 = $10117; - break; - case 'Parser.Reply.value': - var $10121 = self.pst; - var $10122 = self.val; - var self = $10121; - switch (self._) { - case 'Parser.State.new': - var $10124 = self.err; - var $10125 = self.nam; - var $10126 = self.ini; - var $10127 = self.idx; - var $10128 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10114, $10124), $10125, $10126, $10127, $10128); - var _term$31 = Kind$Term$ref$("Sigma.new"); - var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); - var _term$33 = Kind$Term$app$(_term$32, Kind$Term$hol$(Bits$e)); - var _term$34 = Kind$Term$app$(_term$33, _val0$1); - var _term$35 = Kind$Term$app$(_term$34, $10122); - var $10129 = Parser$Reply$value$(_reply$pst$30, _term$35); - var $10123 = $10129; - break; - }; - var $10115 = $10123; + var $11458 = $11460; break; }; - var $10113 = $10115; - break; - }; - var $10107 = $10113; + return $11458; + })())); + return $11457; + })())); + var $11450 = $11456; break; }; - var $10100 = $10107; + var $11443 = $11450; break; }; - var $10098 = $10100; + var $11441 = $11443; break; }; - return $10098; + return $11441; })); - return $10097; + return $11440; }; const Kind$Parser$sigma = x0 => Kind$Parser$sigma$(x0); @@ -31700,97 +35946,109 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10131 = self.err; + var $11478 = self.err; var _reply$8 = Kind$Parser$text$("!=", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10133 = self.err; - var self = $10131; + var $11480 = self.err; + var self = $11478; switch (self._) { case 'Maybe.some': - var $10135 = self.value; - var $10136 = Parser$Reply$error$(Parser$Error$combine$($10135, $10133)); - var $10134 = $10136; + var $11482 = self.value; + var $11483 = Parser$Reply$error$(Parser$Error$combine$($11482, $11480)); + var $11481 = $11483; break; case 'Maybe.none': - var $10137 = Parser$Reply$error$($10133); - var $10134 = $10137; + var $11484 = Parser$Reply$error$($11480); + var $11481 = $11484; break; }; - var $10132 = $10134; + var $11479 = $11481; break; case 'Parser.Reply.value': - var $10138 = self.pst; - var self = $10138; + var $11485 = self.pst; + var self = $11485; switch (self._) { case 'Parser.State.new': - var $10140 = self.err; - var $10141 = self.nam; - var $10142 = self.ini; - var $10143 = self.idx; - var $10144 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10131, $10140), $10141, $10142, $10143, $10144); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10146 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $11487 = self.err; + var $11488 = self.nam; + var $11489 = self.ini; + var $11490 = self.idx; + var $11491 = self.str; + var $11492 = ((console.log(("FALTANDO " + $11491)), (_$16 => { + var $11493 = ((console.log(("VALUE " + $11488)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11478, $11487), $11488, $11489, $11490, $11491); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $10148 = self.err; - var self = $10146; + case 'Parser.State.new': + var $11495 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $10150 = self.value; - var $10151 = Parser$Reply$error$(Parser$Error$combine$($10150, $10148)); - var $10149 = $10151; + case 'Parser.Reply.error': + var $11497 = self.err; + var self = $11495; + switch (self._) { + case 'Maybe.some': + var $11499 = self.value; + var $11500 = Parser$Reply$error$(Parser$Error$combine$($11499, $11497)); + var $11498 = $11500; + break; + case 'Maybe.none': + var $11501 = Parser$Reply$error$($11497); + var $11498 = $11501; + break; + }; + var $11496 = $11498; break; - case 'Maybe.none': - var $10152 = Parser$Reply$error$($10148); - var $10149 = $10152; + case 'Parser.Reply.value': + var $11502 = self.pst; + var $11503 = self.val; + var self = $11502; + switch (self._) { + case 'Parser.State.new': + var $11505 = self.err; + var $11506 = self.nam; + var $11507 = self.ini; + var $11508 = self.idx; + var $11509 = self.str; + var $11510 = ((console.log(("FALTANDO " + $11509)), (_$32 => { + var $11511 = ((console.log(("VALUE " + $11506)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11495, $11505), $11506, $11507, $11508, $11509); + var _term$35 = Kind$Term$ref$("Equal"); + var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); + var _term$37 = Kind$Term$app$(_term$36, _val0$1); + var _term$38 = Kind$Term$app$(_term$37, $11503); + var _term$39 = Kind$Term$app$(Kind$Term$ref$("Not"), _term$38); + var $11512 = Parser$Reply$value$(_reply$pst$34, _term$39); + return $11512; + })())); + return $11511; + })())); + var $11504 = $11510; + break; + }; + var $11496 = $11504; break; }; - var $10147 = $10149; - break; - case 'Parser.Reply.value': - var $10153 = self.pst; - var $10154 = self.val; - var self = $10153; - switch (self._) { - case 'Parser.State.new': - var $10156 = self.err; - var $10157 = self.nam; - var $10158 = self.ini; - var $10159 = self.idx; - var $10160 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10146, $10156), $10157, $10158, $10159, $10160); - var _term$31 = Kind$Term$ref$("Equal"); - var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); - var _term$33 = Kind$Term$app$(_term$32, _val0$1); - var _term$34 = Kind$Term$app$(_term$33, $10154); - var _term$35 = Kind$Term$app$(Kind$Term$ref$("Not"), _term$34); - var $10161 = Parser$Reply$value$(_reply$pst$30, _term$35); - var $10155 = $10161; - break; - }; - var $10147 = $10155; + var $11494 = $11496; break; }; - var $10145 = $10147; - break; - }; - var $10139 = $10145; + return $11494; + })())); + return $11493; + })())); + var $11486 = $11492; break; }; - var $10132 = $10139; + var $11479 = $11486; break; }; - var $10130 = $10132; + var $11477 = $11479; break; }; - return $10130; + return $11477; }; const Kind$Parser$inequality = x0 => x1 => Kind$Parser$inequality$(x0, x1); @@ -31798,319 +36056,361 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10163 = self.err; + var $11514 = self.err; var _reply$8 = Kind$Parser$text$("::", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10165 = self.err; - var self = $10163; + var $11516 = self.err; + var self = $11514; switch (self._) { case 'Maybe.some': - var $10167 = self.value; - var $10168 = Parser$Reply$error$(Parser$Error$combine$($10167, $10165)); - var $10166 = $10168; + var $11518 = self.value; + var $11519 = Parser$Reply$error$(Parser$Error$combine$($11518, $11516)); + var $11517 = $11519; break; case 'Maybe.none': - var $10169 = Parser$Reply$error$($10165); - var $10166 = $10169; + var $11520 = Parser$Reply$error$($11516); + var $11517 = $11520; break; }; - var $10164 = $10166; + var $11515 = $11517; break; case 'Parser.Reply.value': - var $10170 = self.pst; - var self = $10170; + var $11521 = self.pst; + var self = $11521; switch (self._) { case 'Parser.State.new': - var $10172 = self.err; - var $10173 = self.nam; - var $10174 = self.ini; - var $10175 = self.idx; - var $10176 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10163, $10172), $10173, $10174, $10175, $10176); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10178 = self.err; - var _reply$22 = Kind$Parser$text$("rewrite", _reply$pst$16); - var self = _reply$22; + var $11523 = self.err; + var $11524 = self.nam; + var $11525 = self.ini; + var $11526 = self.idx; + var $11527 = self.str; + var $11528 = ((console.log(("FALTANDO " + $11527)), (_$16 => { + var $11529 = ((console.log(("VALUE " + $11524)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11514, $11523), $11524, $11525, $11526, $11527); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $10180 = self.err; - var self = $10178; + case 'Parser.State.new': + var $11531 = self.err; + var _reply$24 = Kind$Parser$text$("rewrite", _reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $10182 = self.value; - var $10183 = Parser$Reply$error$(Parser$Error$combine$($10182, $10180)); - var $10181 = $10183; - break; - case 'Maybe.none': - var $10184 = Parser$Reply$error$($10180); - var $10181 = $10184; - break; - }; - var $10179 = $10181; - break; - case 'Parser.Reply.value': - var $10185 = self.pst; - var self = $10185; - switch (self._) { - case 'Parser.State.new': - var $10187 = self.err; - var $10188 = self.nam; - var $10189 = self.ini; - var $10190 = self.idx; - var $10191 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10178, $10187), $10188, $10189, $10190, $10191); - var self = _reply$pst$30; + case 'Parser.Reply.error': + var $11533 = self.err; + var self = $11531; switch (self._) { - case 'Parser.State.new': - var $10193 = self.err; - var _reply$36 = Kind$Parser$name1$(_reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $10195 = self.err; - var self = $10193; - switch (self._) { - case 'Maybe.some': - var $10197 = self.value; - var $10198 = Parser$Reply$error$(Parser$Error$combine$($10197, $10195)); - var $10196 = $10198; - break; - case 'Maybe.none': - var $10199 = Parser$Reply$error$($10195); - var $10196 = $10199; - break; - }; - var $10194 = $10196; - break; - case 'Parser.Reply.value': - var $10200 = self.pst; - var $10201 = self.val; - var self = $10200; - switch (self._) { - case 'Parser.State.new': - var $10203 = self.err; - var $10204 = self.nam; - var $10205 = self.ini; - var $10206 = self.idx; - var $10207 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($10193, $10203), $10204, $10205, $10206, $10207); - var self = _reply$pst$44; - switch (self._) { - case 'Parser.State.new': - var $10209 = self.err; - var _reply$50 = Kind$Parser$text$("in", _reply$pst$44); - var self = _reply$50; - switch (self._) { - case 'Parser.Reply.error': - var $10211 = self.err; - var self = $10209; - switch (self._) { - case 'Maybe.some': - var $10213 = self.value; - var $10214 = Parser$Reply$error$(Parser$Error$combine$($10213, $10211)); - var $10212 = $10214; - break; - case 'Maybe.none': - var $10215 = Parser$Reply$error$($10211); - var $10212 = $10215; - break; - }; - var $10210 = $10212; - break; - case 'Parser.Reply.value': - var $10216 = self.pst; - var self = $10216; - switch (self._) { - case 'Parser.State.new': - var $10218 = self.err; - var $10219 = self.nam; - var $10220 = self.ini; - var $10221 = self.idx; - var $10222 = self.str; - var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($10209, $10218), $10219, $10220, $10221, $10222); - var self = _reply$pst$58; - switch (self._) { - case 'Parser.State.new': - var $10224 = self.err; - var _reply$64 = Kind$Parser$term(_reply$pst$58); - var self = _reply$64; - switch (self._) { - case 'Parser.Reply.error': - var $10226 = self.err; - var self = $10224; - switch (self._) { - case 'Maybe.some': - var $10228 = self.value; - var $10229 = Parser$Reply$error$(Parser$Error$combine$($10228, $10226)); - var $10227 = $10229; - break; - case 'Maybe.none': - var $10230 = Parser$Reply$error$($10226); - var $10227 = $10230; - break; - }; - var $10225 = $10227; - break; - case 'Parser.Reply.value': - var $10231 = self.pst; - var $10232 = self.val; - var self = $10231; - switch (self._) { - case 'Parser.State.new': - var $10234 = self.err; - var $10235 = self.nam; - var $10236 = self.ini; - var $10237 = self.idx; - var $10238 = self.str; - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($10224, $10234), $10235, $10236, $10237, $10238); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $10240 = self.err; - var _reply$78 = Kind$Parser$text$("with", _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $10242 = self.err; - var self = $10240; - switch (self._) { - case 'Maybe.some': - var $10244 = self.value; - var $10245 = Parser$Reply$error$(Parser$Error$combine$($10244, $10242)); - var $10243 = $10245; - break; - case 'Maybe.none': - var $10246 = Parser$Reply$error$($10242); - var $10243 = $10246; - break; - }; - var $10241 = $10243; - break; - case 'Parser.Reply.value': - var $10247 = self.pst; - var self = $10247; - switch (self._) { - case 'Parser.State.new': - var $10249 = self.err; - var $10250 = self.nam; - var $10251 = self.ini; - var $10252 = self.idx; - var $10253 = self.str; - var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($10240, $10249), $10250, $10251, $10252, $10253); - var self = _reply$pst$86; - switch (self._) { - case 'Parser.State.new': - var $10255 = self.err; - var _reply$92 = Kind$Parser$term(_reply$pst$86); - var self = _reply$92; - switch (self._) { - case 'Parser.Reply.error': - var $10257 = self.err; - var self = $10255; - switch (self._) { - case 'Maybe.some': - var $10259 = self.value; - var $10260 = Parser$Reply$error$(Parser$Error$combine$($10259, $10257)); - var $10258 = $10260; - break; - case 'Maybe.none': - var $10261 = Parser$Reply$error$($10257); - var $10258 = $10261; - break; - }; - var $10256 = $10258; - break; - case 'Parser.Reply.value': - var $10262 = self.pst; - var $10263 = self.val; - var self = $10262; - switch (self._) { - case 'Parser.State.new': - var $10265 = self.err; - var $10266 = self.nam; - var $10267 = self.ini; - var $10268 = self.idx; - var $10269 = self.str; - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($10255, $10265), $10266, $10267, $10268, $10269); - var _term$101 = Kind$Term$ref$("Equal.rewrite"); - var _term$102 = Kind$Term$app$(_term$101, Kind$Term$hol$(Bits$e)); - var _term$103 = Kind$Term$app$(_term$102, Kind$Term$hol$(Bits$e)); - var _term$104 = Kind$Term$app$(_term$103, Kind$Term$hol$(Bits$e)); - var _term$105 = Kind$Term$app$(_term$104, $10263); - var _term$106 = Kind$Term$app$(_term$105, Kind$Term$lam$($10201, (_x$106 => { - var $10271 = $10232; - return $10271; - }))); - var _term$107 = Kind$Term$app$(_term$106, _subt$1); - var $10270 = Parser$Reply$value$(_reply$pst$100, _term$107); - var $10264 = $10270; - break; - }; - var $10256 = $10264; - break; - }; - var $10254 = $10256; - break; - }; - var $10248 = $10254; - break; - }; - var $10241 = $10248; - break; - }; - var $10239 = $10241; - break; - }; - var $10233 = $10239; - break; - }; - var $10225 = $10233; - break; - }; - var $10223 = $10225; - break; - }; - var $10217 = $10223; - break; - }; - var $10210 = $10217; - break; - }; - var $10208 = $10210; - break; - }; - var $10202 = $10208; - break; - }; - var $10194 = $10202; - break; - }; - var $10192 = $10194; + case 'Maybe.some': + var $11535 = self.value; + var $11536 = Parser$Reply$error$(Parser$Error$combine$($11535, $11533)); + var $11534 = $11536; + break; + case 'Maybe.none': + var $11537 = Parser$Reply$error$($11533); + var $11534 = $11537; break; }; - var $10186 = $10192; + var $11532 = $11534; + break; + case 'Parser.Reply.value': + var $11538 = self.pst; + var self = $11538; + switch (self._) { + case 'Parser.State.new': + var $11540 = self.err; + var $11541 = self.nam; + var $11542 = self.ini; + var $11543 = self.idx; + var $11544 = self.str; + var $11545 = ((console.log(("FALTANDO " + $11544)), (_$32 => { + var $11546 = ((console.log(("VALUE " + $11541)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11531, $11540), $11541, $11542, $11543, $11544); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $11548 = self.err; + var _reply$40 = Kind$Parser$name1$(_reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $11550 = self.err; + var self = $11548; + switch (self._) { + case 'Maybe.some': + var $11552 = self.value; + var $11553 = Parser$Reply$error$(Parser$Error$combine$($11552, $11550)); + var $11551 = $11553; + break; + case 'Maybe.none': + var $11554 = Parser$Reply$error$($11550); + var $11551 = $11554; + break; + }; + var $11549 = $11551; + break; + case 'Parser.Reply.value': + var $11555 = self.pst; + var $11556 = self.val; + var self = $11555; + switch (self._) { + case 'Parser.State.new': + var $11558 = self.err; + var $11559 = self.nam; + var $11560 = self.ini; + var $11561 = self.idx; + var $11562 = self.str; + var $11563 = ((console.log(("FALTANDO " + $11562)), (_$48 => { + var $11564 = ((console.log(("VALUE " + $11559)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11548, $11558), $11559, $11560, $11561, $11562); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $11566 = self.err; + var _reply$56 = Kind$Parser$text$("in", _reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $11568 = self.err; + var self = $11566; + switch (self._) { + case 'Maybe.some': + var $11570 = self.value; + var $11571 = Parser$Reply$error$(Parser$Error$combine$($11570, $11568)); + var $11569 = $11571; + break; + case 'Maybe.none': + var $11572 = Parser$Reply$error$($11568); + var $11569 = $11572; + break; + }; + var $11567 = $11569; + break; + case 'Parser.Reply.value': + var $11573 = self.pst; + var self = $11573; + switch (self._) { + case 'Parser.State.new': + var $11575 = self.err; + var $11576 = self.nam; + var $11577 = self.ini; + var $11578 = self.idx; + var $11579 = self.str; + var $11580 = ((console.log(("FALTANDO " + $11579)), (_$64 => { + var $11581 = ((console.log(("VALUE " + $11576)), (_$65 => { + var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($11566, $11575), $11576, $11577, $11578, $11579); + var self = _reply$pst$66; + switch (self._) { + case 'Parser.State.new': + var $11583 = self.err; + var _reply$72 = Kind$Parser$term(_reply$pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $11585 = self.err; + var self = $11583; + switch (self._) { + case 'Maybe.some': + var $11587 = self.value; + var $11588 = Parser$Reply$error$(Parser$Error$combine$($11587, $11585)); + var $11586 = $11588; + break; + case 'Maybe.none': + var $11589 = Parser$Reply$error$($11585); + var $11586 = $11589; + break; + }; + var $11584 = $11586; + break; + case 'Parser.Reply.value': + var $11590 = self.pst; + var $11591 = self.val; + var self = $11590; + switch (self._) { + case 'Parser.State.new': + var $11593 = self.err; + var $11594 = self.nam; + var $11595 = self.ini; + var $11596 = self.idx; + var $11597 = self.str; + var $11598 = ((console.log(("FALTANDO " + $11597)), (_$80 => { + var $11599 = ((console.log(("VALUE " + $11594)), (_$81 => { + var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($11583, $11593), $11594, $11595, $11596, $11597); + var self = _reply$pst$82; + switch (self._) { + case 'Parser.State.new': + var $11601 = self.err; + var _reply$88 = Kind$Parser$text$("with", _reply$pst$82); + var self = _reply$88; + switch (self._) { + case 'Parser.Reply.error': + var $11603 = self.err; + var self = $11601; + switch (self._) { + case 'Maybe.some': + var $11605 = self.value; + var $11606 = Parser$Reply$error$(Parser$Error$combine$($11605, $11603)); + var $11604 = $11606; + break; + case 'Maybe.none': + var $11607 = Parser$Reply$error$($11603); + var $11604 = $11607; + break; + }; + var $11602 = $11604; + break; + case 'Parser.Reply.value': + var $11608 = self.pst; + var self = $11608; + switch (self._) { + case 'Parser.State.new': + var $11610 = self.err; + var $11611 = self.nam; + var $11612 = self.ini; + var $11613 = self.idx; + var $11614 = self.str; + var $11615 = ((console.log(("FALTANDO " + $11614)), (_$96 => { + var $11616 = ((console.log(("VALUE " + $11611)), (_$97 => { + var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($11601, $11610), $11611, $11612, $11613, $11614); + var self = _reply$pst$98; + switch (self._) { + case 'Parser.State.new': + var $11618 = self.err; + var _reply$104 = Kind$Parser$term(_reply$pst$98); + var self = _reply$104; + switch (self._) { + case 'Parser.Reply.error': + var $11620 = self.err; + var self = $11618; + switch (self._) { + case 'Maybe.some': + var $11622 = self.value; + var $11623 = Parser$Reply$error$(Parser$Error$combine$($11622, $11620)); + var $11621 = $11623; + break; + case 'Maybe.none': + var $11624 = Parser$Reply$error$($11620); + var $11621 = $11624; + break; + }; + var $11619 = $11621; + break; + case 'Parser.Reply.value': + var $11625 = self.pst; + var $11626 = self.val; + var self = $11625; + switch (self._) { + case 'Parser.State.new': + var $11628 = self.err; + var $11629 = self.nam; + var $11630 = self.ini; + var $11631 = self.idx; + var $11632 = self.str; + var $11633 = ((console.log(("FALTANDO " + $11632)), (_$112 => { + var $11634 = ((console.log(("VALUE " + $11629)), (_$113 => { + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($11618, $11628), $11629, $11630, $11631, $11632); + var _term$115 = Kind$Term$ref$("Equal.rewrite"); + var _term$116 = Kind$Term$app$(_term$115, Kind$Term$hol$(Bits$e)); + var _term$117 = Kind$Term$app$(_term$116, Kind$Term$hol$(Bits$e)); + var _term$118 = Kind$Term$app$(_term$117, Kind$Term$hol$(Bits$e)); + var _term$119 = Kind$Term$app$(_term$118, $11626); + var _term$120 = Kind$Term$app$(_term$119, Kind$Term$lam$($11556, (_x$120 => { + var $11636 = $11591; + return $11636; + }))); + var _term$121 = Kind$Term$app$(_term$120, _subt$1); + var $11635 = Parser$Reply$value$(_reply$pst$114, _term$121); + return $11635; + })())); + return $11634; + })())); + var $11627 = $11633; + break; + }; + var $11619 = $11627; + break; + }; + var $11617 = $11619; + break; + }; + return $11617; + })())); + return $11616; + })())); + var $11609 = $11615; + break; + }; + var $11602 = $11609; + break; + }; + var $11600 = $11602; + break; + }; + return $11600; + })())); + return $11599; + })())); + var $11592 = $11598; + break; + }; + var $11584 = $11592; + break; + }; + var $11582 = $11584; + break; + }; + return $11582; + })())); + return $11581; + })())); + var $11574 = $11580; + break; + }; + var $11567 = $11574; + break; + }; + var $11565 = $11567; + break; + }; + return $11565; + })())); + return $11564; + })())); + var $11557 = $11563; + break; + }; + var $11549 = $11557; + break; + }; + var $11547 = $11549; + break; + }; + return $11547; + })())); + return $11546; + })())); + var $11539 = $11545; + break; + }; + var $11532 = $11539; break; }; - var $10179 = $10186; + var $11530 = $11532; break; }; - var $10177 = $10179; - break; - }; - var $10171 = $10177; + return $11530; + })())); + return $11529; + })())); + var $11522 = $11528; break; }; - var $10164 = $10171; + var $11515 = $11522; break; }; - var $10162 = $10164; + var $11513 = $11515; break; }; - return $10162; + return $11513; }; const Kind$Parser$rewrite = x0 => x1 => Kind$Parser$rewrite$(x0, x1); @@ -32118,92 +36418,104 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10273 = self.err; + var $11638 = self.err; var _reply$8 = Kind$Parser$text$("::", _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10275 = self.err; - var self = $10273; + var $11640 = self.err; + var self = $11638; switch (self._) { case 'Maybe.some': - var $10277 = self.value; - var $10278 = Parser$Reply$error$(Parser$Error$combine$($10277, $10275)); - var $10276 = $10278; + var $11642 = self.value; + var $11643 = Parser$Reply$error$(Parser$Error$combine$($11642, $11640)); + var $11641 = $11643; break; case 'Maybe.none': - var $10279 = Parser$Reply$error$($10275); - var $10276 = $10279; + var $11644 = Parser$Reply$error$($11640); + var $11641 = $11644; break; }; - var $10274 = $10276; + var $11639 = $11641; break; case 'Parser.Reply.value': - var $10280 = self.pst; - var self = $10280; + var $11645 = self.pst; + var self = $11645; switch (self._) { case 'Parser.State.new': - var $10282 = self.err; - var $10283 = self.nam; - var $10284 = self.ini; - var $10285 = self.idx; - var $10286 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10273, $10282), $10283, $10284, $10285, $10286); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10288 = self.err; - var _reply$22 = Kind$Parser$term(_reply$pst$16); - var self = _reply$22; + var $11647 = self.err; + var $11648 = self.nam; + var $11649 = self.ini; + var $11650 = self.idx; + var $11651 = self.str; + var $11652 = ((console.log(("FALTANDO " + $11651)), (_$16 => { + var $11653 = ((console.log(("VALUE " + $11648)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11638, $11647), $11648, $11649, $11650, $11651); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $10290 = self.err; - var self = $10288; + case 'Parser.State.new': + var $11655 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $10292 = self.value; - var $10293 = Parser$Reply$error$(Parser$Error$combine$($10292, $10290)); - var $10291 = $10293; + case 'Parser.Reply.error': + var $11657 = self.err; + var self = $11655; + switch (self._) { + case 'Maybe.some': + var $11659 = self.value; + var $11660 = Parser$Reply$error$(Parser$Error$combine$($11659, $11657)); + var $11658 = $11660; + break; + case 'Maybe.none': + var $11661 = Parser$Reply$error$($11657); + var $11658 = $11661; + break; + }; + var $11656 = $11658; break; - case 'Maybe.none': - var $10294 = Parser$Reply$error$($10290); - var $10291 = $10294; + case 'Parser.Reply.value': + var $11662 = self.pst; + var $11663 = self.val; + var self = $11662; + switch (self._) { + case 'Parser.State.new': + var $11665 = self.err; + var $11666 = self.nam; + var $11667 = self.ini; + var $11668 = self.idx; + var $11669 = self.str; + var $11670 = ((console.log(("FALTANDO " + $11669)), (_$32 => { + var $11671 = ((console.log(("VALUE " + $11666)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11655, $11665), $11666, $11667, $11668, $11669); + var $11672 = Parser$Reply$value$(_reply$pst$34, Kind$Term$ann$(Bool$false, _term$1, $11663)); + return $11672; + })())); + return $11671; + })())); + var $11664 = $11670; + break; + }; + var $11656 = $11664; break; }; - var $10289 = $10291; - break; - case 'Parser.Reply.value': - var $10295 = self.pst; - var $10296 = self.val; - var self = $10295; - switch (self._) { - case 'Parser.State.new': - var $10298 = self.err; - var $10299 = self.nam; - var $10300 = self.ini; - var $10301 = self.idx; - var $10302 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10288, $10298), $10299, $10300, $10301, $10302); - var $10303 = Parser$Reply$value$(_reply$pst$30, Kind$Term$ann$(Bool$false, _term$1, $10296)); - var $10297 = $10303; - break; - }; - var $10289 = $10297; + var $11654 = $11656; break; }; - var $10287 = $10289; - break; - }; - var $10281 = $10287; + return $11654; + })())); + return $11653; + })())); + var $11646 = $11652; break; }; - var $10274 = $10281; + var $11639 = $11646; break; }; - var $10272 = $10274; + var $11637 = $11639; break; }; - return $10272; + return $11637; }; const Kind$Parser$annotation = x0 => x1 => Kind$Parser$annotation$(x0, x1); @@ -32211,48 +36523,54 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10305 = self.err; + var $11674 = self.err; var _reply$8 = Kind$Parser$text_now$("!")(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10307 = self.err; - var self = $10305; + var $11676 = self.err; + var self = $11674; switch (self._) { case 'Maybe.some': - var $10309 = self.value; - var $10310 = Parser$Reply$error$(Parser$Error$combine$($10309, $10307)); - var $10308 = $10310; + var $11678 = self.value; + var $11679 = Parser$Reply$error$(Parser$Error$combine$($11678, $11676)); + var $11677 = $11679; break; case 'Maybe.none': - var $10311 = Parser$Reply$error$($10307); - var $10308 = $10311; + var $11680 = Parser$Reply$error$($11676); + var $11677 = $11680; break; }; - var $10306 = $10308; + var $11675 = $11677; break; case 'Parser.Reply.value': - var $10312 = self.pst; - var self = $10312; + var $11681 = self.pst; + var self = $11681; switch (self._) { case 'Parser.State.new': - var $10314 = self.err; - var $10315 = self.nam; - var $10316 = self.ini; - var $10317 = self.idx; - var $10318 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10305, $10314), $10315, $10316, $10317, $10318); - var $10319 = Parser$Reply$value$(_reply$pst$16, Kind$Term$app$(_term$1, Kind$Term$hol$(Bits$e))); - var $10313 = $10319; + var $11683 = self.err; + var $11684 = self.nam; + var $11685 = self.ini; + var $11686 = self.idx; + var $11687 = self.str; + var $11688 = ((console.log(("FALTANDO " + $11687)), (_$16 => { + var $11689 = ((console.log(("VALUE " + $11684)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11674, $11683), $11684, $11685, $11686, $11687); + var $11690 = Parser$Reply$value$(_reply$pst$18, Kind$Term$app$(_term$1, Kind$Term$hol$(Bits$e))); + return $11690; + })())); + return $11689; + })())); + var $11682 = $11688; break; }; - var $10306 = $10313; + var $11675 = $11682; break; }; - var $10304 = $10306; + var $11673 = $11675; break; }; - return $10304; + return $11673; }; const Kind$Parser$application$hole = x0 => x1 => Kind$Parser$application$hole$(x0, x1); @@ -32269,35 +36587,35 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10320 = self.err; - var $10321 = self.nam; - var $10322 = self.ini; - var $10323 = self.idx; - var $10324 = self.str; + var $11691 = self.err; + var $11692 = self.nam; + var $11693 = self.ini; + var $11694 = self.idx; + var $11695 = self.str; var _suffix_parser$8 = Parser$choice(List$cons$(Kind$Parser$application(_term$1), List$cons$(Kind$Parser$application$erased(_term$1), List$cons$(Kind$Parser$list_set(_term$1), List$cons$(Kind$Parser$list_get(_term$1), List$cons$(Kind$Parser$map_set(_term$1), List$cons$(Kind$Parser$map_get(_term$1), List$cons$(Kind$Parser$field_set(_term$1), List$cons$(Kind$Parser$field_get(_term$1), List$cons$(Kind$Parser$arrow(_term$1), List$cons$(Kind$Parser$concat(_term$1), List$cons$(Kind$Parser$equality(_term$1), List$cons$(Kind$Parser$add(_term$1), List$cons$(Kind$Parser$sub(_term$1), List$cons$(Kind$Parser$mul(_term$1), List$cons$(Kind$Parser$div(_term$1), List$cons$(Kind$Parser$mod(_term$1), List$cons$(Kind$Parser$ltn(_term$1), List$cons$(Kind$Parser$lte(_term$1), List$cons$(Kind$Parser$eql(_term$1), List$cons$(Kind$Parser$gte(_term$1), List$cons$(Kind$Parser$gtn(_term$1), List$cons$(Kind$Parser$and(_term$1), List$cons$(Kind$Parser$or(_term$1), List$cons$(Kind$Parser$composition(_term$1), List$cons$(Kind$Parser$default(_term$1), List$cons$(Kind$Parser$cons(_term$1), List$cons$(Kind$Parser$string_concat(_term$1), List$cons$(Kind$Parser$sigma$(_term$1), List$cons$(Kind$Parser$inequality(_term$1), List$cons$(Kind$Parser$rewrite(_term$1), List$cons$(Kind$Parser$annotation(_term$1), List$cons$(Kind$Parser$application$hole(_term$1), List$nil))))))))))))))))))))))))))))))))); var self = _suffix_parser$8(_pst$2); switch (self._) { case 'Parser.Reply.error': - var $10326 = self.err; - var self = $10326; + var $11697 = self.err; + var self = $11697; switch (self._) { case 'Parser.Error.new': - var _err$14 = Parser$Error$maybe_combine$($10320, Maybe$some$($10326)); - var _pst$15 = Parser$State$new$(_err$14, $10321, $10322, $10323, $10324); - var $10328 = Parser$Reply$value$(_pst$15, _term$1); - var $10327 = $10328; + var _err$14 = Parser$Error$maybe_combine$($11691, Maybe$some$($11697)); + var _pst$15 = Parser$State$new$(_err$14, $11692, $11693, $11694, $11695); + var $11699 = Parser$Reply$value$(_pst$15, _term$1); + var $11698 = $11699; break; }; - var $10325 = $10327; + var $11696 = $11698; break; case 'Parser.Reply.value': - var $10329 = self.pst; - var $10330 = self.val; - var $10331 = Kind$Parser$term$suffix$($10330, $10329); - var $10325 = $10331; + var $11700 = self.pst; + var $11701 = self.val; + var $11702 = Kind$Parser$term$suffix$($11701, $11700); + var $11696 = $11702; break; }; - return $10325; + return $11696; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -32309,438 +36627,480 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10333 = self.err; + var $11704 = self.err; var _reply$7 = Parser$choice$(List$cons$(Kind$Parser$dom, List$cons$(Kind$Parser$forall, List$cons$(Kind$Parser$lambda, List$cons$(Kind$Parser$lambda$erased, List$cons$(Kind$Parser$parenthesis, List$cons$(Kind$Parser$letforrange$u32$((_x$7 => { - var $10335 = Kind$Parser$term; - return $10335; + var $11706 = Kind$Parser$term; + return $11706; })), List$cons$(Kind$Parser$letforrange$u32$with$((_x$7 => { - var $10336 = Kind$Parser$term; - return $10336; + var $11707 = Kind$Parser$term; + return $11707; })), List$cons$(Kind$Parser$letforrange$i32$((_x$7 => { - var $10337 = Kind$Parser$term; - return $10337; + var $11708 = Kind$Parser$term; + return $11708; })), List$cons$(Kind$Parser$letforrange$i32$with$((_x$7 => { - var $10338 = Kind$Parser$term; - return $10338; + var $11709 = Kind$Parser$term; + return $11709; })), List$cons$(Kind$Parser$letforrange$nat$((_x$7 => { - var $10339 = Kind$Parser$term; - return $10339; + var $11710 = Kind$Parser$term; + return $11710; })), List$cons$(Kind$Parser$letforrange$nat$with$((_x$7 => { - var $10340 = Kind$Parser$term; - return $10340; + var $11711 = Kind$Parser$term; + return $11711; })), List$cons$(Kind$Parser$letforin$((_x$7 => { - var $10341 = Kind$Parser$term; - return $10341; + var $11712 = Kind$Parser$term; + return $11712; })), List$cons$(Kind$Parser$letforin$with$((_x$7 => { - var $10342 = Kind$Parser$term; - return $10342; + var $11713 = Kind$Parser$term; + return $11713; })), List$cons$(Kind$Parser$letforinmap$((_x$7 => { - var $10343 = Kind$Parser$term; - return $10343; + var $11714 = Kind$Parser$term; + return $11714; })), List$cons$(Kind$Parser$letforinmap$with$((_x$7 => { - var $10344 = Kind$Parser$term; - return $10344; + var $11715 = Kind$Parser$term; + return $11715; })), List$cons$(Kind$Parser$letwhile$((_x$7 => { - var $10345 = Kind$Parser$term; - return $10345; + var $11716 = Kind$Parser$term; + return $11716; })), List$cons$(Kind$Parser$letwhile$with$((_x$7 => { - var $10346 = Kind$Parser$term; - return $10346; + var $11717 = Kind$Parser$term; + return $11717; })), List$cons$(Kind$Parser$let$abort$((_x$7 => { - var $10347 = Kind$Parser$term; - return $10347; + var $11718 = Kind$Parser$term; + return $11718; })), List$cons$(Kind$Parser$let$((_x$7 => { - var $10348 = Kind$Parser$term; - return $10348; + var $11719 = Kind$Parser$term; + return $11719; })), List$cons$(Kind$Parser$let$omit$((_x$7 => { - var $10349 = Kind$Parser$term; - return $10349; + var $11720 = Kind$Parser$term; + return $11720; })), List$cons$(Kind$Parser$getwhile$((_x$7 => { - var $10350 = Kind$Parser$term; - return $10350; + var $11721 = Kind$Parser$term; + return $11721; })), List$cons$(Kind$Parser$getwhile$with((_x$7 => { - var $10351 = Kind$Parser$term; - return $10351; + var $11722 = Kind$Parser$term; + return $11722; })), List$cons$(Kind$Parser$get$((_x$7 => { - var $10352 = Kind$Parser$term; - return $10352; + var $11723 = Kind$Parser$term; + return $11723; })), List$cons$(Kind$Parser$get$omit$((_x$7 => { - var $10353 = Kind$Parser$term; - return $10353; + var $11724 = Kind$Parser$term; + return $11724; })), List$cons$(Kind$Parser$def$((_x$7 => { - var $10354 = Kind$Parser$term; - return $10354; + var $11725 = Kind$Parser$term; + return $11725; })), List$cons$(Kind$Parser$use$abort$((_x$7 => { - var $10355 = Kind$Parser$term; - return $10355; + var $11726 = Kind$Parser$term; + return $11726; })), List$cons$(Kind$Parser$use$((_x$7 => { - var $10356 = Kind$Parser$term; - return $10356; + var $11727 = Kind$Parser$term; + return $11727; })), List$cons$(Kind$Parser$goal_rewrite, List$cons$(Kind$Parser$if, List$cons$(Kind$Parser$char, List$cons$(Kind$Parser$string$(34), List$cons$(Kind$Parser$string$(96), List$cons$(Kind$Parser$new, List$cons$(Kind$Parser$sigma$type, List$cons$(Kind$Parser$some, List$cons$(Kind$Parser$not, List$cons$(Kind$Parser$left, List$cons$(Kind$Parser$right, List$cons$(Kind$Parser$apply, List$cons$(Kind$Parser$chain, List$cons$(Kind$Parser$mirror, List$cons$(Kind$Parser$comprehension, List$cons$(Kind$Parser$comprehension_range, List$cons$(Kind$Parser$list, List$cons$(Kind$Parser$map, List$cons$(Kind$Parser$log$((_x$7 => { - var $10357 = Kind$Parser$term; - return $10357; + var $11728 = Kind$Parser$term; + return $11728; })), List$cons$(Kind$Parser$do, List$cons$(Kind$Parser$case, List$cons$(Kind$Parser$open$((_x$7 => { - var $10358 = Kind$Parser$term; - return $10358; + var $11729 = Kind$Parser$term; + return $11729; })), List$cons$(Kind$Parser$without, List$cons$(Kind$Parser$switch, List$cons$(Kind$Parser$goal, List$cons$(Kind$Parser$hole, List$cons$(Kind$Parser$float$64, List$cons$(Kind$Parser$float$32, List$cons$(Kind$Parser$machine_integer$signed$(256n), List$cons$(Kind$Parser$machine_integer$signed$(128n), List$cons$(Kind$Parser$machine_integer$signed$(64n), List$cons$(Kind$Parser$machine_integer$signed$(32n), List$cons$(Kind$Parser$machine_integer$signed$(16n), List$cons$(Kind$Parser$machine_integer$signed$(8n), List$cons$(Kind$Parser$machine_integer$unsigned$(256n), List$cons$(Kind$Parser$machine_integer$unsigned$(128n), List$cons$(Kind$Parser$machine_integer$unsigned$(64n), List$cons$(Kind$Parser$machine_integer$unsigned$(32n), List$cons$(Kind$Parser$machine_integer$unsigned$(16n), List$cons$(Kind$Parser$machine_integer$unsigned$(8n), List$cons$(Kind$Parser$u64, List$cons$(Kind$Parser$u32, List$cons$(Kind$Parser$u16, List$cons$(Kind$Parser$u8, List$cons$(Kind$Parser$num, List$cons$(Kind$Parser$reference, List$cons$((_pst$7 => { var self = _pst$7; switch (self._) { case 'Parser.State.new': - var $10360 = self.err; + var $11731 = self.err; var _reply$13 = Kind$Parser$spaces(_pst$7); var self = _reply$13; switch (self._) { case 'Parser.Reply.error': - var $10362 = self.err; - var self = $10360; + var $11733 = self.err; + var self = $11731; switch (self._) { case 'Maybe.some': - var $10364 = self.value; - var $10365 = Parser$Reply$error$(Parser$Error$combine$($10364, $10362)); - var $10363 = $10365; + var $11735 = self.value; + var $11736 = Parser$Reply$error$(Parser$Error$combine$($11735, $11733)); + var $11734 = $11736; break; case 'Maybe.none': - var $10366 = Parser$Reply$error$($10362); - var $10363 = $10366; + var $11737 = Parser$Reply$error$($11733); + var $11734 = $11737; break; }; - var $10361 = $10363; + var $11732 = $11734; break; case 'Parser.Reply.value': - var $10367 = self.pst; - var self = $10367; + var $11738 = self.pst; + var self = $11738; switch (self._) { case 'Parser.State.new': - var $10369 = self.err; - var $10370 = self.nam; - var $10371 = self.ini; - var $10372 = self.idx; - var $10373 = self.str; - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($10360, $10369), $10370, $10371, $10372, $10373); - var $10374 = Parser$fail$("Expected a term.", _reply$pst$21); - var $10368 = $10374; + var $11740 = self.err; + var $11741 = self.nam; + var $11742 = self.ini; + var $11743 = self.idx; + var $11744 = self.str; + var $11745 = ((console.log(("FALTANDO " + $11744)), (_$21 => { + var $11746 = ((console.log(("VALUE " + $11741)), (_$22 => { + var _reply$pst$23 = Parser$State$new$(Parser$Error$maybe_combine$($11731, $11740), $11741, $11742, $11743, $11744); + var $11747 = Parser$fail$("Expected a term.", _reply$pst$23); + return $11747; + })())); + return $11746; + })())); + var $11739 = $11745; break; }; - var $10361 = $10368; + var $11732 = $11739; break; }; - var $10359 = $10361; + var $11730 = $11732; break; }; - return $10359; + return $11730; }), List$nil)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))), _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10375 = self.err; - var self = $10333; + var $11748 = self.err; + var self = $11704; switch (self._) { case 'Maybe.some': - var $10377 = self.value; - var $10378 = Parser$Reply$error$(Parser$Error$combine$($10377, $10375)); - var $10376 = $10378; + var $11750 = self.value; + var $11751 = Parser$Reply$error$(Parser$Error$combine$($11750, $11748)); + var $11749 = $11751; break; case 'Maybe.none': - var $10379 = Parser$Reply$error$($10375); - var $10376 = $10379; + var $11752 = Parser$Reply$error$($11748); + var $11749 = $11752; break; }; - var $10334 = $10376; + var $11705 = $11749; break; case 'Parser.Reply.value': - var $10380 = self.pst; - var $10381 = self.val; - var self = $10380; + var $11753 = self.pst; + var $11754 = self.val; + var self = $11753; switch (self._) { case 'Parser.State.new': - var $10383 = self.err; - var $10384 = self.nam; - var $10385 = self.ini; - var $10386 = self.idx; - var $10387 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10333, $10383), $10384, $10385, $10386, $10387); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $10389 = self.err; - var _reply$21 = Kind$Parser$term$suffix$($10381, _reply$pst$15); - var self = _reply$21; + var $11756 = self.err; + var $11757 = self.nam; + var $11758 = self.ini; + var $11759 = self.idx; + var $11760 = self.str; + var $11761 = ((console.log(("FALTANDO " + $11760)), (_$15 => { + var $11762 = ((console.log(("VALUE " + $11757)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($11704, $11756), $11757, $11758, $11759, $11760); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $10391 = self.err; - var self = $10389; + case 'Parser.State.new': + var $11764 = self.err; + var _reply$23 = Kind$Parser$term$suffix$($11754, _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $10393 = self.value; - var $10394 = Parser$Reply$error$(Parser$Error$combine$($10393, $10391)); - var $10392 = $10394; + case 'Parser.Reply.error': + var $11766 = self.err; + var self = $11764; + switch (self._) { + case 'Maybe.some': + var $11768 = self.value; + var $11769 = Parser$Reply$error$(Parser$Error$combine$($11768, $11766)); + var $11767 = $11769; + break; + case 'Maybe.none': + var $11770 = Parser$Reply$error$($11766); + var $11767 = $11770; + break; + }; + var $11765 = $11767; break; - case 'Maybe.none': - var $10395 = Parser$Reply$error$($10391); - var $10392 = $10395; + case 'Parser.Reply.value': + var $11771 = self.pst; + var $11772 = self.val; + var self = $11771; + switch (self._) { + case 'Parser.State.new': + var $11774 = self.err; + var $11775 = self.nam; + var $11776 = self.ini; + var $11777 = self.idx; + var $11778 = self.str; + var $11779 = ((console.log(("FALTANDO " + $11778)), (_$31 => { + var $11780 = ((console.log(("VALUE " + $11775)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($11764, $11774), $11775, $11776, $11777, $11778); + var $11781 = Parser$Reply$value$(_reply$pst$33, $11772); + return $11781; + })())); + return $11780; + })())); + var $11773 = $11779; + break; + }; + var $11765 = $11773; break; }; - var $10390 = $10392; - break; - case 'Parser.Reply.value': - var $10396 = self.pst; - var $10397 = self.val; - var self = $10396; - switch (self._) { - case 'Parser.State.new': - var $10399 = self.err; - var $10400 = self.nam; - var $10401 = self.ini; - var $10402 = self.idx; - var $10403 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10389, $10399), $10400, $10401, $10402, $10403); - var $10404 = Parser$Reply$value$(_reply$pst$29, $10397); - var $10398 = $10404; - break; - }; - var $10390 = $10398; + var $11763 = $11765; break; }; - var $10388 = $10390; - break; - }; - var $10382 = $10388; + return $11763; + })())); + return $11762; + })())); + var $11755 = $11761; break; }; - var $10334 = $10382; + var $11705 = $11755; break; }; - var $10332 = $10334; + var $11703 = $11705; break; }; - return $10332; + return $11703; })); function Kind$Parser$name_term$(_sep$1, _pst$2) { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10406 = self.err; + var $11783 = self.err; var _reply$8 = Kind$Parser$name$(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10408 = self.err; - var self = $10406; + var $11785 = self.err; + var self = $11783; switch (self._) { case 'Maybe.some': - var $10410 = self.value; - var $10411 = Parser$Reply$error$(Parser$Error$combine$($10410, $10408)); - var $10409 = $10411; + var $11787 = self.value; + var $11788 = Parser$Reply$error$(Parser$Error$combine$($11787, $11785)); + var $11786 = $11788; break; case 'Maybe.none': - var $10412 = Parser$Reply$error$($10408); - var $10409 = $10412; + var $11789 = Parser$Reply$error$($11785); + var $11786 = $11789; break; }; - var $10407 = $10409; + var $11784 = $11786; break; case 'Parser.Reply.value': - var $10413 = self.pst; - var $10414 = self.val; - var self = $10413; + var $11790 = self.pst; + var $11791 = self.val; + var self = $11790; switch (self._) { case 'Parser.State.new': - var $10416 = self.err; - var $10417 = self.nam; - var $10418 = self.ini; - var $10419 = self.idx; - var $10420 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10406, $10416), $10417, $10418, $10419, $10420); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10422 = self.err; - var _reply$22 = Kind$Parser$text$(_sep$1, _reply$pst$16); - var self = _reply$22; + var $11793 = self.err; + var $11794 = self.nam; + var $11795 = self.ini; + var $11796 = self.idx; + var $11797 = self.str; + var $11798 = ((console.log(("FALTANDO " + $11797)), (_$16 => { + var $11799 = ((console.log(("VALUE " + $11794)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11783, $11793), $11794, $11795, $11796, $11797); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $10424 = self.err; - var self = $10422; + case 'Parser.State.new': + var $11801 = self.err; + var _reply$24 = Kind$Parser$text$(_sep$1, _reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $10426 = self.value; - var $10427 = Parser$Reply$error$(Parser$Error$combine$($10426, $10424)); - var $10425 = $10427; - break; - case 'Maybe.none': - var $10428 = Parser$Reply$error$($10424); - var $10425 = $10428; - break; - }; - var $10423 = $10425; - break; - case 'Parser.Reply.value': - var $10429 = self.pst; - var self = $10429; - switch (self._) { - case 'Parser.State.new': - var $10431 = self.err; - var $10432 = self.nam; - var $10433 = self.ini; - var $10434 = self.idx; - var $10435 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10422, $10431), $10432, $10433, $10434, $10435); - var self = _reply$pst$30; + case 'Parser.Reply.error': + var $11803 = self.err; + var self = $11801; switch (self._) { - case 'Parser.State.new': - var $10437 = self.err; - var _reply$36 = Kind$Parser$term(_reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $10439 = self.err; - var self = $10437; - switch (self._) { - case 'Maybe.some': - var $10441 = self.value; - var $10442 = Parser$Reply$error$(Parser$Error$combine$($10441, $10439)); - var $10440 = $10442; - break; - case 'Maybe.none': - var $10443 = Parser$Reply$error$($10439); - var $10440 = $10443; - break; - }; - var $10438 = $10440; - break; - case 'Parser.Reply.value': - var $10444 = self.pst; - var $10445 = self.val; - var self = $10444; - switch (self._) { - case 'Parser.State.new': - var $10447 = self.err; - var $10448 = self.nam; - var $10449 = self.ini; - var $10450 = self.idx; - var $10451 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($10437, $10447), $10448, $10449, $10450, $10451); - var $10452 = Parser$Reply$value$(_reply$pst$44, Pair$new$($10414, $10445)); - var $10446 = $10452; - break; - }; - var $10438 = $10446; - break; - }; - var $10436 = $10438; + case 'Maybe.some': + var $11805 = self.value; + var $11806 = Parser$Reply$error$(Parser$Error$combine$($11805, $11803)); + var $11804 = $11806; + break; + case 'Maybe.none': + var $11807 = Parser$Reply$error$($11803); + var $11804 = $11807; break; }; - var $10430 = $10436; + var $11802 = $11804; + break; + case 'Parser.Reply.value': + var $11808 = self.pst; + var self = $11808; + switch (self._) { + case 'Parser.State.new': + var $11810 = self.err; + var $11811 = self.nam; + var $11812 = self.ini; + var $11813 = self.idx; + var $11814 = self.str; + var $11815 = ((console.log(("FALTANDO " + $11814)), (_$32 => { + var $11816 = ((console.log(("VALUE " + $11811)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11801, $11810), $11811, $11812, $11813, $11814); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $11818 = self.err; + var _reply$40 = Kind$Parser$term(_reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $11820 = self.err; + var self = $11818; + switch (self._) { + case 'Maybe.some': + var $11822 = self.value; + var $11823 = Parser$Reply$error$(Parser$Error$combine$($11822, $11820)); + var $11821 = $11823; + break; + case 'Maybe.none': + var $11824 = Parser$Reply$error$($11820); + var $11821 = $11824; + break; + }; + var $11819 = $11821; + break; + case 'Parser.Reply.value': + var $11825 = self.pst; + var $11826 = self.val; + var self = $11825; + switch (self._) { + case 'Parser.State.new': + var $11828 = self.err; + var $11829 = self.nam; + var $11830 = self.ini; + var $11831 = self.idx; + var $11832 = self.str; + var $11833 = ((console.log(("FALTANDO " + $11832)), (_$48 => { + var $11834 = ((console.log(("VALUE " + $11829)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11818, $11828), $11829, $11830, $11831, $11832); + var $11835 = Parser$Reply$value$(_reply$pst$50, Pair$new$($11791, $11826)); + return $11835; + })())); + return $11834; + })())); + var $11827 = $11833; + break; + }; + var $11819 = $11827; + break; + }; + var $11817 = $11819; + break; + }; + return $11817; + })())); + return $11816; + })())); + var $11809 = $11815; + break; + }; + var $11802 = $11809; break; }; - var $10423 = $10430; + var $11800 = $11802; break; }; - var $10421 = $10423; - break; - }; - var $10415 = $10421; + return $11800; + })())); + return $11799; + })())); + var $11792 = $11798; break; }; - var $10407 = $10415; + var $11784 = $11792; break; }; - var $10405 = $10407; + var $11782 = $11784; break; }; - return $10405; + return $11782; }; const Kind$Parser$name_term = x0 => x1 => Kind$Parser$name_term$(x0, x1); function Kind$Binder$new$(_eras$1, _name$2, _term$3) { - var $10453 = ({ + var $11836 = ({ _: 'Kind.Binder.new', 'eras': _eras$1, 'name': _name$2, 'term': _term$3 }); - return $10453; + return $11836; }; const Kind$Binder$new = x0 => x1 => x2 => Kind$Binder$new$(x0, x1, x2); function Kind$Parser$binder$homo$(_sep$1, _eras$2) { var self = _eras$2; if (self) { - var $10455 = "<"; - var _open$3 = $10455; + var $11838 = "<"; + var _open$3 = $11838; } else { - var $10456 = "("; - var _open$3 = $10456; + var $11839 = "("; + var _open$3 = $11839; }; var self = _eras$2; if (self) { - var $10457 = ">"; - var _clos$4 = $10457; + var $11840 = ">"; + var _clos$4 = $11840; } else { - var $10458 = ")"; - var _clos$4 = $10458; + var $11841 = ")"; + var _clos$4 = $11841; }; - var $10454 = (_pst$5 => { + var $11837 = (_pst$5 => { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $10460 = self.err; + var $11843 = self.err; var _reply$11 = Kind$Parser$items1$(_open$3, Kind$Parser$name_term(_sep$1), _clos$4)(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $10462 = self.err; - var self = $10460; + var $11845 = self.err; + var self = $11843; switch (self._) { case 'Maybe.some': - var $10464 = self.value; - var $10465 = Parser$Reply$error$(Parser$Error$combine$($10464, $10462)); - var $10463 = $10465; + var $11847 = self.value; + var $11848 = Parser$Reply$error$(Parser$Error$combine$($11847, $11845)); + var $11846 = $11848; break; case 'Maybe.none': - var $10466 = Parser$Reply$error$($10462); - var $10463 = $10466; + var $11849 = Parser$Reply$error$($11845); + var $11846 = $11849; break; }; - var $10461 = $10463; + var $11844 = $11846; break; case 'Parser.Reply.value': - var $10467 = self.pst; - var $10468 = self.val; - var self = $10467; + var $11850 = self.pst; + var $11851 = self.val; + var self = $11850; switch (self._) { case 'Parser.State.new': - var $10470 = self.err; - var $10471 = self.nam; - var $10472 = self.ini; - var $10473 = self.idx; - var $10474 = self.str; - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($10460, $10470), $10471, $10472, $10473, $10474); - var $10475 = Parser$Reply$value$(_reply$pst$19, List$mapped$($10468, (_pair$20 => { - var self = _pair$20; - switch (self._) { - case 'Pair.new': - var $10477 = self.fst; - var $10478 = self.snd; - var $10479 = Kind$Binder$new$(_eras$2, $10477, $10478); - var $10476 = $10479; - break; - }; - return $10476; - }))); - var $10469 = $10475; + var $11853 = self.err; + var $11854 = self.nam; + var $11855 = self.ini; + var $11856 = self.idx; + var $11857 = self.str; + var $11858 = ((console.log(("FALTANDO " + $11857)), (_$19 => { + var $11859 = ((console.log(("VALUE " + $11854)), (_$20 => { + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($11843, $11853), $11854, $11855, $11856, $11857); + var $11860 = Parser$Reply$value$(_reply$pst$21, List$mapped$($11851, (_pair$22 => { + var self = _pair$22; + switch (self._) { + case 'Pair.new': + var $11862 = self.fst; + var $11863 = self.snd; + var $11864 = Kind$Binder$new$(_eras$2, $11862, $11863); + var $11861 = $11864; + break; + }; + return $11861; + }))); + return $11860; + })())); + return $11859; + })())); + var $11852 = $11858; break; }; - var $10461 = $10469; + var $11844 = $11852; break; }; - var $10459 = $10461; + var $11842 = $11844; break; }; - return $10459; + return $11842; }); - return $10454; + return $11837; }; const Kind$Parser$binder$homo = x0 => x1 => Kind$Parser$binder$homo$(x0, x1); @@ -32748,17 +37108,17 @@ module.exports = (function() { var self = _as$2; switch (self._) { case 'List.cons': - var $10481 = self.head; - var $10482 = self.tail; - var $10483 = List$cons$($10481, List$concat$($10482, _bs$3)); - var $10480 = $10483; + var $11866 = self.head; + var $11867 = self.tail; + var $11868 = List$cons$($11866, List$concat$($11867, _bs$3)); + var $11865 = $11868; break; case 'List.nil': - var $10484 = _bs$3; - var $10480 = $10484; + var $11869 = _bs$3; + var $11865 = $11869; break; }; - return $10480; + return $11865; }; const List$concat = x0 => x1 => List$concat$(x0, x1); @@ -32766,17 +37126,17 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $10486 = self.head; - var $10487 = self.tail; - var $10488 = List$concat$($10486, List$flatten$($10487)); - var $10485 = $10488; + var $11871 = self.head; + var $11872 = self.tail; + var $11873 = List$concat$($11871, List$flatten$($11872)); + var $11870 = $11873; break; case 'List.nil': - var $10489 = List$nil; - var $10485 = $10489; + var $11874 = List$nil; + var $11870 = $11874; break; }; - return $10485; + return $11870; }; const List$flatten = x0 => List$flatten$(x0); @@ -32784,133 +37144,128 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10491 = self.err; + var $11876 = self.err; var _reply$8 = Parser$many1$(Parser$choice(List$cons$(Kind$Parser$binder$homo$(_sep$1, Bool$true), List$cons$(Kind$Parser$binder$homo$(_sep$1, Bool$false), List$nil))), _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10493 = self.err; - var self = $10491; + var $11878 = self.err; + var self = $11876; switch (self._) { case 'Maybe.some': - var $10495 = self.value; - var $10496 = Parser$Reply$error$(Parser$Error$combine$($10495, $10493)); - var $10494 = $10496; + var $11880 = self.value; + var $11881 = Parser$Reply$error$(Parser$Error$combine$($11880, $11878)); + var $11879 = $11881; break; case 'Maybe.none': - var $10497 = Parser$Reply$error$($10493); - var $10494 = $10497; + var $11882 = Parser$Reply$error$($11878); + var $11879 = $11882; break; }; - var $10492 = $10494; + var $11877 = $11879; break; case 'Parser.Reply.value': - var $10498 = self.pst; - var $10499 = self.val; - var self = $10498; + var $11883 = self.pst; + var $11884 = self.val; + var self = $11883; switch (self._) { case 'Parser.State.new': - var $10501 = self.err; - var $10502 = self.nam; - var $10503 = self.ini; - var $10504 = self.idx; - var $10505 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10491, $10501), $10502, $10503, $10504, $10505); - var $10506 = Parser$Reply$value$(_reply$pst$16, List$flatten$($10499)); - var $10500 = $10506; + var $11886 = self.err; + var $11887 = self.nam; + var $11888 = self.ini; + var $11889 = self.idx; + var $11890 = self.str; + var $11891 = ((console.log(("FALTANDO " + $11890)), (_$16 => { + var $11892 = ((console.log(("VALUE " + $11887)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11876, $11886), $11887, $11888, $11889, $11890); + var $11893 = Parser$Reply$value$(_reply$pst$18, List$flatten$($11884)); + return $11893; + })())); + return $11892; + })())); + var $11885 = $11891; break; }; - var $10492 = $10500; + var $11877 = $11885; break; }; - var $10490 = $10492; + var $11875 = $11877; break; }; - return $10490; + return $11875; }; const Kind$Parser$binder = x0 => x1 => Kind$Parser$binder$(x0, x1); - const List$length = a0 => (list_length(a0)); function Kind$Parser$forall$make$(_binds$1, _body$2) { var self = _binds$1; switch (self._) { case 'List.cons': - var $10508 = self.head; - var $10509 = self.tail; - var self = $10508; + var $11895 = self.head; + var $11896 = self.tail; + var self = $11895; switch (self._) { case 'Kind.Binder.new': - var $10511 = self.eras; - var $10512 = self.name; - var $10513 = self.term; - var $10514 = Kind$Term$all$($10511, "", $10512, $10513, (_s$8 => _x$9 => { - var $10515 = Kind$Parser$forall$make$($10509, _body$2); - return $10515; + var $11898 = self.eras; + var $11899 = self.name; + var $11900 = self.term; + var $11901 = Kind$Term$all$($11898, "", $11899, $11900, (_s$8 => _x$9 => { + var $11902 = Kind$Parser$forall$make$($11896, _body$2); + return $11902; })); - var $10510 = $10514; + var $11897 = $11901; break; }; - var $10507 = $10510; + var $11894 = $11897; break; case 'List.nil': - var $10516 = _body$2; - var $10507 = $10516; + var $11903 = _body$2; + var $11894 = $11903; break; }; - return $10507; + return $11894; }; const Kind$Parser$forall$make = x0 => x1 => Kind$Parser$forall$make$(x0, x1); function List$at_last$(_index$2, _list$3) { - var $10517 = List$at$(_index$2, List$reverse$(_list$3)); - return $10517; + var $11904 = List$at$(_index$2, List$reverse$(_list$3)); + return $11904; }; const List$at_last = x0 => x1 => List$at_last$(x0, x1); - function Kind$Term$var$(_name$1, _indx$2) { - var $10518 = ({ - _: 'Kind.Term.var', - 'name': _name$1, - 'indx': _indx$2 - }); - return $10518; - }; - const Kind$Term$var = x0 => x1 => Kind$Term$var$(x0, x1); - function Kind$Context$get_name_skips$(_name$1) { var self = _name$1; if (self.length === 0) { - var $10520 = Pair$new$("", 0n); - var $10519 = $10520; + var $11906 = Pair$new$("", 0n); + var $11905 = $11906; } else { - var $10521 = self.charCodeAt(0); - var $10522 = self.slice(1); - var _name_skips$4 = Kind$Context$get_name_skips$($10522); + var $11907 = self.charCodeAt(0); + var $11908 = self.slice(1); + var _name_skips$4 = Kind$Context$get_name_skips$($11908); var self = _name_skips$4; switch (self._) { case 'Pair.new': - var $10524 = self.fst; - var $10525 = self.snd; - var self = ($10521 === 94); + var $11910 = self.fst; + var $11911 = self.snd; + var self = ($11907 === 94); if (self) { - var $10527 = Pair$new$($10524, Nat$succ$($10525)); - var $10526 = $10527; + var $11913 = Pair$new$($11910, Nat$succ$($11911)); + var $11912 = $11913; } else { - var $10528 = Pair$new$(String$cons$($10521, $10524), $10525); - var $10526 = $10528; + var $11914 = Pair$new$(String$cons$($11907, $11910), $11911); + var $11912 = $11914; }; - var $10523 = $10526; + var $11909 = $11912; break; }; - var $10519 = $10523; + var $11905 = $11909; }; - return $10519; + return $11905; }; const Kind$Context$get_name_skips = x0 => Kind$Context$get_name_skips$(x0); function Kind$Name$eql$(_a$1, _b$2) { - var $10529 = (_a$1 === _b$2); - return $10529; + var $11915 = (_a$1 === _b$2); + return $11915; }; const Kind$Name$eql = x0 => x1 => Kind$Name$eql$(x0, x1); @@ -32927,36 +37282,36 @@ module.exports = (function() { var self = _ctx$3; switch (self._) { case 'List.cons': - var $10530 = self.head; - var $10531 = self.tail; - var self = $10530; + var $11916 = self.head; + var $11917 = self.tail; + var self = $11916; switch (self._) { case 'Pair.new': - var $10533 = self.fst; - var $10534 = self.snd; - var self = Kind$Name$eql$(_name$1, $10533); + var $11919 = self.fst; + var $11920 = self.snd; + var self = Kind$Name$eql$(_name$1, $11919); if (self) { var self = _skip$2; if (self === 0n) { - var $10537 = Maybe$some$($10534); - var $10536 = $10537; + var $11923 = Maybe$some$($11920); + var $11922 = $11923; } else { - var $10538 = (self - 1n); - var $10539 = Kind$Context$find$go$(_name$1, $10538, $10531); - var $10536 = $10539; + var $11924 = (self - 1n); + var $11925 = Kind$Context$find$go$(_name$1, $11924, $11917); + var $11922 = $11925; }; - var $10535 = $10536; + var $11921 = $11922; } else { - var $10540 = Kind$Context$find$go$(_name$1, _skip$2, $10531); - var $10535 = $10540; + var $11926 = Kind$Context$find$go$(_name$1, _skip$2, $11917); + var $11921 = $11926; }; - var $10532 = $10535; + var $11918 = $11921; break; }; - return $10532; + return $11918; case 'List.nil': - var $10541 = Maybe$none; - return $10541; + var $11927 = Maybe$none; + return $11927; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -32969,66 +37324,48 @@ module.exports = (function() { var self = Kind$Context$get_name_skips$(_name$1); switch (self._) { case 'Pair.new': - var $10543 = self.fst; - var $10544 = self.snd; - var $10545 = Kind$Context$find$go$($10543, $10544, _ctx$2); - var $10542 = $10545; + var $11929 = self.fst; + var $11930 = self.snd; + var $11931 = Kind$Context$find$go$($11929, $11930, _ctx$2); + var $11928 = $11931; break; }; - return $10542; + return $11928; }; const Kind$Context$find = x0 => x1 => Kind$Context$find$(x0, x1); - function Kind$Path$Builder$o$(_path$1, _x$2) { - var $10546 = _path$1((_x$2 + '0')); - return $10546; - }; - const Kind$Path$Builder$o = x0 => x1 => Kind$Path$Builder$o$(x0, x1); - - function Kind$Path$Builder$i$(_path$1, _x$2) { - var $10547 = _path$1((_x$2 + '1')); - return $10547; - }; - const Kind$Path$Builder$i = x0 => x1 => Kind$Path$Builder$i$(x0, x1); - - function Kind$Path$Builder$to_bits$(_path$1) { - var $10548 = _path$1(Bits$e); - return $10548; - }; - const Kind$Path$Builder$to_bits = x0 => Kind$Path$Builder$to_bits$(x0); - function List$imapped$(_as$2, _f$4) { var self = _as$2; switch (self._) { case 'List.cons': - var $10550 = self.head; - var $10551 = self.tail; - var $10552 = List$cons$(_f$4(0n)($10550), List$imapped$($10551, (_n$7 => { - var $10553 = _f$4(Nat$succ$(_n$7)); - return $10553; + var $11933 = self.head; + var $11934 = self.tail; + var $11935 = List$cons$(_f$4(0n)($11933), List$imapped$($11934, (_n$7 => { + var $11936 = _f$4(Nat$succ$(_n$7)); + return $11936; }))); - var $10549 = $10552; + var $11932 = $11935; break; case 'List.nil': - var $10554 = List$nil; - var $10549 = $10554; + var $11937 = List$nil; + var $11932 = $11937; break; }; - return $10549; + return $11932; }; const List$imapped = x0 => x1 => List$imapped$(x0, x1); function Kind$Path$Builder$nat$(_n$1, _b$2) { var self = _n$1; if (self === 0n) { - var $10556 = Kind$Path$Builder$o(_b$2); - var $10555 = $10556; + var $11939 = Kind$Path$Builder$o(_b$2); + var $11938 = $11939; } else { - var $10557 = (self - 1n); - var $10558 = Kind$Path$Builder$i(Kind$Path$Builder$nat$($10557, _b$2)); - var $10555 = $10558; + var $11940 = (self - 1n); + var $11941 = Kind$Path$Builder$i(Kind$Path$Builder$nat$($11940, _b$2)); + var $11938 = $11941; }; - return $10555; + return $11938; }; const Kind$Path$Builder$nat = x0 => x1 => Kind$Path$Builder$nat$(x0, x1); @@ -33036,214 +37373,214 @@ module.exports = (function() { var self = _term$3; switch (self._) { case 'Kind.Term.var': - var $10560 = self.name; - var $10561 = self.indx; - var self = List$at_last$($10561, _vars$1); + var $11943 = self.name; + var $11944 = self.indx; + var self = List$at_last$($11944, _vars$1); switch (self._) { case 'Maybe.some': - var $10563 = self.value; - var $10564 = Pair$snd$($10563); - var $10562 = $10564; + var $11946 = self.value; + var $11947 = Pair$snd$($11946); + var $11945 = $11947; break; case 'Maybe.none': - var $10565 = Kind$Term$var$($10560, $10561); - var $10562 = $10565; + var $11948 = Kind$Term$var$($11943, $11944); + var $11945 = $11948; break; }; - var $10559 = $10562; + var $11942 = $11945; break; case 'Kind.Term.ref': - var $10566 = self.name; - var self = Kind$Context$find$($10566, _vars$1); + var $11949 = self.name; + var self = Kind$Context$find$($11949, _vars$1); switch (self._) { case 'Maybe.some': - var $10568 = self.value; - var $10569 = $10568; - var $10567 = $10569; + var $11951 = self.value; + var $11952 = $11951; + var $11950 = $11952; break; case 'Maybe.none': - var $10570 = Kind$Term$ref$($10566); - var $10567 = $10570; + var $11953 = Kind$Term$ref$($11949); + var $11950 = $11953; break; }; - var $10559 = $10567; + var $11942 = $11950; break; case 'Kind.Term.all': - var $10571 = self.eras; - var $10572 = self.self; - var $10573 = self.name; - var $10574 = self.xtyp; - var $10575 = self.body; + var $11954 = self.eras; + var $11955 = self.self; + var $11956 = self.name; + var $11957 = self.xtyp; + var $11958 = self.body; var _vlen$9 = (list_length(_vars$1)); - var $10576 = Kind$Term$all$($10571, $10572, $10573, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10574), (_s$10 => _x$11 => { - var $10577 = Kind$Term$bind$(List$cons$(Pair$new$($10573, _x$11), List$cons$(Pair$new$($10572, _s$10), _vars$1)), Kind$Path$Builder$i(_path$2), $10575(Kind$Term$var$($10572, _vlen$9))(Kind$Term$var$($10573, Nat$succ$(_vlen$9)))); - return $10577; + var $11959 = Kind$Term$all$($11954, $11955, $11956, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11957), (_s$10 => _x$11 => { + var $11960 = Kind$Term$bind$(List$cons$(Pair$new$($11956, _x$11), List$cons$(Pair$new$($11955, _s$10), _vars$1)), Kind$Path$Builder$i(_path$2), $11958(Kind$Term$var$($11955, _vlen$9))(Kind$Term$var$($11956, Nat$succ$(_vlen$9)))); + return $11960; })); - var $10559 = $10576; + var $11942 = $11959; break; case 'Kind.Term.lam': - var $10578 = self.name; - var $10579 = self.body; + var $11961 = self.name; + var $11962 = self.body; var _vlen$6 = (list_length(_vars$1)); - var $10580 = Kind$Term$lam$($10578, (_x$7 => { - var $10581 = Kind$Term$bind$(List$cons$(Pair$new$($10578, _x$7), _vars$1), Kind$Path$Builder$o(_path$2), $10579(Kind$Term$var$($10578, _vlen$6))); - return $10581; + var $11963 = Kind$Term$lam$($11961, (_x$7 => { + var $11964 = Kind$Term$bind$(List$cons$(Pair$new$($11961, _x$7), _vars$1), Kind$Path$Builder$o(_path$2), $11962(Kind$Term$var$($11961, _vlen$6))); + return $11964; })); - var $10559 = $10580; + var $11942 = $11963; break; case 'Kind.Term.app': - var $10582 = self.func; - var $10583 = self.argm; - var $10584 = Kind$Term$app$(Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10582), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $10583)); - var $10559 = $10584; + var $11965 = self.func; + var $11966 = self.argm; + var $11967 = Kind$Term$app$(Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11965), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11966)); + var $11942 = $11967; break; case 'Kind.Term.let': - var $10585 = self.name; - var $10586 = self.expr; - var $10587 = self.body; + var $11968 = self.name; + var $11969 = self.expr; + var $11970 = self.body; var _vlen$7 = (list_length(_vars$1)); - var $10588 = Kind$Term$let$($10585, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10586), (_x$8 => { - var $10589 = Kind$Term$bind$(List$cons$(Pair$new$($10585, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $10587(Kind$Term$var$($10585, _vlen$7))); - return $10589; + var $11971 = Kind$Term$let$($11968, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11969), (_x$8 => { + var $11972 = Kind$Term$bind$(List$cons$(Pair$new$($11968, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $11970(Kind$Term$var$($11968, _vlen$7))); + return $11972; })); - var $10559 = $10588; + var $11942 = $11971; break; case 'Kind.Term.def': - var $10590 = self.name; - var $10591 = self.expr; - var $10592 = self.body; + var $11973 = self.name; + var $11974 = self.expr; + var $11975 = self.body; var _vlen$7 = (list_length(_vars$1)); - var $10593 = Kind$Term$def$($10590, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10591), (_x$8 => { - var $10594 = Kind$Term$bind$(List$cons$(Pair$new$($10590, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $10592(Kind$Term$var$($10590, _vlen$7))); - return $10594; + var $11976 = Kind$Term$def$($11973, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11974), (_x$8 => { + var $11977 = Kind$Term$bind$(List$cons$(Pair$new$($11973, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $11975(Kind$Term$var$($11973, _vlen$7))); + return $11977; })); - var $10559 = $10593; + var $11942 = $11976; break; case 'Kind.Term.ann': - var $10595 = self.done; - var $10596 = self.term; - var $10597 = self.type; - var $10598 = Kind$Term$ann$($10595, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10596), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $10597)); - var $10559 = $10598; + var $11978 = self.done; + var $11979 = self.term; + var $11980 = self.type; + var $11981 = Kind$Term$ann$($11978, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11979), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11980)); + var $11942 = $11981; break; case 'Kind.Term.gol': - var $10599 = self.name; - var $10600 = self.dref; - var $10601 = self.verb; - var $10602 = Kind$Term$gol$($10599, $10600, $10601); - var $10559 = $10602; + var $11982 = self.name; + var $11983 = self.dref; + var $11984 = self.verb; + var $11985 = Kind$Term$gol$($11982, $11983, $11984); + var $11942 = $11985; break; case 'Kind.Term.nat': - var $10603 = self.natx; - var $10604 = Kind$Term$nat$($10603); - var $10559 = $10604; + var $11986 = self.natx; + var $11987 = Kind$Term$nat$($11986); + var $11942 = $11987; break; case 'Kind.Term.chr': - var $10605 = self.chrx; - var $10606 = Kind$Term$chr$($10605); - var $10559 = $10606; + var $11988 = self.chrx; + var $11989 = Kind$Term$chr$($11988); + var $11942 = $11989; break; case 'Kind.Term.str': - var $10607 = self.strx; - var $10608 = Kind$Term$str$($10607); - var $10559 = $10608; + var $11990 = self.strx; + var $11991 = Kind$Term$str$($11990); + var $11942 = $11991; break; case 'Kind.Term.num': - var $10609 = self.sign; - var $10610 = self.numb; - var $10611 = self.frac; - var $10612 = Kind$Term$num$($10609, $10610, $10611); - var $10559 = $10612; + var $11992 = self.sign; + var $11993 = self.numb; + var $11994 = self.frac; + var $11995 = Kind$Term$num$($11992, $11993, $11994); + var $11942 = $11995; break; case 'Kind.Term.cse': - var $10613 = self.expr; - var $10614 = self.name; - var $10615 = self.with; - var $10616 = self.cses; - var $10617 = self.moti; - var _expr$10 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10613); - var _name$11 = $10614; - var _wyth$12 = List$mapped$($10615, (_with_var$12 => { + var $11996 = self.expr; + var $11997 = self.name; + var $11998 = self.with; + var $11999 = self.cses; + var $12000 = self.moti; + var _expr$10 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11996); + var _name$11 = $11997; + var _wyth$12 = List$mapped$($11998, (_with_var$12 => { var self = _with_var$12; switch (self._) { case 'Kind.Ann.new': - var $10620 = self.name; - var $10621 = self.term; - var $10622 = self.type; - var _with_var_term$16 = Kind$Term$bind$(_vars$1, _path$2, $10621); - var self = $10622; + var $12003 = self.name; + var $12004 = self.term; + var $12005 = self.type; + var _with_var_term$16 = Kind$Term$bind$(_vars$1, _path$2, $12004); + var self = $12005; switch (self._) { case 'Maybe.some': - var $10624 = self.value; - var $10625 = Maybe$some$(Kind$Term$bind$(_vars$1, _path$2, $10624)); - var _with_var_type$17 = $10625; + var $12007 = self.value; + var $12008 = Maybe$some$(Kind$Term$bind$(_vars$1, _path$2, $12007)); + var _with_var_type$17 = $12008; break; case 'Maybe.none': - var $10626 = Maybe$none; - var _with_var_type$17 = $10626; + var $12009 = Maybe$none; + var _with_var_type$17 = $12009; break; }; - var $10623 = Kind$Ann$new$($10620, _with_var_term$16, _with_var_type$17); - var $10619 = $10623; + var $12006 = Kind$Ann$new$($12003, _with_var_term$16, _with_var_type$17); + var $12002 = $12006; break; }; - return $10619; + return $12002; })); - var _cses$13 = $10616; - var _moti$14 = $10617; - var $10618 = Kind$Term$cse$(Kind$Path$Builder$to_bits$(_path$2), _expr$10, _name$11, _wyth$12, _cses$13, _moti$14); - var $10559 = $10618; + var _cses$13 = $11999; + var _moti$14 = $12000; + var $12001 = Kind$Term$cse$(Kind$Path$Builder$to_bits$(_path$2), _expr$10, _name$11, _wyth$12, _cses$13, _moti$14); + var $11942 = $12001; break; case 'Kind.Term.new': - var $10627 = self.args; - var _args$5 = List$imapped$($10627, (_idx$5 => _arg$6 => { - var $10629 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$nat$(_idx$5, _path$2), _arg$6); - return $10629; + var $12010 = self.args; + var _args$5 = List$imapped$($12010, (_idx$5 => _arg$6 => { + var $12012 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$nat$(_idx$5, _path$2), _arg$6); + return $12012; })); - var $10628 = Kind$Term$new$(_args$5); - var $10559 = $10628; + var $12011 = Kind$Term$new$(_args$5); + var $11942 = $12011; break; case 'Kind.Term.get': - var $10630 = self.expr; - var $10631 = self.fkey; - var _expr$6 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10630); - var $10632 = Kind$Term$get$(_expr$6, $10631); - var $10559 = $10632; + var $12013 = self.expr; + var $12014 = self.fkey; + var _expr$6 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $12013); + var $12015 = Kind$Term$get$(_expr$6, $12014); + var $11942 = $12015; break; case 'Kind.Term.set': - var $10633 = self.expr; - var $10634 = self.fkey; - var $10635 = self.fval; - var _expr$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10633); - var _fval$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $10635); - var $10636 = Kind$Term$set$(_expr$7, $10634, _fval$8); - var $10559 = $10636; + var $12016 = self.expr; + var $12017 = self.fkey; + var $12018 = self.fval; + var _expr$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $12016); + var _fval$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $12018); + var $12019 = Kind$Term$set$(_expr$7, $12017, _fval$8); + var $11942 = $12019; break; case 'Kind.Term.ope': - var $10637 = self.name; - var $10638 = self.arg0; - var $10639 = self.arg1; - var _arg0$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10638); - var _arg1$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $10639); - var $10640 = Kind$Term$ope$($10637, _arg0$7, _arg1$8); - var $10559 = $10640; + var $12020 = self.name; + var $12021 = self.arg0; + var $12022 = self.arg1; + var _arg0$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $12021); + var _arg1$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $12022); + var $12023 = Kind$Term$ope$($12020, _arg0$7, _arg1$8); + var $11942 = $12023; break; case 'Kind.Term.ori': - var $10641 = self.orig; - var $10642 = self.expr; - var $10643 = Kind$Term$ori$($10641, Kind$Term$bind$(_vars$1, _path$2, $10642)); - var $10559 = $10643; + var $12024 = self.orig; + var $12025 = self.expr; + var $12026 = Kind$Term$ori$($12024, Kind$Term$bind$(_vars$1, _path$2, $12025)); + var $11942 = $12026; break; case 'Kind.Term.typ': - var $10644 = Kind$Term$typ; - var $10559 = $10644; + var $12027 = Kind$Term$typ; + var $11942 = $12027; break; case 'Kind.Term.hol': - var $10645 = Kind$Term$hol$(Kind$Path$Builder$to_bits$(_path$2)); - var $10559 = $10645; + var $12028 = Kind$Term$hol$(Kind$Path$Builder$to_bits$(_path$2)); + var $11942 = $12028; break; }; - return $10559; + return $11942; }; const Kind$Term$bind = x0 => x1 => x2 => Kind$Term$bind$(x0, x1, x2); @@ -33260,13 +37597,13 @@ module.exports = (function() { var self = _t$2; switch (self._) { case 'Trampoline.done': - var $10646 = self.value; - var $10647 = $10646; - return $10647; + var $12029 = self.value; + var $12030 = $12029; + return $12030; case 'Trampoline.wrap': - var $10648 = self.value; - var $10649 = Trampoline$call$($10648(Unit$new)); - return $10649; + var $12031 = self.value; + var $12032 = Trampoline$call$($12031(Unit$new)); + return $12032; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -33276,17 +37613,17 @@ module.exports = (function() { const Trampoline$call = x0 => Trampoline$call$(x0); function Trampoline$(_A$1) { - var $10650 = null; - return $10650; + var $12033 = null; + return $12033; }; const Trampoline = x0 => Trampoline$(x0); function Trampoline$wrap$(_value$2) { - var $10651 = ({ + var $12034 = ({ _: 'Trampoline.wrap', 'value': _value$2 }); - return $10651; + return $12034; }; const Trampoline$wrap = x0 => Trampoline$wrap$(x0); @@ -33303,90 +37640,90 @@ module.exports = (function() { var self = _bits$2; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $10652 = self.slice(0, -1); + var $12035 = self.slice(0, -1); var self = _map$4; switch (self._) { case 'BitsMap.tie': - var $10654 = self.val; - var $10655 = self.lft; - var $10656 = self.rgt; - var $10657 = BitsMap$set_if_empty$cps$go$($10652, _val$3, $10655, (_lft$10 => { - var $10658 = Trampoline$wrap$((_$11 => { - var $10659 = _cont$5(BitsMap$tie$($10654, _lft$10, $10656)); - return $10659; + var $12037 = self.val; + var $12038 = self.lft; + var $12039 = self.rgt; + var $12040 = BitsMap$set_if_empty$cps$go$($12035, _val$3, $12038, (_lft$10 => { + var $12041 = Trampoline$wrap$((_$11 => { + var $12042 = _cont$5(BitsMap$tie$($12037, _lft$10, $12039)); + return $12042; })); - return $10658; + return $12041; })); - var $10653 = $10657; + var $12036 = $12040; break; case 'BitsMap.new': - var $10660 = BitsMap$set_if_empty$cps$go$($10652, _val$3, BitsMap$new, (_lft$7 => { - var $10661 = Trampoline$wrap$((_$8 => { - var $10662 = _cont$5(BitsMap$tie$(Maybe$none, _lft$7, BitsMap$new)); - return $10662; + var $12043 = BitsMap$set_if_empty$cps$go$($12035, _val$3, BitsMap$new, (_lft$7 => { + var $12044 = Trampoline$wrap$((_$8 => { + var $12045 = _cont$5(BitsMap$tie$(Maybe$none, _lft$7, BitsMap$new)); + return $12045; })); - return $10661; + return $12044; })); - var $10653 = $10660; + var $12036 = $12043; break; }; - return $10653; + return $12036; case 'i': - var $10663 = self.slice(0, -1); + var $12046 = self.slice(0, -1); var self = _map$4; switch (self._) { case 'BitsMap.tie': - var $10665 = self.val; - var $10666 = self.lft; - var $10667 = self.rgt; - var $10668 = BitsMap$set_if_empty$cps$go$($10663, _val$3, $10667, (_rgt$10 => { - var $10669 = Trampoline$wrap$((_$11 => { - var $10670 = _cont$5(BitsMap$tie$($10665, $10666, _rgt$10)); - return $10670; + var $12048 = self.val; + var $12049 = self.lft; + var $12050 = self.rgt; + var $12051 = BitsMap$set_if_empty$cps$go$($12046, _val$3, $12050, (_rgt$10 => { + var $12052 = Trampoline$wrap$((_$11 => { + var $12053 = _cont$5(BitsMap$tie$($12048, $12049, _rgt$10)); + return $12053; })); - return $10669; + return $12052; })); - var $10664 = $10668; + var $12047 = $12051; break; case 'BitsMap.new': - var $10671 = BitsMap$set_if_empty$cps$go$($10663, _val$3, BitsMap$new, (_rgt$7 => { - var $10672 = Trampoline$wrap$((_$8 => { - var $10673 = _cont$5(BitsMap$tie$(Maybe$none, BitsMap$new, _rgt$7)); - return $10673; + var $12054 = BitsMap$set_if_empty$cps$go$($12046, _val$3, BitsMap$new, (_rgt$7 => { + var $12055 = Trampoline$wrap$((_$8 => { + var $12056 = _cont$5(BitsMap$tie$(Maybe$none, BitsMap$new, _rgt$7)); + return $12056; })); - return $10672; + return $12055; })); - var $10664 = $10671; + var $12047 = $12054; break; }; - return $10664; + return $12047; case 'e': var self = _map$4; switch (self._) { case 'BitsMap.tie': - var $10675 = self.val; - var $10676 = self.lft; - var $10677 = self.rgt; - var $10678 = _cont$5(BitsMap$tie$((() => { - var self = $10675; + var $12058 = self.val; + var $12059 = self.lft; + var $12060 = self.rgt; + var $12061 = _cont$5(BitsMap$tie$((() => { + var self = $12058; switch (self._) { case 'Maybe.some': - var $10679 = self.value; - var $10680 = Maybe$some$($10679); - return $10680; + var $12062 = self.value; + var $12063 = Maybe$some$($12062); + return $12063; case 'Maybe.none': - var $10681 = Maybe$some$(_val$3); - return $10681; + var $12064 = Maybe$some$(_val$3); + return $12064; }; - })(), $10676, $10677)); - var $10674 = $10678; + })(), $12059, $12060)); + var $12057 = $12061; break; case 'BitsMap.new': - var $10682 = _cont$5(BitsMap$tie$(Maybe$some$(_val$3), BitsMap$new, BitsMap$new)); - var $10674 = $10682; + var $12065 = _cont$5(BitsMap$tie$(Maybe$some$(_val$3), BitsMap$new, BitsMap$new)); + var $12057 = $12065; break; }; - return $10674; + return $12057; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -33396,29 +37733,29 @@ module.exports = (function() { const BitsMap$set_if_empty$cps$go = x0 => x1 => x2 => x3 => BitsMap$set_if_empty$cps$go$(x0, x1, x2, x3); function Trampoline$done$(_value$2) { - var $10683 = ({ + var $12066 = ({ _: 'Trampoline.done', 'value': _value$2 }); - return $10683; + return $12066; }; const Trampoline$done = x0 => Trampoline$done$(x0); function BitsMap$set_if_empty$cps$(_bits$2, _val$3, _map$4) { - var $10684 = Trampoline$call$(BitsMap$set_if_empty$cps$go$(_bits$2, _val$3, _map$4, Trampoline$done)); - return $10684; + var $12067 = Trampoline$call$(BitsMap$set_if_empty$cps$go$(_bits$2, _val$3, _map$4, Trampoline$done)); + return $12067; }; const BitsMap$set_if_empty$cps = x0 => x1 => x2 => BitsMap$set_if_empty$cps$(x0, x1, x2); function BitsMap$set_if_empty$(_bits$2, _val$3, _map$4) { - var $10685 = BitsMap$set_if_empty$cps$(_bits$2, _val$3, _map$4); - return $10685; + var $12068 = BitsMap$set_if_empty$cps$(_bits$2, _val$3, _map$4); + return $12068; }; const BitsMap$set_if_empty = x0 => x1 => x2 => BitsMap$set_if_empty$(x0, x1, x2); function Kind$Map$set_if_empty$(_name$2, _val$3, _map$4) { - var $10686 = BitsMap$set_if_empty$((kind_name_to_bits(_name$2)), _val$3, _map$4); - return $10686; + var $12069 = BitsMap$set_if_empty$((kind_name_to_bits(_name$2)), _val$3, _map$4); + return $12069; }; const Kind$Map$set_if_empty = x0 => x1 => x2 => Kind$Map$set_if_empty$(x0, x1, x2); const Kind$Status$init = ({ @@ -33429,13 +37766,13 @@ module.exports = (function() { var _defn$11 = Kind$Def$new(_file$1)(_code$2)(_orig$3)(_name$4)(_term$5)(_type$6)(_isct$7)(_arit$8); var self = _done$9; if (self) { - var $10688 = Kind$Map$set$(_name$4, _defn$11(Kind$Status$done$(Bool$false)), _defs$10); - var $10687 = $10688; + var $12071 = Kind$Map$set$(_name$4, _defn$11(Kind$Status$done$(Bool$false)), _defs$10); + var $12070 = $12071; } else { - var $10689 = Kind$Map$set_if_empty$(_name$4, _defn$11(Kind$Status$init), _defs$10); - var $10687 = $10689; + var $12072 = Kind$Map$set_if_empty$(_name$4, _defn$11(Kind$Status$init), _defs$10); + var $12070 = $12072; }; - return $10687; + return $12070; }; const Kind$Map$def = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => x9 => Kind$Map$def$(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9); @@ -33443,390 +37780,438 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $10691 = self.err; + var $12074 = self.err; var _reply$10 = Kind$Parser$spaces(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $10693 = self.err; - var self = $10691; + var $12076 = self.err; + var self = $12074; switch (self._) { case 'Maybe.some': - var $10695 = self.value; - var $10696 = Parser$Reply$error$(Parser$Error$combine$($10695, $10693)); - var $10694 = $10696; + var $12078 = self.value; + var $12079 = Parser$Reply$error$(Parser$Error$combine$($12078, $12076)); + var $12077 = $12079; break; case 'Maybe.none': - var $10697 = Parser$Reply$error$($10693); - var $10694 = $10697; + var $12080 = Parser$Reply$error$($12076); + var $12077 = $12080; break; }; - var $10692 = $10694; + var $12075 = $12077; break; case 'Parser.Reply.value': - var $10698 = self.pst; - var self = $10698; + var $12081 = self.pst; + var self = $12081; switch (self._) { case 'Parser.State.new': - var $10700 = self.err; - var $10701 = self.nam; - var $10702 = self.ini; - var $10703 = self.idx; - var $10704 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10691, $10700), $10701, $10702, $10703, $10704); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $10706 = self.err; - var _reply$24 = Parser$get_idx$(_reply$pst$18); - var self = _reply$24; + var $12083 = self.err; + var $12084 = self.nam; + var $12085 = self.ini; + var $12086 = self.idx; + var $12087 = self.str; + var $12088 = ((console.log(("FALTANDO " + $12087)), (_$18 => { + var $12089 = ((console.log(("VALUE " + $12084)), (_$19 => { + var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($12074, $12083), $12084, $12085, $12086, $12087); + var self = _reply$pst$20; switch (self._) { - case 'Parser.Reply.error': - var $10708 = self.err; - var self = $10706; + case 'Parser.State.new': + var $12091 = self.err; + var _reply$26 = Parser$get_idx$(_reply$pst$20); + var self = _reply$26; switch (self._) { - case 'Maybe.some': - var $10710 = self.value; - var $10711 = Parser$Reply$error$(Parser$Error$combine$($10710, $10708)); - var $10709 = $10711; - break; - case 'Maybe.none': - var $10712 = Parser$Reply$error$($10708); - var $10709 = $10712; - break; - }; - var $10707 = $10709; - break; - case 'Parser.Reply.value': - var $10713 = self.pst; - var $10714 = self.val; - var self = $10713; - switch (self._) { - case 'Parser.State.new': - var $10716 = self.err; - var $10717 = self.nam; - var $10718 = self.ini; - var $10719 = self.idx; - var $10720 = self.str; - var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($10706, $10716), $10717, $10718, $10719, $10720); - var self = _reply$pst$32; + case 'Parser.Reply.error': + var $12093 = self.err; + var self = $12091; switch (self._) { - case 'Parser.State.new': - var $10722 = self.err; - var _reply$38 = Kind$Parser$name1$(_reply$pst$32); - var self = _reply$38; - switch (self._) { - case 'Parser.Reply.error': - var $10724 = self.err; - var self = $10722; - switch (self._) { - case 'Maybe.some': - var $10726 = self.value; - var $10727 = Parser$Reply$error$(Parser$Error$combine$($10726, $10724)); - var $10725 = $10727; - break; - case 'Maybe.none': - var $10728 = Parser$Reply$error$($10724); - var $10725 = $10728; - break; - }; - var $10723 = $10725; - break; - case 'Parser.Reply.value': - var $10729 = self.pst; - var $10730 = self.val; - var self = $10729; - switch (self._) { - case 'Parser.State.new': - var $10732 = self.err; - var $10733 = self.nam; - var $10734 = self.ini; - var $10735 = self.idx; - var $10736 = self.str; - var _reply$pst$46 = Parser$State$new$(Parser$Error$maybe_combine$($10722, $10732), $10733, $10734, $10735, $10736); - var self = _reply$pst$46; - switch (self._) { - case 'Parser.State.new': - var $10738 = self.err; - var _reply$52 = Parser$many$(Kind$Parser$binder(":"))(_reply$pst$46); - var self = _reply$52; - switch (self._) { - case 'Parser.Reply.error': - var $10740 = self.err; - var self = $10738; - switch (self._) { - case 'Maybe.some': - var $10742 = self.value; - var $10743 = Parser$Reply$error$(Parser$Error$combine$($10742, $10740)); - var $10741 = $10743; - break; - case 'Maybe.none': - var $10744 = Parser$Reply$error$($10740); - var $10741 = $10744; - break; - }; - var $10739 = $10741; - break; - case 'Parser.Reply.value': - var $10745 = self.pst; - var $10746 = self.val; - var self = $10745; - switch (self._) { - case 'Parser.State.new': - var $10748 = self.err; - var $10749 = self.nam; - var $10750 = self.ini; - var $10751 = self.idx; - var $10752 = self.str; - var _reply$pst$60 = Parser$State$new$(Parser$Error$maybe_combine$($10738, $10748), $10749, $10750, $10751, $10752); - var _args$61 = List$flatten$($10746); - var self = _reply$pst$60; - switch (self._) { - case 'Parser.State.new': - var $10754 = self.err; - var _reply$67 = Kind$Parser$text$(":", _reply$pst$60); - var self = _reply$67; - switch (self._) { - case 'Parser.Reply.error': - var $10756 = self.err; - var self = $10754; - switch (self._) { - case 'Maybe.some': - var $10758 = self.value; - var $10759 = Parser$Reply$error$(Parser$Error$combine$($10758, $10756)); - var $10757 = $10759; - break; - case 'Maybe.none': - var $10760 = Parser$Reply$error$($10756); - var $10757 = $10760; - break; - }; - var $10755 = $10757; - break; - case 'Parser.Reply.value': - var $10761 = self.pst; - var self = $10761; - switch (self._) { - case 'Parser.State.new': - var $10763 = self.err; - var $10764 = self.nam; - var $10765 = self.ini; - var $10766 = self.idx; - var $10767 = self.str; - var _reply$pst$75 = Parser$State$new$(Parser$Error$maybe_combine$($10754, $10763), $10764, $10765, $10766, $10767); - var self = _reply$pst$75; - switch (self._) { - case 'Parser.State.new': - var $10769 = self.err; - var _reply$81 = Kind$Parser$term(_reply$pst$75); - var self = _reply$81; - switch (self._) { - case 'Parser.Reply.error': - var $10771 = self.err; - var self = $10769; - switch (self._) { - case 'Maybe.some': - var $10773 = self.value; - var $10774 = Parser$Reply$error$(Parser$Error$combine$($10773, $10771)); - var $10772 = $10774; - break; - case 'Maybe.none': - var $10775 = Parser$Reply$error$($10771); - var $10772 = $10775; - break; - }; - var $10770 = $10772; - break; - case 'Parser.Reply.value': - var $10776 = self.pst; - var $10777 = self.val; - var self = $10776; - switch (self._) { - case 'Parser.State.new': - var $10779 = self.err; - var $10780 = self.nam; - var $10781 = self.ini; - var $10782 = self.idx; - var $10783 = self.str; - var _reply$pst$89 = Parser$State$new$(Parser$Error$maybe_combine$($10769, $10779), $10780, $10781, $10782, $10783); - var self = _reply$pst$89; - switch (self._) { - case 'Parser.State.new': - var $10785 = self.err; - var _reply$95 = Kind$Parser$term(_reply$pst$89); - var self = _reply$95; - switch (self._) { - case 'Parser.Reply.error': - var $10787 = self.err; - var self = $10785; - switch (self._) { - case 'Maybe.some': - var $10789 = self.value; - var $10790 = Parser$Reply$error$(Parser$Error$combine$($10789, $10787)); - var $10788 = $10790; - break; - case 'Maybe.none': - var $10791 = Parser$Reply$error$($10787); - var $10788 = $10791; - break; - }; - var $10786 = $10788; - break; - case 'Parser.Reply.value': - var $10792 = self.pst; - var $10793 = self.val; - var self = $10792; - switch (self._) { - case 'Parser.State.new': - var $10795 = self.err; - var $10796 = self.nam; - var $10797 = self.ini; - var $10798 = self.idx; - var $10799 = self.str; - var _reply$pst$103 = Parser$State$new$(Parser$Error$maybe_combine$($10785, $10795), $10796, $10797, $10798, $10799); - var self = _reply$pst$103; - switch (self._) { - case 'Parser.State.new': - var $10801 = self.err; - var _reply$109 = Parser$get_idx$(_reply$pst$103); - var self = _reply$109; - switch (self._) { - case 'Parser.Reply.error': - var $10803 = self.err; - var self = $10801; - switch (self._) { - case 'Maybe.some': - var $10805 = self.value; - var $10806 = Parser$Reply$error$(Parser$Error$combine$($10805, $10803)); - var $10804 = $10806; - break; - case 'Maybe.none': - var $10807 = Parser$Reply$error$($10803); - var $10804 = $10807; - break; - }; - var $10802 = $10804; - break; - case 'Parser.Reply.value': - var $10808 = self.pst; - var $10809 = self.val; - var self = $10808; - switch (self._) { - case 'Parser.State.new': - var $10811 = self.err; - var $10812 = self.nam; - var $10813 = self.ini; - var $10814 = self.idx; - var $10815 = self.str; - var _reply$pst$117 = Parser$State$new$(Parser$Error$maybe_combine$($10801, $10811), $10812, $10813, $10814, $10815); - var _orig$118 = Pair$new$($10714, $10809); - var _arit$119 = (list_length(_args$61)); - var _type$120 = Kind$Parser$forall$make$(_args$61, $10777); - var _term$121 = Kind$Parser$lambda$make$(List$mapped$(_args$61, (_x$121 => { - var self = _x$121; - switch (self._) { - case 'Kind.Binder.new': - var $10818 = self.name; - var $10819 = $10818; - var $10817 = $10819; - break; - }; - return $10817; - })), $10793); - var _type$122 = Kind$Term$bind$(List$nil, (_x$122 => { - var $10820 = (_x$122 + '1'); - return $10820; - }), _type$120); - var _term$123 = Kind$Term$bind$(List$nil, (_x$123 => { - var $10821 = (_x$123 + '0'); - return $10821; - }), _term$121); - var _defs$124 = Kind$Map$def$(_file$1, _code$2, _orig$118, $10730, _term$123, _type$122, Bool$false, _arit$119, Bool$false, _defs$3); - var $10816 = Parser$Reply$value$(_reply$pst$117, _defs$124); - var $10810 = $10816; - break; - }; - var $10802 = $10810; - break; - }; - var $10800 = $10802; - break; - }; - var $10794 = $10800; - break; - }; - var $10786 = $10794; - break; - }; - var $10784 = $10786; - break; - }; - var $10778 = $10784; - break; - }; - var $10770 = $10778; - break; - }; - var $10768 = $10770; - break; - }; - var $10762 = $10768; - break; - }; - var $10755 = $10762; - break; - }; - var $10753 = $10755; - break; - }; - var $10747 = $10753; - break; - }; - var $10739 = $10747; - break; - }; - var $10737 = $10739; - break; - }; - var $10731 = $10737; - break; - }; - var $10723 = $10731; - break; - }; - var $10721 = $10723; + case 'Maybe.some': + var $12095 = self.value; + var $12096 = Parser$Reply$error$(Parser$Error$combine$($12095, $12093)); + var $12094 = $12096; + break; + case 'Maybe.none': + var $12097 = Parser$Reply$error$($12093); + var $12094 = $12097; break; }; - var $10715 = $10721; + var $12092 = $12094; + break; + case 'Parser.Reply.value': + var $12098 = self.pst; + var $12099 = self.val; + var self = $12098; + switch (self._) { + case 'Parser.State.new': + var $12101 = self.err; + var $12102 = self.nam; + var $12103 = self.ini; + var $12104 = self.idx; + var $12105 = self.str; + var $12106 = ((console.log(("FALTANDO " + $12105)), (_$34 => { + var $12107 = ((console.log(("VALUE " + $12102)), (_$35 => { + var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($12091, $12101), $12102, $12103, $12104, $12105); + var self = _reply$pst$36; + switch (self._) { + case 'Parser.State.new': + var $12109 = self.err; + var _reply$42 = Kind$Parser$name1$(_reply$pst$36); + var self = _reply$42; + switch (self._) { + case 'Parser.Reply.error': + var $12111 = self.err; + var self = $12109; + switch (self._) { + case 'Maybe.some': + var $12113 = self.value; + var $12114 = Parser$Reply$error$(Parser$Error$combine$($12113, $12111)); + var $12112 = $12114; + break; + case 'Maybe.none': + var $12115 = Parser$Reply$error$($12111); + var $12112 = $12115; + break; + }; + var $12110 = $12112; + break; + case 'Parser.Reply.value': + var $12116 = self.pst; + var $12117 = self.val; + var self = $12116; + switch (self._) { + case 'Parser.State.new': + var $12119 = self.err; + var $12120 = self.nam; + var $12121 = self.ini; + var $12122 = self.idx; + var $12123 = self.str; + var $12124 = ((console.log(("FALTANDO " + $12123)), (_$50 => { + var $12125 = ((console.log(("VALUE " + $12120)), (_$51 => { + var _reply$pst$52 = Parser$State$new$(Parser$Error$maybe_combine$($12109, $12119), $12120, $12121, $12122, $12123); + var self = _reply$pst$52; + switch (self._) { + case 'Parser.State.new': + var $12127 = self.err; + var _reply$58 = Parser$many$(Kind$Parser$binder(":"))(_reply$pst$52); + var self = _reply$58; + switch (self._) { + case 'Parser.Reply.error': + var $12129 = self.err; + var self = $12127; + switch (self._) { + case 'Maybe.some': + var $12131 = self.value; + var $12132 = Parser$Reply$error$(Parser$Error$combine$($12131, $12129)); + var $12130 = $12132; + break; + case 'Maybe.none': + var $12133 = Parser$Reply$error$($12129); + var $12130 = $12133; + break; + }; + var $12128 = $12130; + break; + case 'Parser.Reply.value': + var $12134 = self.pst; + var $12135 = self.val; + var self = $12134; + switch (self._) { + case 'Parser.State.new': + var $12137 = self.err; + var $12138 = self.nam; + var $12139 = self.ini; + var $12140 = self.idx; + var $12141 = self.str; + var $12142 = ((console.log(("FALTANDO " + $12141)), (_$66 => { + var $12143 = ((console.log(("VALUE " + $12138)), (_$67 => { + var _reply$pst$68 = Parser$State$new$(Parser$Error$maybe_combine$($12127, $12137), $12138, $12139, $12140, $12141); + var _args$69 = List$flatten$($12135); + var self = _reply$pst$68; + switch (self._) { + case 'Parser.State.new': + var $12145 = self.err; + var _reply$75 = Kind$Parser$text$(":", _reply$pst$68); + var self = _reply$75; + switch (self._) { + case 'Parser.Reply.error': + var $12147 = self.err; + var self = $12145; + switch (self._) { + case 'Maybe.some': + var $12149 = self.value; + var $12150 = Parser$Reply$error$(Parser$Error$combine$($12149, $12147)); + var $12148 = $12150; + break; + case 'Maybe.none': + var $12151 = Parser$Reply$error$($12147); + var $12148 = $12151; + break; + }; + var $12146 = $12148; + break; + case 'Parser.Reply.value': + var $12152 = self.pst; + var self = $12152; + switch (self._) { + case 'Parser.State.new': + var $12154 = self.err; + var $12155 = self.nam; + var $12156 = self.ini; + var $12157 = self.idx; + var $12158 = self.str; + var $12159 = ((console.log(("FALTANDO " + $12158)), (_$83 => { + var $12160 = ((console.log(("VALUE " + $12155)), (_$84 => { + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($12145, $12154), $12155, $12156, $12157, $12158); + var self = _reply$pst$85; + switch (self._) { + case 'Parser.State.new': + var $12162 = self.err; + var _reply$91 = Kind$Parser$term(_reply$pst$85); + var self = _reply$91; + switch (self._) { + case 'Parser.Reply.error': + var $12164 = self.err; + var self = $12162; + switch (self._) { + case 'Maybe.some': + var $12166 = self.value; + var $12167 = Parser$Reply$error$(Parser$Error$combine$($12166, $12164)); + var $12165 = $12167; + break; + case 'Maybe.none': + var $12168 = Parser$Reply$error$($12164); + var $12165 = $12168; + break; + }; + var $12163 = $12165; + break; + case 'Parser.Reply.value': + var $12169 = self.pst; + var $12170 = self.val; + var self = $12169; + switch (self._) { + case 'Parser.State.new': + var $12172 = self.err; + var $12173 = self.nam; + var $12174 = self.ini; + var $12175 = self.idx; + var $12176 = self.str; + var $12177 = ((console.log(("FALTANDO " + $12176)), (_$99 => { + var $12178 = ((console.log(("VALUE " + $12173)), (_$100 => { + var _reply$pst$101 = Parser$State$new$(Parser$Error$maybe_combine$($12162, $12172), $12173, $12174, $12175, $12176); + var self = _reply$pst$101; + switch (self._) { + case 'Parser.State.new': + var $12180 = self.err; + var _reply$107 = Kind$Parser$term(_reply$pst$101); + var self = _reply$107; + switch (self._) { + case 'Parser.Reply.error': + var $12182 = self.err; + var self = $12180; + switch (self._) { + case 'Maybe.some': + var $12184 = self.value; + var $12185 = Parser$Reply$error$(Parser$Error$combine$($12184, $12182)); + var $12183 = $12185; + break; + case 'Maybe.none': + var $12186 = Parser$Reply$error$($12182); + var $12183 = $12186; + break; + }; + var $12181 = $12183; + break; + case 'Parser.Reply.value': + var $12187 = self.pst; + var $12188 = self.val; + var self = $12187; + switch (self._) { + case 'Parser.State.new': + var $12190 = self.err; + var $12191 = self.nam; + var $12192 = self.ini; + var $12193 = self.idx; + var $12194 = self.str; + var $12195 = ((console.log(("FALTANDO " + $12194)), (_$115 => { + var $12196 = ((console.log(("VALUE " + $12191)), (_$116 => { + var _reply$pst$117 = Parser$State$new$(Parser$Error$maybe_combine$($12180, $12190), $12191, $12192, $12193, $12194); + var self = _reply$pst$117; + switch (self._) { + case 'Parser.State.new': + var $12198 = self.err; + var _reply$123 = Parser$get_idx$(_reply$pst$117); + var self = _reply$123; + switch (self._) { + case 'Parser.Reply.error': + var $12200 = self.err; + var self = $12198; + switch (self._) { + case 'Maybe.some': + var $12202 = self.value; + var $12203 = Parser$Reply$error$(Parser$Error$combine$($12202, $12200)); + var $12201 = $12203; + break; + case 'Maybe.none': + var $12204 = Parser$Reply$error$($12200); + var $12201 = $12204; + break; + }; + var $12199 = $12201; + break; + case 'Parser.Reply.value': + var $12205 = self.pst; + var $12206 = self.val; + var self = $12205; + switch (self._) { + case 'Parser.State.new': + var $12208 = self.err; + var $12209 = self.nam; + var $12210 = self.ini; + var $12211 = self.idx; + var $12212 = self.str; + var $12213 = ((console.log(("FALTANDO " + $12212)), (_$131 => { + var $12214 = ((console.log(("VALUE " + $12209)), (_$132 => { + var _reply$pst$133 = Parser$State$new$(Parser$Error$maybe_combine$($12198, $12208), $12209, $12210, $12211, $12212); + var _orig$134 = Pair$new$($12099, $12206); + var _arit$135 = (list_length(_args$69)); + var _type$136 = Kind$Parser$forall$make$(_args$69, $12170); + var _term$137 = Kind$Parser$lambda$make$(List$mapped$(_args$69, (_x$137 => { + var self = _x$137; + switch (self._) { + case 'Kind.Binder.new': + var $12217 = self.name; + var $12218 = $12217; + var $12216 = $12218; + break; + }; + return $12216; + })), $12188); + var _type$138 = Kind$Term$bind$(List$nil, (_x$138 => { + var $12219 = (_x$138 + '1'); + return $12219; + }), _type$136); + var _term$139 = Kind$Term$bind$(List$nil, (_x$139 => { + var $12220 = (_x$139 + '0'); + return $12220; + }), _term$137); + var _defs$140 = Kind$Map$def$(_file$1, _code$2, _orig$134, $12117, _term$139, _type$138, Bool$false, _arit$135, Bool$false, _defs$3); + var $12215 = Parser$Reply$value$(_reply$pst$133, _defs$140); + return $12215; + })())); + return $12214; + })())); + var $12207 = $12213; + break; + }; + var $12199 = $12207; + break; + }; + var $12197 = $12199; + break; + }; + return $12197; + })())); + return $12196; + })())); + var $12189 = $12195; + break; + }; + var $12181 = $12189; + break; + }; + var $12179 = $12181; + break; + }; + return $12179; + })())); + return $12178; + })())); + var $12171 = $12177; + break; + }; + var $12163 = $12171; + break; + }; + var $12161 = $12163; + break; + }; + return $12161; + })())); + return $12160; + })())); + var $12153 = $12159; + break; + }; + var $12146 = $12153; + break; + }; + var $12144 = $12146; + break; + }; + return $12144; + })())); + return $12143; + })())); + var $12136 = $12142; + break; + }; + var $12128 = $12136; + break; + }; + var $12126 = $12128; + break; + }; + return $12126; + })())); + return $12125; + })())); + var $12118 = $12124; + break; + }; + var $12110 = $12118; + break; + }; + var $12108 = $12110; + break; + }; + return $12108; + })())); + return $12107; + })())); + var $12100 = $12106; + break; + }; + var $12092 = $12100; break; }; - var $10707 = $10715; + var $12090 = $12092; break; }; - var $10705 = $10707; - break; - }; - var $10699 = $10705; + return $12090; + })())); + return $12089; + })())); + var $12082 = $12088; break; }; - var $10692 = $10699; + var $12075 = $12082; break; }; - var $10690 = $10692; + var $12073 = $12075; break; }; - return $10690; + return $12073; }; const Kind$Parser$file$def = x0 => x1 => x2 => x3 => Kind$Parser$file$def$(x0, x1, x2, x3); function Kind$Parser$ADT$Constructor$new$(_name$1, _args$2, _inds$3) { - var $10822 = ({ + var $12221 = ({ _: 'Kind.Parser.ADT.Constructor.new', 'name': _name$1, 'args': _args$2, 'inds': _inds$3 }); - return $10822; + return $12221; }; const Kind$Parser$ADT$Constructor$new = x0 => x1 => x2 => Kind$Parser$ADT$Constructor$new$(x0, x1, x2); @@ -33834,190 +38219,214 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $10824 = self.err; + var $12223 = self.err; var _reply$8 = Kind$Parser$name1$(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $10826 = self.err; - var self = $10824; + var $12225 = self.err; + var self = $12223; switch (self._) { case 'Maybe.some': - var $10828 = self.value; - var $10829 = Parser$Reply$error$(Parser$Error$combine$($10828, $10826)); - var $10827 = $10829; + var $12227 = self.value; + var $12228 = Parser$Reply$error$(Parser$Error$combine$($12227, $12225)); + var $12226 = $12228; break; case 'Maybe.none': - var $10830 = Parser$Reply$error$($10826); - var $10827 = $10830; + var $12229 = Parser$Reply$error$($12225); + var $12226 = $12229; break; }; - var $10825 = $10827; + var $12224 = $12226; break; case 'Parser.Reply.value': - var $10831 = self.pst; - var $10832 = self.val; - var self = $10831; + var $12230 = self.pst; + var $12231 = self.val; + var self = $12230; switch (self._) { case 'Parser.State.new': - var $10834 = self.err; - var $10835 = self.nam; - var $10836 = self.ini; - var $10837 = self.idx; - var $10838 = self.str; - var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10824, $10834), $10835, $10836, $10837, $10838); - var self = _reply$pst$16; - switch (self._) { - case 'Parser.State.new': - var $10840 = self.err; - var _reply$22 = Parser$maybe$(Kind$Parser$binder(":"), _reply$pst$16); - var self = _reply$22; + var $12233 = self.err; + var $12234 = self.nam; + var $12235 = self.ini; + var $12236 = self.idx; + var $12237 = self.str; + var $12238 = ((console.log(("FALTANDO " + $12237)), (_$16 => { + var $12239 = ((console.log(("VALUE " + $12234)), (_$17 => { + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($12223, $12233), $12234, $12235, $12236, $12237); + var self = _reply$pst$18; switch (self._) { - case 'Parser.Reply.error': - var $10842 = self.err; - var self = $10840; + case 'Parser.State.new': + var $12241 = self.err; + var _reply$24 = Parser$maybe$(Kind$Parser$binder(":"), _reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Maybe.some': - var $10844 = self.value; - var $10845 = Parser$Reply$error$(Parser$Error$combine$($10844, $10842)); - var $10843 = $10845; - break; - case 'Maybe.none': - var $10846 = Parser$Reply$error$($10842); - var $10843 = $10846; - break; - }; - var $10841 = $10843; - break; - case 'Parser.Reply.value': - var $10847 = self.pst; - var $10848 = self.val; - var self = $10847; - switch (self._) { - case 'Parser.State.new': - var $10850 = self.err; - var $10851 = self.nam; - var $10852 = self.ini; - var $10853 = self.idx; - var $10854 = self.str; - var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10840, $10850), $10851, $10852, $10853, $10854); - var self = _reply$pst$30; + case 'Parser.Reply.error': + var $12243 = self.err; + var self = $12241; switch (self._) { - case 'Parser.State.new': - var $10856 = self.err; - var _reply$36 = Parser$maybe$((_pst$36 => { - var self = _pst$36; - switch (self._) { - case 'Parser.State.new': - var $10859 = self.err; - var _reply$42 = Kind$Parser$text$("~", _pst$36); - var self = _reply$42; - switch (self._) { - case 'Parser.Reply.error': - var $10861 = self.err; - var self = $10859; - switch (self._) { - case 'Maybe.some': - var $10863 = self.value; - var $10864 = Parser$Reply$error$(Parser$Error$combine$($10863, $10861)); - var $10862 = $10864; - break; - case 'Maybe.none': - var $10865 = Parser$Reply$error$($10861); - var $10862 = $10865; - break; - }; - var $10860 = $10862; - break; - case 'Parser.Reply.value': - var $10866 = self.pst; - var self = $10866; - switch (self._) { - case 'Parser.State.new': - var $10868 = self.err; - var $10869 = self.nam; - var $10870 = self.ini; - var $10871 = self.idx; - var $10872 = self.str; - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($10859, $10868), $10869, $10870, $10871, $10872); - var $10873 = Kind$Parser$binder$("=", _reply$pst$50); - var $10867 = $10873; - break; - }; - var $10860 = $10867; - break; - }; - var $10858 = $10860; - break; - }; - return $10858; - }), _reply$pst$30); - var self = _reply$36; - switch (self._) { - case 'Parser.Reply.error': - var $10874 = self.err; - var self = $10856; - switch (self._) { - case 'Maybe.some': - var $10876 = self.value; - var $10877 = Parser$Reply$error$(Parser$Error$combine$($10876, $10874)); - var $10875 = $10877; - break; - case 'Maybe.none': - var $10878 = Parser$Reply$error$($10874); - var $10875 = $10878; - break; - }; - var $10857 = $10875; - break; - case 'Parser.Reply.value': - var $10879 = self.pst; - var $10880 = self.val; - var self = $10879; - switch (self._) { - case 'Parser.State.new': - var $10882 = self.err; - var $10883 = self.nam; - var $10884 = self.ini; - var $10885 = self.idx; - var $10886 = self.str; - var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($10856, $10882), $10883, $10884, $10885, $10886); - var _args$45 = Maybe$default$($10848, List$nil); - var _inds$46 = Maybe$default$($10880, List$nil); - var $10887 = Parser$Reply$value$(_reply$pst$44, Kind$Parser$ADT$Constructor$new$($10832, _args$45, _inds$46)); - var $10881 = $10887; - break; - }; - var $10857 = $10881; - break; - }; - var $10855 = $10857; + case 'Maybe.some': + var $12245 = self.value; + var $12246 = Parser$Reply$error$(Parser$Error$combine$($12245, $12243)); + var $12244 = $12246; + break; + case 'Maybe.none': + var $12247 = Parser$Reply$error$($12243); + var $12244 = $12247; break; }; - var $10849 = $10855; + var $12242 = $12244; + break; + case 'Parser.Reply.value': + var $12248 = self.pst; + var $12249 = self.val; + var self = $12248; + switch (self._) { + case 'Parser.State.new': + var $12251 = self.err; + var $12252 = self.nam; + var $12253 = self.ini; + var $12254 = self.idx; + var $12255 = self.str; + var $12256 = ((console.log(("FALTANDO " + $12255)), (_$32 => { + var $12257 = ((console.log(("VALUE " + $12252)), (_$33 => { + var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($12241, $12251), $12252, $12253, $12254, $12255); + var self = _reply$pst$34; + switch (self._) { + case 'Parser.State.new': + var $12259 = self.err; + var _reply$40 = Parser$maybe$((_pst$40 => { + var self = _pst$40; + switch (self._) { + case 'Parser.State.new': + var $12262 = self.err; + var _reply$46 = Kind$Parser$text$("~", _pst$40); + var self = _reply$46; + switch (self._) { + case 'Parser.Reply.error': + var $12264 = self.err; + var self = $12262; + switch (self._) { + case 'Maybe.some': + var $12266 = self.value; + var $12267 = Parser$Reply$error$(Parser$Error$combine$($12266, $12264)); + var $12265 = $12267; + break; + case 'Maybe.none': + var $12268 = Parser$Reply$error$($12264); + var $12265 = $12268; + break; + }; + var $12263 = $12265; + break; + case 'Parser.Reply.value': + var $12269 = self.pst; + var self = $12269; + switch (self._) { + case 'Parser.State.new': + var $12271 = self.err; + var $12272 = self.nam; + var $12273 = self.ini; + var $12274 = self.idx; + var $12275 = self.str; + var $12276 = ((console.log(("FALTANDO " + $12275)), (_$54 => { + var $12277 = ((console.log(("VALUE " + $12272)), (_$55 => { + var _reply$pst$56 = Parser$State$new$(Parser$Error$maybe_combine$($12262, $12271), $12272, $12273, $12274, $12275); + var $12278 = Kind$Parser$binder$("=", _reply$pst$56); + return $12278; + })())); + return $12277; + })())); + var $12270 = $12276; + break; + }; + var $12263 = $12270; + break; + }; + var $12261 = $12263; + break; + }; + return $12261; + }), _reply$pst$34); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $12279 = self.err; + var self = $12259; + switch (self._) { + case 'Maybe.some': + var $12281 = self.value; + var $12282 = Parser$Reply$error$(Parser$Error$combine$($12281, $12279)); + var $12280 = $12282; + break; + case 'Maybe.none': + var $12283 = Parser$Reply$error$($12279); + var $12280 = $12283; + break; + }; + var $12260 = $12280; + break; + case 'Parser.Reply.value': + var $12284 = self.pst; + var $12285 = self.val; + var self = $12284; + switch (self._) { + case 'Parser.State.new': + var $12287 = self.err; + var $12288 = self.nam; + var $12289 = self.ini; + var $12290 = self.idx; + var $12291 = self.str; + var $12292 = ((console.log(("FALTANDO " + $12291)), (_$48 => { + var $12293 = ((console.log(("VALUE " + $12288)), (_$49 => { + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($12259, $12287), $12288, $12289, $12290, $12291); + var _args$51 = Maybe$default$($12249, List$nil); + var _inds$52 = Maybe$default$($12285, List$nil); + var $12294 = Parser$Reply$value$(_reply$pst$50, Kind$Parser$ADT$Constructor$new$($12231, _args$51, _inds$52)); + return $12294; + })())); + return $12293; + })())); + var $12286 = $12292; + break; + }; + var $12260 = $12286; + break; + }; + var $12258 = $12260; + break; + }; + return $12258; + })())); + return $12257; + })())); + var $12250 = $12256; + break; + }; + var $12242 = $12250; break; }; - var $10841 = $10849; + var $12240 = $12242; break; }; - var $10839 = $10841; - break; - }; - var $10833 = $10839; + return $12240; + })())); + return $12239; + })())); + var $12232 = $12238; break; }; - var $10825 = $10833; + var $12224 = $12232; break; }; - var $10823 = $10825; + var $12222 = $12224; break; }; - return $10823; + return $12222; }; const Kind$Parser$ADT$ctor = x0 => x1 => Kind$Parser$ADT$ctor$(x0, x1); function Kind$Parser$ADT$Datatype$new$(_name$1, _pars$2, _inds$3, _ctrs$4, _deri$5) { - var $10888 = ({ + var $12295 = ({ _: 'Kind.Parser.ADT.Datatype.new', 'name': _name$1, 'pars': _pars$2, @@ -34025,7 +38434,7 @@ module.exports = (function() { 'ctrs': _ctrs$4, 'deri': _deri$5 }); - return $10888; + return $12295; }; const Kind$Parser$ADT$Datatype$new = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Datatype$new$(x0, x1, x2, x3, x4); @@ -34033,374 +38442,422 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10890 = self.err; + var $12297 = self.err; var _reply$7 = Kind$Parser$text$("type ", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10892 = self.err; - var self = $10890; + var $12299 = self.err; + var self = $12297; switch (self._) { case 'Maybe.some': - var $10894 = self.value; - var $10895 = Parser$Reply$error$(Parser$Error$combine$($10894, $10892)); - var $10893 = $10895; + var $12301 = self.value; + var $12302 = Parser$Reply$error$(Parser$Error$combine$($12301, $12299)); + var $12300 = $12302; break; case 'Maybe.none': - var $10896 = Parser$Reply$error$($10892); - var $10893 = $10896; + var $12303 = Parser$Reply$error$($12299); + var $12300 = $12303; break; }; - var $10891 = $10893; + var $12298 = $12300; break; case 'Parser.Reply.value': - var $10897 = self.pst; - var self = $10897; + var $12304 = self.pst; + var self = $12304; switch (self._) { case 'Parser.State.new': - var $10899 = self.err; - var $10900 = self.nam; - var $10901 = self.ini; - var $10902 = self.idx; - var $10903 = self.str; - var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10890, $10899), $10900, $10901, $10902, $10903); - var self = _reply$pst$15; - switch (self._) { - case 'Parser.State.new': - var $10905 = self.err; - var _reply$21 = Kind$Parser$name1$(_reply$pst$15); - var self = _reply$21; + var $12306 = self.err; + var $12307 = self.nam; + var $12308 = self.ini; + var $12309 = self.idx; + var $12310 = self.str; + var $12311 = ((console.log(("FALTANDO " + $12310)), (_$15 => { + var $12312 = ((console.log(("VALUE " + $12307)), (_$16 => { + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($12297, $12306), $12307, $12308, $12309, $12310); + var self = _reply$pst$17; switch (self._) { - case 'Parser.Reply.error': - var $10907 = self.err; - var self = $10905; + case 'Parser.State.new': + var $12314 = self.err; + var _reply$23 = Kind$Parser$name1$(_reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Maybe.some': - var $10909 = self.value; - var $10910 = Parser$Reply$error$(Parser$Error$combine$($10909, $10907)); - var $10908 = $10910; - break; - case 'Maybe.none': - var $10911 = Parser$Reply$error$($10907); - var $10908 = $10911; - break; - }; - var $10906 = $10908; - break; - case 'Parser.Reply.value': - var $10912 = self.pst; - var $10913 = self.val; - var self = $10912; - switch (self._) { - case 'Parser.State.new': - var $10915 = self.err; - var $10916 = self.nam; - var $10917 = self.ini; - var $10918 = self.idx; - var $10919 = self.str; - var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10905, $10915), $10916, $10917, $10918, $10919); - var self = _reply$pst$29; + case 'Parser.Reply.error': + var $12316 = self.err; + var self = $12314; switch (self._) { - case 'Parser.State.new': - var $10921 = self.err; - var _reply$35 = Parser$maybe$(Kind$Parser$binder(":"), _reply$pst$29); - var self = _reply$35; - switch (self._) { - case 'Parser.Reply.error': - var $10923 = self.err; - var self = $10921; - switch (self._) { - case 'Maybe.some': - var $10925 = self.value; - var $10926 = Parser$Reply$error$(Parser$Error$combine$($10925, $10923)); - var $10924 = $10926; - break; - case 'Maybe.none': - var $10927 = Parser$Reply$error$($10923); - var $10924 = $10927; - break; - }; - var $10922 = $10924; - break; - case 'Parser.Reply.value': - var $10928 = self.pst; - var $10929 = self.val; - var self = $10928; - switch (self._) { - case 'Parser.State.new': - var $10931 = self.err; - var $10932 = self.nam; - var $10933 = self.ini; - var $10934 = self.idx; - var $10935 = self.str; - var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($10921, $10931), $10932, $10933, $10934, $10935); - var self = _reply$pst$43; - switch (self._) { - case 'Parser.State.new': - var $10937 = self.err; - var _reply$49 = Parser$maybe$((_pst$49 => { - var self = _pst$49; - switch (self._) { - case 'Parser.State.new': - var $10940 = self.err; - var _reply$55 = Kind$Parser$text$("~", _pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $10942 = self.err; - var self = $10940; - switch (self._) { - case 'Maybe.some': - var $10944 = self.value; - var $10945 = Parser$Reply$error$(Parser$Error$combine$($10944, $10942)); - var $10943 = $10945; - break; - case 'Maybe.none': - var $10946 = Parser$Reply$error$($10942); - var $10943 = $10946; - break; - }; - var $10941 = $10943; - break; - case 'Parser.Reply.value': - var $10947 = self.pst; - var self = $10947; - switch (self._) { - case 'Parser.State.new': - var $10949 = self.err; - var $10950 = self.nam; - var $10951 = self.ini; - var $10952 = self.idx; - var $10953 = self.str; - var _reply$pst$63 = Parser$State$new$(Parser$Error$maybe_combine$($10940, $10949), $10950, $10951, $10952, $10953); - var $10954 = Kind$Parser$binder$(":", _reply$pst$63); - var $10948 = $10954; - break; - }; - var $10941 = $10948; - break; - }; - var $10939 = $10941; - break; - }; - return $10939; - }), _reply$pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $10955 = self.err; - var self = $10937; - switch (self._) { - case 'Maybe.some': - var $10957 = self.value; - var $10958 = Parser$Reply$error$(Parser$Error$combine$($10957, $10955)); - var $10956 = $10958; - break; - case 'Maybe.none': - var $10959 = Parser$Reply$error$($10955); - var $10956 = $10959; - break; - }; - var $10938 = $10956; - break; - case 'Parser.Reply.value': - var $10960 = self.pst; - var $10961 = self.val; - var self = $10960; - switch (self._) { - case 'Parser.State.new': - var $10963 = self.err; - var $10964 = self.nam; - var $10965 = self.ini; - var $10966 = self.idx; - var $10967 = self.str; - var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($10937, $10963), $10964, $10965, $10966, $10967); - var _pars$58 = Maybe$default$($10929, List$nil); - var _inds$59 = Maybe$default$($10961, List$nil); - var self = _reply$pst$57; - switch (self._) { - case 'Parser.State.new': - var $10969 = self.err; - var _reply$65 = Kind$Parser$items$("{", Kind$Parser$ADT$ctor($10913), "}")(_reply$pst$57); - var self = _reply$65; - switch (self._) { - case 'Parser.Reply.error': - var $10971 = self.err; - var self = $10969; - switch (self._) { - case 'Maybe.some': - var $10973 = self.value; - var $10974 = Parser$Reply$error$(Parser$Error$combine$($10973, $10971)); - var $10972 = $10974; - break; - case 'Maybe.none': - var $10975 = Parser$Reply$error$($10971); - var $10972 = $10975; - break; - }; - var $10970 = $10972; - break; - case 'Parser.Reply.value': - var $10976 = self.pst; - var $10977 = self.val; - var self = $10976; - switch (self._) { - case 'Parser.State.new': - var $10979 = self.err; - var $10980 = self.nam; - var $10981 = self.ini; - var $10982 = self.idx; - var $10983 = self.str; - var _reply$pst$73 = Parser$State$new$(Parser$Error$maybe_combine$($10969, $10979), $10980, $10981, $10982, $10983); - var self = _reply$pst$73; - switch (self._) { - case 'Parser.State.new': - var $10985 = self.err; - var _reply$79 = Parser$maybe$((_pst$79 => { - var self = _pst$79; - switch (self._) { - case 'Parser.State.new': - var $10988 = self.err; - var _reply$85 = Kind$Parser$text$("deriving", _pst$79); - var self = _reply$85; - switch (self._) { - case 'Parser.Reply.error': - var $10990 = self.err; - var self = $10988; - switch (self._) { - case 'Maybe.some': - var $10992 = self.value; - var $10993 = Parser$Reply$error$(Parser$Error$combine$($10992, $10990)); - var $10991 = $10993; - break; - case 'Maybe.none': - var $10994 = Parser$Reply$error$($10990); - var $10991 = $10994; - break; - }; - var $10989 = $10991; - break; - case 'Parser.Reply.value': - var $10995 = self.pst; - var self = $10995; - switch (self._) { - case 'Parser.State.new': - var $10997 = self.err; - var $10998 = self.nam; - var $10999 = self.ini; - var $11000 = self.idx; - var $11001 = self.str; - var _reply$pst$93 = Parser$State$new$(Parser$Error$maybe_combine$($10988, $10997), $10998, $10999, $11000, $11001); - var $11002 = Kind$Parser$items$("(", Kind$Parser$name1, ")")(_reply$pst$93); - var $10996 = $11002; - break; - }; - var $10989 = $10996; - break; - }; - var $10987 = $10989; - break; - }; - return $10987; - }), _reply$pst$73); - var self = _reply$79; - switch (self._) { - case 'Parser.Reply.error': - var $11003 = self.err; - var self = $10985; - switch (self._) { - case 'Maybe.some': - var $11005 = self.value; - var $11006 = Parser$Reply$error$(Parser$Error$combine$($11005, $11003)); - var $11004 = $11006; - break; - case 'Maybe.none': - var $11007 = Parser$Reply$error$($11003); - var $11004 = $11007; - break; - }; - var $10986 = $11004; - break; - case 'Parser.Reply.value': - var $11008 = self.pst; - var $11009 = self.val; - var self = $11008; - switch (self._) { - case 'Parser.State.new': - var $11011 = self.err; - var $11012 = self.nam; - var $11013 = self.ini; - var $11014 = self.idx; - var $11015 = self.str; - var _reply$pst$87 = Parser$State$new$(Parser$Error$maybe_combine$($10985, $11011), $11012, $11013, $11014, $11015); - var self = $11009; - switch (self._) { - case 'Maybe.some': - var $11017 = self.value; - var $11018 = $11017; - var _deri$88 = $11018; - break; - case 'Maybe.none': - var $11019 = List$nil; - var _deri$88 = $11019; - break; - }; - var $11016 = Parser$Reply$value$(_reply$pst$87, Kind$Parser$ADT$Datatype$new$($10913, _pars$58, _inds$59, $10977, _deri$88)); - var $11010 = $11016; - break; - }; - var $10986 = $11010; - break; - }; - var $10984 = $10986; - break; - }; - var $10978 = $10984; - break; - }; - var $10970 = $10978; - break; - }; - var $10968 = $10970; - break; - }; - var $10962 = $10968; - break; - }; - var $10938 = $10962; - break; - }; - var $10936 = $10938; - break; - }; - var $10930 = $10936; - break; - }; - var $10922 = $10930; - break; - }; - var $10920 = $10922; + case 'Maybe.some': + var $12318 = self.value; + var $12319 = Parser$Reply$error$(Parser$Error$combine$($12318, $12316)); + var $12317 = $12319; + break; + case 'Maybe.none': + var $12320 = Parser$Reply$error$($12316); + var $12317 = $12320; break; }; - var $10914 = $10920; + var $12315 = $12317; + break; + case 'Parser.Reply.value': + var $12321 = self.pst; + var $12322 = self.val; + var self = $12321; + switch (self._) { + case 'Parser.State.new': + var $12324 = self.err; + var $12325 = self.nam; + var $12326 = self.ini; + var $12327 = self.idx; + var $12328 = self.str; + var $12329 = ((console.log(("FALTANDO " + $12328)), (_$31 => { + var $12330 = ((console.log(("VALUE " + $12325)), (_$32 => { + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($12314, $12324), $12325, $12326, $12327, $12328); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $12332 = self.err; + var _reply$39 = Parser$maybe$(Kind$Parser$binder(":"), _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $12334 = self.err; + var self = $12332; + switch (self._) { + case 'Maybe.some': + var $12336 = self.value; + var $12337 = Parser$Reply$error$(Parser$Error$combine$($12336, $12334)); + var $12335 = $12337; + break; + case 'Maybe.none': + var $12338 = Parser$Reply$error$($12334); + var $12335 = $12338; + break; + }; + var $12333 = $12335; + break; + case 'Parser.Reply.value': + var $12339 = self.pst; + var $12340 = self.val; + var self = $12339; + switch (self._) { + case 'Parser.State.new': + var $12342 = self.err; + var $12343 = self.nam; + var $12344 = self.ini; + var $12345 = self.idx; + var $12346 = self.str; + var $12347 = ((console.log(("FALTANDO " + $12346)), (_$47 => { + var $12348 = ((console.log(("VALUE " + $12343)), (_$48 => { + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($12332, $12342), $12343, $12344, $12345, $12346); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $12350 = self.err; + var _reply$55 = Parser$maybe$((_pst$55 => { + var self = _pst$55; + switch (self._) { + case 'Parser.State.new': + var $12353 = self.err; + var _reply$61 = Kind$Parser$text$("~", _pst$55); + var self = _reply$61; + switch (self._) { + case 'Parser.Reply.error': + var $12355 = self.err; + var self = $12353; + switch (self._) { + case 'Maybe.some': + var $12357 = self.value; + var $12358 = Parser$Reply$error$(Parser$Error$combine$($12357, $12355)); + var $12356 = $12358; + break; + case 'Maybe.none': + var $12359 = Parser$Reply$error$($12355); + var $12356 = $12359; + break; + }; + var $12354 = $12356; + break; + case 'Parser.Reply.value': + var $12360 = self.pst; + var self = $12360; + switch (self._) { + case 'Parser.State.new': + var $12362 = self.err; + var $12363 = self.nam; + var $12364 = self.ini; + var $12365 = self.idx; + var $12366 = self.str; + var $12367 = ((console.log(("FALTANDO " + $12366)), (_$69 => { + var $12368 = ((console.log(("VALUE " + $12363)), (_$70 => { + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($12353, $12362), $12363, $12364, $12365, $12366); + var $12369 = Kind$Parser$binder$(":", _reply$pst$71); + return $12369; + })())); + return $12368; + })())); + var $12361 = $12367; + break; + }; + var $12354 = $12361; + break; + }; + var $12352 = $12354; + break; + }; + return $12352; + }), _reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $12370 = self.err; + var self = $12350; + switch (self._) { + case 'Maybe.some': + var $12372 = self.value; + var $12373 = Parser$Reply$error$(Parser$Error$combine$($12372, $12370)); + var $12371 = $12373; + break; + case 'Maybe.none': + var $12374 = Parser$Reply$error$($12370); + var $12371 = $12374; + break; + }; + var $12351 = $12371; + break; + case 'Parser.Reply.value': + var $12375 = self.pst; + var $12376 = self.val; + var self = $12375; + switch (self._) { + case 'Parser.State.new': + var $12378 = self.err; + var $12379 = self.nam; + var $12380 = self.ini; + var $12381 = self.idx; + var $12382 = self.str; + var $12383 = ((console.log(("FALTANDO " + $12382)), (_$63 => { + var $12384 = ((console.log(("VALUE " + $12379)), (_$64 => { + var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($12350, $12378), $12379, $12380, $12381, $12382); + var _pars$66 = Maybe$default$($12340, List$nil); + var _inds$67 = Maybe$default$($12376, List$nil); + var self = _reply$pst$65; + switch (self._) { + case 'Parser.State.new': + var $12386 = self.err; + var _reply$73 = Kind$Parser$items$("{", Kind$Parser$ADT$ctor($12322), "}")(_reply$pst$65); + var self = _reply$73; + switch (self._) { + case 'Parser.Reply.error': + var $12388 = self.err; + var self = $12386; + switch (self._) { + case 'Maybe.some': + var $12390 = self.value; + var $12391 = Parser$Reply$error$(Parser$Error$combine$($12390, $12388)); + var $12389 = $12391; + break; + case 'Maybe.none': + var $12392 = Parser$Reply$error$($12388); + var $12389 = $12392; + break; + }; + var $12387 = $12389; + break; + case 'Parser.Reply.value': + var $12393 = self.pst; + var $12394 = self.val; + var self = $12393; + switch (self._) { + case 'Parser.State.new': + var $12396 = self.err; + var $12397 = self.nam; + var $12398 = self.ini; + var $12399 = self.idx; + var $12400 = self.str; + var $12401 = ((console.log(("FALTANDO " + $12400)), (_$81 => { + var $12402 = ((console.log(("VALUE " + $12397)), (_$82 => { + var _reply$pst$83 = Parser$State$new$(Parser$Error$maybe_combine$($12386, $12396), $12397, $12398, $12399, $12400); + var self = _reply$pst$83; + switch (self._) { + case 'Parser.State.new': + var $12404 = self.err; + var _reply$89 = Parser$maybe$((_pst$89 => { + var self = _pst$89; + switch (self._) { + case 'Parser.State.new': + var $12407 = self.err; + var _reply$95 = Kind$Parser$text$("deriving", _pst$89); + var self = _reply$95; + switch (self._) { + case 'Parser.Reply.error': + var $12409 = self.err; + var self = $12407; + switch (self._) { + case 'Maybe.some': + var $12411 = self.value; + var $12412 = Parser$Reply$error$(Parser$Error$combine$($12411, $12409)); + var $12410 = $12412; + break; + case 'Maybe.none': + var $12413 = Parser$Reply$error$($12409); + var $12410 = $12413; + break; + }; + var $12408 = $12410; + break; + case 'Parser.Reply.value': + var $12414 = self.pst; + var self = $12414; + switch (self._) { + case 'Parser.State.new': + var $12416 = self.err; + var $12417 = self.nam; + var $12418 = self.ini; + var $12419 = self.idx; + var $12420 = self.str; + var $12421 = ((console.log(("FALTANDO " + $12420)), (_$103 => { + var $12422 = ((console.log(("VALUE " + $12417)), (_$104 => { + var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($12407, $12416), $12417, $12418, $12419, $12420); + var $12423 = Kind$Parser$items$("(", Kind$Parser$name1, ")")(_reply$pst$105); + return $12423; + })())); + return $12422; + })())); + var $12415 = $12421; + break; + }; + var $12408 = $12415; + break; + }; + var $12406 = $12408; + break; + }; + return $12406; + }), _reply$pst$83); + var self = _reply$89; + switch (self._) { + case 'Parser.Reply.error': + var $12424 = self.err; + var self = $12404; + switch (self._) { + case 'Maybe.some': + var $12426 = self.value; + var $12427 = Parser$Reply$error$(Parser$Error$combine$($12426, $12424)); + var $12425 = $12427; + break; + case 'Maybe.none': + var $12428 = Parser$Reply$error$($12424); + var $12425 = $12428; + break; + }; + var $12405 = $12425; + break; + case 'Parser.Reply.value': + var $12429 = self.pst; + var $12430 = self.val; + var self = $12429; + switch (self._) { + case 'Parser.State.new': + var $12432 = self.err; + var $12433 = self.nam; + var $12434 = self.ini; + var $12435 = self.idx; + var $12436 = self.str; + var $12437 = ((console.log(("FALTANDO " + $12436)), (_$97 => { + var $12438 = ((console.log(("VALUE " + $12433)), (_$98 => { + var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($12404, $12432), $12433, $12434, $12435, $12436); + var self = $12430; + switch (self._) { + case 'Maybe.some': + var $12440 = self.value; + var $12441 = $12440; + var _deri$100 = $12441; + break; + case 'Maybe.none': + var $12442 = List$nil; + var _deri$100 = $12442; + break; + }; + var $12439 = Parser$Reply$value$(_reply$pst$99, Kind$Parser$ADT$Datatype$new$($12322, _pars$66, _inds$67, $12394, _deri$100)); + return $12439; + })())); + return $12438; + })())); + var $12431 = $12437; + break; + }; + var $12405 = $12431; + break; + }; + var $12403 = $12405; + break; + }; + return $12403; + })())); + return $12402; + })())); + var $12395 = $12401; + break; + }; + var $12387 = $12395; + break; + }; + var $12385 = $12387; + break; + }; + return $12385; + })())); + return $12384; + })())); + var $12377 = $12383; + break; + }; + var $12351 = $12377; + break; + }; + var $12349 = $12351; + break; + }; + return $12349; + })())); + return $12348; + })())); + var $12341 = $12347; + break; + }; + var $12333 = $12341; + break; + }; + var $12331 = $12333; + break; + }; + return $12331; + })())); + return $12330; + })())); + var $12323 = $12329; + break; + }; + var $12315 = $12323; break; }; - var $10906 = $10914; + var $12313 = $12315; break; }; - var $10904 = $10906; - break; - }; - var $10898 = $10904; + return $12313; + })())); + return $12312; + })())); + var $12305 = $12311; break; }; - var $10891 = $10898; + var $12298 = $12305; break; }; - var $10889 = $10891; + var $12296 = $12298; break; }; - return $10889; + return $12296; }; const Kind$Parser$ADT$adt = x0 => Kind$Parser$ADT$adt$(x0); @@ -34408,83 +38865,83 @@ module.exports = (function() { var self = _inds$3; switch (self._) { case 'List.cons': - var $11021 = self.head; - var $11022 = self.tail; - var self = $11021; + var $12444 = self.head; + var $12445 = self.tail; + var self = $12444; switch (self._) { case 'Kind.Binder.new': - var $11024 = self.eras; - var $11025 = self.name; - var $11026 = self.term; - var $11027 = Kind$Term$all$($11024, "", $11025, $11026, (_s$9 => _x$10 => { - var $11028 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, _name$2, $11022); - return $11028; + var $12447 = self.eras; + var $12448 = self.name; + var $12449 = self.term; + var $12450 = Kind$Term$all$($12447, "", $12448, $12449, (_s$9 => _x$10 => { + var $12451 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, _name$2, $12445); + return $12451; })); - var $11023 = $11027; + var $12446 = $12450; break; }; - var $11020 = $11023; + var $12443 = $12446; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11030 = self.pars; - var $11031 = self.inds; + var $12453 = self.pars; + var $12454 = self.inds; var _slf$9 = Kind$Term$ref$(_name$2); var _slf$10 = (() => { - var $11034 = _slf$9; - var $11035 = $11030; - let _slf$11 = $11034; + var $12457 = _slf$9; + var $12458 = $12453; + let _slf$11 = $12457; let _v$10; - while ($11035._ === 'List.cons') { - _v$10 = $11035.head; - var $11034 = Kind$Term$app$(_slf$11, Kind$Term$ref$((() => { + while ($12458._ === 'List.cons') { + _v$10 = $12458.head; + var $12457 = Kind$Term$app$(_slf$11, Kind$Term$ref$((() => { var self = _v$10; switch (self._) { case 'Kind.Binder.new': - var $11036 = self.name; - var $11037 = $11036; - return $11037; + var $12459 = self.name; + var $12460 = $12459; + return $12460; }; })())); - _slf$11 = $11034; - $11035 = $11035.tail; + _slf$11 = $12457; + $12458 = $12458.tail; } return _slf$11; })(); var _slf$11 = (() => { - var $11039 = _slf$10; - var $11040 = $11031; - let _slf$12 = $11039; + var $12462 = _slf$10; + var $12463 = $12454; + let _slf$12 = $12462; let _v$11; - while ($11040._ === 'List.cons') { - _v$11 = $11040.head; - var $11039 = Kind$Term$app$(_slf$12, Kind$Term$ref$((() => { + while ($12463._ === 'List.cons') { + _v$11 = $12463.head; + var $12462 = Kind$Term$app$(_slf$12, Kind$Term$ref$((() => { var self = _v$11; switch (self._) { case 'Kind.Binder.new': - var $11041 = self.name; - var $11042 = $11041; - return $11042; + var $12464 = self.name; + var $12465 = $12464; + return $12465; }; })())); - _slf$12 = $11039; - $11040 = $11040.tail; + _slf$12 = $12462; + $12463 = $12463.tail; } return _slf$12; })(); - var $11032 = Kind$Term$all$(Bool$false, "", "", _slf$11, (_s$12 => _x$13 => { - var $11043 = Kind$Term$typ; - return $11043; + var $12455 = Kind$Term$all$(Bool$false, "", "", _slf$11, (_s$12 => _x$13 => { + var $12466 = Kind$Term$typ; + return $12466; })); - var $11029 = $11032; + var $12452 = $12455; break; }; - var $11020 = $11029; + var $12443 = $12452; break; }; - return $11020; + return $12443; }; const Kind$Parser$ADT$Datatype$build_term$motive$go = x0 => x1 => x2 => Kind$Parser$ADT$Datatype$build_term$motive$go$(x0, x1, x2); @@ -34492,164 +38949,130 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11045 = self.name; - var $11046 = self.inds; - var $11047 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, $11045, $11046); - var $11044 = $11047; + var $12468 = self.name; + var $12469 = self.inds; + var $12470 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, $12468, $12469); + var $12467 = $12470; break; }; - return $11044; + return $12467; }; const Kind$Parser$ADT$Datatype$build_term$motive = x0 => Kind$Parser$ADT$Datatype$build_term$motive$(x0); - function String$flatten$go$(_xs$1, _res$2) { - var String$flatten$go$ = (_xs$1, _res$2) => ({ - ctr: 'TCO', - arg: [_xs$1, _res$2] - }); - var String$flatten$go = _xs$1 => _res$2 => String$flatten$go$(_xs$1, _res$2); - var arg = [_xs$1, _res$2]; - while (true) { - let [_xs$1, _res$2] = arg; - var R = (() => { - var self = _xs$1; - switch (self._) { - case 'List.cons': - var $11048 = self.head; - var $11049 = self.tail; - var $11050 = String$flatten$go$($11049, (_res$2 + $11048)); - return $11050; - case 'List.nil': - var $11051 = _res$2; - return $11051; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const String$flatten$go = x0 => x1 => String$flatten$go$(x0, x1); - - function String$flatten$(_xs$1) { - var $11052 = String$flatten$go$(_xs$1, ""); - return $11052; - }; - const String$flatten = x0 => String$flatten$(x0); - function Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, _args$3) { var self = _args$3; switch (self._) { case 'List.cons': - var $11054 = self.head; - var $11055 = self.tail; - var self = $11054; + var $12472 = self.head; + var $12473 = self.tail; + var self = $12472; switch (self._) { case 'Kind.Binder.new': - var $11057 = self.eras; - var $11058 = self.name; - var $11059 = self.term; - var _eras$9 = $11057; - var _name$10 = $11058; - var _xtyp$11 = $11059; - var _body$12 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $11055); - var $11060 = Kind$Term$all$(_eras$9, "", _name$10, _xtyp$11, (_s$13 => _x$14 => { - var $11061 = _body$12; - return $11061; + var $12475 = self.eras; + var $12476 = self.name; + var $12477 = self.term; + var _eras$9 = $12475; + var _name$10 = $12476; + var _xtyp$11 = $12477; + var _body$12 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $12473); + var $12478 = Kind$Term$all$(_eras$9, "", _name$10, _xtyp$11, (_s$13 => _x$14 => { + var $12479 = _body$12; + return $12479; })); - var $11056 = $11060; + var $12474 = $12478; break; }; - var $11053 = $11056; + var $12471 = $12474; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11063 = self.name; - var $11064 = self.pars; + var $12481 = self.name; + var $12482 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11066 = self.name; - var $11067 = self.args; - var $11068 = self.inds; + var $12484 = self.name; + var $12485 = self.args; + var $12486 = self.inds; var _ret$12 = Kind$Term$ref$(Kind$Name$read$("P")); var _ret$13 = (() => { - var $11071 = _ret$12; - var $11072 = $11068; - let _ret$14 = $11071; + var $12489 = _ret$12; + var $12490 = $12486; + let _ret$14 = $12489; let _v$13; - while ($11072._ === 'List.cons') { - _v$13 = $11072.head; - var $11071 = Kind$Term$app$(_ret$14, (() => { + while ($12490._ === 'List.cons') { + _v$13 = $12490.head; + var $12489 = Kind$Term$app$(_ret$14, (() => { var self = _v$13; switch (self._) { case 'Kind.Binder.new': - var $11073 = self.term; - var $11074 = $11073; - return $11074; + var $12491 = self.term; + var $12492 = $12491; + return $12492; }; })()); - _ret$14 = $11071; - $11072 = $11072.tail; + _ret$14 = $12489; + $12490 = $12490.tail; } return _ret$14; })(); - var _ctr$14 = String$flatten$(List$cons$($11063, List$cons$(Kind$Name$read$("."), List$cons$($11066, List$nil)))); + var _ctr$14 = String$flatten$(List$cons$($12481, List$cons$(Kind$Name$read$("."), List$cons$($12484, List$nil)))); var _slf$15 = Kind$Term$ref$(_ctr$14); var _slf$16 = (() => { - var $11076 = _slf$15; - var $11077 = $11064; - let _slf$17 = $11076; + var $12494 = _slf$15; + var $12495 = $12482; + let _slf$17 = $12494; let _v$16; - while ($11077._ === 'List.cons') { - _v$16 = $11077.head; - var $11076 = Kind$Term$app$(_slf$17, Kind$Term$ref$((() => { + while ($12495._ === 'List.cons') { + _v$16 = $12495.head; + var $12494 = Kind$Term$app$(_slf$17, Kind$Term$ref$((() => { var self = _v$16; switch (self._) { case 'Kind.Binder.new': - var $11078 = self.name; - var $11079 = $11078; - return $11079; + var $12496 = self.name; + var $12497 = $12496; + return $12497; }; })())); - _slf$17 = $11076; - $11077 = $11077.tail; + _slf$17 = $12494; + $12495 = $12495.tail; } return _slf$17; })(); var _slf$17 = (() => { - var $11081 = _slf$16; - var $11082 = $11067; - let _slf$18 = $11081; + var $12499 = _slf$16; + var $12500 = $12485; + let _slf$18 = $12499; let _v$17; - while ($11082._ === 'List.cons') { - _v$17 = $11082.head; - var $11081 = Kind$Term$app$(_slf$18, Kind$Term$ref$((() => { + while ($12500._ === 'List.cons') { + _v$17 = $12500.head; + var $12499 = Kind$Term$app$(_slf$18, Kind$Term$ref$((() => { var self = _v$17; switch (self._) { case 'Kind.Binder.new': - var $11083 = self.name; - var $11084 = $11083; - return $11084; + var $12501 = self.name; + var $12502 = $12501; + return $12502; }; })())); - _slf$18 = $11081; - $11082 = $11082.tail; + _slf$18 = $12499; + $12500 = $12500.tail; } return _slf$18; })(); - var $11069 = Kind$Term$app$(_ret$13, _slf$17); - var $11065 = $11069; + var $12487 = Kind$Term$app$(_ret$13, _slf$17); + var $12483 = $12487; break; }; - var $11062 = $11065; + var $12480 = $12483; break; }; - var $11053 = $11062; + var $12471 = $12480; break; }; - return $11053; + return $12471; }; const Kind$Parser$ADT$Datatype$build_term$constructor$go = x0 => x1 => x2 => Kind$Parser$ADT$Datatype$build_term$constructor$go$(x0, x1, x2); @@ -34657,12 +39080,12 @@ module.exports = (function() { var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11086 = self.args; - var $11087 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $11086); - var $11085 = $11087; + var $12504 = self.args; + var $12505 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $12504); + var $12503 = $12505; break; }; - return $11085; + return $12503; }; const Kind$Parser$ADT$Datatype$build_term$constructor = x0 => x1 => Kind$Parser$ADT$Datatype$build_term$constructor$(x0, x1); @@ -34670,56 +39093,56 @@ module.exports = (function() { var self = _ctrs$3; switch (self._) { case 'List.cons': - var $11089 = self.head; - var $11090 = self.tail; - var self = $11089; + var $12507 = self.head; + var $12508 = self.tail; + var self = $12507; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11092 = self.name; - var $11093 = Kind$Term$all$(Bool$false, "", $11092, Kind$Parser$ADT$Datatype$build_term$constructor$(_type$1, $11089), (_s$9 => _x$10 => { - var $11094 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, _name$2, $11090); - return $11094; + var $12510 = self.name; + var $12511 = Kind$Term$all$(Bool$false, "", $12510, Kind$Parser$ADT$Datatype$build_term$constructor$(_type$1, $12507), (_s$9 => _x$10 => { + var $12512 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, _name$2, $12508); + return $12512; })); - var $11091 = $11093; + var $12509 = $12511; break; }; - var $11088 = $11091; + var $12506 = $12509; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11096 = self.inds; + var $12514 = self.inds; var _ret$9 = Kind$Term$ref$(Kind$Name$read$("P")); var _ret$10 = (() => { - var $11099 = _ret$9; - var $11100 = $11096; - let _ret$11 = $11099; + var $12517 = _ret$9; + var $12518 = $12514; + let _ret$11 = $12517; let _v$10; - while ($11100._ === 'List.cons') { - _v$10 = $11100.head; - var $11099 = Kind$Term$app$(_ret$11, Kind$Term$ref$((() => { + while ($12518._ === 'List.cons') { + _v$10 = $12518.head; + var $12517 = Kind$Term$app$(_ret$11, Kind$Term$ref$((() => { var self = _v$10; switch (self._) { case 'Kind.Binder.new': - var $11101 = self.name; - var $11102 = $11101; - return $11102; + var $12519 = self.name; + var $12520 = $12519; + return $12520; }; })())); - _ret$11 = $11099; - $11100 = $11100.tail; + _ret$11 = $12517; + $12518 = $12518.tail; } return _ret$11; })(); - var $11097 = Kind$Term$app$(_ret$10, Kind$Term$ref$((_name$2 + ".Self"))); - var $11095 = $11097; + var $12515 = Kind$Term$app$(_ret$10, Kind$Term$ref$((_name$2 + ".Self"))); + var $12513 = $12515; break; }; - var $11088 = $11095; + var $12506 = $12513; break; }; - return $11088; + return $12506; }; const Kind$Parser$ADT$Datatype$build_term$constructors$go = x0 => x1 => x2 => Kind$Parser$ADT$Datatype$build_term$constructors$go$(x0, x1, x2); @@ -34727,13 +39150,13 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11104 = self.name; - var $11105 = self.ctrs; - var $11106 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, $11104, $11105); - var $11103 = $11106; + var $12522 = self.name; + var $12523 = self.ctrs; + var $12524 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, $12522, $12523); + var $12521 = $12524; break; }; - return $11103; + return $12521; }; const Kind$Parser$ADT$Datatype$build_term$constructors = x0 => Kind$Parser$ADT$Datatype$build_term$constructors$(x0); @@ -34741,52 +39164,52 @@ module.exports = (function() { var self = _pars$3; switch (self._) { case 'List.cons': - var $11108 = self.head; - var $11109 = self.tail; - var self = $11108; + var $12526 = self.head; + var $12527 = self.tail; + var self = $12526; switch (self._) { case 'Kind.Binder.new': - var $11111 = self.name; - var $11112 = Kind$Term$lam$($11111, (_x$10 => { - var $11113 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, $11109, _inds$4); - return $11113; + var $12529 = self.name; + var $12530 = Kind$Term$lam$($12529, (_x$10 => { + var $12531 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, $12527, _inds$4); + return $12531; })); - var $11110 = $11112; + var $12528 = $12530; break; }; - var $11107 = $11110; + var $12525 = $12528; break; case 'List.nil': var self = _inds$4; switch (self._) { case 'List.cons': - var $11115 = self.head; - var $11116 = self.tail; - var self = $11115; + var $12533 = self.head; + var $12534 = self.tail; + var self = $12533; switch (self._) { case 'Kind.Binder.new': - var $11118 = self.name; - var $11119 = Kind$Term$lam$($11118, (_x$10 => { - var $11120 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, _pars$3, $11116); - return $11120; + var $12536 = self.name; + var $12537 = Kind$Term$lam$($12536, (_x$10 => { + var $12538 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, _pars$3, $12534); + return $12538; })); - var $11117 = $11119; + var $12535 = $12537; break; }; - var $11114 = $11117; + var $12532 = $12535; break; case 'List.nil': - var $11121 = Kind$Term$all$(Bool$true, (_name$2 + ".Self"), Kind$Name$read$("P"), Kind$Parser$ADT$Datatype$build_term$motive$(_type$1), (_s$5 => _x$6 => { - var $11122 = Kind$Parser$ADT$Datatype$build_term$constructors$(_type$1); - return $11122; + var $12539 = Kind$Term$all$(Bool$true, (_name$2 + ".Self"), Kind$Name$read$("P"), Kind$Parser$ADT$Datatype$build_term$motive$(_type$1), (_s$5 => _x$6 => { + var $12540 = Kind$Parser$ADT$Datatype$build_term$constructors$(_type$1); + return $12540; })); - var $11114 = $11121; + var $12532 = $12539; break; }; - var $11107 = $11114; + var $12525 = $12532; break; }; - return $11107; + return $12525; }; const Kind$Parser$ADT$Datatype$build_term$go = x0 => x1 => x2 => x3 => Kind$Parser$ADT$Datatype$build_term$go$(x0, x1, x2, x3); @@ -34794,14 +39217,14 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11124 = self.name; - var $11125 = self.pars; - var $11126 = self.inds; - var $11127 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, $11124, $11125, $11126); - var $11123 = $11127; + var $12542 = self.name; + var $12543 = self.pars; + var $12544 = self.inds; + var $12545 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, $12542, $12543, $12544); + var $12541 = $12545; break; }; - return $11123; + return $12541; }; const Kind$Parser$ADT$Datatype$build_term = x0 => Kind$Parser$ADT$Datatype$build_term$(x0); @@ -34809,51 +39232,51 @@ module.exports = (function() { var self = _pars$3; switch (self._) { case 'List.cons': - var $11129 = self.head; - var $11130 = self.tail; - var self = $11129; + var $12547 = self.head; + var $12548 = self.tail; + var self = $12547; switch (self._) { case 'Kind.Binder.new': - var $11132 = self.name; - var $11133 = self.term; - var $11134 = Kind$Term$all$(Bool$false, "", $11132, $11133, (_s$10 => _x$11 => { - var $11135 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, $11130, _inds$4); - return $11135; + var $12550 = self.name; + var $12551 = self.term; + var $12552 = Kind$Term$all$(Bool$false, "", $12550, $12551, (_s$10 => _x$11 => { + var $12553 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, $12548, _inds$4); + return $12553; })); - var $11131 = $11134; + var $12549 = $12552; break; }; - var $11128 = $11131; + var $12546 = $12549; break; case 'List.nil': var self = _inds$4; switch (self._) { case 'List.cons': - var $11137 = self.head; - var $11138 = self.tail; - var self = $11137; + var $12555 = self.head; + var $12556 = self.tail; + var self = $12555; switch (self._) { case 'Kind.Binder.new': - var $11140 = self.name; - var $11141 = self.term; - var $11142 = Kind$Term$all$(Bool$false, "", $11140, $11141, (_s$10 => _x$11 => { - var $11143 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, _pars$3, $11138); - return $11143; + var $12558 = self.name; + var $12559 = self.term; + var $12560 = Kind$Term$all$(Bool$false, "", $12558, $12559, (_s$10 => _x$11 => { + var $12561 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, _pars$3, $12556); + return $12561; })); - var $11139 = $11142; + var $12557 = $12560; break; }; - var $11136 = $11139; + var $12554 = $12557; break; case 'List.nil': - var $11144 = Kind$Term$typ; - var $11136 = $11144; + var $12562 = Kind$Term$typ; + var $12554 = $12562; break; }; - var $11128 = $11136; + var $12546 = $12554; break; }; - return $11128; + return $12546; }; const Kind$Parser$ADT$Datatype$build_type$go = x0 => x1 => x2 => x3 => Kind$Parser$ADT$Datatype$build_type$go$(x0, x1, x2, x3); @@ -34861,14 +39284,14 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11146 = self.name; - var $11147 = self.pars; - var $11148 = self.inds; - var $11149 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, $11146, $11147, $11148); - var $11145 = $11149; + var $12564 = self.name; + var $12565 = self.pars; + var $12566 = self.inds; + var $12567 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, $12564, $12565, $12566); + var $12563 = $12567; break; }; - return $11145; + return $12563; }; const Kind$Parser$ADT$Datatype$build_type = x0 => Kind$Parser$ADT$Datatype$build_type$(x0); @@ -34876,57 +39299,57 @@ module.exports = (function() { var self = _ctrs$3; switch (self._) { case 'List.cons': - var $11151 = self.head; - var $11152 = self.tail; - var self = $11151; + var $12569 = self.head; + var $12570 = self.tail; + var self = $12569; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11154 = self.name; - var $11155 = Kind$Term$lam$($11154, (_x$9 => { - var $11156 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $11152); - return $11156; + var $12572 = self.name; + var $12573 = Kind$Term$lam$($12572, (_x$9 => { + var $12574 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $12570); + return $12574; })); - var $11153 = $11155; + var $12571 = $12573; break; }; - var $11150 = $11153; + var $12568 = $12571; break; case 'List.nil': var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11158 = self.name; - var $11159 = self.args; - var _ret$7 = Kind$Term$ref$($11158); + var $12576 = self.name; + var $12577 = self.args; + var _ret$7 = Kind$Term$ref$($12576); var _ret$8 = (() => { - var $11162 = _ret$7; - var $11163 = $11159; - let _ret$9 = $11162; + var $12580 = _ret$7; + var $12581 = $12577; + let _ret$9 = $12580; let _arg$8; - while ($11163._ === 'List.cons') { - _arg$8 = $11163.head; - var $11162 = Kind$Term$app$(_ret$9, Kind$Term$ref$((() => { + while ($12581._ === 'List.cons') { + _arg$8 = $12581.head; + var $12580 = Kind$Term$app$(_ret$9, Kind$Term$ref$((() => { var self = _arg$8; switch (self._) { case 'Kind.Binder.new': - var $11164 = self.name; - var $11165 = $11164; - return $11165; + var $12582 = self.name; + var $12583 = $12582; + return $12583; }; })())); - _ret$9 = $11162; - $11163 = $11163.tail; + _ret$9 = $12580; + $12581 = $12581.tail; } return _ret$9; })(); - var $11160 = _ret$8; - var $11157 = $11160; + var $12578 = _ret$8; + var $12575 = $12578; break; }; - var $11150 = $11157; + var $12568 = $12575; break; }; - return $11150; + return $12568; }; const Kind$Parser$ADT$Constructor$build_term$opt$go = x0 => x1 => x2 => Kind$Parser$ADT$Constructor$build_term$opt$go$(x0, x1, x2); @@ -34934,12 +39357,12 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11167 = self.ctrs; - var $11168 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $11167); - var $11166 = $11168; + var $12585 = self.ctrs; + var $12586 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $12585); + var $12584 = $12586; break; }; - return $11166; + return $12584; }; const Kind$Parser$ADT$Constructor$build_term$opt = x0 => x1 => Kind$Parser$ADT$Constructor$build_term$opt$(x0, x1); @@ -34947,52 +39370,52 @@ module.exports = (function() { var self = _pars$4; switch (self._) { case 'List.cons': - var $11170 = self.head; - var $11171 = self.tail; - var self = $11170; + var $12588 = self.head; + var $12589 = self.tail; + var self = $12588; switch (self._) { case 'Kind.Binder.new': - var $11173 = self.name; - var $11174 = Kind$Term$lam$($11173, (_x$11 => { - var $11175 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, $11171, _args$5); - return $11175; + var $12591 = self.name; + var $12592 = Kind$Term$lam$($12591, (_x$11 => { + var $12593 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, $12589, _args$5); + return $12593; })); - var $11172 = $11174; + var $12590 = $12592; break; }; - var $11169 = $11172; + var $12587 = $12590; break; case 'List.nil': var self = _args$5; switch (self._) { case 'List.cons': - var $11177 = self.head; - var $11178 = self.tail; - var self = $11177; + var $12595 = self.head; + var $12596 = self.tail; + var self = $12595; switch (self._) { case 'Kind.Binder.new': - var $11180 = self.name; - var $11181 = Kind$Term$lam$($11180, (_x$11 => { - var $11182 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, _pars$4, $11178); - return $11182; + var $12598 = self.name; + var $12599 = Kind$Term$lam$($12598, (_x$11 => { + var $12600 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, _pars$4, $12596); + return $12600; })); - var $11179 = $11181; + var $12597 = $12599; break; }; - var $11176 = $11179; + var $12594 = $12597; break; case 'List.nil': - var $11183 = Kind$Term$lam$(Kind$Name$read$("P"), (_x$6 => { - var $11184 = Kind$Parser$ADT$Constructor$build_term$opt$(_type$1, _ctor$2); - return $11184; + var $12601 = Kind$Term$lam$(Kind$Name$read$("P"), (_x$6 => { + var $12602 = Kind$Parser$ADT$Constructor$build_term$opt$(_type$1, _ctor$2); + return $12602; })); - var $11176 = $11183; + var $12594 = $12601; break; }; - var $11169 = $11176; + var $12587 = $12594; break; }; - return $11169; + return $12587; }; const Kind$Parser$ADT$Constructor$build_term$go = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Constructor$build_term$go$(x0, x1, x2, x3, x4); @@ -35000,20 +39423,20 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11186 = self.name; - var $11187 = self.pars; + var $12604 = self.name; + var $12605 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11189 = self.args; - var $11190 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, $11186, $11187, $11189); - var $11188 = $11190; + var $12607 = self.args; + var $12608 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, $12604, $12605, $12607); + var $12606 = $12608; break; }; - var $11185 = $11188; + var $12603 = $12606; break; }; - return $11185; + return $12603; }; const Kind$Parser$ADT$Constructor$build_term = x0 => x1 => Kind$Parser$ADT$Constructor$build_term$(x0, x1); @@ -35021,110 +39444,110 @@ module.exports = (function() { var self = _pars$4; switch (self._) { case 'List.cons': - var $11192 = self.head; - var $11193 = self.tail; - var self = $11192; + var $12610 = self.head; + var $12611 = self.tail; + var self = $12610; switch (self._) { case 'Kind.Binder.new': - var $11195 = self.eras; - var $11196 = self.name; - var $11197 = self.term; - var $11198 = Kind$Term$all$($11195, "", $11196, $11197, (_s$11 => _x$12 => { - var $11199 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, $11193, _args$5); - return $11199; + var $12613 = self.eras; + var $12614 = self.name; + var $12615 = self.term; + var $12616 = Kind$Term$all$($12613, "", $12614, $12615, (_s$11 => _x$12 => { + var $12617 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, $12611, _args$5); + return $12617; })); - var $11194 = $11198; + var $12612 = $12616; break; }; - var $11191 = $11194; + var $12609 = $12612; break; case 'List.nil': var self = _args$5; switch (self._) { case 'List.cons': - var $11201 = self.head; - var $11202 = self.tail; - var self = $11201; + var $12619 = self.head; + var $12620 = self.tail; + var self = $12619; switch (self._) { case 'Kind.Binder.new': - var $11204 = self.eras; - var $11205 = self.name; - var $11206 = self.term; - var $11207 = Kind$Term$all$($11204, "", $11205, $11206, (_s$11 => _x$12 => { - var $11208 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, _pars$4, $11202); - return $11208; + var $12622 = self.eras; + var $12623 = self.name; + var $12624 = self.term; + var $12625 = Kind$Term$all$($12622, "", $12623, $12624, (_s$11 => _x$12 => { + var $12626 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, _pars$4, $12620); + return $12626; })); - var $11203 = $11207; + var $12621 = $12625; break; }; - var $11200 = $11203; + var $12618 = $12621; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11210 = self.pars; + var $12628 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11212 = self.inds; + var $12630 = self.inds; var _type$14 = Kind$Term$ref$(_name$3); var _type$15 = (() => { - var $11215 = _type$14; - var $11216 = $11210; - let _type$16 = $11215; + var $12633 = _type$14; + var $12634 = $12628; + let _type$16 = $12633; let _v$15; - while ($11216._ === 'List.cons') { - _v$15 = $11216.head; - var $11215 = Kind$Term$app$(_type$16, Kind$Term$ref$((() => { + while ($12634._ === 'List.cons') { + _v$15 = $12634.head; + var $12633 = Kind$Term$app$(_type$16, Kind$Term$ref$((() => { var self = _v$15; switch (self._) { case 'Kind.Binder.new': - var $11217 = self.name; - var $11218 = $11217; - return $11218; + var $12635 = self.name; + var $12636 = $12635; + return $12636; }; })())); - _type$16 = $11215; - $11216 = $11216.tail; + _type$16 = $12633; + $12634 = $12634.tail; } return _type$16; })(); var _type$16 = (() => { - var $11220 = _type$15; - var $11221 = $11212; - let _type$17 = $11220; + var $12638 = _type$15; + var $12639 = $12630; + let _type$17 = $12638; let _v$16; - while ($11221._ === 'List.cons') { - _v$16 = $11221.head; - var $11220 = Kind$Term$app$(_type$17, (() => { + while ($12639._ === 'List.cons') { + _v$16 = $12639.head; + var $12638 = Kind$Term$app$(_type$17, (() => { var self = _v$16; switch (self._) { case 'Kind.Binder.new': - var $11222 = self.term; - var $11223 = $11222; - return $11223; + var $12640 = self.term; + var $12641 = $12640; + return $12641; }; })()); - _type$17 = $11220; - $11221 = $11221.tail; + _type$17 = $12638; + $12639 = $12639.tail; } return _type$17; })(); - var $11213 = _type$16; - var $11211 = $11213; + var $12631 = _type$16; + var $12629 = $12631; break; }; - var $11209 = $11211; + var $12627 = $12629; break; }; - var $11200 = $11209; + var $12618 = $12627; break; }; - var $11191 = $11200; + var $12609 = $12618; break; }; - return $11191; + return $12609; }; const Kind$Parser$ADT$Constructor$build_type$go = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Constructor$build_type$go$(x0, x1, x2, x3, x4); @@ -35132,20 +39555,20 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11225 = self.name; - var $11226 = self.pars; + var $12643 = self.name; + var $12644 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11228 = self.args; - var $11229 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, $11225, $11226, $11228); - var $11227 = $11229; + var $12646 = self.args; + var $12647 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, $12643, $12644, $12646); + var $12645 = $12647; break; }; - var $11224 = $11227; + var $12642 = $12645; break; }; - return $11224; + return $12642; }; const Kind$Parser$ADT$Constructor$build_type = x0 => x1 => Kind$Parser$ADT$Constructor$build_type$(x0, x1); @@ -35153,15 +39576,15 @@ module.exports = (function() { var self = _list$2; switch (self._) { case 'List.nil': - var $11231 = Bool$true; - var $11230 = $11231; + var $12649 = Bool$true; + var $12648 = $12649; break; case 'List.cons': - var $11232 = Bool$false; - var $11230 = $11232; + var $12650 = Bool$false; + var $12648 = $12650; break; }; - return $11230; + return $12648; }; const List$is_empty = x0 => List$is_empty$(x0); @@ -35178,14 +39601,14 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.app': - var $11233 = self.func; - var $11234 = self.argm; - var $11235 = Kind$Term$get_args$go$($11233, List$cons$($11234, _args$2)); - return $11235; + var $12651 = self.func; + var $12652 = self.argm; + var $12653 = Kind$Term$get_args$go$($12651, List$cons$($12652, _args$2)); + return $12653; case 'Kind.Term.ori': - var $11236 = self.expr; - var $11237 = Kind$Term$get_args$go$($11236, _args$2); - return $11237; + var $12654 = self.expr; + var $12655 = Kind$Term$get_args$go$($12654, _args$2); + return $12655; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -35205,8 +39628,8 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $11238 = Pair$new$(_term$1, _args$2); - return $11238; + var $12656 = Pair$new$(_term$1, _args$2); + return $12656; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -35216,8 +39639,8 @@ module.exports = (function() { const Kind$Term$get_args$go = x0 => x1 => Kind$Term$get_args$go$(x0, x1); function Kind$Term$get_args$(_term$1) { - var $11239 = Kind$Term$get_args$go$(_term$1, List$nil); - return $11239; + var $12657 = Kind$Term$get_args$go$(_term$1, List$nil); + return $12657; }; const Kind$Term$get_args = x0 => Kind$Term$get_args$(x0); @@ -35225,61 +39648,61 @@ module.exports = (function() { var self = Kind$Term$get_args$(_call$1); switch (self._) { case 'Pair.new': - var $11241 = self.fst; - var $11242 = self.snd; - var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($11241) + ".stringifier")); + var $12659 = self.fst; + var $12660 = self.snd; + var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($12659) + ".stringifier")); var _term$6 = (() => { - var $11245 = _term$5; - var $11246 = $11242; - let _term$7 = $11245; + var $12663 = _term$5; + var $12664 = $12660; + let _term$7 = $12663; let _par$6; - while ($11246._ === 'List.cons') { - _par$6 = $11246.head; - var $11245 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); - _term$7 = $11245; - $11246 = $11246.tail; + while ($12664._ === 'List.cons') { + _par$6 = $12664.head; + var $12663 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); + _term$7 = $12663; + $12664 = $12664.tail; } return _term$7; })(); var _term$7 = (() => { - var $11248 = _term$6; - var $11249 = $11242; - let _term$8 = $11248; + var $12666 = _term$6; + var $12667 = $12660; + let _term$8 = $12666; let _par$7; - while ($11249._ === 'List.cons') { - _par$7 = $11249.head; - var $11248 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$stringifier$term$cont$(_par$7, Maybe$none)); - _term$8 = $11248; - $11249 = $11249.tail; + while ($12667._ === 'List.cons') { + _par$7 = $12667.head; + var $12666 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$stringifier$term$cont$(_par$7, Maybe$none)); + _term$8 = $12666; + $12667 = $12667.tail; } return _term$8; })(); var self = _rest$2; switch (self._) { case 'Maybe.some': - var $11250 = self.value; - var self = $11250; + var $12668 = self.value; + var self = $12668; switch (self._) { case 'Pair.new': - var $11252 = self.fst; - var $11253 = self.snd; - var _term$11 = Kind$Term$app$(_term$7, Kind$Term$ref$($11252)); - var _term$12 = Kind$Term$app$(_term$11, $11253); - var $11254 = _term$12; - var $11251 = $11254; + var $12670 = self.fst; + var $12671 = self.snd; + var _term$11 = Kind$Term$app$(_term$7, Kind$Term$ref$($12670)); + var _term$12 = Kind$Term$app$(_term$11, $12671); + var $12672 = _term$12; + var $12669 = $12672; break; }; - var $11243 = $11251; + var $12661 = $12669; break; case 'Maybe.none': - var $11255 = _term$7; - var $11243 = $11255; + var $12673 = _term$7; + var $12661 = $12673; break; }; - var $11240 = $11243; + var $12658 = $12661; break; }; - return $11240; + return $12658; }; const Kind$Parser$ADT$Derive$stringifier$term$cont = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$cont$(x0, x1); @@ -35287,52 +39710,52 @@ module.exports = (function() { var self = _args$1; switch (self._) { case 'List.cons': - var $11257 = self.head; - var $11258 = self.tail; - var self = $11257; + var $12675 = self.head; + var $12676 = self.tail; + var self = $12675; switch (self._) { case 'Kind.Binder.new': - var $11260 = self.name; - var $11261 = self.term; - var self = Kind$Term$get_args$($11261); + var $12678 = self.name; + var $12679 = self.term; + var self = Kind$Term$get_args$($12679); switch (self._) { case 'Pair.new': - var _rest$10 = Kind$Parser$ADT$Derive$stringifier$term$args$($11258, Bool$false); - var _term$11 = Kind$Parser$ADT$Derive$stringifier$term$cont$($11261, Maybe$some$(Pair$new$(("x." + $11260), _rest$10))); + var _rest$10 = Kind$Parser$ADT$Derive$stringifier$term$args$($12676, Bool$false); + var _term$11 = Kind$Parser$ADT$Derive$stringifier$term$cont$($12679, Maybe$some$(Pair$new$(("x." + $12678), _rest$10))); var _term$12 = Kind$Term$app$(Kind$Term$app$(Kind$Term$ref$("Stringifier.text"), Kind$Term$str$((() => { var self = _fst$2; if (self) { - var $11264 = "("; - return $11264; + var $12682 = "("; + return $12682; } else { - var $11265 = ","; - return $11265; + var $12683 = ","; + return $12683; }; })())), _term$11); - var $11263 = _term$12; - var $11262 = $11263; + var $12681 = _term$12; + var $12680 = $12681; break; }; - var $11259 = $11262; + var $12677 = $12680; break; }; - var $11256 = $11259; + var $12674 = $12677; break; case 'List.nil': var _term$3 = Kind$Term$ref$("str"); var self = _fst$2; if (self) { - var $11267 = _term$3; - var _term$4 = $11267; + var $12685 = _term$3; + var _term$4 = $12685; } else { - var $11268 = Kind$Term$app$(Kind$Term$app$(Kind$Term$ref$("Stringifier.text"), Kind$Term$str$(")")), _term$3); - var _term$4 = $11268; + var $12686 = Kind$Term$app$(Kind$Term$app$(Kind$Term$ref$("Stringifier.text"), Kind$Term$str$(")")), _term$3); + var _term$4 = $12686; }; - var $11266 = _term$4; - var $11256 = $11266; + var $12684 = _term$4; + var $12674 = $12684; break; }; - return $11256; + return $12674; }; const Kind$Parser$ADT$Derive$stringifier$term$args = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$args$(x0, x1); @@ -35340,16 +39763,16 @@ module.exports = (function() { var self = _ctr$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11270 = self.name; - var $11271 = self.args; + var $12688 = self.name; + var $12689 = self.args; var _term$6 = Kind$Term$ref$("Stringifier.text"); - var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$((_adt_name$1 + ("." + $11270)))); - var _term$8 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$stringifier$term$args$($11271, Bool$true)); - var $11272 = Pair$new$($11270, _term$8); - var $11269 = $11272; + var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$((_adt_name$1 + ("." + $12688)))); + var _term$8 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$stringifier$term$args$($12689, Bool$true)); + var $12690 = Pair$new$($12688, _term$8); + var $12687 = $12690; break; }; - return $11269; + return $12687; }; const Kind$Parser$ADT$Derive$stringifier$ctr = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$ctr$(x0, x1); @@ -35357,17 +39780,17 @@ module.exports = (function() { var self = _ctrs$2; switch (self._) { case 'List.cons': - var $11274 = self.head; - var $11275 = self.tail; - var $11276 = List$cons$(Kind$Parser$ADT$Derive$stringifier$ctr$(_adt_name$1, $11274), Kind$Parser$ADT$Derive$stringifier$term$ctrs$(_adt_name$1, $11275)); - var $11273 = $11276; + var $12692 = self.head; + var $12693 = self.tail; + var $12694 = List$cons$(Kind$Parser$ADT$Derive$stringifier$ctr$(_adt_name$1, $12692), Kind$Parser$ADT$Derive$stringifier$term$ctrs$(_adt_name$1, $12693)); + var $12691 = $12694; break; case 'List.nil': - var $11277 = List$nil; - var $11273 = $11277; + var $12695 = List$nil; + var $12691 = $12695; break; }; - return $11273; + return $12691; }; const Kind$Parser$ADT$Derive$stringifier$term$ctrs = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$ctrs$(x0, x1); @@ -35375,52 +39798,52 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11279 = self.name; - var $11280 = self.pars; - var $11281 = self.inds; - var $11282 = self.ctrs; - var self = (List$is_empty$($11280) && List$is_empty$($11281)); + var $12697 = self.name; + var $12698 = self.pars; + var $12699 = self.inds; + var $12700 = self.ctrs; + var self = (List$is_empty$($12698) && List$is_empty$($12699)); if (self) { var _term$7 = Kind$Term$lam$("x", (_x$7 => { - var $11285 = Kind$Term$lam$("str", (_str$8 => { - var _ctrs$9 = Kind$Parser$ADT$Derive$stringifier$term$ctrs$($11279, $11282); + var $12703 = Kind$Term$lam$("str", (_str$8 => { + var _ctrs$9 = Kind$Parser$ADT$Derive$stringifier$term$ctrs$($12697, $12700); var _cses$10 = Kind$Map$new; var _cses$11 = (() => { - var $11288 = _cses$10; - var $11289 = _ctrs$9; - let _cses$12 = $11288; + var $12706 = _cses$10; + var $12707 = _ctrs$9; + let _cses$12 = $12706; let _ctr$11; - while ($11289._ === 'List.cons') { - _ctr$11 = $11289.head; + while ($12707._ === 'List.cons') { + _ctr$11 = $12707.head; var self = _ctr$11; switch (self._) { case 'Pair.new': - var $11290 = self.fst; - var $11291 = self.snd; - var $11292 = Kind$Map$set$($11290, $11291, _cses$12); - var $11288 = $11292; + var $12708 = self.fst; + var $12709 = self.snd; + var $12710 = Kind$Map$set$($12708, $12709, _cses$12); + var $12706 = $12710; break; }; - _cses$12 = $11288; - $11289 = $11289.tail; + _cses$12 = $12706; + $12707 = $12707.tail; } return _cses$12; })(); - var $11286 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); - return $11286; + var $12704 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); + return $12704; })); - return $11285; + return $12703; })); - var $11284 = Maybe$some$(_term$7); - var $11283 = $11284; + var $12702 = Maybe$some$(_term$7); + var $12701 = $12702; } else { - var $11293 = Maybe$none; - var $11283 = $11293; + var $12711 = Maybe$none; + var $12701 = $12711; }; - var $11278 = $11283; + var $12696 = $12701; break; }; - return $11278; + return $12696; }; const Kind$Parser$ADT$Derive$stringifier$term = x0 => Kind$Parser$ADT$Derive$stringifier$term$(x0); @@ -35428,33 +39851,33 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11295 = self.name; - var $11296 = self.pars; - var $11297 = self.inds; - var self = (List$is_empty$($11296) && List$is_empty$($11297)); + var $12713 = self.name; + var $12714 = self.pars; + var $12715 = self.inds; + var self = (List$is_empty$($12714) && List$is_empty$($12715)); if (self) { - var $11299 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Stringifier"), Kind$Term$ref$($11295))); - var $11298 = $11299; + var $12717 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Stringifier"), Kind$Term$ref$($12713))); + var $12716 = $12717; } else { - var $11300 = Maybe$none; - var $11298 = $11300; + var $12718 = Maybe$none; + var $12716 = $12718; }; - var $11294 = $11298; + var $12712 = $12716; break; }; - return $11294; + return $12712; }; const Kind$Parser$ADT$Derive$stringifier$type = x0 => Kind$Parser$ADT$Derive$stringifier$type$(x0); function Kind$Parser$ADT$Derived$new$(_name$1, _arit$2, _term$3, _type$4) { - var $11301 = ({ + var $12719 = ({ _: 'Kind.Parser.ADT.Derived.new', 'name': _name$1, 'arit': _arit$2, 'term': _term$3, 'type': _type$4 }); - return $11301; + return $12719; }; const Kind$Parser$ADT$Derived$new = x0 => x1 => x2 => x3 => Kind$Parser$ADT$Derived$new$(x0, x1, x2, x3); @@ -35462,40 +39885,40 @@ module.exports = (function() { var self = Kind$Term$get_args$(_call$1); switch (self._) { case 'Pair.new': - var $11303 = self.fst; - var $11304 = self.snd; - var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($11303) + ".parser")); + var $12721 = self.fst; + var $12722 = self.snd; + var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($12721) + ".parser")); var _term$5 = (() => { - var $11307 = _term$4; - var $11308 = $11304; - let _term$6 = $11307; + var $12725 = _term$4; + var $12726 = $12722; + let _term$6 = $12725; let _par$5; - while ($11308._ === 'List.cons') { - _par$5 = $11308.head; - var $11307 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); - _term$6 = $11307; - $11308 = $11308.tail; + while ($12726._ === 'List.cons') { + _par$5 = $12726.head; + var $12725 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); + _term$6 = $12725; + $12726 = $12726.tail; } return _term$6; })(); var _term$6 = (() => { - var $11310 = _term$5; - var $11311 = $11304; - let _term$7 = $11310; + var $12728 = _term$5; + var $12729 = $12722; + let _term$7 = $12728; let _par$6; - while ($11311._ === 'List.cons') { - _par$6 = $11311.head; - var $11310 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$parser$term$cont$(_par$6)); - _term$7 = $11310; - $11311 = $11311.tail; + while ($12729._ === 'List.cons') { + _par$6 = $12729.head; + var $12728 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$parser$term$cont$(_par$6)); + _term$7 = $12728; + $12729 = $12729.tail; } return _term$7; })(); - var $11305 = _term$6; - var $11302 = $11305; + var $12723 = _term$6; + var $12720 = $12723; break; }; - return $11302; + return $12720; }; const Kind$Parser$ADT$Derive$parser$term$cont = x0 => Kind$Parser$ADT$Derive$parser$term$cont$(x0); @@ -35503,13 +39926,13 @@ module.exports = (function() { var self = _args$3; switch (self._) { case 'List.cons': - var $11313 = self.head; - var $11314 = self.tail; - var self = $11313; + var $12731 = self.head; + var $12732 = self.tail; + var self = $12731; switch (self._) { case 'Kind.Binder.new': - var $11316 = self.name; - var $11317 = self.term; + var $12734 = self.name; + var $12735 = self.term; var _term$11 = Kind$Term$ref$("Parser.bind"); var _term$12 = Kind$Term$app$(_term$11, Kind$Term$hol$(Bits$e)); var _term$13 = Kind$Term$app$(_term$12, Kind$Term$hol$(Bits$e)); @@ -35518,54 +39941,54 @@ module.exports = (function() { var _cont$16 = Kind$Term$app$(_cont$15, Kind$Term$str$((() => { var self = _fst$5; if (self) { - var $11319 = "("; - return $11319; + var $12737 = "("; + return $12737; } else { - var $11320 = ","; - return $11320; + var $12738 = ","; + return $12738; }; })())); - var _cont$17 = Kind$Term$app$(_cont$16, Kind$Parser$ADT$Derive$parser$term$cont$($11317)); + var _cont$17 = Kind$Term$app$(_cont$16, Kind$Parser$ADT$Derive$parser$term$cont$($12735)); var _term$18 = Kind$Term$app$(_term$13, _cont$17); - var _term$19 = Kind$Term$app$(_term$18, Kind$Term$lam$($11316, (_x$19 => { - var $11321 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$2, $11314, List$cons$(_x$19, _vars$4), Bool$false); - return $11321; + var _term$19 = Kind$Term$app$(_term$18, Kind$Term$lam$($12734, (_x$19 => { + var $12739 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$2, $12732, List$cons$(_x$19, _vars$4), Bool$false); + return $12739; }))); - var $11318 = _term$19; - var $11315 = $11318; + var $12736 = _term$19; + var $12733 = $12736; break; }; - var $11312 = $11315; + var $12730 = $12733; break; case 'List.nil': var _body$6 = Kind$Term$ref$("Parser.pure"); var _body$7 = Kind$Term$app$(_body$6, Kind$Term$hol$(Bits$e)); var _func$8 = Kind$Term$ref$(_cnam$2); var _func$9 = List$fold$(_vars$4, _func$8, (_var$9 => _func$10 => { - var $11323 = Kind$Term$app$(_func$10, _var$9); - return $11323; + var $12741 = Kind$Term$app$(_func$10, _var$9); + return $12741; })); var _body$10 = Kind$Term$app$(_body$7, _func$9); var self = _fst$5; if (self) { - var $11324 = _body$10; - var $11322 = $11324; + var $12742 = _body$10; + var $12740 = $12742; } else { var _term$11 = Kind$Term$ref$("Parser.bind"); var _term$12 = Kind$Term$app$(_term$11, Kind$Term$hol$(Bits$e)); var _term$13 = Kind$Term$app$(_term$12, Kind$Term$hol$(Bits$e)); var _term$14 = Kind$Term$app$(_term$13, Kind$Term$app$(Kind$Term$ref$("Parser.text"), Kind$Term$str$(")"))); var _term$15 = Kind$Term$app$(_term$14, Kind$Term$lam$("", (_x$15 => { - var $11326 = _body$10; - return $11326; + var $12744 = _body$10; + return $12744; }))); - var $11325 = _term$15; - var $11322 = $11325; + var $12743 = _term$15; + var $12740 = $12743; }; - var $11312 = $11322; + var $12730 = $12740; break; }; - return $11312; + return $12730; }; const Kind$Parser$ADT$Derive$parser$term$args = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Derive$parser$term$args$(x0, x1, x2, x3, x4); @@ -35573,35 +39996,35 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11328 = self.name; + var $12746 = self.name; var self = _cses$2; switch (self._) { case 'List.cons': - var $11330 = self.head; - var $11331 = self.tail; - var self = $11330; + var $12748 = self.head; + var $12749 = self.tail; + var self = $12748; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11333 = self.name; - var $11334 = self.args; - var _cnam$13 = ($11328 + ("." + $11333)); + var $12751 = self.name; + var $12752 = self.args; + var _cnam$13 = ($12746 + ("." + $12751)); var _term$14 = Kind$Term$ref$("Parser.bind"); var _term$15 = Kind$Term$app$(_term$14, Kind$Term$hol$(Bits$e)); var _term$16 = Kind$Term$app$(_term$15, Kind$Term$hol$(Bits$e)); var _term$17 = Kind$Term$app$(_term$16, Kind$Term$app$(Kind$Term$ref$("Parser.text"), Kind$Term$str$(_cnam$13))); var _term$18 = Kind$Term$app$(_term$17, Kind$Term$lam$("", (_x$18 => { - var $11336 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$13, $11334, List$nil, Bool$true); - return $11336; + var $12754 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$13, $12752, List$nil, Bool$true); + return $12754; }))); var _list$19 = Kind$Term$ref$("List.cons"); var _list$20 = Kind$Term$app$(_list$19, Kind$Term$hol$(Bits$e)); var _list$21 = Kind$Term$app$(_list$20, _term$18); - var _list$22 = Kind$Term$app$(_list$21, Kind$Parser$ADT$Derive$parser$term$cses$(_adt$1, $11331)); - var $11335 = _list$22; - var $11332 = $11335; + var _list$22 = Kind$Term$app$(_list$21, Kind$Parser$ADT$Derive$parser$term$cses$(_adt$1, $12749)); + var $12753 = _list$22; + var $12750 = $12753; break; }; - var $11329 = $11332; + var $12747 = $12750; break; case 'List.nil': var _fail$8 = Kind$Term$ref$("Parser.fail"); @@ -35611,14 +40034,14 @@ module.exports = (function() { var _term$12 = Kind$Term$app$(_term$11, Kind$Term$hol$(Bits$e)); var _term$13 = Kind$Term$app$(_term$12, _fail$10); var _term$14 = Kind$Term$app$(_term$13, Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e))); - var $11337 = _term$14; - var $11329 = $11337; + var $12755 = _term$14; + var $12747 = $12755; break; }; - var $11327 = $11329; + var $12745 = $12747; break; }; - return $11327; + return $12745; }; const Kind$Parser$ADT$Derive$parser$term$cses = x0 => x1 => Kind$Parser$ADT$Derive$parser$term$cses$(x0, x1); @@ -35626,24 +40049,24 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11339 = self.pars; - var $11340 = self.inds; - var $11341 = self.ctrs; - var self = (List$is_empty$($11339) && List$is_empty$($11340)); + var $12757 = self.pars; + var $12758 = self.inds; + var $12759 = self.ctrs; + var self = (List$is_empty$($12757) && List$is_empty$($12758)); if (self) { var _term$7 = Kind$Term$ref$("Parser.choice"); var _term$8 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); - var _term$9 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$parser$term$cses$(_adt$1, $11341)); - var $11343 = Maybe$some$(_term$9); - var $11342 = $11343; + var _term$9 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$parser$term$cses$(_adt$1, $12759)); + var $12761 = Maybe$some$(_term$9); + var $12760 = $12761; } else { - var $11344 = Maybe$none; - var $11342 = $11344; + var $12762 = Maybe$none; + var $12760 = $12762; }; - var $11338 = $11342; + var $12756 = $12760; break; }; - return $11338; + return $12756; }; const Kind$Parser$ADT$Derive$parser$term = x0 => Kind$Parser$ADT$Derive$parser$term$(x0); @@ -35651,21 +40074,21 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11346 = self.name; - var $11347 = self.pars; - var $11348 = self.inds; - var self = (List$is_empty$($11347) && List$is_empty$($11348)); + var $12764 = self.name; + var $12765 = self.pars; + var $12766 = self.inds; + var self = (List$is_empty$($12765) && List$is_empty$($12766)); if (self) { - var $11350 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Parser"), Kind$Term$ref$($11346))); - var $11349 = $11350; + var $12768 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Parser"), Kind$Term$ref$($12764))); + var $12767 = $12768; } else { - var $11351 = Maybe$none; - var $11349 = $11351; + var $12769 = Maybe$none; + var $12767 = $12769; }; - var $11345 = $11349; + var $12763 = $12767; break; }; - return $11345; + return $12763; }; const Kind$Parser$ADT$Derive$parser$type = x0 => Kind$Parser$ADT$Derive$parser$type$(x0); @@ -35673,61 +40096,61 @@ module.exports = (function() { var self = Kind$Term$get_args$(_call$1); switch (self._) { case 'Pair.new': - var $11353 = self.fst; - var $11354 = self.snd; - var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($11353) + ".serializer")); + var $12771 = self.fst; + var $12772 = self.snd; + var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($12771) + ".serializer")); var _term$6 = (() => { - var $11357 = _term$5; - var $11358 = $11354; - let _term$7 = $11357; + var $12775 = _term$5; + var $12776 = $12772; + let _term$7 = $12775; let _par$6; - while ($11358._ === 'List.cons') { - _par$6 = $11358.head; - var $11357 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); - _term$7 = $11357; - $11358 = $11358.tail; + while ($12776._ === 'List.cons') { + _par$6 = $12776.head; + var $12775 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); + _term$7 = $12775; + $12776 = $12776.tail; } return _term$7; })(); var _term$7 = (() => { - var $11360 = _term$6; - var $11361 = $11354; - let _term$8 = $11360; + var $12778 = _term$6; + var $12779 = $12772; + let _term$8 = $12778; let _par$7; - while ($11361._ === 'List.cons') { - _par$7 = $11361.head; - var $11360 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$serializer$term$cont$(_par$7, Maybe$none)); - _term$8 = $11360; - $11361 = $11361.tail; + while ($12779._ === 'List.cons') { + _par$7 = $12779.head; + var $12778 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$serializer$term$cont$(_par$7, Maybe$none)); + _term$8 = $12778; + $12779 = $12779.tail; } return _term$8; })(); var self = _rest$2; switch (self._) { case 'Maybe.some': - var $11362 = self.value; - var self = $11362; + var $12780 = self.value; + var self = $12780; switch (self._) { case 'Pair.new': - var $11364 = self.fst; - var $11365 = self.snd; - var _term$11 = Kind$Term$app$(_term$7, Kind$Term$ref$($11364)); - var _term$12 = Kind$Term$app$(_term$11, $11365); - var $11366 = _term$12; - var $11363 = $11366; + var $12782 = self.fst; + var $12783 = self.snd; + var _term$11 = Kind$Term$app$(_term$7, Kind$Term$ref$($12782)); + var _term$12 = Kind$Term$app$(_term$11, $12783); + var $12784 = _term$12; + var $12781 = $12784; break; }; - var $11355 = $11363; + var $12773 = $12781; break; case 'Maybe.none': - var $11367 = _term$7; - var $11355 = $11367; + var $12785 = _term$7; + var $12773 = $12785; break; }; - var $11352 = $11355; + var $12770 = $12773; break; }; - return $11352; + return $12770; }; const Kind$Parser$ADT$Derive$serializer$term$cont = x0 => x1 => Kind$Parser$ADT$Derive$serializer$term$cont$(x0, x1); @@ -35735,33 +40158,33 @@ module.exports = (function() { var self = _args$1; switch (self._) { case 'List.cons': - var $11369 = self.head; - var $11370 = self.tail; - var self = $11369; + var $12787 = self.head; + var $12788 = self.tail; + var self = $12787; switch (self._) { case 'Kind.Binder.new': - var $11372 = self.name; - var $11373 = self.term; - var self = Kind$Term$get_args$($11373); + var $12790 = self.name; + var $12791 = self.term; + var self = Kind$Term$get_args$($12791); switch (self._) { case 'Pair.new': - var _rest$9 = Kind$Parser$ADT$Derive$serializer$term$args$($11370); - var _term$10 = Kind$Parser$ADT$Derive$serializer$term$cont$($11373, Maybe$some$(Pair$new$(("x." + $11372), _rest$9))); - var $11375 = _term$10; - var $11374 = $11375; + var _rest$9 = Kind$Parser$ADT$Derive$serializer$term$args$($12788); + var _term$10 = Kind$Parser$ADT$Derive$serializer$term$cont$($12791, Maybe$some$(Pair$new$(("x." + $12790), _rest$9))); + var $12793 = _term$10; + var $12792 = $12793; break; }; - var $11371 = $11374; + var $12789 = $12792; break; }; - var $11368 = $11371; + var $12786 = $12789; break; case 'List.nil': - var $11376 = Kind$Term$ref$("bs"); - var $11368 = $11376; + var $12794 = Kind$Term$ref$("bs"); + var $12786 = $12794; break; }; - return $11368; + return $12786; }; const Kind$Parser$ADT$Derive$serializer$term$args = x0 => Kind$Parser$ADT$Derive$serializer$term$args$(x0); @@ -35769,21 +40192,21 @@ module.exports = (function() { var self = _bs$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $11378 = self.slice(0, -1); - var $11379 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($11378, _rest$2)); - var $11377 = $11379; + var $12796 = self.slice(0, -1); + var $12797 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($12796, _rest$2)); + var $12795 = $12797; break; case 'i': - var $11380 = self.slice(0, -1); - var $11381 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($11380, _rest$2)); - var $11377 = $11381; + var $12798 = self.slice(0, -1); + var $12799 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($12798, _rest$2)); + var $12795 = $12799; break; case 'e': - var $11382 = _rest$2; - var $11377 = $11382; + var $12800 = _rest$2; + var $12795 = $12800; break; }; - return $11377; + return $12795; }; const Kind$Parser$ADT$Derive$serializer$ctr$bits = x0 => x1 => Kind$Parser$ADT$Derive$serializer$ctr$bits$(x0, x1); @@ -35791,15 +40214,15 @@ module.exports = (function() { var self = _ctr$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11384 = self.name; - var $11385 = self.args; - var _term$7 = Kind$Parser$ADT$Derive$serializer$term$args$($11385); + var $12802 = self.name; + var $12803 = self.args; + var _term$7 = Kind$Parser$ADT$Derive$serializer$term$args$($12803); var _term$8 = Kind$Parser$ADT$Derive$serializer$ctr$bits$(_header$3, _term$7); - var $11386 = Pair$new$($11384, _term$8); - var $11383 = $11386; + var $12804 = Pair$new$($12802, _term$8); + var $12801 = $12804; break; }; - return $11383; + return $12801; }; const Kind$Parser$ADT$Derive$serializer$ctr = x0 => x1 => x2 => Kind$Parser$ADT$Derive$serializer$ctr$(x0, x1, x2); @@ -35807,31 +40230,31 @@ module.exports = (function() { var self = _ctrs$2; switch (self._) { case 'List.cons': - var $11388 = self.head; - var $11389 = self.tail; - var $11390 = List$cons$(Kind$Parser$ADT$Derive$serializer$ctr$(_adt_name$1, $11388, _header$3), Kind$Parser$ADT$Derive$serializer$term$ctrs$(_adt_name$1, $11389, Bits$inc$(_header$3))); - var $11387 = $11390; + var $12806 = self.head; + var $12807 = self.tail; + var $12808 = List$cons$(Kind$Parser$ADT$Derive$serializer$ctr$(_adt_name$1, $12806, _header$3), Kind$Parser$ADT$Derive$serializer$term$ctrs$(_adt_name$1, $12807, Bits$inc$(_header$3))); + var $12805 = $12808; break; case 'List.nil': - var $11391 = List$nil; - var $11387 = $11391; + var $12809 = List$nil; + var $12805 = $12809; break; }; - return $11387; + return $12805; }; const Kind$Parser$ADT$Derive$serializer$term$ctrs = x0 => x1 => x2 => Kind$Parser$ADT$Derive$serializer$term$ctrs$(x0, x1, x2); function Bits$zeros$(_n$1) { var self = _n$1; if (self === 0n) { - var $11393 = Bits$e; - var $11392 = $11393; + var $12811 = Bits$e; + var $12810 = $12811; } else { - var $11394 = (self - 1n); - var $11395 = (Bits$zeros$($11394) + '0'); - var $11392 = $11395; + var $12812 = (self - 1n); + var $12813 = (Bits$zeros$($12812) + '0'); + var $12810 = $12813; }; - return $11392; + return $12810; }; const Bits$zeros = x0 => Bits$zeros$(x0); const Nat$div = a0 => a1 => (a0 / a1); @@ -35839,14 +40262,14 @@ module.exports = (function() { function Nat$bitlen$(_n$1) { var self = _n$1; if (self === 0n) { - var $11397 = 0n; - var $11396 = $11397; + var $12815 = 0n; + var $12814 = $12815; } else { - var $11398 = (self - 1n); - var $11399 = Nat$succ$(Nat$bitlen$((_n$1 / 2n))); - var $11396 = $11399; + var $12816 = (self - 1n); + var $12817 = Nat$succ$(Nat$bitlen$((_n$1 / 2n))); + var $12814 = $12817; }; - return $11396; + return $12814; }; const Nat$bitlen = x0 => Nat$bitlen$(x0); @@ -35854,52 +40277,52 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11401 = self.name; - var $11402 = self.pars; - var $11403 = self.inds; - var $11404 = self.ctrs; - var self = (List$is_empty$($11402) && List$is_empty$($11403)); + var $12819 = self.name; + var $12820 = self.pars; + var $12821 = self.inds; + var $12822 = self.ctrs; + var self = (List$is_empty$($12820) && List$is_empty$($12821)); if (self) { var _term$7 = Kind$Term$lam$("x", (_x$7 => { - var $11407 = Kind$Term$lam$("bs", (_bs$8 => { - var _ctrs$9 = Kind$Parser$ADT$Derive$serializer$term$ctrs$($11401, $11404, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($11404)))))); + var $12825 = Kind$Term$lam$("bs", (_bs$8 => { + var _ctrs$9 = Kind$Parser$ADT$Derive$serializer$term$ctrs$($12819, $12822, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($12822)))))); var _cses$10 = Kind$Map$new; var _cses$11 = (() => { - var $11410 = _cses$10; - var $11411 = _ctrs$9; - let _cses$12 = $11410; + var $12828 = _cses$10; + var $12829 = _ctrs$9; + let _cses$12 = $12828; let _ctr$11; - while ($11411._ === 'List.cons') { - _ctr$11 = $11411.head; + while ($12829._ === 'List.cons') { + _ctr$11 = $12829.head; var self = _ctr$11; switch (self._) { case 'Pair.new': - var $11412 = self.fst; - var $11413 = self.snd; - var $11414 = Kind$Map$set$($11412, $11413, _cses$12); - var $11410 = $11414; + var $12830 = self.fst; + var $12831 = self.snd; + var $12832 = Kind$Map$set$($12830, $12831, _cses$12); + var $12828 = $12832; break; }; - _cses$12 = $11410; - $11411 = $11411.tail; + _cses$12 = $12828; + $12829 = $12829.tail; } return _cses$12; })(); - var $11408 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); - return $11408; + var $12826 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); + return $12826; })); - return $11407; + return $12825; })); - var $11406 = Maybe$some$(_term$7); - var $11405 = $11406; + var $12824 = Maybe$some$(_term$7); + var $12823 = $12824; } else { - var $11415 = Maybe$none; - var $11405 = $11415; + var $12833 = Maybe$none; + var $12823 = $12833; }; - var $11400 = $11405; + var $12818 = $12823; break; }; - return $11400; + return $12818; }; const Kind$Parser$ADT$Derive$serializer$term = x0 => Kind$Parser$ADT$Derive$serializer$term$(x0); @@ -35907,21 +40330,21 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11417 = self.name; - var $11418 = self.pars; - var $11419 = self.inds; - var self = (List$is_empty$($11418) && List$is_empty$($11419)); + var $12835 = self.name; + var $12836 = self.pars; + var $12837 = self.inds; + var self = (List$is_empty$($12836) && List$is_empty$($12837)); if (self) { - var $11421 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Serializer"), Kind$Term$ref$($11417))); - var $11420 = $11421; + var $12839 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Serializer"), Kind$Term$ref$($12835))); + var $12838 = $12839; } else { - var $11422 = Maybe$none; - var $11420 = $11422; + var $12840 = Maybe$none; + var $12838 = $12840; }; - var $11416 = $11420; + var $12834 = $12838; break; }; - return $11416; + return $12834; }; const Kind$Parser$ADT$Derive$serializer$type = x0 => Kind$Parser$ADT$Derive$serializer$type$(x0); @@ -35929,21 +40352,21 @@ module.exports = (function() { var self = _bits$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $11424 = self.slice(0, -1); - var $11425 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$term$bits$($11424)); - var $11423 = $11425; + var $12842 = self.slice(0, -1); + var $12843 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$term$bits$($12842)); + var $12841 = $12843; break; case 'i': - var $11426 = self.slice(0, -1); - var $11427 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$term$bits$($11426)); - var $11423 = $11427; + var $12844 = self.slice(0, -1); + var $12845 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$term$bits$($12844)); + var $12841 = $12845; break; case 'e': - var $11428 = Kind$Term$ref$("Bits.e"); - var $11423 = $11428; + var $12846 = Kind$Term$ref$("Bits.e"); + var $12841 = $12846; break; }; - return $11423; + return $12841; }; const Kind$Parser$ADT$Derive$serializer$term$bits = x0 => Kind$Parser$ADT$Derive$serializer$term$bits$(x0); @@ -35951,40 +40374,40 @@ module.exports = (function() { var self = Kind$Term$get_args$(_call$1); switch (self._) { case 'Pair.new': - var $11430 = self.fst; - var $11431 = self.snd; - var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($11430) + ".deserializer")); + var $12848 = self.fst; + var $12849 = self.snd; + var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($12848) + ".deserializer")); var _term$5 = (() => { - var $11434 = _term$4; - var $11435 = $11431; - let _term$6 = $11434; + var $12852 = _term$4; + var $12853 = $12849; + let _term$6 = $12852; let _par$5; - while ($11435._ === 'List.cons') { - _par$5 = $11435.head; - var $11434 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); - _term$6 = $11434; - $11435 = $11435.tail; + while ($12853._ === 'List.cons') { + _par$5 = $12853.head; + var $12852 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); + _term$6 = $12852; + $12853 = $12853.tail; } return _term$6; })(); var _term$6 = (() => { - var $11437 = _term$5; - var $11438 = $11431; - let _term$7 = $11437; + var $12855 = _term$5; + var $12856 = $12849; + let _term$7 = $12855; let _par$6; - while ($11438._ === 'List.cons') { - _par$6 = $11438.head; - var $11437 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$deserializer$term$cont$(_par$6)); - _term$7 = $11437; - $11438 = $11438.tail; + while ($12856._ === 'List.cons') { + _par$6 = $12856.head; + var $12855 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$deserializer$term$cont$(_par$6)); + _term$7 = $12855; + $12856 = $12856.tail; } return _term$7; })(); - var $11432 = _term$6; - var $11429 = $11432; + var $12850 = _term$6; + var $12847 = $12850; break; }; - return $11429; + return $12847; }; const Kind$Parser$ADT$Derive$deserializer$term$cont = x0 => Kind$Parser$ADT$Derive$deserializer$term$cont$(x0); @@ -35992,41 +40415,41 @@ module.exports = (function() { var self = _args$3; switch (self._) { case 'List.cons': - var $11440 = self.head; - var $11441 = self.tail; - var self = $11440; + var $12858 = self.head; + var $12859 = self.tail; + var self = $12858; switch (self._) { case 'Kind.Binder.new': - var $11443 = self.name; - var $11444 = self.term; + var $12861 = self.name; + var $12862 = self.term; var _term$11 = Kind$Term$ref$("Deserializer.bind"); var _term$12 = Kind$Term$app$(_term$11, Kind$Term$hol$(Bits$e)); var _term$13 = Kind$Term$app$(_term$12, Kind$Term$hol$(Bits$e)); - var _term$14 = Kind$Term$app$(_term$13, Kind$Parser$ADT$Derive$deserializer$term$cont$($11444)); - var _term$15 = Kind$Term$app$(_term$14, Kind$Term$lam$($11443, (_x$15 => { - var $11446 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$2, $11441, List$cons$(_x$15, _vars$4), Bool$false); - return $11446; + var _term$14 = Kind$Term$app$(_term$13, Kind$Parser$ADT$Derive$deserializer$term$cont$($12862)); + var _term$15 = Kind$Term$app$(_term$14, Kind$Term$lam$($12861, (_x$15 => { + var $12864 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$2, $12859, List$cons$(_x$15, _vars$4), Bool$false); + return $12864; }))); - var $11445 = _term$15; - var $11442 = $11445; + var $12863 = _term$15; + var $12860 = $12863; break; }; - var $11439 = $11442; + var $12857 = $12860; break; case 'List.nil': var _body$6 = Kind$Term$ref$("Deserializer.pure"); var _body$7 = Kind$Term$app$(_body$6, Kind$Term$hol$(Bits$e)); var _func$8 = Kind$Term$ref$(_cnam$2); var _func$9 = List$fold$(_vars$4, _func$8, (_var$9 => _func$10 => { - var $11448 = Kind$Term$app$(_func$10, _var$9); - return $11448; + var $12866 = Kind$Term$app$(_func$10, _var$9); + return $12866; })); var _body$10 = Kind$Term$app$(_body$7, _func$9); - var $11447 = _body$10; - var $11439 = $11447; + var $12865 = _body$10; + var $12857 = $12865; break; }; - return $11439; + return $12857; }; const Kind$Parser$ADT$Derive$deserializer$term$args = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Derive$deserializer$term$args$(x0, x1, x2, x3, x4); @@ -36034,45 +40457,45 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11450 = self.name; + var $12868 = self.name; var self = _cses$2; switch (self._) { case 'List.cons': - var $11452 = self.head; - var $11453 = self.tail; - var self = $11452; + var $12870 = self.head; + var $12871 = self.tail; + var self = $12870; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $11455 = self.name; - var $11456 = self.args; - var _cnam$14 = ($11450 + ("." + $11455)); + var $12873 = self.name; + var $12874 = self.args; + var _cnam$14 = ($12868 + ("." + $12873)); var _term$15 = Kind$Term$ref$("Deserializer.bind"); var _term$16 = Kind$Term$app$(_term$15, Kind$Term$hol$(Bits$e)); var _term$17 = Kind$Term$app$(_term$16, Kind$Term$hol$(Bits$e)); var _term$18 = Kind$Term$app$(_term$17, Kind$Term$app$(Kind$Term$ref$("Deserializer.bits"), Kind$Parser$ADT$Derive$serializer$term$bits$(_header$3))); var _term$19 = Kind$Term$app$(_term$18, Kind$Term$lam$("", (_x$19 => { - var $11458 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$14, $11456, List$nil, Bool$true); - return $11458; + var $12876 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$14, $12874, List$nil, Bool$true); + return $12876; }))); var _list$20 = Kind$Term$ref$("List.cons"); var _list$21 = Kind$Term$app$(_list$20, Kind$Term$hol$(Bits$e)); var _list$22 = Kind$Term$app$(_list$21, _term$19); - var _list$23 = Kind$Term$app$(_list$22, Kind$Parser$ADT$Derive$deserializer$term$cses$(_adt$1, $11453, Bits$inc$(_header$3))); - var $11457 = _list$23; - var $11454 = $11457; + var _list$23 = Kind$Term$app$(_list$22, Kind$Parser$ADT$Derive$deserializer$term$cses$(_adt$1, $12871, Bits$inc$(_header$3))); + var $12875 = _list$23; + var $12872 = $12875; break; }; - var $11451 = $11454; + var $12869 = $12872; break; case 'List.nil': - var $11459 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); - var $11451 = $11459; + var $12877 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); + var $12869 = $12877; break; }; - var $11449 = $11451; + var $12867 = $12869; break; }; - return $11449; + return $12867; }; const Kind$Parser$ADT$Derive$deserializer$term$cses = x0 => x1 => x2 => Kind$Parser$ADT$Derive$deserializer$term$cses$(x0, x1, x2); @@ -36080,24 +40503,24 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11461 = self.pars; - var $11462 = self.inds; - var $11463 = self.ctrs; - var self = (List$is_empty$($11461) && List$is_empty$($11462)); + var $12879 = self.pars; + var $12880 = self.inds; + var $12881 = self.ctrs; + var self = (List$is_empty$($12879) && List$is_empty$($12880)); if (self) { var _term$7 = Kind$Term$ref$("Deserializer.choice"); var _term$8 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); - var _term$9 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$deserializer$term$cses$(_adt$1, $11463, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($11463))))))); - var $11465 = Maybe$some$(_term$9); - var $11464 = $11465; + var _term$9 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$deserializer$term$cses$(_adt$1, $12881, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($12881))))))); + var $12883 = Maybe$some$(_term$9); + var $12882 = $12883; } else { - var $11466 = Maybe$none; - var $11464 = $11466; + var $12884 = Maybe$none; + var $12882 = $12884; }; - var $11460 = $11464; + var $12878 = $12882; break; }; - return $11460; + return $12878; }; const Kind$Parser$ADT$Derive$deserializer$term = x0 => Kind$Parser$ADT$Derive$deserializer$term$(x0); @@ -36105,21 +40528,21 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11468 = self.name; - var $11469 = self.pars; - var $11470 = self.inds; - var self = (List$is_empty$($11469) && List$is_empty$($11470)); + var $12886 = self.name; + var $12887 = self.pars; + var $12888 = self.inds; + var self = (List$is_empty$($12887) && List$is_empty$($12888)); if (self) { - var $11472 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Deserializer"), Kind$Term$ref$($11468))); - var $11471 = $11472; + var $12890 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Deserializer"), Kind$Term$ref$($12886))); + var $12889 = $12890; } else { - var $11473 = Maybe$none; - var $11471 = $11473; + var $12891 = Maybe$none; + var $12889 = $12891; }; - var $11467 = $11471; + var $12885 = $12889; break; }; - return $11467; + return $12885; }; const Kind$Parser$ADT$Derive$deserializer$type = x0 => Kind$Parser$ADT$Derive$deserializer$type$(x0); @@ -36127,104 +40550,104 @@ module.exports = (function() { var self = _adt$2; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $11475 = self.name; + var $12893 = self.name; var self = (_deri$1 === "stringifier"); if (self) { - var _name$8 = ($11475 + ("." + _deri$1)); - var $11477 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $11478 = _m$bind$9; - return $11478; + var _name$8 = ($12893 + ("." + _deri$1)); + var $12895 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $12896 = _m$bind$9; + return $12896; }))(Kind$Parser$ADT$Derive$stringifier$term$(_adt$2))((_term$9 => { - var $11479 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $11480 = _m$bind$10; - return $11480; + var $12897 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $12898 = _m$bind$10; + return $12898; }))(Kind$Parser$ADT$Derive$stringifier$type$(_adt$2))((_type$10 => { - var $11481 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $11482 = _m$pure$12; - return $11482; + var $12899 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $12900 = _m$pure$12; + return $12900; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $11481; + return $12899; })); - return $11479; + return $12897; })); - var $11476 = $11477; + var $12894 = $12895; } else { var self = (_deri$1 === "parser"); if (self) { - var _name$8 = ($11475 + ("." + _deri$1)); - var $11484 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $11485 = _m$bind$9; - return $11485; + var _name$8 = ($12893 + ("." + _deri$1)); + var $12902 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $12903 = _m$bind$9; + return $12903; }))(Kind$Parser$ADT$Derive$parser$term$(_adt$2))((_term$9 => { - var $11486 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $11487 = _m$bind$10; - return $11487; + var $12904 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $12905 = _m$bind$10; + return $12905; }))(Kind$Parser$ADT$Derive$parser$type$(_adt$2))((_type$10 => { - var $11488 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $11489 = _m$pure$12; - return $11489; + var $12906 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $12907 = _m$pure$12; + return $12907; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $11488; + return $12906; })); - return $11486; + return $12904; })); - var $11483 = $11484; + var $12901 = $12902; } else { var self = (_deri$1 === "serializer"); if (self) { - var _name$8 = ($11475 + ("." + _deri$1)); - var $11491 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $11492 = _m$bind$9; - return $11492; + var _name$8 = ($12893 + ("." + _deri$1)); + var $12909 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $12910 = _m$bind$9; + return $12910; }))(Kind$Parser$ADT$Derive$serializer$term$(_adt$2))((_term$9 => { - var $11493 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $11494 = _m$bind$10; - return $11494; + var $12911 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $12912 = _m$bind$10; + return $12912; }))(Kind$Parser$ADT$Derive$serializer$type$(_adt$2))((_type$10 => { - var $11495 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $11496 = _m$pure$12; - return $11496; + var $12913 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $12914 = _m$pure$12; + return $12914; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $11495; + return $12913; })); - return $11493; + return $12911; })); - var $11490 = $11491; + var $12908 = $12909; } else { var self = (_deri$1 === "deserializer"); if (self) { - var _name$8 = ($11475 + ("." + _deri$1)); - var $11498 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $11499 = _m$bind$9; - return $11499; + var _name$8 = ($12893 + ("." + _deri$1)); + var $12916 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $12917 = _m$bind$9; + return $12917; }))(Kind$Parser$ADT$Derive$deserializer$term$(_adt$2))((_term$9 => { - var $11500 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $11501 = _m$bind$10; - return $11501; + var $12918 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $12919 = _m$bind$10; + return $12919; }))(Kind$Parser$ADT$Derive$deserializer$type$(_adt$2))((_type$10 => { - var $11502 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $11503 = _m$pure$12; - return $11503; + var $12920 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $12921 = _m$pure$12; + return $12921; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $11502; + return $12920; })); - return $11500; + return $12918; })); - var $11497 = $11498; + var $12915 = $12916; } else { - var $11504 = Maybe$none; - var $11497 = $11504; + var $12922 = Maybe$none; + var $12915 = $12922; }; - var $11490 = $11497; + var $12908 = $12915; }; - var $11483 = $11490; + var $12901 = $12908; }; - var $11476 = $11483; + var $12894 = $12901; }; - var $11474 = $11476; + var $12892 = $12894; break; }; - return $11474; + return $12892; }; const Kind$Parser$ADT$Derive$by_name = x0 => x1 => Kind$Parser$ADT$Derive$by_name$(x0, x1); @@ -36232,302 +40655,326 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $11506 = self.err; + var $12924 = self.err; var _reply$10 = Kind$Parser$spaces(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $11508 = self.err; - var self = $11506; + var $12926 = self.err; + var self = $12924; switch (self._) { case 'Maybe.some': - var $11510 = self.value; - var $11511 = Parser$Reply$error$(Parser$Error$combine$($11510, $11508)); - var $11509 = $11511; + var $12928 = self.value; + var $12929 = Parser$Reply$error$(Parser$Error$combine$($12928, $12926)); + var $12927 = $12929; break; case 'Maybe.none': - var $11512 = Parser$Reply$error$($11508); - var $11509 = $11512; + var $12930 = Parser$Reply$error$($12926); + var $12927 = $12930; break; }; - var $11507 = $11509; + var $12925 = $12927; break; case 'Parser.Reply.value': - var $11513 = self.pst; - var self = $11513; + var $12931 = self.pst; + var self = $12931; switch (self._) { case 'Parser.State.new': - var $11515 = self.err; - var $11516 = self.nam; - var $11517 = self.ini; - var $11518 = self.idx; - var $11519 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11506, $11515), $11516, $11517, $11518, $11519); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11521 = self.err; - var _reply$24 = Parser$get_idx$(_reply$pst$18); - var self = _reply$24; + var $12933 = self.err; + var $12934 = self.nam; + var $12935 = self.ini; + var $12936 = self.idx; + var $12937 = self.str; + var $12938 = ((console.log(("FALTANDO " + $12937)), (_$18 => { + var $12939 = ((console.log(("VALUE " + $12934)), (_$19 => { + var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($12924, $12933), $12934, $12935, $12936, $12937); + var self = _reply$pst$20; switch (self._) { - case 'Parser.Reply.error': - var $11523 = self.err; - var self = $11521; + case 'Parser.State.new': + var $12941 = self.err; + var _reply$26 = Parser$get_idx$(_reply$pst$20); + var self = _reply$26; switch (self._) { - case 'Maybe.some': - var $11525 = self.value; - var $11526 = Parser$Reply$error$(Parser$Error$combine$($11525, $11523)); - var $11524 = $11526; - break; - case 'Maybe.none': - var $11527 = Parser$Reply$error$($11523); - var $11524 = $11527; - break; - }; - var $11522 = $11524; - break; - case 'Parser.Reply.value': - var $11528 = self.pst; - var $11529 = self.val; - var self = $11528; - switch (self._) { - case 'Parser.State.new': - var $11531 = self.err; - var $11532 = self.nam; - var $11533 = self.ini; - var $11534 = self.idx; - var $11535 = self.str; - var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($11521, $11531), $11532, $11533, $11534, $11535); - var self = _reply$pst$32; + case 'Parser.Reply.error': + var $12943 = self.err; + var self = $12941; switch (self._) { - case 'Parser.State.new': - var $11537 = self.err; - var _reply$38 = Kind$Parser$ADT$adt$(_reply$pst$32); - var self = _reply$38; - switch (self._) { - case 'Parser.Reply.error': - var $11539 = self.err; - var self = $11537; - switch (self._) { - case 'Maybe.some': - var $11541 = self.value; - var $11542 = Parser$Reply$error$(Parser$Error$combine$($11541, $11539)); - var $11540 = $11542; - break; - case 'Maybe.none': - var $11543 = Parser$Reply$error$($11539); - var $11540 = $11543; - break; - }; - var $11538 = $11540; - break; - case 'Parser.Reply.value': - var $11544 = self.pst; - var $11545 = self.val; - var self = $11544; - switch (self._) { - case 'Parser.State.new': - var $11547 = self.err; - var $11548 = self.nam; - var $11549 = self.ini; - var $11550 = self.idx; - var $11551 = self.str; - var _reply$pst$46 = Parser$State$new$(Parser$Error$maybe_combine$($11537, $11547), $11548, $11549, $11550, $11551); - var self = _reply$pst$46; - switch (self._) { - case 'Parser.State.new': - var $11553 = self.err; - var _reply$52 = Parser$get_idx$(_reply$pst$46); - var self = _reply$52; - switch (self._) { - case 'Parser.Reply.error': - var $11555 = self.err; - var self = $11553; - switch (self._) { - case 'Maybe.some': - var $11557 = self.value; - var $11558 = Parser$Reply$error$(Parser$Error$combine$($11557, $11555)); - var $11556 = $11558; - break; - case 'Maybe.none': - var $11559 = Parser$Reply$error$($11555); - var $11556 = $11559; - break; - }; - var $11554 = $11556; - break; - case 'Parser.Reply.value': - var $11560 = self.pst; - var $11561 = self.val; - var self = $11560; - switch (self._) { - case 'Parser.State.new': - var $11563 = self.err; - var $11564 = self.nam; - var $11565 = self.ini; - var $11566 = self.idx; - var $11567 = self.str; - var _reply$pst$60 = Parser$State$new$(Parser$Error$maybe_combine$($11553, $11563), $11564, $11565, $11566, $11567); - var _orig$61 = Pair$new$($11529, $11561); - var self = $11545; - switch (self._) { - case 'Kind.Parser.ADT.Datatype.new': - var $11569 = self.name; - var $11570 = self.pars; - var $11571 = self.inds; - var $11572 = self.ctrs; - var $11573 = self.deri; - var _term$67 = Kind$Parser$ADT$Datatype$build_term$($11545); - var _term$68 = Kind$Term$bind$(List$nil, (_x$68 => { - var $11575 = (_x$68 + '1'); - return $11575; - }), _term$67); - var _type$69 = Kind$Parser$ADT$Datatype$build_type$($11545); - var _type$70 = Kind$Term$bind$(List$nil, (_x$70 => { - var $11576 = (_x$70 + '0'); - return $11576; - }), _type$69); - var _arit$71 = ((list_length($11570)) + (list_length($11571))); - var _defs$72 = Kind$Map$def$(_file$1, _code$2, _orig$61, $11569, _term$68, _type$70, Bool$false, _arit$71, Bool$false, _defs$3); - var _defs$73 = List$fold$($11572, _defs$72, (_ctr$73 => _defs$74 => { - var _typ_name$75 = $11569; - var _ctr_arit$76 = (_arit$71 + (list_length((() => { - var self = _ctr$73; - switch (self._) { - case 'Kind.Parser.ADT.Constructor.new': - var $11578 = self.args; - var $11579 = $11578; - return $11579; - }; - })()))); - var _ctr_name$77 = String$flatten$(List$cons$(_typ_name$75, List$cons$(Kind$Name$read$("."), List$cons$((() => { - var self = _ctr$73; - switch (self._) { - case 'Kind.Parser.ADT.Constructor.new': - var $11580 = self.name; - var $11581 = $11580; - return $11581; - }; - })(), List$nil)))); - var _ctr_term$78 = Kind$Parser$ADT$Constructor$build_term$($11545, _ctr$73); - var _ctr_term$79 = Kind$Term$bind$(List$nil, (_x$79 => { - var $11582 = (_x$79 + '1'); - return $11582; - }), _ctr_term$78); - var _ctr_type$80 = Kind$Parser$ADT$Constructor$build_type$($11545, _ctr$73); - var _ctr_type$81 = Kind$Term$bind$(List$nil, (_x$81 => { - var $11583 = (_x$81 + '0'); - return $11583; - }), _ctr_type$80); - var $11577 = Kind$Map$def$(_file$1, _code$2, _orig$61, _ctr_name$77, _ctr_term$79, _ctr_type$81, Bool$true, _ctr_arit$76, Bool$false, _defs$74); - return $11577; - })); - var _defs$74 = List$fold$($11573, Either$right$(_defs$73), (_deri$74 => _defs$75 => { - var self = _defs$75; - switch (self._) { - case 'Either.left': - var $11585 = self.value; - var $11586 = Either$left$($11585); - var $11584 = $11586; - break; - case 'Either.right': - var $11587 = self.value; - var self = Kind$Parser$ADT$Derive$by_name$(_deri$74, $11545); - switch (self._) { - case 'Maybe.some': - var $11589 = self.value; - var self = $11589; - switch (self._) { - case 'Kind.Parser.ADT.Derived.new': - var $11591 = self.name; - var $11592 = self.arit; - var $11593 = self.term; - var $11594 = self.type; - var _name$82 = $11591; - var _term$83 = $11593; - var _term$84 = Kind$Term$bind$(List$nil, (_x$84 => { - var $11596 = (_x$84 + '1'); - return $11596; - }), _term$83); - var _type$85 = $11594; - var _type$86 = Kind$Term$bind$(List$nil, (_x$86 => { - var $11597 = (_x$86 + '0'); - return $11597; - }), _type$85); - var _arit$87 = $11592; - var $11595 = Either$right$(Kind$Map$def$(_file$1, _code$2, _orig$61, _name$82, _term$84, _type$86, Bool$false, _arit$87, Bool$false, $11587)); - var $11590 = $11595; - break; - }; - var $11588 = $11590; - break; - case 'Maybe.none': - var $11598 = Either$left$(("Can\'t derive \'" + (_deri$74 + ("\' for \'" + ($11569 + "\' type."))))); - var $11588 = $11598; - break; - }; - var $11584 = $11588; - break; - }; - return $11584; - })); - var self = _defs$74; - switch (self._) { - case 'Either.left': - var $11599 = self.value; - var $11600 = Parser$fail($11599); - var $11574 = $11600; - break; - case 'Either.right': - var $11601 = self.value; - var $11602 = (_pst$76 => { - var $11603 = Parser$Reply$value$(_pst$76, $11601); - return $11603; - }); - var $11574 = $11602; - break; - }; - var $11568 = $11574; - break; - }; - var $11568 = $11568(_reply$pst$60); - var $11562 = $11568; - break; - }; - var $11554 = $11562; - break; - }; - var $11552 = $11554; - break; - }; - var $11546 = $11552; - break; - }; - var $11538 = $11546; - break; - }; - var $11536 = $11538; + case 'Maybe.some': + var $12945 = self.value; + var $12946 = Parser$Reply$error$(Parser$Error$combine$($12945, $12943)); + var $12944 = $12946; + break; + case 'Maybe.none': + var $12947 = Parser$Reply$error$($12943); + var $12944 = $12947; break; }; - var $11530 = $11536; + var $12942 = $12944; + break; + case 'Parser.Reply.value': + var $12948 = self.pst; + var $12949 = self.val; + var self = $12948; + switch (self._) { + case 'Parser.State.new': + var $12951 = self.err; + var $12952 = self.nam; + var $12953 = self.ini; + var $12954 = self.idx; + var $12955 = self.str; + var $12956 = ((console.log(("FALTANDO " + $12955)), (_$34 => { + var $12957 = ((console.log(("VALUE " + $12952)), (_$35 => { + var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($12941, $12951), $12952, $12953, $12954, $12955); + var self = _reply$pst$36; + switch (self._) { + case 'Parser.State.new': + var $12959 = self.err; + var _reply$42 = Kind$Parser$ADT$adt$(_reply$pst$36); + var self = _reply$42; + switch (self._) { + case 'Parser.Reply.error': + var $12961 = self.err; + var self = $12959; + switch (self._) { + case 'Maybe.some': + var $12963 = self.value; + var $12964 = Parser$Reply$error$(Parser$Error$combine$($12963, $12961)); + var $12962 = $12964; + break; + case 'Maybe.none': + var $12965 = Parser$Reply$error$($12961); + var $12962 = $12965; + break; + }; + var $12960 = $12962; + break; + case 'Parser.Reply.value': + var $12966 = self.pst; + var $12967 = self.val; + var self = $12966; + switch (self._) { + case 'Parser.State.new': + var $12969 = self.err; + var $12970 = self.nam; + var $12971 = self.ini; + var $12972 = self.idx; + var $12973 = self.str; + var $12974 = ((console.log(("FALTANDO " + $12973)), (_$50 => { + var $12975 = ((console.log(("VALUE " + $12970)), (_$51 => { + var _reply$pst$52 = Parser$State$new$(Parser$Error$maybe_combine$($12959, $12969), $12970, $12971, $12972, $12973); + var self = _reply$pst$52; + switch (self._) { + case 'Parser.State.new': + var $12977 = self.err; + var _reply$58 = Parser$get_idx$(_reply$pst$52); + var self = _reply$58; + switch (self._) { + case 'Parser.Reply.error': + var $12979 = self.err; + var self = $12977; + switch (self._) { + case 'Maybe.some': + var $12981 = self.value; + var $12982 = Parser$Reply$error$(Parser$Error$combine$($12981, $12979)); + var $12980 = $12982; + break; + case 'Maybe.none': + var $12983 = Parser$Reply$error$($12979); + var $12980 = $12983; + break; + }; + var $12978 = $12980; + break; + case 'Parser.Reply.value': + var $12984 = self.pst; + var $12985 = self.val; + var self = $12984; + switch (self._) { + case 'Parser.State.new': + var $12987 = self.err; + var $12988 = self.nam; + var $12989 = self.ini; + var $12990 = self.idx; + var $12991 = self.str; + var $12992 = ((console.log(("FALTANDO " + $12991)), (_$66 => { + var $12993 = ((console.log(("VALUE " + $12988)), (_$67 => { + var _reply$pst$68 = Parser$State$new$(Parser$Error$maybe_combine$($12977, $12987), $12988, $12989, $12990, $12991); + var _orig$69 = Pair$new$($12949, $12985); + var self = $12967; + switch (self._) { + case 'Kind.Parser.ADT.Datatype.new': + var $12995 = self.name; + var $12996 = self.pars; + var $12997 = self.inds; + var $12998 = self.ctrs; + var $12999 = self.deri; + var _term$75 = Kind$Parser$ADT$Datatype$build_term$($12967); + var _term$76 = Kind$Term$bind$(List$nil, (_x$76 => { + var $13001 = (_x$76 + '1'); + return $13001; + }), _term$75); + var _type$77 = Kind$Parser$ADT$Datatype$build_type$($12967); + var _type$78 = Kind$Term$bind$(List$nil, (_x$78 => { + var $13002 = (_x$78 + '0'); + return $13002; + }), _type$77); + var _arit$79 = ((list_length($12996)) + (list_length($12997))); + var _defs$80 = Kind$Map$def$(_file$1, _code$2, _orig$69, $12995, _term$76, _type$78, Bool$false, _arit$79, Bool$false, _defs$3); + var _defs$81 = List$fold$($12998, _defs$80, (_ctr$81 => _defs$82 => { + var _typ_name$83 = $12995; + var _ctr_arit$84 = (_arit$79 + (list_length((() => { + var self = _ctr$81; + switch (self._) { + case 'Kind.Parser.ADT.Constructor.new': + var $13004 = self.args; + var $13005 = $13004; + return $13005; + }; + })()))); + var _ctr_name$85 = String$flatten$(List$cons$(_typ_name$83, List$cons$(Kind$Name$read$("."), List$cons$((() => { + var self = _ctr$81; + switch (self._) { + case 'Kind.Parser.ADT.Constructor.new': + var $13006 = self.name; + var $13007 = $13006; + return $13007; + }; + })(), List$nil)))); + var _ctr_term$86 = Kind$Parser$ADT$Constructor$build_term$($12967, _ctr$81); + var _ctr_term$87 = Kind$Term$bind$(List$nil, (_x$87 => { + var $13008 = (_x$87 + '1'); + return $13008; + }), _ctr_term$86); + var _ctr_type$88 = Kind$Parser$ADT$Constructor$build_type$($12967, _ctr$81); + var _ctr_type$89 = Kind$Term$bind$(List$nil, (_x$89 => { + var $13009 = (_x$89 + '0'); + return $13009; + }), _ctr_type$88); + var $13003 = Kind$Map$def$(_file$1, _code$2, _orig$69, _ctr_name$85, _ctr_term$87, _ctr_type$89, Bool$true, _ctr_arit$84, Bool$false, _defs$82); + return $13003; + })); + var _defs$82 = List$fold$($12999, Either$right$(_defs$81), (_deri$82 => _defs$83 => { + var self = _defs$83; + switch (self._) { + case 'Either.left': + var $13011 = self.value; + var $13012 = Either$left$($13011); + var $13010 = $13012; + break; + case 'Either.right': + var $13013 = self.value; + var self = Kind$Parser$ADT$Derive$by_name$(_deri$82, $12967); + switch (self._) { + case 'Maybe.some': + var $13015 = self.value; + var self = $13015; + switch (self._) { + case 'Kind.Parser.ADT.Derived.new': + var $13017 = self.name; + var $13018 = self.arit; + var $13019 = self.term; + var $13020 = self.type; + var _name$90 = $13017; + var _term$91 = $13019; + var _term$92 = Kind$Term$bind$(List$nil, (_x$92 => { + var $13022 = (_x$92 + '1'); + return $13022; + }), _term$91); + var _type$93 = $13020; + var _type$94 = Kind$Term$bind$(List$nil, (_x$94 => { + var $13023 = (_x$94 + '0'); + return $13023; + }), _type$93); + var _arit$95 = $13018; + var $13021 = Either$right$(Kind$Map$def$(_file$1, _code$2, _orig$69, _name$90, _term$92, _type$94, Bool$false, _arit$95, Bool$false, $13013)); + var $13016 = $13021; + break; + }; + var $13014 = $13016; + break; + case 'Maybe.none': + var $13024 = Either$left$(("Can\'t derive \'" + (_deri$82 + ("\' for \'" + ($12995 + "\' type."))))); + var $13014 = $13024; + break; + }; + var $13010 = $13014; + break; + }; + return $13010; + })); + var self = _defs$82; + switch (self._) { + case 'Either.left': + var $13025 = self.value; + var $13026 = Parser$fail($13025); + var $13000 = $13026; + break; + case 'Either.right': + var $13027 = self.value; + var $13028 = (_pst$84 => { + var $13029 = Parser$Reply$value$(_pst$84, $13027); + return $13029; + }); + var $13000 = $13028; + break; + }; + var $12994 = $13000; + break; + }; + var $12994 = $12994(_reply$pst$68); + return $12994; + })())); + return $12993; + })())); + var $12986 = $12992; + break; + }; + var $12978 = $12986; + break; + }; + var $12976 = $12978; + break; + }; + return $12976; + })())); + return $12975; + })())); + var $12968 = $12974; + break; + }; + var $12960 = $12968; + break; + }; + var $12958 = $12960; + break; + }; + return $12958; + })())); + return $12957; + })())); + var $12950 = $12956; + break; + }; + var $12942 = $12950; break; }; - var $11522 = $11530; + var $12940 = $12942; break; }; - var $11520 = $11522; - break; - }; - var $11514 = $11520; + return $12940; + })())); + return $12939; + })())); + var $12932 = $12938; break; }; - var $11507 = $11514; + var $12925 = $12932; break; }; - var $11505 = $11507; + var $12923 = $12925; break; }; - return $11505; + return $12923; }; const Kind$Parser$file$adt = x0 => x1 => x2 => x3 => Kind$Parser$file$adt$(x0, x1, x2, x3); @@ -36535,91 +40982,103 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $11605 = self.err; + var $13031 = self.err; var _reply$10 = Kind$Parser$spaces(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $11607 = self.err; - var self = $11605; + var $13033 = self.err; + var self = $13031; switch (self._) { case 'Maybe.some': - var $11609 = self.value; - var $11610 = Parser$Reply$error$(Parser$Error$combine$($11609, $11607)); - var $11608 = $11610; + var $13035 = self.value; + var $13036 = Parser$Reply$error$(Parser$Error$combine$($13035, $13033)); + var $13034 = $13036; break; case 'Maybe.none': - var $11611 = Parser$Reply$error$($11607); - var $11608 = $11611; + var $13037 = Parser$Reply$error$($13033); + var $13034 = $13037; break; }; - var $11606 = $11608; + var $13032 = $13034; break; case 'Parser.Reply.value': - var $11612 = self.pst; - var self = $11612; + var $13038 = self.pst; + var self = $13038; switch (self._) { case 'Parser.State.new': - var $11614 = self.err; - var $11615 = self.nam; - var $11616 = self.ini; - var $11617 = self.idx; - var $11618 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11605, $11614), $11615, $11616, $11617, $11618); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11620 = self.err; - var _reply$24 = Parser$eof$(_reply$pst$18); - var self = _reply$24; + var $13040 = self.err; + var $13041 = self.nam; + var $13042 = self.ini; + var $13043 = self.idx; + var $13044 = self.str; + var $13045 = ((console.log(("FALTANDO " + $13044)), (_$18 => { + var $13046 = ((console.log(("VALUE " + $13041)), (_$19 => { + var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($13031, $13040), $13041, $13042, $13043, $13044); + var self = _reply$pst$20; switch (self._) { - case 'Parser.Reply.error': - var $11622 = self.err; - var self = $11620; + case 'Parser.State.new': + var $13048 = self.err; + var _reply$26 = Parser$eof$(_reply$pst$20); + var self = _reply$26; switch (self._) { - case 'Maybe.some': - var $11624 = self.value; - var $11625 = Parser$Reply$error$(Parser$Error$combine$($11624, $11622)); - var $11623 = $11625; + case 'Parser.Reply.error': + var $13050 = self.err; + var self = $13048; + switch (self._) { + case 'Maybe.some': + var $13052 = self.value; + var $13053 = Parser$Reply$error$(Parser$Error$combine$($13052, $13050)); + var $13051 = $13053; + break; + case 'Maybe.none': + var $13054 = Parser$Reply$error$($13050); + var $13051 = $13054; + break; + }; + var $13049 = $13051; break; - case 'Maybe.none': - var $11626 = Parser$Reply$error$($11622); - var $11623 = $11626; + case 'Parser.Reply.value': + var $13055 = self.pst; + var self = $13055; + switch (self._) { + case 'Parser.State.new': + var $13057 = self.err; + var $13058 = self.nam; + var $13059 = self.ini; + var $13060 = self.idx; + var $13061 = self.str; + var $13062 = ((console.log(("FALTANDO " + $13061)), (_$34 => { + var $13063 = ((console.log(("VALUE " + $13058)), (_$35 => { + var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($13048, $13057), $13058, $13059, $13060, $13061); + var $13064 = Parser$Reply$value$(_reply$pst$36, _defs$3); + return $13064; + })())); + return $13063; + })())); + var $13056 = $13062; + break; + }; + var $13049 = $13056; break; }; - var $11621 = $11623; - break; - case 'Parser.Reply.value': - var $11627 = self.pst; - var self = $11627; - switch (self._) { - case 'Parser.State.new': - var $11629 = self.err; - var $11630 = self.nam; - var $11631 = self.ini; - var $11632 = self.idx; - var $11633 = self.str; - var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($11620, $11629), $11630, $11631, $11632, $11633); - var $11634 = Parser$Reply$value$(_reply$pst$32, _defs$3); - var $11628 = $11634; - break; - }; - var $11621 = $11628; + var $13047 = $13049; break; }; - var $11619 = $11621; - break; - }; - var $11613 = $11619; + return $13047; + })())); + return $13046; + })())); + var $13039 = $13045; break; }; - var $11606 = $11613; + var $13032 = $13039; break; }; - var $11604 = $11606; + var $13030 = $13032; break; }; - return $11604; + return $13030; }; const Kind$Parser$file$end = x0 => x1 => x2 => x3 => Kind$Parser$file$end$(x0, x1, x2, x3); @@ -36627,190 +41086,175 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $11636 = self.err; + var $13066 = self.err; var _reply$10 = Parser$is_eof$(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $11638 = self.err; - var self = $11636; + var $13068 = self.err; + var self = $13066; switch (self._) { case 'Maybe.some': - var $11640 = self.value; - var $11641 = Parser$Reply$error$(Parser$Error$combine$($11640, $11638)); - var $11639 = $11641; + var $13070 = self.value; + var $13071 = Parser$Reply$error$(Parser$Error$combine$($13070, $13068)); + var $13069 = $13071; break; case 'Maybe.none': - var $11642 = Parser$Reply$error$($11638); - var $11639 = $11642; + var $13072 = Parser$Reply$error$($13068); + var $13069 = $13072; break; }; - var $11637 = $11639; + var $13067 = $13069; break; case 'Parser.Reply.value': - var $11643 = self.pst; - var $11644 = self.val; - var self = $11643; + var $13073 = self.pst; + var $13074 = self.val; + var self = $13073; switch (self._) { case 'Parser.State.new': - var $11646 = self.err; - var $11647 = self.nam; - var $11648 = self.ini; - var $11649 = self.idx; - var $11650 = self.str; - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11636, $11646), $11647, $11648, $11649, $11650); - var self = $11644; - if (self) { - var $11652 = (_pst$19 => { - var $11653 = Parser$Reply$value$(_pst$19, _defs$3); - return $11653; - }); - var $11651 = $11652; - } else { - var $11654 = (_pst$19 => { - var self = _pst$19; - switch (self._) { - case 'Parser.State.new': - var $11656 = self.err; - var _reply$25 = Parser$choice$(List$cons$(Kind$Parser$file$def(_file$1)(_code$2)(_defs$3), List$cons$(Kind$Parser$file$adt(_file$1)(_code$2)(_defs$3), List$cons$(Kind$Parser$file$end(_file$1)(_code$2)(_defs$3), List$cons$(Parser$fail("Expected a top-level definition or a type declaration."), List$nil)))), _pst$19); - var self = _reply$25; + var $13076 = self.err; + var $13077 = self.nam; + var $13078 = self.ini; + var $13079 = self.idx; + var $13080 = self.str; + var $13081 = ((console.log(("FALTANDO " + $13080)), (_$18 => { + var $13082 = ((console.log(("VALUE " + $13077)), (_$19 => { + var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($13066, $13076), $13077, $13078, $13079, $13080); + var self = $13074; + if (self) { + var $13084 = (_pst$21 => { + var $13085 = Parser$Reply$value$(_pst$21, _defs$3); + return $13085; + }); + var $13083 = $13084; + } else { + var $13086 = (_pst$21 => { + var self = _pst$21; switch (self._) { - case 'Parser.Reply.error': - var $11658 = self.err; - var self = $11656; + case 'Parser.State.new': + var $13088 = self.err; + var _reply$27 = Parser$choice$(List$cons$(Kind$Parser$file$def(_file$1)(_code$2)(_defs$3), List$cons$(Kind$Parser$file$adt(_file$1)(_code$2)(_defs$3), List$cons$(Kind$Parser$file$end(_file$1)(_code$2)(_defs$3), List$cons$(Parser$fail("Expected a top-level definition or a type declaration."), List$nil)))), _pst$21); + var self = _reply$27; switch (self._) { - case 'Maybe.some': - var $11660 = self.value; - var $11661 = Parser$Reply$error$(Parser$Error$combine$($11660, $11658)); - var $11659 = $11661; - break; - case 'Maybe.none': - var $11662 = Parser$Reply$error$($11658); - var $11659 = $11662; - break; - }; - var $11657 = $11659; - break; - case 'Parser.Reply.value': - var $11663 = self.pst; - var $11664 = self.val; - var self = $11663; - switch (self._) { - case 'Parser.State.new': - var $11666 = self.err; - var $11667 = self.nam; - var $11668 = self.ini; - var $11669 = self.idx; - var $11670 = self.str; - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($11656, $11666), $11667, $11668, $11669, $11670); - var self = _reply$pst$33; + case 'Parser.Reply.error': + var $13090 = self.err; + var self = $13088; switch (self._) { - case 'Parser.State.new': - var $11672 = self.err; - var _reply$39 = Kind$Parser$file$(_file$1, _code$2, $11664, _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $11674 = self.err; - var self = $11672; - switch (self._) { - case 'Maybe.some': - var $11676 = self.value; - var $11677 = Parser$Reply$error$(Parser$Error$combine$($11676, $11674)); - var $11675 = $11677; - break; - case 'Maybe.none': - var $11678 = Parser$Reply$error$($11674); - var $11675 = $11678; - break; - }; - var $11673 = $11675; - break; - case 'Parser.Reply.value': - var $11679 = self.pst; - var $11680 = self.val; - var self = $11679; - switch (self._) { - case 'Parser.State.new': - var $11682 = self.err; - var $11683 = self.nam; - var $11684 = self.ini; - var $11685 = self.idx; - var $11686 = self.str; - var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($11672, $11682), $11683, $11684, $11685, $11686); - var $11687 = Parser$Reply$value$(_reply$pst$47, $11680); - var $11681 = $11687; - break; - }; - var $11673 = $11681; - break; - }; - var $11671 = $11673; + case 'Maybe.some': + var $13092 = self.value; + var $13093 = Parser$Reply$error$(Parser$Error$combine$($13092, $13090)); + var $13091 = $13093; + break; + case 'Maybe.none': + var $13094 = Parser$Reply$error$($13090); + var $13091 = $13094; break; }; - var $11665 = $11671; + var $13089 = $13091; + break; + case 'Parser.Reply.value': + var $13095 = self.pst; + var $13096 = self.val; + var self = $13095; + switch (self._) { + case 'Parser.State.new': + var $13098 = self.err; + var $13099 = self.nam; + var $13100 = self.ini; + var $13101 = self.idx; + var $13102 = self.str; + var $13103 = ((console.log(("FALTANDO " + $13102)), (_$35 => { + var $13104 = ((console.log(("VALUE " + $13099)), (_$36 => { + var _reply$pst$37 = Parser$State$new$(Parser$Error$maybe_combine$($13088, $13098), $13099, $13100, $13101, $13102); + var self = _reply$pst$37; + switch (self._) { + case 'Parser.State.new': + var $13106 = self.err; + var _reply$43 = Kind$Parser$file$(_file$1, _code$2, $13096, _reply$pst$37); + var self = _reply$43; + switch (self._) { + case 'Parser.Reply.error': + var $13108 = self.err; + var self = $13106; + switch (self._) { + case 'Maybe.some': + var $13110 = self.value; + var $13111 = Parser$Reply$error$(Parser$Error$combine$($13110, $13108)); + var $13109 = $13111; + break; + case 'Maybe.none': + var $13112 = Parser$Reply$error$($13108); + var $13109 = $13112; + break; + }; + var $13107 = $13109; + break; + case 'Parser.Reply.value': + var $13113 = self.pst; + var $13114 = self.val; + var self = $13113; + switch (self._) { + case 'Parser.State.new': + var $13116 = self.err; + var $13117 = self.nam; + var $13118 = self.ini; + var $13119 = self.idx; + var $13120 = self.str; + var $13121 = ((console.log(("FALTANDO " + $13120)), (_$51 => { + var $13122 = ((console.log(("VALUE " + $13117)), (_$52 => { + var _reply$pst$53 = Parser$State$new$(Parser$Error$maybe_combine$($13106, $13116), $13117, $13118, $13119, $13120); + var $13123 = Parser$Reply$value$(_reply$pst$53, $13114); + return $13123; + })())); + return $13122; + })())); + var $13115 = $13121; + break; + }; + var $13107 = $13115; + break; + }; + var $13105 = $13107; + break; + }; + return $13105; + })())); + return $13104; + })())); + var $13097 = $13103; + break; + }; + var $13089 = $13097; break; }; - var $11657 = $11665; + var $13087 = $13089; break; }; - var $11655 = $11657; - break; + return $13087; + }); + var $13083 = $13086; }; - return $11655; - }); - var $11651 = $11654; - }; - var $11651 = $11651(_reply$pst$18); - var $11645 = $11651; + var $13083 = $13083(_reply$pst$20); + return $13083; + })())); + return $13082; + })())); + var $13075 = $13081; break; }; - var $11637 = $11645; + var $13067 = $13075; break; }; - var $11635 = $11637; + var $13065 = $13067; break; }; - return $11635; + return $13065; }; const Kind$Parser$file = x0 => x1 => x2 => x3 => Kind$Parser$file$(x0, x1, x2, x3); - function String$join$go$(_sep$1, _list$2, _fst$3) { - var self = _list$2; - switch (self._) { - case 'List.cons': - var $11689 = self.head; - var $11690 = self.tail; - var $11691 = String$flatten$(List$cons$((() => { - var self = _fst$3; - if (self) { - var $11692 = ""; - return $11692; - } else { - var $11693 = _sep$1; - return $11693; - }; - })(), List$cons$($11689, List$cons$(String$join$go$(_sep$1, $11690, Bool$false), List$nil)))); - var $11688 = $11691; - break; - case 'List.nil': - var $11694 = ""; - var $11688 = $11694; - break; - }; - return $11688; - }; - const String$join$go = x0 => x1 => x2 => String$join$go$(x0, x1, x2); - - function String$join$(_sep$1, _list$2) { - var $11695 = String$join$go$(_sep$1, _list$2, Bool$true); - return $11695; - }; - const String$join = x0 => x1 => String$join$(x0, x1); - function Kind$Code$highlight$end$(_col$1, _row$2, _res$3) { - var $11696 = String$join$("\u{a}", _res$3); - return $11696; + var $13124 = String$join$("\u{a}", _res$3); + return $13124; }; const Kind$Code$highlight$end = x0 => x1 => x2 => Kind$Code$highlight$end$(x0, x1, x2); @@ -36818,105 +41262,99 @@ module.exports = (function() { var self = _m$2; switch (self._) { case 'Maybe.some': - var $11698 = self.value; - var $11699 = _f$5($11698); - var $11697 = $11699; + var $13126 = self.value; + var $13127 = _f$5($13126); + var $13125 = $13127; break; case 'Maybe.none': - var $11700 = _a$4; - var $11697 = $11700; + var $13128 = _a$4; + var $13125 = $13128; break; }; - return $11697; + return $13125; }; const Maybe$extract = x0 => x1 => x2 => Maybe$extract$(x0, x1, x2); function Nat$is_zero$(_n$1) { var self = _n$1; if (self === 0n) { - var $11702 = Bool$true; - var $11701 = $11702; + var $13130 = Bool$true; + var $13129 = $13130; } else { - var $11703 = (self - 1n); - var $11704 = Bool$false; - var $11701 = $11704; + var $13131 = (self - 1n); + var $13132 = Bool$false; + var $13129 = $13132; }; - return $11701; + return $13129; }; const Nat$is_zero = x0 => Nat$is_zero$(x0); function Nat$double$(_n$1) { var self = _n$1; if (self === 0n) { - var $11706 = Nat$zero; - var $11705 = $11706; + var $13134 = Nat$zero; + var $13133 = $13134; } else { - var $11707 = (self - 1n); - var $11708 = Nat$succ$(Nat$succ$(Nat$double$($11707))); - var $11705 = $11708; + var $13135 = (self - 1n); + var $13136 = Nat$succ$(Nat$succ$(Nat$double$($13135))); + var $13133 = $13136; }; - return $11705; + return $13133; }; const Nat$double = x0 => Nat$double$(x0); function String$pad_right$(_size$1, _chr$2, _str$3) { var self = _size$1; if (self === 0n) { - var $11710 = _str$3; - var $11709 = $11710; + var $13138 = _str$3; + var $13137 = $13138; } else { - var $11711 = (self - 1n); + var $13139 = (self - 1n); var self = _str$3; if (self.length === 0) { - var $11713 = String$cons$(_chr$2, String$pad_right$($11711, _chr$2, "")); - var $11712 = $11713; + var $13141 = String$cons$(_chr$2, String$pad_right$($13139, _chr$2, "")); + var $13140 = $13141; } else { - var $11714 = self.charCodeAt(0); - var $11715 = self.slice(1); - var $11716 = String$cons$($11714, String$pad_right$($11711, _chr$2, $11715)); - var $11712 = $11716; + var $13142 = self.charCodeAt(0); + var $13143 = self.slice(1); + var $13144 = String$cons$($13142, String$pad_right$($13139, _chr$2, $13143)); + var $13140 = $13144; }; - var $11709 = $11712; + var $13137 = $13140; }; - return $11709; + return $13137; }; const String$pad_right = x0 => x1 => x2 => String$pad_right$(x0, x1, x2); function String$pad_left$(_size$1, _chr$2, _str$3) { - var $11717 = String$reverse$(String$pad_right$(_size$1, _chr$2, String$reverse$(_str$3))); - return $11717; + var $13145 = String$reverse$(String$pad_right$(_size$1, _chr$2, String$reverse$(_str$3))); + return $13145; }; const String$pad_left = x0 => x1 => x2 => String$pad_left$(x0, x1, x2); - function Kind$Code$color$(_col$1, _str$2) { - var $11718 = String$cons$(27, ("[" + (_col$1 + ("m" + (_str$2 + String$cons$(27, "[0m")))))); - return $11718; - }; - const Kind$Code$color = x0 => x1 => Kind$Code$color$(x0, x1); - function List$take$(_n$2, _xs$3) { var self = _xs$3; switch (self._) { case 'List.cons': - var $11720 = self.head; - var $11721 = self.tail; + var $13147 = self.head; + var $13148 = self.tail; var self = _n$2; if (self === 0n) { - var $11723 = List$nil; - var $11722 = $11723; + var $13150 = List$nil; + var $13149 = $13150; } else { - var $11724 = (self - 1n); - var $11725 = List$cons$($11720, List$take$($11724, $11721)); - var $11722 = $11725; + var $13151 = (self - 1n); + var $13152 = List$cons$($13147, List$take$($13151, $13148)); + var $13149 = $13152; }; - var $11719 = $11722; + var $13146 = $13149; break; case 'List.nil': - var $11726 = List$nil; - var $11719 = $11726; + var $13153 = List$nil; + var $13146 = $13153; break; }; - return $11719; + return $13146; }; const List$take = x0 => x1 => List$take$(x0, x1); @@ -36933,18 +41371,18 @@ module.exports = (function() { var _spa$10 = 3n; var self = _code$1; if (self.length === 0) { - var $11728 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); - var $11727 = $11728; + var $13155 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); + var $13154 = $13155; } else { - var $11729 = self.charCodeAt(0); - var $11730 = self.slice(1); - var self = ($11729 === 10); + var $13156 = self.charCodeAt(0); + var $13157 = self.slice(1); + var self = ($13156 === 10); if (self) { var _stp$13 = Maybe$extract$(_lft$7, Bool$false, Nat$is_zero); var self = _stp$13; if (self) { - var $11733 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); - var $11732 = $11733; + var $13160 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); + var $13159 = $13160; } else { var _siz$14 = Nat$succ$(Nat$double$(_spa$10)); var self = _ix1$4; @@ -36952,20 +41390,20 @@ module.exports = (function() { var self = _lft$7; switch (self._) { case 'Maybe.some': - var $11736 = self.value; - var $11737 = Maybe$some$(Nat$pred$($11736)); - var $11735 = $11737; + var $13163 = self.value; + var $13164 = Maybe$some$(Nat$pred$($13163)); + var $13162 = $13164; break; case 'Maybe.none': - var $11738 = Maybe$some$(_spa$10); - var $11735 = $11738; + var $13165 = Maybe$some$(_spa$10); + var $13162 = $13165; break; }; - var _lft$15 = $11735; + var _lft$15 = $13162; } else { - var $11739 = (self - 1n); - var $11740 = _lft$7; - var _lft$15 = $11740; + var $13166 = (self - 1n); + var $13167 = _lft$7; + var _lft$15 = $13167; }; var _ixi$16 = Nat$pred$(_ixi$2); var _ix0$17 = Nat$pred$(_ix0$3); @@ -36974,46 +41412,46 @@ module.exports = (function() { var _row$20 = Nat$succ$(_row$6); var _res$21 = List$cons$(String$reverse$(_lin$8), _res$9); var _lin$22 = String$reverse$(String$flatten$(List$cons$(String$pad_left$(4n, 32, Nat$show$(_row$20)), List$cons$(" | ", List$nil)))); - var $11734 = Kind$Code$highlight$go$($11730, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$20, _lft$15, _lin$22, _res$21); - var $11732 = $11734; + var $13161 = Kind$Code$highlight$go$($13157, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$20, _lft$15, _lin$22, _res$21); + var $13159 = $13161; }; - var $11731 = $11732; + var $13158 = $13159; } else { - var _chr$13 = String$cons$($11729, String$nil); + var _chr$13 = String$cons$($13156, String$nil); var self = (Nat$is_zero$(_ix0$3) && (!Nat$is_zero$(_ix1$4))); if (self) { - var $11742 = String$reverse$(Kind$Code$color$("41", Kind$Code$color$("37", _chr$13))); - var _chr$14 = $11742; + var $13169 = String$reverse$(Kind$Code$color$("41", Kind$Code$color$("37", _chr$13))); + var _chr$14 = $13169; } else { var self = (Nat$is_zero$(_ixi$2) && (!Nat$is_zero$(_ix1$4))); if (self) { - var $11744 = String$reverse$(Kind$Code$color$("31", Kind$Code$color$("4", _chr$13))); - var $11743 = $11744; + var $13171 = String$reverse$(Kind$Code$color$("31", Kind$Code$color$("4", _chr$13))); + var $13170 = $13171; } else { - var $11745 = _chr$13; - var $11743 = $11745; + var $13172 = _chr$13; + var $13170 = $13172; }; - var _chr$14 = $11743; + var _chr$14 = $13170; }; var self = (_ix0$3 === 1n); if (self) { - var $11746 = List$take$(_spa$10, _res$9); - var _res$15 = $11746; + var $13173 = List$take$(_spa$10, _res$9); + var _res$15 = $13173; } else { - var $11747 = _res$9; - var _res$15 = $11747; + var $13174 = _res$9; + var _res$15 = $13174; }; var _ixi$16 = Nat$pred$(_ixi$2); var _ix0$17 = Nat$pred$(_ix0$3); var _ix1$18 = Nat$pred$(_ix1$4); var _col$19 = Nat$succ$(_col$5); var _lin$20 = String$flatten$(List$cons$(_chr$14, List$cons$(_lin$8, List$nil))); - var $11741 = Kind$Code$highlight$go$($11730, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$6, _lft$7, _lin$20, _res$15); - var $11731 = $11741; + var $13168 = Kind$Code$highlight$go$($13157, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$6, _lft$7, _lin$20, _res$15); + var $13158 = $13168; }; - var $11727 = $11731; + var $13154 = $13158; }; - return $11727; + return $13154; })(); if (R.ctr === 'TCO') arg = R.arg; else return R; @@ -37022,8 +41460,8 @@ module.exports = (function() { const Kind$Code$highlight$go = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => Kind$Code$highlight$go$(x0, x1, x2, x3, x4, x5, x6, x7, x8); function Kind$Code$highlight$(_code$1, _init$2, _idx0$3, _idx1$4) { - var $11748 = Kind$Code$highlight$go$((_code$1 + " \u{a}"), _init$2, _idx0$3, _idx1$4, 0n, 1n, Maybe$none, String$reverse$(" 1 | "), List$nil); - return $11748; + var $13175 = Kind$Code$highlight$go$((_code$1 + " \u{a}"), _init$2, _idx0$3, _idx1$4, 0n, 1n, Maybe$none, String$reverse$(" 1 | "), List$nil); + return $13175; }; const Kind$Code$highlight = x0 => x1 => x2 => x3 => Kind$Code$highlight$(x0, x1, x2, x3); @@ -37031,41 +41469,41 @@ module.exports = (function() { var self = Kind$Parser$file$(_file$1, _code$2, _defs$3, Parser$State$new$(Maybe$none, "", 0n, 0n, _code$2)); switch (self._) { case 'Parser.Reply.error': - var $11750 = self.err; - var self = $11750; + var $13177 = self.err; + var self = $13177; switch (self._) { case 'Parser.Error.new': - var $11752 = self.nam; - var $11753 = self.ini; - var $11754 = self.idx; - var $11755 = self.msg; - var _err$9 = ($11755 + (() => { - var self = $11752; + var $13179 = self.nam; + var $13180 = self.ini; + var $13181 = self.idx; + var $13182 = self.msg; + var _err$9 = ($13182 + (() => { + var self = $13179; if (self.length === 0) { - var $11757 = ""; - return $11757; + var $13184 = ""; + return $13184; } else { - var $11758 = self.charCodeAt(0); - var $11759 = self.slice(1); - var $11760 = (" Inside " + ($11752 + ":")); - return $11760; + var $13185 = self.charCodeAt(0); + var $13186 = self.slice(1); + var $13187 = (" Inside " + ($13179 + ":")); + return $13187; }; })()); - var _hig$10 = Kind$Code$highlight$(_code$2, $11753, $11754, Nat$succ$($11754)); + var _hig$10 = Kind$Code$highlight$(_code$2, $13180, $13181, Nat$succ$($13181)); var _str$11 = String$flatten$(List$cons$(_err$9, List$cons$("\u{a}", List$cons$(_hig$10, List$nil)))); - var $11756 = Either$left$(_str$11); - var $11751 = $11756; + var $13183 = Either$left$(_str$11); + var $13178 = $13183; break; }; - var $11749 = $11751; + var $13176 = $13178; break; case 'Parser.Reply.value': - var $11761 = self.val; - var $11762 = Either$right$($11761); - var $11749 = $11762; + var $13188 = self.val; + var $13189 = Either$right$($13188); + var $13176 = $13189; break; }; - return $11749; + return $13176; }; const Kind$Defs$read = x0 => x1 => x2 => Kind$Defs$read$(x0, x1, x2); @@ -37073,52 +41511,52 @@ module.exports = (function() { var self = _files$2; switch (self._) { case 'List.cons': - var $11764 = self.head; - var $11765 = self.tail; - var $11766 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $11767 = _m$bind$6; - return $11767; - }))(Kind$Synth$get_kind_code$($11764))((_code$6 => { - var _read$7 = Kind$Defs$read$($11764, _code$6, _defs$3); + var $13191 = self.head; + var $13192 = self.tail; + var $13193 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $13194 = _m$bind$6; + return $13194; + }))(Kind$Synth$get_kind_code$($13191))((_code$6 => { + var _read$7 = Kind$Defs$read$($13191, _code$6, _defs$3); var self = _read$7; switch (self._) { case 'Either.right': - var $11769 = self.value; - var _defs$9 = $11769; + var $13196 = self.value; + var _defs$9 = $13196; var self = Kind$Map$get$(_name$1, _defs$9); switch (self._) { case 'Maybe.none': - var $11771 = Kind$Synth$load$go$(_name$1, $11765, _defs$9); - var $11770 = $11771; + var $13198 = Kind$Synth$load$go$(_name$1, $13192, _defs$9); + var $13197 = $13198; break; case 'Maybe.some': - var $11772 = IO$monad$((_m$bind$11 => _m$pure$12 => { - var $11773 = _m$pure$12; - return $11773; + var $13199 = IO$monad$((_m$bind$11 => _m$pure$12 => { + var $13200 = _m$pure$12; + return $13200; }))(Maybe$some$(_defs$9)); - var $11770 = $11772; + var $13197 = $13199; break; }; - var $11768 = $11770; + var $13195 = $13197; break; case 'Either.left': - var $11774 = Kind$Synth$load$go$(_name$1, $11765, _defs$3); - var $11768 = $11774; + var $13201 = Kind$Synth$load$go$(_name$1, $13192, _defs$3); + var $13195 = $13201; break; }; - return $11768; + return $13195; })); - var $11763 = $11766; + var $13190 = $13193; break; case 'List.nil': - var $11775 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $11776 = _m$pure$5; - return $11776; + var $13202 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $13203 = _m$pure$5; + return $13203; }))(Maybe$none); - var $11763 = $11775; + var $13190 = $13202; break; }; - return $11763; + return $13190; }; const Kind$Synth$load$go = x0 => x1 => x2 => Kind$Synth$load$go$(x0, x1, x2); @@ -37126,19 +41564,19 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.cons': - var $11778 = self.head; - var $11779 = self.tail; - var _head$5 = (_last$2 + ($11778 + ".kind")); - var _tail$6 = Kind$Synth$files_of$make$($11779, (_last$2 + ($11778 + "/"))); - var $11780 = List$cons$(_head$5, _tail$6); - var $11777 = $11780; + var $13205 = self.head; + var $13206 = self.tail; + var _head$5 = (_last$2 + ($13205 + ".kind")); + var _tail$6 = Kind$Synth$files_of$make$($13206, (_last$2 + ($13205 + "/"))); + var $13207 = List$cons$(_head$5, _tail$6); + var $13204 = $13207; break; case 'List.nil': - var $11781 = List$nil; - var $11777 = $11781; + var $13208 = List$nil; + var $13204 = $13208; break; }; - return $11777; + return $13204; }; const Kind$Synth$files_of$make = x0 => x1 => Kind$Synth$files_of$make$(x0, x1); @@ -37154,13 +41592,13 @@ module.exports = (function() { var R = (() => { var self = _xs$1; if (self.length === 0) { - var $11782 = _n$2; - return $11782; + var $13209 = _n$2; + return $13209; } else { - var $11783 = self.charCodeAt(0); - var $11784 = self.slice(1); - var $11785 = String$length$go$($11784, Nat$succ$(_n$2)); - return $11785; + var $13210 = self.charCodeAt(0); + var $13211 = self.slice(1); + var $13212 = String$length$go$($13211, Nat$succ$(_n$2)); + return $13212; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -37170,70 +41608,70 @@ module.exports = (function() { const String$length$go = x0 => x1 => String$length$go$(x0, x1); function String$length$(_xs$1) { - var $11786 = String$length$go$(_xs$1, 0n); - return $11786; + var $13213 = String$length$go$(_xs$1, 0n); + return $13213; }; const String$length = x0 => String$length$(x0); function String$split$go$(_xs$1, _match$2, _last$3) { var self = _xs$1; if (self.length === 0) { - var $11788 = List$cons$(_last$3, List$nil); - var $11787 = $11788; + var $13215 = List$cons$(_last$3, List$nil); + var $13214 = $13215; } else { - var $11789 = self.charCodeAt(0); - var $11790 = self.slice(1); + var $13216 = self.charCodeAt(0); + var $13217 = self.slice(1); var self = String$starts_with$(_xs$1, _match$2); if (self) { var _rest$6 = String$drop$(String$length$(_match$2), _xs$1); - var $11792 = List$cons$(_last$3, String$split$go$(_rest$6, _match$2, "")); - var $11791 = $11792; + var $13219 = List$cons$(_last$3, String$split$go$(_rest$6, _match$2, "")); + var $13218 = $13219; } else { - var _next$6 = String$cons$($11789, String$nil); - var $11793 = String$split$go$($11790, _match$2, (_last$3 + _next$6)); - var $11791 = $11793; + var _next$6 = String$cons$($13216, String$nil); + var $13220 = String$split$go$($13217, _match$2, (_last$3 + _next$6)); + var $13218 = $13220; }; - var $11787 = $11791; + var $13214 = $13218; }; - return $11787; + return $13214; }; const String$split$go = x0 => x1 => x2 => String$split$go$(x0, x1, x2); function String$split$(_xs$1, _match$2) { - var $11794 = String$split$go$(_xs$1, _match$2, ""); - return $11794; + var $13221 = String$split$go$(_xs$1, _match$2, ""); + return $13221; }; const String$split = x0 => x1 => String$split$(x0, x1); function Kind$Synth$files_of$(_name$1) { - var $11795 = List$reverse$(Kind$Synth$files_of$make$(String$split$(_name$1, "."), "")); - return $11795; + var $13222 = List$reverse$(Kind$Synth$files_of$make$(String$split$(_name$1, "."), "")); + return $13222; }; const Kind$Synth$files_of = x0 => Kind$Synth$files_of$(x0); function Kind$Synth$load$(_name$1, _defs$2) { - var $11796 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $11797 = _m$bind$3; - return $11797; + var $13223 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $13224 = _m$bind$3; + return $13224; }))(Kind$Synth$load$cached$(List$cons$(_name$1, List$nil), _defs$2))((_cached_defs$3 => { var self = _cached_defs$3; switch (self._) { case 'Maybe.some': - var $11799 = self.value; - var $11800 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $11801 = _m$pure$6; - return $11801; - }))(Maybe$some$($11799)); - var $11798 = $11800; + var $13226 = self.value; + var $13227 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $13228 = _m$pure$6; + return $13228; + }))(Maybe$some$($13226)); + var $13225 = $13227; break; case 'Maybe.none': - var $11802 = Kind$Synth$load$go$(_name$1, Kind$Synth$files_of$(_name$1), _defs$2); - var $11798 = $11802; + var $13229 = Kind$Synth$load$go$(_name$1, Kind$Synth$files_of$(_name$1), _defs$2); + var $13225 = $13229; break; }; - return $11798; + return $13225; })); - return $11796; + return $13223; }; const Kind$Synth$load = x0 => x1 => Kind$Synth$load$(x0, x1); const Kind$Status$wait = ({ @@ -37241,85 +41679,56 @@ module.exports = (function() { }); function Kind$Check$(_V$1) { - var $11803 = null; - return $11803; + var $13230 = null; + return $13230; }; const Kind$Check = x0 => Kind$Check$(x0); function Kind$Check$result$(_value$2, _errors$3) { - var $11804 = ({ + var $13231 = ({ _: 'Kind.Check.result', 'value': _value$2, 'errors': _errors$3 }); - return $11804; + return $13231; }; const Kind$Check$result = x0 => x1 => Kind$Check$result$(x0, x1); function Kind$Error$undefined_reference$(_origin$1, _name$2) { - var $11805 = ({ + var $13232 = ({ _: 'Kind.Error.undefined_reference', 'origin': _origin$1, 'name': _name$2 }); - return $11805; + return $13232; }; const Kind$Error$undefined_reference = x0 => x1 => Kind$Error$undefined_reference$(x0, x1); function Kind$Error$waiting$(_name$1) { - var $11806 = ({ + var $13233 = ({ _: 'Kind.Error.waiting', 'name': _name$1 }); - return $11806; + return $13233; }; const Kind$Error$waiting = x0 => Kind$Error$waiting$(x0); function Kind$Error$indirect$(_name$1) { - var $11807 = ({ + var $13234 = ({ _: 'Kind.Error.indirect', 'name': _name$1 }); - return $11807; + return $13234; }; const Kind$Error$indirect = x0 => Kind$Error$indirect$(x0); - function Maybe$mapped$(_m$2, _f$4) { - var self = _m$2; - switch (self._) { - case 'Maybe.some': - var $11809 = self.value; - var $11810 = Maybe$some$(_f$4($11809)); - var $11808 = $11810; - break; - case 'Maybe.none': - var $11811 = Maybe$none; - var $11808 = $11811; - break; - }; - return $11808; - }; - const Maybe$mapped = x0 => x1 => Maybe$mapped$(x0, x1); - - function Kind$Path$Maybe$Builder$o$(_path$1) { - var $11812 = Maybe$mapped$(_path$1, Kind$Path$Builder$o); - return $11812; - }; - const Kind$Path$Maybe$Builder$o = x0 => Kind$Path$Maybe$Builder$o$(x0); - - function Kind$Path$Maybe$Builder$i$(_path$1) { - var $11813 = Maybe$mapped$(_path$1, Kind$Path$Builder$i); - return $11813; - }; - const Kind$Path$Maybe$Builder$i = x0 => Kind$Path$Maybe$Builder$i$(x0); - function Kind$Error$patch$(_path$1, _term$2) { - var $11814 = ({ + var $13235 = ({ _: 'Kind.Error.patch', 'path': _path$1, 'term': _term$2 }); - return $11814; + return $13235; }; const Kind$Error$patch = x0 => x1 => Kind$Error$patch$(x0, x1); @@ -37327,39 +41736,39 @@ module.exports = (function() { var self = _path$1; switch (self._) { case 'Maybe.some': - var $11816 = self.value; - var $11817 = $11816(Bits$e); - var $11815 = $11817; + var $13237 = self.value; + var $13238 = $13237(Bits$e); + var $13236 = $13238; break; case 'Maybe.none': - var $11818 = Bits$e; - var $11815 = $11818; + var $13239 = Bits$e; + var $13236 = $13239; break; }; - return $11815; + return $13236; }; const Kind$Path$Maybe$Builder$to_bits = x0 => Kind$Path$Maybe$Builder$to_bits$(x0); function Kind$Term$check$patch$(_term$1, _type$2, _path$3) { - var $11819 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$patch$(Kind$Path$Maybe$Builder$to_bits$(_path$3), _term$1), List$nil)); - return $11819; + var $13240 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$patch$(Kind$Path$Maybe$Builder$to_bits$(_path$3), _term$1), List$nil)); + return $13240; }; const Kind$Term$check$patch = x0 => x1 => x2 => Kind$Term$check$patch$(x0, x1, x2); function Kind$Error$type_mismatch$(_origin$1, _expected$2, _detected$3, _context$4) { - var $11820 = ({ + var $13241 = ({ _: 'Kind.Error.type_mismatch', 'origin': _origin$1, 'expected': _expected$2, 'detected': _detected$3, 'context': _context$4 }); - return $11820; + return $13241; }; const Kind$Error$type_mismatch = x0 => x1 => x2 => x3 => Kind$Error$type_mismatch$(x0, x1, x2, x3); function Kind$Error$show_goal$(_name$1, _dref$2, _verb$3, _goal$4, _context$5) { - var $11821 = ({ + var $13242 = ({ _: 'Kind.Error.show_goal', 'name': _name$1, 'dref': _dref$2, @@ -37367,13 +41776,13 @@ module.exports = (function() { 'goal': _goal$4, 'context': _context$5 }); - return $11821; + return $13242; }; const Kind$Error$show_goal = x0 => x1 => x2 => x3 => x4 => Kind$Error$show_goal$(x0, x1, x2, x3, x4); function Kind$Path$Builder$nil$(_x$1) { - var $11822 = _x$1; - return $11822; + var $13243 = _x$1; + return $13243; }; const Kind$Path$Builder$nil = x0 => Kind$Path$Builder$nil$(x0); const Kind$Path$Maybe$Builder$nil = Maybe$some$(Kind$Path$Builder$nil); @@ -37382,31 +41791,31 @@ module.exports = (function() { var self = Kind$Term$check$(_term$1, Maybe$none, _defs$2, List$nil, Kind$Path$Maybe$Builder$nil, Maybe$none); switch (self._) { case 'Kind.Check.result': - var $11824 = self.value; - var $11825 = self.errors; - var self = $11824; + var $13245 = self.value; + var $13246 = self.errors; + var self = $13245; switch (self._) { case 'Maybe.none': - var $11827 = Kind$Check$result$(Maybe$none, $11825); - var $11826 = $11827; + var $13248 = Kind$Check$result$(Maybe$none, $13246); + var $13247 = $13248; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(_term$1), List$nil); switch (self._) { case 'Kind.Check.result': - var $11829 = self.value; - var $11830 = self.errors; - var $11831 = Kind$Check$result$($11829, List$concat$($11825, $11830)); - var $11828 = $11831; + var $13250 = self.value; + var $13251 = self.errors; + var $13252 = Kind$Check$result$($13250, List$concat$($13246, $13251)); + var $13249 = $13252; break; }; - var $11826 = $11828; + var $13247 = $13249; break; }; - var $11823 = $11826; + var $13244 = $13247; break; }; - return $11823; + return $13244; }; const Kind$Term$check$direct = x0 => x1 => Kind$Term$check$direct$(x0, x1); @@ -37416,13 +41825,13 @@ module.exports = (function() { var _end$4 = String$slice$((_len$2 - 5n <= 0n ? 0n : _len$2 - 5n), _len$2, _self$1); var self = (_end$4 === ".Self"); if (self) { - var $11833 = Maybe$some$(_ini$3); - var $11832 = $11833; + var $13254 = Maybe$some$(_ini$3); + var $13253 = $13254; } else { - var $11834 = Maybe$none; - var $11832 = $11834; + var $13255 = Maybe$none; + var $13253 = $13255; }; - return $11832; + return $13253; }; const Kind$Term$check$get_name_of_self_type$slice = x0 => Kind$Term$check$get_name_of_self_type$slice$(x0); @@ -37430,9 +41839,9 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, Kind$Map$new); switch (self._) { case 'Kind.Term.ref': - var $11836 = self.name; - var $11837 = Maybe$some$($11836); - var $11835 = $11837; + var $13257 = self.name; + var $13258 = Maybe$some$($13257); + var $13256 = $13258; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -37442,14 +41851,14 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $11839 = self.name; - var $11840 = Maybe$some$($11839); - var $11838 = $11840; + var $13260 = self.name; + var $13261 = Maybe$some$($13260); + var $13259 = $13261; break; case 'Kind.Term.all': - var $11841 = self.self; - var $11842 = Kind$Term$check$get_name_of_self_type$slice$($11841); - var $11838 = $11842; + var $13262 = self.self; + var $13263 = Kind$Term$check$get_name_of_self_type$slice$($13262); + var $13259 = $13263; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -37470,24 +41879,24 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $11843 = Maybe$none; - var $11838 = $11843; + var $13264 = Maybe$none; + var $13259 = $13264; break; }; - var $11835 = $11838; + var $13256 = $13259; break; case 'Kind.Term.typ': var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $11845 = self.name; - var $11846 = Maybe$some$($11845); - var $11844 = $11846; + var $13266 = self.name; + var $13267 = Maybe$some$($13266); + var $13265 = $13267; break; case 'Kind.Term.all': - var $11847 = self.self; - var $11848 = Kind$Term$check$get_name_of_self_type$slice$($11847); - var $11844 = $11848; + var $13268 = self.self; + var $13269 = Kind$Term$check$get_name_of_self_type$slice$($13268); + var $13265 = $13269; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -37508,24 +41917,24 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $11849 = Maybe$none; - var $11844 = $11849; + var $13270 = Maybe$none; + var $13265 = $13270; break; }; - var $11835 = $11844; + var $13256 = $13265; break; case 'Kind.Term.all': var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $11851 = self.name; - var $11852 = Maybe$some$($11851); - var $11850 = $11852; + var $13272 = self.name; + var $13273 = Maybe$some$($13272); + var $13271 = $13273; break; case 'Kind.Term.all': - var $11853 = self.self; - var $11854 = Kind$Term$check$get_name_of_self_type$slice$($11853); - var $11850 = $11854; + var $13274 = self.self; + var $13275 = Kind$Term$check$get_name_of_self_type$slice$($13274); + var $13271 = $13275; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -37546,11 +41955,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $11855 = Maybe$none; - var $11850 = $11855; + var $13276 = Maybe$none; + var $13271 = $13276; break; }; - var $11835 = $11850; + var $13256 = $13271; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -37562,14 +41971,14 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $11857 = self.name; - var $11858 = Maybe$some$($11857); - var $11856 = $11858; + var $13278 = self.name; + var $13279 = Maybe$some$($13278); + var $13277 = $13279; break; case 'Kind.Term.all': - var $11859 = self.self; - var $11860 = Kind$Term$check$get_name_of_self_type$slice$($11859); - var $11856 = $11860; + var $13280 = self.self; + var $13281 = Kind$Term$check$get_name_of_self_type$slice$($13280); + var $13277 = $13281; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -37590,11 +41999,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $11861 = Maybe$none; - var $11856 = $11861; + var $13282 = Maybe$none; + var $13277 = $13282; break; }; - var $11835 = $11856; + var $13256 = $13277; break; case 'Kind.Term.hol': case 'Kind.Term.nat': @@ -37604,14 +42013,14 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $11863 = self.name; - var $11864 = Maybe$some$($11863); - var $11862 = $11864; + var $13284 = self.name; + var $13285 = Maybe$some$($13284); + var $13283 = $13285; break; case 'Kind.Term.all': - var $11865 = self.self; - var $11866 = Kind$Term$check$get_name_of_self_type$slice$($11865); - var $11862 = $11866; + var $13286 = self.self; + var $13287 = Kind$Term$check$get_name_of_self_type$slice$($13286); + var $13283 = $13287; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -37632,24 +42041,24 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $11867 = Maybe$none; - var $11862 = $11867; + var $13288 = Maybe$none; + var $13283 = $13288; break; }; - var $11835 = $11862; + var $13256 = $13283; break; case 'Kind.Term.cse': var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $11869 = self.name; - var $11870 = Maybe$some$($11869); - var $11868 = $11870; + var $13290 = self.name; + var $13291 = Maybe$some$($13290); + var $13289 = $13291; break; case 'Kind.Term.all': - var $11871 = self.self; - var $11872 = Kind$Term$check$get_name_of_self_type$slice$($11871); - var $11868 = $11872; + var $13292 = self.self; + var $13293 = Kind$Term$check$get_name_of_self_type$slice$($13292); + var $13289 = $13293; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -37670,20 +42079,20 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $11873 = Maybe$none; - var $11868 = $11873; + var $13294 = Maybe$none; + var $13289 = $13294; break; }; - var $11835 = $11868; + var $13256 = $13289; break; }; - return $11835; + return $13256; }; const Kind$Term$check$get_name_of_self_type = x0 => x1 => Kind$Term$check$get_name_of_self_type$(x0, x1); function Kind$Term$check$expand$num$nat$(_numb$1) { - var $11874 = Kind$Term$nat$(_numb$1); - return $11874; + var $13295 = Kind$Term$nat$(_numb$1); + return $13295; }; const Kind$Term$check$expand$num$nat = x0 => Kind$Term$check$expand$num$nat$(x0); @@ -37693,24 +42102,24 @@ module.exports = (function() { var self = _sign$1; switch (self._) { case 'Maybe.some': - var $11876 = self.value; - var self = $11876; + var $13297 = self.value; + var self = $13297; if (self) { - var $11878 = _term$4; - var $11877 = $11878; + var $13299 = _term$4; + var $13298 = $13299; } else { - var $11879 = Kind$Term$app$(Kind$Term$ref$("Int.neg"), _term$4); - var $11877 = $11879; + var $13300 = Kind$Term$app$(Kind$Term$ref$("Int.neg"), _term$4); + var $13298 = $13300; }; - var _term$5 = $11877; + var _term$5 = $13298; break; case 'Maybe.none': - var $11880 = _term$4; - var _term$5 = $11880; + var $13301 = _term$4; + var _term$5 = $13301; break; }; - var $11875 = _term$5; - return $11875; + var $13296 = _term$5; + return $13296; }; const Kind$Term$check$expand$num$int = x0 => x1 => Kind$Term$check$expand$num$int$(x0, x1); @@ -37718,20 +42127,20 @@ module.exports = (function() { var self = _sign$2; switch (self._) { case 'Maybe.some': - var $11882 = self.value; - var self = $11882; + var $13303 = self.value; + var self = $13303; if (self) { - var $11884 = "+"; - var $11883 = $11884; + var $13305 = "+"; + var $13304 = $13305; } else { - var $11885 = "-"; - var $11883 = $11885; + var $13306 = "-"; + var $13304 = $13306; }; - var _text$5 = $11883; + var _text$5 = $13304; break; case 'Maybe.none': - var $11886 = ""; - var _text$5 = $11886; + var $13307 = ""; + var _text$5 = $13307; break; }; var _text$6 = (_text$5 + Nat$show$(_numb$3)); @@ -37739,16 +42148,16 @@ module.exports = (function() { var self = _frac$4; switch (self._) { case 'Maybe.some': - var $11887 = self.value; - var $11888 = ("." + Nat$show$($11887)); - return $11888; + var $13308 = self.value; + var $13309 = ("." + Nat$show$($13308)); + return $13309; case 'Maybe.none': - var $11889 = ""; - return $11889; + var $13310 = ""; + return $13310; }; })()); - var $11881 = Kind$Term$app$(Kind$Term$ref$((_name$1 + ".read")), Kind$Term$str$(_text$7)); - return $11881; + var $13302 = Kind$Term$app$(Kind$Term$ref$((_name$1 + ".read")), Kind$Term$str$(_text$7)); + return $13302; }; const Kind$Term$check$expand$num$other = x0 => x1 => x2 => x3 => Kind$Term$check$expand$num$other$(x0, x1, x2, x3); @@ -37756,46 +42165,46 @@ module.exports = (function() { var self = _type$4; switch (self._) { case 'Maybe.some': - var $11891 = self.value; - var self = Kind$Term$check$get_name_of_self_type$($11891, _defs$5); + var $13312 = self.value; + var self = Kind$Term$check$get_name_of_self_type$($13312, _defs$5); switch (self._) { case 'Maybe.some': - var $11893 = self.value; - var self = ($11893 === "Nat"); + var $13314 = self.value; + var self = ($13314 === "Nat"); if (self) { - var $11895 = Maybe$some$(Kind$Term$check$expand$num$nat$(_numb$2)); - var $11894 = $11895; + var $13316 = Maybe$some$(Kind$Term$check$expand$num$nat$(_numb$2)); + var $13315 = $13316; } else { - var self = ($11893 === "Int"); + var self = ($13314 === "Int"); if (self) { - var $11897 = Maybe$some$(Kind$Term$check$expand$num$int$(_sign$1, _numb$2)); - var $11896 = $11897; + var $13318 = Maybe$some$(Kind$Term$check$expand$num$int$(_sign$1, _numb$2)); + var $13317 = $13318; } else { - var $11898 = Maybe$some$(Kind$Term$check$expand$num$other$($11893, _sign$1, _numb$2, _frac$3)); - var $11896 = $11898; + var $13319 = Maybe$some$(Kind$Term$check$expand$num$other$($13314, _sign$1, _numb$2, _frac$3)); + var $13317 = $13319; }; - var $11894 = $11896; + var $13315 = $13317; }; - var $11892 = $11894; + var $13313 = $13315; break; case 'Maybe.none': - var $11899 = Maybe$none; - var $11892 = $11899; + var $13320 = Maybe$none; + var $13313 = $13320; break; }; - var _got$6 = $11892; + var _got$6 = $13313; break; case 'Maybe.none': - var $11900 = Maybe$none; - var _got$6 = $11900; + var $13321 = Maybe$none; + var _got$6 = $13321; break; }; var self = _got$6; switch (self._) { case 'Maybe.some': - var $11901 = self.value; - var $11902 = $11901; - var $11890 = $11902; + var $13322 = self.value; + var $13323 = $13322; + var $13311 = $13323; break; case 'Maybe.none': var self = _frac$3; @@ -37804,25 +42213,25 @@ module.exports = (function() { var self = _sign$1; switch (self._) { case 'Maybe.none': - var $11905 = Kind$Term$check$expand$num$nat$(_numb$2); - var $11904 = $11905; + var $13326 = Kind$Term$check$expand$num$nat$(_numb$2); + var $13325 = $13326; break; case 'Maybe.some': - var $11906 = Kind$Term$check$expand$num$int$(_sign$1, _numb$2); - var $11904 = $11906; + var $13327 = Kind$Term$check$expand$num$int$(_sign$1, _numb$2); + var $13325 = $13327; break; }; - var $11903 = $11904; + var $13324 = $13325; break; case 'Maybe.some': - var $11907 = Kind$Term$check$expand$num$other$("F64", _sign$1, _numb$2, _frac$3); - var $11903 = $11907; + var $13328 = Kind$Term$check$expand$num$other$("F64", _sign$1, _numb$2, _frac$3); + var $13324 = $13328; break; }; - var $11890 = $11903; + var $13311 = $13324; break; }; - return $11890; + return $13311; }; const Kind$Term$check$expand$num = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$num$(x0, x1, x2, x3, x4); @@ -37830,118 +42239,118 @@ module.exports = (function() { var self = _vars$1; switch (self._) { case 'List.cons': - var $11909 = self.head; - var $11910 = self.tail; - var self = $11909; + var $13330 = self.head; + var $13331 = self.tail; + var self = $13330; switch (self._) { case 'Kind.Ann.new': - var $11912 = self.name; - var $11913 = self.term; - var $11914 = self.type; - var self = $11914; + var $13333 = self.name; + var $13334 = self.term; + var $13335 = self.type; + var self = $13335; switch (self._) { case 'Maybe.some': - var $11916 = self.value; - var $11917 = Kind$Check$result$(Maybe$some$(Maybe$some$($11916)), List$nil); - var self = $11917; + var $13337 = self.value; + var $13338 = Kind$Check$result$(Maybe$some$(Maybe$some$($13337)), List$nil); + var self = $13338; break; case 'Maybe.none': - var self = Kind$Term$check$($11913, Maybe$none, _defs$2, _ctx$3, _path$4, _orig$5); + var self = Kind$Term$check$($13334, Maybe$none, _defs$2, _ctx$3, _path$4, _orig$5); switch (self._) { case 'Kind.Check.result': - var $11919 = self.value; - var $11920 = self.errors; - var self = $11919; + var $13340 = self.value; + var $13341 = self.errors; + var self = $13340; switch (self._) { case 'Maybe.some': - var $11922 = self.value; - var self = Kind$Check$result$(Maybe$some$(Maybe$some$($11922)), List$nil); + var $13343 = self.value; + var self = Kind$Check$result$(Maybe$some$(Maybe$some$($13343)), List$nil); switch (self._) { case 'Kind.Check.result': - var $11924 = self.value; - var $11925 = self.errors; - var $11926 = Kind$Check$result$($11924, List$concat$($11920, $11925)); - var $11923 = $11926; + var $13345 = self.value; + var $13346 = self.errors; + var $13347 = Kind$Check$result$($13345, List$concat$($13341, $13346)); + var $13344 = $13347; break; }; - var $11921 = $11923; + var $13342 = $13344; break; case 'Maybe.none': - var $11927 = Kind$Check$result$(Maybe$none, $11920); - var $11921 = $11927; + var $13348 = Kind$Check$result$(Maybe$none, $13341); + var $13342 = $13348; break; }; - var $11918 = $11921; + var $13339 = $13342; break; }; - var self = $11918; + var self = $13339; break; }; switch (self._) { case 'Kind.Check.result': - var $11928 = self.value; - var $11929 = self.errors; - var self = $11928; + var $13349 = self.value; + var $13350 = self.errors; + var self = $13349; switch (self._) { case 'Maybe.some': - var $11931 = self.value; - var self = Kind$Term$check$infer_types_of_with$($11910, _defs$2, _ctx$3, _path$4, _orig$5); + var $13352 = self.value; + var self = Kind$Term$check$infer_types_of_with$($13331, _defs$2, _ctx$3, _path$4, _orig$5); switch (self._) { case 'Kind.Check.result': - var $11933 = self.value; - var $11934 = self.errors; - var self = $11933; + var $13354 = self.value; + var $13355 = self.errors; + var self = $13354; switch (self._) { case 'Maybe.some': - var $11936 = self.value; - var self = Kind$Check$result$(Maybe$some$(List$cons$(Kind$Ann$new$($11912, $11913, $11931), $11936)), List$nil); + var $13357 = self.value; + var self = Kind$Check$result$(Maybe$some$(List$cons$(Kind$Ann$new$($13333, $13334, $13352), $13357)), List$nil); switch (self._) { case 'Kind.Check.result': - var $11938 = self.value; - var $11939 = self.errors; - var $11940 = Kind$Check$result$($11938, List$concat$($11934, $11939)); - var $11937 = $11940; + var $13359 = self.value; + var $13360 = self.errors; + var $13361 = Kind$Check$result$($13359, List$concat$($13355, $13360)); + var $13358 = $13361; break; }; - var $11935 = $11937; + var $13356 = $13358; break; case 'Maybe.none': - var $11941 = Kind$Check$result$(Maybe$none, $11934); - var $11935 = $11941; + var $13362 = Kind$Check$result$(Maybe$none, $13355); + var $13356 = $13362; break; }; - var self = $11935; + var self = $13356; break; }; switch (self._) { case 'Kind.Check.result': - var $11942 = self.value; - var $11943 = self.errors; - var $11944 = Kind$Check$result$($11942, List$concat$($11929, $11943)); - var $11932 = $11944; + var $13363 = self.value; + var $13364 = self.errors; + var $13365 = Kind$Check$result$($13363, List$concat$($13350, $13364)); + var $13353 = $13365; break; }; - var $11930 = $11932; + var $13351 = $13353; break; case 'Maybe.none': - var $11945 = Kind$Check$result$(Maybe$none, $11929); - var $11930 = $11945; + var $13366 = Kind$Check$result$(Maybe$none, $13350); + var $13351 = $13366; break; }; - var $11915 = $11930; + var $13336 = $13351; break; }; - var $11911 = $11915; + var $13332 = $13336; break; }; - var $11908 = $11911; + var $13329 = $13332; break; case 'List.nil': - var $11946 = Kind$Check$result$(Maybe$some$(List$nil), List$nil); - var $11908 = $11946; + var $13367 = Kind$Check$result$(Maybe$some$(List$nil), List$nil); + var $13329 = $13367; break; }; - return $11908; + return $13329; }; const Kind$Term$check$infer_types_of_with = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$infer_types_of_with$(x0, x1, x2, x3, x4); @@ -37949,105 +42358,105 @@ module.exports = (function() { var self = Kind$Term$reduce$(_term$1, _defs$2); switch (self._) { case 'Kind.Term.var': - var $11948 = self.name; - var $11949 = self.indx; - var $11950 = Kind$Term$var$($11948, $11949); - var $11947 = $11950; + var $13369 = self.name; + var $13370 = self.indx; + var $13371 = Kind$Term$var$($13369, $13370); + var $13368 = $13371; break; case 'Kind.Term.ref': - var $11951 = self.name; - var $11952 = Kind$Term$ref$($11951); - var $11947 = $11952; + var $13372 = self.name; + var $13373 = Kind$Term$ref$($13372); + var $13368 = $13373; break; case 'Kind.Term.all': - var $11953 = self.eras; - var $11954 = self.self; - var $11955 = self.name; - var $11956 = self.xtyp; - var $11957 = self.body; - var $11958 = Kind$Term$all$($11953, $11954, $11955, Kind$Term$normalize$($11956, _defs$2), (_s$8 => _x$9 => { - var $11959 = Kind$Term$normalize$($11957(_s$8)(_x$9), _defs$2); - return $11959; + var $13374 = self.eras; + var $13375 = self.self; + var $13376 = self.name; + var $13377 = self.xtyp; + var $13378 = self.body; + var $13379 = Kind$Term$all$($13374, $13375, $13376, Kind$Term$normalize$($13377, _defs$2), (_s$8 => _x$9 => { + var $13380 = Kind$Term$normalize$($13378(_s$8)(_x$9), _defs$2); + return $13380; })); - var $11947 = $11958; + var $13368 = $13379; break; case 'Kind.Term.lam': - var $11960 = self.name; - var $11961 = self.body; - var $11962 = Kind$Term$lam$($11960, (_x$5 => { - var $11963 = Kind$Term$normalize$($11961(_x$5), _defs$2); - return $11963; + var $13381 = self.name; + var $13382 = self.body; + var $13383 = Kind$Term$lam$($13381, (_x$5 => { + var $13384 = Kind$Term$normalize$($13382(_x$5), _defs$2); + return $13384; })); - var $11947 = $11962; + var $13368 = $13383; break; case 'Kind.Term.app': - var $11964 = self.func; - var $11965 = self.argm; - var $11966 = Kind$Term$app$(Kind$Term$normalize$($11964, _defs$2), Kind$Term$normalize$($11965, _defs$2)); - var $11947 = $11966; + var $13385 = self.func; + var $13386 = self.argm; + var $13387 = Kind$Term$app$(Kind$Term$normalize$($13385, _defs$2), Kind$Term$normalize$($13386, _defs$2)); + var $13368 = $13387; break; case 'Kind.Term.let': - var $11967 = self.name; - var $11968 = self.expr; - var $11969 = self.body; - var $11970 = Kind$Term$let$($11967, Kind$Term$normalize$($11968, _defs$2), (_x$6 => { - var $11971 = Kind$Term$normalize$($11969(_x$6), _defs$2); - return $11971; + var $13388 = self.name; + var $13389 = self.expr; + var $13390 = self.body; + var $13391 = Kind$Term$let$($13388, Kind$Term$normalize$($13389, _defs$2), (_x$6 => { + var $13392 = Kind$Term$normalize$($13390(_x$6), _defs$2); + return $13392; })); - var $11947 = $11970; + var $13368 = $13391; break; case 'Kind.Term.def': - var $11972 = self.name; - var $11973 = self.expr; - var $11974 = self.body; - var $11975 = Kind$Term$def$($11972, Kind$Term$normalize$($11973, _defs$2), (_x$6 => { - var $11976 = Kind$Term$normalize$($11974(_x$6), _defs$2); - return $11976; + var $13393 = self.name; + var $13394 = self.expr; + var $13395 = self.body; + var $13396 = Kind$Term$def$($13393, Kind$Term$normalize$($13394, _defs$2), (_x$6 => { + var $13397 = Kind$Term$normalize$($13395(_x$6), _defs$2); + return $13397; })); - var $11947 = $11975; + var $13368 = $13396; break; case 'Kind.Term.ann': - var $11977 = self.done; - var $11978 = self.term; - var $11979 = self.type; - var $11980 = Kind$Term$ann$($11977, Kind$Term$normalize$($11978, _defs$2), Kind$Term$normalize$($11979, _defs$2)); - var $11947 = $11980; + var $13398 = self.done; + var $13399 = self.term; + var $13400 = self.type; + var $13401 = Kind$Term$ann$($13398, Kind$Term$normalize$($13399, _defs$2), Kind$Term$normalize$($13400, _defs$2)); + var $13368 = $13401; break; case 'Kind.Term.gol': - var $11981 = self.name; - var $11982 = self.dref; - var $11983 = self.verb; - var $11984 = Kind$Term$gol$($11981, $11982, $11983); - var $11947 = $11984; + var $13402 = self.name; + var $13403 = self.dref; + var $13404 = self.verb; + var $13405 = Kind$Term$gol$($13402, $13403, $13404); + var $13368 = $13405; break; case 'Kind.Term.hol': - var $11985 = self.path; - var $11986 = Kind$Term$hol$($11985); - var $11947 = $11986; + var $13406 = self.path; + var $13407 = Kind$Term$hol$($13406); + var $13368 = $13407; break; case 'Kind.Term.nat': - var $11987 = self.natx; - var $11988 = Kind$Term$nat$($11987); - var $11947 = $11988; + var $13408 = self.natx; + var $13409 = Kind$Term$nat$($13408); + var $13368 = $13409; break; case 'Kind.Term.chr': - var $11989 = self.chrx; - var $11990 = Kind$Term$chr$($11989); - var $11947 = $11990; + var $13410 = self.chrx; + var $13411 = Kind$Term$chr$($13410); + var $13368 = $13411; break; case 'Kind.Term.str': - var $11991 = self.strx; - var $11992 = Kind$Term$str$($11991); - var $11947 = $11992; + var $13412 = self.strx; + var $13413 = Kind$Term$str$($13412); + var $13368 = $13413; break; case 'Kind.Term.ori': - var $11993 = self.expr; - var $11994 = Kind$Term$normalize$($11993, _defs$2); - var $11947 = $11994; + var $13414 = self.expr; + var $13415 = Kind$Term$normalize$($13414, _defs$2); + var $13368 = $13415; break; case 'Kind.Term.typ': - var $11995 = Kind$Term$typ; - var $11947 = $11995; + var $13416 = Kind$Term$typ; + var $13368 = $13416; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -38055,11 +42464,11 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $11996 = _term$1; - var $11947 = $11996; + var $13417 = _term$1; + var $13368 = $13417; break; }; - return $11947; + return $13368; }; const Kind$Term$normalize = x0 => x1 => Kind$Term$normalize$(x0, x1); @@ -38067,50 +42476,50 @@ module.exports = (function() { var self = _wyth$1; switch (self._) { case 'List.cons': - var $11998 = self.head; - var $11999 = self.tail; - var self = $11998; + var $13419 = self.head; + var $13420 = self.tail; + var self = $13419; switch (self._) { case 'Kind.Ann.new': - var $12001 = self.name; - var $12002 = self.type; - var $12003 = Kind$Term$all$(Bool$false, "", $12001, Maybe$default$($12002, Kind$Term$hol$(Bits$e)), (_s$14 => _x$15 => { - var $12004 = Kind$Term$check$expand$cse$motive$($11999, _moti$2, _name$3, _expr$4, _etyp$5, _rtyp$6, _defs$7, Nat$succ$(Nat$succ$(_size$8))); - return $12004; + var $13422 = self.name; + var $13423 = self.type; + var $13424 = Kind$Term$all$(Bool$false, "", $13422, Maybe$default$($13423, Kind$Term$hol$(Bits$e)), (_s$14 => _x$15 => { + var $13425 = Kind$Term$check$expand$cse$motive$($13420, _moti$2, _name$3, _expr$4, _etyp$5, _rtyp$6, _defs$7, Nat$succ$(Nat$succ$(_size$8))); + return $13425; })); - var $12000 = $12003; + var $13421 = $13424; break; }; - var $11997 = $12000; + var $13418 = $13421; break; case 'List.nil': var self = _moti$2; switch (self._) { case 'Maybe.some': - var $12006 = self.value; - var $12007 = $12006; - var $12005 = $12007; + var $13427 = self.value; + var $13428 = $13427; + var $13426 = $13428; break; case 'Maybe.none': var self = _rtyp$6; switch (self._) { case 'Maybe.some': - var $12009 = self.value; - var $12010 = Kind$Term$normalize$($12009, Kind$Map$new); - var $12008 = $12010; + var $13430 = self.value; + var $13431 = Kind$Term$normalize$($13430, Kind$Map$new); + var $13429 = $13431; break; case 'Maybe.none': - var $12011 = Kind$Term$hol$(Bits$e); - var $12008 = $12011; + var $13432 = Kind$Term$hol$(Bits$e); + var $13429 = $13432; break; }; - var $12005 = $12008; + var $13426 = $13429; break; }; - var $11997 = $12005; + var $13418 = $13426; break; }; - return $11997; + return $13418; }; const Kind$Term$check$expand$cse$motive$go = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => Kind$Term$check$expand$cse$motive$go$(x0, x1, x2, x3, x4, x5, x6, x7); @@ -38118,16 +42527,16 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $12013 = self.tail; - var $12014 = $12013; - var $12012 = $12014; + var $13434 = self.tail; + var $13435 = $13434; + var $13433 = $13435; break; case 'List.nil': - var $12015 = List$nil; - var $12012 = $12015; + var $13436 = List$nil; + var $13433 = $13436; break; }; - return $12012; + return $13433; }; const List$tail = x0 => List$tail$(x0); @@ -38144,10 +42553,10 @@ module.exports = (function() { var self = Kind$Term$reduce$(_term$2, _defs$4); switch (self._) { case 'Kind.Term.app': - var $12016 = self.func; - var $12017 = self.argm; - var $12018 = Kind$Term$SmartMotive$vals$cont$(_expr$1, $12016, List$cons$($12017, _args$3), _defs$4); - return $12018; + var $13437 = self.func; + var $13438 = self.argm; + var $13439 = Kind$Term$SmartMotive$vals$cont$(_expr$1, $13437, List$cons$($13438, _args$3), _defs$4); + return $13439; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -38168,8 +42577,8 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12019 = List$cons$(_expr$1, List$tail$(List$reverse$(_args$3))); - return $12019; + var $13440 = List$cons$(_expr$1, List$tail$(List$reverse$(_args$3))); + return $13440; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -38191,9 +42600,9 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$2, _defs$3); switch (self._) { case 'Kind.Term.all': - var $12020 = self.body; - var $12021 = Kind$Term$SmartMotive$vals$(_expr$1, $12020(Kind$Term$typ)(Kind$Term$typ), _defs$3); - return $12021; + var $13441 = self.body; + var $13442 = Kind$Term$SmartMotive$vals$(_expr$1, $13441(Kind$Term$typ)(Kind$Term$typ), _defs$3); + return $13442; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -38214,8 +42623,8 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12022 = Kind$Term$SmartMotive$vals$cont$(_expr$1, _type$2, List$nil, _defs$3); - return $12022; + var $13443 = Kind$Term$SmartMotive$vals$cont$(_expr$1, _type$2, List$nil, _defs$3); + return $13443; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -38237,11 +42646,11 @@ module.exports = (function() { var self = Kind$Term$reduce$(_term$2, _defs$4); switch (self._) { case 'Kind.Term.all': - var $12023 = self.self; - var $12024 = self.name; - var $12025 = self.body; - var $12026 = Kind$Term$SmartMotive$nams$cont$(_name$1, $12025(Kind$Term$ref$($12023))(Kind$Term$ref$($12024)), List$cons$(String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($12024, List$nil)))), _binds$3), _defs$4); - return $12026; + var $13444 = self.self; + var $13445 = self.name; + var $13446 = self.body; + var $13447 = Kind$Term$SmartMotive$nams$cont$(_name$1, $13446(Kind$Term$ref$($13444))(Kind$Term$ref$($13445)), List$cons$(String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($13445, List$nil)))), _binds$3), _defs$4); + return $13447; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -38262,8 +42671,8 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12027 = List$cons$(_name$1, List$tail$(_binds$3)); - return $12027; + var $13448 = List$cons$(_name$1, List$tail$(_binds$3)); + return $13448; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -38276,9 +42685,9 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$2, _defs$3); switch (self._) { case 'Kind.Term.all': - var $12029 = self.xtyp; - var $12030 = Kind$Term$SmartMotive$nams$cont$(_name$1, $12029, List$nil, _defs$3); - var $12028 = $12030; + var $13450 = self.xtyp; + var $13451 = Kind$Term$SmartMotive$nams$cont$(_name$1, $13450, List$nil, _defs$3); + var $13449 = $13451; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -38300,11 +42709,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12031 = List$nil; - var $12028 = $12031; + var $13452 = List$nil; + var $13449 = $13452; break; }; - return $12028; + return $13449; }; const Kind$Term$SmartMotive$nams = x0 => x1 => x2 => Kind$Term$SmartMotive$nams$(x0, x1, x2); @@ -38312,145 +42721,144 @@ module.exports = (function() { var self = _as$3; switch (self._) { case 'List.cons': - var $12033 = self.head; - var $12034 = self.tail; + var $13454 = self.head; + var $13455 = self.tail; var self = _bs$4; switch (self._) { case 'List.cons': - var $12036 = self.head; - var $12037 = self.tail; - var $12038 = List$cons$(Pair$new$($12033, $12036), List$zip$($12034, $12037)); - var $12035 = $12038; + var $13457 = self.head; + var $13458 = self.tail; + var $13459 = List$cons$(Pair$new$($13454, $13457), List$zip$($13455, $13458)); + var $13456 = $13459; break; case 'List.nil': - var $12039 = List$nil; - var $12035 = $12039; + var $13460 = List$nil; + var $13456 = $13460; break; }; - var $12032 = $12035; + var $13453 = $13456; break; case 'List.nil': - var $12040 = List$nil; - var $12032 = $12040; + var $13461 = List$nil; + var $13453 = $13461; break; }; - return $12032; + return $13453; }; const List$zip = x0 => x1 => List$zip$(x0, x1); const Nat$gte = a0 => a1 => (a0 >= a1); - const Bits$concat = a0 => a1 => (a1 + a0); function Kind$Term$serialize$go$(_term$1, _depth$2, _init$3, _diff$4, _x$5) { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $12042 = self.indx; - var self = ($12042 >= _init$3); + var $13463 = self.indx; + var self = ($13463 >= _init$3); if (self) { - var _name$8 = a1 => (a1 + (nat_to_bits(Nat$pred$((_depth$2 - $12042 <= 0n ? 0n : _depth$2 - $12042))))); - var $12044 = (((_name$8(_x$5) + '1') + '0') + '0'); - var $12043 = $12044; + var _name$8 = a1 => (a1 + (nat_to_bits(Nat$pred$((_depth$2 - $13463 <= 0n ? 0n : _depth$2 - $13463))))); + var $13465 = (((_name$8(_x$5) + '1') + '0') + '0'); + var $13464 = $13465; } else { - var _name$8 = a1 => (a1 + (nat_to_bits($12042))); - var $12045 = (((_name$8(_x$5) + '0') + '1') + '0'); - var $12043 = $12045; + var _name$8 = a1 => (a1 + (nat_to_bits($13463))); + var $13466 = (((_name$8(_x$5) + '0') + '1') + '0'); + var $13464 = $13466; }; - var $12041 = $12043; + var $13462 = $13464; break; case 'Kind.Term.ref': - var $12046 = self.name; - var _name$7 = a1 => (a1 + (kind_name_to_bits($12046))); - var $12047 = (((_name$7(_x$5) + '0') + '0') + '0'); - var $12041 = $12047; + var $13467 = self.name; + var _name$7 = a1 => (a1 + (kind_name_to_bits($13467))); + var $13468 = (((_name$7(_x$5) + '0') + '0') + '0'); + var $13462 = $13468; break; case 'Kind.Term.all': - var $12048 = self.eras; - var $12049 = self.self; - var $12050 = self.name; - var $12051 = self.xtyp; - var $12052 = self.body; - var self = $12048; + var $13469 = self.eras; + var $13470 = self.self; + var $13471 = self.name; + var $13472 = self.xtyp; + var $13473 = self.body; + var self = $13469; if (self) { - var $12054 = Bits$i; - var _eras$11 = $12054; + var $13475 = Bits$i; + var _eras$11 = $13475; } else { - var $12055 = Bits$o; - var _eras$11 = $12055; + var $13476 = Bits$o; + var _eras$11 = $13476; }; - var _self$12 = a1 => (a1 + (kind_name_to_bits($12049))); - var _xtyp$13 = Kind$Term$serialize$go($12051)(_depth$2)(_init$3)(_diff$4); - var _body$14 = Kind$Term$serialize$go($12052(Kind$Term$var$($12049, _depth$2))(Kind$Term$var$($12050, Nat$succ$(_depth$2))))(Nat$succ$(Nat$succ$(_depth$2)))(_init$3)(_diff$4); - var $12053 = (((_eras$11(_self$12(_xtyp$13(_body$14(_x$5)))) + '0') + '0') + '1'); - var $12041 = $12053; + var _self$12 = a1 => (a1 + (kind_name_to_bits($13470))); + var _xtyp$13 = Kind$Term$serialize$go($13472)(_depth$2)(_init$3)(_diff$4); + var _body$14 = Kind$Term$serialize$go($13473(Kind$Term$var$($13470, _depth$2))(Kind$Term$var$($13471, Nat$succ$(_depth$2))))(Nat$succ$(Nat$succ$(_depth$2)))(_init$3)(_diff$4); + var $13474 = (((_eras$11(_self$12(_xtyp$13(_body$14(_x$5)))) + '0') + '0') + '1'); + var $13462 = $13474; break; case 'Kind.Term.lam': - var $12056 = self.name; - var $12057 = self.body; - var _body$8 = Kind$Term$serialize$go($12057(Kind$Term$var$($12056, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); - var $12058 = (((_body$8(_x$5) + '1') + '0') + '1'); - var $12041 = $12058; + var $13477 = self.name; + var $13478 = self.body; + var _body$8 = Kind$Term$serialize$go($13478(Kind$Term$var$($13477, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); + var $13479 = (((_body$8(_x$5) + '1') + '0') + '1'); + var $13462 = $13479; break; case 'Kind.Term.app': - var $12059 = self.func; - var $12060 = self.argm; - var _func$8 = Kind$Term$serialize$go($12059)(_depth$2)(_init$3)(_diff$4); - var _argm$9 = Kind$Term$serialize$go($12060)(_depth$2)(_init$3)(_diff$4); - var $12061 = (((_func$8(_argm$9(_x$5)) + '0') + '1') + '1'); - var $12041 = $12061; + var $13480 = self.func; + var $13481 = self.argm; + var _func$8 = Kind$Term$serialize$go($13480)(_depth$2)(_init$3)(_diff$4); + var _argm$9 = Kind$Term$serialize$go($13481)(_depth$2)(_init$3)(_diff$4); + var $13482 = (((_func$8(_argm$9(_x$5)) + '0') + '1') + '1'); + var $13462 = $13482; break; case 'Kind.Term.let': - var $12062 = self.name; - var $12063 = self.expr; - var $12064 = self.body; - var _expr$9 = Kind$Term$serialize$go($12063)(_depth$2)(_init$3)(_diff$4); - var _body$10 = Kind$Term$serialize$go($12064(Kind$Term$var$($12062, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); - var $12065 = (((_expr$9(_body$10(_x$5)) + '1') + '1') + '1'); - var $12041 = $12065; + var $13483 = self.name; + var $13484 = self.expr; + var $13485 = self.body; + var _expr$9 = Kind$Term$serialize$go($13484)(_depth$2)(_init$3)(_diff$4); + var _body$10 = Kind$Term$serialize$go($13485(Kind$Term$var$($13483, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); + var $13486 = (((_expr$9(_body$10(_x$5)) + '1') + '1') + '1'); + var $13462 = $13486; break; case 'Kind.Term.def': - var $12066 = self.expr; - var $12067 = self.body; - var $12068 = Kind$Term$serialize$go$($12067($12066), _depth$2, _init$3, _diff$4, _x$5); - var $12041 = $12068; + var $13487 = self.expr; + var $13488 = self.body; + var $13489 = Kind$Term$serialize$go$($13488($13487), _depth$2, _init$3, _diff$4, _x$5); + var $13462 = $13489; break; case 'Kind.Term.ann': - var $12069 = self.term; - var $12070 = Kind$Term$serialize$go$($12069, _depth$2, _init$3, _diff$4, _x$5); - var $12041 = $12070; + var $13490 = self.term; + var $13491 = Kind$Term$serialize$go$($13490, _depth$2, _init$3, _diff$4, _x$5); + var $13462 = $13491; break; case 'Kind.Term.gol': - var $12071 = self.name; - var _name$9 = a1 => (a1 + (kind_name_to_bits($12071))); - var $12072 = (((_name$9(_x$5) + '0') + '0') + '0'); - var $12041 = $12072; + var $13492 = self.name; + var _name$9 = a1 => (a1 + (kind_name_to_bits($13492))); + var $13493 = (((_name$9(_x$5) + '0') + '0') + '0'); + var $13462 = $13493; break; case 'Kind.Term.nat': - var $12073 = self.natx; - var $12074 = Kind$Term$serialize$go$(Kind$Term$unroll_nat$($12073), _depth$2, _init$3, _diff$4, _x$5); - var $12041 = $12074; + var $13494 = self.natx; + var $13495 = Kind$Term$serialize$go$(Kind$Term$unroll_nat$($13494), _depth$2, _init$3, _diff$4, _x$5); + var $13462 = $13495; break; case 'Kind.Term.chr': - var $12075 = self.chrx; - var $12076 = Kind$Term$serialize$go$(Kind$Term$unroll_chr$($12075), _depth$2, _init$3, _diff$4, _x$5); - var $12041 = $12076; + var $13496 = self.chrx; + var $13497 = Kind$Term$serialize$go$(Kind$Term$unroll_chr$($13496), _depth$2, _init$3, _diff$4, _x$5); + var $13462 = $13497; break; case 'Kind.Term.str': - var $12077 = self.strx; - var $12078 = Kind$Term$serialize$go$(Kind$Term$unroll_str$($12077), _depth$2, _init$3, _diff$4, _x$5); - var $12041 = $12078; + var $13498 = self.strx; + var $13499 = Kind$Term$serialize$go$(Kind$Term$unroll_str$($13498), _depth$2, _init$3, _diff$4, _x$5); + var $13462 = $13499; break; case 'Kind.Term.ori': - var $12079 = self.expr; - var $12080 = Kind$Term$serialize$go$($12079, _depth$2, _init$3, _diff$4, _x$5); - var $12041 = $12080; + var $13500 = self.expr; + var $13501 = Kind$Term$serialize$go$($13500, _depth$2, _init$3, _diff$4, _x$5); + var $13462 = $13501; break; case 'Kind.Term.typ': - var $12081 = (((_x$5 + '1') + '1') + '0'); - var $12041 = $12081; + var $13502 = (((_x$5 + '1') + '1') + '0'); + var $13462 = $13502; break; case 'Kind.Term.hol': - var $12082 = _x$5; - var $12041 = $12082; + var $13503 = _x$5; + var $13462 = $13503; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -38458,25 +42866,25 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12083 = _diff$4(_x$5); - var $12041 = $12083; + var $13504 = _diff$4(_x$5); + var $13462 = $13504; break; }; - return $12041; + return $13462; }; const Kind$Term$serialize$go = x0 => x1 => x2 => x3 => x4 => Kind$Term$serialize$go$(x0, x1, x2, x3, x4); function Kind$Term$serialize$(_term$1, _depth$2, _side$3) { var self = _side$3; if (self) { - var $12085 = Bits$o; - var _diff$4 = $12085; + var $13506 = Bits$o; + var _diff$4 = $13506; } else { - var $12086 = Bits$i; - var _diff$4 = $12086; + var $13507 = Bits$i; + var _diff$4 = $13507; }; - var $12084 = Kind$Term$serialize$go$(_term$1, _depth$2, _depth$2, _diff$4, Bits$e); - return $12084; + var $13505 = Kind$Term$serialize$go$(_term$1, _depth$2, _depth$2, _diff$4, Bits$e); + return $13505; }; const Kind$Term$serialize = x0 => x1 => x2 => Kind$Term$serialize$(x0, x1, x2); const Bits$eql = a0 => a1 => (a1 === a0); @@ -38484,134 +42892,134 @@ module.exports = (function() { function Kind$Term$identical$(_a$1, _b$2, _lv$3) { var _ah$4 = Kind$Term$serialize$(_a$1, _lv$3, Bool$false); var _bh$5 = Kind$Term$serialize$(_b$2, _lv$3, Bool$true); - var $12087 = (_bh$5 === _ah$4); - return $12087; + var $13508 = (_bh$5 === _ah$4); + return $13508; }; const Kind$Term$identical = x0 => x1 => x2 => Kind$Term$identical$(x0, x1, x2); function Kind$Term$SmartMotive$replace$(_term$1, _from$2, _to$3, _lv$4) { var self = Kind$Term$identical$(_term$1, _from$2, _lv$4); if (self) { - var $12089 = _to$3; - var $12088 = $12089; + var $13510 = _to$3; + var $13509 = $13510; } else { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $12091 = self.name; - var $12092 = self.indx; - var $12093 = Kind$Term$var$($12091, $12092); - var $12090 = $12093; + var $13512 = self.name; + var $13513 = self.indx; + var $13514 = Kind$Term$var$($13512, $13513); + var $13511 = $13514; break; case 'Kind.Term.ref': - var $12094 = self.name; - var $12095 = Kind$Term$ref$($12094); - var $12090 = $12095; + var $13515 = self.name; + var $13516 = Kind$Term$ref$($13515); + var $13511 = $13516; break; case 'Kind.Term.all': - var $12096 = self.eras; - var $12097 = self.self; - var $12098 = self.name; - var $12099 = self.xtyp; - var $12100 = self.body; - var _xtyp$10 = Kind$Term$SmartMotive$replace$($12099, _from$2, _to$3, _lv$4); - var _body$11 = $12100(Kind$Term$ref$($12097))(Kind$Term$ref$($12098)); + var $13517 = self.eras; + var $13518 = self.self; + var $13519 = self.name; + var $13520 = self.xtyp; + var $13521 = self.body; + var _xtyp$10 = Kind$Term$SmartMotive$replace$($13520, _from$2, _to$3, _lv$4); + var _body$11 = $13521(Kind$Term$ref$($13518))(Kind$Term$ref$($13519)); var _body$12 = Kind$Term$SmartMotive$replace$(_body$11, _from$2, _to$3, Nat$succ$(Nat$succ$(_lv$4))); - var $12101 = Kind$Term$all$($12096, $12097, $12098, _xtyp$10, (_s$13 => _x$14 => { - var $12102 = _body$12; - return $12102; + var $13522 = Kind$Term$all$($13517, $13518, $13519, _xtyp$10, (_s$13 => _x$14 => { + var $13523 = _body$12; + return $13523; })); - var $12090 = $12101; + var $13511 = $13522; break; case 'Kind.Term.lam': - var $12103 = self.name; - var $12104 = self.body; - var _body$7 = $12104(Kind$Term$ref$($12103)); + var $13524 = self.name; + var $13525 = self.body; + var _body$7 = $13525(Kind$Term$ref$($13524)); var _body$8 = Kind$Term$SmartMotive$replace$(_body$7, _from$2, _to$3, Nat$succ$(_lv$4)); - var $12105 = Kind$Term$lam$($12103, (_x$9 => { - var $12106 = _body$8; - return $12106; + var $13526 = Kind$Term$lam$($13524, (_x$9 => { + var $13527 = _body$8; + return $13527; })); - var $12090 = $12105; + var $13511 = $13526; break; case 'Kind.Term.app': - var $12107 = self.func; - var $12108 = self.argm; - var _func$7 = Kind$Term$SmartMotive$replace$($12107, _from$2, _to$3, _lv$4); - var _argm$8 = Kind$Term$SmartMotive$replace$($12108, _from$2, _to$3, _lv$4); - var $12109 = Kind$Term$app$(_func$7, _argm$8); - var $12090 = $12109; + var $13528 = self.func; + var $13529 = self.argm; + var _func$7 = Kind$Term$SmartMotive$replace$($13528, _from$2, _to$3, _lv$4); + var _argm$8 = Kind$Term$SmartMotive$replace$($13529, _from$2, _to$3, _lv$4); + var $13530 = Kind$Term$app$(_func$7, _argm$8); + var $13511 = $13530; break; case 'Kind.Term.let': - var $12110 = self.name; - var $12111 = self.expr; - var $12112 = self.body; - var _expr$8 = Kind$Term$SmartMotive$replace$($12111, _from$2, _to$3, _lv$4); - var _body$9 = $12112(Kind$Term$ref$($12110)); + var $13531 = self.name; + var $13532 = self.expr; + var $13533 = self.body; + var _expr$8 = Kind$Term$SmartMotive$replace$($13532, _from$2, _to$3, _lv$4); + var _body$9 = $13533(Kind$Term$ref$($13531)); var _body$10 = Kind$Term$SmartMotive$replace$(_body$9, _from$2, _to$3, Nat$succ$(_lv$4)); - var $12113 = Kind$Term$let$($12110, _expr$8, (_x$11 => { - var $12114 = _body$10; - return $12114; + var $13534 = Kind$Term$let$($13531, _expr$8, (_x$11 => { + var $13535 = _body$10; + return $13535; })); - var $12090 = $12113; + var $13511 = $13534; break; case 'Kind.Term.def': - var $12115 = self.name; - var $12116 = self.expr; - var $12117 = self.body; - var _expr$8 = Kind$Term$SmartMotive$replace$($12116, _from$2, _to$3, _lv$4); - var _body$9 = $12117(Kind$Term$ref$($12115)); + var $13536 = self.name; + var $13537 = self.expr; + var $13538 = self.body; + var _expr$8 = Kind$Term$SmartMotive$replace$($13537, _from$2, _to$3, _lv$4); + var _body$9 = $13538(Kind$Term$ref$($13536)); var _body$10 = Kind$Term$SmartMotive$replace$(_body$9, _from$2, _to$3, Nat$succ$(_lv$4)); - var $12118 = Kind$Term$def$($12115, _expr$8, (_x$11 => { - var $12119 = _body$10; - return $12119; + var $13539 = Kind$Term$def$($13536, _expr$8, (_x$11 => { + var $13540 = _body$10; + return $13540; })); - var $12090 = $12118; + var $13511 = $13539; break; case 'Kind.Term.ann': - var $12120 = self.done; - var $12121 = self.term; - var $12122 = self.type; - var _term$8 = Kind$Term$SmartMotive$replace$($12121, _from$2, _to$3, _lv$4); - var _type$9 = Kind$Term$SmartMotive$replace$($12122, _from$2, _to$3, _lv$4); - var $12123 = Kind$Term$ann$($12120, _term$8, _type$9); - var $12090 = $12123; + var $13541 = self.done; + var $13542 = self.term; + var $13543 = self.type; + var _term$8 = Kind$Term$SmartMotive$replace$($13542, _from$2, _to$3, _lv$4); + var _type$9 = Kind$Term$SmartMotive$replace$($13543, _from$2, _to$3, _lv$4); + var $13544 = Kind$Term$ann$($13541, _term$8, _type$9); + var $13511 = $13544; break; case 'Kind.Term.get': - var $12124 = self.expr; - var $12125 = self.fkey; - var _expr$7 = Kind$Term$SmartMotive$replace$($12124, _from$2, _to$3, _lv$4); - var _fkey$8 = $12125; - var $12126 = Kind$Term$get$(_expr$7, _fkey$8); - var $12090 = $12126; + var $13545 = self.expr; + var $13546 = self.fkey; + var _expr$7 = Kind$Term$SmartMotive$replace$($13545, _from$2, _to$3, _lv$4); + var _fkey$8 = $13546; + var $13547 = Kind$Term$get$(_expr$7, _fkey$8); + var $13511 = $13547; break; case 'Kind.Term.set': - var $12127 = self.expr; - var $12128 = self.fkey; - var $12129 = self.fval; - var _expr$8 = Kind$Term$SmartMotive$replace$($12127, _from$2, _to$3, _lv$4); - var _fkey$9 = $12128; - var _fval$10 = Kind$Term$SmartMotive$replace$($12129, _from$2, _to$3, _lv$4); - var $12130 = Kind$Term$set$(_expr$8, _fkey$9, _fval$10); - var $12090 = $12130; + var $13548 = self.expr; + var $13549 = self.fkey; + var $13550 = self.fval; + var _expr$8 = Kind$Term$SmartMotive$replace$($13548, _from$2, _to$3, _lv$4); + var _fkey$9 = $13549; + var _fval$10 = Kind$Term$SmartMotive$replace$($13550, _from$2, _to$3, _lv$4); + var $13551 = Kind$Term$set$(_expr$8, _fkey$9, _fval$10); + var $13511 = $13551; break; case 'Kind.Term.ope': - var $12131 = self.name; - var $12132 = self.arg0; - var $12133 = self.arg1; - var _arg0$8 = Kind$Term$SmartMotive$replace$($12132, _from$2, _to$3, _lv$4); - var _arg1$9 = Kind$Term$SmartMotive$replace$($12133, _from$2, _to$3, _lv$4); - var $12134 = Kind$Term$ope$($12131, _arg0$8, _arg1$9); - var $12090 = $12134; + var $13552 = self.name; + var $13553 = self.arg0; + var $13554 = self.arg1; + var _arg0$8 = Kind$Term$SmartMotive$replace$($13553, _from$2, _to$3, _lv$4); + var _arg1$9 = Kind$Term$SmartMotive$replace$($13554, _from$2, _to$3, _lv$4); + var $13555 = Kind$Term$ope$($13552, _arg0$8, _arg1$9); + var $13511 = $13555; break; case 'Kind.Term.ori': - var $12135 = self.expr; - var $12136 = Kind$Term$SmartMotive$replace$($12135, _from$2, _to$3, _lv$4); - var $12090 = $12136; + var $13556 = self.expr; + var $13557 = Kind$Term$SmartMotive$replace$($13556, _from$2, _to$3, _lv$4); + var $13511 = $13557; break; case 'Kind.Term.typ': - var $12137 = Kind$Term$typ; - var $12090 = $12137; + var $13558 = Kind$Term$typ; + var $13511 = $13558; break; case 'Kind.Term.gol': case 'Kind.Term.hol': @@ -38621,13 +43029,13 @@ module.exports = (function() { case 'Kind.Term.num': case 'Kind.Term.cse': case 'Kind.Term.new': - var $12138 = _term$1; - var $12090 = $12138; + var $13559 = _term$1; + var $13511 = $13559; break; }; - var $12088 = $12090; + var $13509 = $13511; }; - return $12088; + return $13509; }; const Kind$Term$SmartMotive$replace = x0 => x1 => x2 => x3 => Kind$Term$SmartMotive$replace$(x0, x1, x2, x3); @@ -38635,19 +43043,19 @@ module.exports = (function() { var _vals$7 = Kind$Term$SmartMotive$vals$(_expr$2, _type$3, _defs$6); var _nams$8 = Kind$Term$SmartMotive$nams$(_name$1, _type$3, _defs$6); var _subs$9 = List$zip$(_nams$8, _vals$7); - var $12139 = List$fold$(_subs$9, _moti$4, (_sub$10 => _moti$11 => { + var $13560 = List$fold$(_subs$9, _moti$4, (_sub$10 => _moti$11 => { var self = _sub$10; switch (self._) { case 'Pair.new': - var $12141 = self.fst; - var $12142 = self.snd; - var $12143 = Kind$Term$SmartMotive$replace$(_moti$11, $12142, Kind$Term$ref$($12141), _size$5); - var $12140 = $12143; + var $13562 = self.fst; + var $13563 = self.snd; + var $13564 = Kind$Term$SmartMotive$replace$(_moti$11, $13563, Kind$Term$ref$($13562), _size$5); + var $13561 = $13564; break; }; - return $12140; + return $13561; })); - return $12139; + return $13560; }; const Kind$Term$SmartMotive$make = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$SmartMotive$make$(x0, x1, x2, x3, x4, x5); @@ -38656,15 +43064,15 @@ module.exports = (function() { var self = _moti$2; switch (self._) { case 'Maybe.none': - var $12145 = Kind$Term$SmartMotive$make$(_name$3, _expr$4, _etyp$5, _done$9, _size$8, _defs$7); - var $12144 = $12145; + var $13566 = Kind$Term$SmartMotive$make$(_name$3, _expr$4, _etyp$5, _done$9, _size$8, _defs$7); + var $13565 = $13566; break; case 'Maybe.some': - var $12146 = _done$9; - var $12144 = $12146; + var $13567 = _done$9; + var $13565 = $13567; break; }; - return $12144; + return $13565; }; const Kind$Term$check$expand$cse$motive = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => Kind$Term$check$expand$cse$motive$(x0, x1, x2, x3, x4, x5, x6, x7); @@ -38672,23 +43080,23 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$3, _defs$5); switch (self._) { case 'Kind.Term.all': - var $12148 = self.self; - var $12149 = self.name; - var $12150 = self.body; - var $12151 = Kind$Term$lam$((() => { - var self = String$is_empty$($12149); + var $13569 = self.self; + var $13570 = self.name; + var $13571 = self.body; + var $13572 = Kind$Term$lam$((() => { + var self = String$is_empty$($13570); if (self) { - var $12152 = _name$1; - return $12152; + var $13573 = _name$1; + return $13573; } else { - var $12153 = String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($12149, List$nil)))); - return $12153; + var $13574 = String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($13570, List$nil)))); + return $13574; }; })(), (_x$11 => { - var $12154 = Kind$Term$check$expand$cse$argument$(_name$1, _wyth$2, $12150(Kind$Term$var$($12148, 0n))(Kind$Term$var$($12149, 0n)), _body$4, _defs$5); - return $12154; + var $13575 = Kind$Term$check$expand$cse$argument$(_name$1, _wyth$2, $13571(Kind$Term$var$($13569, 0n))(Kind$Term$var$($13570, 0n)), _body$4, _defs$5); + return $13575; })); - var $12147 = $12151; + var $13568 = $13572; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -38698,27 +43106,27 @@ module.exports = (function() { var self = _wyth$2; switch (self._) { case 'List.cons': - var $12156 = self.head; - var $12157 = self.tail; - var self = $12156; + var $13577 = self.head; + var $13578 = self.tail; + var self = $13577; switch (self._) { case 'Kind.Ann.new': - var $12159 = self.name; - var $12160 = Kind$Term$lam$($12159, (_x$13 => { - var $12161 = Kind$Term$check$expand$cse$argument$(_name$1, $12157, _type$3, _body$4, _defs$5); - return $12161; + var $13580 = self.name; + var $13581 = Kind$Term$lam$($13580, (_x$13 => { + var $13582 = Kind$Term$check$expand$cse$argument$(_name$1, $13578, _type$3, _body$4, _defs$5); + return $13582; })); - var $12158 = $12160; + var $13579 = $13581; break; }; - var $12155 = $12158; + var $13576 = $13579; break; case 'List.nil': - var $12162 = _body$4; - var $12155 = $12162; + var $13583 = _body$4; + var $13576 = $13583; break; }; - var $12147 = $12155; + var $13568 = $13576; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -38729,53 +43137,53 @@ module.exports = (function() { var self = _wyth$2; switch (self._) { case 'List.cons': - var $12164 = self.head; - var $12165 = self.tail; - var self = $12164; + var $13585 = self.head; + var $13586 = self.tail; + var self = $13585; switch (self._) { case 'Kind.Ann.new': - var $12167 = self.name; - var $12168 = Kind$Term$lam$($12167, (_x$12 => { - var $12169 = Kind$Term$check$expand$cse$argument$(_name$1, $12165, _type$3, _body$4, _defs$5); - return $12169; + var $13588 = self.name; + var $13589 = Kind$Term$lam$($13588, (_x$12 => { + var $13590 = Kind$Term$check$expand$cse$argument$(_name$1, $13586, _type$3, _body$4, _defs$5); + return $13590; })); - var $12166 = $12168; + var $13587 = $13589; break; }; - var $12163 = $12166; + var $13584 = $13587; break; case 'List.nil': - var $12170 = _body$4; - var $12163 = $12170; + var $13591 = _body$4; + var $13584 = $13591; break; }; - var $12147 = $12163; + var $13568 = $13584; break; case 'Kind.Term.typ': var self = _wyth$2; switch (self._) { case 'List.cons': - var $12172 = self.head; - var $12173 = self.tail; - var self = $12172; + var $13593 = self.head; + var $13594 = self.tail; + var self = $13593; switch (self._) { case 'Kind.Ann.new': - var $12175 = self.name; - var $12176 = Kind$Term$lam$($12175, (_x$11 => { - var $12177 = Kind$Term$check$expand$cse$argument$(_name$1, $12173, _type$3, _body$4, _defs$5); - return $12177; + var $13596 = self.name; + var $13597 = Kind$Term$lam$($13596, (_x$11 => { + var $13598 = Kind$Term$check$expand$cse$argument$(_name$1, $13594, _type$3, _body$4, _defs$5); + return $13598; })); - var $12174 = $12176; + var $13595 = $13597; break; }; - var $12171 = $12174; + var $13592 = $13595; break; case 'List.nil': - var $12178 = _body$4; - var $12171 = $12178; + var $13599 = _body$4; + var $13592 = $13599; break; }; - var $12147 = $12171; + var $13568 = $13592; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -38787,56 +43195,56 @@ module.exports = (function() { var self = _wyth$2; switch (self._) { case 'List.cons': - var $12180 = self.head; - var $12181 = self.tail; - var self = $12180; + var $13601 = self.head; + var $13602 = self.tail; + var self = $13601; switch (self._) { case 'Kind.Ann.new': - var $12183 = self.name; - var $12184 = Kind$Term$lam$($12183, (_x$14 => { - var $12185 = Kind$Term$check$expand$cse$argument$(_name$1, $12181, _type$3, _body$4, _defs$5); - return $12185; + var $13604 = self.name; + var $13605 = Kind$Term$lam$($13604, (_x$14 => { + var $13606 = Kind$Term$check$expand$cse$argument$(_name$1, $13602, _type$3, _body$4, _defs$5); + return $13606; })); - var $12182 = $12184; + var $13603 = $13605; break; }; - var $12179 = $12182; + var $13600 = $13603; break; case 'List.nil': - var $12186 = _body$4; - var $12179 = $12186; + var $13607 = _body$4; + var $13600 = $13607; break; }; - var $12147 = $12179; + var $13568 = $13600; break; case 'Kind.Term.cse': var self = _wyth$2; switch (self._) { case 'List.cons': - var $12188 = self.head; - var $12189 = self.tail; - var self = $12188; + var $13609 = self.head; + var $13610 = self.tail; + var self = $13609; switch (self._) { case 'Kind.Ann.new': - var $12191 = self.name; - var $12192 = Kind$Term$lam$($12191, (_x$17 => { - var $12193 = Kind$Term$check$expand$cse$argument$(_name$1, $12189, _type$3, _body$4, _defs$5); - return $12193; + var $13612 = self.name; + var $13613 = Kind$Term$lam$($13612, (_x$17 => { + var $13614 = Kind$Term$check$expand$cse$argument$(_name$1, $13610, _type$3, _body$4, _defs$5); + return $13614; })); - var $12190 = $12192; + var $13611 = $13613; break; }; - var $12187 = $12190; + var $13608 = $13611; break; case 'List.nil': - var $12194 = _body$4; - var $12187 = $12194; + var $13615 = _body$4; + var $13608 = $13615; break; }; - var $12147 = $12187; + var $13568 = $13608; break; }; - return $12147; + return $13568; }; const Kind$Term$check$expand$cse$argument = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$cse$argument$(x0, x1, x2, x3, x4); @@ -38844,16 +43252,16 @@ module.exports = (function() { var self = _a$2; switch (self._) { case 'Maybe.some': - var $12196 = self.value; - var $12197 = Maybe$some$($12196); - var $12195 = $12197; + var $13617 = self.value; + var $13618 = Maybe$some$($13617); + var $13616 = $13618; break; case 'Maybe.none': - var $12198 = _b$3; - var $12195 = $12198; + var $13619 = _b$3; + var $13616 = $13619; break; }; - return $12195; + return $13616; }; const Maybe$or = x0 => x1 => Maybe$or$(x0, x1); @@ -38870,45 +43278,45 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$5, _defs$6); switch (self._) { case 'Kind.Term.all': - var $12199 = self.self; - var $12200 = self.name; - var $12201 = self.xtyp; - var $12202 = self.body; - var _argm$13 = Maybe$or$(Kind$Map$get$($12200, _cses$4), Kind$Map$get$("_", _cses$4)); - var _argm$14 = Maybe$default$(_argm$13, Kind$Term$ref$((_name$2 + ("_" + ($12200 + "_case"))))); - var _argm$15 = Kind$Term$check$expand$cse$argument$(_name$2, _wyth$3, $12201, _argm$14, _defs$6); + var $13620 = self.self; + var $13621 = self.name; + var $13622 = self.xtyp; + var $13623 = self.body; + var _argm$13 = Maybe$or$(Kind$Map$get$($13621, _cses$4), Kind$Map$get$("_", _cses$4)); + var _argm$14 = Maybe$default$(_argm$13, Kind$Term$ref$((_name$2 + ("_" + ($13621 + "_case"))))); + var _argm$15 = Kind$Term$check$expand$cse$argument$(_name$2, _wyth$3, $13622, _argm$14, _defs$6); var _expr$16 = Kind$Term$app$(_expr$1, _argm$15); - var _type$17 = $12202(Kind$Term$var$($12199, 0n))(Kind$Term$var$($12200, 0n)); - var $12203 = Kind$Term$check$expand$cse$cases$(_expr$16, _name$2, _wyth$3, _cses$4, _type$17, _defs$6, _ctxt$7); - return $12203; + var _type$17 = $13623(Kind$Term$var$($13620, 0n))(Kind$Term$var$($13621, 0n)); + var $13624 = Kind$Term$check$expand$cse$cases$(_expr$16, _name$2, _wyth$3, _cses$4, _type$17, _defs$6, _ctxt$7); + return $13624; case 'Kind.Term.var': case 'Kind.Term.lam': case 'Kind.Term.app': case 'Kind.Term.get': case 'Kind.Term.ori': var _expr$10 = (() => { - var $12206 = _expr$1; - var $12207 = _wyth$3; - let _expr$11 = $12206; + var $13627 = _expr$1; + var $13628 = _wyth$3; + let _expr$11 = $13627; let _defn$10; - while ($12207._ === 'List.cons') { - _defn$10 = $12207.head; - var $12206 = Kind$Term$app$(_expr$11, (() => { + while ($13628._ === 'List.cons') { + _defn$10 = $13628.head; + var $13627 = Kind$Term$app$(_expr$11, (() => { var self = _defn$10; switch (self._) { case 'Kind.Ann.new': - var $12208 = self.term; - var $12209 = $12208; - return $12209; + var $13629 = self.term; + var $13630 = $13629; + return $13630; }; })()); - _expr$11 = $12206; - $12207 = $12207.tail; + _expr$11 = $13627; + $13628 = $13628.tail; } return _expr$11; })(); - var $12204 = _expr$10; - return $12204; + var $13625 = _expr$10; + return $13625; case 'Kind.Term.ref': case 'Kind.Term.hol': case 'Kind.Term.nat': @@ -38916,52 +43324,52 @@ module.exports = (function() { case 'Kind.Term.str': case 'Kind.Term.new': var _expr$9 = (() => { - var $12212 = _expr$1; - var $12213 = _wyth$3; - let _expr$10 = $12212; + var $13633 = _expr$1; + var $13634 = _wyth$3; + let _expr$10 = $13633; let _defn$9; - while ($12213._ === 'List.cons') { - _defn$9 = $12213.head; - var $12212 = Kind$Term$app$(_expr$10, (() => { + while ($13634._ === 'List.cons') { + _defn$9 = $13634.head; + var $13633 = Kind$Term$app$(_expr$10, (() => { var self = _defn$9; switch (self._) { case 'Kind.Ann.new': - var $12214 = self.term; - var $12215 = $12214; - return $12215; + var $13635 = self.term; + var $13636 = $13635; + return $13636; }; })()); - _expr$10 = $12212; - $12213 = $12213.tail; + _expr$10 = $13633; + $13634 = $13634.tail; } return _expr$10; })(); - var $12210 = _expr$9; - return $12210; + var $13631 = _expr$9; + return $13631; case 'Kind.Term.typ': var _expr$8 = (() => { - var $12218 = _expr$1; - var $12219 = _wyth$3; - let _expr$9 = $12218; + var $13639 = _expr$1; + var $13640 = _wyth$3; + let _expr$9 = $13639; let _defn$8; - while ($12219._ === 'List.cons') { - _defn$8 = $12219.head; - var $12218 = Kind$Term$app$(_expr$9, (() => { + while ($13640._ === 'List.cons') { + _defn$8 = $13640.head; + var $13639 = Kind$Term$app$(_expr$9, (() => { var self = _defn$8; switch (self._) { case 'Kind.Ann.new': - var $12220 = self.term; - var $12221 = $12220; - return $12221; + var $13641 = self.term; + var $13642 = $13641; + return $13642; }; })()); - _expr$9 = $12218; - $12219 = $12219.tail; + _expr$9 = $13639; + $13640 = $13640.tail; } return _expr$9; })(); - var $12216 = _expr$8; - return $12216; + var $13637 = _expr$8; + return $13637; case 'Kind.Term.let': case 'Kind.Term.def': case 'Kind.Term.ann': @@ -38970,52 +43378,52 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': var _expr$11 = (() => { - var $12224 = _expr$1; - var $12225 = _wyth$3; - let _expr$12 = $12224; + var $13645 = _expr$1; + var $13646 = _wyth$3; + let _expr$12 = $13645; let _defn$11; - while ($12225._ === 'List.cons') { - _defn$11 = $12225.head; - var $12224 = Kind$Term$app$(_expr$12, (() => { + while ($13646._ === 'List.cons') { + _defn$11 = $13646.head; + var $13645 = Kind$Term$app$(_expr$12, (() => { var self = _defn$11; switch (self._) { case 'Kind.Ann.new': - var $12226 = self.term; - var $12227 = $12226; - return $12227; + var $13647 = self.term; + var $13648 = $13647; + return $13648; }; })()); - _expr$12 = $12224; - $12225 = $12225.tail; + _expr$12 = $13645; + $13646 = $13646.tail; } return _expr$12; })(); - var $12222 = _expr$11; - return $12222; + var $13643 = _expr$11; + return $13643; case 'Kind.Term.cse': var _expr$14 = (() => { - var $12230 = _expr$1; - var $12231 = _wyth$3; - let _expr$15 = $12230; + var $13651 = _expr$1; + var $13652 = _wyth$3; + let _expr$15 = $13651; let _defn$14; - while ($12231._ === 'List.cons') { - _defn$14 = $12231.head; - var $12230 = Kind$Term$app$(_expr$15, (() => { + while ($13652._ === 'List.cons') { + _defn$14 = $13652.head; + var $13651 = Kind$Term$app$(_expr$15, (() => { var self = _defn$14; switch (self._) { case 'Kind.Ann.new': - var $12232 = self.term; - var $12233 = $12232; - return $12233; + var $13653 = self.term; + var $13654 = $13653; + return $13654; }; })()); - _expr$15 = $12230; - $12231 = $12231.tail; + _expr$15 = $13651; + $13652 = $13652.tail; } return _expr$15; })(); - var $12228 = _expr$14; - return $12228; + var $13649 = _expr$14; + return $13649; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -39028,16 +43436,16 @@ module.exports = (function() { var self = Kind$Term$reduce$(_etyp$6, _defs$8); switch (self._) { case 'Kind.Term.all': - var $12235 = self.self; - var $12236 = self.name; - var $12237 = self.xtyp; - var $12238 = self.body; + var $13656 = self.self; + var $13657 = self.name; + var $13658 = self.xtyp; + var $13659 = self.body; var _moti$15 = Kind$Term$check$expand$cse$motive$(_wyth$3, _moti$5, _name$2, _expr$1, _etyp$6, _rtyp$7, _defs$8, (list_length(_ctxt$9))); - var _argm$16 = Kind$Term$check$expand$cse$argument$(_name$2, List$nil, $12237, _moti$15, _defs$8); + var _argm$16 = Kind$Term$check$expand$cse$argument$(_name$2, List$nil, $13658, _moti$15, _defs$8); var _expr$17 = Kind$Term$app$(_expr$1, _argm$16); - var _type$18 = $12238(Kind$Term$var$($12235, 0n))(Kind$Term$var$($12236, 0n)); - var $12239 = Maybe$some$(Kind$Term$check$expand$cse$cases$(_expr$17, _name$2, _wyth$3, _cses$4, _type$18, _defs$8, _ctxt$9)); - var $12234 = $12239; + var _type$18 = $13659(Kind$Term$var$($13656, 0n))(Kind$Term$var$($13657, 0n)); + var $13660 = Maybe$some$(Kind$Term$check$expand$cse$cases$(_expr$17, _name$2, _wyth$3, _cses$4, _type$18, _defs$8, _ctxt$9)); + var $13655 = $13660; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39059,28 +43467,28 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12240 = Maybe$none; - var $12234 = $12240; + var $13661 = Maybe$none; + var $13655 = $13661; break; }; - return $12234; + return $13655; }; const Kind$Term$check$expand$cse = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => Kind$Term$check$expand$cse$(x0, x1, x2, x3, x4, x5, x6, x7, x8); function Kind$Error$cant_infer$(_origin$1, _term$2, _context$3) { - var $12241 = ({ + var $13662 = ({ _: 'Kind.Error.cant_infer', 'origin': _origin$1, 'term': _term$2, 'context': _context$3 }); - return $12241; + return $13662; }; const Kind$Error$cant_infer = x0 => x1 => x2 => Kind$Error$cant_infer$(x0, x1, x2); function Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$3, _orig$4) { - var $12242 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$cant_infer$(_orig$4, _term$1, _ctx$3), List$nil)); - return $12242; + var $13663 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$cant_infer$(_orig$4, _term$1, _ctx$3), List$nil)); + return $13663; }; const Kind$Term$check$cant_infer = x0 => x1 => x2 => x3 => Kind$Term$check$cant_infer$(x0, x1, x2, x3); @@ -39088,21 +43496,21 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $12244 = self.self; - var $12245 = self.name; - var $12246 = self.xtyp; - var $12247 = self.body; - var _b$8 = $12247(Kind$Term$var$($12244, _depth$2))(Kind$Term$var$($12245, Nat$succ$(_depth$2))); + var $13665 = self.self; + var $13666 = self.name; + var $13667 = self.xtyp; + var $13668 = self.body; + var _b$8 = $13668(Kind$Term$var$($13665, _depth$2))(Kind$Term$var$($13666, Nat$succ$(_depth$2))); var self = Kind$Term$get_bnds$(_b$8, Nat$succ$(Nat$succ$(_depth$2))); switch (self._) { case 'Pair.new': - var $12249 = self.fst; - var $12250 = self.snd; - var $12251 = Pair$new$(List$cons$(Pair$new$($12245, $12246), $12249), $12250); - var $12248 = $12251; + var $13670 = self.fst; + var $13671 = self.snd; + var $13672 = Pair$new$(List$cons$(Pair$new$($13666, $13667), $13670), $13671); + var $13669 = $13672; break; }; - var $12243 = $12248; + var $13664 = $13669; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39124,11 +43532,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12252 = Pair$new$(List$nil, _term$1); - var $12243 = $12252; + var $13673 = Pair$new$(List$nil, _term$1); + var $13664 = $13673; break; }; - return $12243; + return $13664; }; const Kind$Term$get_bnds = x0 => x1 => Kind$Term$get_bnds$(x0, x1); @@ -39145,13 +43553,13 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $12253 = self.head; - var $12254 = self.tail; - var $12255 = List$last$go$($12254, Maybe$some$($12253)); - return $12255; + var $13674 = self.head; + var $13675 = self.tail; + var $13676 = List$last$go$($13675, Maybe$some$($13674)); + return $13676; case 'List.nil': - var $12256 = _last$3; - return $12256; + var $13677 = _last$3; + return $13677; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -39161,8 +43569,8 @@ module.exports = (function() { const List$last$go = x0 => x1 => List$last$go$(x0, x1); function List$last$(_xs$2) { - var $12257 = List$last$go$(_xs$2, Maybe$none); - return $12257; + var $13678 = List$last$go$(_xs$2, Maybe$none); + return $13678; }; const List$last = x0 => List$last$(x0); @@ -39170,21 +43578,21 @@ module.exports = (function() { var self = Kind$Term$get_bnds$(_xtyp$1, 0n); switch (self._) { case 'Pair.new': - var $12259 = self.fst; - var self = Kind$Term$get_args$(Pair$snd$(Maybe$default$(List$last$($12259), Pair$new$("", Kind$Term$typ)))); + var $13680 = self.fst; + var self = Kind$Term$get_args$(Pair$snd$(Maybe$default$(List$last$($13680), Pair$new$("", Kind$Term$typ)))); switch (self._) { case 'Pair.new': - var $12261 = self.snd; - var _indexs$6 = Nat$pred$((list_length($12259))); - var _params$7 = ((list_length($12261)) - _indexs$6 <= 0n ? 0n : (list_length($12261)) - _indexs$6); - var $12262 = _params$7; - var $12260 = $12262; + var $13682 = self.snd; + var _indexs$6 = Nat$pred$((list_length($13680))); + var _params$7 = ((list_length($13682)) - _indexs$6 <= 0n ? 0n : (list_length($13682)) - _indexs$6); + var $13683 = _params$7; + var $13681 = $13683; break; }; - var $12258 = $12260; + var $13679 = $13681; break; }; - return $12258; + return $13679; }; const Kind$Term$check$expand$set$count_params = x0 => Kind$Term$check$expand$set$count_params$(x0); @@ -39200,11 +43608,11 @@ module.exports = (function() { var R = (() => { var self = (_from$3 === _til$4); if (self) { - var $12263 = _state$2; - return $12263; + var $13684 = _state$2; + return $13684; } else { - var $12264 = Nat$for$(_func$5(_from$3)(_state$2), Nat$succ$(_from$3), _til$4, _func$5); - return $12264; + var $13685 = Nat$for$(_func$5(_from$3)(_state$2), Nat$succ$(_from$3), _til$4, _func$5); + return $13685; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -39226,21 +43634,21 @@ module.exports = (function() { var self = _list$3; switch (self._) { case 'List.cons': - var $12265 = self.head; - var $12266 = self.tail; + var $13686 = self.head; + var $13687 = self.tail; var self = _index$2; if (self === 0n) { - var $12268 = Maybe$some$($12265); - var $12267 = $12268; + var $13689 = Maybe$some$($13686); + var $13688 = $13689; } else { - var $12269 = (self - 1n); - var $12270 = List$get$($12269, $12266); - var $12267 = $12270; + var $13690 = (self - 1n); + var $13691 = List$get$($13690, $13687); + var $13688 = $13691; }; - return $12267; + return $13688; case 'List.nil': - var $12271 = Maybe$none; - return $12271; + var $13692 = Maybe$none; + return $13692; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -39257,13 +43665,13 @@ module.exports = (function() { var _term$6 = Kind$Term$app$(_term$5, Kind$Term$hol$(Bits$e)); var _term$7 = Kind$Term$app$(_term$6, Maybe$default$(List$get$(0n, _args$1), Kind$Term$ref$("pair_fst"))); var _term$8 = Kind$Term$app$(_term$7, Maybe$default$(List$get$(1n, _args$1), Kind$Term$ref$("pair_snd"))); - var $12273 = Maybe$some$(_term$8); - var $12272 = $12273; + var $13694 = Maybe$some$(_term$8); + var $13693 = $13694; } else { - var $12274 = Maybe$none; - var $12272 = $12274; + var $13695 = Maybe$none; + var $13693 = $13695; }; - return $12272; + return $13693; }; const Kind$Term$check$expand$new$pair = x0 => x1 => x2 => Kind$Term$check$expand$new$pair$(x0, x1, x2); @@ -39271,39 +43679,39 @@ module.exports = (function() { var self = _type$2; switch (self._) { case 'Maybe.some': - var $12276 = self.value; - var self = Kind$Term$reduce$($12276, _defs$3); + var $13697 = self.value; + var self = Kind$Term$reduce$($13697, _defs$3); switch (self._) { case 'Kind.Term.all': - var $12278 = self.self; - var $12279 = self.xtyp; - var $12280 = self.body; - var self = Kind$Term$reduce$($12280(Kind$Term$typ)(Kind$Term$typ), _defs$3); + var $13699 = self.self; + var $13700 = self.xtyp; + var $13701 = self.body; + var self = Kind$Term$reduce$($13701(Kind$Term$typ)(Kind$Term$typ), _defs$3); switch (self._) { case 'Kind.Term.all': - var $12282 = self.name; - var _tnam$15 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($12278), ""); - var _term$16 = Kind$Term$ref$((_tnam$15 + ("." + $12282))); - var _pars$17 = Kind$Term$check$expand$set$count_params$($12279); + var $13703 = self.name; + var _tnam$15 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($13699), ""); + var _term$16 = Kind$Term$ref$((_tnam$15 + ("." + $13703))); + var _pars$17 = Kind$Term$check$expand$set$count_params$($13700); var _term$18 = Nat$for$(_term$16, 0n, _pars$17, (_i$18 => _term$19 => { - var $12284 = Kind$Term$app$(_term$19, Kind$Term$hol$(Bits$e)); - return $12284; + var $13705 = Kind$Term$app$(_term$19, Kind$Term$hol$(Bits$e)); + return $13705; })); var _term$19 = (() => { - var $12286 = _term$18; - var $12287 = _args$1; - let _term$20 = $12286; + var $13707 = _term$18; + var $13708 = _args$1; + let _term$20 = $13707; let _arg$19; - while ($12287._ === 'List.cons') { - _arg$19 = $12287.head; - var $12286 = Kind$Term$app$(_term$20, _arg$19); - _term$20 = $12286; - $12287 = $12287.tail; + while ($13708._ === 'List.cons') { + _arg$19 = $13708.head; + var $13707 = Kind$Term$app$(_term$20, _arg$19); + _term$20 = $13707; + $13708 = $13708.tail; } return _term$20; })(); - var $12283 = Maybe$some$(_term$19); - var $12281 = $12283; + var $13704 = Maybe$some$(_term$19); + var $13702 = $13704; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39325,11 +43733,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12288 = Maybe$none; - var $12281 = $12288; + var $13709 = Maybe$none; + var $13702 = $13709; break; }; - var $12277 = $12281; + var $13698 = $13702; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39351,30 +43759,30 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12289 = Maybe$none; - var $12277 = $12289; + var $13710 = Maybe$none; + var $13698 = $13710; break; }; - var _got$4 = $12277; + var _got$4 = $13698; break; case 'Maybe.none': - var $12290 = Maybe$none; - var _got$4 = $12290; + var $13711 = Maybe$none; + var _got$4 = $13711; break; }; var self = _got$4; switch (self._) { case 'Maybe.some': - var $12291 = self.value; - var $12292 = Maybe$some$($12291); - var $12275 = $12292; + var $13712 = self.value; + var $13713 = Maybe$some$($13712); + var $13696 = $13713; break; case 'Maybe.none': - var $12293 = Kind$Term$check$expand$new$pair$(_args$1, _type$2, _defs$3); - var $12275 = $12293; + var $13714 = Kind$Term$check$expand$new$pair$(_args$1, _type$2, _defs$3); + var $13696 = $13714; break; }; - return $12275; + return $13696; }; const Kind$Term$check$expand$new = x0 => x1 => x2 => Kind$Term$check$expand$new$(x0, x1, x2); @@ -39382,22 +43790,22 @@ module.exports = (function() { var self = Kind$Term$reduce$(_ctor$2, _defs$3); switch (self._) { case 'Kind.Term.all': - var $12295 = self.name; - var $12296 = self.body; - var $12297 = Kind$Term$lam$($12295, (_x$10 => { - var _body$11 = $12296(Kind$Term$typ)(Kind$Term$typ); - var self = ($12295 === _fkey$1); + var $13716 = self.name; + var $13717 = self.body; + var $13718 = Kind$Term$lam$($13716, (_x$10 => { + var _body$11 = $13717(Kind$Term$typ)(Kind$Term$typ); + var self = ($13716 === _fkey$1); if (self) { - var $12299 = _x$10; - var _rett$12 = $12299; + var $13720 = _x$10; + var _rett$12 = $13720; } else { - var $12300 = _rett$4; - var _rett$12 = $12300; + var $13721 = _rett$4; + var _rett$12 = $13721; }; - var $12298 = Kind$Term$check$expand$get$selector$(_fkey$1, _body$11, _defs$3, _rett$12); - return $12298; + var $13719 = Kind$Term$check$expand$get$selector$(_fkey$1, _body$11, _defs$3, _rett$12); + return $13719; })); - var $12294 = $12297; + var $13715 = $13718; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39419,11 +43827,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12301 = _rett$4; - var $12294 = $12301; + var $13722 = _rett$4; + var $13715 = $13722; break; }; - return $12294; + return $13715; }; const Kind$Term$check$expand$get$selector = x0 => x1 => x2 => x3 => Kind$Term$check$expand$get$selector$(x0, x1, x2, x3); @@ -39431,19 +43839,19 @@ module.exports = (function() { var self = Kind$Term$reduce$(_etyp$3, _defs$4); switch (self._) { case 'Kind.Term.all': - var $12303 = self.body; - var self = Kind$Term$reduce$($12303(Kind$Term$typ)(Kind$Term$typ), _defs$4); + var $13724 = self.body; + var self = Kind$Term$reduce$($13724(Kind$Term$typ)(Kind$Term$typ), _defs$4); switch (self._) { case 'Kind.Term.all': - var $12305 = self.xtyp; + var $13726 = self.xtyp; var _term$15 = Kind$Term$app$(_expr$1, Kind$Term$lam$("", (_$15 => { - var $12307 = Kind$Term$hol$(Bits$e); - return $12307; + var $13728 = Kind$Term$hol$(Bits$e); + return $13728; }))); var _rett$16 = Kind$Term$ref$((_fkey$2 + "_field")); - var _sele$17 = Kind$Term$check$expand$get$selector$(_fkey$2, $12305, _defs$4, _rett$16); - var $12306 = Maybe$some$(Kind$Term$app$(_term$15, _sele$17)); - var $12304 = $12306; + var _sele$17 = Kind$Term$check$expand$get$selector$(_fkey$2, $13726, _defs$4, _rett$16); + var $13727 = Maybe$some$(Kind$Term$app$(_term$15, _sele$17)); + var $13725 = $13727; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39465,11 +43873,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12308 = Maybe$none; - var $12304 = $12308; + var $13729 = Maybe$none; + var $13725 = $13729; break; }; - var $12302 = $12304; + var $13723 = $13725; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39491,11 +43899,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12309 = Maybe$none; - var $12302 = $12309; + var $13730 = Maybe$none; + var $13723 = $13730; break; }; - return $12302; + return $13723; }; const Kind$Term$check$expand$get = x0 => x1 => x2 => x3 => Kind$Term$check$expand$get$(x0, x1, x2, x3); @@ -39503,24 +43911,24 @@ module.exports = (function() { var self = Kind$Term$reduce$(_ctor$3, _defs$4); switch (self._) { case 'Kind.Term.all': - var $12311 = self.name; - var $12312 = self.body; - var $12313 = Kind$Term$lam$($12311, (_x$11 => { - var _body$12 = $12312(Kind$Term$typ)(Kind$Term$typ); + var $13732 = self.name; + var $13733 = self.body; + var $13734 = Kind$Term$lam$($13732, (_x$11 => { + var _body$12 = $13733(Kind$Term$typ)(Kind$Term$typ); var _rett$13 = Kind$Term$app$(_rett$5, (() => { - var self = ($12311 === _fkey$1); + var self = ($13732 === _fkey$1); if (self) { - var $12315 = _fval$2; - return $12315; + var $13736 = _fval$2; + return $13736; } else { - var $12316 = _x$11; - return $12316; + var $13737 = _x$11; + return $13737; }; })()); - var $12314 = Kind$Term$check$expand$set$selector$(_fkey$1, _fval$2, _body$12, _defs$4, _rett$13); - return $12314; + var $13735 = Kind$Term$check$expand$set$selector$(_fkey$1, _fval$2, _body$12, _defs$4, _rett$13); + return $13735; })); - var $12310 = $12313; + var $13731 = $13734; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39542,11 +43950,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12317 = _rett$5; - var $12310 = $12317; + var $13738 = _rett$5; + var $13731 = $13738; break; }; - return $12310; + return $13731; }; const Kind$Term$check$expand$set$selector = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$set$selector$(x0, x1, x2, x3, x4); @@ -39554,28 +43962,28 @@ module.exports = (function() { var self = Kind$Term$reduce$(_etyp$4, _defs$5); switch (self._) { case 'Kind.Term.all': - var $12319 = self.self; - var $12320 = self.xtyp; - var $12321 = self.body; - var self = Kind$Term$reduce$($12321(Kind$Term$typ)(Kind$Term$typ), _defs$5); + var $13740 = self.self; + var $13741 = self.xtyp; + var $13742 = self.body; + var self = Kind$Term$reduce$($13742(Kind$Term$typ)(Kind$Term$typ), _defs$5); switch (self._) { case 'Kind.Term.all': - var $12323 = self.name; - var $12324 = self.xtyp; + var $13744 = self.name; + var $13745 = self.xtyp; var _term$16 = Kind$Term$app$(_expr$1, Kind$Term$lam$("", (_$16 => { - var $12326 = Kind$Term$hol$(Bits$e); - return $12326; + var $13747 = Kind$Term$hol$(Bits$e); + return $13747; }))); - var _tnam$17 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($12319), ""); - var _rett$18 = Kind$Term$ref$((_tnam$17 + ("." + $12323))); - var _pars$19 = Kind$Term$check$expand$set$count_params$($12320); + var _tnam$17 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($13740), ""); + var _rett$18 = Kind$Term$ref$((_tnam$17 + ("." + $13744))); + var _pars$19 = Kind$Term$check$expand$set$count_params$($13741); var _rett$20 = Nat$for$(_rett$18, 0n, _pars$19, (_i$20 => _rett$21 => { - var $12327 = Kind$Term$app$(_rett$21, Kind$Term$hol$(Bits$e)); - return $12327; + var $13748 = Kind$Term$app$(_rett$21, Kind$Term$hol$(Bits$e)); + return $13748; })); - var _sele$21 = Kind$Term$check$expand$set$selector$(_fkey$2, _fval$3, $12324, _defs$5, _rett$20); - var $12325 = Maybe$some$(Kind$Term$app$(_term$16, _sele$21)); - var $12322 = $12325; + var _sele$21 = Kind$Term$check$expand$set$selector$(_fkey$2, _fval$3, $13745, _defs$5, _rett$20); + var $13746 = Maybe$some$(Kind$Term$app$(_term$16, _sele$21)); + var $13743 = $13746; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39597,11 +44005,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12328 = Maybe$none; - var $12322 = $12328; + var $13749 = Maybe$none; + var $13743 = $13749; break; }; - var $12318 = $12322; + var $13739 = $13743; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39623,11 +44031,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12329 = Maybe$none; - var $12318 = $12329; + var $13750 = Maybe$none; + var $13739 = $13750; break; }; - return $12318; + return $13739; }; const Kind$Term$check$expand$set = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$set$(x0, x1, x2, x3, x4); @@ -39643,21 +44051,21 @@ module.exports = (function() { var R = (() => { var self = _str$2; if (self.length === 0) { - var $12330 = Maybe$none; - return $12330; + var $13751 = Maybe$none; + return $13751; } else { - var $12331 = self.charCodeAt(0); - var $12332 = self.slice(1); + var $13752 = self.charCodeAt(0); + var $13753 = self.slice(1); var self = _index$1; if (self === 0n) { - var $12334 = Maybe$some$($12331); - var $12333 = $12334; + var $13755 = Maybe$some$($13752); + var $13754 = $13755; } else { - var $12335 = (self - 1n); - var $12336 = String$at$($12335, $12332); - var $12333 = $12336; + var $13756 = (self - 1n); + var $13757 = String$at$($13756, $13753); + var $13754 = $13757; }; - return $12333; + return $13754; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -39667,139 +44075,139 @@ module.exports = (function() { const String$at = x0 => x1 => String$at$(x0, x1); function String$last$(_xs$1) { - var $12337 = String$at$(Nat$pred$(String$length$(_xs$1)), _xs$1); - return $12337; + var $13758 = String$at$(Nat$pred$(String$length$(_xs$1)), _xs$1); + return $13758; }; const String$last = x0 => String$last$(x0); function Kind$Term$check$expand$ope$(_skip_cmp$1, _oper$2, _arg0$3, _arg1$4, _otyp$5, _defs$6) { var self = ((Maybe$default$(String$last$(_oper$2), 120) === 63) && _skip_cmp$1); if (self) { - var $12339 = Maybe$none; - var $12338 = $12339; + var $13760 = Maybe$none; + var $13759 = $13760; } else { var _type_name$7 = Kind$Term$check$get_name_of_self_type$(_otyp$5, _defs$6); var self = _type_name$7; switch (self._) { case 'Maybe.some': - var $12341 = self.value; + var $13762 = self.value; var self = (_oper$2 === "+"); if (self) { - var $12343 = Maybe$some$("add"); - var _oper_name$9 = $12343; + var $13764 = Maybe$some$("add"); + var _oper_name$9 = $13764; } else { var self = (_oper$2 === "-"); if (self) { - var $12345 = Maybe$some$("sub"); - var $12344 = $12345; + var $13766 = Maybe$some$("sub"); + var $13765 = $13766; } else { var self = (_oper$2 === "*"); if (self) { - var $12347 = Maybe$some$("mul"); - var $12346 = $12347; + var $13768 = Maybe$some$("mul"); + var $13767 = $13768; } else { var self = (_oper$2 === "/"); if (self) { - var $12349 = Maybe$some$("div"); - var $12348 = $12349; + var $13770 = Maybe$some$("div"); + var $13769 = $13770; } else { var self = (_oper$2 === "**"); if (self) { - var $12351 = Maybe$some$("pow"); - var $12350 = $12351; + var $13772 = Maybe$some$("pow"); + var $13771 = $13772; } else { var self = (_oper$2 === "%"); if (self) { - var $12353 = Maybe$some$("mod"); - var $12352 = $12353; + var $13774 = Maybe$some$("mod"); + var $13773 = $13774; } else { var self = (_oper$2 === "=?"); if (self) { - var $12361 = Maybe$some$("gte"); - var $12360 = $12361; + var $13782 = Maybe$some$("gte"); + var $13781 = $13782; } else { var self = (_oper$2 === ">?"); if (self) { - var $12363 = Maybe$some$("gtn"); - var $12362 = $12363; + var $13784 = Maybe$some$("gtn"); + var $13783 = $13784; } else { var self = (_oper$2 === "&&"); if (self) { - var $12365 = Maybe$some$("and"); - var $12364 = $12365; + var $13786 = Maybe$some$("and"); + var $13785 = $13786; } else { var self = (_oper$2 === "||"); if (self) { - var $12367 = Maybe$some$("or"); - var $12366 = $12367; + var $13788 = Maybe$some$("or"); + var $13787 = $13788; } else { - var $12368 = Maybe$none; - var $12366 = $12368; + var $13789 = Maybe$none; + var $13787 = $13789; }; - var $12364 = $12366; + var $13785 = $13787; }; - var $12362 = $12364; + var $13783 = $13785; }; - var $12360 = $12362; + var $13781 = $13783; }; - var $12358 = $12360; + var $13779 = $13781; }; - var $12356 = $12358; + var $13777 = $13779; }; - var $12354 = $12356; + var $13775 = $13777; }; - var $12352 = $12354; + var $13773 = $13775; }; - var $12350 = $12352; + var $13771 = $13773; }; - var $12348 = $12350; + var $13769 = $13771; }; - var $12346 = $12348; + var $13767 = $13769; }; - var $12344 = $12346; + var $13765 = $13767; }; - var _oper_name$9 = $12344; + var _oper_name$9 = $13765; }; var self = _oper_name$9; switch (self._) { case 'Maybe.some': - var $12369 = self.value; - var _term$11 = Kind$Term$ref$(($12341 + ("." + $12369))); + var $13790 = self.value; + var _term$11 = Kind$Term$ref$(($13762 + ("." + $13790))); var _term$12 = Kind$Term$app$(_term$11, _arg0$3); var _term$13 = Kind$Term$app$(_term$12, _arg1$4); - var $12370 = Maybe$some$(_term$13); - var $12342 = $12370; + var $13791 = Maybe$some$(_term$13); + var $13763 = $13791; break; case 'Maybe.none': - var $12371 = Maybe$none; - var $12342 = $12371; + var $13792 = Maybe$none; + var $13763 = $13792; break; }; - var $12340 = $12342; + var $13761 = $13763; break; case 'Maybe.none': - var $12372 = Maybe$none; - var $12340 = $12372; + var $13793 = Maybe$none; + var $13761 = $13793; break; }; - var $12338 = $12340; + var $13759 = $13761; }; - return $12338; + return $13759; }; const Kind$Term$check$expand$ope = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$check$expand$ope$(x0, x1, x2, x3, x4, x5); @@ -39807,21 +44215,21 @@ module.exports = (function() { var self = (bitsmap_get(_bits$1, _set$2)); switch (self._) { case 'Maybe.none': - var $12374 = Bool$false; - var $12373 = $12374; + var $13795 = Bool$false; + var $13794 = $13795; break; case 'Maybe.some': - var $12375 = Bool$true; - var $12373 = $12375; + var $13796 = Bool$true; + var $13794 = $13796; break; }; - return $12373; + return $13794; }; const BitsSet$has = x0 => x1 => BitsSet$has$(x0, x1); function BitsSet$mut$has$(_bits$1, _set$2) { - var $12376 = BitsSet$has$(_bits$1, _set$2); - return $12376; + var $13797 = BitsSet$has$(_bits$1, _set$2); + return $13797; }; const BitsSet$mut$has = x0 => x1 => BitsSet$mut$has$(x0, x1); @@ -39838,21 +44246,21 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $12377 = self.name; - var $12378 = Maybe$some$(Pair$new$($12377, _arity$2)); - return $12378; + var $13798 = self.name; + var $13799 = Maybe$some$(Pair$new$($13798, _arity$2)); + return $13799; case 'Kind.Term.ref': - var $12379 = self.name; - var $12380 = Maybe$some$(Pair$new$($12379, _arity$2)); - return $12380; + var $13800 = self.name; + var $13801 = Maybe$some$(Pair$new$($13800, _arity$2)); + return $13801; case 'Kind.Term.app': - var $12381 = self.func; - var $12382 = Kind$Term$equal$extra_holes$funari$($12381, Nat$succ$(_arity$2)); - return $12382; + var $13802 = self.func; + var $13803 = Kind$Term$equal$extra_holes$funari$($13802, Nat$succ$(_arity$2)); + return $13803; case 'Kind.Term.ori': - var $12383 = self.expr; - var $12384 = Kind$Term$equal$extra_holes$funari$($12383, _arity$2); - return $12384; + var $13804 = self.expr; + var $13805 = Kind$Term$equal$extra_holes$funari$($13804, _arity$2); + return $13805; case 'Kind.Term.typ': case 'Kind.Term.all': case 'Kind.Term.lam': @@ -39870,8 +44278,8 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12385 = Maybe$none; - return $12385; + var $13806 = Maybe$none; + return $13806; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -39884,44 +44292,44 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $12387 = self.xtyp; - var $12388 = self.body; - var $12389 = (Kind$Term$has_holes$($12387) || Kind$Term$has_holes$($12388(Kind$Term$typ)(Kind$Term$typ))); - var $12386 = $12389; + var $13808 = self.xtyp; + var $13809 = self.body; + var $13810 = (Kind$Term$has_holes$($13808) || Kind$Term$has_holes$($13809(Kind$Term$typ)(Kind$Term$typ))); + var $13807 = $13810; break; case 'Kind.Term.lam': - var $12390 = self.body; - var $12391 = Kind$Term$has_holes$($12390(Kind$Term$typ)); - var $12386 = $12391; + var $13811 = self.body; + var $13812 = Kind$Term$has_holes$($13811(Kind$Term$typ)); + var $13807 = $13812; break; case 'Kind.Term.app': - var $12392 = self.func; - var $12393 = self.argm; - var $12394 = (Kind$Term$has_holes$($12392) || Kind$Term$has_holes$($12393)); - var $12386 = $12394; + var $13813 = self.func; + var $13814 = self.argm; + var $13815 = (Kind$Term$has_holes$($13813) || Kind$Term$has_holes$($13814)); + var $13807 = $13815; break; case 'Kind.Term.let': - var $12395 = self.expr; - var $12396 = self.body; - var $12397 = (Kind$Term$has_holes$($12395) || Kind$Term$has_holes$($12396(Kind$Term$typ))); - var $12386 = $12397; + var $13816 = self.expr; + var $13817 = self.body; + var $13818 = (Kind$Term$has_holes$($13816) || Kind$Term$has_holes$($13817(Kind$Term$typ))); + var $13807 = $13818; break; case 'Kind.Term.def': - var $12398 = self.expr; - var $12399 = self.body; - var $12400 = (Kind$Term$has_holes$($12398) || Kind$Term$has_holes$($12399(Kind$Term$typ))); - var $12386 = $12400; + var $13819 = self.expr; + var $13820 = self.body; + var $13821 = (Kind$Term$has_holes$($13819) || Kind$Term$has_holes$($13820(Kind$Term$typ))); + var $13807 = $13821; break; case 'Kind.Term.ann': - var $12401 = self.term; - var $12402 = self.type; - var $12403 = (Kind$Term$has_holes$($12401) || Kind$Term$has_holes$($12402)); - var $12386 = $12403; + var $13822 = self.term; + var $13823 = self.type; + var $13824 = (Kind$Term$has_holes$($13822) || Kind$Term$has_holes$($13823)); + var $13807 = $13824; break; case 'Kind.Term.ori': - var $12404 = self.expr; - var $12405 = Kind$Term$has_holes$($12404); - var $12386 = $12405; + var $13825 = self.expr; + var $13826 = Kind$Term$has_holes$($13825); + var $13807 = $13826; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -39936,15 +44344,15 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12406 = Bool$false; - var $12386 = $12406; + var $13827 = Bool$false; + var $13807 = $13827; break; case 'Kind.Term.hol': - var $12407 = Bool$true; - var $12386 = $12407; + var $13828 = Bool$true; + var $13807 = $13828; break; }; - return $12386; + return $13807; }; const Kind$Term$has_holes = x0 => Kind$Term$has_holes$(x0); @@ -39973,20 +44381,20 @@ module.exports = (function() { case 'Kind.Term.ori': var self = Kind$Term$has_holes$(_term$2); if (self) { - var $12410 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $12409 = $12410; + var $13831 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $13830 = $13831; } else { - var $12411 = Kind$Check$result$(Maybe$some$(Bool$true), List$cons$(Kind$Error$patch$(_path$1, Kind$Term$normalize$(_term$2, Kind$Map$new)), List$nil)); - var $12409 = $12411; + var $13832 = Kind$Check$result$(Maybe$some$(Bool$true), List$cons$(Kind$Error$patch$(_path$1, Kind$Term$normalize$(_term$2, Kind$Map$new)), List$nil)); + var $13830 = $13832; }; - var $12408 = $12409; + var $13829 = $13830; break; case 'Kind.Term.hol': - var $12412 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $12408 = $12412; + var $13833 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $13829 = $13833; break; }; - return $12408; + return $13829; }; const Kind$Term$equal$hole = x0 => x1 => Kind$Term$equal$hole$(x0, x1); @@ -39994,77 +44402,77 @@ module.exports = (function() { var self = _a$1; switch (self._) { case 'Kind.Term.app': - var $12414 = self.func; - var $12415 = self.argm; + var $13835 = self.func; + var $13836 = self.argm; var self = _b$2; switch (self._) { case 'Kind.Term.app': - var $12417 = self.func; - var $12418 = self.argm; - var self = Kind$Term$equal$extra_holes$filler$($12414, $12417); + var $13838 = self.func; + var $13839 = self.argm; + var self = Kind$Term$equal$extra_holes$filler$($13835, $13838); switch (self._) { case 'Kind.Check.result': - var $12420 = self.value; - var $12421 = self.errors; - var self = $12420; + var $13841 = self.value; + var $13842 = self.errors; + var self = $13841; switch (self._) { case 'Maybe.none': - var $12423 = Kind$Check$result$(Maybe$none, $12421); - var $12422 = $12423; + var $13844 = Kind$Check$result$(Maybe$none, $13842); + var $13843 = $13844; break; case 'Maybe.some': - var self = Kind$Term$equal$extra_holes$filler$($12415, $12418); + var self = Kind$Term$equal$extra_holes$filler$($13836, $13839); switch (self._) { case 'Kind.Check.result': - var $12425 = self.value; - var $12426 = self.errors; - var $12427 = Kind$Check$result$($12425, List$concat$($12421, $12426)); - var $12424 = $12427; + var $13846 = self.value; + var $13847 = self.errors; + var $13848 = Kind$Check$result$($13846, List$concat$($13842, $13847)); + var $13845 = $13848; break; }; - var $12422 = $12424; + var $13843 = $13845; break; }; - var $12419 = $12422; + var $13840 = $13843; break; }; - var $12416 = $12419; + var $13837 = $13840; break; case 'Kind.Term.hol': - var $12428 = self.path; - var self = Kind$Term$equal$hole$($12428, _a$1); + var $13849 = self.path; + var self = Kind$Term$equal$hole$($13849, _a$1); switch (self._) { case 'Kind.Check.result': - var $12430 = self.value; - var $12431 = self.errors; - var self = $12430; + var $13851 = self.value; + var $13852 = self.errors; + var self = $13851; switch (self._) { case 'Maybe.none': - var $12433 = Kind$Check$result$(Maybe$none, $12431); - var $12432 = $12433; + var $13854 = Kind$Check$result$(Maybe$none, $13852); + var $13853 = $13854; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $12435 = self.value; - var $12436 = self.errors; - var $12437 = Kind$Check$result$($12435, List$concat$($12431, $12436)); - var $12434 = $12437; + var $13856 = self.value; + var $13857 = self.errors; + var $13858 = Kind$Check$result$($13856, List$concat$($13852, $13857)); + var $13855 = $13858; break; }; - var $12432 = $12434; + var $13853 = $13855; break; }; - var $12429 = $12432; + var $13850 = $13853; break; }; - var $12416 = $12429; + var $13837 = $13850; break; case 'Kind.Term.ori': - var $12438 = self.expr; - var $12439 = Kind$Term$equal$extra_holes$filler$(_a$1, $12438); - var $12416 = $12439; + var $13859 = self.expr; + var $13860 = Kind$Term$equal$extra_holes$filler$(_a$1, $13859); + var $13837 = $13860; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40084,47 +44492,47 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12440 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $12416 = $12440; + var $13861 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13837 = $13861; break; }; - var $12413 = $12416; + var $13834 = $13837; break; case 'Kind.Term.hol': - var $12441 = self.path; - var self = Kind$Term$equal$hole$($12441, _b$2); + var $13862 = self.path; + var self = Kind$Term$equal$hole$($13862, _b$2); switch (self._) { case 'Kind.Check.result': - var $12443 = self.value; - var $12444 = self.errors; - var self = $12443; + var $13864 = self.value; + var $13865 = self.errors; + var self = $13864; switch (self._) { case 'Maybe.none': - var $12446 = Kind$Check$result$(Maybe$none, $12444); - var $12445 = $12446; + var $13867 = Kind$Check$result$(Maybe$none, $13865); + var $13866 = $13867; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $12448 = self.value; - var $12449 = self.errors; - var $12450 = Kind$Check$result$($12448, List$concat$($12444, $12449)); - var $12447 = $12450; + var $13869 = self.value; + var $13870 = self.errors; + var $13871 = Kind$Check$result$($13869, List$concat$($13865, $13870)); + var $13868 = $13871; break; }; - var $12445 = $12447; + var $13866 = $13868; break; }; - var $12442 = $12445; + var $13863 = $13866; break; }; - var $12413 = $12442; + var $13834 = $13863; break; case 'Kind.Term.ori': - var $12451 = self.expr; - var $12452 = Kind$Term$equal$extra_holes$filler$($12451, _b$2); - var $12413 = $12452; + var $13872 = self.expr; + var $13873 = Kind$Term$equal$extra_holes$filler$($13872, _b$2); + var $13834 = $13873; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -40132,40 +44540,40 @@ module.exports = (function() { var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $12454 = self.path; - var self = Kind$Term$equal$hole$($12454, _a$1); + var $13875 = self.path; + var self = Kind$Term$equal$hole$($13875, _a$1); switch (self._) { case 'Kind.Check.result': - var $12456 = self.value; - var $12457 = self.errors; - var self = $12456; + var $13877 = self.value; + var $13878 = self.errors; + var self = $13877; switch (self._) { case 'Maybe.none': - var $12459 = Kind$Check$result$(Maybe$none, $12457); - var $12458 = $12459; + var $13880 = Kind$Check$result$(Maybe$none, $13878); + var $13879 = $13880; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $12461 = self.value; - var $12462 = self.errors; - var $12463 = Kind$Check$result$($12461, List$concat$($12457, $12462)); - var $12460 = $12463; + var $13882 = self.value; + var $13883 = self.errors; + var $13884 = Kind$Check$result$($13882, List$concat$($13878, $13883)); + var $13881 = $13884; break; }; - var $12458 = $12460; + var $13879 = $13881; break; }; - var $12455 = $12458; + var $13876 = $13879; break; }; - var $12453 = $12455; + var $13874 = $13876; break; case 'Kind.Term.ori': - var $12464 = self.expr; - var $12465 = Kind$Term$equal$extra_holes$filler$(_a$1, $12464); - var $12453 = $12465; + var $13885 = self.expr; + var $13886 = Kind$Term$equal$extra_holes$filler$(_a$1, $13885); + var $13874 = $13886; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40186,11 +44594,11 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12466 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $12453 = $12466; + var $13887 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13874 = $13887; break; }; - var $12413 = $12453; + var $13834 = $13874; break; case 'Kind.Term.ref': case 'Kind.Term.nat': @@ -40200,40 +44608,40 @@ module.exports = (function() { var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $12468 = self.path; - var self = Kind$Term$equal$hole$($12468, _a$1); + var $13889 = self.path; + var self = Kind$Term$equal$hole$($13889, _a$1); switch (self._) { case 'Kind.Check.result': - var $12470 = self.value; - var $12471 = self.errors; - var self = $12470; + var $13891 = self.value; + var $13892 = self.errors; + var self = $13891; switch (self._) { case 'Maybe.none': - var $12473 = Kind$Check$result$(Maybe$none, $12471); - var $12472 = $12473; + var $13894 = Kind$Check$result$(Maybe$none, $13892); + var $13893 = $13894; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $12475 = self.value; - var $12476 = self.errors; - var $12477 = Kind$Check$result$($12475, List$concat$($12471, $12476)); - var $12474 = $12477; + var $13896 = self.value; + var $13897 = self.errors; + var $13898 = Kind$Check$result$($13896, List$concat$($13892, $13897)); + var $13895 = $13898; break; }; - var $12472 = $12474; + var $13893 = $13895; break; }; - var $12469 = $12472; + var $13890 = $13893; break; }; - var $12467 = $12469; + var $13888 = $13890; break; case 'Kind.Term.ori': - var $12478 = self.expr; - var $12479 = Kind$Term$equal$extra_holes$filler$(_a$1, $12478); - var $12467 = $12479; + var $13899 = self.expr; + var $13900 = Kind$Term$equal$extra_holes$filler$(_a$1, $13899); + var $13888 = $13900; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40254,50 +44662,50 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12480 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $12467 = $12480; + var $13901 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13888 = $13901; break; }; - var $12413 = $12467; + var $13834 = $13888; break; case 'Kind.Term.typ': var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $12482 = self.path; - var self = Kind$Term$equal$hole$($12482, _a$1); + var $13903 = self.path; + var self = Kind$Term$equal$hole$($13903, _a$1); switch (self._) { case 'Kind.Check.result': - var $12484 = self.value; - var $12485 = self.errors; - var self = $12484; + var $13905 = self.value; + var $13906 = self.errors; + var self = $13905; switch (self._) { case 'Maybe.none': - var $12487 = Kind$Check$result$(Maybe$none, $12485); - var $12486 = $12487; + var $13908 = Kind$Check$result$(Maybe$none, $13906); + var $13907 = $13908; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $12489 = self.value; - var $12490 = self.errors; - var $12491 = Kind$Check$result$($12489, List$concat$($12485, $12490)); - var $12488 = $12491; + var $13910 = self.value; + var $13911 = self.errors; + var $13912 = Kind$Check$result$($13910, List$concat$($13906, $13911)); + var $13909 = $13912; break; }; - var $12486 = $12488; + var $13907 = $13909; break; }; - var $12483 = $12486; + var $13904 = $13907; break; }; - var $12481 = $12483; + var $13902 = $13904; break; case 'Kind.Term.ori': - var $12492 = self.expr; - var $12493 = Kind$Term$equal$extra_holes$filler$(_a$1, $12492); - var $12481 = $12493; + var $13913 = self.expr; + var $13914 = Kind$Term$equal$extra_holes$filler$(_a$1, $13913); + var $13902 = $13914; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40318,50 +44726,50 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12494 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $12481 = $12494; + var $13915 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13902 = $13915; break; }; - var $12413 = $12481; + var $13834 = $13902; break; case 'Kind.Term.all': var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $12496 = self.path; - var self = Kind$Term$equal$hole$($12496, _a$1); + var $13917 = self.path; + var self = Kind$Term$equal$hole$($13917, _a$1); switch (self._) { case 'Kind.Check.result': - var $12498 = self.value; - var $12499 = self.errors; - var self = $12498; + var $13919 = self.value; + var $13920 = self.errors; + var self = $13919; switch (self._) { case 'Maybe.none': - var $12501 = Kind$Check$result$(Maybe$none, $12499); - var $12500 = $12501; + var $13922 = Kind$Check$result$(Maybe$none, $13920); + var $13921 = $13922; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $12503 = self.value; - var $12504 = self.errors; - var $12505 = Kind$Check$result$($12503, List$concat$($12499, $12504)); - var $12502 = $12505; + var $13924 = self.value; + var $13925 = self.errors; + var $13926 = Kind$Check$result$($13924, List$concat$($13920, $13925)); + var $13923 = $13926; break; }; - var $12500 = $12502; + var $13921 = $13923; break; }; - var $12497 = $12500; + var $13918 = $13921; break; }; - var $12495 = $12497; + var $13916 = $13918; break; case 'Kind.Term.ori': - var $12506 = self.expr; - var $12507 = Kind$Term$equal$extra_holes$filler$(_a$1, $12506); - var $12495 = $12507; + var $13927 = self.expr; + var $13928 = Kind$Term$equal$extra_holes$filler$(_a$1, $13927); + var $13916 = $13928; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40382,11 +44790,11 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12508 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $12495 = $12508; + var $13929 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13916 = $13929; break; }; - var $12413 = $12495; + var $13834 = $13916; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -40398,40 +44806,40 @@ module.exports = (function() { var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $12510 = self.path; - var self = Kind$Term$equal$hole$($12510, _a$1); + var $13931 = self.path; + var self = Kind$Term$equal$hole$($13931, _a$1); switch (self._) { case 'Kind.Check.result': - var $12512 = self.value; - var $12513 = self.errors; - var self = $12512; + var $13933 = self.value; + var $13934 = self.errors; + var self = $13933; switch (self._) { case 'Maybe.none': - var $12515 = Kind$Check$result$(Maybe$none, $12513); - var $12514 = $12515; + var $13936 = Kind$Check$result$(Maybe$none, $13934); + var $13935 = $13936; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $12517 = self.value; - var $12518 = self.errors; - var $12519 = Kind$Check$result$($12517, List$concat$($12513, $12518)); - var $12516 = $12519; + var $13938 = self.value; + var $13939 = self.errors; + var $13940 = Kind$Check$result$($13938, List$concat$($13934, $13939)); + var $13937 = $13940; break; }; - var $12514 = $12516; + var $13935 = $13937; break; }; - var $12511 = $12514; + var $13932 = $13935; break; }; - var $12509 = $12511; + var $13930 = $13932; break; case 'Kind.Term.ori': - var $12520 = self.expr; - var $12521 = Kind$Term$equal$extra_holes$filler$(_a$1, $12520); - var $12509 = $12521; + var $13941 = self.expr; + var $13942 = Kind$Term$equal$extra_holes$filler$(_a$1, $13941); + var $13930 = $13942; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40452,50 +44860,50 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12522 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $12509 = $12522; + var $13943 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13930 = $13943; break; }; - var $12413 = $12509; + var $13834 = $13930; break; case 'Kind.Term.cse': var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $12524 = self.path; - var self = Kind$Term$equal$hole$($12524, _a$1); + var $13945 = self.path; + var self = Kind$Term$equal$hole$($13945, _a$1); switch (self._) { case 'Kind.Check.result': - var $12526 = self.value; - var $12527 = self.errors; - var self = $12526; + var $13947 = self.value; + var $13948 = self.errors; + var self = $13947; switch (self._) { case 'Maybe.none': - var $12529 = Kind$Check$result$(Maybe$none, $12527); - var $12528 = $12529; + var $13950 = Kind$Check$result$(Maybe$none, $13948); + var $13949 = $13950; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $12531 = self.value; - var $12532 = self.errors; - var $12533 = Kind$Check$result$($12531, List$concat$($12527, $12532)); - var $12530 = $12533; + var $13952 = self.value; + var $13953 = self.errors; + var $13954 = Kind$Check$result$($13952, List$concat$($13948, $13953)); + var $13951 = $13954; break; }; - var $12528 = $12530; + var $13949 = $13951; break; }; - var $12525 = $12528; + var $13946 = $13949; break; }; - var $12523 = $12525; + var $13944 = $13946; break; case 'Kind.Term.ori': - var $12534 = self.expr; - var $12535 = Kind$Term$equal$extra_holes$filler$(_a$1, $12534); - var $12523 = $12535; + var $13955 = self.expr; + var $13956 = Kind$Term$equal$extra_holes$filler$(_a$1, $13955); + var $13944 = $13956; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40516,14 +44924,14 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12536 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $12523 = $12536; + var $13957 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13944 = $13957; break; }; - var $12413 = $12523; + var $13834 = $13944; break; }; - return $12413; + return $13834; }; const Kind$Term$equal$extra_holes$filler = x0 => x1 => Kind$Term$equal$extra_holes$filler$(x0, x1); @@ -40531,77 +44939,77 @@ module.exports = (function() { var self = Kind$Term$equal$extra_holes$funari$(_a$1, 0n); switch (self._) { case 'Maybe.some': - var $12538 = self.value; + var $13959 = self.value; var self = Kind$Term$equal$extra_holes$funari$(_b$2, 0n); switch (self._) { case 'Maybe.some': - var $12540 = self.value; - var self = $12538; + var $13961 = self.value; + var self = $13959; switch (self._) { case 'Pair.new': - var $12542 = self.fst; - var $12543 = self.snd; - var self = $12540; + var $13963 = self.fst; + var $13964 = self.snd; + var self = $13961; switch (self._) { case 'Pair.new': - var $12545 = self.fst; - var $12546 = self.snd; - var _same_fun$9 = ($12542 === $12545); - var _same_ari$10 = ($12543 === $12546); + var $13966 = self.fst; + var $13967 = self.snd; + var _same_fun$9 = ($13963 === $13966); + var _same_ari$10 = ($13964 === $13967); var self = (_same_fun$9 && _same_ari$10); if (self) { - var $12548 = Kind$Term$equal$extra_holes$filler$(_a$1, _b$2); - var $12547 = $12548; + var $13969 = Kind$Term$equal$extra_holes$filler$(_a$1, _b$2); + var $13968 = $13969; } else { - var $12549 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $12547 = $12549; + var $13970 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13968 = $13970; }; - var $12544 = $12547; + var $13965 = $13968; break; }; - var $12541 = $12544; + var $13962 = $13965; break; }; - var $12539 = $12541; + var $13960 = $13962; break; case 'Maybe.none': - var $12550 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $12539 = $12550; + var $13971 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13960 = $13971; break; }; - var $12537 = $12539; + var $13958 = $13960; break; case 'Maybe.none': - var $12551 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $12537 = $12551; + var $13972 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $13958 = $13972; break; }; - return $12537; + return $13958; }; const Kind$Term$equal$extra_holes = x0 => x1 => Kind$Term$equal$extra_holes$(x0, x1); function BitsSet$set$(_bits$1, _set$2) { - var $12552 = (bitsmap_set(_bits$1, Unit$new, _set$2, 'set')); - return $12552; + var $13973 = (bitsmap_set(_bits$1, Unit$new, _set$2, 'set')); + return $13973; }; const BitsSet$set = x0 => x1 => BitsSet$set$(x0, x1); function BitsSet$mut$set$(_bits$1, _set$2) { - var $12553 = BitsSet$set$(_bits$1, _set$2); - return $12553; + var $13974 = BitsSet$set$(_bits$1, _set$2); + return $13974; }; const BitsSet$mut$set = x0 => x1 => BitsSet$mut$set$(x0, x1); function Bool$eql$(_a$1, _b$2) { var self = _a$1; if (self) { - var $12555 = _b$2; - var $12554 = $12555; + var $13976 = _b$2; + var $13975 = $13976; } else { - var $12556 = (!_b$2); - var $12554 = $12556; + var $13977 = (!_b$2); + var $13975 = $13977; }; - return $12554; + return $13975; }; const Bool$eql = x0 => x1 => Bool$eql$(x0, x1); @@ -40610,8 +45018,8 @@ module.exports = (function() { var _bh$7 = Kind$Term$serialize$(Kind$Term$reduce$(_b$2, Kind$Map$new), _lv$4, Bool$true); var self = (_bh$7 === _ah$6); if (self) { - var $12558 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $12557 = $12558; + var $13979 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $13978 = $13979; } else { var _a1$8 = Kind$Term$reduce$(_a$1, _defs$3); var _b1$9 = Kind$Term$reduce$(_b$2, _defs$3); @@ -40619,8 +45027,8 @@ module.exports = (function() { var _bh$11 = Kind$Term$serialize$(_b1$9, _lv$4, Bool$true); var self = (_bh$11 === _ah$10); if (self) { - var $12560 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $12559 = $12560; + var $13981 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $13980 = $13981; } else { var _id$12 = (_bh$11 + _ah$10); var self = BitsSet$mut$has$(_id$12, _seen$5); @@ -40628,121 +45036,121 @@ module.exports = (function() { var self = Kind$Term$equal$extra_holes$(_a$1, _b$2); switch (self._) { case 'Kind.Check.result': - var $12563 = self.value; - var $12564 = self.errors; - var self = $12563; + var $13984 = self.value; + var $13985 = self.errors; + var self = $13984; switch (self._) { case 'Maybe.none': - var $12566 = Kind$Check$result$(Maybe$none, $12564); - var $12565 = $12566; + var $13987 = Kind$Check$result$(Maybe$none, $13985); + var $13986 = $13987; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); switch (self._) { case 'Kind.Check.result': - var $12568 = self.value; - var $12569 = self.errors; - var $12570 = Kind$Check$result$($12568, List$concat$($12564, $12569)); - var $12567 = $12570; + var $13989 = self.value; + var $13990 = self.errors; + var $13991 = Kind$Check$result$($13989, List$concat$($13985, $13990)); + var $13988 = $13991; break; }; - var $12565 = $12567; + var $13986 = $13988; break; }; - var $12562 = $12565; + var $13983 = $13986; break; }; - var $12561 = $12562; + var $13982 = $13983; } else { var self = _a1$8; switch (self._) { case 'Kind.Term.all': - var $12572 = self.eras; - var $12573 = self.self; - var $12574 = self.name; - var $12575 = self.xtyp; - var $12576 = self.body; + var $13993 = self.eras; + var $13994 = self.self; + var $13995 = self.name; + var $13996 = self.xtyp; + var $13997 = self.body; var self = _b1$9; switch (self._) { case 'Kind.Term.all': - var $12578 = self.eras; - var $12579 = self.self; - var $12580 = self.name; - var $12581 = self.xtyp; - var $12582 = self.body; + var $13999 = self.eras; + var $14000 = self.self; + var $14001 = self.name; + var $14002 = self.xtyp; + var $14003 = self.body; var _seen$23 = BitsSet$mut$set$(_id$12, _seen$5); - var _a1_body$24 = $12576(Kind$Term$var$($12573, _lv$4))(Kind$Term$var$($12574, Nat$succ$(_lv$4))); - var _b1_body$25 = $12582(Kind$Term$var$($12579, _lv$4))(Kind$Term$var$($12580, Nat$succ$(_lv$4))); - var _eq_self$26 = ($12573 === $12579); - var _eq_eras$27 = Bool$eql$($12572, $12578); + var _a1_body$24 = $13997(Kind$Term$var$($13994, _lv$4))(Kind$Term$var$($13995, Nat$succ$(_lv$4))); + var _b1_body$25 = $14003(Kind$Term$var$($14000, _lv$4))(Kind$Term$var$($14001, Nat$succ$(_lv$4))); + var _eq_self$26 = ($13994 === $14000); + var _eq_eras$27 = Bool$eql$($13993, $13999); var self = (_eq_self$26 && _eq_eras$27); if (self) { - var self = Kind$Term$equal$go$($12575, $12581, _defs$3, _lv$4, _seen$23); + var self = Kind$Term$equal$go$($13996, $14002, _defs$3, _lv$4, _seen$23); switch (self._) { case 'Kind.Check.result': - var $12585 = self.value; - var $12586 = self.errors; - var self = $12585; + var $14006 = self.value; + var $14007 = self.errors; + var self = $14006; switch (self._) { case 'Maybe.some': - var $12588 = self.value; + var $14009 = self.value; var self = Kind$Term$equal$go$(_a1_body$24, _b1_body$25, _defs$3, Nat$succ$(Nat$succ$(_lv$4)), _seen$23); switch (self._) { case 'Kind.Check.result': - var $12590 = self.value; - var $12591 = self.errors; - var self = $12590; + var $14011 = self.value; + var $14012 = self.errors; + var self = $14011; switch (self._) { case 'Maybe.some': - var $12593 = self.value; - var self = Kind$Check$result$(Maybe$some$(($12588 && $12593)), List$nil); + var $14014 = self.value; + var self = Kind$Check$result$(Maybe$some$(($14009 && $14014)), List$nil); switch (self._) { case 'Kind.Check.result': - var $12595 = self.value; - var $12596 = self.errors; - var $12597 = Kind$Check$result$($12595, List$concat$($12591, $12596)); - var $12594 = $12597; + var $14016 = self.value; + var $14017 = self.errors; + var $14018 = Kind$Check$result$($14016, List$concat$($14012, $14017)); + var $14015 = $14018; break; }; - var $12592 = $12594; + var $14013 = $14015; break; case 'Maybe.none': - var $12598 = Kind$Check$result$(Maybe$none, $12591); - var $12592 = $12598; + var $14019 = Kind$Check$result$(Maybe$none, $14012); + var $14013 = $14019; break; }; - var self = $12592; + var self = $14013; break; }; switch (self._) { case 'Kind.Check.result': - var $12599 = self.value; - var $12600 = self.errors; - var $12601 = Kind$Check$result$($12599, List$concat$($12586, $12600)); - var $12589 = $12601; + var $14020 = self.value; + var $14021 = self.errors; + var $14022 = Kind$Check$result$($14020, List$concat$($14007, $14021)); + var $14010 = $14022; break; }; - var $12587 = $12589; + var $14008 = $14010; break; case 'Maybe.none': - var $12602 = Kind$Check$result$(Maybe$none, $12586); - var $12587 = $12602; + var $14023 = Kind$Check$result$(Maybe$none, $14007); + var $14008 = $14023; break; }; - var $12584 = $12587; + var $14005 = $14008; break; }; - var $12583 = $12584; + var $14004 = $14005; } else { - var $12603 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $12583 = $12603; + var $14024 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $14004 = $14024; }; - var $12577 = $12583; + var $13998 = $14004; break; case 'Kind.Term.hol': - var $12604 = self.path; - var $12605 = Kind$Term$equal$hole$($12604, _a$1); - var $12577 = $12605; + var $14025 = self.path; + var $14026 = Kind$Term$equal$hole$($14025, _a$1); + var $13998 = $14026; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40763,57 +45171,57 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12606 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $12577 = $12606; + var $14027 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $13998 = $14027; break; }; - var $12571 = $12577; + var $13992 = $13998; break; case 'Kind.Term.lam': - var $12607 = self.name; - var $12608 = self.body; + var $14028 = self.name; + var $14029 = self.body; var self = _b1$9; switch (self._) { case 'Kind.Term.lam': - var $12610 = self.name; - var $12611 = self.body; + var $14031 = self.name; + var $14032 = self.body; var _seen$17 = BitsSet$mut$set$(_id$12, _seen$5); - var _a1_body$18 = $12608(Kind$Term$var$($12607, _lv$4)); - var _b1_body$19 = $12611(Kind$Term$var$($12610, _lv$4)); + var _a1_body$18 = $14029(Kind$Term$var$($14028, _lv$4)); + var _b1_body$19 = $14032(Kind$Term$var$($14031, _lv$4)); var self = Kind$Term$equal$go$(_a1_body$18, _b1_body$19, _defs$3, Nat$succ$(_lv$4), _seen$17); switch (self._) { case 'Kind.Check.result': - var $12613 = self.value; - var $12614 = self.errors; - var self = $12613; + var $14034 = self.value; + var $14035 = self.errors; + var self = $14034; switch (self._) { case 'Maybe.some': - var $12616 = self.value; - var self = Kind$Check$result$(Maybe$some$($12616), List$nil); + var $14037 = self.value; + var self = Kind$Check$result$(Maybe$some$($14037), List$nil); switch (self._) { case 'Kind.Check.result': - var $12618 = self.value; - var $12619 = self.errors; - var $12620 = Kind$Check$result$($12618, List$concat$($12614, $12619)); - var $12617 = $12620; + var $14039 = self.value; + var $14040 = self.errors; + var $14041 = Kind$Check$result$($14039, List$concat$($14035, $14040)); + var $14038 = $14041; break; }; - var $12615 = $12617; + var $14036 = $14038; break; case 'Maybe.none': - var $12621 = Kind$Check$result$(Maybe$none, $12614); - var $12615 = $12621; + var $14042 = Kind$Check$result$(Maybe$none, $14035); + var $14036 = $14042; break; }; - var $12612 = $12615; + var $14033 = $14036; break; }; - var $12609 = $12612; + var $14030 = $14033; break; case 'Kind.Term.hol': - var $12622 = self.path; - var $12623 = Kind$Term$equal$hole$($12622, _a$1); - var $12609 = $12623; + var $14043 = self.path; + var $14044 = Kind$Term$equal$hole$($14043, _a$1); + var $14030 = $14044; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40834,82 +45242,82 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12624 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $12609 = $12624; + var $14045 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $14030 = $14045; break; }; - var $12571 = $12609; + var $13992 = $14030; break; case 'Kind.Term.app': - var $12625 = self.func; - var $12626 = self.argm; + var $14046 = self.func; + var $14047 = self.argm; var self = _b1$9; switch (self._) { case 'Kind.Term.app': - var $12628 = self.func; - var $12629 = self.argm; + var $14049 = self.func; + var $14050 = self.argm; var _seen$17 = BitsSet$mut$set$(_id$12, _seen$5); - var self = Kind$Term$equal$go$($12625, $12628, _defs$3, _lv$4, _seen$17); + var self = Kind$Term$equal$go$($14046, $14049, _defs$3, _lv$4, _seen$17); switch (self._) { case 'Kind.Check.result': - var $12631 = self.value; - var $12632 = self.errors; - var self = $12631; + var $14052 = self.value; + var $14053 = self.errors; + var self = $14052; switch (self._) { case 'Maybe.some': - var $12634 = self.value; - var self = Kind$Term$equal$go$($12626, $12629, _defs$3, _lv$4, _seen$17); + var $14055 = self.value; + var self = Kind$Term$equal$go$($14047, $14050, _defs$3, _lv$4, _seen$17); switch (self._) { case 'Kind.Check.result': - var $12636 = self.value; - var $12637 = self.errors; - var self = $12636; + var $14057 = self.value; + var $14058 = self.errors; + var self = $14057; switch (self._) { case 'Maybe.some': - var $12639 = self.value; - var self = Kind$Check$result$(Maybe$some$(($12634 && $12639)), List$nil); + var $14060 = self.value; + var self = Kind$Check$result$(Maybe$some$(($14055 && $14060)), List$nil); switch (self._) { case 'Kind.Check.result': - var $12641 = self.value; - var $12642 = self.errors; - var $12643 = Kind$Check$result$($12641, List$concat$($12637, $12642)); - var $12640 = $12643; + var $14062 = self.value; + var $14063 = self.errors; + var $14064 = Kind$Check$result$($14062, List$concat$($14058, $14063)); + var $14061 = $14064; break; }; - var $12638 = $12640; + var $14059 = $14061; break; case 'Maybe.none': - var $12644 = Kind$Check$result$(Maybe$none, $12637); - var $12638 = $12644; + var $14065 = Kind$Check$result$(Maybe$none, $14058); + var $14059 = $14065; break; }; - var self = $12638; + var self = $14059; break; }; switch (self._) { case 'Kind.Check.result': - var $12645 = self.value; - var $12646 = self.errors; - var $12647 = Kind$Check$result$($12645, List$concat$($12632, $12646)); - var $12635 = $12647; + var $14066 = self.value; + var $14067 = self.errors; + var $14068 = Kind$Check$result$($14066, List$concat$($14053, $14067)); + var $14056 = $14068; break; }; - var $12633 = $12635; + var $14054 = $14056; break; case 'Maybe.none': - var $12648 = Kind$Check$result$(Maybe$none, $12632); - var $12633 = $12648; + var $14069 = Kind$Check$result$(Maybe$none, $14053); + var $14054 = $14069; break; }; - var $12630 = $12633; + var $14051 = $14054; break; }; - var $12627 = $12630; + var $14048 = $14051; break; case 'Kind.Term.hol': - var $12649 = self.path; - var $12650 = Kind$Term$equal$hole$($12649, _a$1); - var $12627 = $12650; + var $14070 = self.path; + var $14071 = Kind$Term$equal$hole$($14070, _a$1); + var $14048 = $14071; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -40930,86 +45338,86 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12651 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $12627 = $12651; + var $14072 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $14048 = $14072; break; }; - var $12571 = $12627; + var $13992 = $14048; break; case 'Kind.Term.let': - var $12652 = self.name; - var $12653 = self.expr; - var $12654 = self.body; + var $14073 = self.name; + var $14074 = self.expr; + var $14075 = self.body; var self = _b1$9; switch (self._) { case 'Kind.Term.let': - var $12656 = self.name; - var $12657 = self.expr; - var $12658 = self.body; + var $14077 = self.name; + var $14078 = self.expr; + var $14079 = self.body; var _seen$19 = BitsSet$mut$set$(_id$12, _seen$5); - var _a1_body$20 = $12654(Kind$Term$var$($12652, _lv$4)); - var _b1_body$21 = $12658(Kind$Term$var$($12656, _lv$4)); - var self = Kind$Term$equal$go$($12653, $12657, _defs$3, _lv$4, _seen$19); + var _a1_body$20 = $14075(Kind$Term$var$($14073, _lv$4)); + var _b1_body$21 = $14079(Kind$Term$var$($14077, _lv$4)); + var self = Kind$Term$equal$go$($14074, $14078, _defs$3, _lv$4, _seen$19); switch (self._) { case 'Kind.Check.result': - var $12660 = self.value; - var $12661 = self.errors; - var self = $12660; + var $14081 = self.value; + var $14082 = self.errors; + var self = $14081; switch (self._) { case 'Maybe.some': - var $12663 = self.value; + var $14084 = self.value; var self = Kind$Term$equal$go$(_a1_body$20, _b1_body$21, _defs$3, Nat$succ$(_lv$4), _seen$19); switch (self._) { case 'Kind.Check.result': - var $12665 = self.value; - var $12666 = self.errors; - var self = $12665; + var $14086 = self.value; + var $14087 = self.errors; + var self = $14086; switch (self._) { case 'Maybe.some': - var $12668 = self.value; - var self = Kind$Check$result$(Maybe$some$(($12663 && $12668)), List$nil); + var $14089 = self.value; + var self = Kind$Check$result$(Maybe$some$(($14084 && $14089)), List$nil); switch (self._) { case 'Kind.Check.result': - var $12670 = self.value; - var $12671 = self.errors; - var $12672 = Kind$Check$result$($12670, List$concat$($12666, $12671)); - var $12669 = $12672; + var $14091 = self.value; + var $14092 = self.errors; + var $14093 = Kind$Check$result$($14091, List$concat$($14087, $14092)); + var $14090 = $14093; break; }; - var $12667 = $12669; + var $14088 = $14090; break; case 'Maybe.none': - var $12673 = Kind$Check$result$(Maybe$none, $12666); - var $12667 = $12673; + var $14094 = Kind$Check$result$(Maybe$none, $14087); + var $14088 = $14094; break; }; - var self = $12667; + var self = $14088; break; }; switch (self._) { case 'Kind.Check.result': - var $12674 = self.value; - var $12675 = self.errors; - var $12676 = Kind$Check$result$($12674, List$concat$($12661, $12675)); - var $12664 = $12676; + var $14095 = self.value; + var $14096 = self.errors; + var $14097 = Kind$Check$result$($14095, List$concat$($14082, $14096)); + var $14085 = $14097; break; }; - var $12662 = $12664; + var $14083 = $14085; break; case 'Maybe.none': - var $12677 = Kind$Check$result$(Maybe$none, $12661); - var $12662 = $12677; + var $14098 = Kind$Check$result$(Maybe$none, $14082); + var $14083 = $14098; break; }; - var $12659 = $12662; + var $14080 = $14083; break; }; - var $12655 = $12659; + var $14076 = $14080; break; case 'Kind.Term.hol': - var $12678 = self.path; - var $12679 = Kind$Term$equal$hole$($12678, _a$1); - var $12655 = $12679; + var $14099 = self.path; + var $14100 = Kind$Term$equal$hole$($14099, _a$1); + var $14076 = $14100; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41030,16 +45438,16 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12680 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $12655 = $12680; + var $14101 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $14076 = $14101; break; }; - var $12571 = $12655; + var $13992 = $14076; break; case 'Kind.Term.hol': - var $12681 = self.path; - var $12682 = Kind$Term$equal$hole$($12681, _b$2); - var $12571 = $12682; + var $14102 = self.path; + var $14103 = Kind$Term$equal$hole$($14102, _b$2); + var $13992 = $14103; break; case 'Kind.Term.var': case 'Kind.Term.get': @@ -41047,9 +45455,9 @@ module.exports = (function() { var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $12684 = self.path; - var $12685 = Kind$Term$equal$hole$($12684, _a$1); - var $12683 = $12685; + var $14105 = self.path; + var $14106 = Kind$Term$equal$hole$($14105, _a$1); + var $14104 = $14106; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41071,11 +45479,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12686 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $12683 = $12686; + var $14107 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $14104 = $14107; break; }; - var $12571 = $12683; + var $13992 = $14104; break; case 'Kind.Term.ref': case 'Kind.Term.nat': @@ -41085,9 +45493,9 @@ module.exports = (function() { var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $12688 = self.path; - var $12689 = Kind$Term$equal$hole$($12688, _a$1); - var $12687 = $12689; + var $14109 = self.path; + var $14110 = Kind$Term$equal$hole$($14109, _a$1); + var $14108 = $14110; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41109,19 +45517,19 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12690 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $12687 = $12690; + var $14111 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $14108 = $14111; break; }; - var $12571 = $12687; + var $13992 = $14108; break; case 'Kind.Term.typ': var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $12692 = self.path; - var $12693 = Kind$Term$equal$hole$($12692, _a$1); - var $12691 = $12693; + var $14113 = self.path; + var $14114 = Kind$Term$equal$hole$($14113, _a$1); + var $14112 = $14114; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41143,11 +45551,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12694 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $12691 = $12694; + var $14115 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $14112 = $14115; break; }; - var $12571 = $12691; + var $13992 = $14112; break; case 'Kind.Term.def': case 'Kind.Term.ann': @@ -41158,9 +45566,9 @@ module.exports = (function() { var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $12696 = self.path; - var $12697 = Kind$Term$equal$hole$($12696, _a$1); - var $12695 = $12697; + var $14117 = self.path; + var $14118 = Kind$Term$equal$hole$($14117, _a$1); + var $14116 = $14118; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41182,19 +45590,19 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12698 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $12695 = $12698; + var $14119 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $14116 = $14119; break; }; - var $12571 = $12695; + var $13992 = $14116; break; case 'Kind.Term.cse': var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $12700 = self.path; - var $12701 = Kind$Term$equal$hole$($12700, _a$1); - var $12699 = $12701; + var $14121 = self.path; + var $14122 = Kind$Term$equal$hole$($14121, _a$1); + var $14120 = $14122; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41216,27 +45624,27 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $12702 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $12699 = $12702; + var $14123 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $14120 = $14123; break; }; - var $12571 = $12699; + var $13992 = $14120; break; }; - var $12561 = $12571; + var $13982 = $13992; }; - var $12559 = $12561; + var $13980 = $13982; }; - var $12557 = $12559; + var $13978 = $13980; }; - return $12557; + return $13978; }; const Kind$Term$equal$go = x0 => x1 => x2 => x3 => x4 => Kind$Term$equal$go$(x0, x1, x2, x3, x4); const BitsSet$new = BitsMap$new; function BitsSet$mut$new$(_a$1) { - var $12703 = BitsSet$new; - return $12703; + var $14124 = BitsSet$new; + return $14124; }; const BitsSet$mut$new = x0 => BitsSet$mut$new$(x0); @@ -41244,185 +45652,185 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $12705 = self.name; - var $12706 = self.indx; - var self = List$at_last$($12706, _ctx$4); + var $14126 = self.name; + var $14127 = self.indx; + var self = List$at_last$($14127, _ctx$4); switch (self._) { case 'Maybe.some': - var $12708 = self.value; - var $12709 = Kind$Check$result$(Maybe$some$((() => { - var self = $12708; + var $14129 = self.value; + var $14130 = Kind$Check$result$(Maybe$some$((() => { + var self = $14129; switch (self._) { case 'Pair.new': - var $12710 = self.snd; - var $12711 = $12710; - return $12711; + var $14131 = self.snd; + var $14132 = $14131; + return $14132; }; })()), List$nil); - var $12707 = $12709; + var $14128 = $14130; break; case 'Maybe.none': - var $12712 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $12705), List$nil)); - var $12707 = $12712; + var $14133 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $14126), List$nil)); + var $14128 = $14133; break; }; - var self = $12707; + var self = $14128; break; case 'Kind.Term.ref': - var $12713 = self.name; - var self = Kind$Map$get$($12713, _defs$3); + var $14134 = self.name; + var self = Kind$Map$get$($14134, _defs$3); switch (self._) { case 'Maybe.some': - var $12715 = self.value; - var self = $12715; + var $14136 = self.value; + var self = $14136; switch (self._) { case 'Kind.Def.new': - var $12717 = self.name; - var $12718 = self.term; - var $12719 = self.type; - var $12720 = self.stat; - var _ref_name$18 = $12717; - var _ref_type$19 = $12719; - var _ref_term$20 = $12718; - var _ref_stat$21 = $12720; + var $14138 = self.name; + var $14139 = self.term; + var $14140 = self.type; + var $14141 = self.stat; + var _ref_name$18 = $14138; + var _ref_type$19 = $14140; + var _ref_term$20 = $14139; + var _ref_stat$21 = $14141; var self = _ref_stat$21; switch (self._) { case 'Kind.Status.init': - var $12722 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$waiting$(_ref_name$18), List$nil)); - var $12721 = $12722; + var $14143 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$waiting$(_ref_name$18), List$nil)); + var $14142 = $14143; break; case 'Kind.Status.wait': case 'Kind.Status.done': - var $12723 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$nil); - var $12721 = $12723; + var $14144 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$nil); + var $14142 = $14144; break; case 'Kind.Status.fail': - var $12724 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$indirect$(_ref_name$18), List$nil)); - var $12721 = $12724; + var $14145 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$indirect$(_ref_name$18), List$nil)); + var $14142 = $14145; break; }; - var $12716 = $12721; + var $14137 = $14142; break; }; - var $12714 = $12716; + var $14135 = $14137; break; case 'Maybe.none': - var $12725 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $12713), List$nil)); - var $12714 = $12725; + var $14146 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $14134), List$nil)); + var $14135 = $14146; break; }; - var self = $12714; + var self = $14135; break; case 'Kind.Term.all': - var $12726 = self.self; - var $12727 = self.name; - var $12728 = self.xtyp; - var $12729 = self.body; + var $14147 = self.self; + var $14148 = self.name; + var $14149 = self.xtyp; + var $14150 = self.body; var _ctx_size$12 = (list_length(_ctx$4)); - var _self_var$13 = Kind$Term$var$($12726, _ctx_size$12); - var _body_var$14 = Kind$Term$var$($12727, Nat$succ$(_ctx_size$12)); - var _body_ctx$15 = List$cons$(Pair$new$($12727, $12728), List$cons$(Pair$new$($12726, _term$1), _ctx$4)); - var self = Kind$Term$check$($12728, Maybe$some$(Kind$Term$typ), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var _self_var$13 = Kind$Term$var$($14147, _ctx_size$12); + var _body_var$14 = Kind$Term$var$($14148, Nat$succ$(_ctx_size$12)); + var _body_ctx$15 = List$cons$(Pair$new$($14148, $14149), List$cons$(Pair$new$($14147, _term$1), _ctx$4)); + var self = Kind$Term$check$($14149, Maybe$some$(Kind$Term$typ), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12731 = self.value; - var $12732 = self.errors; - var self = $12731; + var $14152 = self.value; + var $14153 = self.errors; + var self = $14152; switch (self._) { case 'Maybe.none': - var $12734 = Kind$Check$result$(Maybe$none, $12732); - var $12733 = $12734; + var $14155 = Kind$Check$result$(Maybe$none, $14153); + var $14154 = $14155; break; case 'Maybe.some': - var self = Kind$Term$check$($12729(_self_var$13)(_body_var$14), Maybe$some$(Kind$Term$typ), _defs$3, _body_ctx$15, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var self = Kind$Term$check$($14150(_self_var$13)(_body_var$14), Maybe$some$(Kind$Term$typ), _defs$3, _body_ctx$15, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12736 = self.value; - var $12737 = self.errors; - var self = $12736; + var $14157 = self.value; + var $14158 = self.errors; + var self = $14157; switch (self._) { case 'Maybe.none': - var $12739 = Kind$Check$result$(Maybe$none, $12737); - var $12738 = $12739; + var $14160 = Kind$Check$result$(Maybe$none, $14158); + var $14159 = $14160; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Kind$Term$typ), List$nil); switch (self._) { case 'Kind.Check.result': - var $12741 = self.value; - var $12742 = self.errors; - var $12743 = Kind$Check$result$($12741, List$concat$($12737, $12742)); - var $12740 = $12743; + var $14162 = self.value; + var $14163 = self.errors; + var $14164 = Kind$Check$result$($14162, List$concat$($14158, $14163)); + var $14161 = $14164; break; }; - var $12738 = $12740; + var $14159 = $14161; break; }; - var self = $12738; + var self = $14159; break; }; switch (self._) { case 'Kind.Check.result': - var $12744 = self.value; - var $12745 = self.errors; - var $12746 = Kind$Check$result$($12744, List$concat$($12732, $12745)); - var $12735 = $12746; + var $14165 = self.value; + var $14166 = self.errors; + var $14167 = Kind$Check$result$($14165, List$concat$($14153, $14166)); + var $14156 = $14167; break; }; - var $12733 = $12735; + var $14154 = $14156; break; }; - var $12730 = $12733; + var $14151 = $14154; break; }; - var self = $12730; + var self = $14151; break; case 'Kind.Term.lam': - var $12747 = self.name; - var $12748 = self.body; + var $14168 = self.name; + var $14169 = self.body; var self = _type$2; switch (self._) { case 'Maybe.some': - var $12750 = self.value; - var _typv$10 = Kind$Term$reduce$($12750, _defs$3); + var $14171 = self.value; + var _typv$10 = Kind$Term$reduce$($14171, _defs$3); var self = _typv$10; switch (self._) { case 'Kind.Term.all': - var $12752 = self.xtyp; - var $12753 = self.body; + var $14173 = self.xtyp; + var $14174 = self.body; var _ctx_size$16 = (list_length(_ctx$4)); var _self_var$17 = _term$1; - var _body_var$18 = Kind$Term$var$($12747, _ctx_size$16); - var _body_typ$19 = $12753(_self_var$17)(_body_var$18); - var _body_ctx$20 = List$cons$(Pair$new$($12747, $12752), _ctx$4); - var self = Kind$Term$check$($12748(_body_var$18), Maybe$some$(_body_typ$19), _defs$3, _body_ctx$20, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var _body_var$18 = Kind$Term$var$($14168, _ctx_size$16); + var _body_typ$19 = $14174(_self_var$17)(_body_var$18); + var _body_ctx$20 = List$cons$(Pair$new$($14168, $14173), _ctx$4); + var self = Kind$Term$check$($14169(_body_var$18), Maybe$some$(_body_typ$19), _defs$3, _body_ctx$20, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12755 = self.value; - var $12756 = self.errors; - var self = $12755; + var $14176 = self.value; + var $14177 = self.errors; + var self = $14176; switch (self._) { case 'Maybe.none': - var $12758 = Kind$Check$result$(Maybe$none, $12756); - var $12757 = $12758; + var $14179 = Kind$Check$result$(Maybe$none, $14177); + var $14178 = $14179; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($12750), List$nil); + var self = Kind$Check$result$(Maybe$some$($14171), List$nil); switch (self._) { case 'Kind.Check.result': - var $12760 = self.value; - var $12761 = self.errors; - var $12762 = Kind$Check$result$($12760, List$concat$($12756, $12761)); - var $12759 = $12762; + var $14181 = self.value; + var $14182 = self.errors; + var $14183 = Kind$Check$result$($14181, List$concat$($14177, $14182)); + var $14180 = $14183; break; }; - var $12757 = $12759; + var $14178 = $14180; break; }; - var $12754 = $12757; + var $14175 = $14178; break; }; - var $12751 = $12754; + var $14172 = $14175; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -41430,9 +45838,9 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.ori': var _expected$13 = Either$left$("function"); - var _detected$14 = Either$right$($12750); - var $12763 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$13, _detected$14, _ctx$4), List$nil)); - var $12751 = $12763; + var _detected$14 = Either$right$($14171); + var $14184 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$13, _detected$14, _ctx$4), List$nil)); + var $14172 = $14184; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -41441,15 +45849,15 @@ module.exports = (function() { case 'Kind.Term.str': case 'Kind.Term.new': var _expected$12 = Either$left$("function"); - var _detected$13 = Either$right$($12750); - var $12764 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$12, _detected$13, _ctx$4), List$nil)); - var $12751 = $12764; + var _detected$13 = Either$right$($14171); + var $14185 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$12, _detected$13, _ctx$4), List$nil)); + var $14172 = $14185; break; case 'Kind.Term.typ': var _expected$11 = Either$left$("function"); - var _detected$12 = Either$right$($12750); - var $12765 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$11, _detected$12, _ctx$4), List$nil)); - var $12751 = $12765; + var _detected$12 = Either$right$($14171); + var $14186 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$11, _detected$12, _ctx$4), List$nil)); + var $14172 = $14186; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -41459,74 +45867,74 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': var _expected$14 = Either$left$("function"); - var _detected$15 = Either$right$($12750); - var $12766 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$14, _detected$15, _ctx$4), List$nil)); - var $12751 = $12766; + var _detected$15 = Either$right$($14171); + var $14187 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$14, _detected$15, _ctx$4), List$nil)); + var $14172 = $14187; break; case 'Kind.Term.cse': var _expected$17 = Either$left$("function"); - var _detected$18 = Either$right$($12750); - var $12767 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$17, _detected$18, _ctx$4), List$nil)); - var $12751 = $12767; + var _detected$18 = Either$right$($14171); + var $14188 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$17, _detected$18, _ctx$4), List$nil)); + var $14172 = $14188; break; }; - var $12749 = $12751; + var $14170 = $14172; break; case 'Maybe.none': var _lam_type$9 = Kind$Term$hol$(Bits$e); var _lam_term$10 = Kind$Term$ann$(Bool$false, _term$1, _lam_type$9); - var $12768 = Kind$Term$check$patch$(_lam_term$10, _type$2, _path$5); - var $12749 = $12768; + var $14189 = Kind$Term$check$patch$(_lam_term$10, _type$2, _path$5); + var $14170 = $14189; break; }; - var self = $12749; + var self = $14170; break; case 'Kind.Term.app': - var $12769 = self.func; - var $12770 = self.argm; - var self = Kind$Term$check$($12769, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var $14190 = self.func; + var $14191 = self.argm; + var self = Kind$Term$check$($14190, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12772 = self.value; - var $12773 = self.errors; - var self = $12772; + var $14193 = self.value; + var $14194 = self.errors; + var self = $14193; switch (self._) { case 'Maybe.some': - var $12775 = self.value; - var _func_typ$12 = Kind$Term$reduce$($12775, _defs$3); + var $14196 = self.value; + var _func_typ$12 = Kind$Term$reduce$($14196, _defs$3); var self = _func_typ$12; switch (self._) { case 'Kind.Term.all': - var $12777 = self.xtyp; - var $12778 = self.body; - var self = Kind$Term$check$($12770, Maybe$some$($12777), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var $14198 = self.xtyp; + var $14199 = self.body; + var self = Kind$Term$check$($14191, Maybe$some$($14198), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12780 = self.value; - var $12781 = self.errors; - var self = $12780; + var $14201 = self.value; + var $14202 = self.errors; + var self = $14201; switch (self._) { case 'Maybe.none': - var $12783 = Kind$Check$result$(Maybe$none, $12781); - var $12782 = $12783; + var $14204 = Kind$Check$result$(Maybe$none, $14202); + var $14203 = $14204; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($12778($12769)($12770)), List$nil); + var self = Kind$Check$result$(Maybe$some$($14199($14190)($14191)), List$nil); switch (self._) { case 'Kind.Check.result': - var $12785 = self.value; - var $12786 = self.errors; - var $12787 = Kind$Check$result$($12785, List$concat$($12781, $12786)); - var $12784 = $12787; + var $14206 = self.value; + var $14207 = self.errors; + var $14208 = Kind$Check$result$($14206, List$concat$($14202, $14207)); + var $14205 = $14208; break; }; - var $12782 = $12784; + var $14203 = $14205; break; }; - var $12779 = $12782; + var $14200 = $14203; break; }; - var self = $12779; + var self = $14200; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -41535,12 +45943,12 @@ module.exports = (function() { case 'Kind.Term.ori': var _expected$15 = Either$left$("function"); var _detected$16 = Either$right$(_func_typ$12); - var self = $12769; + var self = $14190; switch (self._) { case 'Kind.Term.ori': - var $12789 = self.orig; - var $12790 = Maybe$some$($12789); - var _orig$17 = $12790; + var $14210 = self.orig; + var $14211 = Maybe$some$($14210); + var _orig$17 = $14211; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41562,12 +45970,12 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12791 = _orig$6; - var _orig$17 = $12791; + var $14212 = _orig$6; + var _orig$17 = $14212; break; }; - var $12788 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$17, _expected$15, _detected$16, _ctx$4), List$nil)); - var self = $12788; + var $14209 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$17, _expected$15, _detected$16, _ctx$4), List$nil)); + var self = $14209; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -41577,12 +45985,12 @@ module.exports = (function() { case 'Kind.Term.new': var _expected$14 = Either$left$("function"); var _detected$15 = Either$right$(_func_typ$12); - var self = $12769; + var self = $14190; switch (self._) { case 'Kind.Term.ori': - var $12793 = self.orig; - var $12794 = Maybe$some$($12793); - var _orig$16 = $12794; + var $14214 = self.orig; + var $14215 = Maybe$some$($14214); + var _orig$16 = $14215; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41604,22 +46012,22 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12795 = _orig$6; - var _orig$16 = $12795; + var $14216 = _orig$6; + var _orig$16 = $14216; break; }; - var $12792 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$16, _expected$14, _detected$15, _ctx$4), List$nil)); - var self = $12792; + var $14213 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$16, _expected$14, _detected$15, _ctx$4), List$nil)); + var self = $14213; break; case 'Kind.Term.typ': var _expected$13 = Either$left$("function"); var _detected$14 = Either$right$(_func_typ$12); - var self = $12769; + var self = $14190; switch (self._) { case 'Kind.Term.ori': - var $12797 = self.orig; - var $12798 = Maybe$some$($12797); - var _orig$15 = $12798; + var $14218 = self.orig; + var $14219 = Maybe$some$($14218); + var _orig$15 = $14219; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41641,12 +46049,12 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12799 = _orig$6; - var _orig$15 = $12799; + var $14220 = _orig$6; + var _orig$15 = $14220; break; }; - var $12796 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$15, _expected$13, _detected$14, _ctx$4), List$nil)); - var self = $12796; + var $14217 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$15, _expected$13, _detected$14, _ctx$4), List$nil)); + var self = $14217; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -41657,12 +46065,12 @@ module.exports = (function() { case 'Kind.Term.ope': var _expected$16 = Either$left$("function"); var _detected$17 = Either$right$(_func_typ$12); - var self = $12769; + var self = $14190; switch (self._) { case 'Kind.Term.ori': - var $12801 = self.orig; - var $12802 = Maybe$some$($12801); - var _orig$18 = $12802; + var $14222 = self.orig; + var $14223 = Maybe$some$($14222); + var _orig$18 = $14223; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41684,22 +46092,22 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12803 = _orig$6; - var _orig$18 = $12803; + var $14224 = _orig$6; + var _orig$18 = $14224; break; }; - var $12800 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$18, _expected$16, _detected$17, _ctx$4), List$nil)); - var self = $12800; + var $14221 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$18, _expected$16, _detected$17, _ctx$4), List$nil)); + var self = $14221; break; case 'Kind.Term.cse': var _expected$19 = Either$left$("function"); var _detected$20 = Either$right$(_func_typ$12); - var self = $12769; + var self = $14190; switch (self._) { case 'Kind.Term.ori': - var $12805 = self.orig; - var $12806 = Maybe$some$($12805); - var _orig$21 = $12806; + var $14226 = self.orig; + var $14227 = Maybe$some$($14226); + var _orig$21 = $14227; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -41721,724 +46129,724 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12807 = _orig$6; - var _orig$21 = $12807; + var $14228 = _orig$6; + var _orig$21 = $14228; break; }; - var $12804 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$21, _expected$19, _detected$20, _ctx$4), List$nil)); - var self = $12804; + var $14225 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$21, _expected$19, _detected$20, _ctx$4), List$nil)); + var self = $14225; break; }; switch (self._) { case 'Kind.Check.result': - var $12808 = self.value; - var $12809 = self.errors; - var $12810 = Kind$Check$result$($12808, List$concat$($12773, $12809)); - var $12776 = $12810; + var $14229 = self.value; + var $14230 = self.errors; + var $14231 = Kind$Check$result$($14229, List$concat$($14194, $14230)); + var $14197 = $14231; break; }; - var $12774 = $12776; + var $14195 = $14197; break; case 'Maybe.none': - var $12811 = Kind$Check$result$(Maybe$none, $12773); - var $12774 = $12811; + var $14232 = Kind$Check$result$(Maybe$none, $14194); + var $14195 = $14232; break; }; - var $12771 = $12774; + var $14192 = $14195; break; }; - var self = $12771; + var self = $14192; break; case 'Kind.Term.let': - var $12812 = self.name; - var $12813 = self.expr; - var $12814 = self.body; + var $14233 = self.name; + var $14234 = self.expr; + var $14235 = self.body; var _ctx_size$10 = (list_length(_ctx$4)); - var self = Kind$Term$check$($12813, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var self = Kind$Term$check$($14234, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12816 = self.value; - var $12817 = self.errors; - var self = $12816; + var $14237 = self.value; + var $14238 = self.errors; + var self = $14237; switch (self._) { case 'Maybe.some': - var $12819 = self.value; - var _body_val$14 = $12814(Kind$Term$var$($12812, _ctx_size$10)); - var _body_ctx$15 = List$cons$(Pair$new$($12812, $12819), _ctx$4); + var $14240 = self.value; + var _body_val$14 = $14235(Kind$Term$var$($14233, _ctx_size$10)); + var _body_ctx$15 = List$cons$(Pair$new$($14233, $14240), _ctx$4); var self = Kind$Term$check$(_body_val$14, _type$2, _defs$3, _body_ctx$15, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12821 = self.value; - var $12822 = self.errors; - var self = $12821; + var $14242 = self.value; + var $14243 = self.errors; + var self = $14242; switch (self._) { case 'Maybe.some': - var $12824 = self.value; - var self = Kind$Check$result$(Maybe$some$($12824), List$nil); + var $14245 = self.value; + var self = Kind$Check$result$(Maybe$some$($14245), List$nil); switch (self._) { case 'Kind.Check.result': - var $12826 = self.value; - var $12827 = self.errors; - var $12828 = Kind$Check$result$($12826, List$concat$($12822, $12827)); - var $12825 = $12828; + var $14247 = self.value; + var $14248 = self.errors; + var $14249 = Kind$Check$result$($14247, List$concat$($14243, $14248)); + var $14246 = $14249; break; }; - var $12823 = $12825; + var $14244 = $14246; break; case 'Maybe.none': - var $12829 = Kind$Check$result$(Maybe$none, $12822); - var $12823 = $12829; + var $14250 = Kind$Check$result$(Maybe$none, $14243); + var $14244 = $14250; break; }; - var self = $12823; + var self = $14244; break; }; switch (self._) { case 'Kind.Check.result': - var $12830 = self.value; - var $12831 = self.errors; - var $12832 = Kind$Check$result$($12830, List$concat$($12817, $12831)); - var $12820 = $12832; + var $14251 = self.value; + var $14252 = self.errors; + var $14253 = Kind$Check$result$($14251, List$concat$($14238, $14252)); + var $14241 = $14253; break; }; - var $12818 = $12820; + var $14239 = $14241; break; case 'Maybe.none': - var $12833 = Kind$Check$result$(Maybe$none, $12817); - var $12818 = $12833; + var $14254 = Kind$Check$result$(Maybe$none, $14238); + var $14239 = $14254; break; }; - var $12815 = $12818; + var $14236 = $14239; break; }; - var self = $12815; + var self = $14236; break; case 'Kind.Term.def': - var $12834 = self.name; - var $12835 = self.expr; - var $12836 = self.body; + var $14255 = self.name; + var $14256 = self.expr; + var $14257 = self.body; var _ctx_size$10 = (list_length(_ctx$4)); - var self = Kind$Term$check$($12835, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var self = Kind$Term$check$($14256, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12838 = self.value; - var $12839 = self.errors; - var self = $12838; + var $14259 = self.value; + var $14260 = self.errors; + var self = $14259; switch (self._) { case 'Maybe.some': - var $12841 = self.value; - var _body_val$14 = $12836($12835); - var _body_ctx$15 = List$cons$(Pair$new$($12834, $12841), _ctx$4); + var $14262 = self.value; + var _body_val$14 = $14257($14256); + var _body_ctx$15 = List$cons$(Pair$new$($14255, $14262), _ctx$4); var self = Kind$Term$check$(_body_val$14, _type$2, _defs$3, _body_ctx$15, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12843 = self.value; - var $12844 = self.errors; - var self = $12843; + var $14264 = self.value; + var $14265 = self.errors; + var self = $14264; switch (self._) { case 'Maybe.some': - var $12846 = self.value; - var self = Kind$Check$result$(Maybe$some$($12846), List$nil); + var $14267 = self.value; + var self = Kind$Check$result$(Maybe$some$($14267), List$nil); switch (self._) { case 'Kind.Check.result': - var $12848 = self.value; - var $12849 = self.errors; - var $12850 = Kind$Check$result$($12848, List$concat$($12844, $12849)); - var $12847 = $12850; + var $14269 = self.value; + var $14270 = self.errors; + var $14271 = Kind$Check$result$($14269, List$concat$($14265, $14270)); + var $14268 = $14271; break; }; - var $12845 = $12847; + var $14266 = $14268; break; case 'Maybe.none': - var $12851 = Kind$Check$result$(Maybe$none, $12844); - var $12845 = $12851; + var $14272 = Kind$Check$result$(Maybe$none, $14265); + var $14266 = $14272; break; }; - var self = $12845; + var self = $14266; break; }; switch (self._) { case 'Kind.Check.result': - var $12852 = self.value; - var $12853 = self.errors; - var $12854 = Kind$Check$result$($12852, List$concat$($12839, $12853)); - var $12842 = $12854; + var $14273 = self.value; + var $14274 = self.errors; + var $14275 = Kind$Check$result$($14273, List$concat$($14260, $14274)); + var $14263 = $14275; break; }; - var $12840 = $12842; + var $14261 = $14263; break; case 'Maybe.none': - var $12855 = Kind$Check$result$(Maybe$none, $12839); - var $12840 = $12855; + var $14276 = Kind$Check$result$(Maybe$none, $14260); + var $14261 = $14276; break; }; - var $12837 = $12840; + var $14258 = $14261; break; }; - var self = $12837; + var self = $14258; break; case 'Kind.Term.ann': - var $12856 = self.done; - var $12857 = self.term; - var $12858 = self.type; - var self = $12856; + var $14277 = self.done; + var $14278 = self.term; + var $14279 = self.type; + var self = $14277; if (self) { - var $12860 = Kind$Check$result$(Maybe$some$($12858), List$nil); - var $12859 = $12860; + var $14281 = Kind$Check$result$(Maybe$some$($14279), List$nil); + var $14280 = $14281; } else { - var self = Kind$Term$check$($12857, Maybe$some$($12858), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var self = Kind$Term$check$($14278, Maybe$some$($14279), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12862 = self.value; - var $12863 = self.errors; - var self = $12862; + var $14283 = self.value; + var $14284 = self.errors; + var self = $14283; switch (self._) { case 'Maybe.none': - var $12865 = Kind$Check$result$(Maybe$none, $12863); - var $12864 = $12865; + var $14286 = Kind$Check$result$(Maybe$none, $14284); + var $14285 = $14286; break; case 'Maybe.some': - var self = Kind$Term$check$($12858, Maybe$some$(Kind$Term$typ), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var self = Kind$Term$check$($14279, Maybe$some$(Kind$Term$typ), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12867 = self.value; - var $12868 = self.errors; - var self = $12867; + var $14288 = self.value; + var $14289 = self.errors; + var self = $14288; switch (self._) { case 'Maybe.none': - var $12870 = Kind$Check$result$(Maybe$none, $12868); - var $12869 = $12870; + var $14291 = Kind$Check$result$(Maybe$none, $14289); + var $14290 = $14291; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($12858), List$nil); + var self = Kind$Check$result$(Maybe$some$($14279), List$nil); switch (self._) { case 'Kind.Check.result': - var $12872 = self.value; - var $12873 = self.errors; - var $12874 = Kind$Check$result$($12872, List$concat$($12868, $12873)); - var $12871 = $12874; + var $14293 = self.value; + var $14294 = self.errors; + var $14295 = Kind$Check$result$($14293, List$concat$($14289, $14294)); + var $14292 = $14295; break; }; - var $12869 = $12871; + var $14290 = $14292; break; }; - var self = $12869; + var self = $14290; break; }; switch (self._) { case 'Kind.Check.result': - var $12875 = self.value; - var $12876 = self.errors; - var $12877 = Kind$Check$result$($12875, List$concat$($12863, $12876)); - var $12866 = $12877; + var $14296 = self.value; + var $14297 = self.errors; + var $14298 = Kind$Check$result$($14296, List$concat$($14284, $14297)); + var $14287 = $14298; break; }; - var $12864 = $12866; + var $14285 = $14287; break; }; - var $12861 = $12864; + var $14282 = $14285; break; }; - var $12859 = $12861; + var $14280 = $14282; }; - var self = $12859; + var self = $14280; break; case 'Kind.Term.gol': - var $12878 = self.name; - var $12879 = self.dref; - var $12880 = self.verb; - var $12881 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$show_goal$($12878, $12879, $12880, _type$2, _ctx$4), List$nil)); - var self = $12881; + var $14299 = self.name; + var $14300 = self.dref; + var $14301 = self.verb; + var $14302 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$show_goal$($14299, $14300, $14301, _type$2, _ctx$4), List$nil)); + var self = $14302; break; case 'Kind.Term.num': - var $12882 = self.sign; - var $12883 = self.numb; - var $12884 = self.frac; - var _dsug$10 = Kind$Term$check$expand$num$($12882, $12883, $12884, _type$2, _defs$3); - var $12885 = Kind$Term$check$patch$(_dsug$10, _type$2, _path$5); - var self = $12885; + var $14303 = self.sign; + var $14304 = self.numb; + var $14305 = self.frac; + var _dsug$10 = Kind$Term$check$expand$num$($14303, $14304, $14305, _type$2, _defs$3); + var $14306 = Kind$Term$check$patch$(_dsug$10, _type$2, _path$5); + var self = $14306; break; case 'Kind.Term.cse': - var $12886 = self.expr; - var $12887 = self.name; - var $12888 = self.with; - var $12889 = self.cses; - var $12890 = self.moti; - var _expr$13 = $12886; + var $14307 = self.expr; + var $14308 = self.name; + var $14309 = self.with; + var $14310 = self.cses; + var $14311 = self.moti; + var _expr$13 = $14307; var self = Kind$Term$check$(_expr$13, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12892 = self.value; - var $12893 = self.errors; - var self = $12892; + var $14313 = self.value; + var $14314 = self.errors; + var self = $14313; switch (self._) { case 'Maybe.some': - var $12895 = self.value; - var self = Kind$Term$check$infer_types_of_with$($12888, _defs$3, _ctx$4, _path$5, _orig$6); + var $14316 = self.value; + var self = Kind$Term$check$infer_types_of_with$($14309, _defs$3, _ctx$4, _path$5, _orig$6); switch (self._) { case 'Kind.Check.result': - var $12897 = self.value; - var $12898 = self.errors; - var self = $12897; + var $14318 = self.value; + var $14319 = self.errors; + var self = $14318; switch (self._) { case 'Maybe.some': - var $12900 = self.value; - var _dsug$20 = Kind$Term$check$expand$cse$($12886, $12887, $12900, $12889, $12890, $12895, _type$2, _defs$3, _ctx$4); + var $14321 = self.value; + var _dsug$20 = Kind$Term$check$expand$cse$($14307, $14308, $14321, $14310, $14311, $14316, _type$2, _defs$3, _ctx$4); var self = _dsug$20; switch (self._) { case 'Maybe.some': - var $12902 = self.value; - var $12903 = Kind$Term$check$patch$($12902, _type$2, _path$5); - var self = $12903; + var $14323 = self.value; + var $14324 = Kind$Term$check$patch$($14323, _type$2, _path$5); + var self = $14324; break; case 'Maybe.none': - var $12904 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $12904; + var $14325 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $14325; break; }; switch (self._) { case 'Kind.Check.result': - var $12905 = self.value; - var $12906 = self.errors; - var $12907 = Kind$Check$result$($12905, List$concat$($12898, $12906)); - var $12901 = $12907; + var $14326 = self.value; + var $14327 = self.errors; + var $14328 = Kind$Check$result$($14326, List$concat$($14319, $14327)); + var $14322 = $14328; break; }; - var $12899 = $12901; + var $14320 = $14322; break; case 'Maybe.none': - var $12908 = Kind$Check$result$(Maybe$none, $12898); - var $12899 = $12908; + var $14329 = Kind$Check$result$(Maybe$none, $14319); + var $14320 = $14329; break; }; - var self = $12899; + var self = $14320; break; }; switch (self._) { case 'Kind.Check.result': - var $12909 = self.value; - var $12910 = self.errors; - var $12911 = Kind$Check$result$($12909, List$concat$($12893, $12910)); - var $12896 = $12911; + var $14330 = self.value; + var $14331 = self.errors; + var $14332 = Kind$Check$result$($14330, List$concat$($14314, $14331)); + var $14317 = $14332; break; }; - var $12894 = $12896; + var $14315 = $14317; break; case 'Maybe.none': - var $12912 = Kind$Check$result$(Maybe$none, $12893); - var $12894 = $12912; + var $14333 = Kind$Check$result$(Maybe$none, $14314); + var $14315 = $14333; break; }; - var $12891 = $12894; + var $14312 = $14315; break; }; - var self = $12891; + var self = $14312; break; case 'Kind.Term.new': - var $12913 = self.args; - var _dsug$8 = Kind$Term$check$expand$new$($12913, _type$2, _defs$3); + var $14334 = self.args; + var _dsug$8 = Kind$Term$check$expand$new$($14334, _type$2, _defs$3); var self = _dsug$8; switch (self._) { case 'Maybe.some': - var $12915 = self.value; - var $12916 = Kind$Term$check$patch$($12915, _type$2, _path$5); - var $12914 = $12916; + var $14336 = self.value; + var $14337 = Kind$Term$check$patch$($14336, _type$2, _path$5); + var $14335 = $14337; break; case 'Maybe.none': - var $12917 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var $12914 = $12917; + var $14338 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var $14335 = $14338; break; }; - var self = $12914; + var self = $14335; break; case 'Kind.Term.get': - var $12918 = self.expr; - var $12919 = self.fkey; - var _expr$9 = $12918; + var $14339 = self.expr; + var $14340 = self.fkey; + var _expr$9 = $14339; var self = Kind$Term$check$(_expr$9, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12921 = self.value; - var $12922 = self.errors; - var self = $12921; + var $14342 = self.value; + var $14343 = self.errors; + var self = $14342; switch (self._) { case 'Maybe.some': - var $12924 = self.value; - var _dsug$13 = Kind$Term$check$expand$get$($12918, $12919, $12924, _defs$3); + var $14345 = self.value; + var _dsug$13 = Kind$Term$check$expand$get$($14339, $14340, $14345, _defs$3); var self = _dsug$13; switch (self._) { case 'Maybe.some': - var $12926 = self.value; - var $12927 = Kind$Term$check$patch$($12926, _type$2, _path$5); - var self = $12927; + var $14347 = self.value; + var $14348 = Kind$Term$check$patch$($14347, _type$2, _path$5); + var self = $14348; break; case 'Maybe.none': - var $12928 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $12928; + var $14349 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $14349; break; }; switch (self._) { case 'Kind.Check.result': - var $12929 = self.value; - var $12930 = self.errors; - var $12931 = Kind$Check$result$($12929, List$concat$($12922, $12930)); - var $12925 = $12931; + var $14350 = self.value; + var $14351 = self.errors; + var $14352 = Kind$Check$result$($14350, List$concat$($14343, $14351)); + var $14346 = $14352; break; }; - var $12923 = $12925; + var $14344 = $14346; break; case 'Maybe.none': - var $12932 = Kind$Check$result$(Maybe$none, $12922); - var $12923 = $12932; + var $14353 = Kind$Check$result$(Maybe$none, $14343); + var $14344 = $14353; break; }; - var $12920 = $12923; + var $14341 = $14344; break; }; - var self = $12920; + var self = $14341; break; case 'Kind.Term.set': - var $12933 = self.expr; - var $12934 = self.fkey; - var $12935 = self.fval; - var _expr$10 = $12933; + var $14354 = self.expr; + var $14355 = self.fkey; + var $14356 = self.fval; + var _expr$10 = $14354; var self = Kind$Term$check$(_expr$10, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12937 = self.value; - var $12938 = self.errors; - var self = $12937; + var $14358 = self.value; + var $14359 = self.errors; + var self = $14358; switch (self._) { case 'Maybe.some': - var $12940 = self.value; - var _dsug$14 = Kind$Term$check$expand$set$($12933, $12934, $12935, $12940, _defs$3); + var $14361 = self.value; + var _dsug$14 = Kind$Term$check$expand$set$($14354, $14355, $14356, $14361, _defs$3); var self = _dsug$14; switch (self._) { case 'Maybe.some': - var $12942 = self.value; - var $12943 = Kind$Term$check$patch$($12942, _type$2, _path$5); - var self = $12943; + var $14363 = self.value; + var $14364 = Kind$Term$check$patch$($14363, _type$2, _path$5); + var self = $14364; break; case 'Maybe.none': - var $12944 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $12944; + var $14365 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $14365; break; }; switch (self._) { case 'Kind.Check.result': - var $12945 = self.value; - var $12946 = self.errors; - var $12947 = Kind$Check$result$($12945, List$concat$($12938, $12946)); - var $12941 = $12947; + var $14366 = self.value; + var $14367 = self.errors; + var $14368 = Kind$Check$result$($14366, List$concat$($14359, $14367)); + var $14362 = $14368; break; }; - var $12939 = $12941; + var $14360 = $14362; break; case 'Maybe.none': - var $12948 = Kind$Check$result$(Maybe$none, $12938); - var $12939 = $12948; + var $14369 = Kind$Check$result$(Maybe$none, $14359); + var $14360 = $14369; break; }; - var $12936 = $12939; + var $14357 = $14360; break; }; - var self = $12936; + var self = $14357; break; case 'Kind.Term.ope': - var $12949 = self.name; - var $12950 = self.arg0; - var $12951 = self.arg1; + var $14370 = self.name; + var $14371 = self.arg0; + var $14372 = self.arg1; var _otyp$10 = Maybe$default$(_type$2, Kind$Term$hol$(Bits$e)); - var _dsug$11 = Kind$Term$check$expand$ope$(Bool$true, $12949, $12950, $12951, _otyp$10, _defs$3); + var _dsug$11 = Kind$Term$check$expand$ope$(Bool$true, $14370, $14371, $14372, _otyp$10, _defs$3); var self = _dsug$11; switch (self._) { case 'Maybe.some': - var $12953 = self.value; - var $12954 = Kind$Term$check$patch$($12953, _type$2, _path$5); - var $12952 = $12954; + var $14374 = self.value; + var $14375 = Kind$Term$check$patch$($14374, _type$2, _path$5); + var $14373 = $14375; break; case 'Maybe.none': - var self = Kind$Term$check$($12950, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var self = Kind$Term$check$($14371, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $12956 = self.value; - var $12957 = self.errors; - var self = $12956; + var $14377 = self.value; + var $14378 = self.errors; + var self = $14377; switch (self._) { case 'Maybe.some': - var $12959 = self.value; - var _dsug$15 = Kind$Term$check$expand$ope$(Bool$false, $12949, $12950, $12951, $12959, _defs$3); + var $14380 = self.value; + var _dsug$15 = Kind$Term$check$expand$ope$(Bool$false, $14370, $14371, $14372, $14380, _defs$3); var self = _dsug$15; switch (self._) { case 'Maybe.some': - var $12961 = self.value; - var $12962 = Kind$Term$check$patch$($12961, _type$2, _path$5); - var self = $12962; + var $14382 = self.value; + var $14383 = Kind$Term$check$patch$($14382, _type$2, _path$5); + var self = $14383; break; case 'Maybe.none': - var $12963 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $12963; + var $14384 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $14384; break; }; switch (self._) { case 'Kind.Check.result': - var $12964 = self.value; - var $12965 = self.errors; - var $12966 = Kind$Check$result$($12964, List$concat$($12957, $12965)); - var $12960 = $12966; + var $14385 = self.value; + var $14386 = self.errors; + var $14387 = Kind$Check$result$($14385, List$concat$($14378, $14386)); + var $14381 = $14387; break; }; - var $12958 = $12960; + var $14379 = $14381; break; case 'Maybe.none': - var $12967 = Kind$Check$result$(Maybe$none, $12957); - var $12958 = $12967; + var $14388 = Kind$Check$result$(Maybe$none, $14378); + var $14379 = $14388; break; }; - var $12955 = $12958; + var $14376 = $14379; break; }; - var $12952 = $12955; + var $14373 = $14376; break; }; - var self = $12952; + var self = $14373; break; case 'Kind.Term.ori': - var $12968 = self.orig; - var $12969 = self.expr; - var $12970 = Kind$Term$check$($12969, _type$2, _defs$3, _ctx$4, _path$5, Maybe$some$($12968)); - var self = $12970; + var $14389 = self.orig; + var $14390 = self.expr; + var $14391 = Kind$Term$check$($14390, _type$2, _defs$3, _ctx$4, _path$5, Maybe$some$($14389)); + var self = $14391; break; case 'Kind.Term.typ': - var $12971 = Kind$Check$result$(Maybe$some$(Kind$Term$typ), List$nil); - var self = $12971; + var $14392 = Kind$Check$result$(Maybe$some$(Kind$Term$typ), List$nil); + var self = $14392; break; case 'Kind.Term.hol': - var $12972 = Kind$Check$result$(_type$2, List$nil); - var self = $12972; + var $14393 = Kind$Check$result$(_type$2, List$nil); + var self = $14393; break; case 'Kind.Term.nat': var self = _type$2; switch (self._) { case 'Maybe.some': - var $12974 = self.value; - var _tnam$9 = Kind$Term$check$get_name_of_self_type$($12974, _defs$3); + var $14395 = self.value; + var _tnam$9 = Kind$Term$check$get_name_of_self_type$($14395, _defs$3); var self = _tnam$9; switch (self._) { case 'Maybe.some': - var $12976 = self.value; - var self = ($12976 === "Nat"); + var $14397 = self.value; + var self = ($14397 === "Nat"); if (self) { - var $12978 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); - var $12977 = $12978; + var $14399 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); + var $14398 = $14399; } else { - var _cast$11 = Kind$Term$ref$(($12976 + ".from_nat")); + var _cast$11 = Kind$Term$ref$(($14397 + ".from_nat")); var _cast$12 = Kind$Term$app$(_cast$11, _term$1); - var $12979 = Kind$Term$check$patch$(_cast$12, _type$2, _path$5); - var $12977 = $12979; + var $14400 = Kind$Term$check$patch$(_cast$12, _type$2, _path$5); + var $14398 = $14400; }; - var $12975 = $12977; + var $14396 = $14398; break; case 'Maybe.none': - var $12980 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); - var $12975 = $12980; + var $14401 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); + var $14396 = $14401; break; }; - var $12973 = $12975; + var $14394 = $14396; break; case 'Maybe.none': - var $12981 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); - var $12973 = $12981; + var $14402 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); + var $14394 = $14402; break; }; - var self = $12973; + var self = $14394; break; case 'Kind.Term.chr': var self = Kind$Term$check$direct$(Kind$Term$ref$("Word.from_bits"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $12983 = self.value; - var $12984 = self.errors; - var self = $12983; + var $14404 = self.value; + var $14405 = self.errors; + var self = $14404; switch (self._) { case 'Maybe.none': - var $12986 = Kind$Check$result$(Maybe$none, $12984); - var $12985 = $12986; + var $14407 = Kind$Check$result$(Maybe$none, $14405); + var $14406 = $14407; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("U16.new"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $12988 = self.value; - var $12989 = self.errors; - var self = $12988; + var $14409 = self.value; + var $14410 = self.errors; + var self = $14409; switch (self._) { case 'Maybe.none': - var $12991 = Kind$Check$result$(Maybe$none, $12989); - var $12990 = $12991; + var $14412 = Kind$Check$result$(Maybe$none, $14410); + var $14411 = $14412; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("Char"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $12993 = self.value; - var $12994 = self.errors; - var $12995 = Kind$Check$result$($12993, List$concat$($12989, $12994)); - var $12992 = $12995; + var $14414 = self.value; + var $14415 = self.errors; + var $14416 = Kind$Check$result$($14414, List$concat$($14410, $14415)); + var $14413 = $14416; break; }; - var $12990 = $12992; + var $14411 = $14413; break; }; - var self = $12990; + var self = $14411; break; }; switch (self._) { case 'Kind.Check.result': - var $12996 = self.value; - var $12997 = self.errors; - var $12998 = Kind$Check$result$($12996, List$concat$($12984, $12997)); - var $12987 = $12998; + var $14417 = self.value; + var $14418 = self.errors; + var $14419 = Kind$Check$result$($14417, List$concat$($14405, $14418)); + var $14408 = $14419; break; }; - var $12985 = $12987; + var $14406 = $14408; break; }; - var $12982 = $12985; + var $14403 = $14406; break; }; - var self = $12982; + var self = $14403; break; case 'Kind.Term.str': var self = Kind$Term$check$direct$(Kind$Term$ref$("Word.from_bits"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $13000 = self.value; - var $13001 = self.errors; - var self = $13000; + var $14421 = self.value; + var $14422 = self.errors; + var self = $14421; switch (self._) { case 'Maybe.none': - var $13003 = Kind$Check$result$(Maybe$none, $13001); - var $13002 = $13003; + var $14424 = Kind$Check$result$(Maybe$none, $14422); + var $14423 = $14424; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("U16.new"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $13005 = self.value; - var $13006 = self.errors; - var self = $13005; + var $14426 = self.value; + var $14427 = self.errors; + var self = $14426; switch (self._) { case 'Maybe.none': - var $13008 = Kind$Check$result$(Maybe$none, $13006); - var $13007 = $13008; + var $14429 = Kind$Check$result$(Maybe$none, $14427); + var $14428 = $14429; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("String"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $13010 = self.value; - var $13011 = self.errors; - var $13012 = Kind$Check$result$($13010, List$concat$($13006, $13011)); - var $13009 = $13012; + var $14431 = self.value; + var $14432 = self.errors; + var $14433 = Kind$Check$result$($14431, List$concat$($14427, $14432)); + var $14430 = $14433; break; }; - var $13007 = $13009; + var $14428 = $14430; break; }; - var self = $13007; + var self = $14428; break; }; switch (self._) { case 'Kind.Check.result': - var $13013 = self.value; - var $13014 = self.errors; - var $13015 = Kind$Check$result$($13013, List$concat$($13001, $13014)); - var $13004 = $13015; + var $14434 = self.value; + var $14435 = self.errors; + var $14436 = Kind$Check$result$($14434, List$concat$($14422, $14435)); + var $14425 = $14436; break; }; - var $13002 = $13004; + var $14423 = $14425; break; }; - var $12999 = $13002; + var $14420 = $14423; break; }; - var self = $12999; + var self = $14420; break; }; switch (self._) { case 'Kind.Check.result': - var $13016 = self.value; - var $13017 = self.errors; - var self = $13016; + var $14437 = self.value; + var $14438 = self.errors; + var self = $14437; switch (self._) { case 'Maybe.some': - var $13019 = self.value; + var $14440 = self.value; var self = _type$2; switch (self._) { case 'Maybe.some': - var $13021 = self.value; - var self = Kind$Term$equal$go$($13021, $13019, _defs$3, (list_length(_ctx$4)), BitsSet$mut$new$(Unit$new)); + var $14442 = self.value; + var self = Kind$Term$equal$go$($14442, $14440, _defs$3, (list_length(_ctx$4)), BitsSet$mut$new$(Unit$new)); switch (self._) { case 'Kind.Check.result': - var $13023 = self.value; - var $13024 = self.errors; - var self = $13023; + var $14444 = self.value; + var $14445 = self.errors; + var self = $14444; switch (self._) { case 'Maybe.some': - var $13026 = self.value; - var self = $13026; + var $14447 = self.value; + var self = $14447; if (self) { - var $13028 = Kind$Check$result$(Maybe$some$($13021), List$nil); - var self = $13028; + var $14449 = Kind$Check$result$(Maybe$some$($14442), List$nil); + var self = $14449; } else { - var $13029 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, Either$right$($13021), Either$right$($13019), _ctx$4), List$nil)); - var self = $13029; + var $14450 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, Either$right$($14442), Either$right$($14440), _ctx$4), List$nil)); + var self = $14450; }; switch (self._) { case 'Kind.Check.result': - var $13030 = self.value; - var $13031 = self.errors; - var $13032 = Kind$Check$result$($13030, List$concat$($13024, $13031)); - var $13027 = $13032; + var $14451 = self.value; + var $14452 = self.errors; + var $14453 = Kind$Check$result$($14451, List$concat$($14445, $14452)); + var $14448 = $14453; break; }; - var $13025 = $13027; + var $14446 = $14448; break; case 'Maybe.none': - var $13033 = Kind$Check$result$(Maybe$none, $13024); - var $13025 = $13033; + var $14454 = Kind$Check$result$(Maybe$none, $14445); + var $14446 = $14454; break; }; - var $13022 = $13025; + var $14443 = $14446; break; }; - var self = $13022; + var self = $14443; break; case 'Maybe.none': - var $13034 = Kind$Check$result$(Maybe$some$($13019), List$nil); - var self = $13034; + var $14455 = Kind$Check$result$(Maybe$some$($14440), List$nil); + var self = $14455; break; }; switch (self._) { case 'Kind.Check.result': - var $13035 = self.value; - var $13036 = self.errors; - var $13037 = Kind$Check$result$($13035, List$concat$($13017, $13036)); - var $13020 = $13037; + var $14456 = self.value; + var $14457 = self.errors; + var $14458 = Kind$Check$result$($14456, List$concat$($14438, $14457)); + var $14441 = $14458; break; }; - var $13018 = $13020; + var $14439 = $14441; break; case 'Maybe.none': - var $13038 = Kind$Check$result$(Maybe$none, $13017); - var $13018 = $13038; + var $14459 = Kind$Check$result$(Maybe$none, $14438); + var $14439 = $14459; break; }; - var $12704 = $13018; + var $14125 = $14439; break; }; - return $12704; + return $14125; }; const Kind$Term$check = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$check$(x0, x1, x2, x3, x4, x5); @@ -42446,45 +46854,45 @@ module.exports = (function() { var self = _path$2; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13040 = self.slice(0, -1); + var $14461 = self.slice(0, -1); var self = _list$3; switch (self._) { case 'List.cons': - var $13042 = self.head; - var $13043 = self.tail; - var $13044 = List$cons$(_cont$4($13040)($13042), $13043); - var $13041 = $13044; + var $14463 = self.head; + var $14464 = self.tail; + var $14465 = List$cons$(_cont$4($14461)($14463), $14464); + var $14462 = $14465; break; case 'List.nil': - var $13045 = List$nil; - var $13041 = $13045; + var $14466 = List$nil; + var $14462 = $14466; break; }; - var $13039 = $13041; + var $14460 = $14462; break; case 'i': - var $13046 = self.slice(0, -1); + var $14467 = self.slice(0, -1); var self = _list$3; switch (self._) { case 'List.cons': - var $13048 = self.head; - var $13049 = self.tail; - var $13050 = List$cons$($13048, Kind$Path$patch_at$list$($13046, $13049, _cont$4)); - var $13047 = $13050; + var $14469 = self.head; + var $14470 = self.tail; + var $14471 = List$cons$($14469, Kind$Path$patch_at$list$($14467, $14470, _cont$4)); + var $14468 = $14471; break; case 'List.nil': - var $13051 = List$nil; - var $13047 = $13051; + var $14472 = List$nil; + var $14468 = $14472; break; }; - var $13039 = $13047; + var $14460 = $14468; break; case 'e': - var $13052 = List$nil; - var $13039 = $13052; + var $14473 = List$nil; + var $14460 = $14473; break; }; - return $13039; + return $14460; }; const Kind$Path$patch_at$list = x0 => x1 => x2 => Kind$Path$patch_at$list$(x0, x1, x2); @@ -42492,282 +46900,282 @@ module.exports = (function() { var self = _term$2; switch (self._) { case 'Kind.Term.all': - var $13054 = self.eras; - var $13055 = self.self; - var $13056 = self.name; - var $13057 = self.xtyp; - var $13058 = self.body; + var $14475 = self.eras; + var $14476 = self.self; + var $14477 = self.name; + var $14478 = self.xtyp; + var $14479 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13060 = self.slice(0, -1); - var $13061 = Kind$Term$all$($13054, $13055, $13056, Kind$Term$patch_at$($13060, $13057, _fn$3), $13058); - var $13059 = $13061; + var $14481 = self.slice(0, -1); + var $14482 = Kind$Term$all$($14475, $14476, $14477, Kind$Term$patch_at$($14481, $14478, _fn$3), $14479); + var $14480 = $14482; break; case 'i': - var $13062 = self.slice(0, -1); - var $13063 = Kind$Term$all$($13054, $13055, $13056, $13057, (_s$10 => _x$11 => { - var $13064 = Kind$Term$patch_at$($13062, $13058(_s$10)(_x$11), _fn$3); - return $13064; + var $14483 = self.slice(0, -1); + var $14484 = Kind$Term$all$($14475, $14476, $14477, $14478, (_s$10 => _x$11 => { + var $14485 = Kind$Term$patch_at$($14483, $14479(_s$10)(_x$11), _fn$3); + return $14485; })); - var $13059 = $13063; + var $14480 = $14484; break; case 'e': - var $13065 = _fn$3(_term$2); - var $13059 = $13065; + var $14486 = _fn$3(_term$2); + var $14480 = $14486; break; }; - var $13053 = $13059; + var $14474 = $14480; break; case 'Kind.Term.lam': - var $13066 = self.name; - var $13067 = self.body; + var $14487 = self.name; + var $14488 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13069 = _fn$3(_term$2); - var $13068 = $13069; + var $14490 = _fn$3(_term$2); + var $14489 = $14490; break; case 'o': case 'i': - var $13070 = Kind$Term$lam$($13066, (_x$7 => { - var $13071 = Kind$Term$patch_at$(Bits$tail$(_path$1), $13067(_x$7), _fn$3); - return $13071; + var $14491 = Kind$Term$lam$($14487, (_x$7 => { + var $14492 = Kind$Term$patch_at$(Bits$tail$(_path$1), $14488(_x$7), _fn$3); + return $14492; })); - var $13068 = $13070; + var $14489 = $14491; break; }; - var $13053 = $13068; + var $14474 = $14489; break; case 'Kind.Term.app': - var $13072 = self.func; - var $13073 = self.argm; + var $14493 = self.func; + var $14494 = self.argm; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13075 = self.slice(0, -1); - var $13076 = Kind$Term$app$(Kind$Term$patch_at$($13075, $13072, _fn$3), $13073); - var $13074 = $13076; + var $14496 = self.slice(0, -1); + var $14497 = Kind$Term$app$(Kind$Term$patch_at$($14496, $14493, _fn$3), $14494); + var $14495 = $14497; break; case 'i': - var $13077 = self.slice(0, -1); - var $13078 = Kind$Term$app$($13072, Kind$Term$patch_at$($13077, $13073, _fn$3)); - var $13074 = $13078; + var $14498 = self.slice(0, -1); + var $14499 = Kind$Term$app$($14493, Kind$Term$patch_at$($14498, $14494, _fn$3)); + var $14495 = $14499; break; case 'e': - var $13079 = _fn$3(_term$2); - var $13074 = $13079; + var $14500 = _fn$3(_term$2); + var $14495 = $14500; break; }; - var $13053 = $13074; + var $14474 = $14495; break; case 'Kind.Term.let': - var $13080 = self.name; - var $13081 = self.expr; - var $13082 = self.body; + var $14501 = self.name; + var $14502 = self.expr; + var $14503 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13084 = self.slice(0, -1); - var $13085 = Kind$Term$let$($13080, Kind$Term$patch_at$($13084, $13081, _fn$3), $13082); - var $13083 = $13085; + var $14505 = self.slice(0, -1); + var $14506 = Kind$Term$let$($14501, Kind$Term$patch_at$($14505, $14502, _fn$3), $14503); + var $14504 = $14506; break; case 'i': - var $13086 = self.slice(0, -1); - var $13087 = Kind$Term$let$($13080, $13081, (_x$8 => { - var $13088 = Kind$Term$patch_at$($13086, $13082(_x$8), _fn$3); - return $13088; + var $14507 = self.slice(0, -1); + var $14508 = Kind$Term$let$($14501, $14502, (_x$8 => { + var $14509 = Kind$Term$patch_at$($14507, $14503(_x$8), _fn$3); + return $14509; })); - var $13083 = $13087; + var $14504 = $14508; break; case 'e': - var $13089 = _fn$3(_term$2); - var $13083 = $13089; + var $14510 = _fn$3(_term$2); + var $14504 = $14510; break; }; - var $13053 = $13083; + var $14474 = $14504; break; case 'Kind.Term.def': - var $13090 = self.name; - var $13091 = self.expr; - var $13092 = self.body; + var $14511 = self.name; + var $14512 = self.expr; + var $14513 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13094 = self.slice(0, -1); - var $13095 = Kind$Term$def$($13090, Kind$Term$patch_at$($13094, $13091, _fn$3), $13092); - var $13093 = $13095; + var $14515 = self.slice(0, -1); + var $14516 = Kind$Term$def$($14511, Kind$Term$patch_at$($14515, $14512, _fn$3), $14513); + var $14514 = $14516; break; case 'i': - var $13096 = self.slice(0, -1); - var $13097 = Kind$Term$def$($13090, $13091, (_x$8 => { - var $13098 = Kind$Term$patch_at$($13096, $13092(_x$8), _fn$3); - return $13098; + var $14517 = self.slice(0, -1); + var $14518 = Kind$Term$def$($14511, $14512, (_x$8 => { + var $14519 = Kind$Term$patch_at$($14517, $14513(_x$8), _fn$3); + return $14519; })); - var $13093 = $13097; + var $14514 = $14518; break; case 'e': - var $13099 = _fn$3(_term$2); - var $13093 = $13099; + var $14520 = _fn$3(_term$2); + var $14514 = $14520; break; }; - var $13053 = $13093; + var $14474 = $14514; break; case 'Kind.Term.ann': - var $13100 = self.done; - var $13101 = self.term; - var $13102 = self.type; + var $14521 = self.done; + var $14522 = self.term; + var $14523 = self.type; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13104 = self.slice(0, -1); - var $13105 = Kind$Term$ann$($13100, Kind$Term$patch_at$($13104, $13101, _fn$3), $13102); - var $13103 = $13105; + var $14525 = self.slice(0, -1); + var $14526 = Kind$Term$ann$($14521, Kind$Term$patch_at$($14525, $14522, _fn$3), $14523); + var $14524 = $14526; break; case 'i': - var $13106 = self.slice(0, -1); - var $13107 = Kind$Term$ann$($13100, $13101, Kind$Term$patch_at$($13106, $13102, _fn$3)); - var $13103 = $13107; + var $14527 = self.slice(0, -1); + var $14528 = Kind$Term$ann$($14521, $14522, Kind$Term$patch_at$($14527, $14523, _fn$3)); + var $14524 = $14528; break; case 'e': - var $13108 = _fn$3(_term$2); - var $13103 = $13108; + var $14529 = _fn$3(_term$2); + var $14524 = $14529; break; }; - var $13053 = $13103; + var $14474 = $14524; break; case 'Kind.Term.cse': - var $13109 = self.path; - var $13110 = self.expr; - var $13111 = self.name; - var $13112 = self.with; - var $13113 = self.cses; - var $13114 = self.moti; + var $14530 = self.path; + var $14531 = self.expr; + var $14532 = self.name; + var $14533 = self.with; + var $14534 = self.cses; + var $14535 = self.moti; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13116 = self.slice(0, -1); - var $13117 = Kind$Term$cse$($13109, Kind$Term$patch_at$($13116, $13110, _fn$3), $13111, $13112, $13113, $13114); - var $13115 = $13117; + var $14537 = self.slice(0, -1); + var $14538 = Kind$Term$cse$($14530, Kind$Term$patch_at$($14537, $14531, _fn$3), $14532, $14533, $14534, $14535); + var $14536 = $14538; break; case 'e': - var $13118 = _fn$3(_term$2); - var $13115 = $13118; + var $14539 = _fn$3(_term$2); + var $14536 = $14539; break; case 'i': - var $13119 = _term$2; - var $13115 = $13119; + var $14540 = _term$2; + var $14536 = $14540; break; }; - var $13053 = $13115; + var $14474 = $14536; break; case 'Kind.Term.new': - var $13120 = self.args; + var $14541 = self.args; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13122 = _fn$3(_term$2); - var $13121 = $13122; + var $14543 = _fn$3(_term$2); + var $14542 = $14543; break; case 'o': case 'i': - var $13123 = Kind$Term$new$(Kind$Path$patch_at$list$(_path$1, $13120, (_arg_path$6 => _arg$7 => { - var $13124 = Kind$Term$patch_at$(_arg_path$6, _arg$7, _fn$3); - return $13124; + var $14544 = Kind$Term$new$(Kind$Path$patch_at$list$(_path$1, $14541, (_arg_path$6 => _arg$7 => { + var $14545 = Kind$Term$patch_at$(_arg_path$6, _arg$7, _fn$3); + return $14545; }))); - var $13121 = $13123; + var $14542 = $14544; break; }; - var $13053 = $13121; + var $14474 = $14542; break; case 'Kind.Term.get': - var $13125 = self.expr; - var $13126 = self.fkey; + var $14546 = self.expr; + var $14547 = self.fkey; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13128 = self.slice(0, -1); - var $13129 = Kind$Term$get$(Kind$Term$patch_at$($13128, $13125, _fn$3), $13126); - var $13127 = $13129; + var $14549 = self.slice(0, -1); + var $14550 = Kind$Term$get$(Kind$Term$patch_at$($14549, $14546, _fn$3), $14547); + var $14548 = $14550; break; case 'i': - var $13130 = self.slice(0, -1); - var $13131 = Kind$Term$get$(Kind$Term$patch_at$($13130, $13125, _fn$3), $13126); - var $13127 = $13131; + var $14551 = self.slice(0, -1); + var $14552 = Kind$Term$get$(Kind$Term$patch_at$($14551, $14546, _fn$3), $14547); + var $14548 = $14552; break; case 'e': - var $13132 = _fn$3(_term$2); - var $13127 = $13132; + var $14553 = _fn$3(_term$2); + var $14548 = $14553; break; }; - var $13053 = $13127; + var $14474 = $14548; break; case 'Kind.Term.set': - var $13133 = self.expr; - var $13134 = self.fkey; - var $13135 = self.fval; + var $14554 = self.expr; + var $14555 = self.fkey; + var $14556 = self.fval; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13137 = self.slice(0, -1); - var $13138 = Kind$Term$set$(Kind$Term$patch_at$($13137, $13133, _fn$3), $13134, $13135); - var $13136 = $13138; + var $14558 = self.slice(0, -1); + var $14559 = Kind$Term$set$(Kind$Term$patch_at$($14558, $14554, _fn$3), $14555, $14556); + var $14557 = $14559; break; case 'i': - var $13139 = self.slice(0, -1); - var $13140 = Kind$Term$set$($13133, $13134, Kind$Term$patch_at$($13139, $13135, _fn$3)); - var $13136 = $13140; + var $14560 = self.slice(0, -1); + var $14561 = Kind$Term$set$($14554, $14555, Kind$Term$patch_at$($14560, $14556, _fn$3)); + var $14557 = $14561; break; case 'e': - var $13141 = _fn$3(_term$2); - var $13136 = $13141; + var $14562 = _fn$3(_term$2); + var $14557 = $14562; break; }; - var $13053 = $13136; + var $14474 = $14557; break; case 'Kind.Term.ope': - var $13142 = self.name; - var $13143 = self.arg0; - var $13144 = self.arg1; + var $14563 = self.name; + var $14564 = self.arg0; + var $14565 = self.arg1; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13146 = self.slice(0, -1); - var $13147 = Kind$Term$ope$($13142, Kind$Term$patch_at$($13146, $13143, _fn$3), $13144); - var $13145 = $13147; + var $14567 = self.slice(0, -1); + var $14568 = Kind$Term$ope$($14563, Kind$Term$patch_at$($14567, $14564, _fn$3), $14565); + var $14566 = $14568; break; case 'i': - var $13148 = self.slice(0, -1); - var $13149 = Kind$Term$ope$($13142, $13143, Kind$Term$patch_at$($13148, $13144, _fn$3)); - var $13145 = $13149; + var $14569 = self.slice(0, -1); + var $14570 = Kind$Term$ope$($14563, $14564, Kind$Term$patch_at$($14569, $14565, _fn$3)); + var $14566 = $14570; break; case 'e': - var $13150 = _fn$3(_term$2); - var $13145 = $13150; + var $14571 = _fn$3(_term$2); + var $14566 = $14571; break; }; - var $13053 = $13145; + var $14474 = $14566; break; case 'Kind.Term.ori': - var $13151 = self.orig; - var $13152 = self.expr; - var $13153 = Kind$Term$ori$($13151, Kind$Term$patch_at$(_path$1, $13152, _fn$3)); - var $13053 = $13153; + var $14572 = self.orig; + var $14573 = self.expr; + var $14574 = Kind$Term$ori$($14572, Kind$Term$patch_at$(_path$1, $14573, _fn$3)); + var $14474 = $14574; break; case 'Kind.Term.var': var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13155 = _fn$3(_term$2); - var $13154 = $13155; + var $14576 = _fn$3(_term$2); + var $14575 = $14576; break; case 'o': case 'i': - var $13156 = _term$2; - var $13154 = $13156; + var $14577 = _term$2; + var $14575 = $14577; break; }; - var $13053 = $13154; + var $14474 = $14575; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -42777,50 +47185,50 @@ module.exports = (function() { var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13158 = _fn$3(_term$2); - var $13157 = $13158; + var $14579 = _fn$3(_term$2); + var $14578 = $14579; break; case 'o': case 'i': - var $13159 = _term$2; - var $13157 = $13159; + var $14580 = _term$2; + var $14578 = $14580; break; }; - var $13053 = $13157; + var $14474 = $14578; break; case 'Kind.Term.typ': var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13161 = _fn$3(_term$2); - var $13160 = $13161; + var $14582 = _fn$3(_term$2); + var $14581 = $14582; break; case 'o': case 'i': - var $13162 = _term$2; - var $13160 = $13162; + var $14583 = _term$2; + var $14581 = $14583; break; }; - var $13053 = $13160; + var $14474 = $14581; break; case 'Kind.Term.gol': case 'Kind.Term.num': var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $13164 = _fn$3(_term$2); - var $13163 = $13164; + var $14585 = _fn$3(_term$2); + var $14584 = $14585; break; case 'o': case 'i': - var $13165 = _term$2; - var $13163 = $13165; + var $14586 = _term$2; + var $14584 = $14586; break; }; - var $13053 = $13163; + var $14474 = $14584; break; }; - return $13053; + return $14474; }; const Kind$Term$patch_at = x0 => x1 => x2 => Kind$Term$patch_at$(x0, x1, x2); @@ -42828,134 +47236,134 @@ module.exports = (function() { var self = _errs$10; switch (self._) { case 'List.cons': - var $13167 = self.head; - var $13168 = self.tail; - var self = $13167; + var $14588 = self.head; + var $14589 = self.tail; + var self = $14588; switch (self._) { case 'Kind.Error.waiting': - var $13170 = self.name; - var $13171 = IO$monad$((_m$bind$15 => _m$pure$16 => { - var $13172 = _m$bind$15; - return $13172; - }))(Kind$Synth$one$($13170, _defs$9))((_new_defs$15 => { + var $14591 = self.name; + var $14592 = IO$monad$((_m$bind$15 => _m$pure$16 => { + var $14593 = _m$bind$15; + return $14593; + }))(Kind$Synth$one$($14591, _defs$9))((_new_defs$15 => { var self = _new_defs$15; switch (self._) { case 'Maybe.some': - var $13174 = self.value; - var $13175 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $13174, $13168, Bool$true); - var $13173 = $13175; + var $14595 = self.value; + var $14596 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $14595, $14589, Bool$true); + var $14594 = $14596; break; case 'Maybe.none': - var $13176 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $13168, _fixd$11); - var $13173 = $13176; + var $14597 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $14589, _fixd$11); + var $14594 = $14597; break; }; - return $13173; + return $14594; })); - var $13169 = $13171; + var $14590 = $14592; break; case 'Kind.Error.patch': - var $13177 = self.path; - var $13178 = self.term; - var self = $13177; + var $14598 = self.path; + var $14599 = self.term; + var self = $14598; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $13180 = self.slice(0, -1); - var _term$17 = Kind$Term$patch_at$($13180, _term$5, (_x$17 => { - var $13182 = $13178; - return $13182; + var $14601 = self.slice(0, -1); + var _term$17 = Kind$Term$patch_at$($14601, _term$5, (_x$17 => { + var $14603 = $14599; + return $14603; })); - var $13181 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$17, _type$6, _isct$7, _arit$8, _defs$9, $13168, Bool$true); - var $13179 = $13181; + var $14602 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$17, _type$6, _isct$7, _arit$8, _defs$9, $14589, Bool$true); + var $14600 = $14602; break; case 'i': - var $13183 = self.slice(0, -1); - var _type$17 = Kind$Term$patch_at$($13183, _type$6, (_x$17 => { - var $13185 = $13178; - return $13185; + var $14604 = self.slice(0, -1); + var _type$17 = Kind$Term$patch_at$($14604, _type$6, (_x$17 => { + var $14606 = $14599; + return $14606; })); - var $13184 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$17, _isct$7, _arit$8, _defs$9, $13168, Bool$true); - var $13179 = $13184; + var $14605 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$17, _isct$7, _arit$8, _defs$9, $14589, Bool$true); + var $14600 = $14605; break; case 'e': - var $13186 = IO$monad$((_m$bind$16 => _m$pure$17 => { - var $13187 = _m$pure$17; - return $13187; + var $14607 = IO$monad$((_m$bind$16 => _m$pure$17 => { + var $14608 = _m$pure$17; + return $14608; }))(Maybe$none); - var $13179 = $13186; + var $14600 = $14607; break; }; - var $13169 = $13179; + var $14590 = $14600; break; case 'Kind.Error.undefined_reference': - var $13188 = self.name; - var $13189 = IO$monad$((_m$bind$16 => _m$pure$17 => { - var $13190 = _m$bind$16; - return $13190; - }))(Kind$Synth$one$($13188, _defs$9))((_new_defs$16 => { + var $14609 = self.name; + var $14610 = IO$monad$((_m$bind$16 => _m$pure$17 => { + var $14611 = _m$bind$16; + return $14611; + }))(Kind$Synth$one$($14609, _defs$9))((_new_defs$16 => { var self = _new_defs$16; switch (self._) { case 'Maybe.some': - var $13192 = self.value; - var $13193 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $13192, $13168, Bool$true); - var $13191 = $13193; + var $14613 = self.value; + var $14614 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $14613, $14589, Bool$true); + var $14612 = $14614; break; case 'Maybe.none': - var $13194 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $13168, _fixd$11); - var $13191 = $13194; + var $14615 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $14589, _fixd$11); + var $14612 = $14615; break; }; - return $13191; + return $14612; })); - var $13169 = $13189; + var $14590 = $14610; break; case 'Kind.Error.type_mismatch': case 'Kind.Error.show_goal': case 'Kind.Error.indirect': case 'Kind.Error.cant_infer': - var $13195 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $13168, _fixd$11); - var $13169 = $13195; + var $14616 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $14589, _fixd$11); + var $14590 = $14616; break; }; - var $13166 = $13169; + var $14587 = $14590; break; case 'List.nil': var self = _fixd$11; if (self) { var _type$12 = Kind$Term$bind$(List$nil, (_x$12 => { - var $13198 = (_x$12 + '1'); - return $13198; + var $14619 = (_x$12 + '1'); + return $14619; }), _type$6); var _term$13 = Kind$Term$bind$(List$nil, (_x$13 => { - var $13199 = (_x$13 + '0'); - return $13199; + var $14620 = (_x$13 + '0'); + return $14620; }), _term$5); var _defs$14 = Kind$Map$set$(_name$4, Kind$Def$new$(_file$1, _code$2, _orig$3, _name$4, _term$13, _type$12, _isct$7, _arit$8, Kind$Status$init), _defs$9); - var $13197 = IO$monad$((_m$bind$15 => _m$pure$16 => { - var $13200 = _m$pure$16; - return $13200; + var $14618 = IO$monad$((_m$bind$15 => _m$pure$16 => { + var $14621 = _m$pure$16; + return $14621; }))(Maybe$some$(_defs$14)); - var $13196 = $13197; + var $14617 = $14618; } else { - var $13201 = IO$monad$((_m$bind$12 => _m$pure$13 => { - var $13202 = _m$pure$13; - return $13202; + var $14622 = IO$monad$((_m$bind$12 => _m$pure$13 => { + var $14623 = _m$pure$13; + return $14623; }))(Maybe$none); - var $13196 = $13201; + var $14617 = $14622; }; - var $13166 = $13196; + var $14587 = $14617; break; }; - return $13166; + return $14587; }; const Kind$Synth$fix = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => x9 => x10 => Kind$Synth$fix$(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10); function Kind$Status$fail$(_errors$1) { - var $13203 = ({ + var $14624 = ({ _: 'Kind.Status.fail', 'errors': _errors$1 }); - return $13203; + return $14624; }; const Kind$Status$fail = x0 => Kind$Status$fail$(x0); @@ -42963,28 +47371,28 @@ module.exports = (function() { var self = Kind$Map$get$(_name$1, _defs$2); switch (self._) { case 'Maybe.some': - var $13205 = self.value; - var self = $13205; + var $14626 = self.value; + var self = $14626; switch (self._) { case 'Kind.Def.new': - var $13207 = self.file; - var $13208 = self.code; - var $13209 = self.orig; - var $13210 = self.name; - var $13211 = self.term; - var $13212 = self.type; - var $13213 = self.isct; - var $13214 = self.arit; - var $13215 = self.stat; - var _file$13 = $13207; - var _code$14 = $13208; - var _orig$15 = $13209; - var _name$16 = $13210; - var _term$17 = $13211; - var _type$18 = $13212; - var _isct$19 = $13213; - var _arit$20 = $13214; - var _stat$21 = $13215; + var $14628 = self.file; + var $14629 = self.code; + var $14630 = self.orig; + var $14631 = self.name; + var $14632 = self.term; + var $14633 = self.type; + var $14634 = self.isct; + var $14635 = self.arit; + var $14636 = self.stat; + var _file$13 = $14628; + var _code$14 = $14629; + var _orig$15 = $14630; + var _name$16 = $14631; + var _term$17 = $14632; + var _type$18 = $14633; + var _isct$19 = $14634; + var _arit$20 = $14635; + var _stat$21 = $14636; var self = _stat$21; switch (self._) { case 'Kind.Status.init': @@ -42992,173 +47400,173 @@ module.exports = (function() { var self = Kind$Term$check$(_type$18, Maybe$some$(Kind$Term$typ), _defs$22, List$nil, Kind$Path$Maybe$Builder$i$(Kind$Path$Maybe$Builder$nil), Maybe$none); switch (self._) { case 'Kind.Check.result': - var $13218 = self.value; - var $13219 = self.errors; - var self = $13218; + var $14639 = self.value; + var $14640 = self.errors; + var self = $14639; switch (self._) { case 'Maybe.none': - var $13221 = Kind$Check$result$(Maybe$none, $13219); - var $13220 = $13221; + var $14642 = Kind$Check$result$(Maybe$none, $14640); + var $14641 = $14642; break; case 'Maybe.some': var self = Kind$Term$check$(_term$17, Maybe$some$(_type$18), _defs$22, List$nil, Kind$Path$Maybe$Builder$o$(Kind$Path$Maybe$Builder$nil), Maybe$none); switch (self._) { case 'Kind.Check.result': - var $13223 = self.value; - var $13224 = self.errors; - var self = $13223; + var $14644 = self.value; + var $14645 = self.errors; + var self = $14644; switch (self._) { case 'Maybe.none': - var $13226 = Kind$Check$result$(Maybe$none, $13224); - var $13225 = $13226; + var $14647 = Kind$Check$result$(Maybe$none, $14645); + var $14646 = $14647; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13228 = self.value; - var $13229 = self.errors; - var $13230 = Kind$Check$result$($13228, List$concat$($13224, $13229)); - var $13227 = $13230; + var $14649 = self.value; + var $14650 = self.errors; + var $14651 = Kind$Check$result$($14649, List$concat$($14645, $14650)); + var $14648 = $14651; break; }; - var $13225 = $13227; + var $14646 = $14648; break; }; - var self = $13225; + var self = $14646; break; }; switch (self._) { case 'Kind.Check.result': - var $13231 = self.value; - var $13232 = self.errors; - var $13233 = Kind$Check$result$($13231, List$concat$($13219, $13232)); - var $13222 = $13233; + var $14652 = self.value; + var $14653 = self.errors; + var $14654 = Kind$Check$result$($14652, List$concat$($14640, $14653)); + var $14643 = $14654; break; }; - var $13220 = $13222; + var $14641 = $14643; break; }; - var _checked$23 = $13220; + var _checked$23 = $14641; break; }; var self = _checked$23; switch (self._) { case 'Kind.Check.result': - var $13234 = self.errors; - var self = List$is_empty$($13234); + var $14655 = self.errors; + var self = List$is_empty$($14655); if (self) { var _defs$26 = Kind$Map$def$(_file$13, _code$14, _orig$15, _name$16, _term$17, _type$18, _isct$19, _arit$20, Bool$true, _defs$22); - var $13236 = IO$monad$((_m$bind$27 => _m$pure$28 => { - var $13237 = _m$pure$28; - return $13237; + var $14657 = IO$monad$((_m$bind$27 => _m$pure$28 => { + var $14658 = _m$pure$28; + return $14658; }))(Maybe$some$(_defs$26)); - var $13235 = $13236; + var $14656 = $14657; } else { - var $13238 = IO$monad$((_m$bind$26 => _m$pure$27 => { - var $13239 = _m$bind$26; - return $13239; - }))(Kind$Synth$fix$(_file$13, _code$14, _orig$15, _name$16, _term$17, _type$18, _isct$19, _arit$20, _defs$22, $13234, Bool$false))((_fixed$26 => { + var $14659 = IO$monad$((_m$bind$26 => _m$pure$27 => { + var $14660 = _m$bind$26; + return $14660; + }))(Kind$Synth$fix$(_file$13, _code$14, _orig$15, _name$16, _term$17, _type$18, _isct$19, _arit$20, _defs$22, $14655, Bool$false))((_fixed$26 => { var self = _fixed$26; switch (self._) { case 'Maybe.some': - var $13241 = self.value; - var $13242 = Kind$Synth$one$(_name$16, $13241); - var $13240 = $13242; + var $14662 = self.value; + var $14663 = Kind$Synth$one$(_name$16, $14662); + var $14661 = $14663; break; case 'Maybe.none': - var _stat$27 = Kind$Status$fail$($13234); + var _stat$27 = Kind$Status$fail$($14655); var _defs$28 = Kind$Map$set$(_name$16, Kind$Def$new$(_file$13, _code$14, _orig$15, _name$16, _term$17, _type$18, _isct$19, _arit$20, _stat$27), _defs$22); - var $13243 = IO$monad$((_m$bind$29 => _m$pure$30 => { - var $13244 = _m$pure$30; - return $13244; + var $14664 = IO$monad$((_m$bind$29 => _m$pure$30 => { + var $14665 = _m$pure$30; + return $14665; }))(Maybe$some$(_defs$28)); - var $13240 = $13243; + var $14661 = $14664; break; }; - return $13240; + return $14661; })); - var $13235 = $13238; + var $14656 = $14659; }; - var $13217 = $13235; + var $14638 = $14656; break; }; - var $13216 = $13217; + var $14637 = $14638; break; case 'Kind.Status.wait': - var $13245 = IO$monad$((_m$bind$22 => _m$pure$23 => { - var $13246 = _m$pure$23; - return $13246; + var $14666 = IO$monad$((_m$bind$22 => _m$pure$23 => { + var $14667 = _m$pure$23; + return $14667; }))(Maybe$some$(_defs$2)); - var $13216 = $13245; + var $14637 = $14666; break; case 'Kind.Status.done': case 'Kind.Status.fail': - var $13247 = IO$monad$((_m$bind$23 => _m$pure$24 => { - var $13248 = _m$pure$24; - return $13248; + var $14668 = IO$monad$((_m$bind$23 => _m$pure$24 => { + var $14669 = _m$pure$24; + return $14669; }))(Maybe$some$(_defs$2)); - var $13216 = $13247; + var $14637 = $14668; break; }; - var $13206 = $13216; + var $14627 = $14637; break; }; - var $13204 = $13206; + var $14625 = $14627; break; case 'Maybe.none': - var $13249 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $13250 = _m$bind$3; - return $13250; + var $14670 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $14671 = _m$bind$3; + return $14671; }))(IO$get_time)((_time_a$3 => { - var $13251 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $13252 = _m$bind$4; - return $13252; + var $14672 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $14673 = _m$bind$4; + return $14673; }))(Kind$Synth$load$(_name$1, _defs$2))((_loaded$4 => { var self = _loaded$4; switch (self._) { case 'Maybe.some': - var $13254 = self.value; - var $13255 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $13256 = _m$bind$6; - return $13256; + var $14675 = self.value; + var $14676 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $14677 = _m$bind$6; + return $14677; }))(IO$get_time)((_time_b$6 => { - var $13257 = IO$monad$((_m$bind$7 => _m$pure$8 => { - var $13258 = _m$bind$7; - return $13258; - }))(Kind$Synth$one$(_name$1, $13254))((_result$7 => { - var $13259 = IO$monad$((_m$bind$8 => _m$pure$9 => { - var $13260 = _m$bind$8; - return $13260; + var $14678 = IO$monad$((_m$bind$7 => _m$pure$8 => { + var $14679 = _m$bind$7; + return $14679; + }))(Kind$Synth$one$(_name$1, $14675))((_result$7 => { + var $14680 = IO$monad$((_m$bind$8 => _m$pure$9 => { + var $14681 = _m$bind$8; + return $14681; }))(IO$get_time)((_time_c$8 => { - var $13261 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $13262 = _m$pure$10; - return $13262; + var $14682 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $14683 = _m$pure$10; + return $14683; }))(_result$7); - return $13261; + return $14682; })); - return $13259; + return $14680; })); - return $13257; + return $14678; })); - var $13253 = $13255; + var $14674 = $14676; break; case 'Maybe.none': - var $13263 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $13264 = _m$pure$6; - return $13264; + var $14684 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $14685 = _m$pure$6; + return $14685; }))(Maybe$none); - var $13253 = $13263; + var $14674 = $14684; break; }; - return $13253; + return $14674; })); - return $13251; + return $14672; })); - var $13204 = $13249; + var $14625 = $14670; break; }; - return $13204; + return $14625; }; const Kind$Synth$one = x0 => x1 => Kind$Synth$one$(x0, x1); @@ -43166,91 +47574,91 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $13266 = self.head; - var $13267 = self.tail; - var self = $13266; + var $14687 = self.head; + var $14688 = self.tail; + var self = $14687; switch (self._) { case 'Pair.new': - var $13269 = self.fst; - var $13270 = self.snd; - var $13271 = (bitsmap_set($13269, $13270, BitsMap$from_list$($13267), 'set')); - var $13268 = $13271; + var $14690 = self.fst; + var $14691 = self.snd; + var $14692 = (bitsmap_set($14690, $14691, BitsMap$from_list$($14688), 'set')); + var $14689 = $14692; break; }; - var $13265 = $13268; + var $14686 = $14689; break; case 'List.nil': - var $13272 = BitsMap$new; - var $13265 = $13272; + var $14693 = BitsMap$new; + var $14686 = $14693; break; }; - return $13265; + return $14686; }; const BitsMap$from_list = x0 => BitsMap$from_list$(x0); const Kind$Term$inline$names = (() => { var _inl$1 = List$cons$("Monad.pure", List$cons$("Monad.bind", List$cons$("Monad.new", List$cons$("Parser.monad", List$cons$("Parser.bind", List$cons$("Parser.pure", List$cons$("Kind.Check.pure", List$cons$("Kind.Check.bind", List$cons$("Kind.Check.monad", List$cons$("Kind.Check.value", List$cons$("Kind.Check.none", List$nil))))))))))); var _kvs$2 = List$mapped$(_inl$1, (_x$2 => { - var $13274 = Pair$new$((kind_name_to_bits(_x$2)), Unit$new); - return $13274; + var $14695 = Pair$new$((kind_name_to_bits(_x$2)), Unit$new); + return $14695; })); - var $13273 = BitsMap$from_list$(_kvs$2); - return $13273; + var $14694 = BitsMap$from_list$(_kvs$2); + return $14694; })(); function Kind$Term$inline$reduce$(_term$1, _defs$2) { var self = _term$1; switch (self._) { case 'Kind.Term.ref': - var $13276 = self.name; - var _inli$4 = BitsSet$has$((kind_name_to_bits($13276)), Kind$Term$inline$names); + var $14697 = self.name; + var _inli$4 = BitsSet$has$((kind_name_to_bits($14697)), Kind$Term$inline$names); var self = _inli$4; if (self) { - var self = Kind$Map$get$($13276, _defs$2); + var self = Kind$Map$get$($14697, _defs$2); switch (self._) { case 'Maybe.some': - var $13279 = self.value; - var self = $13279; + var $14700 = self.value; + var self = $14700; switch (self._) { case 'Kind.Def.new': - var $13281 = self.term; - var $13282 = Kind$Term$inline$reduce$($13281, _defs$2); - var $13280 = $13282; + var $14702 = self.term; + var $14703 = Kind$Term$inline$reduce$($14702, _defs$2); + var $14701 = $14703; break; }; - var $13278 = $13280; + var $14699 = $14701; break; case 'Maybe.none': - var $13283 = Kind$Term$ref$($13276); - var $13278 = $13283; + var $14704 = Kind$Term$ref$($14697); + var $14699 = $14704; break; }; - var $13277 = $13278; + var $14698 = $14699; } else { - var $13284 = _term$1; - var $13277 = $13284; + var $14705 = _term$1; + var $14698 = $14705; }; - var $13275 = $13277; + var $14696 = $14698; break; case 'Kind.Term.app': - var $13285 = self.func; - var $13286 = self.argm; - var _func$5 = Kind$Term$inline$reduce$($13285, _defs$2); + var $14706 = self.func; + var $14707 = self.argm; + var _func$5 = Kind$Term$inline$reduce$($14706, _defs$2); var self = _func$5; switch (self._) { case 'Kind.Term.lam': - var $13288 = self.body; - var $13289 = Kind$Term$inline$reduce$($13288($13286), _defs$2); - var $13287 = $13289; + var $14709 = self.body; + var $14710 = Kind$Term$inline$reduce$($14709($14707), _defs$2); + var $14708 = $14710; break; case 'Kind.Term.let': - var $13290 = self.name; - var $13291 = self.expr; - var $13292 = self.body; - var $13293 = Kind$Term$let$($13290, $13291, (_x$9 => { - var $13294 = Kind$Term$inline$reduce$(Kind$Term$app$($13292(_x$9), $13286), _defs$2); - return $13294; + var $14711 = self.name; + var $14712 = self.expr; + var $14713 = self.body; + var $14714 = Kind$Term$let$($14711, $14712, (_x$9 => { + var $14715 = Kind$Term$inline$reduce$(Kind$Term$app$($14713(_x$9), $14707), _defs$2); + return $14715; })); - var $13287 = $13293; + var $14708 = $14714; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43271,16 +47679,16 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13295 = _term$1; - var $13287 = $13295; + var $14716 = _term$1; + var $14708 = $14716; break; }; - var $13275 = $13287; + var $14696 = $14708; break; case 'Kind.Term.ori': - var $13296 = self.expr; - var $13297 = Kind$Term$inline$reduce$($13296, _defs$2); - var $13275 = $13297; + var $14717 = self.expr; + var $14718 = Kind$Term$inline$reduce$($14717, _defs$2); + var $14696 = $14718; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -43300,11 +47708,11 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13298 = _term$1; - var $13275 = $13298; + var $14719 = _term$1; + var $14696 = $14719; break; }; - return $13275; + return $14696; }; const Kind$Term$inline$reduce = x0 => x1 => Kind$Term$inline$reduce$(x0, x1); @@ -43312,105 +47720,105 @@ module.exports = (function() { var self = Kind$Term$inline$reduce$(_term$1, _defs$2); switch (self._) { case 'Kind.Term.var': - var $13300 = self.name; - var $13301 = self.indx; - var $13302 = Kind$Term$var$($13300, $13301); - var $13299 = $13302; + var $14721 = self.name; + var $14722 = self.indx; + var $14723 = Kind$Term$var$($14721, $14722); + var $14720 = $14723; break; case 'Kind.Term.ref': - var $13303 = self.name; - var $13304 = Kind$Term$ref$($13303); - var $13299 = $13304; + var $14724 = self.name; + var $14725 = Kind$Term$ref$($14724); + var $14720 = $14725; break; case 'Kind.Term.all': - var $13305 = self.eras; - var $13306 = self.self; - var $13307 = self.name; - var $13308 = self.xtyp; - var $13309 = self.body; - var $13310 = Kind$Term$all$($13305, $13306, $13307, Kind$Term$inline$($13308, _defs$2), (_s$8 => _x$9 => { - var $13311 = Kind$Term$inline$($13309(_s$8)(_x$9), _defs$2); - return $13311; + var $14726 = self.eras; + var $14727 = self.self; + var $14728 = self.name; + var $14729 = self.xtyp; + var $14730 = self.body; + var $14731 = Kind$Term$all$($14726, $14727, $14728, Kind$Term$inline$($14729, _defs$2), (_s$8 => _x$9 => { + var $14732 = Kind$Term$inline$($14730(_s$8)(_x$9), _defs$2); + return $14732; })); - var $13299 = $13310; + var $14720 = $14731; break; case 'Kind.Term.lam': - var $13312 = self.name; - var $13313 = self.body; - var $13314 = Kind$Term$lam$($13312, (_x$5 => { - var $13315 = Kind$Term$inline$($13313(_x$5), _defs$2); - return $13315; + var $14733 = self.name; + var $14734 = self.body; + var $14735 = Kind$Term$lam$($14733, (_x$5 => { + var $14736 = Kind$Term$inline$($14734(_x$5), _defs$2); + return $14736; })); - var $13299 = $13314; + var $14720 = $14735; break; case 'Kind.Term.app': - var $13316 = self.func; - var $13317 = self.argm; - var $13318 = Kind$Term$app$(Kind$Term$inline$($13316, _defs$2), Kind$Term$inline$($13317, _defs$2)); - var $13299 = $13318; + var $14737 = self.func; + var $14738 = self.argm; + var $14739 = Kind$Term$app$(Kind$Term$inline$($14737, _defs$2), Kind$Term$inline$($14738, _defs$2)); + var $14720 = $14739; break; case 'Kind.Term.let': - var $13319 = self.name; - var $13320 = self.expr; - var $13321 = self.body; - var $13322 = Kind$Term$let$($13319, Kind$Term$inline$($13320, _defs$2), (_x$6 => { - var $13323 = Kind$Term$inline$($13321(_x$6), _defs$2); - return $13323; + var $14740 = self.name; + var $14741 = self.expr; + var $14742 = self.body; + var $14743 = Kind$Term$let$($14740, Kind$Term$inline$($14741, _defs$2), (_x$6 => { + var $14744 = Kind$Term$inline$($14742(_x$6), _defs$2); + return $14744; })); - var $13299 = $13322; + var $14720 = $14743; break; case 'Kind.Term.def': - var $13324 = self.name; - var $13325 = self.expr; - var $13326 = self.body; - var $13327 = Kind$Term$def$($13324, Kind$Term$inline$($13325, _defs$2), (_x$6 => { - var $13328 = Kind$Term$inline$($13326(_x$6), _defs$2); - return $13328; + var $14745 = self.name; + var $14746 = self.expr; + var $14747 = self.body; + var $14748 = Kind$Term$def$($14745, Kind$Term$inline$($14746, _defs$2), (_x$6 => { + var $14749 = Kind$Term$inline$($14747(_x$6), _defs$2); + return $14749; })); - var $13299 = $13327; + var $14720 = $14748; break; case 'Kind.Term.ann': - var $13329 = self.done; - var $13330 = self.term; - var $13331 = self.type; - var $13332 = Kind$Term$ann$($13329, Kind$Term$inline$($13330, _defs$2), Kind$Term$inline$($13331, _defs$2)); - var $13299 = $13332; + var $14750 = self.done; + var $14751 = self.term; + var $14752 = self.type; + var $14753 = Kind$Term$ann$($14750, Kind$Term$inline$($14751, _defs$2), Kind$Term$inline$($14752, _defs$2)); + var $14720 = $14753; break; case 'Kind.Term.gol': - var $13333 = self.name; - var $13334 = self.dref; - var $13335 = self.verb; - var $13336 = Kind$Term$gol$($13333, $13334, $13335); - var $13299 = $13336; + var $14754 = self.name; + var $14755 = self.dref; + var $14756 = self.verb; + var $14757 = Kind$Term$gol$($14754, $14755, $14756); + var $14720 = $14757; break; case 'Kind.Term.hol': - var $13337 = self.path; - var $13338 = Kind$Term$hol$($13337); - var $13299 = $13338; + var $14758 = self.path; + var $14759 = Kind$Term$hol$($14758); + var $14720 = $14759; break; case 'Kind.Term.nat': - var $13339 = self.natx; - var $13340 = Kind$Term$nat$($13339); - var $13299 = $13340; + var $14760 = self.natx; + var $14761 = Kind$Term$nat$($14760); + var $14720 = $14761; break; case 'Kind.Term.chr': - var $13341 = self.chrx; - var $13342 = Kind$Term$chr$($13341); - var $13299 = $13342; + var $14762 = self.chrx; + var $14763 = Kind$Term$chr$($14762); + var $14720 = $14763; break; case 'Kind.Term.str': - var $13343 = self.strx; - var $13344 = Kind$Term$str$($13343); - var $13299 = $13344; + var $14764 = self.strx; + var $14765 = Kind$Term$str$($14764); + var $14720 = $14765; break; case 'Kind.Term.ori': - var $13345 = self.expr; - var $13346 = Kind$Term$inline$($13345, _defs$2); - var $13299 = $13346; + var $14766 = self.expr; + var $14767 = Kind$Term$inline$($14766, _defs$2); + var $14720 = $14767; break; case 'Kind.Term.typ': - var $13347 = Kind$Term$typ; - var $13299 = $13347; + var $14768 = Kind$Term$typ; + var $14720 = $14768; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -43418,11 +47826,11 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13348 = _term$1; - var $13299 = $13348; + var $14769 = _term$1; + var $14720 = $14769; break; }; - return $13299; + return $14720; }; const Kind$Term$inline = x0 => x1 => Kind$Term$inline$(x0, x1); @@ -43430,38 +47838,38 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'BitsMap.tie': - var $13350 = self.val; - var $13351 = self.lft; - var $13352 = self.rgt; - var self = $13350; + var $14771 = self.val; + var $14772 = self.lft; + var $14773 = self.rgt; + var self = $14771; switch (self._) { case 'Maybe.some': - var $13354 = self.value; - var $13355 = List$cons$($13354, _list$3); - var _list0$7 = $13355; + var $14775 = self.value; + var $14776 = List$cons$($14775, _list$3); + var _list0$7 = $14776; break; case 'Maybe.none': - var $13356 = _list$3; - var _list0$7 = $13356; + var $14777 = _list$3; + var _list0$7 = $14777; break; }; - var _list1$8 = BitsMap$values$go$($13351, _list0$7); - var _list2$9 = BitsMap$values$go$($13352, _list1$8); - var $13353 = _list2$9; - var $13349 = $13353; + var _list1$8 = BitsMap$values$go$($14772, _list0$7); + var _list2$9 = BitsMap$values$go$($14773, _list1$8); + var $14774 = _list2$9; + var $14770 = $14774; break; case 'BitsMap.new': - var $13357 = _list$3; - var $13349 = $13357; + var $14778 = _list$3; + var $14770 = $14778; break; }; - return $13349; + return $14770; }; const BitsMap$values$go = x0 => x1 => BitsMap$values$go$(x0, x1); function BitsMap$values$(_xs$2) { - var $13358 = BitsMap$values$go$(_xs$2, List$nil); - return $13358; + var $14779 = BitsMap$values$go$(_xs$2, List$nil); + return $14779; }; const BitsMap$values = x0 => BitsMap$values$(x0); @@ -43479,38 +47887,38 @@ module.exports = (function() { if (self === 0n) { var self = _brui$3; if (self === 0n) { - var $13360 = _name$2; - var $13359 = $13360; + var $14781 = _name$2; + var $14780 = $14781; } else { - var $13361 = (self - 1n); - var $13362 = (_name$2 + ("^" + Nat$show$(_brui$3))); - var $13359 = $13362; + var $14782 = (self - 1n); + var $14783 = (_name$2 + ("^" + Nat$show$(_brui$3))); + var $14780 = $14783; }; - return $13359; + return $14780; } else { - var $13363 = (self - 1n); + var $14784 = (self - 1n); var self = _vars$4; switch (self._) { case 'List.cons': - var $13365 = self.head; - var $13366 = self.tail; - var self = (_name$2 === $13365); + var $14786 = self.head; + var $14787 = self.tail; + var self = (_name$2 === $14786); if (self) { - var $13368 = Nat$succ$(_brui$3); - var _brui$8 = $13368; + var $14789 = Nat$succ$(_brui$3); + var _brui$8 = $14789; } else { - var $13369 = _brui$3; - var _brui$8 = $13369; + var $14790 = _brui$3; + var _brui$8 = $14790; }; - var $13367 = Kind$Core$var_name$($13363, _name$2, _brui$8, $13366); - var $13364 = $13367; + var $14788 = Kind$Core$var_name$($14784, _name$2, _brui$8, $14787); + var $14785 = $14788; break; case 'List.nil': - var $13370 = "unbound"; - var $13364 = $13370; + var $14791 = "unbound"; + var $14785 = $14791; break; }; - return $13364; + return $14785; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -43519,213 +47927,105 @@ module.exports = (function() { }; const Kind$Core$var_name = x0 => x1 => x2 => x3 => Kind$Core$var_name$(x0, x1, x2, x3); - function Kind$Name$show$(_name$1) { - var $13371 = _name$1; - return $13371; - }; - const Kind$Name$show = x0 => Kind$Name$show$(x0); - - function Bits$to_nat$(_b$1) { - var self = _b$1; - switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { - case 'o': - var $13373 = self.slice(0, -1); - var $13374 = (2n * Bits$to_nat$($13373)); - var $13372 = $13374; - break; - case 'i': - var $13375 = self.slice(0, -1); - var $13376 = Nat$succ$((2n * Bits$to_nat$($13375))); - var $13372 = $13376; - break; - case 'e': - var $13377 = 0n; - var $13372 = $13377; - break; - }; - return $13372; - }; - const Bits$to_nat = x0 => Bits$to_nat$(x0); - - function U16$show_hex$(_a$1) { - var self = _a$1; - switch ('u16') { - case 'u16': - var $13379 = u16_to_word(self); - var $13380 = Nat$to_string_base$(16n, Bits$to_nat$(Word$to_bits$($13379))); - var $13378 = $13380; - break; - }; - return $13378; - }; - const U16$show_hex = x0 => U16$show_hex$(x0); - - function Kind$Code$escape$char$(_chr$1) { - var self = (_chr$1 === Kind$Code$backslash); - if (self) { - var $13382 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); - var $13381 = $13382; - } else { - var self = (_chr$1 === 34); - if (self) { - var $13384 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); - var $13383 = $13384; - } else { - var self = (_chr$1 === 39); - if (self) { - var $13386 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); - var $13385 = $13386; - } else { - var self = U16$btw$(32, _chr$1, 126); - if (self) { - var $13388 = String$cons$(_chr$1, String$nil); - var $13387 = $13388; - } else { - var $13389 = (String$cons$(Kind$Code$backslash, String$nil) + ("u{" + (U16$show_hex$(_chr$1) + "}"))); - var $13387 = $13389; - }; - var $13385 = $13387; - }; - var $13383 = $13385; - }; - var $13381 = $13383; - }; - return $13381; - }; - const Kind$Code$escape$char = x0 => Kind$Code$escape$char$(x0); - - function Kind$Code$escape$go$(_str$1, _result$2) { - var Kind$Code$escape$go$ = (_str$1, _result$2) => ({ - ctr: 'TCO', - arg: [_str$1, _result$2] - }); - var Kind$Code$escape$go = _str$1 => _result$2 => Kind$Code$escape$go$(_str$1, _result$2); - var arg = [_str$1, _result$2]; - while (true) { - let [_str$1, _result$2] = arg; - var R = (() => { - var self = _str$1; - if (self.length === 0) { - var $13390 = String$reverse$(_result$2); - return $13390; - } else { - var $13391 = self.charCodeAt(0); - var $13392 = self.slice(1); - var $13393 = Kind$Code$escape$go$($13392, (String$reverse$(Kind$Code$escape$char$($13391)) + _result$2)); - return $13393; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const Kind$Code$escape$go = x0 => x1 => Kind$Code$escape$go$(x0, x1); - - function Kind$Code$escape$(_str$1) { - var $13394 = Kind$Code$escape$go$(_str$1, ""); - return $13394; - }; - const Kind$Code$escape = x0 => Kind$Code$escape$(x0); - function Kind$Core$show$go$(_term$1, _indx$2, _vars$3) { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $13396 = self.name; - var $13397 = self.indx; - var $13398 = Kind$Core$var_name$(Nat$pred$((_indx$2 - $13397 <= 0n ? 0n : _indx$2 - $13397)), $13396, 0n, _vars$3); - var $13395 = $13398; + var $14793 = self.name; + var $14794 = self.indx; + var $14795 = Kind$Core$var_name$(Nat$pred$((_indx$2 - $14794 <= 0n ? 0n : _indx$2 - $14794)), $14793, 0n, _vars$3); + var $14792 = $14795; break; case 'Kind.Term.ref': - var $13399 = self.name; - var $13400 = Kind$Name$show$($13399); - var $13395 = $13400; + var $14796 = self.name; + var $14797 = Kind$Name$show$($14796); + var $14792 = $14797; break; case 'Kind.Term.all': - var $13401 = self.eras; - var $13402 = self.self; - var $13403 = self.name; - var $13404 = self.xtyp; - var $13405 = self.body; - var _eras$9 = $13401; + var $14798 = self.eras; + var $14799 = self.self; + var $14800 = self.name; + var $14801 = self.xtyp; + var $14802 = self.body; + var _eras$9 = $14798; var self = _eras$9; if (self) { - var $13407 = "%"; - var _init$10 = $13407; + var $14804 = "%"; + var _init$10 = $14804; } else { - var $13408 = "@"; - var _init$10 = $13408; + var $14805 = "@"; + var _init$10 = $14805; }; - var _self$11 = Kind$Name$show$($13402); - var _name$12 = Kind$Name$show$($13403); - var _xtyp$13 = Kind$Core$show$go$($13404, _indx$2, _vars$3); - var _body$14 = Kind$Core$show$go$($13405(Kind$Term$var$($13402, _indx$2))(Kind$Term$var$($13403, Nat$succ$(_indx$2))), Nat$succ$(Nat$succ$(_indx$2)), List$cons$($13403, List$cons$($13402, _vars$3))); - var $13406 = String$flatten$(List$cons$(_init$10, List$cons$(_self$11, List$cons$("(", List$cons$(_name$12, List$cons$(":", List$cons$(_xtyp$13, List$cons$(") ", List$cons$(_body$14, List$nil))))))))); - var $13395 = $13406; + var _self$11 = Kind$Name$show$($14799); + var _name$12 = Kind$Name$show$($14800); + var _xtyp$13 = Kind$Core$show$go$($14801, _indx$2, _vars$3); + var _body$14 = Kind$Core$show$go$($14802(Kind$Term$var$($14799, _indx$2))(Kind$Term$var$($14800, Nat$succ$(_indx$2))), Nat$succ$(Nat$succ$(_indx$2)), List$cons$($14800, List$cons$($14799, _vars$3))); + var $14803 = String$flatten$(List$cons$(_init$10, List$cons$(_self$11, List$cons$("(", List$cons$(_name$12, List$cons$(":", List$cons$(_xtyp$13, List$cons$(") ", List$cons$(_body$14, List$nil))))))))); + var $14792 = $14803; break; case 'Kind.Term.lam': - var $13409 = self.name; - var $13410 = self.body; - var _name$6 = Kind$Name$show$($13409); - var _body$7 = Kind$Core$show$go$($13410(Kind$Term$var$($13409, _indx$2)), Nat$succ$(_indx$2), List$cons$($13409, _vars$3)); - var $13411 = String$flatten$(List$cons$("#", List$cons$(_name$6, List$cons$(" ", List$cons$(_body$7, List$nil))))); - var $13395 = $13411; + var $14806 = self.name; + var $14807 = self.body; + var _name$6 = Kind$Name$show$($14806); + var _body$7 = Kind$Core$show$go$($14807(Kind$Term$var$($14806, _indx$2)), Nat$succ$(_indx$2), List$cons$($14806, _vars$3)); + var $14808 = String$flatten$(List$cons$("#", List$cons$(_name$6, List$cons$(" ", List$cons$(_body$7, List$nil))))); + var $14792 = $14808; break; case 'Kind.Term.app': - var $13412 = self.func; - var $13413 = self.argm; - var _func$6 = Kind$Core$show$go$($13412, _indx$2, _vars$3); - var _argm$7 = Kind$Core$show$go$($13413, _indx$2, _vars$3); - var $13414 = String$flatten$(List$cons$("(", List$cons$(_func$6, List$cons$(" ", List$cons$(_argm$7, List$cons$(")", List$nil)))))); - var $13395 = $13414; + var $14809 = self.func; + var $14810 = self.argm; + var _func$6 = Kind$Core$show$go$($14809, _indx$2, _vars$3); + var _argm$7 = Kind$Core$show$go$($14810, _indx$2, _vars$3); + var $14811 = String$flatten$(List$cons$("(", List$cons$(_func$6, List$cons$(" ", List$cons$(_argm$7, List$cons$(")", List$nil)))))); + var $14792 = $14811; break; case 'Kind.Term.let': - var $13415 = self.name; - var $13416 = self.expr; - var $13417 = self.body; - var _name$7 = Kind$Name$show$($13415); - var _expr$8 = Kind$Core$show$go$($13416, _indx$2, _vars$3); - var _body$9 = Kind$Core$show$go$($13417(Kind$Term$var$($13415, _indx$2)), Nat$succ$(_indx$2), List$cons$($13415, _vars$3)); - var $13418 = String$flatten$(List$cons$("!", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); - var $13395 = $13418; + var $14812 = self.name; + var $14813 = self.expr; + var $14814 = self.body; + var _name$7 = Kind$Name$show$($14812); + var _expr$8 = Kind$Core$show$go$($14813, _indx$2, _vars$3); + var _body$9 = Kind$Core$show$go$($14814(Kind$Term$var$($14812, _indx$2)), Nat$succ$(_indx$2), List$cons$($14812, _vars$3)); + var $14815 = String$flatten$(List$cons$("!", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); + var $14792 = $14815; break; case 'Kind.Term.def': - var $13419 = self.name; - var $13420 = self.expr; - var $13421 = self.body; - var _name$7 = Kind$Name$show$($13419); - var _expr$8 = Kind$Core$show$go$($13420, _indx$2, _vars$3); - var _body$9 = Kind$Core$show$go$($13421(Kind$Term$var$($13419, _indx$2)), Nat$succ$(_indx$2), List$cons$($13419, _vars$3)); - var $13422 = String$flatten$(List$cons$("$", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); - var $13395 = $13422; + var $14816 = self.name; + var $14817 = self.expr; + var $14818 = self.body; + var _name$7 = Kind$Name$show$($14816); + var _expr$8 = Kind$Core$show$go$($14817, _indx$2, _vars$3); + var _body$9 = Kind$Core$show$go$($14818(Kind$Term$var$($14816, _indx$2)), Nat$succ$(_indx$2), List$cons$($14816, _vars$3)); + var $14819 = String$flatten$(List$cons$("$", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); + var $14792 = $14819; break; case 'Kind.Term.ann': - var $13423 = self.term; - var $13424 = self.type; - var _term$7 = Kind$Core$show$go$($13423, _indx$2, _vars$3); - var _type$8 = Kind$Core$show$go$($13424, _indx$2, _vars$3); - var $13425 = String$flatten$(List$cons$("{", List$cons$(_term$7, List$cons$(":", List$cons$(_type$8, List$cons$("}", List$nil)))))); - var $13395 = $13425; + var $14820 = self.term; + var $14821 = self.type; + var _term$7 = Kind$Core$show$go$($14820, _indx$2, _vars$3); + var _type$8 = Kind$Core$show$go$($14821, _indx$2, _vars$3); + var $14822 = String$flatten$(List$cons$("{", List$cons$(_term$7, List$cons$(":", List$cons$(_type$8, List$cons$("}", List$nil)))))); + var $14792 = $14822; break; case 'Kind.Term.nat': - var $13426 = self.natx; - var $13427 = String$flatten$(List$cons$("+", List$cons$(Nat$show$($13426), List$nil))); - var $13395 = $13427; + var $14823 = self.natx; + var $14824 = String$flatten$(List$cons$("+", List$cons$(Nat$show$($14823), List$nil))); + var $14792 = $14824; break; case 'Kind.Term.chr': - var $13428 = self.chrx; - var $13429 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($13428), List$cons$("\'", List$nil)))); - var $13395 = $13429; + var $14825 = self.chrx; + var $14826 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($14825), List$cons$("\'", List$nil)))); + var $14792 = $14826; break; case 'Kind.Term.str': - var $13430 = self.strx; - var $13431 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($13430), List$cons$("\"", List$nil)))); - var $13395 = $13431; + var $14827 = self.strx; + var $14828 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($14827), List$cons$("\"", List$nil)))); + var $14792 = $14828; break; case 'Kind.Term.ori': - var $13432 = self.expr; - var $13433 = Kind$Core$show$go$($13432, _indx$2, _vars$3); - var $13395 = $13433; + var $14829 = self.expr; + var $14830 = Kind$Core$show$go$($14829, _indx$2, _vars$3); + var $14792 = $14830; break; case 'Kind.Term.typ': case 'Kind.Term.gol': @@ -43736,110 +48036,110 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13434 = "*"; - var $13395 = $13434; + var $14831 = "*"; + var $14792 = $14831; break; }; - return $13395; + return $14792; }; const Kind$Core$show$go = x0 => x1 => x2 => Kind$Core$show$go$(x0, x1, x2); function Kind$Core$show$(_term$1) { - var $13435 = Kind$Core$show$go$(_term$1, 0n, List$nil); - return $13435; + var $14832 = Kind$Core$show$go$(_term$1, 0n, List$nil); + return $14832; }; const Kind$Core$show = x0 => Kind$Core$show$(x0); function Kind$Defs$core$(_defs$1) { var _result$2 = ""; var _result$3 = (() => { - var $13438 = _result$2; - var $13439 = BitsMap$values$(_defs$1); - let _result$4 = $13438; + var $14835 = _result$2; + var $14836 = BitsMap$values$(_defs$1); + let _result$4 = $14835; let _defn$3; - while ($13439._ === 'List.cons') { - _defn$3 = $13439.head; + while ($14836._ === 'List.cons') { + _defn$3 = $14836.head; var self = _defn$3; switch (self._) { case 'Kind.Def.new': - var $13440 = self.name; - var $13441 = self.term; - var $13442 = self.type; - var $13443 = self.stat; - var self = $13443; + var $14837 = self.name; + var $14838 = self.term; + var $14839 = self.type; + var $14840 = self.stat; + var self = $14840; switch (self._) { case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.fail': - var $13445 = _result$4; - var $13444 = $13445; + var $14842 = _result$4; + var $14841 = $14842; break; case 'Kind.Status.done': - var _name$15 = $13440; - var _term$16 = Kind$Core$show$($13441); - var _type$17 = Kind$Core$show$($13442); - var $13446 = String$flatten$(List$cons$(_result$4, List$cons$(_name$15, List$cons$(" : ", List$cons$(_type$17, List$cons$(" = ", List$cons$(_term$16, List$cons$(";\u{a}", List$nil)))))))); - var $13444 = $13446; + var _name$15 = $14837; + var _term$16 = Kind$Core$show$($14838); + var _type$17 = Kind$Core$show$($14839); + var $14843 = String$flatten$(List$cons$(_result$4, List$cons$(_name$15, List$cons$(" : ", List$cons$(_type$17, List$cons$(" = ", List$cons$(_term$16, List$cons$(";\u{a}", List$nil)))))))); + var $14841 = $14843; break; }; - var $13438 = $13444; + var $14835 = $14841; break; }; - _result$4 = $13438; - $13439 = $13439.tail; + _result$4 = $14835; + $14836 = $14836.tail; } return _result$4; })(); - var $13436 = _result$3; - return $13436; + var $14833 = _result$3; + return $14833; }; const Kind$Defs$core = x0 => Kind$Defs$core$(x0); function Kind$api$io$term_to_core$(_name$1) { - var $13447 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $13448 = _m$bind$2; - return $13448; + var $14844 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $14845 = _m$bind$2; + return $14845; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_new_defs$2 => { var self = _new_defs$2; switch (self._) { case 'Maybe.some': - var $13450 = self.value; - var $13451 = $13450; - var _defs$3 = $13451; + var $14847 = self.value; + var $14848 = $14847; + var _defs$3 = $14848; break; case 'Maybe.none': - var $13452 = Kind$Map$new; - var _defs$3 = $13452; + var $14849 = Kind$Map$new; + var _defs$3 = $14849; break; }; var _defs$4 = BitsMap$map$((_defn$4 => { var self = _defn$4; switch (self._) { case 'Kind.Def.new': - var $13454 = self.file; - var $13455 = self.code; - var $13456 = self.orig; - var $13457 = self.name; - var $13458 = self.term; - var $13459 = self.type; - var $13460 = self.isct; - var $13461 = self.arit; - var $13462 = self.stat; - var _term$14 = Kind$Term$inline$($13458, _defs$3); - var _type$15 = Kind$Term$inline$($13459, _defs$3); - var $13463 = Kind$Def$new$($13454, $13455, $13456, $13457, _term$14, _type$15, $13460, $13461, $13462); - var $13453 = $13463; + var $14851 = self.file; + var $14852 = self.code; + var $14853 = self.orig; + var $14854 = self.name; + var $14855 = self.term; + var $14856 = self.type; + var $14857 = self.isct; + var $14858 = self.arit; + var $14859 = self.stat; + var _term$14 = Kind$Term$inline$($14855, _defs$3); + var _type$15 = Kind$Term$inline$($14856, _defs$3); + var $14860 = Kind$Def$new$($14851, $14852, $14853, $14854, _term$14, _type$15, $14857, $14858, $14859); + var $14850 = $14860; break; }; - return $13453; + return $14850; }), _defs$3); - var $13449 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $13464 = _m$pure$6; - return $13464; + var $14846 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $14861 = _m$pure$6; + return $14861; }))(Kind$Defs$core$(_defs$4)); - return $13449; + return $14846; })); - return $13447; + return $14844; }; const Kind$api$io$term_to_core = x0 => Kind$api$io$term_to_core$(x0); @@ -43847,31 +48147,31 @@ module.exports = (function() { var self = _defn$1; switch (self._) { case 'Kind.Def.new': - var $13466 = self.file; - var $13467 = self.code; - var $13468 = self.orig; - var $13469 = self.name; - var $13470 = self.term; - var $13471 = self.type; - var $13472 = self.isct; - var $13473 = self.arit; - var $13474 = self.stat; - var _term$12 = Kind$Term$inline$($13470, _defs$2); - var _type$13 = Kind$Term$inline$($13471, _defs$2); - var $13475 = Kind$Def$new$($13466, $13467, $13468, $13469, _term$12, _type$13, $13472, $13473, $13474); - var $13465 = $13475; + var $14863 = self.file; + var $14864 = self.code; + var $14865 = self.orig; + var $14866 = self.name; + var $14867 = self.term; + var $14868 = self.type; + var $14869 = self.isct; + var $14870 = self.arit; + var $14871 = self.stat; + var _term$12 = Kind$Term$inline$($14867, _defs$2); + var _type$13 = Kind$Term$inline$($14868, _defs$2); + var $14872 = Kind$Def$new$($14863, $14864, $14865, $14866, _term$12, _type$13, $14869, $14870, $14871); + var $14862 = $14872; break; }; - return $13465; + return $14862; }; const Kind$Comp$Defs$compile$defn$adjust = x0 => x1 => Kind$Comp$Defs$compile$defn$adjust$(x0, x1); function Kind$Comp$var$(_name$1) { - var $13476 = ({ + var $14873 = ({ _: 'Kind.Comp.var', 'name': _name$1 }); - return $13476; + return $14873; }; const Kind$Comp$var = x0 => Kind$Comp$var$(x0); const Kind$Comp$nil = ({ @@ -43879,11 +48179,11 @@ module.exports = (function() { }); function Kind$Comp$ref$(_name$1) { - var $13477 = ({ + var $14874 = ({ _: 'Kind.Comp.ref', 'name': _name$1 }); - return $13477; + return $14874; }; const Kind$Comp$ref = x0 => Kind$Comp$ref$(x0); const Kind$Comp$Prim$bool = ({ @@ -43910,65 +48210,65 @@ module.exports = (function() { var self = Kind$Term$equal$go$(_a$1, _b$2, _defs$3, 0n, BitsSet$new); switch (self._) { case 'Kind.Check.result': - var $13479 = self.value; - var $13480 = Maybe$default$($13479, Bool$false); - var $13478 = $13480; + var $14876 = self.value; + var $14877 = Maybe$default$($14876, Bool$false); + var $14875 = $14877; break; }; - return $13478; + return $14875; }; const Kind$Term$equal = x0 => x1 => x2 => Kind$Term$equal$(x0, x1, x2); function Kind$Comp$compile$prim_of$(_type$1, _defs$2) { var _result$3 = Maybe$none; var _result$4 = (() => { - var $13483 = _result$3; - var $13484 = Kind$Comp$Prim$natives; - let _result$5 = $13483; + var $14880 = _result$3; + var $14881 = Kind$Comp$Prim$natives; + let _result$5 = $14880; let _prim$4; - while ($13484._ === 'List.cons') { - _prim$4 = $13484.head; + while ($14881._ === 'List.cons') { + _prim$4 = $14881.head; var self = _prim$4; switch (self._) { case 'Pair.new': - var $13485 = self.fst; - var $13486 = self.snd; + var $14882 = self.fst; + var $14883 = self.snd; var self = _result$5; switch (self._) { case 'Maybe.none': - var self = Kind$Term$equal$(_type$1, Kind$Term$ref$($13485), _defs$2); + var self = Kind$Term$equal$(_type$1, Kind$Term$ref$($14882), _defs$2); if (self) { - var $13489 = Maybe$some$($13486); - var $13488 = $13489; + var $14886 = Maybe$some$($14883); + var $14885 = $14886; } else { - var $13490 = Maybe$none; - var $13488 = $13490; + var $14887 = Maybe$none; + var $14885 = $14887; }; - var $13487 = $13488; + var $14884 = $14885; break; case 'Maybe.some': - var $13491 = _result$5; - var $13487 = $13491; + var $14888 = _result$5; + var $14884 = $14888; break; }; - var $13483 = $13487; + var $14880 = $14884; break; }; - _result$5 = $13483; - $13484 = $13484.tail; + _result$5 = $14880; + $14881 = $14881.tail; } return _result$5; })(); - var $13481 = _result$4; - return $13481; + var $14878 = _result$4; + return $14878; }; const Kind$Comp$compile$prim_of = x0 => x1 => Kind$Comp$compile$prim_of$(x0, x1); function String$ends_with$(_xs$1, _match$2) { var _xs_reserved$3 = String$reverse$(_xs$1); var _match_reversed$4 = String$reverse$(_match$2); - var $13492 = String$starts_with$(_xs_reserved$3, _match_reversed$4); - return $13492; + var $14889 = String$starts_with$(_xs_reserved$3, _match_reversed$4); + return $14889; }; const String$ends_with = x0 => x1 => String$ends_with$(x0, x1); @@ -43976,20 +48276,20 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $13494 = self.eras; - var $13495 = self.name; - var $13496 = self.body; - var _head$7 = $13495; - var _tail$8 = Kind$Comp$compile$adt$get_fields$($13496(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); - var self = $13494; + var $14891 = self.eras; + var $14892 = self.name; + var $14893 = self.body; + var _head$7 = $14892; + var _tail$8 = Kind$Comp$compile$adt$get_fields$($14893(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); + var self = $14891; if (self) { - var $13498 = _tail$8; - var $13497 = $13498; + var $14895 = _tail$8; + var $14894 = $14895; } else { - var $13499 = List$cons$(_head$7, _tail$8); - var $13497 = $13499; + var $14896 = List$cons$(_head$7, _tail$8); + var $14894 = $14896; }; - var $13493 = $13497; + var $14890 = $14894; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44011,11 +48311,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13500 = List$nil; - var $13493 = $13500; + var $14897 = List$nil; + var $14890 = $14897; break; }; - return $13493; + return $14890; }; const Kind$Comp$compile$adt$get_fields = x0 => Kind$Comp$compile$adt$get_fields$(x0); @@ -44023,14 +48323,14 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $13502 = self.name; - var $13503 = self.xtyp; - var $13504 = self.body; - var _tail$7 = Kind$Comp$compile$adt$get_constructors$($13504(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); - var _name$8 = $13502; - var _flds$9 = Kind$Comp$compile$adt$get_fields$($13503); - var $13505 = List$cons$(Pair$new$(_name$8, _flds$9), _tail$7); - var $13501 = $13505; + var $14899 = self.name; + var $14900 = self.xtyp; + var $14901 = self.body; + var _tail$7 = Kind$Comp$compile$adt$get_constructors$($14901(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); + var _name$8 = $14899; + var _flds$9 = Kind$Comp$compile$adt$get_fields$($14900); + var $14902 = List$cons$(Pair$new$(_name$8, _flds$9), _tail$7); + var $14898 = $14902; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44052,21 +48352,21 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13506 = List$nil; - var $13501 = $13506; + var $14903 = List$nil; + var $14898 = $14903; break; }; - return $13501; + return $14898; }; const Kind$Comp$compile$adt$get_constructors = x0 => Kind$Comp$compile$adt$get_constructors$(x0); function Kind$Comp$Prim$data$(_name$1, _ctrs$2) { - var $13507 = ({ + var $14904 = ({ _: 'Kind.Comp.Prim.data', 'name': _name$1, 'ctrs': _ctrs$2 }); - return $13507; + return $14904; }; const Kind$Comp$Prim$data = x0 => x1 => Kind$Comp$Prim$data$(x0, x1); @@ -44075,20 +48375,20 @@ module.exports = (function() { var self = _term$3; switch (self._) { case 'Kind.Term.all': - var $13509 = self.self; - var $13510 = self.body; - var self = String$ends_with$($13509, ".Self"); + var $14906 = self.self; + var $14907 = self.body; + var self = String$ends_with$($14906, ".Self"); if (self) { - var _body$9 = $13510(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n)); + var _body$9 = $14907(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n)); var _data$10 = Kind$Comp$compile$adt$get_constructors$(_body$9); - var _name$11 = String$take$((String$length$($13509) - 5n <= 0n ? 0n : String$length$($13509) - 5n), $13509); - var $13512 = Maybe$some$(Kind$Comp$Prim$data$(_name$11, _data$10)); - var $13511 = $13512; + var _name$11 = String$take$((String$length$($14906) - 5n <= 0n ? 0n : String$length$($14906) - 5n), $14906); + var $14909 = Maybe$some$(Kind$Comp$Prim$data$(_name$11, _data$10)); + var $14908 = $14909; } else { - var $13513 = Maybe$none; - var $13511 = $13513; + var $14910 = Maybe$none; + var $14908 = $14910; }; - var $13508 = $13511; + var $14905 = $14908; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44110,89 +48410,89 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13514 = Maybe$none; - var $13508 = $13514; + var $14911 = Maybe$none; + var $14905 = $14911; break; }; - return $13508; + return $14905; }; const Kind$Comp$compile$adt = x0 => x1 => Kind$Comp$compile$adt$(x0, x1); function Kind$Comp$eli$(_prim$1, _expr$2) { - var $13515 = ({ + var $14912 = ({ _: 'Kind.Comp.eli', 'prim': _prim$1, 'expr': _expr$2 }); - return $13515; + return $14912; }; const Kind$Comp$eli = x0 => x1 => Kind$Comp$eli$(x0, x1); function Kind$Comp$app$(_func$1, _argm$2) { - var $13516 = ({ + var $14913 = ({ _: 'Kind.Comp.app', 'func': _func$1, 'argm': _argm$2 }); - return $13516; + return $14913; }; const Kind$Comp$app = x0 => x1 => Kind$Comp$app$(x0, x1); function Kind$Comp$let$(_name$1, _expr$2, _body$3) { - var $13517 = ({ + var $14914 = ({ _: 'Kind.Comp.let', 'name': _name$1, 'expr': _expr$2, 'body': _body$3 }); - return $13517; + return $14914; }; const Kind$Comp$let = x0 => x1 => x2 => Kind$Comp$let$(x0, x1, x2); function Kind$Comp$nat$(_natx$1) { - var $13518 = ({ + var $14915 = ({ _: 'Kind.Comp.nat', 'natx': _natx$1 }); - return $13518; + return $14915; }; const Kind$Comp$nat = x0 => Kind$Comp$nat$(x0); function Kind$Comp$chr$(_chrx$1) { - var $13519 = ({ + var $14916 = ({ _: 'Kind.Comp.chr', 'chrx': _chrx$1 }); - return $13519; + return $14916; }; const Kind$Comp$chr = x0 => Kind$Comp$chr$(x0); function Kind$Comp$str$(_strx$1) { - var $13520 = ({ + var $14917 = ({ _: 'Kind.Comp.str', 'strx': _strx$1 }); - return $13520; + return $14917; }; const Kind$Comp$str = x0 => Kind$Comp$str$(x0); function Kind$Comp$lam$(_name$1, _body$2) { - var $13521 = ({ + var $14918 = ({ _: 'Kind.Comp.lam', 'name': _name$1, 'body': _body$2 }); - return $13521; + return $14918; }; const Kind$Comp$lam = x0 => x1 => Kind$Comp$lam$(x0, x1); function Kind$Comp$ins$(_prim$1, _expr$2) { - var $13522 = ({ + var $14919 = ({ _: 'Kind.Comp.ins', 'prim': _prim$1, 'expr': _expr$2 }); - return $13522; + return $14919; }; const Kind$Comp$ins = x0 => x1 => Kind$Comp$ins$(x0, x1); @@ -44200,63 +48500,63 @@ module.exports = (function() { var self = _type$2; switch (self._) { case 'Maybe.some': - var $13524 = self.value; - var _typv$6 = Kind$Term$reduce$($13524, _defs$3); + var $14921 = self.value; + var _typv$6 = Kind$Term$reduce$($14921, _defs$3); var self = _term$1; switch (self._) { case 'Kind.Term.lam': - var $13526 = self.name; - var $13527 = self.body; + var $14923 = self.name; + var $14924 = self.body; var self = _typv$6; switch (self._) { case 'Kind.Term.all': - var $13529 = self.eras; - var $13530 = self.xtyp; - var $13531 = self.body; - var _self_var$14 = Kind$Term$ann$(Bool$true, _term$1, $13524); - var _name_uid$15 = ($13526 + ("$" + Nat$show$(_size$4))); - var _name_var$16 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$15, (_size$4 + 1n)), $13530); - var _body_typ$17 = $13531(_self_var$14)(_name_var$16); - var self = Kind$Comp$compile$($13527(_name_var$16), Maybe$some$(_body_typ$17), _defs$3, (_size$4 + 1n)); + var $14926 = self.eras; + var $14927 = self.xtyp; + var $14928 = self.body; + var _self_var$14 = Kind$Term$ann$(Bool$true, _term$1, $14921); + var _name_uid$15 = ($14923 + ("$" + Nat$show$(_size$4))); + var _name_var$16 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$15, (_size$4 + 1n)), $14927); + var _body_typ$17 = $14928(_self_var$14)(_name_var$16); + var self = Kind$Comp$compile$($14924(_name_var$16), Maybe$some$(_body_typ$17), _defs$3, (_size$4 + 1n)); switch (self._) { case 'Pair.new': - var $13533 = self.fst; - var self = $13529; + var $14930 = self.fst; + var self = $14926; if (self) { - var $13535 = $13533; - var _term_cmp$20 = $13535; + var $14932 = $14930; + var _term_cmp$20 = $14932; } else { - var $13536 = Kind$Comp$lam$(_name_uid$15, $13533); - var _term_cmp$20 = $13536; + var $14933 = Kind$Comp$lam$(_name_uid$15, $14930); + var _term_cmp$20 = $14933; }; - var self = Kind$Comp$compile$prim_of$($13524, _defs$3); + var self = Kind$Comp$compile$prim_of$($14921, _defs$3); switch (self._) { case 'Maybe.some': - var $13537 = self.value; - var $13538 = Kind$Comp$ins$($13537, _term_cmp$20); - var _term_cmp$21 = $13538; + var $14934 = self.value; + var $14935 = Kind$Comp$ins$($14934, _term_cmp$20); + var _term_cmp$21 = $14935; break; case 'Maybe.none': - var self = Kind$Comp$compile$adt$($13524, _defs$3); + var self = Kind$Comp$compile$adt$($14921, _defs$3); switch (self._) { case 'Maybe.some': - var $13540 = self.value; - var $13541 = Kind$Comp$ins$($13540, _term_cmp$20); - var $13539 = $13541; + var $14937 = self.value; + var $14938 = Kind$Comp$ins$($14937, _term_cmp$20); + var $14936 = $14938; break; case 'Maybe.none': - var $13542 = _term_cmp$20; - var $13539 = $13542; + var $14939 = _term_cmp$20; + var $14936 = $14939; break; }; - var _term_cmp$21 = $13539; + var _term_cmp$21 = $14936; break; }; - var $13534 = Pair$new$(_term_cmp$21, $13524); - var $13532 = $13534; + var $14931 = Pair$new$(_term_cmp$21, $14921); + var $14929 = $14931; break; }; - var $13528 = $13532; + var $14925 = $14929; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44278,43 +48578,43 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13543 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $13528 = $13543; + var $14940 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14925 = $14940; break; }; - var $13525 = $13528; + var $14922 = $14925; break; case 'Kind.Term.let': - var $13544 = self.name; - var $13545 = self.expr; - var $13546 = self.body; - var self = Kind$Comp$compile$($13545, Maybe$none, _defs$3, _size$4); + var $14941 = self.name; + var $14942 = self.expr; + var $14943 = self.body; + var self = Kind$Comp$compile$($14942, Maybe$none, _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $13548 = self.fst; - var $13549 = self.snd; - var _name_uid$12 = ($13544 + ("$" + Nat$show$(_size$4))); - var _expr_var$13 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$12, (_size$4 + 1n)), $13549); - var self = Kind$Comp$compile$($13546(_expr_var$13), _type$2, _defs$3, (_size$4 + 1n)); + var $14945 = self.fst; + var $14946 = self.snd; + var _name_uid$12 = ($14941 + ("$" + Nat$show$(_size$4))); + var _expr_var$13 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$12, (_size$4 + 1n)), $14946); + var self = Kind$Comp$compile$($14943(_expr_var$13), _type$2, _defs$3, (_size$4 + 1n)); switch (self._) { case 'Pair.new': - var $13551 = self.fst; - var $13552 = self.snd; - var _term_cmp$16 = Kind$Comp$let$(_name_uid$12, $13548, $13551); - var _term_typ$17 = $13552; - var $13553 = Pair$new$(_term_cmp$16, _term_typ$17); - var $13550 = $13553; + var $14948 = self.fst; + var $14949 = self.snd; + var _term_cmp$16 = Kind$Comp$let$(_name_uid$12, $14945, $14948); + var _term_typ$17 = $14949; + var $14950 = Pair$new$(_term_cmp$16, _term_typ$17); + var $14947 = $14950; break; }; - var $13547 = $13550; + var $14944 = $14947; break; }; - var $13525 = $13547; + var $14922 = $14944; break; case 'Kind.Term.ori': - var $13554 = self.expr; - var $13555 = Kind$Comp$compile$($13554, _type$2, _defs$3, _size$4); - var $13525 = $13555; + var $14951 = self.expr; + var $14952 = Kind$Comp$compile$($14951, _type$2, _defs$3, _size$4); + var $14922 = $14952; break; case 'Kind.Term.var': case 'Kind.Term.app': @@ -44341,15 +48641,15 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13557 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13524); - var $13556 = $13557; + var $14954 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); + var $14953 = $14954; break; case 'Kind.Term.typ': - var $13558 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $13556 = $13558; + var $14955 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14953 = $14955; break; }; - var $13525 = $13556; + var $14922 = $14953; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -44379,15 +48679,15 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13560 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13524); - var $13559 = $13560; + var $14957 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); + var $14956 = $14957; break; case 'Kind.Term.typ': - var $13561 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $13559 = $13561; + var $14958 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14956 = $14958; break; }; - var $13525 = $13559; + var $14922 = $14956; break; case 'Kind.Term.typ': var self = _typv$6; @@ -44412,15 +48712,15 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13563 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13524); - var $13562 = $13563; + var $14960 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); + var $14959 = $14960; break; case 'Kind.Term.typ': - var $13564 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $13562 = $13564; + var $14961 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14959 = $14961; break; }; - var $13525 = $13562; + var $14922 = $14959; break; case 'Kind.Term.all': var self = _typv$6; @@ -44445,15 +48745,15 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13566 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13524); - var $13565 = $13566; + var $14963 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); + var $14962 = $14963; break; case 'Kind.Term.typ': - var $13567 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $13565 = $13567; + var $14964 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14962 = $14964; break; }; - var $13525 = $13565; + var $14922 = $14962; break; case 'Kind.Term.def': case 'Kind.Term.ann': @@ -44483,15 +48783,15 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13569 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13524); - var $13568 = $13569; + var $14966 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); + var $14965 = $14966; break; case 'Kind.Term.typ': - var $13570 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $13568 = $13570; + var $14967 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14965 = $14967; break; }; - var $13525 = $13568; + var $14922 = $14965; break; case 'Kind.Term.cse': var self = _typv$6; @@ -44516,107 +48816,107 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13572 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13524); - var $13571 = $13572; + var $14969 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); + var $14968 = $14969; break; case 'Kind.Term.typ': - var $13573 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $13571 = $13573; + var $14970 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14968 = $14970; break; }; - var $13525 = $13571; + var $14922 = $14968; break; }; - var $13523 = $13525; + var $14920 = $14922; break; case 'Maybe.none': var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $13575 = self.name; - var $13576 = self.indx; - var $13577 = Pair$new$(Kind$Comp$var$($13575), Kind$Term$var$($13575, $13576)); - var $13574 = $13577; + var $14972 = self.name; + var $14973 = self.indx; + var $14974 = Pair$new$(Kind$Comp$var$($14972), Kind$Term$var$($14972, $14973)); + var $14971 = $14974; break; case 'Kind.Term.ref': - var $13578 = self.name; - var self = Kind$Map$get$($13578, _defs$3); + var $14975 = self.name; + var self = Kind$Map$get$($14975, _defs$3); switch (self._) { case 'Maybe.some': - var $13580 = self.value; - var $13581 = Pair$new$(Kind$Comp$ref$($13578), (() => { - var self = $13580; + var $14977 = self.value; + var $14978 = Pair$new$(Kind$Comp$ref$($14975), (() => { + var self = $14977; switch (self._) { case 'Kind.Def.new': - var $13582 = self.type; - var $13583 = $13582; - return $13583; + var $14979 = self.type; + var $14980 = $14979; + return $14980; }; })()); - var $13579 = $13581; + var $14976 = $14978; break; case 'Maybe.none': - var $13584 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $13579 = $13584; + var $14981 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14976 = $14981; break; }; - var $13574 = $13579; + var $14971 = $14976; break; case 'Kind.Term.app': - var $13585 = self.func; - var $13586 = self.argm; - var self = Kind$Comp$compile$($13585, Maybe$none, _defs$3, _size$4); + var $14982 = self.func; + var $14983 = self.argm; + var self = Kind$Comp$compile$($14982, Maybe$none, _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $13588 = self.fst; - var $13589 = self.snd; - var self = Kind$Term$reduce$($13589, _defs$3); + var $14985 = self.fst; + var $14986 = self.snd; + var self = Kind$Term$reduce$($14986, _defs$3); switch (self._) { case 'Kind.Term.all': - var $13591 = self.eras; - var $13592 = self.xtyp; - var $13593 = self.body; - var self = Kind$Comp$compile$($13586, Maybe$some$($13592), _defs$3, _size$4); + var $14988 = self.eras; + var $14989 = self.xtyp; + var $14990 = self.body; + var self = Kind$Comp$compile$($14983, Maybe$some$($14989), _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $13595 = self.fst; - var _term_typ$16 = $13593($13585)($13586); - var self = Kind$Comp$compile$prim_of$($13589, _defs$3); + var $14992 = self.fst; + var _term_typ$16 = $14990($14982)($14983); + var self = Kind$Comp$compile$prim_of$($14986, _defs$3); switch (self._) { case 'Maybe.some': - var $13597 = self.value; - var $13598 = Kind$Comp$eli$($13597, $13588); - var _term_cmp$17 = $13598; + var $14994 = self.value; + var $14995 = Kind$Comp$eli$($14994, $14985); + var _term_cmp$17 = $14995; break; case 'Maybe.none': - var self = Kind$Comp$compile$adt$($13589, _defs$3); + var self = Kind$Comp$compile$adt$($14986, _defs$3); switch (self._) { case 'Maybe.some': - var $13600 = self.value; - var $13601 = Kind$Comp$eli$($13600, $13588); - var $13599 = $13601; + var $14997 = self.value; + var $14998 = Kind$Comp$eli$($14997, $14985); + var $14996 = $14998; break; case 'Maybe.none': - var $13602 = $13588; - var $13599 = $13602; + var $14999 = $14985; + var $14996 = $14999; break; }; - var _term_cmp$17 = $13599; + var _term_cmp$17 = $14996; break; }; - var self = $13591; + var self = $14988; if (self) { - var $13603 = _term_cmp$17; - var _term_cmp$18 = $13603; + var $15000 = _term_cmp$17; + var _term_cmp$18 = $15000; } else { - var $13604 = Kind$Comp$app$(_term_cmp$17, $13595); - var _term_cmp$18 = $13604; + var $15001 = Kind$Comp$app$(_term_cmp$17, $14992); + var _term_cmp$18 = $15001; }; - var $13596 = Pair$new$(_term_cmp$18, _term_typ$16); - var $13594 = $13596; + var $14993 = Pair$new$(_term_cmp$18, _term_typ$16); + var $14991 = $14993; break; }; - var $13590 = $13594; + var $14987 = $14991; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44638,71 +48938,71 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13605 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $13590 = $13605; + var $15002 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14987 = $15002; break; }; - var $13587 = $13590; + var $14984 = $14987; break; }; - var $13574 = $13587; + var $14971 = $14984; break; case 'Kind.Term.let': - var $13606 = self.name; - var $13607 = self.expr; - var $13608 = self.body; - var self = Kind$Comp$compile$($13607, Maybe$none, _defs$3, _size$4); + var $15003 = self.name; + var $15004 = self.expr; + var $15005 = self.body; + var self = Kind$Comp$compile$($15004, Maybe$none, _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $13610 = self.fst; - var $13611 = self.snd; - var _name_uid$10 = ($13606 + ("$" + Nat$show$(_size$4))); - var _expr_var$11 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$10, (_size$4 + 1n)), $13611); - var self = Kind$Comp$compile$($13608(_expr_var$11), Maybe$none, _defs$3, (_size$4 + 1n)); + var $15007 = self.fst; + var $15008 = self.snd; + var _name_uid$10 = ($15003 + ("$" + Nat$show$(_size$4))); + var _expr_var$11 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$10, (_size$4 + 1n)), $15008); + var self = Kind$Comp$compile$($15005(_expr_var$11), Maybe$none, _defs$3, (_size$4 + 1n)); switch (self._) { case 'Pair.new': - var $13613 = self.fst; - var $13614 = self.snd; - var $13615 = Pair$new$(Kind$Comp$let$(_name_uid$10, $13610, $13613), $13614); - var $13612 = $13615; + var $15010 = self.fst; + var $15011 = self.snd; + var $15012 = Pair$new$(Kind$Comp$let$(_name_uid$10, $15007, $15010), $15011); + var $15009 = $15012; break; }; - var $13609 = $13612; + var $15006 = $15009; break; }; - var $13574 = $13609; + var $14971 = $15006; break; case 'Kind.Term.def': - var $13616 = self.expr; - var $13617 = self.body; - var $13618 = Kind$Comp$compile$($13617($13616), Maybe$none, _defs$3, _size$4); - var $13574 = $13618; + var $15013 = self.expr; + var $15014 = self.body; + var $15015 = Kind$Comp$compile$($15014($15013), Maybe$none, _defs$3, _size$4); + var $14971 = $15015; break; case 'Kind.Term.ann': - var $13619 = self.term; - var $13620 = self.type; - var $13621 = Kind$Comp$compile$($13619, Maybe$some$($13620), _defs$3, _size$4); - var $13574 = $13621; + var $15016 = self.term; + var $15017 = self.type; + var $15018 = Kind$Comp$compile$($15016, Maybe$some$($15017), _defs$3, _size$4); + var $14971 = $15018; break; case 'Kind.Term.nat': - var $13622 = self.natx; - var $13623 = Pair$new$(Kind$Comp$nat$($13622), Kind$Term$ref$("Nat")); - var $13574 = $13623; + var $15019 = self.natx; + var $15020 = Pair$new$(Kind$Comp$nat$($15019), Kind$Term$ref$("Nat")); + var $14971 = $15020; break; case 'Kind.Term.chr': - var $13624 = self.chrx; - var $13625 = Pair$new$(Kind$Comp$chr$($13624), Kind$Term$ref$("Char")); - var $13574 = $13625; + var $15021 = self.chrx; + var $15022 = Pair$new$(Kind$Comp$chr$($15021), Kind$Term$ref$("Char")); + var $14971 = $15022; break; case 'Kind.Term.str': - var $13626 = self.strx; - var $13627 = Pair$new$(Kind$Comp$str$($13626), Kind$Term$ref$("String")); - var $13574 = $13627; + var $15023 = self.strx; + var $15024 = Pair$new$(Kind$Comp$str$($15023), Kind$Term$ref$("String")); + var $14971 = $15024; break; case 'Kind.Term.ori': - var $13628 = self.expr; - var $13629 = Kind$Comp$compile$($13628, Maybe$none, _defs$3, _size$4); - var $13574 = $13629; + var $15025 = self.expr; + var $15026 = Kind$Comp$compile$($15025, Maybe$none, _defs$3, _size$4); + var $14971 = $15026; break; case 'Kind.Term.typ': case 'Kind.Term.all': @@ -44715,14 +49015,14 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13630 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $13574 = $13630; + var $15027 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $14971 = $15027; break; }; - var $13523 = $13574; + var $14920 = $14971; break; }; - return $13523; + return $14920; }; const Kind$Comp$compile = x0 => x1 => x2 => x3 => Kind$Comp$compile$(x0, x1, x2, x3); @@ -44730,34 +49030,34 @@ module.exports = (function() { var self = _defn$1; switch (self._) { case 'Kind.Def.new': - var $13632 = self.term; - var $13633 = self.type; - var self = Kind$Comp$compile$($13632, Maybe$some$($13633), _defs$2, 0n); + var $15029 = self.term; + var $15030 = self.type; + var self = Kind$Comp$compile$($15029, Maybe$some$($15030), _defs$2, 0n); switch (self._) { case 'Pair.new': - var $13635 = self.fst; - var $13636 = $13635; - var $13634 = $13636; + var $15032 = self.fst; + var $15033 = $15032; + var $15031 = $15033; break; }; - var $13631 = $13634; + var $15028 = $15031; break; }; - return $13631; + return $15028; }; const Kind$Comp$Defs$compile$defn = x0 => x1 => Kind$Comp$Defs$compile$defn$(x0, x1); function Kind$Comp$Defs$compile$(_defs$1) { var _defs$2 = BitsMap$map$((_x$2 => { - var $13638 = Kind$Comp$Defs$compile$defn$adjust$(_x$2, _defs$1); - return $13638; + var $15035 = Kind$Comp$Defs$compile$defn$adjust$(_x$2, _defs$1); + return $15035; }), _defs$1); var _defs$3 = BitsMap$map$((_x$3 => { - var $13639 = Kind$Comp$Defs$compile$defn$(_x$3, _defs$2); - return $13639; + var $15036 = Kind$Comp$Defs$compile$defn$(_x$3, _defs$2); + return $15036; }), _defs$2); - var $13637 = _defs$3; - return $13637; + var $15034 = _defs$3; + return $15034; }; const Kind$Comp$Defs$compile = x0 => Kind$Comp$Defs$compile$(x0); @@ -44765,124 +49065,124 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.ref': - var $13641 = self.name; - var self = Kind$Map$get$($13641, _seen$3); + var $15038 = self.name; + var self = Kind$Map$get$($15038, _seen$3); switch (self._) { case 'Maybe.none': - var self = Kind$Map$get$($13641, _defs$2); + var self = Kind$Map$get$($15038, _defs$2); switch (self._) { case 'Maybe.some': - var $13644 = self.value; - var _term$7 = $13644; - var _seen$8 = Kind$Map$set$($13641, Unit$new, _seen$3); + var $15041 = self.value; + var _term$7 = $15041; + var _seen$8 = Kind$Map$set$($15038, Unit$new, _seen$3); var self = Kind$Comp$dependency_sort$go$(_term$7, _defs$2, _seen$8, _list$4); switch (self._) { case 'Pair.new': - var $13646 = self.fst; - var $13647 = self.snd; - var _list$11 = List$cons$(Pair$new$($13641, $13644), $13647); - var $13648 = Pair$new$($13646, _list$11); - var $13645 = $13648; + var $15043 = self.fst; + var $15044 = self.snd; + var _list$11 = List$cons$(Pair$new$($15038, $15041), $15044); + var $15045 = Pair$new$($15043, _list$11); + var $15042 = $15045; break; }; - var $13643 = $13645; + var $15040 = $15042; break; case 'Maybe.none': - var $13649 = Pair$new$(_seen$3, _list$4); - var $13643 = $13649; + var $15046 = Pair$new$(_seen$3, _list$4); + var $15040 = $15046; break; }; - var $13642 = $13643; + var $15039 = $15040; break; case 'Maybe.some': - var $13650 = Pair$new$(_seen$3, _list$4); - var $13642 = $13650; + var $15047 = Pair$new$(_seen$3, _list$4); + var $15039 = $15047; break; }; - var $13640 = $13642; + var $15037 = $15039; break; case 'Kind.Comp.lam': - var $13651 = self.body; - var self = Kind$Comp$dependency_sort$go$($13651, _defs$2, _seen$3, _list$4); + var $15048 = self.body; + var self = Kind$Comp$dependency_sort$go$($15048, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $13653 = self.fst; - var $13654 = self.snd; - var $13655 = Pair$new$($13653, $13654); - var $13652 = $13655; + var $15050 = self.fst; + var $15051 = self.snd; + var $15052 = Pair$new$($15050, $15051); + var $15049 = $15052; break; }; - var $13640 = $13652; + var $15037 = $15049; break; case 'Kind.Comp.app': - var $13656 = self.func; - var $13657 = self.argm; - var self = Kind$Comp$dependency_sort$go$($13656, _defs$2, _seen$3, _list$4); + var $15053 = self.func; + var $15054 = self.argm; + var self = Kind$Comp$dependency_sort$go$($15053, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $13659 = self.fst; - var $13660 = self.snd; - var self = Kind$Comp$dependency_sort$go$($13657, _defs$2, $13659, $13660); + var $15056 = self.fst; + var $15057 = self.snd; + var self = Kind$Comp$dependency_sort$go$($15054, _defs$2, $15056, $15057); switch (self._) { case 'Pair.new': - var $13662 = self.fst; - var $13663 = self.snd; - var $13664 = Pair$new$($13662, $13663); - var $13661 = $13664; + var $15059 = self.fst; + var $15060 = self.snd; + var $15061 = Pair$new$($15059, $15060); + var $15058 = $15061; break; }; - var $13658 = $13661; + var $15055 = $15058; break; }; - var $13640 = $13658; + var $15037 = $15055; break; case 'Kind.Comp.let': - var $13665 = self.expr; - var $13666 = self.body; - var self = Kind$Comp$dependency_sort$go$($13665, _defs$2, _seen$3, _list$4); + var $15062 = self.expr; + var $15063 = self.body; + var self = Kind$Comp$dependency_sort$go$($15062, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $13668 = self.fst; - var $13669 = self.snd; - var self = Kind$Comp$dependency_sort$go$($13666, _defs$2, $13668, $13669); + var $15065 = self.fst; + var $15066 = self.snd; + var self = Kind$Comp$dependency_sort$go$($15063, _defs$2, $15065, $15066); switch (self._) { case 'Pair.new': - var $13671 = self.fst; - var $13672 = self.snd; - var $13673 = Pair$new$($13671, $13672); - var $13670 = $13673; + var $15068 = self.fst; + var $15069 = self.snd; + var $15070 = Pair$new$($15068, $15069); + var $15067 = $15070; break; }; - var $13667 = $13670; + var $15064 = $15067; break; }; - var $13640 = $13667; + var $15037 = $15064; break; case 'Kind.Comp.eli': - var $13674 = self.expr; - var self = Kind$Comp$dependency_sort$go$($13674, _defs$2, _seen$3, _list$4); + var $15071 = self.expr; + var self = Kind$Comp$dependency_sort$go$($15071, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $13676 = self.fst; - var $13677 = self.snd; - var $13678 = Pair$new$($13676, $13677); - var $13675 = $13678; + var $15073 = self.fst; + var $15074 = self.snd; + var $15075 = Pair$new$($15073, $15074); + var $15072 = $15075; break; }; - var $13640 = $13675; + var $15037 = $15072; break; case 'Kind.Comp.ins': - var $13679 = self.expr; - var self = Kind$Comp$dependency_sort$go$($13679, _defs$2, _seen$3, _list$4); + var $15076 = self.expr; + var self = Kind$Comp$dependency_sort$go$($15076, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $13681 = self.fst; - var $13682 = self.snd; - var $13683 = Pair$new$($13681, $13682); - var $13680 = $13683; + var $15078 = self.fst; + var $15079 = self.snd; + var $15080 = Pair$new$($15078, $15079); + var $15077 = $15080; break; }; - var $13640 = $13680; + var $15037 = $15077; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -44890,11 +49190,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $13684 = Pair$new$(_seen$3, _list$4); - var $13640 = $13684; + var $15081 = Pair$new$(_seen$3, _list$4); + var $15037 = $15081; break; }; - return $13640; + return $15037; }; const Kind$Comp$dependency_sort$go = x0 => x1 => x2 => x3 => Kind$Comp$dependency_sort$go$(x0, x1, x2, x3); @@ -44905,34 +49205,34 @@ module.exports = (function() { var self = Kind$Comp$dependency_sort$go$(_term$3, _defs$2, _seen$4, _list$5); switch (self._) { case 'Pair.new': - var $13686 = self.snd; - var $13687 = List$reverse$($13686); - var $13685 = $13687; + var $15083 = self.snd; + var $15084 = List$reverse$($15083); + var $15082 = $15084; break; }; - return $13685; + return $15082; }; const Kind$Comp$dependency_sort = x0 => x1 => Kind$Comp$dependency_sort$(x0, x1); function String$take_while$(_f$1, _xs$2) { var self = _xs$2; if (self.length === 0) { - var $13689 = String$nil; - var $13688 = $13689; + var $15086 = String$nil; + var $15085 = $15086; } else { - var $13690 = self.charCodeAt(0); - var $13691 = self.slice(1); - var self = _f$1($13690); + var $15087 = self.charCodeAt(0); + var $15088 = self.slice(1); + var self = _f$1($15087); if (self) { - var $13693 = String$cons$($13690, String$take_while$(_f$1, $13691)); - var $13692 = $13693; + var $15090 = String$cons$($15087, String$take_while$(_f$1, $15088)); + var $15089 = $15090; } else { - var $13694 = String$nil; - var $13692 = $13694; + var $15091 = String$nil; + var $15089 = $15091; }; - var $13688 = $13692; + var $15085 = $15089; }; - return $13688; + return $15085; }; const String$take_while = x0 => x1 => String$take_while$(x0, x1); @@ -44948,20 +49248,20 @@ module.exports = (function() { var R = (() => { var self = _xs$2; if (self.length === 0) { - var $13695 = String$nil; - return $13695; + var $15092 = String$nil; + return $15092; } else { - var $13696 = self.charCodeAt(0); - var $13697 = self.slice(1); - var self = _f$1($13696); + var $15093 = self.charCodeAt(0); + var $15094 = self.slice(1); + var self = _f$1($15093); if (self) { - var $13699 = String$drop_while$(_f$1, $13697); - var $13698 = $13699; + var $15096 = String$drop_while$(_f$1, $15094); + var $15095 = $15096; } else { - var $13700 = _xs$2; - var $13698 = $13700; + var $15097 = _xs$2; + var $15095 = $15097; }; - return $13698; + return $15095; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -44973,38 +49273,38 @@ module.exports = (function() { function Kind$Comp$replace$(_str$1, _vars$2) { var self = _str$1; if (self.length === 0) { - var $13702 = _str$1; - var $13701 = $13702; + var $15099 = _str$1; + var $15098 = $15099; } else { - var $13703 = self.charCodeAt(0); - var $13704 = self.slice(1); - var _a$5 = $13703; + var $15100 = self.charCodeAt(0); + var $15101 = self.slice(1); + var _a$5 = $15100; var self = (_a$5 === 36); if (self) { var _n_str$6 = String$take_while$((_b$6 => { - var $13707 = ((_b$6 >= 48) && (_b$6 <= 57)); - return $13707; - }), $13704); + var $15104 = ((_b$6 >= 48) && (_b$6 <= 57)); + return $15104; + }), $15101); var self = (String$length$(_n_str$6) > 0n); if (self) { var _n_str$tail$7 = String$drop_while$((_b$7 => { - var $13709 = ((_b$7 >= 48) && (_b$7 <= 57)); - return $13709; - }), $13704); - var $13708 = (Maybe$default$(List$get$((BigInt(_n_str$6)), _vars$2), "?") + Kind$Comp$replace$(_n_str$tail$7, _vars$2)); - var $13706 = $13708; + var $15106 = ((_b$7 >= 48) && (_b$7 <= 57)); + return $15106; + }), $15101); + var $15105 = (Maybe$default$(List$get$((BigInt(_n_str$6)), _vars$2), "?") + Kind$Comp$replace$(_n_str$tail$7, _vars$2)); + var $15103 = $15105; } else { - var $13710 = String$cons$(_a$5, Kind$Comp$replace$($13704, _vars$2)); - var $13706 = $13710; + var $15107 = String$cons$(_a$5, Kind$Comp$replace$($15101, _vars$2)); + var $15103 = $15107; }; - var $13705 = $13706; + var $15102 = $15103; } else { - var $13711 = String$cons$(_a$5, Kind$Comp$replace$($13704, _vars$2)); - var $13705 = $13711; + var $15108 = String$cons$(_a$5, Kind$Comp$replace$($15101, _vars$2)); + var $15102 = $15108; }; - var $13701 = $13705; + var $15098 = $15102; }; - return $13701; + return $15098; }; const Kind$Comp$replace = x0 => x1 => Kind$Comp$replace$(x0, x1); @@ -45020,12 +49320,12 @@ module.exports = (function() { var R = (() => { var self = _len$2; if (self === 0n) { - var $13712 = _result$4; - return $13712; + var $15109 = _result$4; + return $15109; } else { - var $13713 = (self - 1n); - var $13714 = List$create$go$($13713, _create_value$3, List$cons$(_create_value$3($13713), _result$4)); - return $13714; + var $15110 = (self - 1n); + var $15111 = List$create$go$($15110, _create_value$3, List$cons$(_create_value$3($15110), _result$4)); + return $15111; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -45035,8 +49335,8 @@ module.exports = (function() { const List$create$go = x0 => x1 => x2 => List$create$go$(x0, x1, x2); function List$create$(_len$2, _create_value$3) { - var $13715 = List$create$go$(_len$2, _create_value$3, List$nil); - return $13715; + var $15112 = List$create$go$(_len$2, _create_value$3, List$nil); + return $15112; }; const List$create = x0 => x1 => List$create$(x0, x1); @@ -45044,38 +49344,38 @@ module.exports = (function() { var self = _ctor$5; switch (self._) { case 'Pair.new': - var $13717 = self.fst; - var $13718 = self.snd; - var self = (_j$6 === $13717); + var $15114 = self.fst; + var $15115 = self.snd; + var self = (_j$6 === $15114); if (self) { - var $13720 = Kind$Comp$replace$($13718, List$create$($13717, (_j$9 => { - var $13721 = ("x" + Nat$show$(_j$9)); - return $13721; + var $15117 = Kind$Comp$replace$($15115, List$create$($15114, (_j$9 => { + var $15118 = ("x" + Nat$show$(_j$9)); + return $15118; }))); - var $13719 = $13720; + var $15116 = $15117; } else { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13723 = self.gram; - var $13724 = $13723; - var self = $13724; + var $15120 = self.gram; + var $15121 = $15120; + var self = $15121; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13725 = self.lambda; - var $13726 = $13725; - var $13722 = $13726; + var $15122 = self.lambda; + var $15123 = $15122; + var $15119 = $15123; break; }; - var $13722 = $13722(("x" + Nat$show$(_j$6)))(Kind$Comp$Prim$instantiator$go$(_lang$1, _prim$2, _depth$3, _defs$4, _ctor$5, Nat$succ$(_j$6))); - var $13719 = $13722; + var $15119 = $15119(("x" + Nat$show$(_j$6)))(Kind$Comp$Prim$instantiator$go$(_lang$1, _prim$2, _depth$3, _defs$4, _ctor$5, Nat$succ$(_j$6))); + var $15116 = $15119; }; - var $13716 = $13719; + var $15113 = $15116; break; }; - return $13716; + return $15113; }; const Kind$Comp$Prim$instantiator$go = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Comp$Prim$instantiator$go$(x0, x1, x2, x3, x4, x5); @@ -45083,65 +49383,65 @@ module.exports = (function() { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13728 = self.nati; - var $13729 = $13728; - var _shape$5 = $13729; + var $15125 = self.nati; + var $15126 = $15125; + var _shape$5 = $15126; break; }; var _shape$5 = _shape$5(_prim$2); var self = _shape$5; switch (self._) { case 'Kind.Comp.Native.new': - var $13730 = self.inst; + var $15127 = self.inst; var _text$8 = "x"; var _text$9 = (() => { - var $13733 = _text$8; - var $13734 = $13730; - let _text$10 = $13733; + var $15130 = _text$8; + var $15131 = $15127; + let _text$10 = $15130; let _ctor$9; - while ($13734._ === 'List.cons') { - _ctor$9 = $13734.head; + while ($15131._ === 'List.cons') { + _ctor$9 = $15131.head; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13735 = self.gram; - var $13736 = $13735; - var self = $13736; + var $15132 = self.gram; + var $15133 = $15132; + var self = $15133; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13737 = self.application; - var $13738 = $13737; - var $13733 = $13738; + var $15134 = self.application; + var $15135 = $15134; + var $15130 = $15135; break; }; - var $13733 = $13733(_text$10)(Kind$Comp$Prim$instantiator$go$(_lang$1, _prim$2, _depth$3, _defs$4, _ctor$9, 0n)); - _text$10 = $13733; - $13734 = $13734.tail; + var $15130 = $15130(_text$10)(Kind$Comp$Prim$instantiator$go$(_lang$1, _prim$2, _depth$3, _defs$4, _ctor$9, 0n)); + _text$10 = $15130; + $15131 = $15131.tail; } return _text$10; })(); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13739 = self.gram; - var $13740 = $13739; - var self = $13740; + var $15136 = self.gram; + var $15137 = $15136; + var self = $15137; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13741 = self.lambda; - var $13742 = $13741; - var $13731 = $13742; + var $15138 = self.lambda; + var $15139 = $15138; + var $15128 = $15139; break; }; - var $13731 = $13731("x")(_text$9); - var $13727 = $13731; + var $15128 = $15128("x")(_text$9); + var $15124 = $15128; break; }; - return $13727; + return $15124; }; const Kind$Comp$Prim$instantiator = x0 => x1 => x2 => x3 => Kind$Comp$Prim$instantiator$(x0, x1, x2, x3); @@ -45158,10 +49458,10 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.app': - var $13743 = self.func; - var $13744 = self.argm; - var $13745 = Kind$Comp$get_args$go$($13743, List$cons$($13744, _args$2)); - return $13745; + var $15140 = self.func; + var $15141 = self.argm; + var $15142 = Kind$Comp$get_args$go$($15140, List$cons$($15141, _args$2)); + return $15142; case 'Kind.Comp.nil': case 'Kind.Comp.var': case 'Kind.Comp.ref': @@ -45173,8 +49473,8 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $13746 = Pair$new$(_term$1, _args$2); - return $13746; + var $15143 = Pair$new$(_term$1, _args$2); + return $15143; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -45184,8 +49484,8 @@ module.exports = (function() { const Kind$Comp$get_args$go = x0 => x1 => Kind$Comp$get_args$go$(x0, x1); function Kind$Comp$get_args$(_term$1) { - var $13747 = Kind$Comp$get_args$go$(_term$1, List$nil); - return $13747; + var $15144 = Kind$Comp$get_args$go$(_term$1, List$nil); + return $15144; }; const Kind$Comp$get_args = x0 => Kind$Comp$get_args$(x0); @@ -45193,9 +49493,9 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.lam': - var $13749 = self.body; - var $13750 = (1n + Kind$Comp$get_arity$($13749)); - var $13748 = $13750; + var $15146 = self.body; + var $15147 = (1n + Kind$Comp$get_arity$($15146)); + var $15145 = $15147; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -45208,11 +49508,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $13751 = 0n; - var $13748 = $13751; + var $15148 = 0n; + var $15145 = $15148; break; }; - return $13748; + return $15145; }; const Kind$Comp$get_arity = x0 => Kind$Comp$get_arity$(x0); @@ -45220,18 +49520,18 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.lam': - var $13753 = self.name; - var $13754 = self.body; - var self = Kind$Comp$get_vars$($13754); + var $15150 = self.name; + var $15151 = self.body; + var self = Kind$Comp$get_vars$($15151); switch (self._) { case 'Pair.new': - var $13756 = self.fst; - var $13757 = self.snd; - var $13758 = Pair$new$(List$cons$($13753, $13756), $13757); - var $13755 = $13758; + var $15153 = self.fst; + var $15154 = self.snd; + var $15155 = Pair$new$(List$cons$($15150, $15153), $15154); + var $15152 = $15155; break; }; - var $13752 = $13755; + var $15149 = $15152; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -45244,11 +49544,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $13759 = Pair$new$(List$nil, _term$1); - var $13752 = $13759; + var $15156 = Pair$new$(List$nil, _term$1); + var $15149 = $15156; break; }; - return $13752; + return $15149; }; const Kind$Comp$get_vars = x0 => Kind$Comp$get_vars$(x0); @@ -45265,57 +49565,57 @@ module.exports = (function() { var self = _inst$3; switch (self._) { case 'List.cons': - var $13760 = self.head; - var $13761 = self.tail; + var $15157 = self.head; + var $15158 = self.tail; var self = _vars$4; switch (self._) { case 'List.cons': - var $13763 = self.head; - var $13764 = self.tail; - var self = (_name$2 === $13763); + var $15160 = self.head; + var $15161 = self.tail; + var self = (_name$2 === $15160); if (self) { - var self = $13760; + var self = $15157; switch (self._) { case 'Pair.new': - var $13767 = self.fst; - var $13768 = self.snd; - var self = ($13767 === (list_length(_args$5))); + var $15164 = self.fst; + var $15165 = self.snd; + var self = ($15164 === (list_length(_args$5))); if (self) { - var $13770 = Maybe$some$(Kind$Comp$replace$($13768, List$mapped$(_args$5, (_x$14 => { - var $13771 = Kind$Comp$transpile$term$(_lang$1, _x$14, _depth$6, _defs$7); - return $13771; + var $15167 = Maybe$some$(Kind$Comp$replace$($15165, List$mapped$(_args$5, (_x$14 => { + var $15168 = Kind$Comp$transpile$term$(_lang$1, _x$14, _depth$6, _defs$7); + return $15168; })))); - var $13769 = $13770; + var $15166 = $15167; } else { - var $13772 = Maybe$none; - var $13769 = $13772; + var $15169 = Maybe$none; + var $15166 = $15169; }; - var $13766 = $13769; + var $15163 = $15166; break; }; - var $13765 = $13766; + var $15162 = $15163; } else { - var $13773 = Kind$Comp$Prim$inst$go$(_lang$1, _name$2, $13761, $13764, _args$5, _depth$6, _defs$7); - var $13765 = $13773; + var $15170 = Kind$Comp$Prim$inst$go$(_lang$1, _name$2, $15158, $15161, _args$5, _depth$6, _defs$7); + var $15162 = $15170; }; - var $13762 = $13765; + var $15159 = $15162; break; case 'List.nil': - var $13774 = Maybe$none; - var $13762 = $13774; + var $15171 = Maybe$none; + var $15159 = $15171; break; }; - return $13762; + return $15159; case 'List.nil': var self = _vars$4; switch (self._) { case 'List.nil': case 'List.cons': - var $13776 = Maybe$none; - var $13775 = $13776; + var $15173 = Maybe$none; + var $15172 = $15173; break; }; - return $13775; + return $15172; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -45328,44 +49628,44 @@ module.exports = (function() { var self = _term$2; switch (self._) { case 'Kind.Comp.ins': - var $13778 = self.prim; - var $13779 = self.expr; + var $15175 = self.prim; + var $15176 = self.expr; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13781 = self.nati; - var $13782 = $13781; - var _shape$7 = $13782; + var $15178 = self.nati; + var $15179 = $15178; + var _shape$7 = $15179; break; }; - var _shape$7 = _shape$7($13778); + var _shape$7 = _shape$7($15175); var self = _shape$7; switch (self._) { case 'Kind.Comp.Native.new': - var $13783 = self.inst; - var self = Kind$Comp$get_vars$($13779); + var $15180 = self.inst; + var self = Kind$Comp$get_vars$($15176); switch (self._) { case 'Pair.new': - var $13785 = self.fst; - var $13786 = self.snd; - var self = ((list_length($13783)) === (list_length($13785))); + var $15182 = self.fst; + var $15183 = self.snd; + var self = ((list_length($15180)) === (list_length($15182))); if (self) { - var self = Kind$Comp$get_args$($13786); + var self = Kind$Comp$get_args$($15183); switch (self._) { case 'Pair.new': - var $13789 = self.fst; - var $13790 = self.snd; - var self = $13789; + var $15186 = self.fst; + var $15187 = self.snd; + var self = $15186; switch (self._) { case 'Kind.Comp.var': - var $13792 = self.name; - var $13793 = Kind$Comp$Prim$inst$go$(_lang$1, $13792, $13783, $13785, $13790, _depth$3, _defs$4); - var $13791 = $13793; + var $15189 = self.name; + var $15190 = Kind$Comp$Prim$inst$go$(_lang$1, $15189, $15180, $15182, $15187, _depth$3, _defs$4); + var $15188 = $15190; break; case 'Kind.Comp.ref': - var $13794 = self.name; - var $13795 = Kind$Comp$Prim$inst$go$(_lang$1, $13794, $13783, $13785, $13790, _depth$3, _defs$4); - var $13791 = $13795; + var $15191 = self.name; + var $15192 = Kind$Comp$Prim$inst$go$(_lang$1, $15191, $15180, $15182, $15187, _depth$3, _defs$4); + var $15188 = $15192; break; case 'Kind.Comp.nil': case 'Kind.Comp.lam': @@ -45377,25 +49677,25 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $13796 = Maybe$none; - var $13791 = $13796; + var $15193 = Maybe$none; + var $15188 = $15193; break; }; - var $13788 = $13791; + var $15185 = $15188; break; }; - var $13787 = $13788; + var $15184 = $15185; } else { - var $13797 = Maybe$none; - var $13787 = $13797; + var $15194 = Maybe$none; + var $15184 = $15194; }; - var $13784 = $13787; + var $15181 = $15184; break; }; - var $13780 = $13784; + var $15177 = $15181; break; }; - var $13777 = $13780; + var $15174 = $15177; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -45408,11 +49708,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $13798 = Maybe$none; - var $13777 = $13798; + var $15195 = Maybe$none; + var $15174 = $15195; break; }; - return $13777; + return $15174; }; const Kind$Comp$Prim$inst = x0 => x1 => x2 => x3 => Kind$Comp$Prim$inst$(x0, x1, x2, x3); @@ -45420,30 +49720,30 @@ module.exports = (function() { var self = _word$6; switch (self._) { case 'Word.o': - var $13800 = self.pred; - var $13801 = _w0$4(Word$fold$(_nil$3, _w0$4, _w1$5, $13800)); - var $13799 = $13801; + var $15197 = self.pred; + var $15198 = _w0$4(Word$fold$(_nil$3, _w0$4, _w1$5, $15197)); + var $15196 = $15198; break; case 'Word.i': - var $13802 = self.pred; - var $13803 = _w1$5(Word$fold$(_nil$3, _w0$4, _w1$5, $13802)); - var $13799 = $13803; + var $15199 = self.pred; + var $15200 = _w1$5(Word$fold$(_nil$3, _w0$4, _w1$5, $15199)); + var $15196 = $15200; break; case 'Word.e': - var $13804 = _nil$3; - var $13799 = $13804; + var $15201 = _nil$3; + var $15196 = $15201; break; }; - return $13799; + return $15196; }; const Word$fold = x0 => x1 => x2 => x3 => Word$fold$(x0, x1, x2, x3); function Word$to_nat$(_word$2) { - var $13805 = Word$fold$(0n, a1 => (2n * a1), (_x$4 => { - var $13806 = Nat$succ$((2n * _x$4)); - return $13806; + var $15202 = Word$fold$(0n, a1 => (2n * a1), (_x$4 => { + var $15203 = Nat$succ$((2n * _x$4)); + return $15203; }), _word$2); - return $13805; + return $15202; }; const Word$to_nat = x0 => Word$to_nat$(x0); const U16$to_nat = a0 => (BigInt(a0)); @@ -45453,731 +49753,731 @@ module.exports = (function() { var self = Kind$Comp$Prim$inst$(_lang$1, _comp$2, _depth$3, _defs$4); switch (self._) { case 'Maybe.some': - var $13808 = self.value; - var $13809 = $13808; - var $13807 = $13809; + var $15205 = self.value; + var $15206 = $15205; + var $15204 = $15206; break; case 'Maybe.none': var self = Kind$Comp$Prim$elim$(_lang$1, _comp$2, _depth$3, _defs$4); switch (self._) { case 'Maybe.some': - var $13811 = self.value; - var $13812 = $13811; - var $13810 = $13812; + var $15208 = self.value; + var $15209 = $15208; + var $15207 = $15209; break; case 'Maybe.none': var self = _comp$2; switch (self._) { case 'Kind.Comp.var': - var $13814 = self.name; + var $15211 = self.name; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13816 = self.gram; - var $13817 = $13816; - var self = $13817; + var $15213 = self.gram; + var $15214 = $15213; + var self = $15214; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13818 = self.name; - var $13819 = $13818; - var $13815 = $13819; + var $15215 = self.name; + var $15216 = $15215; + var $15212 = $15216; break; }; - var $13815 = $13815($13814); - var $13813 = $13815; + var $15212 = $15212($15211); + var $15210 = $15212; break; case 'Kind.Comp.ref': - var $13820 = self.name; + var $15217 = self.name; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13822 = self.gram; - var $13823 = $13822; - var self = $13823; + var $15219 = self.gram; + var $15220 = $15219; + var self = $15220; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13824 = self.name; - var $13825 = $13824; - var $13821 = $13825; + var $15221 = self.name; + var $15222 = $15221; + var $15218 = $15222; break; }; - var $13821 = $13821($13820); - var $13813 = $13821; + var $15218 = $15218($15217); + var $15210 = $15218; break; case 'Kind.Comp.lam': - var $13826 = self.name; - var $13827 = self.body; + var $15223 = self.name; + var $15224 = self.body; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13829 = self.gram; - var $13830 = $13829; - var self = $13830; + var $15226 = self.gram; + var $15227 = $15226; + var self = $15227; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13831 = self.lambda; - var $13832 = $13831; - var $13828 = $13832; + var $15228 = self.lambda; + var $15229 = $15228; + var $15225 = $15229; break; }; - var $13828 = $13828((() => { + var $15225 = $15225((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13833 = self.gram; - var $13834 = $13833; - var self = $13834; + var $15230 = self.gram; + var $15231 = $15230; + var self = $15231; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13835 = self.name; - var $13836 = $13835; - return $13836; + var $15232 = self.name; + var $15233 = $15232; + return $15233; }; - })()($13826))(_go$5($13827)(Nat$succ$(_depth$3))(_defs$4)); - var $13813 = $13828; + })()($15223))(_go$5($15224)(Nat$succ$(_depth$3))(_defs$4)); + var $15210 = $15225; break; case 'Kind.Comp.app': - var $13837 = self.func; - var $13838 = self.argm; + var $15234 = self.func; + var $15235 = self.argm; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13840 = self.gram; - var $13841 = $13840; - var self = $13841; + var $15237 = self.gram; + var $15238 = $15237; + var self = $15238; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13842 = self.application; - var $13843 = $13842; - var $13839 = $13843; + var $15239 = self.application; + var $15240 = $15239; + var $15236 = $15240; break; }; - var $13839 = $13839(_go$5($13837)(_depth$3)(_defs$4))(_go$5($13838)(_depth$3)(_defs$4)); - var $13813 = $13839; + var $15236 = $15236(_go$5($15234)(_depth$3)(_defs$4))(_go$5($15235)(_depth$3)(_defs$4)); + var $15210 = $15236; break; case 'Kind.Comp.let': - var $13844 = self.name; - var $13845 = self.expr; - var $13846 = self.body; + var $15241 = self.name; + var $15242 = self.expr; + var $15243 = self.body; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13848 = self.gram; - var $13849 = $13848; - var self = $13849; + var $15245 = self.gram; + var $15246 = $15245; + var self = $15246; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13850 = self.local_definition; - var $13851 = $13850; - var $13847 = $13851; + var $15247 = self.local_definition; + var $15248 = $15247; + var $15244 = $15248; break; }; - var $13847 = $13847((() => { + var $15244 = $15244((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13852 = self.gram; - var $13853 = $13852; - var self = $13853; + var $15249 = self.gram; + var $15250 = $15249; + var self = $15250; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13854 = self.name; - var $13855 = $13854; - return $13855; + var $15251 = self.name; + var $15252 = $15251; + return $15252; }; - })()($13844))(_go$5($13845)(_depth$3)(_defs$4))(_go$5($13846)(Nat$succ$(_depth$3))(_defs$4)); - var $13813 = $13847; + })()($15241))(_go$5($15242)(_depth$3)(_defs$4))(_go$5($15243)(Nat$succ$(_depth$3))(_defs$4)); + var $15210 = $15244; break; case 'Kind.Comp.eli': - var $13856 = self.prim; - var $13857 = self.expr; - var self = $13856; + var $15253 = self.prim; + var $15254 = self.expr; + var self = $15253; switch (self._) { case 'Kind.Comp.Prim.bool': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13860 = self.gram; - var $13861 = $13860; - var self = $13861; + var $15257 = self.gram; + var $15258 = $15257; + var self = $15258; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13862 = self.application; - var $13863 = $13862; - var $13859 = $13863; + var $15259 = self.application; + var $15260 = $15259; + var $15256 = $15260; break; }; - var $13859 = $13859((() => { + var $15256 = $15256((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13864 = self.gram; - var $13865 = $13864; - var self = $13865; + var $15261 = self.gram; + var $15262 = $15261; + var self = $15262; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13866 = self.elim_name; - var $13867 = $13866; - return $13867; + var $15263 = self.elim_name; + var $15264 = $15263; + return $15264; }; - })()("Bool"))(_go$5($13857)(_depth$3)(_defs$4)); - var $13858 = $13859; + })()("Bool"))(_go$5($15254)(_depth$3)(_defs$4)); + var $15255 = $15256; break; case 'Kind.Comp.Prim.bits': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13869 = self.gram; - var $13870 = $13869; - var self = $13870; + var $15266 = self.gram; + var $15267 = $15266; + var self = $15267; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13871 = self.application; - var $13872 = $13871; - var $13868 = $13872; + var $15268 = self.application; + var $15269 = $15268; + var $15265 = $15269; break; }; - var $13868 = $13868((() => { + var $15265 = $15265((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13873 = self.gram; - var $13874 = $13873; - var self = $13874; + var $15270 = self.gram; + var $15271 = $15270; + var self = $15271; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13875 = self.elim_name; - var $13876 = $13875; - return $13876; + var $15272 = self.elim_name; + var $15273 = $15272; + return $15273; }; - })()("Bits"))(_go$5($13857)(_depth$3)(_defs$4)); - var $13858 = $13868; + })()("Bits"))(_go$5($15254)(_depth$3)(_defs$4)); + var $15255 = $15265; break; case 'Kind.Comp.Prim.unit': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13878 = self.gram; - var $13879 = $13878; - var self = $13879; + var $15275 = self.gram; + var $15276 = $15275; + var self = $15276; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13880 = self.application; - var $13881 = $13880; - var $13877 = $13881; + var $15277 = self.application; + var $15278 = $15277; + var $15274 = $15278; break; }; - var $13877 = $13877((() => { + var $15274 = $15274((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13882 = self.gram; - var $13883 = $13882; - var self = $13883; + var $15279 = self.gram; + var $15280 = $15279; + var self = $15280; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13884 = self.elim_name; - var $13885 = $13884; - return $13885; + var $15281 = self.elim_name; + var $15282 = $15281; + return $15282; }; - })()("Unit"))(_go$5($13857)(_depth$3)(_defs$4)); - var $13858 = $13877; + })()("Unit"))(_go$5($15254)(_depth$3)(_defs$4)); + var $15255 = $15274; break; case 'Kind.Comp.Prim.nat': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13887 = self.gram; - var $13888 = $13887; - var self = $13888; + var $15284 = self.gram; + var $15285 = $15284; + var self = $15285; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13889 = self.application; - var $13890 = $13889; - var $13886 = $13890; + var $15286 = self.application; + var $15287 = $15286; + var $15283 = $15287; break; }; - var $13886 = $13886((() => { + var $15283 = $15283((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13891 = self.gram; - var $13892 = $13891; - var self = $13892; + var $15288 = self.gram; + var $15289 = $15288; + var self = $15289; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13893 = self.elim_name; - var $13894 = $13893; - return $13894; + var $15290 = self.elim_name; + var $15291 = $15290; + return $15291; }; - })()("Nat"))(_go$5($13857)(_depth$3)(_defs$4)); - var $13858 = $13886; + })()("Nat"))(_go$5($15254)(_depth$3)(_defs$4)); + var $15255 = $15283; break; case 'Kind.Comp.Prim.u16': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13896 = self.gram; - var $13897 = $13896; - var self = $13897; + var $15293 = self.gram; + var $15294 = $15293; + var self = $15294; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13898 = self.application; - var $13899 = $13898; - var $13895 = $13899; + var $15295 = self.application; + var $15296 = $15295; + var $15292 = $15296; break; }; - var $13895 = $13895((() => { + var $15292 = $15292((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13900 = self.gram; - var $13901 = $13900; - var self = $13901; + var $15297 = self.gram; + var $15298 = $15297; + var self = $15298; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13902 = self.elim_name; - var $13903 = $13902; - return $13903; + var $15299 = self.elim_name; + var $15300 = $15299; + return $15300; }; - })()("U16"))(_go$5($13857)(_depth$3)(_defs$4)); - var $13858 = $13895; + })()("U16"))(_go$5($15254)(_depth$3)(_defs$4)); + var $15255 = $15292; break; case 'Kind.Comp.Prim.u32': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13905 = self.gram; - var $13906 = $13905; - var self = $13906; + var $15302 = self.gram; + var $15303 = $15302; + var self = $15303; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13907 = self.application; - var $13908 = $13907; - var $13904 = $13908; + var $15304 = self.application; + var $15305 = $15304; + var $15301 = $15305; break; }; - var $13904 = $13904((() => { + var $15301 = $15301((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13909 = self.gram; - var $13910 = $13909; - var self = $13910; + var $15306 = self.gram; + var $15307 = $15306; + var self = $15307; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13911 = self.elim_name; - var $13912 = $13911; - return $13912; + var $15308 = self.elim_name; + var $15309 = $15308; + return $15309; }; - })()("U32"))(_go$5($13857)(_depth$3)(_defs$4)); - var $13858 = $13904; + })()("U32"))(_go$5($15254)(_depth$3)(_defs$4)); + var $15255 = $15301; break; case 'Kind.Comp.Prim.string': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13914 = self.gram; - var $13915 = $13914; - var self = $13915; + var $15311 = self.gram; + var $15312 = $15311; + var self = $15312; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13916 = self.application; - var $13917 = $13916; - var $13913 = $13917; + var $15313 = self.application; + var $15314 = $15313; + var $15310 = $15314; break; }; - var $13913 = $13913((() => { + var $15310 = $15310((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13918 = self.gram; - var $13919 = $13918; - var self = $13919; + var $15315 = self.gram; + var $15316 = $15315; + var self = $15316; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13920 = self.elim_name; - var $13921 = $13920; - return $13921; + var $15317 = self.elim_name; + var $15318 = $15317; + return $15318; }; - })()("String"))(_go$5($13857)(_depth$3)(_defs$4)); - var $13858 = $13913; + })()("String"))(_go$5($15254)(_depth$3)(_defs$4)); + var $15255 = $15310; break; case 'Kind.Comp.Prim.data': - var $13922 = _go$5($13857)(_depth$3)(_defs$4); - var $13858 = $13922; + var $15319 = _go$5($15254)(_depth$3)(_defs$4); + var $15255 = $15319; break; }; - var $13813 = $13858; + var $15210 = $15255; break; case 'Kind.Comp.ins': - var $13923 = self.prim; - var $13924 = self.expr; - var self = $13923; + var $15320 = self.prim; + var $15321 = self.expr; + var self = $15320; switch (self._) { case 'Kind.Comp.Prim.bool': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13927 = self.gram; - var $13928 = $13927; - var self = $13928; + var $15324 = self.gram; + var $15325 = $15324; + var self = $15325; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13929 = self.application; - var $13930 = $13929; - var $13926 = $13930; + var $15326 = self.application; + var $15327 = $15326; + var $15323 = $15327; break; }; - var $13926 = $13926((() => { + var $15323 = $15323((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13931 = self.gram; - var $13932 = $13931; - var self = $13932; + var $15328 = self.gram; + var $15329 = $15328; + var self = $15329; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13933 = self.inst_name; - var $13934 = $13933; - return $13934; + var $15330 = self.inst_name; + var $15331 = $15330; + return $15331; }; - })()("Bool"))(_go$5($13924)(_depth$3)(_defs$4)); - var $13925 = $13926; + })()("Bool"))(_go$5($15321)(_depth$3)(_defs$4)); + var $15322 = $15323; break; case 'Kind.Comp.Prim.bits': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13936 = self.gram; - var $13937 = $13936; - var self = $13937; + var $15333 = self.gram; + var $15334 = $15333; + var self = $15334; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13938 = self.application; - var $13939 = $13938; - var $13935 = $13939; + var $15335 = self.application; + var $15336 = $15335; + var $15332 = $15336; break; }; - var $13935 = $13935((() => { + var $15332 = $15332((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13940 = self.gram; - var $13941 = $13940; - var self = $13941; + var $15337 = self.gram; + var $15338 = $15337; + var self = $15338; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13942 = self.inst_name; - var $13943 = $13942; - return $13943; + var $15339 = self.inst_name; + var $15340 = $15339; + return $15340; }; - })()("Bits"))(_go$5($13924)(_depth$3)(_defs$4)); - var $13925 = $13935; + })()("Bits"))(_go$5($15321)(_depth$3)(_defs$4)); + var $15322 = $15332; break; case 'Kind.Comp.Prim.unit': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13945 = self.gram; - var $13946 = $13945; - var self = $13946; + var $15342 = self.gram; + var $15343 = $15342; + var self = $15343; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13947 = self.application; - var $13948 = $13947; - var $13944 = $13948; + var $15344 = self.application; + var $15345 = $15344; + var $15341 = $15345; break; }; - var $13944 = $13944((() => { + var $15341 = $15341((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13949 = self.gram; - var $13950 = $13949; - var self = $13950; + var $15346 = self.gram; + var $15347 = $15346; + var self = $15347; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13951 = self.inst_name; - var $13952 = $13951; - return $13952; + var $15348 = self.inst_name; + var $15349 = $15348; + return $15349; }; - })()("Unit"))(_go$5($13924)(_depth$3)(_defs$4)); - var $13925 = $13944; + })()("Unit"))(_go$5($15321)(_depth$3)(_defs$4)); + var $15322 = $15341; break; case 'Kind.Comp.Prim.nat': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13954 = self.gram; - var $13955 = $13954; - var self = $13955; + var $15351 = self.gram; + var $15352 = $15351; + var self = $15352; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13956 = self.application; - var $13957 = $13956; - var $13953 = $13957; + var $15353 = self.application; + var $15354 = $15353; + var $15350 = $15354; break; }; - var $13953 = $13953((() => { + var $15350 = $15350((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13958 = self.gram; - var $13959 = $13958; - var self = $13959; + var $15355 = self.gram; + var $15356 = $15355; + var self = $15356; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13960 = self.inst_name; - var $13961 = $13960; - return $13961; + var $15357 = self.inst_name; + var $15358 = $15357; + return $15358; }; - })()("Nat"))(_go$5($13924)(_depth$3)(_defs$4)); - var $13925 = $13953; + })()("Nat"))(_go$5($15321)(_depth$3)(_defs$4)); + var $15322 = $15350; break; case 'Kind.Comp.Prim.u16': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13963 = self.gram; - var $13964 = $13963; - var self = $13964; + var $15360 = self.gram; + var $15361 = $15360; + var self = $15361; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13965 = self.application; - var $13966 = $13965; - var $13962 = $13966; + var $15362 = self.application; + var $15363 = $15362; + var $15359 = $15363; break; }; - var $13962 = $13962((() => { + var $15359 = $15359((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13967 = self.gram; - var $13968 = $13967; - var self = $13968; + var $15364 = self.gram; + var $15365 = $15364; + var self = $15365; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13969 = self.inst_name; - var $13970 = $13969; - return $13970; + var $15366 = self.inst_name; + var $15367 = $15366; + return $15367; }; - })()("U16"))(_go$5($13924)(_depth$3)(_defs$4)); - var $13925 = $13962; + })()("U16"))(_go$5($15321)(_depth$3)(_defs$4)); + var $15322 = $15359; break; case 'Kind.Comp.Prim.u32': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13972 = self.gram; - var $13973 = $13972; - var self = $13973; + var $15369 = self.gram; + var $15370 = $15369; + var self = $15370; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13974 = self.application; - var $13975 = $13974; - var $13971 = $13975; + var $15371 = self.application; + var $15372 = $15371; + var $15368 = $15372; break; }; - var $13971 = $13971((() => { + var $15368 = $15368((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13976 = self.gram; - var $13977 = $13976; - var self = $13977; + var $15373 = self.gram; + var $15374 = $15373; + var self = $15374; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13978 = self.inst_name; - var $13979 = $13978; - return $13979; + var $15375 = self.inst_name; + var $15376 = $15375; + return $15376; }; - })()("U32"))(_go$5($13924)(_depth$3)(_defs$4)); - var $13925 = $13971; + })()("U32"))(_go$5($15321)(_depth$3)(_defs$4)); + var $15322 = $15368; break; case 'Kind.Comp.Prim.string': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13981 = self.gram; - var $13982 = $13981; - var self = $13982; + var $15378 = self.gram; + var $15379 = $15378; + var self = $15379; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13983 = self.application; - var $13984 = $13983; - var $13980 = $13984; + var $15380 = self.application; + var $15381 = $15380; + var $15377 = $15381; break; }; - var $13980 = $13980((() => { + var $15377 = $15377((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13985 = self.gram; - var $13986 = $13985; - var self = $13986; + var $15382 = self.gram; + var $15383 = $15382; + var self = $15383; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13987 = self.inst_name; - var $13988 = $13987; - return $13988; + var $15384 = self.inst_name; + var $15385 = $15384; + return $15385; }; - })()("String"))(_go$5($13924)(_depth$3)(_defs$4)); - var $13925 = $13980; + })()("String"))(_go$5($15321)(_depth$3)(_defs$4)); + var $15322 = $15377; break; case 'Kind.Comp.Prim.data': - var $13989 = _go$5($13924)(_depth$3)(_defs$4); - var $13925 = $13989; + var $15386 = _go$5($15321)(_depth$3)(_defs$4); + var $15322 = $15386; break; }; - var $13813 = $13925; + var $15210 = $15322; break; case 'Kind.Comp.nat': - var $13990 = self.natx; + var $15387 = self.natx; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $13992 = self.gram; - var $13993 = $13992; - var self = $13993; + var $15389 = self.gram; + var $15390 = $15389; + var self = $15390; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $13994 = self.nat; - var $13995 = $13994; - var $13991 = $13995; + var $15391 = self.nat; + var $15392 = $15391; + var $15388 = $15392; break; }; - var $13991 = $13991($13990); - var $13813 = $13991; + var $15388 = $15388($15387); + var $15210 = $15388; break; case 'Kind.Comp.chr': - var $13996 = self.chrx; - var $13997 = Nat$show$((BigInt($13996))); - var $13813 = $13997; + var $15393 = self.chrx; + var $15394 = Nat$show$((BigInt($15393))); + var $15210 = $15394; break; case 'Kind.Comp.str': - var $13998 = self.strx; - var $13999 = ("\"" + ((() => { + var $15395 = self.strx; + var $15396 = ("\"" + ((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14000 = self.gram; - var $14001 = $14000; - var self = $14001; + var $15397 = self.gram; + var $15398 = $15397; + var self = $15398; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14002 = self.string_literal; - var $14003 = $14002; - return $14003; + var $15399 = self.string_literal; + var $15400 = $15399; + return $15400; }; - })()($13998) + "\"")); - var $13813 = $13999; + })()($15395) + "\"")); + var $15210 = $15396; break; case 'Kind.Comp.txt': - var $14004 = self.text; - var $14005 = $14004; - var $13813 = $14005; + var $15401 = self.text; + var $15402 = $15401; + var $15210 = $15402; break; case 'Kind.Comp.nil': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14007 = self.gram; - var $14008 = $14007; - var self = $14008; + var $15404 = self.gram; + var $15405 = $15404; + var self = $15405; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14009 = self.null; - var $14010 = $14009; - var $14006 = $14010; + var $15406 = self.null; + var $15407 = $15406; + var $15403 = $15407; break; }; - var $13813 = $14006; + var $15210 = $15403; break; }; - var $13810 = $13813; + var $15207 = $15210; break; }; - var $13807 = $13810; + var $15204 = $15207; break; }; - return $13807; + return $15204; }; const Kind$Comp$transpile$term = x0 => x1 => x2 => x3 => Kind$Comp$transpile$term$(x0, x1, x2, x3); @@ -46185,17 +50485,17 @@ module.exports = (function() { var self = _as$4; switch (self._) { case 'List.cons': - var $14012 = self.head; - var $14013 = self.tail; - var $14014 = List$cons$(_f$3($14012), List$map$(_f$3, $14013)); - var $14011 = $14014; + var $15409 = self.head; + var $15410 = self.tail; + var $15411 = List$cons$(_f$3($15409), List$map$(_f$3, $15410)); + var $15408 = $15411; break; case 'List.nil': - var $14015 = List$nil; - var $14011 = $14015; + var $15412 = List$nil; + var $15408 = $15412; break; }; - return $14011; + return $15408; }; const List$map = x0 => x1 => List$map$(x0, x1); @@ -46211,12 +50511,12 @@ module.exports = (function() { var R = (() => { var self = _n$1; if (self === 0n) { - var $14016 = _xs$2; - return $14016; + var $15413 = _xs$2; + return $15413; } else { - var $14017 = (self - 1n); - var $14018 = List$seq$go$($14017, List$cons$($14017, _xs$2)); - return $14018; + var $15414 = (self - 1n); + var $15415 = List$seq$go$($15414, List$cons$($15414, _xs$2)); + return $15415; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -46226,17 +50526,17 @@ module.exports = (function() { const List$seq$go = x0 => x1 => List$seq$go$(x0, x1); function List$seq$(_n$1) { - var $14019 = List$seq$go$(_n$1, List$nil); - return $14019; + var $15416 = List$seq$go$(_n$1, List$nil); + return $15416; }; const List$seq = x0 => List$seq$(x0); function Kind$Comp$txt$(_text$1) { - var $14020 = ({ + var $15417 = ({ _: 'Kind.Comp.txt', 'text': _text$1 }); - return $14020; + return $15417; }; const Kind$Comp$txt = x0 => Kind$Comp$txt$(x0); @@ -46244,97 +50544,97 @@ module.exports = (function() { var self = _term$3; switch (self._) { case 'Kind.Comp.var': - var $14022 = self.name; - var self = (_name$1 === $14022); + var $15419 = self.name; + var self = (_name$1 === $15419); if (self) { - var $14024 = _value$2; - var $14023 = $14024; + var $15421 = _value$2; + var $15420 = $15421; } else { - var $14025 = Kind$Comp$var$($14022); - var $14023 = $14025; + var $15422 = Kind$Comp$var$($15419); + var $15420 = $15422; }; - var $14021 = $14023; + var $15418 = $15420; break; case 'Kind.Comp.ref': - var $14026 = self.name; - var $14027 = Kind$Comp$ref$($14026); - var $14021 = $14027; + var $15423 = self.name; + var $15424 = Kind$Comp$ref$($15423); + var $15418 = $15424; break; case 'Kind.Comp.lam': - var $14028 = self.name; - var $14029 = self.body; - var $14030 = Kind$Comp$lam$($14028, (() => { - var self = (_name$1 === $14028); + var $15425 = self.name; + var $15426 = self.body; + var $15427 = Kind$Comp$lam$($15425, (() => { + var self = (_name$1 === $15425); if (self) { - var $14031 = $14029; - return $14031; + var $15428 = $15426; + return $15428; } else { - var $14032 = Kind$Comp$subst$(_name$1, _value$2, $14029); - return $14032; + var $15429 = Kind$Comp$subst$(_name$1, _value$2, $15426); + return $15429; }; })()); - var $14021 = $14030; + var $15418 = $15427; break; case 'Kind.Comp.app': - var $14033 = self.func; - var $14034 = self.argm; - var $14035 = Kind$Comp$app$(Kind$Comp$subst$(_name$1, _value$2, $14033), Kind$Comp$subst$(_name$1, _value$2, $14034)); - var $14021 = $14035; + var $15430 = self.func; + var $15431 = self.argm; + var $15432 = Kind$Comp$app$(Kind$Comp$subst$(_name$1, _value$2, $15430), Kind$Comp$subst$(_name$1, _value$2, $15431)); + var $15418 = $15432; break; case 'Kind.Comp.let': - var $14036 = self.name; - var $14037 = self.expr; - var $14038 = self.body; - var $14039 = Kind$Comp$let$($14036, Kind$Comp$subst$(_name$1, _value$2, $14037), (() => { - var self = (_name$1 === $14036); + var $15433 = self.name; + var $15434 = self.expr; + var $15435 = self.body; + var $15436 = Kind$Comp$let$($15433, Kind$Comp$subst$(_name$1, _value$2, $15434), (() => { + var self = (_name$1 === $15433); if (self) { - var $14040 = $14038; - return $14040; + var $15437 = $15435; + return $15437; } else { - var $14041 = Kind$Comp$subst$(_name$1, _value$2, $14038); - return $14041; + var $15438 = Kind$Comp$subst$(_name$1, _value$2, $15435); + return $15438; }; })()); - var $14021 = $14039; + var $15418 = $15436; break; case 'Kind.Comp.eli': - var $14042 = self.prim; - var $14043 = self.expr; - var $14044 = Kind$Comp$eli$($14042, Kind$Comp$subst$(_name$1, _value$2, $14043)); - var $14021 = $14044; + var $15439 = self.prim; + var $15440 = self.expr; + var $15441 = Kind$Comp$eli$($15439, Kind$Comp$subst$(_name$1, _value$2, $15440)); + var $15418 = $15441; break; case 'Kind.Comp.ins': - var $14045 = self.prim; - var $14046 = self.expr; - var $14047 = Kind$Comp$ins$($14045, Kind$Comp$subst$(_name$1, _value$2, $14046)); - var $14021 = $14047; + var $15442 = self.prim; + var $15443 = self.expr; + var $15444 = Kind$Comp$ins$($15442, Kind$Comp$subst$(_name$1, _value$2, $15443)); + var $15418 = $15444; break; case 'Kind.Comp.nat': - var $14048 = self.natx; - var $14049 = Kind$Comp$nat$($14048); - var $14021 = $14049; + var $15445 = self.natx; + var $15446 = Kind$Comp$nat$($15445); + var $15418 = $15446; break; case 'Kind.Comp.chr': - var $14050 = self.chrx; - var $14051 = Kind$Comp$chr$($14050); - var $14021 = $14051; + var $15447 = self.chrx; + var $15448 = Kind$Comp$chr$($15447); + var $15418 = $15448; break; case 'Kind.Comp.str': - var $14052 = self.strx; - var $14053 = Kind$Comp$str$($14052); - var $14021 = $14053; + var $15449 = self.strx; + var $15450 = Kind$Comp$str$($15449); + var $15418 = $15450; break; case 'Kind.Comp.txt': - var $14054 = self.text; - var $14055 = Kind$Comp$txt$($14054); - var $14021 = $14055; + var $15451 = self.text; + var $15452 = Kind$Comp$txt$($15451); + var $15418 = $15452; break; case 'Kind.Comp.nil': - var $14056 = Kind$Comp$nil; - var $14021 = $14056; + var $15453 = Kind$Comp$nil; + var $15418 = $15453; break; }; - return $14021; + return $15418; }; const Kind$Comp$subst = x0 => x1 => x2 => Kind$Comp$subst$(x0, x1, x2); @@ -46351,15 +50651,15 @@ module.exports = (function() { var self = _args$2; switch (self._) { case 'List.cons': - var $14057 = self.head; - var $14058 = self.tail; + var $15454 = self.head; + var $15455 = self.tail; var self = _term$1; switch (self._) { case 'Kind.Comp.lam': - var $14060 = self.name; - var $14061 = self.body; - var $14062 = Kind$Comp$apply$(Kind$Comp$subst$($14060, $14057, $14061), $14058); - var $14059 = $14062; + var $15457 = self.name; + var $15458 = self.body; + var $15459 = Kind$Comp$apply$(Kind$Comp$subst$($15457, $15454, $15458), $15455); + var $15456 = $15459; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -46372,14 +50672,14 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $14063 = Kind$Comp$apply$(Kind$Comp$app$(_term$1, $14057), $14058); - var $14059 = $14063; + var $15460 = Kind$Comp$apply$(Kind$Comp$app$(_term$1, $15454), $15455); + var $15456 = $15460; break; }; - return $14059; + return $15456; case 'List.nil': - var $14064 = _term$1; - return $14064; + var $15461 = _term$1; + return $15461; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -46392,216 +50692,216 @@ module.exports = (function() { var self = Kind$Comp$get_args$(_term$2); switch (self._) { case 'Pair.new': - var $14066 = self.fst; - var $14067 = self.snd; - var self = $14066; + var $15463 = self.fst; + var $15464 = self.snd; + var self = $15463; switch (self._) { case 'Kind.Comp.ref': - var $14069 = self.name; - var self = Kind$Map$get$($14069, _defs$4); + var $15466 = self.name; + var self = Kind$Map$get$($15466, _defs$4); switch (self._) { case 'Maybe.some': - var $14071 = self.value; - var _arity$9 = Kind$Comp$get_arity$($14071); - var self = ((_arity$9 === (list_length($14067))) && (_arity$9 > 0n)); + var $15468 = self.value; + var _arity$9 = Kind$Comp$get_arity$($15468); + var self = ((_arity$9 === (list_length($15464))) && (_arity$9 > 0n)); if (self) { var _inlined_args$10 = List$map$((_arg$10 => { - var $14074 = Kind$Comp$transpile$term$(_lang$1, _arg$10, _depth$3, _defs$4); - return $14074; - }), $14067); + var $15471 = Kind$Comp$transpile$term$(_lang$1, _arg$10, _depth$3, _defs$4); + return $15471; + }), $15464); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14075 = self.gram; - var $14076 = $14075; - var self = $14076; + var $15472 = self.gram; + var $15473 = $15472; + var self = $15473; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14077 = self.global_application; - var $14078 = $14077; - var _code$11 = $14078; + var $15474 = self.global_application; + var $15475 = $15474; + var _code$11 = $15475; break; }; - var _code$11 = _code$11($14069)(_inlined_args$10); - var $14073 = Maybe$some$(_code$11); - var $14072 = $14073; + var _code$11 = _code$11($15466)(_inlined_args$10); + var $15470 = Maybe$some$(_code$11); + var $15469 = $15470; } else { - var $14079 = Maybe$none; - var $14072 = $14079; + var $15476 = Maybe$none; + var $15469 = $15476; }; - var $14070 = $14072; + var $15467 = $15469; break; case 'Maybe.none': - var $14080 = Maybe$none; - var $14070 = $14080; + var $15477 = Maybe$none; + var $15467 = $15477; break; }; - var $14068 = $14070; + var $15465 = $15467; break; case 'Kind.Comp.eli': - var $14081 = self.prim; - var $14082 = self.expr; + var $15478 = self.prim; + var $15479 = self.expr; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14084 = self.nati; - var $14085 = $14084; - var _shape$9 = $14085; + var $15481 = self.nati; + var $15482 = $15481; + var _shape$9 = $15482; break; }; - var _shape$9 = _shape$9($14081); + var _shape$9 = _shape$9($15478); var self = _shape$9; switch (self._) { case 'Kind.Comp.Native.new': - var $14086 = self.elim; - var self = $14086; + var $15483 = self.elim; + var self = $15483; switch (self._) { case 'Pair.new': - var $14088 = self.fst; - var $14089 = self.snd; - var _args_len$14 = (list_length($14067)); - var _cses_len$15 = (list_length($14089)); + var $15485 = self.fst; + var $15486 = self.snd; + var _args_len$14 = (list_length($15464)); + var _cses_len$15 = (list_length($15486)); var self = (_args_len$14 > _cses_len$15); if (self) { - var $14091 = Maybe$none; - var $14090 = $14091; + var $15488 = Maybe$none; + var $15487 = $15488; } else { var _lams_len$16 = (_cses_len$15 - _args_len$14 <= 0n ? 0n : _cses_len$15 - _args_len$14); - var _args$17 = Nat$for$($14067, 0n, _lams_len$16, (_i$17 => _args$18 => { - var $14093 = List$concat$(_args$18, List$cons$(Kind$Comp$var$(("c" + Nat$show$(_i$17))), List$nil)); - return $14093; + var _args$17 = Nat$for$($15464, 0n, _lams_len$16, (_i$17 => _args$18 => { + var $15490 = List$concat$(_args$18, List$cons$(Kind$Comp$var$(("c" + Nat$show$(_i$17))), List$nil)); + return $15490; })); var _self$18 = ("self" + Nat$show$(_depth$3)); var _cse_body_list$19 = List$map$((_item$19 => { var self = _item$19; switch (self._) { case 'Pair.new': - var $14095 = self.fst; - var $14096 = self.snd; - var self = $14095; + var $15492 = self.fst; + var $15493 = self.snd; + var self = $15492; switch (self._) { case 'Pair.new': - var $14098 = self.fst; - var $14099 = self.snd; - var _flds_len$24 = (list_length($14099)); + var $15495 = self.fst; + var $15496 = self.snd; + var _flds_len$24 = (list_length($15496)); var _let_args_n$25 = List$reverse$(List$seq$(_flds_len$24)); var _lam_args_n$26 = List$reverse$(List$seq$(_lams_len$16)); var _keys$27 = List$create$(_flds_len$24, (_k$27 => { - var $14101 = Kind$Comp$var$(("f" + Nat$show$((_depth$3 + _k$27)))); - return $14101; + var $15498 = Kind$Comp$var$(("f" + Nat$show$((_depth$3 + _k$27)))); + return $15498; })); - var _argj$28 = Kind$Comp$apply$($14096, _keys$27); + var _argj$28 = Kind$Comp$apply$($15493, _keys$27); var _body$29 = Kind$Comp$transpile$term$(_lang$1, _argj$28, ((_depth$3 + _flds_len$24) + _lams_len$16), _defs$4); var _body$30 = (() => { - var $14103 = _body$29; - var $14104 = _lam_args_n$26; - let _body$31 = $14103; + var $15500 = _body$29; + var $15501 = _lam_args_n$26; + let _body$31 = $15500; let _i$30; - while ($14104._ === 'List.cons') { - _i$30 = $14104.head; + while ($15501._ === 'List.cons') { + _i$30 = $15501.head; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14105 = self.gram; - var $14106 = $14105; - var self = $14106; + var $15502 = self.gram; + var $15503 = $15502; + var self = $15503; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14107 = self.lambda; - var $14108 = $14107; - var $14103 = $14108; + var $15504 = self.lambda; + var $15505 = $15504; + var $15500 = $15505; break; }; - var $14103 = $14103(("c" + Nat$show$(_i$30)))(_body$31); - _body$31 = $14103; - $14104 = $14104.tail; + var $15500 = $15500(("c" + Nat$show$(_i$30)))(_body$31); + _body$31 = $15500; + $15501 = $15501.tail; } return _body$31; })(); var _text$31 = _body$30; var _text$32 = (() => { - var $14110 = _text$31; - var $14111 = _let_args_n$25; - let _text$33 = $14110; + var $15507 = _text$31; + var $15508 = _let_args_n$25; + let _text$33 = $15507; let _k$32; - while ($14111._ === 'List.cons') { - _k$32 = $14111.head; + while ($15508._ === 'List.cons') { + _k$32 = $15508.head; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14112 = self.gram; - var $14113 = $14112; - var self = $14113; + var $15509 = self.gram; + var $15510 = $15509; + var self = $15510; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14114 = self.local_definition; - var $14115 = $14114; - var $14110 = $14115; + var $15511 = self.local_definition; + var $15512 = $15511; + var $15507 = $15512; break; }; - var $14110 = $14110(("f" + Nat$show$((_depth$3 + _k$32))))(Kind$Comp$replace$(Maybe$default$(List$get$(_k$32, $14099), ""), List$cons$(_self$18, List$nil)))(_text$33); - _text$33 = $14110; - $14111 = $14111.tail; + var $15507 = $15507(("f" + Nat$show$((_depth$3 + _k$32))))(Kind$Comp$replace$(Maybe$default$(List$get$(_k$32, $15496), ""), List$cons$(_self$18, List$nil)))(_text$33); + _text$33 = $15507; + $15508 = $15508.tail; } return _text$33; })(); - var $14100 = Pair$new$($14098, _text$32); - var $14097 = $14100; + var $15497 = Pair$new$($15495, _text$32); + var $15494 = $15497; break; }; - var $14094 = $14097; + var $15491 = $15494; break; }; - return $14094; - }), List$zip$($14089, _args$17)); + return $15491; + }), List$zip$($15486, _args$17)); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14116 = self.gram; - var $14117 = $14116; - var self = $14117; + var $15513 = self.gram; + var $15514 = $15513; + var self = $15514; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14118 = self.select; - var $14119 = $14118; - var _ret$20 = $14119; + var $15515 = self.select; + var $15516 = $15515; + var _ret$20 = $15516; break; }; - var _ret$20 = _ret$20(Kind$Comp$replace$($14088, List$cons$(_self$18, List$nil)))(_cse_body_list$19); + var _ret$20 = _ret$20(Kind$Comp$replace$($15485, List$cons$(_self$18, List$nil)))(_cse_body_list$19); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14120 = self.gram; - var $14121 = $14120; - var self = $14121; + var $15517 = self.gram; + var $15518 = $15517; + var self = $15518; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14122 = self.local_definition; - var $14123 = $14122; - var _ret$21 = $14123; + var $15519 = self.local_definition; + var $15520 = $15519; + var _ret$21 = $15520; break; }; - var _ret$21 = _ret$21(_self$18)(Kind$Comp$transpile$term$(_lang$1, $14082, _depth$3, _defs$4))(_ret$20); - var $14092 = Maybe$some$(_ret$21); - var $14090 = $14092; + var _ret$21 = _ret$21(_self$18)(Kind$Comp$transpile$term$(_lang$1, $15479, _depth$3, _defs$4))(_ret$20); + var $15489 = Maybe$some$(_ret$21); + var $15487 = $15489; }; - var $14087 = $14090; + var $15484 = $15487; break; }; - var $14083 = $14087; + var $15480 = $15484; break; }; - var $14068 = $14083; + var $15465 = $15480; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -46613,14 +50913,14 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $14124 = Maybe$none; - var $14068 = $14124; + var $15521 = Maybe$none; + var $15465 = $15521; break; }; - var $14065 = $14068; + var $15462 = $15465; break; }; - return $14065; + return $15462; }; const Kind$Comp$Prim$elim = x0 => x1 => x2 => x3 => Kind$Comp$Prim$elim$(x0, x1, x2, x3); @@ -46628,8 +50928,8 @@ module.exports = (function() { var _term$5 = Kind$Comp$eli$(_prim$2, Kind$Comp$var$("x")); var _text$6 = Maybe$default$(Kind$Comp$Prim$elim$(_lang$1, _term$5, 0n, _defs$4), ""); var _term$7 = Kind$Comp$lam$("x", Kind$Comp$txt$(_text$6)); - var $14125 = Kind$Comp$transpile$term$(_lang$1, _term$7, _depth$3, _defs$4); - return $14125; + var $15522 = Kind$Comp$transpile$term$(_lang$1, _term$7, _depth$3, _defs$4); + return $15522; }; const Kind$Comp$Prim$eliminator = x0 => x1 => x2 => x3 => Kind$Comp$Prim$eliminator$(x0, x1, x2, x3); @@ -46646,29 +50946,29 @@ module.exports = (function() { var self = _map$5; switch (self._) { case 'BBT.bin': - var $14126 = self.key; - var $14127 = self.val; - var $14128 = self.left; - var $14129 = self.right; - var self = _cmp$3(_key$4)($14126); + var $15523 = self.key; + var $15524 = self.val; + var $15525 = self.left; + var $15526 = self.right; + var self = _cmp$3(_key$4)($15523); switch (self._) { case 'Cmp.ltn': - var $14131 = BBT$lookup$(_cmp$3, _key$4, $14128); - var $14130 = $14131; + var $15528 = BBT$lookup$(_cmp$3, _key$4, $15525); + var $15527 = $15528; break; case 'Cmp.eql': - var $14132 = Maybe$some$($14127); - var $14130 = $14132; + var $15529 = Maybe$some$($15524); + var $15527 = $15529; break; case 'Cmp.gtn': - var $14133 = BBT$lookup$(_cmp$3, _key$4, $14129); - var $14130 = $14133; + var $15530 = BBT$lookup$(_cmp$3, _key$4, $15526); + var $15527 = $15530; break; }; - return $14130; + return $15527; case 'BBT.tip': - var $14134 = Maybe$none; - return $14134; + var $15531 = Maybe$none; + return $15531; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -46680,20 +50980,20 @@ module.exports = (function() { function U16$cmp$(_a$1, _b$2) { var self = (_a$1 < _b$2); if (self) { - var $14136 = Cmp$ltn; - var $14135 = $14136; + var $15533 = Cmp$ltn; + var $15532 = $15533; } else { var self = (_a$1 === _b$2); if (self) { - var $14138 = Cmp$eql; - var $14137 = $14138; + var $15535 = Cmp$eql; + var $15534 = $15535; } else { - var $14139 = Cmp$gtn; - var $14137 = $14139; + var $15536 = Cmp$gtn; + var $15534 = $15536; }; - var $14135 = $14137; + var $15532 = $15534; }; - return $14135; + return $15532; }; const U16$cmp = x0 => x1 => U16$cmp$(x0, x1); @@ -46711,43 +51011,43 @@ module.exports = (function() { if (self.length === 0) { var self = _b$2; if (self.length === 0) { - var $14141 = Cmp$eql; - var $14140 = $14141; + var $15538 = Cmp$eql; + var $15537 = $15538; } else { - var $14142 = self.charCodeAt(0); - var $14143 = self.slice(1); - var $14144 = Cmp$ltn; - var $14140 = $14144; + var $15539 = self.charCodeAt(0); + var $15540 = self.slice(1); + var $15541 = Cmp$ltn; + var $15537 = $15541; }; - return $14140; + return $15537; } else { - var $14145 = self.charCodeAt(0); - var $14146 = self.slice(1); + var $15542 = self.charCodeAt(0); + var $15543 = self.slice(1); var self = _b$2; if (self.length === 0) { - var $14148 = Cmp$gtn; - var $14147 = $14148; + var $15545 = Cmp$gtn; + var $15544 = $15545; } else { - var $14149 = self.charCodeAt(0); - var $14150 = self.slice(1); - var self = U16$cmp$($14145, $14149); + var $15546 = self.charCodeAt(0); + var $15547 = self.slice(1); + var self = U16$cmp$($15542, $15546); switch (self._) { case 'Cmp.ltn': - var $14152 = Cmp$ltn; - var $14151 = $14152; + var $15549 = Cmp$ltn; + var $15548 = $15549; break; case 'Cmp.eql': - var $14153 = String$cmp$($14146, $14150); - var $14151 = $14153; + var $15550 = String$cmp$($15543, $15547); + var $15548 = $15550; break; case 'Cmp.gtn': - var $14154 = Cmp$gtn; - var $14151 = $14154; + var $15551 = Cmp$gtn; + var $15548 = $15551; break; }; - var $14147 = $14151; + var $15544 = $15548; }; - return $14147; + return $15544; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -46757,175 +51057,175 @@ module.exports = (function() { const String$cmp = x0 => x1 => String$cmp$(x0, x1); function Map$get$(_key$2, _map$3) { - var $14155 = BBT$lookup$(String$cmp, _key$2, _map$3); - return $14155; + var $15552 = BBT$lookup$(String$cmp, _key$2, _map$3); + return $15552; }; const Map$get = x0 => x1 => Map$get$(x0, x1); function BBT$(_K$1, _V$2) { - var $14156 = null; - return $14156; + var $15553 = null; + return $15553; }; const BBT = x0 => x1 => BBT$(x0, x1); function Map$(_V$1) { - var $14157 = null; - return $14157; + var $15554 = null; + return $15554; }; const Map = x0 => Map$(x0); function Kind$Comp$transpile$global_definitions$(_lang$1, _defs_list$2, _defs$3) { var _code$4 = ""; var _code$5 = (() => { - var $14160 = _code$4; - var $14161 = Kind$Comp$Prim$natives; - let _code$6 = $14160; + var $15557 = _code$4; + var $15558 = Kind$Comp$Prim$natives; + let _code$6 = $15557; let _nati$5; - while ($14161._ === 'List.cons') { - _nati$5 = $14161.head; + while ($15558._ === 'List.cons') { + _nati$5 = $15558.head; var self = _nati$5; switch (self._) { case 'Pair.new': - var $14162 = self.fst; - var $14163 = self.snd; + var $15559 = self.fst; + var $15560 = self.snd; var _code$9 = (_code$6 + (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14165 = self.gram; - var $14166 = $14165; - var self = $14166; + var $15562 = self.gram; + var $15563 = $15562; + var self = $15563; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14167 = self.global_function; - var $14168 = $14167; - return $14168; + var $15564 = self.global_function; + var $15565 = $15564; + return $15565; }; })()((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14169 = self.gram; - var $14170 = $14169; - var self = $14170; + var $15566 = self.gram; + var $15567 = $15566; + var self = $15567; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14171 = self.inst_name; - var $14172 = $14171; - return $14172; + var $15568 = self.inst_name; + var $15569 = $15568; + return $15569; }; - })()($14162))(List$nil)(Kind$Comp$Prim$instantiator$(_lang$1, $14163, 0n, _defs$3))); + })()($15559))(List$nil)(Kind$Comp$Prim$instantiator$(_lang$1, $15560, 0n, _defs$3))); var _code$10 = (_code$9 + (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14173 = self.gram; - var $14174 = $14173; - var self = $14174; + var $15570 = self.gram; + var $15571 = $15570; + var self = $15571; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14175 = self.global_function; - var $14176 = $14175; - return $14176; + var $15572 = self.global_function; + var $15573 = $15572; + return $15573; }; })()((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14177 = self.gram; - var $14178 = $14177; - var self = $14178; + var $15574 = self.gram; + var $15575 = $15574; + var self = $15575; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14179 = self.elim_name; - var $14180 = $14179; - return $14180; + var $15576 = self.elim_name; + var $15577 = $15576; + return $15577; }; - })()($14162))(List$nil)(Kind$Comp$Prim$eliminator$(_lang$1, $14163, 0n, _defs$3))); - var $14164 = _code$10; - var $14160 = $14164; + })()($15559))(List$nil)(Kind$Comp$Prim$eliminator$(_lang$1, $15560, 0n, _defs$3))); + var $15561 = _code$10; + var $15557 = $15561; break; }; - _code$6 = $14160; - $14161 = $14161.tail; + _code$6 = $15557; + $15558 = $15558.tail; } return _code$6; })(); var _code$6 = (() => { - var $14182 = _code$5; - var $14183 = _defs_list$2; - let _code$7 = $14182; + var $15579 = _code$5; + var $15580 = _defs_list$2; + let _code$7 = $15579; let _defn$6; - while ($14183._ === 'List.cons') { - _defn$6 = $14183.head; + while ($15580._ === 'List.cons') { + _defn$6 = $15580.head; var self = _defn$6; switch (self._) { case 'Pair.new': - var $14184 = self.fst; - var $14185 = self.snd; - var self = Kind$Comp$get_vars$($14185); + var $15581 = self.fst; + var $15582 = self.snd; + var self = Kind$Comp$get_vars$($15582); switch (self._) { case 'Pair.new': - var $14187 = self.fst; - var $14188 = self.snd; - var self = Map$get$($14184, (() => { + var $15584 = self.fst; + var $15585 = self.snd; + var self = Map$get$($15581, (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14190 = self.opts; - var $14191 = $14190; - return $14191; + var $15587 = self.opts; + var $15588 = $15587; + return $15588; }; })()); switch (self._) { case 'Maybe.some': - var $14192 = self.value; - var $14193 = Kind$Comp$replace$(Pair$snd$($14192), $14187); - var _inlined_body$12 = $14193; + var $15589 = self.value; + var $15590 = Kind$Comp$replace$(Pair$snd$($15589), $15584); + var _inlined_body$12 = $15590; break; case 'Maybe.none': - var $14194 = Kind$Comp$transpile$term$(_lang$1, $14188, 0n, _defs$3); - var _inlined_body$12 = $14194; + var $15591 = Kind$Comp$transpile$term$(_lang$1, $15585, 0n, _defs$3); + var _inlined_body$12 = $15591; break; }; var _code$13 = (_code$7 + (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14195 = self.gram; - var $14196 = $14195; - var self = $14196; + var $15592 = self.gram; + var $15593 = $15592; + var self = $15593; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14197 = self.global_function; - var $14198 = $14197; - return $14198; + var $15594 = self.global_function; + var $15595 = $15594; + return $15595; }; - })()($14184)($14187)(_inlined_body$12)); - var $14189 = _code$13; - var $14186 = $14189; + })()($15581)($15584)(_inlined_body$12)); + var $15586 = _code$13; + var $15583 = $15586; break; }; - var $14182 = $14186; + var $15579 = $15583; break; }; - _code$7 = $14182; - $14183 = $14183.tail; + _code$7 = $15579; + $15580 = $15580.tail; } return _code$7; })(); - var $14158 = _code$6; - return $14158; + var $15555 = _code$6; + return $15555; }; const Kind$Comp$transpile$global_definitions = x0 => x1 => x2 => Kind$Comp$transpile$global_definitions$(x0, x1, x2); @@ -46934,46 +51234,46 @@ module.exports = (function() { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14200 = self.gram; - var $14201 = $14200; - var self = $14201; + var $15597 = self.gram; + var $15598 = $15597; + var self = $15598; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14202 = self.program; - var $14203 = $14202; - var _code$5 = $14203; + var $15599 = self.program; + var $15600 = $15599; + var _code$5 = $15600; break; }; var _code$5 = _code$5(_main$2)(((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14204 = self.base; - var $14205 = $14204; - return $14205; + var $15601 = self.base; + var $15602 = $15601; + return $15602; }; })() + ("\u{a}\u{a}" + Kind$Comp$transpile$global_definitions$(_lang$1, _defs_list$4, _defs$3)))); - var $14199 = _code$5; - return $14199; + var $15596 = _code$5; + return $15596; }; const Kind$Comp$transpile = x0 => x1 => x2 => Kind$Comp$transpile$(x0, x1, x2); function Kind$Comp$Language$new$(_gram$1, _nati$2, _opts$3, _base$4) { - var $14206 = ({ + var $15603 = ({ _: 'Kind.Comp.Language.new', 'gram': _gram$1, 'nati': _nati$2, 'opts': _opts$3, 'base': _base$4 }); - return $14206; + return $15603; }; const Kind$Comp$Language$new = x0 => x1 => x2 => x3 => Kind$Comp$Language$new$(x0, x1, x2, x3); function Kind$Comp$Grammar$new$(_null$1, _name$2, _inst_name$3, _elim_name$4, _lambda$5, _application$6, _local_definition$7, _global_function$8, _global_application$9, _select$10, _string_literal$11, _nat$12, _module$13, _program$14) { - var $14207 = ({ + var $15604 = ({ _: 'Kind.Comp.Grammar.new', 'null': _null$1, 'name': _name$2, @@ -46990,7 +51290,7 @@ module.exports = (function() { 'module': _module$13, 'program': _program$14 }); - return $14207; + return $15604; }; const Kind$Comp$Grammar$new = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => x9 => x10 => x11 => x12 => x13 => Kind$Comp$Grammar$new$(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13); const Kind$Comp$Target$Scheme$null = "\'()"; @@ -46998,49 +51298,49 @@ module.exports = (function() { function Kind$Comp$Target$Scheme$name$(_name$1) { var self = String$is_empty$(_name$1); if (self) { - var $14209 = "-"; - var $14208 = $14209; + var $15606 = "-"; + var $15605 = $15606; } else { - var $14210 = _name$1; - var $14208 = $14210; + var $15607 = _name$1; + var $15605 = $15607; }; - return $14208; + return $15605; }; const Kind$Comp$Target$Scheme$name = x0 => Kind$Comp$Target$Scheme$name$(x0); function Kind$Comp$Target$Scheme$inst_name$(_name$1) { - var $14211 = (_name$1 + "-inst"); - return $14211; + var $15608 = (_name$1 + "-inst"); + return $15608; }; const Kind$Comp$Target$Scheme$inst_name = x0 => Kind$Comp$Target$Scheme$inst_name$(x0); function Kind$Comp$Target$Scheme$elim_name$(_name$1) { - var $14212 = (_name$1 + "-elim"); - return $14212; + var $15609 = (_name$1 + "-elim"); + return $15609; }; const Kind$Comp$Target$Scheme$elim_name = x0 => Kind$Comp$Target$Scheme$elim_name$(x0); function Kind$Comp$Target$Scheme$lambda$(_name$1, _body$2) { - var $14213 = ("(lambda (" + (_name$1 + (") " + (_body$2 + ")")))); - return $14213; + var $15610 = ("(lambda (" + (_name$1 + (") " + (_body$2 + ")")))); + return $15610; }; const Kind$Comp$Target$Scheme$lambda = x0 => x1 => Kind$Comp$Target$Scheme$lambda$(x0, x1); function Kind$Comp$Target$Scheme$application$(_func$1, _argm$2) { - var $14214 = ("(" + (_func$1 + (" " + (_argm$2 + ")")))); - return $14214; + var $15611 = ("(" + (_func$1 + (" " + (_argm$2 + ")")))); + return $15611; }; const Kind$Comp$Target$Scheme$application = x0 => x1 => Kind$Comp$Target$Scheme$application$(x0, x1); function Kind$Comp$Target$Scheme$local_definition$(_name$1, _expr$2, _body$3) { - var $14215 = ("(let ((" + (_name$1 + (" " + (_expr$2 + (")) " + (_body$3 + ")")))))); - return $14215; + var $15612 = ("(let ((" + (_name$1 + (" " + (_expr$2 + (")) " + (_body$3 + ")")))))); + return $15612; }; const Kind$Comp$Target$Scheme$local_definition = x0 => x1 => x2 => Kind$Comp$Target$Scheme$local_definition$(x0, x1, x2); function Kind$Comp$Target$Scheme$global_application$(_name$1, _args$2) { - var $14216 = ("($" + (_name$1 + (" " + (String$join$(" ", _args$2) + ")")))); - return $14216; + var $15613 = ("($" + (_name$1 + (" " + (String$join$(" ", _args$2) + ")")))); + return $15613; }; const Kind$Comp$Target$Scheme$global_application = x0 => x1 => Kind$Comp$Target$Scheme$global_application$(x0, x1); @@ -47048,24 +51348,24 @@ module.exports = (function() { var self = _rem_args$3; switch (self._) { case 'List.cons': - var $14218 = self.head; - var $14219 = self.tail; - var $14220 = Kind$Comp$Target$Scheme$lambda$($14218, Kind$Comp$Target$Scheme$nest_lambdas$aux$(_fun$1, _args$2, $14219)); - var $14217 = $14220; + var $15615 = self.head; + var $15616 = self.tail; + var $15617 = Kind$Comp$Target$Scheme$lambda$($15615, Kind$Comp$Target$Scheme$nest_lambdas$aux$(_fun$1, _args$2, $15616)); + var $15614 = $15617; break; case 'List.nil': - var $14221 = Kind$Comp$Target$Scheme$global_application$(_fun$1, _args$2); - var $14217 = $14221; + var $15618 = Kind$Comp$Target$Scheme$global_application$(_fun$1, _args$2); + var $15614 = $15618; break; }; - return $14217; + return $15614; }; const Kind$Comp$Target$Scheme$nest_lambdas$aux = x0 => x1 => x2 => Kind$Comp$Target$Scheme$nest_lambdas$aux$(x0, x1, x2); function Kind$Comp$Target$Scheme$nest_lambdas$(_name$1, _args$2) { var _body$3 = Kind$Comp$Target$Scheme$nest_lambdas$aux$(_name$1, _args$2, _args$2); - var $14222 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); - return $14222; + var $15619 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); + return $15619; }; const Kind$Comp$Target$Scheme$nest_lambdas = x0 => x1 => Kind$Comp$Target$Scheme$nest_lambdas$(x0, x1); @@ -47073,86 +51373,86 @@ module.exports = (function() { var self = _args$2; switch (self._) { case 'List.nil': - var $14224 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); - var $14223 = $14224; + var $15621 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); + var $15620 = $15621; break; case 'List.cons': - var $14225 = ("(define ($" + (_name$1 + (" " + (String$join$(" ", _args$2) + (") " + (_body$3 + (")\u{a}" + Kind$Comp$Target$Scheme$nest_lambdas$(_name$1, _args$2)))))))); - var $14223 = $14225; + var $15622 = ("(define ($" + (_name$1 + (" " + (String$join$(" ", _args$2) + (") " + (_body$3 + (")\u{a}" + Kind$Comp$Target$Scheme$nest_lambdas$(_name$1, _args$2)))))))); + var $15620 = $15622; break; }; - return $14223; + return $15620; }; const Kind$Comp$Target$Scheme$global_function = x0 => x1 => x2 => Kind$Comp$Target$Scheme$global_function$(x0, x1, x2); function Kind$Comp$Target$Scheme$select$(_term$1, _cse_body_list$2) { var _cses$3 = ""; var _cses$4 = (() => { - var $14228 = _cses$3; - var $14229 = _cse_body_list$2; - let _cses$5 = $14228; + var $15625 = _cses$3; + var $15626 = _cse_body_list$2; + let _cses$5 = $15625; let _cse_body$4; - while ($14229._ === 'List.cons') { - _cse_body$4 = $14229.head; + while ($15626._ === 'List.cons') { + _cse_body$4 = $15626.head; var self = _cse_body$4; switch (self._) { case 'Pair.new': - var $14230 = self.fst; - var $14231 = self.snd; - var $14232 = (_cses$5 + (" (" + ($14230 + (" " + ($14231 + ")"))))); - var $14228 = $14232; + var $15627 = self.fst; + var $15628 = self.snd; + var $15629 = (_cses$5 + (" (" + ($15627 + (" " + ($15628 + ")"))))); + var $15625 = $15629; break; }; - _cses$5 = $14228; - $14229 = $14229.tail; + _cses$5 = $15625; + $15626 = $15626.tail; } return _cses$5; })(); - var $14226 = ("(case " + (_term$1 + (_cses$4 + ")"))); - return $14226; + var $15623 = ("(case " + (_term$1 + (_cses$4 + ")"))); + return $15623; }; const Kind$Comp$Target$Scheme$select = x0 => x1 => Kind$Comp$Target$Scheme$select$(x0, x1); function Char$to_string$(_chr$1) { - var $14233 = String$cons$(_chr$1, String$nil); - return $14233; + var $15630 = String$cons$(_chr$1, String$nil); + return $15630; }; const Char$to_string = x0 => Char$to_string$(x0); function Kind$Comp$Target$Scheme$string_literal$(_str$1) { var self = _str$1; if (self.length === 0) { - var $14235 = ""; - var $14234 = $14235; + var $15632 = ""; + var $15631 = $15632; } else { - var $14236 = self.charCodeAt(0); - var $14237 = self.slice(1); - var $14238 = ((() => { - var self = (($14236 === 92) || ($14236 === 34)); + var $15633 = self.charCodeAt(0); + var $15634 = self.slice(1); + var $15635 = ((() => { + var self = (($15633 === 92) || ($15633 === 34)); if (self) { - var $14239 = ("\\" + Char$to_string$($14236)); - return $14239; + var $15636 = ("\\" + Char$to_string$($15633)); + return $15636; } else { - var self = (($14236 >= 32) && ($14236 <= 126)); + var self = (($15633 >= 32) && ($15633 <= 126)); if (self) { - var $14241 = Char$to_string$($14236); - var $14240 = $14241; + var $15638 = Char$to_string$($15633); + var $15637 = $15638; } else { - var $14242 = ("\\x" + (U16$show_hex$($14236) + ";")); - var $14240 = $14242; + var $15639 = ("\\x" + (U16$show_hex$($15633) + ";")); + var $15637 = $15639; }; - return $14240; + return $15637; }; - })() + Kind$Comp$Target$Scheme$string_literal$($14237)); - var $14234 = $14238; + })() + Kind$Comp$Target$Scheme$string_literal$($15634)); + var $15631 = $15635; }; - return $14234; + return $15631; }; const Kind$Comp$Target$Scheme$string_literal = x0 => Kind$Comp$Target$Scheme$string_literal$(x0); function Kind$Comp$Target$Scheme$nat$(_nat$1) { - var $14243 = Nat$show$(_nat$1); - return $14243; + var $15640 = Nat$show$(_nat$1); + return $15640; }; const Kind$Comp$Target$Scheme$nat = x0 => Kind$Comp$Target$Scheme$nat$(x0); const Kind$Comp$Target$Scheme$exports = List$cons$("find-all-kind-files", List$cons$("suffix?", List$cons$("prefix?", List$cons$("run-all", List$cons$("run_io", List$cons$("print-lines", List$cons$("run_kind", List$cons$("make-string-view", List$cons$("string-view?", List$cons$("string-view-end", List$cons$("string-view-start", List$cons$("kstring-length", List$cons$("kstring-head", List$cons$("kstring-tail", List$cons$("string-view-ref", List$cons$("kstring?", List$cons$("kstring->string", List$cons$("kstring-append", List$cons$("kstring-getter", List$cons$("kstring_join", List$nil)))))))))))))))))))); @@ -47160,54 +51460,54 @@ module.exports = (function() { function Kind$Comp$Target$Scheme$module$(_name$1, _exports$2, _defs$3) { var _code$4 = ("#!chezscheme\u{a}(library (" + (_name$1 + ") (export")); var _code$5 = (() => { - var $14246 = _code$4; - var $14247 = Kind$Comp$Target$Scheme$exports; - let _code$6 = $14246; + var $15643 = _code$4; + var $15644 = Kind$Comp$Target$Scheme$exports; + let _code$6 = $15643; let _export$5; - while ($14247._ === 'List.cons') { - _export$5 = $14247.head; - var $14246 = (_code$6 + (" " + _export$5)); - _code$6 = $14246; - $14247 = $14247.tail; + while ($15644._ === 'List.cons') { + _export$5 = $15644.head; + var $15643 = (_code$6 + (" " + _export$5)); + _code$6 = $15643; + $15644 = $15644.tail; } return _code$6; })(); var _code$6 = (() => { - var $14249 = _code$5; - var $14250 = _exports$2; - let _code$7 = $14249; + var $15646 = _code$5; + var $15647 = _exports$2; + let _code$7 = $15646; let _export$6; - while ($14250._ === 'List.cons') { - _export$6 = $14250.head; - var $14249 = (_code$7 + (" " + _export$6)); - _code$7 = $14249; - $14250 = $14250.tail; + while ($15647._ === 'List.cons') { + _export$6 = $15647.head; + var $15646 = (_code$7 + (" " + _export$6)); + _code$7 = $15646; + $15647 = $15647.tail; } return _code$7; })(); var _code$7 = (_code$6 + ")\u{a}"); var _code$8 = (_code$7 + "(import (chezscheme))\u{a}"); var _code$9 = (_code$8 + (_defs$3 + ")")); - var $14244 = _code$9; - return $14244; + var $15641 = _code$9; + return $15641; }; const Kind$Comp$Target$Scheme$module = x0 => x1 => x2 => Kind$Comp$Target$Scheme$module$(x0, x1, x2); function Kind$Comp$Target$Scheme$program$(_main$1, _defs$2) { var _code$3 = (_defs$2 + ("(run_kind " + (_main$1 + ")"))); - var $14251 = _code$3; - return $14251; + var $15648 = _code$3; + return $15648; }; const Kind$Comp$Target$Scheme$program = x0 => x1 => Kind$Comp$Target$Scheme$program$(x0, x1); const Kind$Comp$Target$Scheme$grammar = Kind$Comp$Grammar$new$(Kind$Comp$Target$Scheme$null, Kind$Comp$Target$Scheme$name, Kind$Comp$Target$Scheme$inst_name, Kind$Comp$Target$Scheme$elim_name, Kind$Comp$Target$Scheme$lambda, Kind$Comp$Target$Scheme$application, Kind$Comp$Target$Scheme$local_definition, Kind$Comp$Target$Scheme$global_function, Kind$Comp$Target$Scheme$global_application, Kind$Comp$Target$Scheme$select, Kind$Comp$Target$Scheme$string_literal, Kind$Comp$Target$Scheme$nat, Kind$Comp$Target$Scheme$module, Kind$Comp$Target$Scheme$program); function Kind$Comp$Native$new$(_inst$1, _elim$2) { - var $14252 = ({ + var $15649 = ({ _: 'Kind.Comp.Native.new', 'inst': _inst$1, 'elim': _elim$2 }); - return $14252; + return $15649; }; const Kind$Comp$Native$new = x0 => x1 => Kind$Comp$Native$new$(x0, x1); @@ -47215,78 +51515,78 @@ module.exports = (function() { var self = _prim$1; switch (self._) { case 'Kind.Comp.Prim.data': - var $14254 = self.name; - var $14255 = self.ctrs; - var $14256 = Kind$Comp$Native$new$(List$fold$($14255, List$nil, (_ctr$4 => _result$5 => { + var $15651 = self.name; + var $15652 = self.ctrs; + var $15653 = Kind$Comp$Native$new$(List$fold$($15652, List$nil, (_ctr$4 => _result$5 => { var self = _ctr$4; switch (self._) { case 'Pair.new': - var $14258 = self.fst; - var $14259 = self.snd; - var _fields_size$8 = (list_length($14259)); + var $15655 = self.fst; + var $15656 = self.snd; + var _fields_size$8 = (list_length($15656)); var _fields_vars$9 = String$join$("", List$create$(_fields_size$8, (_x$9 => { - var $14261 = (" $" + Nat$show$(_x$9)); - return $14261; + var $15658 = (" $" + Nat$show$(_x$9)); + return $15658; }))); - var $14260 = List$cons$(Pair$new$(_fields_size$8, ("(vector \'" + ($14254 + ("." + ($14258 + (_fields_vars$9 + ")")))))), _result$5); - var $14257 = $14260; + var $15657 = List$cons$(Pair$new$(_fields_size$8, ("(vector \'" + ($15651 + ("." + ($15655 + (_fields_vars$9 + ")")))))), _result$5); + var $15654 = $15657; break; }; - return $14257; - })), Pair$new$("(get $0 0)", List$fold$($14255, List$nil, (_ctr$4 => _result$5 => { + return $15654; + })), Pair$new$("(get $0 0)", List$fold$($15652, List$nil, (_ctr$4 => _result$5 => { var self = _ctr$4; switch (self._) { case 'Pair.new': - var $14263 = self.fst; - var $14264 = self.snd; - var _fields_size$8 = (list_length($14264)); + var $15660 = self.fst; + var $15661 = self.snd; + var _fields_size$8 = (list_length($15661)); var _fields_gets$9 = List$create$(_fields_size$8, (_i$9 => { - var $14266 = ("(get $0 " + (Nat$show$(Nat$succ$(_i$9)) + ")")); - return $14266; + var $15663 = ("(get $0 " + (Nat$show$(Nat$succ$(_i$9)) + ")")); + return $15663; })); - var $14265 = List$cons$(Pair$new$(("\'" + ($14254 + ("." + $14263))), _fields_gets$9), _result$5); - var $14262 = $14265; + var $15662 = List$cons$(Pair$new$(("\'" + ($15651 + ("." + $15660))), _fields_gets$9), _result$5); + var $15659 = $15662; break; }; - return $14262; + return $15659; })))); - var $14253 = $14256; + var $15650 = $15653; break; case 'Kind.Comp.Prim.bool': - var $14267 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#t"), List$cons$(Pair$new$(0n, "#f"), List$nil)), Pair$new$("$0", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$nil), List$nil)))); - var $14253 = $14267; + var $15664 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#t"), List$cons$(Pair$new$(0n, "#f"), List$nil)), Pair$new$("$0", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$nil), List$nil)))); + var $15650 = $15664; break; case 'Kind.Comp.Prim.bits': - var $14268 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#b1"), List$cons$(Pair$new$(1n, "(bitwise-arithmetic-shift-left $0 #b1)"), List$cons$(Pair$new$(1n, "(bitwise-ior (bitwise-arithmetic-shift-left $0 #b1) #b1)"), List$nil))), Pair$new$("(if (eq? $0 #b1) 2 (bitwise-and $0 #b1))", List$cons$(Pair$new$("2", List$nil), List$cons$(Pair$new$("0", List$cons$("(bitwise-arithmetic-shift-right $0 #b1)", List$nil)), List$cons$(Pair$new$("1", List$cons$("(bitwise-arithmetic-shift-right $0 #b1)", List$nil)), List$nil))))); - var $14253 = $14268; + var $15665 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#b1"), List$cons$(Pair$new$(1n, "(bitwise-arithmetic-shift-left $0 #b1)"), List$cons$(Pair$new$(1n, "(bitwise-ior (bitwise-arithmetic-shift-left $0 #b1) #b1)"), List$nil))), Pair$new$("(if (eq? $0 #b1) 2 (bitwise-and $0 #b1))", List$cons$(Pair$new$("2", List$nil), List$cons$(Pair$new$("0", List$cons$("(bitwise-arithmetic-shift-right $0 #b1)", List$nil)), List$cons$(Pair$new$("1", List$cons$("(bitwise-arithmetic-shift-right $0 #b1)", List$nil)), List$nil))))); + var $15650 = $15665; break; case 'Kind.Comp.Prim.unit': - var $14269 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#t"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$nil), List$nil))); - var $14253 = $14269; + var $15666 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#t"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$nil), List$nil))); + var $15650 = $15666; break; case 'Kind.Comp.Prim.nat': - var $14270 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "0"), List$cons$(Pair$new$(1n, "(+ $0 1)"), List$nil)), Pair$new$("(= $0 0)", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$cons$("(- $0 1)", List$nil)), List$nil)))); - var $14253 = $14270; + var $15667 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "0"), List$cons$(Pair$new$(1n, "(+ $0 1)"), List$nil)), Pair$new$("(= $0 0)", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$cons$("(- $0 1)", List$nil)), List$nil)))); + var $15650 = $15667; break; case 'Kind.Comp.Prim.u16': - var $14271 = Kind$Comp$Native$new$(List$cons$(Pair$new$(1n, "(word-to-u16 $0)"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$cons$("(u16-to-word $0)", List$nil)), List$nil))); - var $14253 = $14271; + var $15668 = Kind$Comp$Native$new$(List$cons$(Pair$new$(1n, "(word-to-u16 $0)"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$cons$("(u16-to-word $0)", List$nil)), List$nil))); + var $15650 = $15668; break; case 'Kind.Comp.Prim.u32': - var $14272 = Kind$Comp$Native$new$(List$cons$(Pair$new$(1n, "(word-to-u 32 $0)"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$cons$("(u-to-word 32 $0)", List$nil)), List$nil))); - var $14253 = $14272; + var $15669 = Kind$Comp$Native$new$(List$cons$(Pair$new$(1n, "(word-to-u 32 $0)"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$cons$("(u-to-word 32 $0)", List$nil)), List$nil))); + var $15650 = $15669; break; case 'Kind.Comp.Prim.string': - var $14273 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "\"\""), List$cons$(Pair$new$(2n, "(kstring-append (make-string 1 (integer->char $0)) $1)"), List$nil)), Pair$new$("(<= (kstring-length $0) 0)", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$cons$("(char->integer (kstring-head $0))", List$cons$("(kstring-tail $0)", List$nil))), List$nil)))); - var $14253 = $14273; + var $15670 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "\"\""), List$cons$(Pair$new$(2n, "(kstring-append (make-string 1 (integer->char $0)) $1)"), List$nil)), Pair$new$("(<= (kstring-length $0) 0)", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$cons$("(char->integer (kstring-head $0))", List$cons$("(kstring-tail $0)", List$nil))), List$nil)))); + var $15650 = $15670; break; }; - return $14253; + return $15650; }; const Kind$Comp$Target$Scheme$natives = x0 => Kind$Comp$Target$Scheme$natives$(x0); function BBT$bin$(_size$3, _key$4, _val$5, _left$6, _right$7) { - var $14274 = ({ + var $15671 = ({ _: 'BBT.bin', 'size': _size$3, 'key': _key$4, @@ -47294,13 +51594,13 @@ module.exports = (function() { 'left': _left$6, 'right': _right$7 }); - return $14274; + return $15671; }; const BBT$bin = x0 => x1 => x2 => x3 => x4 => BBT$bin$(x0, x1, x2, x3, x4); function U32$new$(_value$1) { - var $14275 = word_to_u32(_value$1); - return $14275; + var $15672 = word_to_u32(_value$1); + return $15672; }; const U32$new = x0 => U32$new$(x0); const Nat$to_u32 = a0 => (Number(a0) >>> 0); @@ -47309,8 +51609,8 @@ module.exports = (function() { }); function BBT$singleton$(_key$3, _val$4) { - var $14276 = BBT$bin$(1, _key$3, _val$4, BBT$tip, BBT$tip); - return $14276; + var $15673 = BBT$bin$(1, _key$3, _val$4, BBT$tip, BBT$tip); + return $15673; }; const BBT$singleton = x0 => x1 => BBT$singleton$(x0, x1); @@ -47318,16 +51618,16 @@ module.exports = (function() { var self = _map$3; switch (self._) { case 'BBT.bin': - var $14278 = self.size; - var $14279 = $14278; - var $14277 = $14279; + var $15675 = self.size; + var $15676 = $15675; + var $15674 = $15676; break; case 'BBT.tip': - var $14280 = 0; - var $14277 = $14280; + var $15677 = 0; + var $15674 = $15677; break; }; - return $14277; + return $15674; }; const BBT$size = x0 => BBT$size$(x0); const U32$add = a0 => a1 => ((a0 + a1) >>> 0); @@ -47340,8 +51640,8 @@ module.exports = (function() { var _size_left$7 = BBT$size$(_left$5); var _size_right$8 = BBT$size$(_right$6); var _new_size$9 = ((1 + ((_size_left$7 + _size_right$8) >>> 0)) >>> 0); - var $14281 = BBT$bin$(_new_size$9, _key$3, _val$4, _left$5, _right$6); - return $14281; + var $15678 = BBT$bin$(_new_size$9, _key$3, _val$4, _left$5, _right$6); + return $15678; }; const BBT$node = x0 => x1 => x2 => x3 => BBT$node$(x0, x1, x2, x3); @@ -47350,21 +51650,21 @@ module.exports = (function() { switch (self._) { case 'Cmp.ltn': case 'Cmp.eql': - var $14283 = Bool$false; - var $14282 = $14283; + var $15680 = Bool$false; + var $15679 = $15680; break; case 'Cmp.gtn': - var $14284 = Bool$true; - var $14282 = $14284; + var $15681 = Bool$true; + var $15679 = $15681; break; }; - return $14282; + return $15679; }; const Cmp$as_gtn = x0 => Cmp$as_gtn$(x0); function Word$gtn$(_a$2, _b$3) { - var $14285 = Cmp$as_gtn$(Word$cmp$(_a$2, _b$3)); - return $14285; + var $15682 = Cmp$as_gtn$(Word$cmp$(_a$2, _b$3)); + return $15682; }; const Word$gtn = x0 => x1 => Word$gtn$(x0, x1); const U32$gtn = a0 => a1 => (a0 > a1); @@ -47377,117 +51677,117 @@ module.exports = (function() { var _w_x_size_r$11 = ((BBT$w * _size_r$8) >>> 0); var self = (_size_l_plus_size_r$9 < 2); if (self) { - var $14287 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $14286 = $14287; + var $15684 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15683 = $15684; } else { var self = (_size_r$8 > _w_x_size_l$10); if (self) { var self = _r$6; switch (self._) { case 'BBT.bin': - var $14290 = self.key; - var $14291 = self.val; - var $14292 = self.left; - var $14293 = self.right; - var _size_rl$17 = BBT$size$($14292); - var _size_rr$18 = BBT$size$($14293); + var $15687 = self.key; + var $15688 = self.val; + var $15689 = self.left; + var $15690 = self.right; + var _size_rl$17 = BBT$size$($15689); + var _size_rr$18 = BBT$size$($15690); var self = (_size_rl$17 < _size_rr$18); if (self) { - var _new_key$19 = $14290; - var _new_val$20 = $14291; - var _new_left$21 = BBT$node$(_k$3, _v$4, _l$5, $14292); - var _new_right$22 = $14293; - var $14295 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); - var $14294 = $14295; + var _new_key$19 = $15687; + var _new_val$20 = $15688; + var _new_left$21 = BBT$node$(_k$3, _v$4, _l$5, $15689); + var _new_right$22 = $15690; + var $15692 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); + var $15691 = $15692; } else { - var self = $14292; + var self = $15689; switch (self._) { case 'BBT.bin': - var $14297 = self.key; - var $14298 = self.val; - var $14299 = self.left; - var $14300 = self.right; - var _new_key$24 = $14297; - var _new_val$25 = $14298; - var _new_left$26 = BBT$node$(_k$3, _v$4, _l$5, $14299); - var _new_right$27 = BBT$node$($14290, $14291, $14300, $14293); - var $14301 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); - var $14296 = $14301; + var $15694 = self.key; + var $15695 = self.val; + var $15696 = self.left; + var $15697 = self.right; + var _new_key$24 = $15694; + var _new_val$25 = $15695; + var _new_left$26 = BBT$node$(_k$3, _v$4, _l$5, $15696); + var _new_right$27 = BBT$node$($15687, $15688, $15697, $15690); + var $15698 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); + var $15693 = $15698; break; case 'BBT.tip': - var $14302 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $14296 = $14302; + var $15699 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15693 = $15699; break; }; - var $14294 = $14296; + var $15691 = $15693; }; - var $14289 = $14294; + var $15686 = $15691; break; case 'BBT.tip': - var $14303 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $14289 = $14303; + var $15700 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15686 = $15700; break; }; - var $14288 = $14289; + var $15685 = $15686; } else { var self = (_size_l$7 > _w_x_size_r$11); if (self) { var self = _l$5; switch (self._) { case 'BBT.bin': - var $14306 = self.key; - var $14307 = self.val; - var $14308 = self.left; - var $14309 = self.right; - var _size_ll$17 = BBT$size$($14308); - var _size_lr$18 = BBT$size$($14309); + var $15703 = self.key; + var $15704 = self.val; + var $15705 = self.left; + var $15706 = self.right; + var _size_ll$17 = BBT$size$($15705); + var _size_lr$18 = BBT$size$($15706); var self = (_size_lr$18 < _size_ll$17); if (self) { - var _new_key$19 = $14306; - var _new_val$20 = $14307; - var _new_left$21 = $14308; - var _new_right$22 = BBT$node$(_k$3, _v$4, $14309, _r$6); - var $14311 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); - var $14310 = $14311; + var _new_key$19 = $15703; + var _new_val$20 = $15704; + var _new_left$21 = $15705; + var _new_right$22 = BBT$node$(_k$3, _v$4, $15706, _r$6); + var $15708 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); + var $15707 = $15708; } else { - var self = $14309; + var self = $15706; switch (self._) { case 'BBT.bin': - var $14313 = self.key; - var $14314 = self.val; - var $14315 = self.left; - var $14316 = self.right; - var _new_key$24 = $14313; - var _new_val$25 = $14314; - var _new_left$26 = BBT$node$($14306, $14307, $14308, $14315); - var _new_right$27 = BBT$node$(_k$3, _v$4, $14316, _r$6); - var $14317 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); - var $14312 = $14317; + var $15710 = self.key; + var $15711 = self.val; + var $15712 = self.left; + var $15713 = self.right; + var _new_key$24 = $15710; + var _new_val$25 = $15711; + var _new_left$26 = BBT$node$($15703, $15704, $15705, $15712); + var _new_right$27 = BBT$node$(_k$3, _v$4, $15713, _r$6); + var $15714 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); + var $15709 = $15714; break; case 'BBT.tip': - var $14318 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $14312 = $14318; + var $15715 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15709 = $15715; break; }; - var $14310 = $14312; + var $15707 = $15709; }; - var $14305 = $14310; + var $15702 = $15707; break; case 'BBT.tip': - var $14319 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $14305 = $14319; + var $15716 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15702 = $15716; break; }; - var $14304 = $14305; + var $15701 = $15702; } else { - var $14320 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $14304 = $14320; + var $15717 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $15701 = $15717; }; - var $14288 = $14304; + var $15685 = $15701; }; - var $14286 = $14288; + var $15683 = $15685; }; - return $14286; + return $15683; }; const BBT$balance = x0 => x1 => x2 => x3 => BBT$balance$(x0, x1, x2, x3); @@ -47495,41 +51795,41 @@ module.exports = (function() { var self = _map$6; switch (self._) { case 'BBT.bin': - var $14322 = self.key; - var $14323 = self.val; - var $14324 = self.left; - var $14325 = self.right; - var self = _cmp$3(_key$4)($14322); + var $15719 = self.key; + var $15720 = self.val; + var $15721 = self.left; + var $15722 = self.right; + var self = _cmp$3(_key$4)($15719); switch (self._) { case 'Cmp.ltn': - var _new_key$12 = $14322; - var _new_val$13 = $14323; - var _new_left$14 = BBT$insert$(_cmp$3, _key$4, _val$5, $14324); - var _new_right$15 = $14325; - var $14327 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); - var $14326 = $14327; + var _new_key$12 = $15719; + var _new_val$13 = $15720; + var _new_left$14 = BBT$insert$(_cmp$3, _key$4, _val$5, $15721); + var _new_right$15 = $15722; + var $15724 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); + var $15723 = $15724; break; case 'Cmp.eql': - var $14328 = BBT$node$(_key$4, _val$5, $14324, $14325); - var $14326 = $14328; + var $15725 = BBT$node$(_key$4, _val$5, $15721, $15722); + var $15723 = $15725; break; case 'Cmp.gtn': - var _new_key$12 = $14322; - var _new_val$13 = $14323; - var _new_left$14 = $14324; - var _new_right$15 = BBT$insert$(_cmp$3, _key$4, _val$5, $14325); - var $14329 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); - var $14326 = $14329; + var _new_key$12 = $15719; + var _new_val$13 = $15720; + var _new_left$14 = $15721; + var _new_right$15 = BBT$insert$(_cmp$3, _key$4, _val$5, $15722); + var $15726 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); + var $15723 = $15726; break; }; - var $14321 = $14326; + var $15718 = $15723; break; case 'BBT.tip': - var $14330 = BBT$singleton$(_key$4, _val$5); - var $14321 = $14330; + var $15727 = BBT$singleton$(_key$4, _val$5); + var $15718 = $15727; break; }; - return $14321; + return $15718; }; const BBT$insert = x0 => x1 => x2 => x3 => BBT$insert$(x0, x1, x2, x3); @@ -47546,16 +51846,16 @@ module.exports = (function() { var self = _xs$5; switch (self._) { case 'List.cons': - var $14331 = self.head; - var $14332 = self.tail; - var _key$8 = Pair$fst$($14331); - var _val$9 = Pair$snd$($14331); + var $15728 = self.head; + var $15729 = self.tail; + var _key$8 = Pair$fst$($15728); + var _val$9 = Pair$snd$($15728); var _new_acc$10 = BBT$insert$(_cmp$3, _key$8, _val$9, _acc$4); - var $14333 = BBT$from_list$go$(_cmp$3, _new_acc$10, $14332); - return $14333; + var $15730 = BBT$from_list$go$(_cmp$3, _new_acc$10, $15729); + return $15730; case 'List.nil': - var $14334 = _acc$4; - return $14334; + var $15731 = _acc$4; + return $15731; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -47565,14 +51865,14 @@ module.exports = (function() { const BBT$from_list$go = x0 => x1 => x2 => BBT$from_list$go$(x0, x1, x2); function BBT$from_list$(_cmp$3, _xs$4) { - var $14335 = BBT$from_list$go$(_cmp$3, BBT$tip, _xs$4); - return $14335; + var $15732 = BBT$from_list$go$(_cmp$3, BBT$tip, _xs$4); + return $15732; }; const BBT$from_list = x0 => x1 => BBT$from_list$(x0, x1); function Map$from_list$(_xs$2) { - var $14336 = BBT$from_list$(String$cmp, _xs$2); - return $14336; + var $15733 = BBT$from_list$(String$cmp, _xs$2); + return $15733; }; const Map$from_list = x0 => Map$from_list$(x0); const Kind$Comp$Target$Scheme$optimizeds = Map$from_list$(List$cons$(Pair$new$("Bool.not", Pair$new$(1n, "(not $0)")), List$cons$(Pair$new$("Bool.and", Pair$new$(2n, "(and $0 $1)")), List$cons$(Pair$new$("Bool.if", Pair$new$(3n, "(if $0 $1 $2)")), List$cons$(Pair$new$("Bool.or", Pair$new$(2n, "(or $0 $1)")), List$cons$(Pair$new$("Nat.add", Pair$new$(2n, "(+ $0 $1)")), List$cons$(Pair$new$("Nat.sub", Pair$new$(2n, "(max (- $0 $1) 0)")), List$cons$(Pair$new$("Nat.mul", Pair$new$(2n, "(* $0 $1)")), List$cons$(Pair$new$("Nat.div", Pair$new$(2n, "(div $0 $1)")), List$cons$(Pair$new$("Nat.mod", Pair$new$(2n, "(mod $0 $1)")), List$cons$(Pair$new$("Nat.pow", Pair$new$(2n, "(expt $0 $1)")), List$cons$(Pair$new$("Nat.ltn", Pair$new$(2n, "(< $0 $1)")), List$cons$(Pair$new$("Nat.lte", Pair$new$(2n, "(<= $0 $1)")), List$cons$(Pair$new$("Nat.eql", Pair$new$(2n, "(= $0 $1)")), List$cons$(Pair$new$("Nat.gte", Pair$new$(2n, "(>= $0 $1)")), List$cons$(Pair$new$("Nat.gtn", Pair$new$(2n, "(> $0 $1)")), List$cons$(Pair$new$("Nat.to_u16", Pair$new$(1n, "$0")), List$cons$(Pair$new$("Nat.show", Pair$new$(1n, "(number->string $0)")), List$cons$(Pair$new$("U16.add", Pair$new$(2n, "(mod (+ $0 $1) 65536)")), List$cons$(Pair$new$("U16.sub", Pair$new$(2n, "(mod (- $0 $1) 65536)")), List$cons$(Pair$new$("U16.mul", Pair$new$(2n, "(mod (* $0 $1) 65536)")), List$cons$(Pair$new$("U16.div", Pair$new$(2n, "(div $0 $1)")), List$cons$(Pair$new$("U16.mod", Pair$new$(2n, "(mod $0 $1)")), List$cons$(Pair$new$("U16.pow", Pair$new$(2n, "(mod (expt $0 $1) 65536)")), List$cons$(Pair$new$("U16.ltn", Pair$new$(2n, "(< $0 $1)")), List$cons$(Pair$new$("U16.lte", Pair$new$(2n, "(<= $0 $1)")), List$cons$(Pair$new$("U16.eql", Pair$new$(2n, "(= $0 $1)")), List$cons$(Pair$new$("U16.gte", Pair$new$(2n, "(>= $0 $1)")), List$cons$(Pair$new$("U16.gtn", Pair$new$(2n, "(> $0 $1)")), List$cons$(Pair$new$("U16.inc", Pair$new$(2n, "(+ $0 1)")), List$cons$(Pair$new$("U16.to_nat", Pair$new$(1n, "$0")), List$cons$(Pair$new$("String.eql", Pair$new$(2n, "(string=? (kstring->string $0) (kstring->string $1))")), List$cons$(Pair$new$("String.concat", Pair$new$(2n, "(kstring-append $0 $1)")), List$nil))))))))))))))))))))))))))))))))); @@ -47580,20 +51880,20 @@ module.exports = (function() { const Kind$Comp$Target$Scheme$Language = Kind$Comp$Language$new$(Kind$Comp$Target$Scheme$grammar, Kind$Comp$Target$Scheme$natives, Kind$Comp$Target$Scheme$optimizeds, Kind$Comp$Target$Scheme$basics); function Kind$api$io$term_to_scheme$(_name$1) { - var $14337 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $14338 = _m$bind$2; - return $14338; + var $15734 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $15735 = _m$bind$2; + return $15735; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_defs$2 => { var _defs$3 = Maybe$default$(_defs$2, Kind$Map$new); var _compiled$4 = Kind$Comp$Defs$compile$(_defs$3); var _schemed$5 = Kind$Comp$transpile$(Kind$Comp$Target$Scheme$Language, _name$1, _compiled$4); - var $14339 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $14340 = _m$pure$7; - return $14340; + var $15736 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $15737 = _m$pure$7; + return $15737; }))(_schemed$5); - return $14339; + return $15736; })); - return $14337; + return $15734; }; const Kind$api$io$term_to_scheme = x0 => Kind$api$io$term_to_scheme$(x0); @@ -47601,73 +51901,73 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.cons': - var $14342 = self.head; - var $14343 = self.tail; - var $14344 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $14345 = _m$bind$5; - return $14345; - }))(Kind$Synth$one$($14342, _defs$2))((_new_defs$5 => { + var $15739 = self.head; + var $15740 = self.tail; + var $15741 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $15742 = _m$bind$5; + return $15742; + }))(Kind$Synth$one$($15739, _defs$2))((_new_defs$5 => { var self = _new_defs$5; switch (self._) { case 'Maybe.some': - var $14347 = self.value; - var $14348 = Kind$Synth$many$($14343, $14347); - var $14346 = $14348; + var $15744 = self.value; + var $15745 = Kind$Synth$many$($15740, $15744); + var $15743 = $15745; break; case 'Maybe.none': - var $14349 = Kind$Synth$many$($14343, _defs$2); - var $14346 = $14349; + var $15746 = Kind$Synth$many$($15740, _defs$2); + var $15743 = $15746; break; }; - return $14346; + return $15743; })); - var $14341 = $14344; + var $15738 = $15741; break; case 'List.nil': - var $14350 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $14351 = _m$pure$4; - return $14351; + var $15747 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $15748 = _m$pure$4; + return $15748; }))(_defs$2); - var $14341 = $14350; + var $15738 = $15747; break; }; - return $14341; + return $15738; }; const Kind$Synth$many = x0 => x1 => Kind$Synth$many$(x0, x1); function Kind$Comp$dependency_sort$module$(_exports$1, _defs$2) { var _ret$3 = Pair$new$(Kind$Map$new, List$nil); var _ret$4 = (() => { - var $14354 = _ret$3; - var $14355 = _exports$1; - let _ret$5 = $14354; + var $15751 = _ret$3; + var $15752 = _exports$1; + let _ret$5 = $15751; let _export$4; - while ($14355._ === 'List.cons') { - _export$4 = $14355.head; + while ($15752._ === 'List.cons') { + _export$4 = $15752.head; var _term$6 = Kind$Comp$ref$(_export$4); var self = _ret$5; switch (self._) { case 'Pair.new': - var $14356 = self.fst; - var $14357 = self.snd; - var $14358 = Kind$Comp$dependency_sort$go$(_term$6, _defs$2, $14356, $14357); - var $14354 = $14358; + var $15753 = self.fst; + var $15754 = self.snd; + var $15755 = Kind$Comp$dependency_sort$go$(_term$6, _defs$2, $15753, $15754); + var $15751 = $15755; break; }; - _ret$5 = $14354; - $14355 = $14355.tail; + _ret$5 = $15751; + $15752 = $15752.tail; } return _ret$5; })(); var self = _ret$4; switch (self._) { case 'Pair.new': - var $14359 = self.snd; - var $14360 = List$reverse$($14359); - var $14352 = $14360; + var $15756 = self.snd; + var $15757 = List$reverse$($15756); + var $15749 = $15757; break; }; - return $14352; + return $15749; }; const Kind$Comp$dependency_sort$module = x0 => x1 => Kind$Comp$dependency_sort$module$(x0, x1); @@ -47676,46 +51976,46 @@ module.exports = (function() { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14362 = self.gram; - var $14363 = $14362; - var self = $14363; + var $15759 = self.gram; + var $15760 = $15759; + var self = $15760; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $14364 = self.module; - var $14365 = $14364; - var _code$6 = $14365; + var $15761 = self.module; + var $15762 = $15761; + var _code$6 = $15762; break; }; var _code$6 = _code$6(_name$2)(_exports$3)(((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $14366 = self.base; - var $14367 = $14366; - return $14367; + var $15763 = self.base; + var $15764 = $15763; + return $15764; }; })() + ("\u{a}\u{a}" + Kind$Comp$transpile$global_definitions$(_lang$1, _defs_list$5, _defs$4)))); - var $14361 = _code$6; - return $14361; + var $15758 = _code$6; + return $15758; }; const Kind$Comp$transpile$module = x0 => x1 => x2 => x3 => Kind$Comp$transpile$module$(x0, x1, x2, x3); function Kind$api$io$terms_to_scheme_lib$(_name$1, _exports$2) { - var $14368 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $14369 = _m$bind$3; - return $14369; + var $15765 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $15766 = _m$bind$3; + return $15766; }))(Kind$Synth$many$(_exports$2, Kind$Map$new))((_defs$3 => { var _compiled$4 = Kind$Comp$Defs$compile$(_defs$3); var _schemed$5 = Kind$Comp$transpile$module$(Kind$Comp$Target$Scheme$Language, _name$1, _exports$2, _compiled$4); - var $14370 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $14371 = _m$pure$7; - return $14371; + var $15767 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $15768 = _m$pure$7; + return $15768; }))(_schemed$5); - return $14370; + return $15767; })); - return $14368; + return $15765; }; const Kind$api$io$terms_to_scheme_lib = x0 => x1 => Kind$api$io$terms_to_scheme_lib$(x0, x1); @@ -47723,638 +52023,130 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'BitsMap.tie': - var $14373 = self.val; - var $14374 = self.lft; - var $14375 = self.rgt; - var self = $14373; + var $15770 = self.val; + var $15771 = self.lft; + var $15772 = self.rgt; + var self = $15770; switch (self._) { case 'Maybe.none': - var $14377 = _list$4; - var _list0$8 = $14377; + var $15774 = _list$4; + var _list0$8 = $15774; break; case 'Maybe.some': - var $14378 = List$cons$(Bits$reverse$(_key$3), _list$4); - var _list0$8 = $14378; + var $15775 = List$cons$(Bits$reverse$(_key$3), _list$4); + var _list0$8 = $15775; break; }; - var _list1$9 = BitsMap$keys$go$($14374, (_key$3 + '0'), _list0$8); - var _list2$10 = BitsMap$keys$go$($14375, (_key$3 + '1'), _list1$9); - var $14376 = _list2$10; - var $14372 = $14376; + var _list1$9 = BitsMap$keys$go$($15771, (_key$3 + '0'), _list0$8); + var _list2$10 = BitsMap$keys$go$($15772, (_key$3 + '1'), _list1$9); + var $15773 = _list2$10; + var $15769 = $15773; break; case 'BitsMap.new': - var $14379 = _list$4; - var $14372 = $14379; + var $15776 = _list$4; + var $15769 = $15776; break; }; - return $14372; + return $15769; }; const BitsMap$keys$go = x0 => x1 => x2 => BitsMap$keys$go$(x0, x1, x2); function BitsMap$keys$(_xs$2) { - var $14380 = List$reverse$(BitsMap$keys$go$(_xs$2, Bits$e, List$nil)); - return $14380; + var $15777 = List$reverse$(BitsMap$keys$go$(_xs$2, Bits$e, List$nil)); + return $15777; }; const BitsMap$keys = x0 => BitsMap$keys$(x0); function Kind$Synth$file$(_file$1, _defs$2) { - var $14381 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $14382 = _m$bind$3; - return $14382; + var $15778 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $15779 = _m$bind$3; + return $15779; }))(IO$get_file$(_file$1))((_code$3 => { var _read$4 = Kind$Defs$read$(_file$1, _code$3, _defs$2); var self = _read$4; switch (self._) { case 'Either.left': - var $14384 = self.value; - var $14385 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $14386 = _m$pure$7; - return $14386; - }))(Either$left$($14384)); - var $14383 = $14385; + var $15781 = self.value; + var $15782 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $15783 = _m$pure$7; + return $15783; + }))(Either$left$($15781)); + var $15780 = $15782; break; case 'Either.right': - var $14387 = self.value; - var _file_defs$6 = $14387; + var $15784 = self.value; + var _file_defs$6 = $15784; var _file_keys$7 = BitsMap$keys$(_file_defs$6); var _file_nams$8 = List$mapped$(_file_keys$7, Kind$Name$from_bits); - var $14388 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $14389 = _m$bind$9; - return $14389; + var $15785 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $15786 = _m$bind$9; + return $15786; }))(Kind$Synth$many$(_file_nams$8, _file_defs$6))((_defs$9 => { - var $14390 = IO$monad$((_m$bind$10 => _m$pure$11 => { - var $14391 = _m$pure$11; - return $14391; + var $15787 = IO$monad$((_m$bind$10 => _m$pure$11 => { + var $15788 = _m$pure$11; + return $15788; }))(Either$right$(Pair$new$(_file_nams$8, _defs$9))); - return $14390; + return $15787; })); - var $14383 = $14388; + var $15780 = $15785; break; }; - return $14383; + return $15780; })); - return $14381; + return $15778; }; const Kind$Synth$file = x0 => x1 => Kind$Synth$file$(x0, x1); function IO$put_string$(_text$1) { - var $14392 = IO$ask$("put_string", _text$1, (_skip$2 => { - var $14393 = IO$end$(Unit$new); - return $14393; + var $15789 = IO$ask$("put_string", _text$1, (_skip$2 => { + var $15790 = IO$end$(Unit$new); + return $15790; })); - return $14392; + return $15789; }; const IO$put_string = x0 => IO$put_string$(x0); function IO$print$(_text$1) { - var $14394 = IO$put_string$((_text$1 + "\u{a}")); - return $14394; + var $15791 = IO$put_string$((_text$1 + "\u{a}")); + return $15791; }; const IO$print = x0 => IO$print$(x0); - function Kind$Term$show$as_nat$go$(_term$1) { - var self = _term$1; - switch (self._) { - case 'Kind.Term.ref': - var $14396 = self.name; - var self = ($14396 === "Nat.zero"); - if (self) { - var $14398 = Maybe$some$(0n); - var $14397 = $14398; - } else { - var $14399 = Maybe$none; - var $14397 = $14399; - }; - var $14395 = $14397; - break; - case 'Kind.Term.app': - var $14400 = self.func; - var $14401 = self.argm; - var self = $14400; - switch (self._) { - case 'Kind.Term.ref': - var $14403 = self.name; - var self = ($14403 === "Nat.succ"); - if (self) { - var $14405 = Maybe$monad$((_m$bind$5 => _m$pure$6 => { - var $14406 = _m$bind$5; - return $14406; - }))(Kind$Term$show$as_nat$go$($14401))((_pred$5 => { - var $14407 = Maybe$monad$((_m$bind$6 => _m$pure$7 => { - var $14408 = _m$pure$7; - return $14408; - }))(Nat$succ$(_pred$5)); - return $14407; - })); - var $14404 = $14405; - } else { - var $14409 = Maybe$none; - var $14404 = $14409; - }; - var $14402 = $14404; - break; - case 'Kind.Term.var': - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.app': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - case 'Kind.Term.ori': - var $14410 = Maybe$none; - var $14402 = $14410; - break; - }; - var $14395 = $14402; - break; - case 'Kind.Term.var': - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - case 'Kind.Term.ori': - var $14411 = Maybe$none; - var $14395 = $14411; - break; - }; - return $14395; - }; - const Kind$Term$show$as_nat$go = x0 => Kind$Term$show$as_nat$go$(x0); - - function Kind$Term$show$as_nat$(_term$1) { - var $14412 = Maybe$mapped$(Kind$Term$show$as_nat$go$(_term$1), Nat$show); - return $14412; - }; - const Kind$Term$show$as_nat = x0 => Kind$Term$show$as_nat$(x0); - - function Kind$Term$show$is_ref$(_term$1, _name$2) { - var self = _term$1; - switch (self._) { - case 'Kind.Term.ref': - var $14414 = self.name; - var $14415 = (_name$2 === $14414); - var $14413 = $14415; - break; - case 'Kind.Term.var': - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.app': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - case 'Kind.Term.ori': - var $14416 = Bool$false; - var $14413 = $14416; - break; - }; - return $14413; - }; - const Kind$Term$show$is_ref = x0 => x1 => Kind$Term$show$is_ref$(x0, x1); - - function Kind$Term$show$app$done$(_term$1, _path$2, _args$3) { - var _arity$4 = (list_length(_args$3)); - var self = (Kind$Term$show$is_ref$(_term$1, "Equal") && (_arity$4 === 3n)); - if (self) { - var _func$5 = Kind$Term$show$go$(_term$1, _path$2); - var _eq_lft$6 = Maybe$default$(List$at$(1n, _args$3), "?"); - var _eq_rgt$7 = Maybe$default$(List$at$(2n, _args$3), "?"); - var $14418 = String$flatten$(List$cons$(_eq_lft$6, List$cons$(" == ", List$cons$(_eq_rgt$7, List$nil)))); - var $14417 = $14418; - } else { - var _func$5 = Kind$Term$show$go$(_term$1, _path$2); - var self = _func$5; - if (self.length === 0) { - var $14420 = Bool$false; - var _wrap$6 = $14420; - } else { - var $14421 = self.charCodeAt(0); - var $14422 = self.slice(1); - var $14423 = ($14421 === 40); - var _wrap$6 = $14423; - }; - var _args$7 = String$join$(",", _args$3); - var self = _wrap$6; - if (self) { - var $14424 = String$flatten$(List$cons$("(", List$cons$(_func$5, List$cons$(")", List$nil)))); - var _func$8 = $14424; - } else { - var $14425 = _func$5; - var _func$8 = $14425; - }; - var $14419 = String$flatten$(List$cons$(_func$8, List$cons$("(", List$cons$(_args$7, List$cons$(")", List$nil))))); - var $14417 = $14419; - }; - return $14417; - }; - const Kind$Term$show$app$done = x0 => x1 => x2 => Kind$Term$show$app$done$(x0, x1, x2); - - function Kind$Term$show$app$(_term$1, _path$2, _args$3) { - var Kind$Term$show$app$ = (_term$1, _path$2, _args$3) => ({ - ctr: 'TCO', - arg: [_term$1, _path$2, _args$3] - }); - var Kind$Term$show$app = _term$1 => _path$2 => _args$3 => Kind$Term$show$app$(_term$1, _path$2, _args$3); - var arg = [_term$1, _path$2, _args$3]; - while (true) { - let [_term$1, _path$2, _args$3] = arg; - var R = (() => { - var self = _term$1; - switch (self._) { - case 'Kind.Term.app': - var $14426 = self.func; - var $14427 = self.argm; - var $14428 = Kind$Term$show$app$($14426, Kind$Path$Maybe$Builder$o$(_path$2), List$cons$(Kind$Term$show$go$($14427, Kind$Path$Maybe$Builder$i$(_path$2)), _args$3)); - return $14428; - case 'Kind.Term.ori': - var $14429 = self.expr; - var $14430 = Kind$Term$show$app$($14429, _path$2, _args$3); - return $14430; - case 'Kind.Term.var': - case 'Kind.Term.ref': - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - var $14431 = Kind$Term$show$app$done$(_term$1, _path$2, _args$3); - return $14431; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const Kind$Term$show$app = x0 => x1 => x2 => Kind$Term$show$app$(x0, x1, x2); - - function BitsMap$to_list$(_xs$2) { - var $14432 = List$reverse$(BitsMap$to_list$go$(_xs$2, Bits$e, List$nil)); - return $14432; - }; - const BitsMap$to_list = x0 => BitsMap$to_list$(x0); - - function Kind$Term$show$go$(_term$1, _path$2) { - var self = Kind$Term$show$as_nat$(_term$1); - switch (self._) { - case 'Maybe.some': - var $14434 = self.value; - var $14435 = $14434; - var $14433 = $14435; - break; - case 'Maybe.none': - var self = _term$1; - switch (self._) { - case 'Kind.Term.var': - var $14437 = self.name; - var $14438 = Kind$Name$show$($14437); - var $14436 = $14438; - break; - case 'Kind.Term.ref': - var $14439 = self.name; - var _name$4 = Kind$Name$show$($14439); - var self = _path$2; - switch (self._) { - case 'Maybe.some': - var $14441 = self.value; - var _path_val$6 = ((Bits$e + '1') + Kind$Path$Builder$to_bits$($14441)); - var _path_str$7 = Nat$show$(Bits$to_nat$(_path_val$6)); - var $14442 = String$flatten$(List$cons$(_name$4, List$cons$(Kind$Code$color$("2", ("-" + _path_str$7)), List$nil))); - var $14440 = $14442; - break; - case 'Maybe.none': - var $14443 = _name$4; - var $14440 = $14443; - break; - }; - var $14436 = $14440; - break; - case 'Kind.Term.all': - var $14444 = self.eras; - var $14445 = self.self; - var $14446 = self.name; - var $14447 = self.xtyp; - var $14448 = self.body; - var _eras$8 = $14444; - var _self$9 = Kind$Name$show$($14445); - var _name$10 = Kind$Name$show$($14446); - var _type$11 = Kind$Term$show$go$($14447, Kind$Path$Maybe$Builder$o$(_path$2)); - var self = _eras$8; - if (self) { - var $14450 = "<"; - var _open$12 = $14450; - } else { - var $14451 = "("; - var _open$12 = $14451; - }; - var self = _eras$8; - if (self) { - var $14452 = ">"; - var _clos$13 = $14452; - } else { - var $14453 = ")"; - var _clos$13 = $14453; - }; - var _body$14 = Kind$Term$show$go$($14448(Kind$Term$var$($14445, 0n))(Kind$Term$var$($14446, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); - var $14449 = String$flatten$(List$cons$(_self$9, List$cons$(_open$12, List$cons$(_name$10, List$cons$(":", List$cons$(_type$11, List$cons$(_clos$13, List$cons$(" ", List$cons$(_body$14, List$nil))))))))); - var $14436 = $14449; - break; - case 'Kind.Term.lam': - var $14454 = self.name; - var $14455 = self.body; - var _name$5 = Kind$Name$show$($14454); - var _body$6 = Kind$Term$show$go$($14455(Kind$Term$var$($14454, 0n)), Kind$Path$Maybe$Builder$o$(_path$2)); - var $14456 = String$flatten$(List$cons$("(", List$cons$(_name$5, List$cons$(") ", List$cons$(_body$6, List$nil))))); - var $14436 = $14456; - break; - case 'Kind.Term.let': - var $14457 = self.name; - var $14458 = self.expr; - var $14459 = self.body; - var _name$6 = Kind$Name$show$($14457); - var _expr$7 = Kind$Term$show$go$($14458, Kind$Path$Maybe$Builder$o$(_path$2)); - var _body$8 = Kind$Term$show$go$($14459(Kind$Term$var$($14457, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); - var $14460 = String$flatten$(List$cons$("let ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); - var $14436 = $14460; - break; - case 'Kind.Term.def': - var $14461 = self.name; - var $14462 = self.expr; - var $14463 = self.body; - var _name$6 = Kind$Name$show$($14461); - var _expr$7 = Kind$Term$show$go$($14462, Kind$Path$Maybe$Builder$o$(_path$2)); - var _body$8 = Kind$Term$show$go$($14463(Kind$Term$var$($14461, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); - var $14464 = String$flatten$(List$cons$("def ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); - var $14436 = $14464; - break; - case 'Kind.Term.ann': - var $14465 = self.term; - var $14466 = self.type; - var _term$6 = Kind$Term$show$go$($14465, Kind$Path$Maybe$Builder$o$(_path$2)); - var _type$7 = Kind$Term$show$go$($14466, Kind$Path$Maybe$Builder$i$(_path$2)); - var $14467 = String$flatten$(List$cons$(_term$6, List$cons$("::", List$cons$(_type$7, List$nil)))); - var $14436 = $14467; - break; - case 'Kind.Term.gol': - var $14468 = self.name; - var _name$6 = Kind$Name$show$($14468); - var $14469 = String$flatten$(List$cons$("?", List$cons$(_name$6, List$nil))); - var $14436 = $14469; - break; - case 'Kind.Term.nat': - var $14470 = self.natx; - var $14471 = String$flatten$(List$cons$(Nat$show$($14470), List$nil)); - var $14436 = $14471; - break; - case 'Kind.Term.chr': - var $14472 = self.chrx; - var $14473 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($14472), List$cons$("\'", List$nil)))); - var $14436 = $14473; - break; - case 'Kind.Term.str': - var $14474 = self.strx; - var $14475 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($14474), List$cons$("\"", List$nil)))); - var $14436 = $14475; - break; - case 'Kind.Term.num': - var $14476 = self.sign; - var $14477 = self.numb; - var $14478 = self.frac; - var $14479 = String$flatten$(List$cons$((() => { - var self = $14476; - switch (self._) { - case 'Maybe.some': - var $14480 = self.value; - var self = $14480; - if (self) { - var $14482 = "+"; - var $14481 = $14482; - } else { - var $14483 = "-"; - var $14481 = $14483; - }; - return $14481; - case 'Maybe.none': - var $14484 = ""; - return $14484; - }; - })(), List$cons$(Nat$show$($14477), List$cons$((() => { - var self = $14478; - switch (self._) { - case 'Maybe.some': - var $14485 = self.value; - var $14486 = ("." + Nat$show$($14485)); - return $14486; - case 'Maybe.none': - var $14487 = ""; - return $14487; - }; - })(), List$nil)))); - var $14436 = $14479; - break; - case 'Kind.Term.cse': - var $14488 = self.expr; - var $14489 = self.name; - var $14490 = self.with; - var $14491 = self.cses; - var $14492 = self.moti; - var _expr$9 = Kind$Term$show$go$($14488, Kind$Path$Maybe$Builder$o$(_path$2)); - var _name$10 = Kind$Name$show$($14489); - var _wyth$11 = String$join$("; ", List$mapped$($14490, (_with_var$11 => { - var self = _with_var$11; - switch (self._) { - case 'Kind.Ann.new': - var $14495 = self.name; - var $14496 = self.type; - var self = $14496; - switch (self._) { - case 'Maybe.some': - var $14498 = self.value; - var $14499 = ($14495 + (": " + Kind$Term$show$go$($14498, Maybe$none))); - var $14497 = $14499; - break; - case 'Maybe.none': - var $14500 = $14495; - var $14497 = $14500; - break; - }; - var $14494 = $14497; - break; - }; - return $14494; - }))); - var _cses$12 = BitsMap$to_list$($14491); - var _cses$13 = String$join$("", List$mapped$(_cses$12, (_x$13 => { - var _name$14 = Kind$Name$from_bits$(Pair$fst$(_x$13)); - var _term$15 = Kind$Term$show$go$(Pair$snd$(_x$13), Maybe$none); - var $14501 = String$flatten$(List$cons$(_name$14, List$cons$(": ", List$cons$(_term$15, List$cons$(", ", List$nil))))); - return $14501; - }))); - var self = $14492; - switch (self._) { - case 'Maybe.some': - var $14502 = self.value; - var $14503 = String$flatten$(List$cons$(": ", List$cons$(Kind$Term$show$go$($14502, Maybe$none), List$nil))); - var _moti$14 = $14503; - break; - case 'Maybe.none': - var $14504 = ""; - var _moti$14 = $14504; - break; - }; - var $14493 = String$flatten$(List$cons$("case ", List$cons$(_expr$9, List$cons$(" as ", List$cons$(_name$10, List$cons$(_wyth$11, List$cons$(" { ", List$cons$(_cses$13, List$cons$("}", List$cons$(_moti$14, List$nil)))))))))); - var $14436 = $14493; - break; - case 'Kind.Term.new': - var $14505 = self.args; - var _args$4 = List$fold$($14505, (_path$4 => { - var $14507 = List$nil; - return $14507; - }), (_arg$4 => _res$5 => _path$6 => { - var $14508 = List$cons$(Kind$Term$show$go$(_arg$4, _path$6), _res$5(Kind$Path$Maybe$Builder$o$(_path$6))); - return $14508; - }))(_path$2); - var $14506 = String$flatten$(List$cons$("{", List$cons$(String$join$(",", _args$4), List$cons$("}", List$nil)))); - var $14436 = $14506; - break; - case 'Kind.Term.get': - var $14509 = self.expr; - var $14510 = self.fkey; - var _expr$5 = Kind$Term$show$go$($14509, Kind$Path$Maybe$Builder$o$(_path$2)); - var $14511 = String$flatten$(List$cons$(_expr$5, List$cons$("@", List$cons$($14510, List$nil)))); - var $14436 = $14511; - break; - case 'Kind.Term.set': - var $14512 = self.expr; - var $14513 = self.fkey; - var $14514 = self.fval; - var _expr$6 = Kind$Term$show$go$($14512, Kind$Path$Maybe$Builder$o$(_path$2)); - var _fval$7 = Kind$Term$show$go$($14514, Kind$Path$Maybe$Builder$i$(_path$2)); - var $14515 = String$flatten$(List$cons$(_expr$6, List$cons$("@", List$cons$($14513, List$cons$(" <- ", List$cons$(_fval$7, List$nil)))))); - var $14436 = $14515; - break; - case 'Kind.Term.ope': - var $14516 = self.name; - var $14517 = self.arg0; - var $14518 = self.arg1; - var _arg0$6 = Kind$Term$show$go$($14517, Kind$Path$Maybe$Builder$o$(_path$2)); - var _arg1$7 = Kind$Term$show$go$($14518, Kind$Path$Maybe$Builder$i$(_path$2)); - var $14519 = String$flatten$(List$cons$("(", List$cons$(_arg0$6, List$cons$(" ", List$cons$($14516, List$cons$(" ", List$cons$(_arg1$7, List$cons$(")", List$nil)))))))); - var $14436 = $14519; - break; - case 'Kind.Term.ori': - var $14520 = self.expr; - var $14521 = Kind$Term$show$go$($14520, _path$2); - var $14436 = $14521; - break; - case 'Kind.Term.typ': - var $14522 = "Type"; - var $14436 = $14522; - break; - case 'Kind.Term.app': - var $14523 = Kind$Term$show$app$(_term$1, _path$2, List$nil); - var $14436 = $14523; - break; - case 'Kind.Term.hol': - var $14524 = "_"; - var $14436 = $14524; - break; - }; - var $14433 = $14436; - break; - }; - return $14433; - }; - const Kind$Term$show$go = x0 => x1 => Kind$Term$show$go$(x0, x1); - - function Kind$Term$show$(_term$1) { - var $14525 = Kind$Term$show$go$(_term$1, Maybe$none); - return $14525; - }; - const Kind$Term$show = x0 => Kind$Term$show$(x0); - function Kind$Defs$report$types$(_defs$1, _names$2) { var _types$3 = ""; var _types$4 = (() => { - var $14528 = _types$3; - var $14529 = _names$2; - let _types$5 = $14528; + var $15794 = _types$3; + var $15795 = _names$2; + let _types$5 = $15794; let _name$4; - while ($14529._ === 'List.cons') { - _name$4 = $14529.head; + while ($15795._ === 'List.cons') { + _name$4 = $15795.head; var self = Kind$Map$get$(_name$4, _defs$1); switch (self._) { case 'Maybe.some': - var $14530 = self.value; - var self = $14530; + var $15796 = self.value; + var self = $15796; switch (self._) { case 'Kind.Def.new': - var $14532 = self.type; - var $14533 = (_types$5 + (_name$4 + (": " + (Kind$Term$show$($14532) + "\u{a}")))); - var $14531 = $14533; + var $15798 = self.type; + var $15799 = (_types$5 + (_name$4 + (": " + (Kind$Term$show$($15798) + "\u{a}")))); + var $15797 = $15799; break; }; - var $14528 = $14531; + var $15794 = $15797; break; case 'Maybe.none': - var $14534 = _types$5; - var $14528 = $14534; + var $15800 = _types$5; + var $15794 = $15800; break; }; - _types$5 = $14528; - $14529 = $14529.tail; + _types$5 = $15794; + $15795 = $15795.tail; } return _types$5; })(); - var $14526 = _types$4; - return $14526; + var $15792 = _types$4; + return $15792; }; const Kind$Defs$report$types = x0 => x1 => Kind$Defs$report$types$(x0, x1); @@ -48362,24 +52154,24 @@ module.exports = (function() { var self = _xs$3; switch (self._) { case 'List.cons': - var $14536 = self.head; - var $14537 = self.tail; - var self = _f$2($14536); + var $15802 = self.head; + var $15803 = self.tail; + var self = _f$2($15802); if (self) { - var $14539 = List$cons$($14536, List$filter$(_f$2, $14537)); - var $14538 = $14539; + var $15805 = List$cons$($15802, List$filter$(_f$2, $15803)); + var $15804 = $15805; } else { - var $14540 = List$filter$(_f$2, $14537); - var $14538 = $14540; + var $15806 = List$filter$(_f$2, $15803); + var $15804 = $15806; }; - var $14535 = $14538; + var $15801 = $15804; break; case 'List.nil': - var $14541 = List$nil; - var $14535 = $14541; + var $15807 = List$nil; + var $15801 = $15807; break; }; - return $14535; + return $15801; }; const List$filter = x0 => x1 => List$filter$(x0, x1); @@ -48392,15 +52184,15 @@ module.exports = (function() { case 'Kind.Error.indirect': case 'Kind.Error.patch': case 'Kind.Error.cant_infer': - var $14543 = Bool$false; - var $14542 = $14543; + var $15809 = Bool$false; + var $15808 = $15809; break; case 'Kind.Error.undefined_reference': - var $14544 = Bool$true; - var $14542 = $14544; + var $15810 = Bool$true; + var $15808 = $15810; break; }; - return $14542; + return $15808; }; const Kind$Error$is_undef = x0 => Kind$Error$is_undef$(x0); @@ -48409,19 +52201,19 @@ module.exports = (function() { switch (self._) { case 'Kind.Error.type_mismatch': case 'Kind.Error.cant_infer': - var $14546 = Bool$true; - var $14545 = $14546; + var $15812 = Bool$true; + var $15811 = $15812; break; case 'Kind.Error.show_goal': case 'Kind.Error.waiting': case 'Kind.Error.indirect': case 'Kind.Error.patch': case 'Kind.Error.undefined_reference': - var $14547 = Bool$false; - var $14545 = $14547; + var $15813 = Bool$false; + var $15811 = $15813; break; }; - return $14545; + return $15811; }; const Kind$Error$is_mistake = x0 => Kind$Error$is_mistake$(x0); @@ -48434,15 +52226,15 @@ module.exports = (function() { case 'Kind.Error.patch': case 'Kind.Error.undefined_reference': case 'Kind.Error.cant_infer': - var $14549 = Bool$false; - var $14548 = $14549; + var $15815 = Bool$false; + var $15814 = $15815; break; case 'Kind.Error.show_goal': - var $14550 = Bool$true; - var $14548 = $14550; + var $15816 = Bool$true; + var $15814 = $15816; break; }; - return $14548; + return $15814; }; const Kind$Error$is_goal = x0 => Kind$Error$is_goal$(x0); @@ -48456,23 +52248,23 @@ module.exports = (function() { var self = _mistakes$3; switch (self._) { case 'List.cons': - var $14553 = self.head; - var $14554 = List$concat$(List$cons$($14553, List$nil), _goals$4); - var $14552 = $14554; + var $15819 = self.head; + var $15820 = List$concat$(List$cons$($15819, List$nil), _goals$4); + var $15818 = $15820; break; case 'List.nil': - var $14555 = _goals$4; - var $14552 = $14555; + var $15821 = _goals$4; + var $15818 = $15821; break; }; - var $14551 = $14552; + var $15817 = $15818; break; case 'List.cons': - var $14556 = List$concat$(_undefs$2, _goals$4); - var $14551 = $14556; + var $15822 = List$concat$(_undefs$2, _goals$4); + var $15817 = $15822; break; }; - return $14551; + return $15817; }; const Kind$Error$relevant = x0 => Kind$Error$relevant$(x0); @@ -48480,57 +52272,57 @@ module.exports = (function() { var self = _context$1; switch (self._) { case 'List.cons': - var $14558 = self.head; - var $14559 = self.tail; - var self = $14558; + var $15824 = self.head; + var $15825 = self.tail; + var self = $15824; switch (self._) { case 'Pair.new': - var $14561 = self.fst; - var $14562 = self.snd; - var _name$6 = Kind$Name$show$($14561); - var _type$7 = Kind$Term$show$(Kind$Term$normalize$($14562, Kind$Map$new)); - var _rest$8 = Kind$Context$show$($14559); - var $14563 = (_rest$8 + ("- " + (_name$6 + (": " + (_type$7 + "\u{a}"))))); - var $14560 = $14563; + var $15827 = self.fst; + var $15828 = self.snd; + var _name$6 = Kind$Name$show$($15827); + var _type$7 = Kind$Term$show$(Kind$Term$normalize$($15828, Kind$Map$new)); + var _rest$8 = Kind$Context$show$($15825); + var $15829 = (_rest$8 + ("- " + (_name$6 + (": " + (_type$7 + "\u{a}"))))); + var $15826 = $15829; break; }; - var $14557 = $14560; + var $15823 = $15826; break; case 'List.nil': - var $14564 = ""; - var $14557 = $14564; + var $15830 = ""; + var $15823 = $15830; break; }; - return $14557; + return $15823; }; const Kind$Context$show = x0 => Kind$Context$show$(x0); function Kind$Term$expand_at$(_path$1, _term$2, _defs$3) { - var $14565 = Kind$Term$patch_at$(_path$1, _term$2, (_term$4 => { + var $15831 = Kind$Term$patch_at$(_path$1, _term$2, (_term$4 => { var self = _term$4; switch (self._) { case 'Kind.Term.ref': - var $14567 = self.name; - var self = Kind$Map$get$($14567, _defs$3); + var $15833 = self.name; + var self = Kind$Map$get$($15833, _defs$3); switch (self._) { case 'Maybe.some': - var $14569 = self.value; - var self = $14569; + var $15835 = self.value; + var self = $15835; switch (self._) { case 'Kind.Def.new': - var $14571 = self.term; - var $14572 = $14571; - var $14570 = $14572; + var $15837 = self.term; + var $15838 = $15837; + var $15836 = $15838; break; }; - var $14568 = $14570; + var $15834 = $15836; break; case 'Maybe.none': - var $14573 = Kind$Term$ref$($14567); - var $14568 = $14573; + var $15839 = Kind$Term$ref$($15833); + var $15834 = $15839; break; }; - var $14566 = $14568; + var $15832 = $15834; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -48552,13 +52344,13 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14574 = _term$4; - var $14566 = $14574; + var $15840 = _term$4; + var $15832 = $15840; break; }; - return $14566; + return $15832; })); - return $14565; + return $15831; }; const Kind$Term$expand_at = x0 => x1 => x2 => Kind$Term$expand_at$(x0, x1, x2); @@ -48566,133 +52358,133 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $14576 = self.name; - var $14577 = self.indx; - var $14578 = Kind$Term$var$($14576, $14577); - var $14575 = $14578; + var $15842 = self.name; + var $15843 = self.indx; + var $15844 = Kind$Term$var$($15842, $15843); + var $15841 = $15844; break; case 'Kind.Term.ref': - var $14579 = self.name; - var self = Kind$Map$get$($14579, _defs$2); + var $15845 = self.name; + var self = Kind$Map$get$($15845, _defs$2); switch (self._) { case 'Maybe.some': - var $14581 = self.value; - var self = $14581; + var $15847 = self.value; + var self = $15847; switch (self._) { case 'Kind.Def.new': - var $14583 = self.term; - var $14584 = self.isct; - var $14585 = self.arit; - var self = ($14584 && (_arity$3 > $14585)); + var $15849 = self.term; + var $15850 = self.isct; + var $15851 = self.arit; + var self = ($15850 && (_arity$3 > $15851)); if (self) { - var $14587 = $14583; - var $14586 = $14587; + var $15853 = $15849; + var $15852 = $15853; } else { - var $14588 = Kind$Term$ref$($14579); - var $14586 = $14588; + var $15854 = Kind$Term$ref$($15845); + var $15852 = $15854; }; - var $14582 = $14586; + var $15848 = $15852; break; }; - var $14580 = $14582; + var $15846 = $15848; break; case 'Maybe.none': - var $14589 = Kind$Term$ref$($14579); - var $14580 = $14589; + var $15855 = Kind$Term$ref$($15845); + var $15846 = $15855; break; }; - var $14575 = $14580; + var $15841 = $15846; break; case 'Kind.Term.all': - var $14590 = self.eras; - var $14591 = self.self; - var $14592 = self.name; - var $14593 = self.xtyp; - var $14594 = self.body; - var $14595 = Kind$Term$all$($14590, $14591, $14592, Kind$Term$expand_ct$($14593, _defs$2, 0n), (_s$9 => _x$10 => { - var $14596 = Kind$Term$expand_ct$($14594(_s$9)(_x$10), _defs$2, 0n); - return $14596; + var $15856 = self.eras; + var $15857 = self.self; + var $15858 = self.name; + var $15859 = self.xtyp; + var $15860 = self.body; + var $15861 = Kind$Term$all$($15856, $15857, $15858, Kind$Term$expand_ct$($15859, _defs$2, 0n), (_s$9 => _x$10 => { + var $15862 = Kind$Term$expand_ct$($15860(_s$9)(_x$10), _defs$2, 0n); + return $15862; })); - var $14575 = $14595; + var $15841 = $15861; break; case 'Kind.Term.lam': - var $14597 = self.name; - var $14598 = self.body; - var $14599 = Kind$Term$lam$($14597, (_x$6 => { - var $14600 = Kind$Term$expand_ct$($14598(_x$6), _defs$2, 0n); - return $14600; + var $15863 = self.name; + var $15864 = self.body; + var $15865 = Kind$Term$lam$($15863, (_x$6 => { + var $15866 = Kind$Term$expand_ct$($15864(_x$6), _defs$2, 0n); + return $15866; })); - var $14575 = $14599; + var $15841 = $15865; break; case 'Kind.Term.app': - var $14601 = self.func; - var $14602 = self.argm; - var $14603 = Kind$Term$app$(Kind$Term$expand_ct$($14601, _defs$2, Nat$succ$(_arity$3)), Kind$Term$expand_ct$($14602, _defs$2, 0n)); - var $14575 = $14603; + var $15867 = self.func; + var $15868 = self.argm; + var $15869 = Kind$Term$app$(Kind$Term$expand_ct$($15867, _defs$2, Nat$succ$(_arity$3)), Kind$Term$expand_ct$($15868, _defs$2, 0n)); + var $15841 = $15869; break; case 'Kind.Term.let': - var $14604 = self.name; - var $14605 = self.expr; - var $14606 = self.body; - var $14607 = Kind$Term$let$($14604, Kind$Term$expand_ct$($14605, _defs$2, 0n), (_x$7 => { - var $14608 = Kind$Term$expand_ct$($14606(_x$7), _defs$2, 0n); - return $14608; + var $15870 = self.name; + var $15871 = self.expr; + var $15872 = self.body; + var $15873 = Kind$Term$let$($15870, Kind$Term$expand_ct$($15871, _defs$2, 0n), (_x$7 => { + var $15874 = Kind$Term$expand_ct$($15872(_x$7), _defs$2, 0n); + return $15874; })); - var $14575 = $14607; + var $15841 = $15873; break; case 'Kind.Term.def': - var $14609 = self.name; - var $14610 = self.expr; - var $14611 = self.body; - var $14612 = Kind$Term$def$($14609, Kind$Term$expand_ct$($14610, _defs$2, 0n), (_x$7 => { - var $14613 = Kind$Term$expand_ct$($14611(_x$7), _defs$2, 0n); - return $14613; + var $15875 = self.name; + var $15876 = self.expr; + var $15877 = self.body; + var $15878 = Kind$Term$def$($15875, Kind$Term$expand_ct$($15876, _defs$2, 0n), (_x$7 => { + var $15879 = Kind$Term$expand_ct$($15877(_x$7), _defs$2, 0n); + return $15879; })); - var $14575 = $14612; + var $15841 = $15878; break; case 'Kind.Term.ann': - var $14614 = self.done; - var $14615 = self.term; - var $14616 = self.type; - var $14617 = Kind$Term$ann$($14614, Kind$Term$expand_ct$($14615, _defs$2, 0n), Kind$Term$expand_ct$($14616, _defs$2, 0n)); - var $14575 = $14617; + var $15880 = self.done; + var $15881 = self.term; + var $15882 = self.type; + var $15883 = Kind$Term$ann$($15880, Kind$Term$expand_ct$($15881, _defs$2, 0n), Kind$Term$expand_ct$($15882, _defs$2, 0n)); + var $15841 = $15883; break; case 'Kind.Term.gol': - var $14618 = self.name; - var $14619 = self.dref; - var $14620 = self.verb; - var $14621 = Kind$Term$gol$($14618, $14619, $14620); - var $14575 = $14621; + var $15884 = self.name; + var $15885 = self.dref; + var $15886 = self.verb; + var $15887 = Kind$Term$gol$($15884, $15885, $15886); + var $15841 = $15887; break; case 'Kind.Term.hol': - var $14622 = self.path; - var $14623 = Kind$Term$hol$($14622); - var $14575 = $14623; + var $15888 = self.path; + var $15889 = Kind$Term$hol$($15888); + var $15841 = $15889; break; case 'Kind.Term.nat': - var $14624 = self.natx; - var $14625 = Kind$Term$nat$($14624); - var $14575 = $14625; + var $15890 = self.natx; + var $15891 = Kind$Term$nat$($15890); + var $15841 = $15891; break; case 'Kind.Term.chr': - var $14626 = self.chrx; - var $14627 = Kind$Term$chr$($14626); - var $14575 = $14627; + var $15892 = self.chrx; + var $15893 = Kind$Term$chr$($15892); + var $15841 = $15893; break; case 'Kind.Term.str': - var $14628 = self.strx; - var $14629 = Kind$Term$str$($14628); - var $14575 = $14629; + var $15894 = self.strx; + var $15895 = Kind$Term$str$($15894); + var $15841 = $15895; break; case 'Kind.Term.ori': - var $14630 = self.orig; - var $14631 = self.expr; - var $14632 = Kind$Term$ori$($14630, $14631); - var $14575 = $14632; + var $15896 = self.orig; + var $15897 = self.expr; + var $15898 = Kind$Term$ori$($15896, $15897); + var $15841 = $15898; break; case 'Kind.Term.typ': - var $14633 = Kind$Term$typ; - var $14575 = $14633; + var $15899 = Kind$Term$typ; + var $15841 = $15899; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -48700,35 +52492,35 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $14634 = _term$1; - var $14575 = $14634; + var $15900 = _term$1; + var $15841 = $15900; break; }; - return $14575; + return $15841; }; const Kind$Term$expand_ct = x0 => x1 => x2 => Kind$Term$expand_ct$(x0, x1, x2); function Kind$Term$expand$(_dref$1, _term$2, _defs$3) { var _term$4 = Kind$Term$normalize$(_term$2, Kind$Map$new); var _term$5 = (() => { - var $14637 = _term$4; - var $14638 = _dref$1; - let _term$6 = $14637; + var $15903 = _term$4; + var $15904 = _dref$1; + let _term$6 = $15903; let _path$5; - while ($14638._ === 'List.cons') { - _path$5 = $14638.head; + while ($15904._ === 'List.cons') { + _path$5 = $15904.head; var _term$7 = Kind$Term$expand_at$(_path$5, _term$6, _defs$3); var _term$8 = Kind$Term$normalize$(_term$7, Kind$Map$new); var _term$9 = Kind$Term$expand_ct$(_term$8, _defs$3, 0n); var _term$10 = Kind$Term$normalize$(_term$9, Kind$Map$new); - var $14637 = _term$10; - _term$6 = $14637; - $14638 = $14638.tail; + var $15903 = _term$10; + _term$6 = $15903; + $15904 = $15904.tail; } return _term$6; })(); - var $14635 = _term$5; - return $14635; + var $15901 = _term$5; + return $15901; }; const Kind$Term$expand = x0 => x1 => x2 => Kind$Term$expand$(x0, x1, x2); @@ -48736,124 +52528,124 @@ module.exports = (function() { var self = _error$1; switch (self._) { case 'Kind.Error.type_mismatch': - var $14640 = self.expected; - var $14641 = self.detected; - var $14642 = self.context; - var self = $14640; + var $15906 = self.expected; + var $15907 = self.detected; + var $15908 = self.context; + var self = $15906; switch (self._) { case 'Either.left': - var $14644 = self.value; - var $14645 = $14644; - var _expected$7 = $14645; + var $15910 = self.value; + var $15911 = $15910; + var _expected$7 = $15911; break; case 'Either.right': - var $14646 = self.value; - var $14647 = Kind$Term$show$(Kind$Term$normalize$($14646, BitsMap$new)); - var _expected$7 = $14647; + var $15912 = self.value; + var $15913 = Kind$Term$show$(Kind$Term$normalize$($15912, BitsMap$new)); + var _expected$7 = $15913; break; }; - var self = $14641; + var self = $15907; switch (self._) { case 'Either.left': - var $14648 = self.value; - var $14649 = $14648; - var _detected$8 = $14649; + var $15914 = self.value; + var $15915 = $15914; + var _detected$8 = $15915; break; case 'Either.right': - var $14650 = self.value; - var $14651 = Kind$Term$show$(Kind$Term$normalize$($14650, BitsMap$new)); - var _detected$8 = $14651; + var $15916 = self.value; + var $15917 = Kind$Term$show$(Kind$Term$normalize$($15916, BitsMap$new)); + var _detected$8 = $15917; break; }; - var $14643 = ("Type mismatch.\u{a}" + ("- Expected: " + (_expected$7 + ("\u{a}" + ("- Detected: " + (_detected$8 + ("\u{a}" + (() => { - var self = $14642; + var $15909 = ("Type mismatch.\u{a}" + ("- Expected: " + (_expected$7 + ("\u{a}" + ("- Detected: " + (_detected$8 + ("\u{a}" + (() => { + var self = $15908; switch (self._) { case 'List.nil': - var $14652 = ""; - return $14652; + var $15918 = ""; + return $15918; case 'List.cons': - var $14653 = ("With context:\u{a}" + Kind$Context$show$($14642)); - return $14653; + var $15919 = ("With context:\u{a}" + Kind$Context$show$($15908)); + return $15919; }; })()))))))); - var $14639 = $14643; + var $15905 = $15909; break; case 'Kind.Error.show_goal': - var $14654 = self.name; - var $14655 = self.dref; - var $14656 = self.verb; - var $14657 = self.goal; - var $14658 = self.context; - var _goal_name$8 = ("Goal ?" + (Kind$Name$show$($14654) + ":\u{a}")); - var self = $14657; + var $15920 = self.name; + var $15921 = self.dref; + var $15922 = self.verb; + var $15923 = self.goal; + var $15924 = self.context; + var _goal_name$8 = ("Goal ?" + (Kind$Name$show$($15920) + ":\u{a}")); + var self = $15923; switch (self._) { case 'Maybe.some': - var $14660 = self.value; - var _goal$10 = Kind$Term$expand$($14655, $14660, _defs$2); - var $14661 = ("With type: " + ((() => { - var self = $14656; + var $15926 = self.value; + var _goal$10 = Kind$Term$expand$($15921, $15926, _defs$2); + var $15927 = ("With type: " + ((() => { + var self = $15922; if (self) { - var $14662 = Kind$Term$show$go$(_goal$10, Maybe$some$((_x$11 => { - var $14663 = _x$11; - return $14663; + var $15928 = Kind$Term$show$go$(_goal$10, Maybe$some$((_x$11 => { + var $15929 = _x$11; + return $15929; }))); - return $14662; + return $15928; } else { - var $14664 = Kind$Term$show$(_goal$10); - return $14664; + var $15930 = Kind$Term$show$(_goal$10); + return $15930; }; })() + "\u{a}")); - var _with_type$9 = $14661; + var _with_type$9 = $15927; break; case 'Maybe.none': - var $14665 = ""; - var _with_type$9 = $14665; + var $15931 = ""; + var _with_type$9 = $15931; break; }; - var self = $14658; + var self = $15924; switch (self._) { case 'List.nil': - var $14666 = ""; - var _with_ctxt$10 = $14666; + var $15932 = ""; + var _with_ctxt$10 = $15932; break; case 'List.cons': - var $14667 = ("With context:\u{a}" + Kind$Context$show$($14658)); - var _with_ctxt$10 = $14667; + var $15933 = ("With context:\u{a}" + Kind$Context$show$($15924)); + var _with_ctxt$10 = $15933; break; }; - var $14659 = String$flatten$(List$cons$(_goal_name$8, List$cons$(_with_type$9, List$cons$(_with_ctxt$10, List$nil)))); - var $14639 = $14659; + var $15925 = String$flatten$(List$cons$(_goal_name$8, List$cons$(_with_type$9, List$cons$(_with_ctxt$10, List$nil)))); + var $15905 = $15925; break; case 'Kind.Error.waiting': - var $14668 = self.name; - var $14669 = ("Waiting for \'" + ($14668 + "\'.")); - var $14639 = $14669; + var $15934 = self.name; + var $15935 = ("Waiting for \'" + ($15934 + "\'.")); + var $15905 = $15935; break; case 'Kind.Error.indirect': - var $14670 = self.name; - var $14671 = ("Error on dependency \'" + ($14670 + "\'.")); - var $14639 = $14671; + var $15936 = self.name; + var $15937 = ("Error on dependency \'" + ($15936 + "\'.")); + var $15905 = $15937; break; case 'Kind.Error.patch': - var $14672 = self.term; - var $14673 = ("Patching: " + Kind$Term$show$($14672)); - var $14639 = $14673; + var $15938 = self.term; + var $15939 = ("Patching: " + Kind$Term$show$($15938)); + var $15905 = $15939; break; case 'Kind.Error.undefined_reference': - var $14674 = self.name; - var $14675 = ("Undefined reference: " + (Kind$Name$show$($14674) + "\u{a}")); - var $14639 = $14675; + var $15940 = self.name; + var $15941 = ("Undefined reference: " + (Kind$Name$show$($15940) + "\u{a}")); + var $15905 = $15941; break; case 'Kind.Error.cant_infer': - var $14676 = self.term; - var $14677 = self.context; - var _term$6 = Kind$Term$show$($14676); - var _context$7 = Kind$Context$show$($14677); - var $14678 = ("Can\'t infer type of: " + (_term$6 + ("\u{a}" + ("With context:\u{a}" + _context$7)))); - var $14639 = $14678; + var $15942 = self.term; + var $15943 = self.context; + var _term$6 = Kind$Term$show$($15942); + var _context$7 = Kind$Context$show$($15943); + var $15944 = ("Can\'t infer type of: " + (_term$6 + ("\u{a}" + ("With context:\u{a}" + _context$7)))); + var $15905 = $15944; break; }; - return $14639; + return $15905; }; const Kind$Error$show = x0 => x1 => Kind$Error$show$(x0, x1); @@ -48861,133 +52653,133 @@ module.exports = (function() { var self = _error$1; switch (self._) { case 'Kind.Error.type_mismatch': - var $14680 = self.origin; - var $14681 = $14680; - var $14679 = $14681; + var $15946 = self.origin; + var $15947 = $15946; + var $15945 = $15947; break; case 'Kind.Error.undefined_reference': - var $14682 = self.origin; - var $14683 = $14682; - var $14679 = $14683; + var $15948 = self.origin; + var $15949 = $15948; + var $15945 = $15949; break; case 'Kind.Error.cant_infer': - var $14684 = self.origin; - var $14685 = $14684; - var $14679 = $14685; + var $15950 = self.origin; + var $15951 = $15950; + var $15945 = $15951; break; case 'Kind.Error.show_goal': case 'Kind.Error.waiting': case 'Kind.Error.indirect': case 'Kind.Error.patch': - var $14686 = Maybe$none; - var $14679 = $14686; + var $15952 = Maybe$none; + var $15945 = $15952; break; }; - return $14679; + return $15945; }; const Kind$Error$origin = x0 => Kind$Error$origin$(x0); function Kind$Defs$report$errors$(_defs$1) { var _errors$2 = ""; var _errors$3 = (() => { - var $14689 = _errors$2; - var $14690 = BitsMap$keys$(_defs$1); - let _errors$4 = $14689; + var $15955 = _errors$2; + var $15956 = BitsMap$keys$(_defs$1); + let _errors$4 = $15955; let _key$3; - while ($14690._ === 'List.cons') { - _key$3 = $14690.head; + while ($15956._ === 'List.cons') { + _key$3 = $15956.head; var _name$5 = Kind$Name$from_bits$(_key$3); var _defn$6 = Kind$Map$get$(_name$5, _defs$1); var self = _defn$6; switch (self._) { case 'Maybe.some': - var $14691 = self.value; - var self = $14691; + var $15957 = self.value; + var self = $15957; switch (self._) { case 'Kind.Def.new': - var $14693 = self.file; - var $14694 = self.code; - var $14695 = self.name; - var $14696 = self.stat; - var self = $14696; + var $15959 = self.file; + var $15960 = self.code; + var $15961 = self.name; + var $15962 = self.stat; + var self = $15962; switch (self._) { case 'Kind.Status.fail': - var $14698 = self.errors; - var self = $14698; + var $15964 = self.errors; + var self = $15964; switch (self._) { case 'List.nil': - var $14700 = _errors$4; - var $14699 = $14700; + var $15966 = _errors$4; + var $15965 = $15966; break; case 'List.cons': - var _name_str$20 = $14695; - var _rel_errs$21 = Kind$Error$relevant$($14698); + var _name_str$20 = $15961; + var _rel_errs$21 = Kind$Error$relevant$($15964); var _errors$22 = (() => { - var $14703 = _errors$4; - var $14704 = _rel_errs$21; - let _errors$23 = $14703; + var $15969 = _errors$4; + var $15970 = _rel_errs$21; + let _errors$23 = $15969; let _err$22; - while ($14704._ === 'List.cons') { - _err$22 = $14704.head; + while ($15970._ === 'List.cons') { + _err$22 = $15970.head; var _err_msg$24 = Kind$Error$show$(_err$22, _defs$1); var _ori_val$25 = Kind$Error$origin$(_err$22); var self = _ori_val$25; switch (self._) { case 'Maybe.some': - var $14705 = self.value; - var self = $14705; + var $15971 = self.value; + var self = $15971; switch (self._) { case 'Pair.new': - var $14707 = self.fst; - var $14708 = self.snd; - var _inside$29 = ("Inside \'" + ($14693 + "\':\u{a}")); - var _source$30 = Kind$Code$highlight$($14694, $14707, $14707, $14708); - var $14709 = (_errors$23 + (_err_msg$24 + (_inside$29 + (_source$30 + ("\u{a}" + "\u{a}"))))); - var $14706 = $14709; + var $15973 = self.fst; + var $15974 = self.snd; + var _inside$29 = ("Inside \'" + ($15959 + "\':\u{a}")); + var _source$30 = Kind$Code$highlight$($15960, $15973, $15973, $15974); + var $15975 = (_errors$23 + (_err_msg$24 + (_inside$29 + (_source$30 + ("\u{a}" + "\u{a}"))))); + var $15972 = $15975; break; }; - var $14703 = $14706; + var $15969 = $15972; break; case 'Maybe.none': - var $14710 = (_errors$23 + (_err_msg$24 + "\u{a}")); - var $14703 = $14710; + var $15976 = (_errors$23 + (_err_msg$24 + "\u{a}")); + var $15969 = $15976; break; }; - _errors$23 = $14703; - $14704 = $14704.tail; + _errors$23 = $15969; + $15970 = $15970.tail; } return _errors$23; })(); - var $14701 = _errors$22; - var $14699 = $14701; + var $15967 = _errors$22; + var $15965 = $15967; break; }; - var $14697 = $14699; + var $15963 = $15965; break; case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.done': - var $14711 = _errors$4; - var $14697 = $14711; + var $15977 = _errors$4; + var $15963 = $15977; break; }; - var $14692 = $14697; + var $15958 = $15963; break; }; - var $14689 = $14692; + var $15955 = $15958; break; case 'Maybe.none': - var $14712 = _errors$4; - var $14689 = $14712; + var $15978 = _errors$4; + var $15955 = $15978; break; }; - _errors$4 = $14689; - $14690 = $14690.tail; + _errors$4 = $15955; + $15956 = $15956.tail; } return _errors$4; })(); - var $14687 = _errors$3; - return $14687; + var $15953 = _errors$3; + return $15953; }; const Kind$Defs$report$errors = x0 => Kind$Defs$report$errors$(x0); @@ -48996,44 +52788,44 @@ module.exports = (function() { var _errors$4 = Kind$Defs$report$errors$(_defs$1); var self = _errors$4; if (self.length === 0) { - var $14714 = "All terms check."; - var _errors$5 = $14714; + var $15980 = "All terms check."; + var _errors$5 = $15980; } else { - var $14715 = self.charCodeAt(0); - var $14716 = self.slice(1); - var $14717 = _errors$4; - var _errors$5 = $14717; + var $15981 = self.charCodeAt(0); + var $15982 = self.slice(1); + var $15983 = _errors$4; + var _errors$5 = $15983; }; - var $14713 = (_types$3 + ("\u{a}" + _errors$5)); - return $14713; + var $15979 = (_types$3 + ("\u{a}" + _errors$5)); + return $15979; }; const Kind$Defs$report = x0 => x1 => Kind$Defs$report$(x0, x1); function IO$set_file$(_name$1, _content$2) { - var $14718 = IO$ask$("set_file", (_name$1 + ("=" + _content$2)), (_ok$3 => { - var $14719 = IO$end$(Unit$new); - return $14719; + var $15984 = IO$ask$("set_file", (_name$1 + ("=" + _content$2)), (_ok$3 => { + var $15985 = IO$end$(Unit$new); + return $15985; })); - return $14718; + return $15984; }; const IO$set_file = x0 => x1 => IO$set_file$(x0, x1); function Kind$Synth$load$cached$set_file$(_name$1, _value$2) { - var $14720 = IO$set_file$(Kind$Synth$load$cached$name$(_name$1), _value$2); - return $14720; + var $15986 = IO$set_file$(Kind$Synth$load$cached$name$(_name$1), _value$2); + return $15986; }; const Kind$Synth$load$cached$set_file = x0 => x1 => Kind$Synth$load$cached$set_file$(x0, x1); function Bool$show$(_b$1) { var self = _b$1; if (self) { - var $14722 = "Bool.true"; - var $14721 = $14722; + var $15988 = "Bool.true"; + var $15987 = $15988; } else { - var $14723 = "Bool.false"; - var $14721 = $14723; + var $15989 = "Bool.false"; + var $15987 = $15989; }; - return $14721; + return $15987; }; const Bool$show = x0 => Bool$show$(x0); @@ -49041,156 +52833,156 @@ module.exports = (function() { var self = _kvs$1; switch (self._) { case 'List.cons': - var $14725 = self.head; - var $14726 = self.tail; - var self = $14725; + var $15991 = self.head; + var $15992 = self.tail; + var self = $15991; switch (self._) { case 'Pair.new': - var $14728 = self.fst; - var $14729 = self.snd; - var self = $14729; + var $15994 = self.fst; + var $15995 = self.snd; + var self = $15995; switch (self._) { case 'Kind.Def.new': - var $14731 = self.file; - var $14732 = self.term; - var $14733 = self.type; - var $14734 = self.isct; - var $14735 = self.arit; - var $14736 = self.stat; - var self = $14736; + var $15997 = self.file; + var $15998 = self.term; + var $15999 = self.type; + var $16000 = self.isct; + var $16001 = self.arit; + var $16002 = self.stat; + var self = $16002; switch (self._) { case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.fail': - var $14738 = Kind$Defs$cache$go$($14726); - var $14737 = $14738; + var $16004 = Kind$Defs$cache$go$($15992); + var $16003 = $16004; break; case 'Kind.Status.done': - var $14739 = IO$monad$((_m$bind$16 => _m$pure$17 => { - var $14740 = _m$bind$16; - return $14740; - }))(IO$get_file_mtime$($14731))((_time$16 => { - var $14741 = IO$monad$((_m$bind$17 => _m$pure$18 => { - var $14742 = _m$bind$17; - return $14742; - }))(Kind$Synth$load$cached$set_file$(($14728 + ".term"), Kind$Core$show$($14732)))((_$17 => { - var $14743 = IO$monad$((_m$bind$18 => _m$pure$19 => { - var $14744 = _m$bind$18; - return $14744; - }))(Kind$Synth$load$cached$set_file$(($14728 + ".type"), Kind$Core$show$($14733)))((_$18 => { - var $14745 = IO$monad$((_m$bind$19 => _m$pure$20 => { - var $14746 = _m$bind$19; - return $14746; - }))(Kind$Synth$load$cached$set_file$(($14728 + ".isct"), Bool$show$($14734)))((_$19 => { - var $14747 = IO$monad$((_m$bind$20 => _m$pure$21 => { - var $14748 = _m$bind$20; - return $14748; - }))(Kind$Synth$load$cached$set_file$(($14728 + ".arit"), Nat$show$($14735)))((_$20 => { - var $14749 = IO$monad$((_m$bind$21 => _m$pure$22 => { - var $14750 = _m$bind$21; - return $14750; - }))(Kind$Synth$load$cached$set_file$(($14728 + ".file"), $14731))((_$21 => { - var $14751 = IO$monad$((_m$bind$22 => _m$pure$23 => { - var $14752 = _m$bind$22; - return $14752; - }))(Kind$Synth$load$cached$set_file$(($14728 + ".time"), _time$16))((_$22 => { - var $14753 = Kind$Defs$cache$go$($14726); - return $14753; + var $16005 = IO$monad$((_m$bind$16 => _m$pure$17 => { + var $16006 = _m$bind$16; + return $16006; + }))(IO$get_file_mtime$($15997))((_time$16 => { + var $16007 = IO$monad$((_m$bind$17 => _m$pure$18 => { + var $16008 = _m$bind$17; + return $16008; + }))(Kind$Synth$load$cached$set_file$(($15994 + ".term"), Kind$Core$show$($15998)))((_$17 => { + var $16009 = IO$monad$((_m$bind$18 => _m$pure$19 => { + var $16010 = _m$bind$18; + return $16010; + }))(Kind$Synth$load$cached$set_file$(($15994 + ".type"), Kind$Core$show$($15999)))((_$18 => { + var $16011 = IO$monad$((_m$bind$19 => _m$pure$20 => { + var $16012 = _m$bind$19; + return $16012; + }))(Kind$Synth$load$cached$set_file$(($15994 + ".isct"), Bool$show$($16000)))((_$19 => { + var $16013 = IO$monad$((_m$bind$20 => _m$pure$21 => { + var $16014 = _m$bind$20; + return $16014; + }))(Kind$Synth$load$cached$set_file$(($15994 + ".arit"), Nat$show$($16001)))((_$20 => { + var $16015 = IO$monad$((_m$bind$21 => _m$pure$22 => { + var $16016 = _m$bind$21; + return $16016; + }))(Kind$Synth$load$cached$set_file$(($15994 + ".file"), $15997))((_$21 => { + var $16017 = IO$monad$((_m$bind$22 => _m$pure$23 => { + var $16018 = _m$bind$22; + return $16018; + }))(Kind$Synth$load$cached$set_file$(($15994 + ".time"), _time$16))((_$22 => { + var $16019 = Kind$Defs$cache$go$($15992); + return $16019; })); - return $14751; + return $16017; })); - return $14749; + return $16015; })); - return $14747; + return $16013; })); - return $14745; + return $16011; })); - return $14743; + return $16009; })); - return $14741; + return $16007; })); - var $14737 = $14739; + var $16003 = $16005; break; }; - var $14730 = $14737; + var $15996 = $16003; break; }; - var $14727 = $14730; + var $15993 = $15996; break; }; - var $14724 = $14727; + var $15990 = $15993; break; case 'List.nil': - var $14754 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $14755 = _m$pure$3; - return $14755; + var $16020 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $16021 = _m$pure$3; + return $16021; }))(Unit$new); - var $14724 = $14754; + var $15990 = $16020; break; }; - return $14724; + return $15990; }; const Kind$Defs$cache$go = x0 => Kind$Defs$cache$go$(x0); function Kind$Defs$cache$(_defs$1) { - var $14756 = Kind$Defs$cache$go$(Kind$Map$to_list$(_defs$1)); - return $14756; + var $16022 = Kind$Defs$cache$go$(Kind$Map$to_list$(_defs$1)); + return $16022; }; const Kind$Defs$cache = x0 => Kind$Defs$cache$(x0); function Kind$api$io$check_file$(_file$1) { - var $14757 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $14758 = _m$bind$2; - return $14758; + var $16023 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $16024 = _m$bind$2; + return $16024; }))(Kind$Synth$file$(_file$1, Kind$Map$new))((_loaded$2 => { var self = _loaded$2; switch (self._) { case 'Either.left': - var $14760 = self.value; - var $14761 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $14762 = _m$bind$4; - return $14762; + var $16026 = self.value; + var $16027 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $16028 = _m$bind$4; + return $16028; }))(IO$print$(String$flatten$(List$cons$("On \'", List$cons$(_file$1, List$cons$("\':", List$nil))))))((_$4 => { - var $14763 = IO$print$($14760); - return $14763; + var $16029 = IO$print$($16026); + return $16029; })); - var $14759 = $14761; + var $16025 = $16027; break; case 'Either.right': - var $14764 = self.value; - var self = $14764; + var $16030 = self.value; + var self = $16030; switch (self._) { case 'Pair.new': - var $14766 = self.fst; - var $14767 = self.snd; - var _nams$6 = $14766; - var _defs$7 = $14767; + var $16032 = self.fst; + var $16033 = self.snd; + var _nams$6 = $16032; + var _defs$7 = $16033; var self = _nams$6; switch (self._) { case 'List.nil': - var $14769 = IO$print$(("File not found or empty: \'" + (_file$1 + "\'."))); - var $14768 = $14769; + var $16035 = IO$print$(("File not found or empty: \'" + (_file$1 + "\'."))); + var $16034 = $16035; break; case 'List.cons': - var $14770 = IO$monad$((_m$bind$10 => _m$pure$11 => { - var $14771 = _m$bind$10; - return $14771; + var $16036 = IO$monad$((_m$bind$10 => _m$pure$11 => { + var $16037 = _m$bind$10; + return $16037; }))(IO$print$(Kind$Defs$report$(_defs$7, _nams$6)))((_$10 => { - var $14772 = Kind$Defs$cache$(_defs$7); - return $14772; + var $16038 = Kind$Defs$cache$(_defs$7); + return $16038; })); - var $14768 = $14770; + var $16034 = $16036; break; }; - var $14765 = $14768; + var $16031 = $16034; break; }; - var $14759 = $14765; + var $16025 = $16031; break; }; - return $14759; + return $16025; })); - return $14757; + return $16023; }; const Kind$api$io$check_file = x0 => Kind$api$io$check_file$(x0); @@ -49198,243 +52990,243 @@ module.exports = (function() { var self = _files$1; switch (self._) { case 'List.cons': - var $14774 = self.head; - var $14775 = self.tail; - var $14776 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $14777 = _m$bind$5; - return $14777; - }))(Kind$Synth$file$($14774, _defs$2))((_file_synth$5 => { + var $16040 = self.head; + var $16041 = self.tail; + var $16042 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $16043 = _m$bind$5; + return $16043; + }))(Kind$Synth$file$($16040, _defs$2))((_file_synth$5 => { var self = _file_synth$5; switch (self._) { case 'Either.right': - var $14779 = self.value; - var _nams$7 = Pair$fst$($14779); - var _defs$8 = Pair$snd$($14779); - var $14780 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $14781 = _m$bind$9; - return $14781; - }))(Kind$Synth$files$go$($14775, _defs$8))((_rest$9 => { + var $16045 = self.value; + var _nams$7 = Pair$fst$($16045); + var _defs$8 = Pair$snd$($16045); + var $16046 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $16047 = _m$bind$9; + return $16047; + }))(Kind$Synth$files$go$($16041, _defs$8))((_rest$9 => { var _nams$10 = List$concat$(_nams$7, Pair$fst$(_rest$9)); var _defs$11 = Pair$snd$(_rest$9); - var $14782 = IO$monad$((_m$bind$12 => _m$pure$13 => { - var $14783 = _m$pure$13; - return $14783; + var $16048 = IO$monad$((_m$bind$12 => _m$pure$13 => { + var $16049 = _m$pure$13; + return $16049; }))(Pair$new$(_nams$10, _defs$11)); - return $14782; + return $16048; })); - var $14778 = $14780; + var $16044 = $16046; break; case 'Either.left': - var $14784 = Kind$Synth$files$go$($14775, _defs$2); - var $14778 = $14784; + var $16050 = Kind$Synth$files$go$($16041, _defs$2); + var $16044 = $16050; break; }; - return $14778; + return $16044; })); - var $14773 = $14776; + var $16039 = $16042; break; case 'List.nil': - var $14785 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $14786 = _m$pure$4; - return $14786; + var $16051 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $16052 = _m$pure$4; + return $16052; }))(Pair$new$(List$nil, _defs$2)); - var $14773 = $14785; + var $16039 = $16051; break; }; - return $14773; + return $16039; }; const Kind$Synth$files$go = x0 => x1 => Kind$Synth$files$go$(x0, x1); function Kind$Synth$remove_duplicate_names$(_names$1) { var _map$2 = List$fold$(_names$1, Kind$Map$new, (_name$2 => { - var $14788 = Kind$Map$set(_name$2)(Unit$new); - return $14788; + var $16054 = Kind$Map$set(_name$2)(Unit$new); + return $16054; })); - var $14787 = List$mapped$(BitsMap$keys$(_map$2), Kind$Name$from_bits); - return $14787; + var $16053 = List$mapped$(BitsMap$keys$(_map$2), Kind$Name$from_bits); + return $16053; }; const Kind$Synth$remove_duplicate_names = x0 => Kind$Synth$remove_duplicate_names$(x0); function Kind$Synth$files$(_files$1, _defs$2) { - var $14789 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $14790 = _m$bind$3; - return $14790; + var $16055 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $16056 = _m$bind$3; + return $16056; }))(Kind$Synth$files$go$(_files$1, _defs$2))((_got$3 => { var _nams$4 = Kind$Synth$remove_duplicate_names$(Pair$fst$(_got$3)); var _defs$5 = Pair$snd$(_got$3); - var $14791 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $14792 = _m$pure$7; - return $14792; + var $16057 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $16058 = _m$pure$7; + return $16058; }))(Pair$new$(_nams$4, _defs$5)); - return $14791; + return $16057; })); - return $14789; + return $16055; }; const Kind$Synth$files = x0 => x1 => Kind$Synth$files$(x0, x1); function Kind$api$io$check_files$(_files$1) { - var $14793 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $14794 = _m$bind$2; - return $14794; + var $16059 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $16060 = _m$bind$2; + return $16060; }))(Kind$Synth$files$(_files$1, Kind$Map$new))((_loaded$2 => { var _nams$3 = Pair$fst$(_loaded$2); var _defs$4 = Pair$snd$(_loaded$2); var self = _nams$3; switch (self._) { case 'List.nil': - var $14796 = IO$print$("No valid Kind file found."); - var $14795 = $14796; + var $16062 = IO$print$("No valid Kind file found."); + var $16061 = $16062; break; case 'List.cons': - var $14797 = IO$monad$((_m$bind$7 => _m$pure$8 => { - var $14798 = _m$bind$7; - return $14798; + var $16063 = IO$monad$((_m$bind$7 => _m$pure$8 => { + var $16064 = _m$bind$7; + return $16064; }))(IO$print$(Kind$Defs$report$(_defs$4, _nams$3)))((_$7 => { - var $14799 = Kind$Defs$cache$(_defs$4); - return $14799; + var $16065 = Kind$Defs$cache$(_defs$4); + return $16065; })); - var $14795 = $14797; + var $16061 = $16063; break; }; - return $14795; + return $16061; })); - return $14793; + return $16059; }; const Kind$api$io$check_files = x0 => Kind$api$io$check_files$(x0); function Kind$api$io$check_term$(_name$1) { - var $14800 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $14801 = _m$bind$2; - return $14801; + var $16066 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $16067 = _m$bind$2; + return $16067; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_defs$2 => { var self = _defs$2; switch (self._) { case 'Maybe.some': - var $14803 = self.value; - var $14804 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $14805 = _m$bind$4; - return $14805; - }))(IO$print$(Kind$Defs$report$($14803, List$cons$(_name$1, List$nil))))((_$4 => { - var $14806 = Kind$Defs$cache$($14803); - return $14806; + var $16069 = self.value; + var $16070 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $16071 = _m$bind$4; + return $16071; + }))(IO$print$(Kind$Defs$report$($16069, List$cons$(_name$1, List$nil))))((_$4 => { + var $16072 = Kind$Defs$cache$($16069); + return $16072; })); - var $14802 = $14804; + var $16068 = $16070; break; case 'Maybe.none': var _notfound$3 = ("Term not found: \'" + (_name$1 + "\'.")); var _filelist$4 = List$mapped$(Kind$Synth$files_of$(_name$1), (_x$4 => { - var $14808 = ("\'" + (_x$4 + "\'")); - return $14808; + var $16074 = ("\'" + (_x$4 + "\'")); + return $16074; })); var _searched$5 = ("Searched on: " + (String$join$(", ", _filelist$4) + ".")); - var $14807 = IO$print$((_notfound$3 + ("\u{a}" + _searched$5))); - var $14802 = $14807; + var $16073 = IO$print$((_notfound$3 + ("\u{a}" + _searched$5))); + var $16068 = $16073; break; }; - return $14802; + return $16068; })); - return $14800; + return $16066; }; const Kind$api$io$check_term = x0 => Kind$api$io$check_term$(x0); function Kind$api$io$show_term$(_name$1) { - var $14809 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $14810 = _m$bind$2; - return $14810; + var $16075 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $16076 = _m$bind$2; + return $16076; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_new_defs$2 => { - var $14811 = IO$print$((() => { + var $16077 = IO$print$((() => { var self = _new_defs$2; switch (self._) { case 'Maybe.some': - var $14812 = self.value; - var _defs$4 = $14812; + var $16078 = self.value; + var _defs$4 = $16078; var _defn$5 = Kind$Map$get$(_name$1, _defs$4); var self = _defn$5; switch (self._) { case 'Maybe.some': - var $14814 = self.value; - var self = $14814; + var $16080 = self.value; + var self = $16080; switch (self._) { case 'Kind.Def.new': - var $14816 = self.term; - var _term$16 = $14816; - var $14817 = Kind$Term$show$(_term$16); - var $14815 = $14817; + var $16082 = self.term; + var _term$16 = $16082; + var $16083 = Kind$Term$show$(_term$16); + var $16081 = $16083; break; }; - var $14813 = $14815; + var $16079 = $16081; break; case 'Maybe.none': - var $14818 = ("Term not found: \'" + (_name$1 + "\'.")); - var $14813 = $14818; + var $16084 = ("Term not found: \'" + (_name$1 + "\'.")); + var $16079 = $16084; break; }; - return $14813; + return $16079; case 'Maybe.none': var _notfound$3 = ("Term not found: \'" + (_name$1 + "\'.")); var _filelist$4 = List$mapped$(Kind$Synth$files_of$(_name$1), (_x$4 => { - var $14820 = ("\'" + (_x$4 + "\'")); - return $14820; + var $16086 = ("\'" + (_x$4 + "\'")); + return $16086; })); var _searched$5 = ("Searched on: " + (String$join$(", ", _filelist$4) + ".")); - var $14819 = (_notfound$3 + ("\u{a}" + _searched$5)); - return $14819; + var $16085 = (_notfound$3 + ("\u{a}" + _searched$5)); + return $16085; }; })()); - return $14811; + return $16077; })); - return $14809; + return $16075; }; const Kind$api$io$show_term = x0 => Kind$api$io$show_term$(x0); function Kind$api$io$show_term_normal$(_name$1) { - var $14821 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $14822 = _m$bind$2; - return $14822; + var $16087 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $16088 = _m$bind$2; + return $16088; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_new_defs$2 => { - var $14823 = IO$print$((() => { + var $16089 = IO$print$((() => { var self = _new_defs$2; switch (self._) { case 'Maybe.some': - var $14824 = self.value; - var _defs$4 = $14824; + var $16090 = self.value; + var _defs$4 = $16090; var _defn$5 = Kind$Map$get$(_name$1, _defs$4); var self = _defn$5; switch (self._) { case 'Maybe.some': - var $14826 = self.value; - var self = $14826; + var $16092 = self.value; + var self = $16092; switch (self._) { case 'Kind.Def.new': - var $14828 = self.term; - var _term$16 = $14828; + var $16094 = self.term; + var _term$16 = $16094; var _norm$17 = Kind$Term$normalize$(_term$16, _defs$4); - var $14829 = Kind$Term$show$(_norm$17); - var $14827 = $14829; + var $16095 = Kind$Term$show$(_norm$17); + var $16093 = $16095; break; }; - var $14825 = $14827; + var $16091 = $16093; break; case 'Maybe.none': - var $14830 = ("Term not found: \'" + (_name$1 + "\'.")); - var $14825 = $14830; + var $16096 = ("Term not found: \'" + (_name$1 + "\'.")); + var $16091 = $16096; break; }; - return $14825; + return $16091; case 'Maybe.none': var _notfound$3 = ("Term not found: \'" + (_name$1 + "\'.")); var _filelist$4 = List$mapped$(Kind$Synth$files_of$(_name$1), (_x$4 => { - var $14832 = ("\'" + (_x$4 + "\'")); - return $14832; + var $16098 = ("\'" + (_x$4 + "\'")); + return $16098; })); var _searched$5 = ("Searched on: " + (String$join$(", ", _filelist$4) + ".")); - var $14831 = (_notfound$3 + ("\u{a}" + _searched$5)); - return $14831; + var $16097 = (_notfound$3 + ("\u{a}" + _searched$5)); + return $16097; }; })()); - return $14823; + return $16089; })); - return $14821; + return $16087; }; const Kind$api$io$show_term_normal = x0 => Kind$api$io$show_term_normal$(x0); @@ -49451,13 +53243,13 @@ module.exports = (function() { var self = _io$2; switch (self._) { case 'IO.end': - var $14833 = self.value; - var $14834 = $14833; - return $14834; + var $16099 = self.value; + var $16100 = $16099; + return $16100; case 'IO.ask': - var $14835 = self.then; - var $14836 = IO$purify$($14835("")); - return $14836; + var $16101 = self.then; + var $16102 = IO$purify$($16101("")); + return $16102; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -49470,31 +53262,31 @@ module.exports = (function() { var self = Kind$Defs$read$("Main.kind", _code$1, Kind$Map$new); switch (self._) { case 'Either.left': - var $14838 = self.value; - var $14839 = $14838; - var $14837 = $14839; + var $16104 = self.value; + var $16105 = $16104; + var $16103 = $16105; break; case 'Either.right': - var $14840 = self.value; - var $14841 = IO$purify$((() => { - var _defs$3 = $14840; + var $16106 = self.value; + var $16107 = IO$purify$((() => { + var _defs$3 = $16106; var _nams$4 = List$mapped$(BitsMap$keys$(_defs$3), Kind$Name$from_bits); - var $14842 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $14843 = _m$bind$5; - return $14843; + var $16108 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $16109 = _m$bind$5; + return $16109; }))(Kind$Synth$many$(_nams$4, _defs$3))((_defs$5 => { - var $14844 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $14845 = _m$pure$7; - return $14845; + var $16110 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $16111 = _m$pure$7; + return $16111; }))(Kind$Defs$report$(_defs$5, _nams$4)); - return $14844; + return $16110; })); - return $14842; + return $16108; })()); - var $14837 = $14841; + var $16103 = $16107; break; }; - return $14837; + return $16103; }; const Kind$api$check_code = x0 => Kind$api$check_code$(x0); @@ -49502,16 +53294,16 @@ module.exports = (function() { var self = Kind$Parser$term(Parser$State$new$(Maybe$none, "", 0n, 0n, _code$1)); switch (self._) { case 'Parser.Reply.value': - var $14847 = self.val; - var $14848 = Maybe$some$($14847); - var $14846 = $14848; + var $16113 = self.val; + var $16114 = Maybe$some$($16113); + var $16112 = $16114; break; case 'Parser.Reply.error': - var $14849 = Maybe$none; - var $14846 = $14849; + var $16115 = Maybe$none; + var $16112 = $16115; break; }; - return $14846; + return $16112; }; const Kind$Term$read = x0 => Kind$Term$read$(x0); const Kind$api$export = (() => { @@ -49525,11 +53317,11 @@ module.exports = (function() { var _e$8 = Kind$api$io$show_term_normal; var _e$9 = Kind$api$check_code; var _e$10 = Kind$Term$read; - var $14850 = IO$monad$((_m$bind$11 => _m$pure$12 => { - var $14851 = _m$pure$12; - return $14851; + var $16116 = IO$monad$((_m$bind$11 => _m$pure$12 => { + var $16117 = _m$pure$12; + return $16117; }))(Unit$new); - return $14850; + return $16116; })(); return { '$main$': () => run(Kind$api$export), @@ -49580,6 +53372,10 @@ module.exports = (function() { 'Parser.Reply.error': Parser$Reply$error, 'Nat.gtn': Nat$gtn, 'Parser.Error.combine': Parser$Error$combine, + 'Unit.new': Unit$new, + 'Debug.log': Debug$log, + 'String.cons': String$cons, + 'String.concat': String$concat, 'Parser.Error.maybe_combine': Parser$Error$maybe_combine, 'Parser.Reply.value': Parser$Reply$value, 'List.nil': List$nil, @@ -49604,8 +53400,6 @@ module.exports = (function() { 'IO.get_time': IO$get_time, 'Kind.Synth.load.cached.is_loop': Kind$Synth$load$cached$is_loop, 'IO.get_file': IO$get_file, - 'String.cons': String$cons, - 'String.concat': String$concat, 'Bits.hex.encode': Bits$hex$encode, 'Kind.Synth.load.cached.name': Kind$Synth$load$cached$name, 'Kind.Synth.load.cached.get_file': Kind$Synth$load$cached$get_file, @@ -49618,7 +53412,6 @@ module.exports = (function() { 'Maybe.bind': Maybe$bind, 'Maybe.monad': Maybe$monad, 'Pair': Pair, - 'Unit.new': Unit$new, 'Bool.or': Bool$or, 'Kind.Core.read.spaces': Kind$Core$read$spaces, 'Kind.Term.ref': Kind$Term$ref, @@ -49741,6 +53534,58 @@ module.exports = (function() { 'Kind.Parser.text_now': Kind$Parser$text_now, 'Kind.Parser.lambda.make': Kind$Parser$lambda$make, 'Kind.Parser.lambda.make.start': Kind$Parser$lambda$make$start, + 'Kind.Parser.lambda.1': Kind$Parser$lambda$1, + 'Kind.Parser.lambda.name_term': Kind$Parser$lambda$name_term, + 'List.unzip': List$unzip, + 'Maybe.mapped': Maybe$mapped, + 'Kind.Term.show.as_nat.go': Kind$Term$show$as_nat$go, + 'Either': Either, + 'Either.left': Either$left, + 'Either.right': Either$right, + 'Nat.sub_rem': Nat$sub_rem, + 'Nat.div_mod.go': Nat$div_mod$go, + 'Nat.div_mod': Nat$div_mod, + 'Nat.to_base.go': Nat$to_base$go, + 'Nat.to_base': Nat$to_base, + 'Nat.mod.go': Nat$mod$go, + 'Nat.mod': Nat$mod, + 'Nat.lte': Nat$lte, + 'List.at': List$at, + 'Nat.show_digit': Nat$show_digit, + 'Nat.to_string_base': Nat$to_string_base, + 'Nat.show': Nat$show, + 'Kind.Term.show.as_nat': Kind$Term$show$as_nat, + 'Kind.Name.show': Kind$Name$show, + 'Bits.concat': Bits$concat, + 'Kind.Path.Builder.to_bits': Kind$Path$Builder$to_bits, + 'Bits.to_nat': Bits$to_nat, + 'String.flatten.go': String$flatten$go, + 'String.flatten': String$flatten, + 'Kind.Code.color': Kind$Code$color, + 'Kind.Path.Builder.o': Kind$Path$Builder$o, + 'Kind.Path.Maybe.Builder.o': Kind$Path$Maybe$Builder$o, + 'Kind.Term.var': Kind$Term$var, + 'Kind.Path.Builder.i': Kind$Path$Builder$i, + 'Kind.Path.Maybe.Builder.i': Kind$Path$Maybe$Builder$i, + 'List.length': List$length, + 'Kind.Term.show.is_ref': Kind$Term$show$is_ref, + 'String.join.go': String$join$go, + 'String.join': String$join, + 'Kind.Term.show.app.done': Kind$Term$show$app$done, + 'Kind.Term.show.app': Kind$Term$show$app, + 'Kind.Code.backslash': Kind$Code$backslash, + 'Word.to_bits': Word$to_bits, + 'U16.show_hex': U16$show_hex, + 'Kind.Code.escape.char': Kind$Code$escape$char, + 'String.reverse.go': String$reverse$go, + 'String.reverse': String$reverse, + 'Kind.Code.escape.go': Kind$Code$escape$go, + 'Kind.Code.escape': Kind$Code$escape, + 'BitsMap.to_list': BitsMap$to_list, + 'Kind.Term.show.go': Kind$Term$show$go, + 'Kind.Term.show': Kind$Term$show, + 'Kind.Parser.lambda.get_type': Kind$Parser$lambda$get_type, + 'Kind.Parser.lambda.2': Kind$Parser$lambda$2, 'Kind.Parser.lambda': Kind$Parser$lambda, 'Kind.Parser.lambda.erased': Kind$Parser$lambda$erased, 'Kind.Parser.parenthesis': Kind$Parser$parenthesis, @@ -49771,12 +53616,9 @@ module.exports = (function() { 'Kind.Parser.use': Kind$Parser$use, 'Kind.Parser.goal_rewrite': Kind$Parser$goal_rewrite, 'Kind.Parser.if': Kind$Parser$if, - 'Kind.Code.backslash': Kind$Code$backslash, 'Kind.Code.escapes': Kind$Code$escapes, 'Kind.Parser.char.single': Kind$Parser$char$single, 'Kind.Parser.char': Kind$Parser$char, - 'String.reverse.go': String$reverse$go, - 'String.reverse': String$reverse, 'Kind.Parser.string.go': Kind$Parser$string$go, 'Kind.Parser.string': Kind$Parser$string, 'Kind.Term.new': Kind$Term$new, @@ -49805,7 +53647,6 @@ module.exports = (function() { 'Nat.sub': Nat$sub, 'String.slice': String$slice, 'Kind.Term.unroll_nat': Kind$Term$unroll_nat, - 'Word.to_bits': Word$to_bits, 'U16.to_bits': U16$to_bits, 'Kind.Term.unroll_chr.bits': Kind$Term$unroll_chr$bits, 'Kind.Term.unroll_chr': Kind$Term$unroll_chr, @@ -49840,21 +53681,6 @@ module.exports = (function() { 'String.from_list': String$from_list, 'Kind.Parser.float.64': Kind$Parser$float$64, 'Kind.Parser.float.32': Kind$Parser$float$32, - 'Either': Either, - 'Either.left': Either$left, - 'Either.right': Either$right, - 'Nat.sub_rem': Nat$sub_rem, - 'Nat.div_mod.go': Nat$div_mod$go, - 'Nat.div_mod': Nat$div_mod, - 'Nat.to_base.go': Nat$to_base$go, - 'Nat.to_base': Nat$to_base, - 'Nat.mod.go': Nat$mod$go, - 'Nat.mod': Nat$mod, - 'Nat.lte': Nat$lte, - 'List.at': List$at, - 'Nat.show_digit': Nat$show_digit, - 'Nat.to_string_base': Nat$to_string_base, - 'Nat.show': Nat$show, 'Kind.Parser.int_pos': Kind$Parser$int_pos, 'Kind.Parser.int_neg': Kind$Parser$int_neg, 'Kind.Parser.machine_integer.signed': Kind$Parser$machine_integer$signed, @@ -49917,17 +53743,12 @@ module.exports = (function() { 'List.concat': List$concat, 'List.flatten': List$flatten, 'Kind.Parser.binder': Kind$Parser$binder, - 'List.length': List$length, 'Kind.Parser.forall.make': Kind$Parser$forall$make, 'List.at_last': List$at_last, - 'Kind.Term.var': Kind$Term$var, 'Kind.Context.get_name_skips': Kind$Context$get_name_skips, 'Kind.Name.eql': Kind$Name$eql, 'Kind.Context.find.go': Kind$Context$find$go, 'Kind.Context.find': Kind$Context$find, - 'Kind.Path.Builder.o': Kind$Path$Builder$o, - 'Kind.Path.Builder.i': Kind$Path$Builder$i, - 'Kind.Path.Builder.to_bits': Kind$Path$Builder$to_bits, 'List.imapped': List$imapped, 'Kind.Path.Builder.nat': Kind$Path$Builder$nat, 'Kind.Term.bind': Kind$Term$bind, @@ -49948,8 +53769,6 @@ module.exports = (function() { 'Kind.Parser.ADT.adt': Kind$Parser$ADT$adt, 'Kind.Parser.ADT.Datatype.build_term.motive.go': Kind$Parser$ADT$Datatype$build_term$motive$go, 'Kind.Parser.ADT.Datatype.build_term.motive': Kind$Parser$ADT$Datatype$build_term$motive, - 'String.flatten.go': String$flatten$go, - 'String.flatten': String$flatten, 'Kind.Parser.ADT.Datatype.build_term.constructor.go': Kind$Parser$ADT$Datatype$build_term$constructor$go, 'Kind.Parser.ADT.Datatype.build_term.constructor': Kind$Parser$ADT$Datatype$build_term$constructor, 'Kind.Parser.ADT.Datatype.build_term.constructors.go': Kind$Parser$ADT$Datatype$build_term$constructors$go, @@ -49999,15 +53818,12 @@ module.exports = (function() { 'Kind.Parser.file.adt': Kind$Parser$file$adt, 'Kind.Parser.file.end': Kind$Parser$file$end, 'Kind.Parser.file': Kind$Parser$file, - 'String.join.go': String$join$go, - 'String.join': String$join, 'Kind.Code.highlight.end': Kind$Code$highlight$end, 'Maybe.extract': Maybe$extract, 'Nat.is_zero': Nat$is_zero, 'Nat.double': Nat$double, 'String.pad_right': String$pad_right, 'String.pad_left': String$pad_left, - 'Kind.Code.color': Kind$Code$color, 'List.take': List$take, 'Kind.Code.highlight.go': Kind$Code$highlight$go, 'Kind.Code.highlight': Kind$Code$highlight, @@ -50026,9 +53842,6 @@ module.exports = (function() { 'Kind.Error.undefined_reference': Kind$Error$undefined_reference, 'Kind.Error.waiting': Kind$Error$waiting, 'Kind.Error.indirect': Kind$Error$indirect, - 'Maybe.mapped': Maybe$mapped, - 'Kind.Path.Maybe.Builder.o': Kind$Path$Maybe$Builder$o, - 'Kind.Path.Maybe.Builder.i': Kind$Path$Maybe$Builder$i, 'Kind.Error.patch': Kind$Error$patch, 'Kind.Path.Maybe.Builder.to_bits': Kind$Path$Maybe$Builder$to_bits, 'Kind.Term.check.patch': Kind$Term$check$patch, @@ -50053,7 +53866,6 @@ module.exports = (function() { 'Kind.Term.SmartMotive.nams': Kind$Term$SmartMotive$nams, 'List.zip': List$zip, 'Nat.gte': Nat$gte, - 'Bits.concat': Bits$concat, 'Kind.Term.serialize.go': Kind$Term$serialize$go, 'Kind.Term.serialize': Kind$Term$serialize, 'Bits.eql': Bits$eql, @@ -50108,12 +53920,6 @@ module.exports = (function() { 'BitsMap.values.go': BitsMap$values$go, 'BitsMap.values': BitsMap$values, 'Kind.Core.var_name': Kind$Core$var_name, - 'Kind.Name.show': Kind$Name$show, - 'Bits.to_nat': Bits$to_nat, - 'U16.show_hex': U16$show_hex, - 'Kind.Code.escape.char': Kind$Code$escape$char, - 'Kind.Code.escape.go': Kind$Code$escape$go, - 'Kind.Code.escape': Kind$Code$escape, 'Kind.Core.show.go': Kind$Core$show$go, 'Kind.Core.show': Kind$Core$show, 'Kind.Defs.core': Kind$Defs$core, @@ -50238,14 +54044,6 @@ module.exports = (function() { 'Kind.Synth.file': Kind$Synth$file, 'IO.put_string': IO$put_string, 'IO.print': IO$print, - 'Kind.Term.show.as_nat.go': Kind$Term$show$as_nat$go, - 'Kind.Term.show.as_nat': Kind$Term$show$as_nat, - 'Kind.Term.show.is_ref': Kind$Term$show$is_ref, - 'Kind.Term.show.app.done': Kind$Term$show$app$done, - 'Kind.Term.show.app': Kind$Term$show$app, - 'BitsMap.to_list': BitsMap$to_list, - 'Kind.Term.show.go': Kind$Term$show$go, - 'Kind.Term.show': Kind$Term$show, 'Kind.Defs.report.types': Kind$Defs$report$types, 'List.filter': List$filter, 'Kind.Error.is_undef': Kind$Error$is_undef, From e877fdd9632b91c77a7b5d4ce28f66841aefe281 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Fri, 13 Aug 2021 19:10:03 -0300 Subject: [PATCH 08/26] progress with build script --- bin/scm/Makefile | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/bin/scm/Makefile b/bin/scm/Makefile index a1038e96..cf131ad0 100644 --- a/bin/scm/Makefile +++ b/bin/scm/Makefile @@ -1,4 +1,5 @@ chezdir := ChezScheme +chezexedir := chez-exe all: bin/kind-scm @@ -15,8 +16,9 @@ clean: rm src/*.generated.c rm bin/* -bin/kind-scm: - cd src/ && scheme compile.scm +bin/kind-scm: scheme/bin/compile-chez-program scheme/bin/scheme + ./$(chezexedir)/compile-chez-program --full-chez --libdirs src src/main.scm + mv src/main bin/kind-scm chmod +x bin/kind-scm kind-scm.deb: bin/kind-scm @@ -28,9 +30,13 @@ install: bin/kind-scm chmod +x bin/kind-scm cp bin/kind-scm /usr/local/bin/ -chez: +scheme/bin/scheme: cd $(chezdir) && git submodule init && git submodule update cd $(chezdir) && ./configure --pb cd $(chezdir) && make -j auto.bootquick cd $(chezdir) && ./configure --kernelobj --disable-curses --disable-iconv --disable-x11 --installprefix=$(PWD)/scheme cd $(chezdir) && make -j && make install + +scheme/bin/compile-chez-program: scheme/bin/scheme + cd $(chezexedir) && ./../scheme/bin/scheme --script gen-config.ss --scheme ./../scheme/bin/scheme --bootpath $(dirname $(find ../scheme -name kernel.o)) --prefix $(pwd)/../scheme + cd $(chezexedir) && make install From 1e6738c5b55cb45cd81de7f1df27719a88468ea7 Mon Sep 17 00:00:00 2001 From: Rheidner Date: Fri, 13 Aug 2021 21:40:32 -0300 Subject: [PATCH 09/26] Kind: allow optional type in argument on lambdas --- base/Kind/Parser/lambda.kind | 3 +- base/Test.kind | 6 +- bin/js/src/kind.js | 74317 ++++++++++++++++----------------- 3 files changed, 35445 insertions(+), 38881 deletions(-) diff --git a/base/Kind/Parser/lambda.kind b/base/Kind/Parser/lambda.kind index fc22f769..8820777a 100644 --- a/base/Kind/Parser/lambda.kind +++ b/base/Kind/Parser/lambda.kind @@ -45,8 +45,7 @@ Kind.Parser.lambda.make(names: List, body: Kind.Term): Kind.Term Kind.Parser.lambda.name_term: Parser(Pair>) Parser { - get name = Kind.Parser.name - + get name = Kind.Parser.name1 get term = Parser.maybe!(Parser { Kind.Parser.text(":") get type = Kind.Parser.term diff --git a/base/Test.kind b/base/Test.kind index a6c5f443..86c78527 100644 --- a/base/Test.kind +++ b/base/Test.kind @@ -1,4 +1,2 @@ -Test: I32 - let x = 2 - let y = 4 - I32.max((x + y), 0) +Test: _ + (x: Nat, y) x + y diff --git a/bin/js/src/kind.js b/bin/js/src/kind.js index abe5ff41..81672627 100644 --- a/bin/js/src/kind.js +++ b/bin/js/src/kind.js @@ -1460,61 +1460,52 @@ module.exports = (function() { return $234; }; const Parser$Error$combine = x0 => x1 => Parser$Error$combine$(x0, x1); - const Unit$new = null; - const Debug$log = a0 => a1 => ((console.log(a0), a1())); - - function String$cons$(_head$1, _tail$2) { - var $241 = (String.fromCharCode(_head$1) + _tail$2); - return $241; - }; - const String$cons = x0 => x1 => String$cons$(x0, x1); - const String$concat = a0 => a1 => (a0 + a1); function Parser$Error$maybe_combine$(_a$1, _b$2) { var self = _a$1; switch (self._) { case 'Maybe.some': - var $243 = self.value; + var $242 = self.value; var self = _b$2; switch (self._) { case 'Maybe.some': - var $245 = self.value; - var $246 = Maybe$some$(Parser$Error$combine$($243, $245)); - var $244 = $246; + var $244 = self.value; + var $245 = Maybe$some$(Parser$Error$combine$($242, $244)); + var $243 = $245; break; case 'Maybe.none': - var $247 = _a$1; - var $244 = $247; + var $246 = _a$1; + var $243 = $246; break; }; - var $242 = $244; + var $241 = $243; break; case 'Maybe.none': var self = _b$2; switch (self._) { case 'Maybe.none': - var $249 = Maybe$none; - var $248 = $249; + var $248 = Maybe$none; + var $247 = $248; break; case 'Maybe.some': - var $250 = _b$2; - var $248 = $250; + var $249 = _b$2; + var $247 = $249; break; }; - var $242 = $248; + var $241 = $247; break; }; - return $242; + return $241; }; const Parser$Error$maybe_combine = x0 => x1 => Parser$Error$maybe_combine$(x0, x1); function Parser$Reply$value$(_pst$2, _val$3) { - var $251 = ({ + var $250 = ({ _: 'Parser.Reply.value', 'pst': _pst$2, 'val': _val$3 }); - return $251; + return $250; }; const Parser$Reply$value = x0 => x1 => Parser$Reply$value$(x0, x1); const List$nil = ({ @@ -1522,12 +1513,12 @@ module.exports = (function() { }); function List$cons$(_head$2, _tail$3) { - var $252 = ({ + var $251 = ({ _: 'List.cons', 'head': _head$2, 'tail': _tail$3 }); - return $252; + return $251; }; const List$cons = x0 => x1 => List$cons$(x0, x1); @@ -1547,20 +1538,20 @@ module.exports = (function() { var self = _parse$2(_pst$4); switch (self._) { case 'Parser.Reply.value': - var $254 = self.pst; - var $255 = self.val; - var $256 = Parser$many$go$(_parse$2, (_xs$12 => { - var $257 = _values$3(List$cons$($255, _xs$12)); - return $257; - }), $254); - var $253 = $256; + var $253 = self.pst; + var $254 = self.val; + var $255 = Parser$many$go$(_parse$2, (_xs$12 => { + var $256 = _values$3(List$cons$($254, _xs$12)); + return $256; + }), $253); + var $252 = $255; break; case 'Parser.Reply.error': - var $258 = Parser$Reply$value$(_pst$4, _values$3(List$nil)); - var $253 = $258; + var $257 = Parser$Reply$value$(_pst$4, _values$3(List$nil)); + var $252 = $257; break; }; - return $253; + return $252; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -1570,11 +1561,11 @@ module.exports = (function() { const Parser$many$go = x0 => x1 => x2 => Parser$many$go$(x0, x1, x2); function Parser$many$(_parser$2) { - var $259 = Parser$many$go(_parser$2)((_x$3 => { - var $260 = _x$3; - return $260; + var $258 = Parser$many$go(_parser$2)((_x$3 => { + var $259 = _x$3; + return $259; })); - return $259; + return $258; }; const Parser$many = x0 => Parser$many$(x0); @@ -1582,123 +1573,111 @@ module.exports = (function() { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $262 = self.err; + var $261 = self.err; var _reply$9 = _parser$2(_pst$3); var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $264 = self.err; - var self = $262; + var $263 = self.err; + var self = $261; switch (self._) { case 'Maybe.some': - var $266 = self.value; - var $267 = Parser$Reply$error$(Parser$Error$combine$($266, $264)); - var $265 = $267; + var $265 = self.value; + var $266 = Parser$Reply$error$(Parser$Error$combine$($265, $263)); + var $264 = $266; break; case 'Maybe.none': - var $268 = Parser$Reply$error$($264); - var $265 = $268; + var $267 = Parser$Reply$error$($263); + var $264 = $267; break; }; - var $263 = $265; + var $262 = $264; break; case 'Parser.Reply.value': - var $269 = self.pst; - var $270 = self.val; - var self = $269; + var $268 = self.pst; + var $269 = self.val; + var self = $268; switch (self._) { case 'Parser.State.new': - var $272 = self.err; - var $273 = self.nam; - var $274 = self.ini; - var $275 = self.idx; - var $276 = self.str; - var $277 = ((console.log(("FALTANDO " + $276)), (_$17 => { - var $278 = ((console.log(("VALUE " + $273)), (_$18 => { - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($262, $272), $273, $274, $275, $276); - var self = _reply$pst$19; + var $271 = self.err; + var $272 = self.nam; + var $273 = self.ini; + var $274 = self.idx; + var $275 = self.str; + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($261, $271), $272, $273, $274, $275); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $277 = self.err; + var _reply$23 = Parser$many$(_parser$2)(_reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Parser.State.new': - var $280 = self.err; - var _reply$25 = Parser$many$(_parser$2)(_reply$pst$19); - var self = _reply$25; + case 'Parser.Reply.error': + var $279 = self.err; + var self = $277; switch (self._) { - case 'Parser.Reply.error': - var $282 = self.err; - var self = $280; - switch (self._) { - case 'Maybe.some': - var $284 = self.value; - var $285 = Parser$Reply$error$(Parser$Error$combine$($284, $282)); - var $283 = $285; - break; - case 'Maybe.none': - var $286 = Parser$Reply$error$($282); - var $283 = $286; - break; - }; - var $281 = $283; + case 'Maybe.some': + var $281 = self.value; + var $282 = Parser$Reply$error$(Parser$Error$combine$($281, $279)); + var $280 = $282; break; - case 'Parser.Reply.value': - var $287 = self.pst; - var $288 = self.val; - var self = $287; - switch (self._) { - case 'Parser.State.new': - var $290 = self.err; - var $291 = self.nam; - var $292 = self.ini; - var $293 = self.idx; - var $294 = self.str; - var $295 = ((console.log(("FALTANDO " + $294)), (_$33 => { - var $296 = ((console.log(("VALUE " + $291)), (_$34 => { - var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($280, $290), $291, $292, $293, $294); - var $297 = Parser$Reply$value$(_reply$pst$35, List$cons$($270, $288)); - return $297; - })())); - return $296; - })())); - var $289 = $295; - break; - }; - var $281 = $289; + case 'Maybe.none': + var $283 = Parser$Reply$error$($279); + var $280 = $283; break; }; - var $279 = $281; + var $278 = $280; + break; + case 'Parser.Reply.value': + var $284 = self.pst; + var $285 = self.val; + var self = $284; + switch (self._) { + case 'Parser.State.new': + var $287 = self.err; + var $288 = self.nam; + var $289 = self.ini; + var $290 = self.idx; + var $291 = self.str; + var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($277, $287), $288, $289, $290, $291); + var $292 = Parser$Reply$value$(_reply$pst$31, List$cons$($269, $285)); + var $286 = $292; + break; + }; + var $278 = $286; break; }; - return $279; - })())); - return $278; - })())); - var $271 = $277; + var $276 = $278; + break; + }; + var $270 = $276; break; }; - var $263 = $271; + var $262 = $270; break; }; - var $261 = $263; + var $260 = $262; break; }; - return $261; + return $260; }; const Parser$many1 = x0 => x1 => Parser$many1$(x0, x1); function Parser$Error$new$(_nam$1, _ini$2, _idx$3, _msg$4) { - var $298 = ({ + var $293 = ({ _: 'Parser.Error.new', 'nam': _nam$1, 'ini': _ini$2, 'idx': _idx$3, 'msg': _msg$4 }); - return $298; + return $293; }; const Parser$Error$new = x0 => x1 => x2 => x3 => Parser$Error$new$(x0, x1, x2, x3); function Parser$Reply$fail$(_nam$2, _ini$3, _idx$4, _msg$5) { - var $299 = Parser$Reply$error$(Parser$Error$new$(_nam$2, _ini$3, _idx$4, _msg$5)); - return $299; + var $294 = Parser$Reply$error$(Parser$Error$new$(_nam$2, _ini$3, _idx$4, _msg$5)); + return $294; }; const Parser$Reply$fail = x0 => x1 => x2 => x3 => Parser$Reply$fail$(x0, x1, x2, x3); @@ -1707,21 +1686,21 @@ module.exports = (function() { switch (self._) { case 'Cmp.ltn': case 'Cmp.gtn': - var $301 = Bool$false; - var $300 = $301; + var $296 = Bool$false; + var $295 = $296; break; case 'Cmp.eql': - var $302 = Bool$true; - var $300 = $302; + var $297 = Bool$true; + var $295 = $297; break; }; - return $300; + return $295; }; const Cmp$as_eql = x0 => Cmp$as_eql$(x0); function Word$eql$(_a$2, _b$3) { - var $303 = Cmp$as_eql$(Word$cmp$(_a$2, _b$3)); - return $303; + var $298 = Cmp$as_eql$(Word$cmp$(_a$2, _b$3)); + return $298; }; const Word$eql = x0 => x1 => Word$eql$(x0, x1); const U16$eql = a0 => a1 => (a0 === a1); @@ -1730,96 +1709,96 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $305 = self.err; - var $306 = self.nam; - var $307 = self.ini; - var $308 = self.idx; - var $309 = self.str; - var self = $309; + var $300 = self.err; + var $301 = self.nam; + var $302 = self.ini; + var $303 = self.idx; + var $304 = self.str; + var self = $304; if (self.length === 0) { - var $311 = Parser$Reply$fail$($306, $307, $308, "Not a digit."); - var $310 = $311; + var $306 = Parser$Reply$fail$($301, $302, $303, "Not a digit."); + var $305 = $306; } else { - var $312 = self.charCodeAt(0); - var $313 = self.slice(1); - var _pst$9 = Parser$State$new$($305, $306, $307, Nat$succ$($308), $313); - var self = ($312 === 48); + var $307 = self.charCodeAt(0); + var $308 = self.slice(1); + var _pst$9 = Parser$State$new$($300, $301, $302, Nat$succ$($303), $308); + var self = ($307 === 48); if (self) { - var $315 = Parser$Reply$value$(_pst$9, 0n); - var $314 = $315; + var $310 = Parser$Reply$value$(_pst$9, 0n); + var $309 = $310; } else { - var self = ($312 === 49); + var self = ($307 === 49); if (self) { - var $317 = Parser$Reply$value$(_pst$9, 1n); - var $316 = $317; + var $312 = Parser$Reply$value$(_pst$9, 1n); + var $311 = $312; } else { - var self = ($312 === 50); + var self = ($307 === 50); if (self) { - var $319 = Parser$Reply$value$(_pst$9, 2n); - var $318 = $319; + var $314 = Parser$Reply$value$(_pst$9, 2n); + var $313 = $314; } else { - var self = ($312 === 51); + var self = ($307 === 51); if (self) { - var $321 = Parser$Reply$value$(_pst$9, 3n); - var $320 = $321; + var $316 = Parser$Reply$value$(_pst$9, 3n); + var $315 = $316; } else { - var self = ($312 === 52); + var self = ($307 === 52); if (self) { - var $323 = Parser$Reply$value$(_pst$9, 4n); - var $322 = $323; + var $318 = Parser$Reply$value$(_pst$9, 4n); + var $317 = $318; } else { - var self = ($312 === 53); + var self = ($307 === 53); if (self) { - var $325 = Parser$Reply$value$(_pst$9, 5n); - var $324 = $325; + var $320 = Parser$Reply$value$(_pst$9, 5n); + var $319 = $320; } else { - var self = ($312 === 54); + var self = ($307 === 54); if (self) { - var $327 = Parser$Reply$value$(_pst$9, 6n); - var $326 = $327; + var $322 = Parser$Reply$value$(_pst$9, 6n); + var $321 = $322; } else { - var self = ($312 === 55); + var self = ($307 === 55); if (self) { - var $329 = Parser$Reply$value$(_pst$9, 7n); - var $328 = $329; + var $324 = Parser$Reply$value$(_pst$9, 7n); + var $323 = $324; } else { - var self = ($312 === 56); + var self = ($307 === 56); if (self) { - var $331 = Parser$Reply$value$(_pst$9, 8n); - var $330 = $331; + var $326 = Parser$Reply$value$(_pst$9, 8n); + var $325 = $326; } else { - var self = ($312 === 57); + var self = ($307 === 57); if (self) { - var $333 = Parser$Reply$value$(_pst$9, 9n); - var $332 = $333; + var $328 = Parser$Reply$value$(_pst$9, 9n); + var $327 = $328; } else { - var $334 = Parser$Reply$fail$($306, $307, $308, "Not a digit."); - var $332 = $334; + var $329 = Parser$Reply$fail$($301, $302, $303, "Not a digit."); + var $327 = $329; }; - var $330 = $332; + var $325 = $327; }; - var $328 = $330; + var $323 = $325; }; - var $326 = $328; + var $321 = $323; }; - var $324 = $326; + var $319 = $321; }; - var $322 = $324; + var $317 = $319; }; - var $320 = $322; + var $315 = $317; }; - var $318 = $320; + var $313 = $315; }; - var $316 = $318; + var $311 = $313; }; - var $314 = $316; + var $309 = $311; }; - var $310 = $314; + var $305 = $309; }; - var $304 = $310; + var $299 = $305; break; }; - return $304; + return $299; }; const Parser$digit = x0 => Parser$digit$(x0); const Nat$add = a0 => a1 => (a0 + a1); @@ -1838,13 +1817,13 @@ module.exports = (function() { var self = _ds$2; switch (self._) { case 'List.cons': - var $335 = self.head; - var $336 = self.tail; - var $337 = Nat$from_base$go$(_b$1, $336, (_b$1 * _p$3), (($335 * _p$3) + _res$4)); - return $337; + var $330 = self.head; + var $331 = self.tail; + var $332 = Nat$from_base$go$(_b$1, $331, (_b$1 * _p$3), (($330 * _p$3) + _res$4)); + return $332; case 'List.nil': - var $338 = _res$4; - return $338; + var $333 = _res$4; + return $333; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -1866,13 +1845,13 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $339 = self.head; - var $340 = self.tail; - var $341 = List$reverse$go$($340, List$cons$($339, _res$3)); - return $341; + var $334 = self.head; + var $335 = self.tail; + var $336 = List$reverse$go$($335, List$cons$($334, _res$3)); + return $336; case 'List.nil': - var $342 = _res$3; - return $342; + var $337 = _res$3; + return $337; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -1882,14 +1861,14 @@ module.exports = (function() { const List$reverse$go = x0 => x1 => List$reverse$go$(x0, x1); function List$reverse$(_xs$2) { - var $343 = List$reverse$go$(_xs$2, List$nil); - return $343; + var $338 = List$reverse$go$(_xs$2, List$nil); + return $338; }; const List$reverse = x0 => List$reverse$(x0); function Nat$from_base$(_base$1, _ds$2) { - var $344 = Nat$from_base$go$(_base$1, List$reverse$(_ds$2), 1n, 0n); - return $344; + var $339 = Nat$from_base$go$(_base$1, List$reverse$(_ds$2), 1n, 0n); + return $339; }; const Nat$from_base = x0 => x1 => Nat$from_base$(x0, x1); @@ -1897,364 +1876,365 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $346 = self.err; + var $341 = self.err; var _reply$7 = Parser$many1$(Parser$digit, _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $348 = self.err; - var self = $346; + var $343 = self.err; + var self = $341; switch (self._) { case 'Maybe.some': - var $350 = self.value; - var $351 = Parser$Reply$error$(Parser$Error$combine$($350, $348)); - var $349 = $351; + var $345 = self.value; + var $346 = Parser$Reply$error$(Parser$Error$combine$($345, $343)); + var $344 = $346; break; case 'Maybe.none': - var $352 = Parser$Reply$error$($348); - var $349 = $352; + var $347 = Parser$Reply$error$($343); + var $344 = $347; break; }; - var $347 = $349; + var $342 = $344; break; case 'Parser.Reply.value': - var $353 = self.pst; - var $354 = self.val; - var self = $353; + var $348 = self.pst; + var $349 = self.val; + var self = $348; switch (self._) { case 'Parser.State.new': - var $356 = self.err; - var $357 = self.nam; - var $358 = self.ini; - var $359 = self.idx; - var $360 = self.str; - var $361 = ((console.log(("FALTANDO " + $360)), (_$15 => { - var $362 = ((console.log(("VALUE " + $357)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($346, $356), $357, $358, $359, $360); - var $363 = Parser$Reply$value$(_reply$pst$17, Nat$from_base$(10n, $354)); - return $363; - })())); - return $362; - })())); - var $355 = $361; + var $351 = self.err; + var $352 = self.nam; + var $353 = self.ini; + var $354 = self.idx; + var $355 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($341, $351), $352, $353, $354, $355); + var $356 = Parser$Reply$value$(_reply$pst$15, Nat$from_base$(10n, $349)); + var $350 = $356; break; }; - var $347 = $355; + var $342 = $350; break; }; - var $345 = $347; + var $340 = $342; break; }; - return $345; + return $340; }; const Parser$nat = x0 => Parser$nat$(x0); const Nat$read = a0 => (BigInt(a0)); const IO$get_time = IO$ask$("get_time", "", (_time$1 => { - var $364 = IO$end$((BigInt(_time$1))); - return $364; + var $357 = IO$end$((BigInt(_time$1))); + return $357; })); function Kind$Synth$load$cached$is_loop$(_name$1, _defs$2) { var self = Kind$Map$get$(_name$1, _defs$2); switch (self._) { case 'Maybe.some': - var $366 = self.value; - var self = $366; + var $359 = self.value; + var self = $359; switch (self._) { case 'Kind.Def.new': - var $368 = self.stat; - var self = $368; + var $361 = self.stat; + var self = $361; switch (self._) { case 'Kind.Status.done': - var $370 = self.cached; - var $371 = $370; - var $369 = $371; + var $363 = self.cached; + var $364 = $363; + var $362 = $364; break; case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.fail': - var $372 = Bool$false; - var $369 = $372; + var $365 = Bool$false; + var $362 = $365; break; }; - var $367 = $369; + var $360 = $362; break; }; - var $365 = $367; + var $358 = $360; break; case 'Maybe.none': - var $373 = Bool$false; - var $365 = $373; + var $366 = Bool$false; + var $358 = $366; break; }; - return $365; + return $358; }; const Kind$Synth$load$cached$is_loop = x0 => x1 => Kind$Synth$load$cached$is_loop$(x0, x1); function IO$get_file$(_name$1) { - var $374 = IO$ask$("get_file", _name$1, (_file$2 => { - var $375 = IO$end$(_file$2); - return $375; + var $367 = IO$ask$("get_file", _name$1, (_file$2 => { + var $368 = IO$end$(_file$2); + return $368; })); - return $374; + return $367; }; const IO$get_file = x0 => IO$get_file$(x0); + function String$cons$(_head$1, _tail$2) { + var $369 = (String.fromCharCode(_head$1) + _tail$2); + return $369; + }; + const String$cons = x0 => x1 => String$cons$(x0, x1); + const String$concat = a0 => a1 => (a0 + a1); + function Bits$hex$encode$(_x$1) { var self = _x$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $377 = self.slice(0, -1); - var self = $377; + var $371 = self.slice(0, -1); + var self = $371; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $379 = self.slice(0, -1); - var self = $379; + var $373 = self.slice(0, -1); + var self = $373; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $381 = self.slice(0, -1); - var self = $381; + var $375 = self.slice(0, -1); + var self = $375; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $383 = self.slice(0, -1); - var $384 = ("0" + Bits$hex$encode$($383)); - var $382 = $384; + var $377 = self.slice(0, -1); + var $378 = ("0" + Bits$hex$encode$($377)); + var $376 = $378; break; case 'i': - var $385 = self.slice(0, -1); - var $386 = ("8" + Bits$hex$encode$($385)); - var $382 = $386; + var $379 = self.slice(0, -1); + var $380 = ("8" + Bits$hex$encode$($379)); + var $376 = $380; break; case 'e': - var $387 = "0"; - var $382 = $387; + var $381 = "0"; + var $376 = $381; break; }; - var $380 = $382; + var $374 = $376; break; case 'i': - var $388 = self.slice(0, -1); - var self = $388; + var $382 = self.slice(0, -1); + var self = $382; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $390 = self.slice(0, -1); - var $391 = ("4" + Bits$hex$encode$($390)); - var $389 = $391; + var $384 = self.slice(0, -1); + var $385 = ("4" + Bits$hex$encode$($384)); + var $383 = $385; break; case 'i': - var $392 = self.slice(0, -1); - var $393 = ("c" + Bits$hex$encode$($392)); - var $389 = $393; + var $386 = self.slice(0, -1); + var $387 = ("c" + Bits$hex$encode$($386)); + var $383 = $387; break; case 'e': - var $394 = "4"; - var $389 = $394; + var $388 = "4"; + var $383 = $388; break; }; - var $380 = $389; + var $374 = $383; break; case 'e': - var $395 = "0"; - var $380 = $395; + var $389 = "0"; + var $374 = $389; break; }; - var $378 = $380; + var $372 = $374; break; case 'i': - var $396 = self.slice(0, -1); - var self = $396; + var $390 = self.slice(0, -1); + var self = $390; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $398 = self.slice(0, -1); - var self = $398; + var $392 = self.slice(0, -1); + var self = $392; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $400 = self.slice(0, -1); - var $401 = ("2" + Bits$hex$encode$($400)); - var $399 = $401; + var $394 = self.slice(0, -1); + var $395 = ("2" + Bits$hex$encode$($394)); + var $393 = $395; break; case 'i': - var $402 = self.slice(0, -1); - var $403 = ("a" + Bits$hex$encode$($402)); - var $399 = $403; + var $396 = self.slice(0, -1); + var $397 = ("a" + Bits$hex$encode$($396)); + var $393 = $397; break; case 'e': - var $404 = "2"; - var $399 = $404; + var $398 = "2"; + var $393 = $398; break; }; - var $397 = $399; + var $391 = $393; break; case 'i': - var $405 = self.slice(0, -1); - var self = $405; + var $399 = self.slice(0, -1); + var self = $399; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $407 = self.slice(0, -1); - var $408 = ("6" + Bits$hex$encode$($407)); - var $406 = $408; + var $401 = self.slice(0, -1); + var $402 = ("6" + Bits$hex$encode$($401)); + var $400 = $402; break; case 'i': - var $409 = self.slice(0, -1); - var $410 = ("e" + Bits$hex$encode$($409)); - var $406 = $410; + var $403 = self.slice(0, -1); + var $404 = ("e" + Bits$hex$encode$($403)); + var $400 = $404; break; case 'e': - var $411 = "6"; - var $406 = $411; + var $405 = "6"; + var $400 = $405; break; }; - var $397 = $406; + var $391 = $400; break; case 'e': - var $412 = "2"; - var $397 = $412; + var $406 = "2"; + var $391 = $406; break; }; - var $378 = $397; + var $372 = $391; break; case 'e': - var $413 = "0"; - var $378 = $413; + var $407 = "0"; + var $372 = $407; break; }; - var $376 = $378; + var $370 = $372; break; case 'i': - var $414 = self.slice(0, -1); - var self = $414; + var $408 = self.slice(0, -1); + var self = $408; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $416 = self.slice(0, -1); - var self = $416; + var $410 = self.slice(0, -1); + var self = $410; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $418 = self.slice(0, -1); - var self = $418; + var $412 = self.slice(0, -1); + var self = $412; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $420 = self.slice(0, -1); - var $421 = ("1" + Bits$hex$encode$($420)); - var $419 = $421; + var $414 = self.slice(0, -1); + var $415 = ("1" + Bits$hex$encode$($414)); + var $413 = $415; break; case 'i': - var $422 = self.slice(0, -1); - var $423 = ("9" + Bits$hex$encode$($422)); - var $419 = $423; + var $416 = self.slice(0, -1); + var $417 = ("9" + Bits$hex$encode$($416)); + var $413 = $417; break; case 'e': - var $424 = "1"; - var $419 = $424; + var $418 = "1"; + var $413 = $418; break; }; - var $417 = $419; + var $411 = $413; break; case 'i': - var $425 = self.slice(0, -1); - var self = $425; + var $419 = self.slice(0, -1); + var self = $419; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $427 = self.slice(0, -1); - var $428 = ("5" + Bits$hex$encode$($427)); - var $426 = $428; + var $421 = self.slice(0, -1); + var $422 = ("5" + Bits$hex$encode$($421)); + var $420 = $422; break; case 'i': - var $429 = self.slice(0, -1); - var $430 = ("d" + Bits$hex$encode$($429)); - var $426 = $430; + var $423 = self.slice(0, -1); + var $424 = ("d" + Bits$hex$encode$($423)); + var $420 = $424; break; case 'e': - var $431 = "5"; - var $426 = $431; + var $425 = "5"; + var $420 = $425; break; }; - var $417 = $426; + var $411 = $420; break; case 'e': - var $432 = "1"; - var $417 = $432; + var $426 = "1"; + var $411 = $426; break; }; - var $415 = $417; + var $409 = $411; break; case 'i': - var $433 = self.slice(0, -1); - var self = $433; + var $427 = self.slice(0, -1); + var self = $427; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $435 = self.slice(0, -1); - var self = $435; + var $429 = self.slice(0, -1); + var self = $429; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $437 = self.slice(0, -1); - var $438 = ("3" + Bits$hex$encode$($437)); - var $436 = $438; + var $431 = self.slice(0, -1); + var $432 = ("3" + Bits$hex$encode$($431)); + var $430 = $432; break; case 'i': - var $439 = self.slice(0, -1); - var $440 = ("b" + Bits$hex$encode$($439)); - var $436 = $440; + var $433 = self.slice(0, -1); + var $434 = ("b" + Bits$hex$encode$($433)); + var $430 = $434; break; case 'e': - var $441 = "3"; - var $436 = $441; + var $435 = "3"; + var $430 = $435; break; }; - var $434 = $436; + var $428 = $430; break; case 'i': - var $442 = self.slice(0, -1); - var self = $442; + var $436 = self.slice(0, -1); + var self = $436; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $444 = self.slice(0, -1); - var $445 = ("7" + Bits$hex$encode$($444)); - var $443 = $445; + var $438 = self.slice(0, -1); + var $439 = ("7" + Bits$hex$encode$($438)); + var $437 = $439; break; case 'i': - var $446 = self.slice(0, -1); - var $447 = ("f" + Bits$hex$encode$($446)); - var $443 = $447; + var $440 = self.slice(0, -1); + var $441 = ("f" + Bits$hex$encode$($440)); + var $437 = $441; break; case 'e': - var $448 = "7"; - var $443 = $448; + var $442 = "7"; + var $437 = $442; break; }; - var $434 = $443; + var $428 = $437; break; case 'e': - var $449 = "3"; - var $434 = $449; + var $443 = "3"; + var $428 = $443; break; }; - var $415 = $434; + var $409 = $428; break; case 'e': - var $450 = "1"; - var $415 = $450; + var $444 = "1"; + var $409 = $444; break; }; - var $376 = $415; + var $370 = $409; break; case 'e': - var $451 = ""; - var $376 = $451; + var $445 = ""; + var $370 = $445; break; }; - return $376; + return $370; }; const Bits$hex$encode = x0 => Bits$hex$encode$(x0); function Kind$Synth$load$cached$name$(_name$1) { - var $452 = (".cache/" + Bits$hex$encode$((kind_name_to_bits(_name$1)))); - return $452; + var $446 = (".cache/" + Bits$hex$encode$((kind_name_to_bits(_name$1)))); + return $446; }; const Kind$Synth$load$cached$name = x0 => Kind$Synth$load$cached$name$(x0); function Kind$Synth$load$cached$get_file$(_name$1) { - var $453 = IO$get_file$(Kind$Synth$load$cached$name$(_name$1)); - return $453; + var $447 = IO$get_file$(Kind$Synth$load$cached$name$(_name$1)); + return $447; }; const Kind$Synth$load$cached$get_file = x0 => Kind$Synth$load$cached$get_file$(x0); const Bool$not = a0 => (!a0); @@ -2262,36 +2242,36 @@ module.exports = (function() { function String$is_empty$(_str$1) { var self = _str$1; if (self.length === 0) { - var $455 = Bool$true; - var $454 = $455; + var $449 = Bool$true; + var $448 = $449; } else { - var $456 = self.charCodeAt(0); - var $457 = self.slice(1); - var $458 = Bool$false; - var $454 = $458; + var $450 = self.charCodeAt(0); + var $451 = self.slice(1); + var $452 = Bool$false; + var $448 = $452; }; - return $454; + return $448; }; const String$is_empty = x0 => String$is_empty$(x0); function IO$get_file_mtime$(_name$1) { - var $459 = IO$ask$("get_file_mtime", _name$1, (_file$2 => { - var $460 = IO$end$(_file$2); - return $460; + var $453 = IO$ask$("get_file_mtime", _name$1, (_file$2 => { + var $454 = IO$end$(_file$2); + return $454; })); - return $459; + return $453; }; const IO$get_file_mtime = x0 => IO$get_file_mtime$(x0); const Bool$and = a0 => a1 => (a0 && a1); const String$eql = a0 => a1 => (a0 === a1); function Pair$new$(_fst$3, _snd$4) { - var $461 = ({ + var $455 = ({ _: 'Pair.new', 'fst': _fst$3, 'snd': _snd$4 }); - return $461; + return $455; }; const Pair$new = x0 => x1 => Pair$new$(x0, x1); @@ -2299,30 +2279,31 @@ module.exports = (function() { var self = _m$3; switch (self._) { case 'Maybe.some': - var $463 = self.value; - var $464 = _f$4($463); - var $462 = $464; + var $457 = self.value; + var $458 = _f$4($457); + var $456 = $458; break; case 'Maybe.none': - var $465 = Maybe$none; - var $462 = $465; + var $459 = Maybe$none; + var $456 = $459; break; }; - return $462; + return $456; }; const Maybe$bind = x0 => x1 => Maybe$bind$(x0, x1); function Maybe$monad$(_new$2) { - var $466 = _new$2(Maybe$bind)(Maybe$some); - return $466; + var $460 = _new$2(Maybe$bind)(Maybe$some); + return $460; }; const Maybe$monad = x0 => Maybe$monad$(x0); function Pair$(_A$1, _B$2) { - var $467 = null; - return $467; + var $461 = null; + return $461; }; const Pair = x0 => x1 => Pair$(x0, x1); + const Unit$new = null; const Bool$or = a0 => a1 => (a0 || a1); function Kind$Core$read$spaces$(_code$1) { @@ -2337,21 +2318,21 @@ module.exports = (function() { var R = (() => { var self = _code$1; if (self.length === 0) { - var $468 = Pair$new$(_code$1, Unit$new); - return $468; + var $462 = Pair$new$(_code$1, Unit$new); + return $462; } else { - var $469 = self.charCodeAt(0); - var $470 = self.slice(1); - var _is_space$4 = (($469 === 32) || (($469 === 10) || (($469 === 13) || (($469 === 9) || (($469 === 11) || (($469 === 12) || Bool$false)))))); + var $463 = self.charCodeAt(0); + var $464 = self.slice(1); + var _is_space$4 = (($463 === 32) || (($463 === 10) || (($463 === 13) || (($463 === 9) || (($463 === 11) || (($463 === 12) || Bool$false)))))); var self = _is_space$4; if (self) { - var $472 = Kind$Core$read$spaces$($470); - var $471 = $472; + var $466 = Kind$Core$read$spaces$($464); + var $465 = $466; } else { - var $473 = Pair$new$(_code$1, Unit$new); - var $471 = $473; + var $467 = Pair$new$(_code$1, Unit$new); + var $465 = $467; }; - return $471; + return $465; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -2361,17 +2342,17 @@ module.exports = (function() { const Kind$Core$read$spaces = x0 => Kind$Core$read$spaces$(x0); function Kind$Term$ref$(_name$1) { - var $474 = ({ + var $468 = ({ _: 'Kind.Term.ref', 'name': _name$1 }); - return $474; + return $468; }; const Kind$Term$ref = x0 => Kind$Term$ref$(x0); function Char$eql$(_a$1, _b$2) { - var $475 = (_a$1 === _b$2); - return $475; + var $469 = (_a$1 === _b$2); + return $469; }; const Char$eql = x0 => x1 => Char$eql$(x0, x1); const Kind$Term$typ = ({ @@ -2382,22 +2363,22 @@ module.exports = (function() { var self = _cmp$1; switch (self._) { case 'Cmp.ltn': - var $477 = Bool$false; - var $476 = $477; + var $471 = Bool$false; + var $470 = $471; break; case 'Cmp.eql': case 'Cmp.gtn': - var $478 = Bool$true; - var $476 = $478; + var $472 = Bool$true; + var $470 = $472; break; }; - return $476; + return $470; }; const Cmp$as_gte = x0 => Cmp$as_gte$(x0); function Word$gte$(_a$2, _b$3) { - var $479 = Cmp$as_gte$(Word$cmp$(_a$2, _b$3)); - return $479; + var $473 = Cmp$as_gte$(Word$cmp$(_a$2, _b$3)); + return $473; }; const Word$gte = x0 => x1 => Word$gte$(x0, x1); const U16$gte = a0 => a1 => (a0 >= a1); @@ -2407,58 +2388,58 @@ module.exports = (function() { switch (self._) { case 'Cmp.ltn': case 'Cmp.eql': - var $481 = Bool$true; - var $480 = $481; + var $475 = Bool$true; + var $474 = $475; break; case 'Cmp.gtn': - var $482 = Bool$false; - var $480 = $482; + var $476 = Bool$false; + var $474 = $476; break; }; - return $480; + return $474; }; const Cmp$as_lte = x0 => Cmp$as_lte$(x0); function Word$lte$(_a$2, _b$3) { - var $483 = Cmp$as_lte$(Word$cmp$(_a$2, _b$3)); - return $483; + var $477 = Cmp$as_lte$(Word$cmp$(_a$2, _b$3)); + return $477; }; const Word$lte = x0 => x1 => Word$lte$(x0, x1); const U16$lte = a0 => a1 => (a0 <= a1); function Kind$Core$read$is_name$(_chr$1) { - var $484 = (((_chr$1 >= 46) && (_chr$1 <= 47)) || (((_chr$1 >= 48) && (_chr$1 < 58)) || (((_chr$1 >= 65) && (_chr$1 < 91)) || (((_chr$1 >= 95) && (_chr$1 < 96)) || (((_chr$1 >= 97) && (_chr$1 < 123)) || Bool$false))))); - return $484; + var $478 = (((_chr$1 >= 46) && (_chr$1 <= 47)) || (((_chr$1 >= 48) && (_chr$1 < 58)) || (((_chr$1 >= 65) && (_chr$1 < 91)) || (((_chr$1 >= 95) && (_chr$1 < 96)) || (((_chr$1 >= 97) && (_chr$1 < 123)) || Bool$false))))); + return $478; }; const Kind$Core$read$is_name = x0 => Kind$Core$read$is_name$(x0); function Kind$Core$read$name$(_code$1) { var self = _code$1; if (self.length === 0) { - var $486 = Pair$new$(_code$1, ""); - var $485 = $486; + var $480 = Pair$new$(_code$1, ""); + var $479 = $480; } else { - var $487 = self.charCodeAt(0); - var $488 = self.slice(1); - var self = Kind$Core$read$is_name$($487); + var $481 = self.charCodeAt(0); + var $482 = self.slice(1); + var self = Kind$Core$read$is_name$($481); if (self) { - var self = Kind$Core$read$name$($488); + var self = Kind$Core$read$name$($482); switch (self._) { case 'Pair.new': - var $491 = self.fst; - var $492 = self.snd; - var $493 = Pair$new$($491, String$cons$($487, $492)); - var $490 = $493; + var $485 = self.fst; + var $486 = self.snd; + var $487 = Pair$new$($485, String$cons$($481, $486)); + var $484 = $487; break; }; - var $489 = $490; + var $483 = $484; } else { - var $494 = Pair$new$(_code$1, ""); - var $489 = $494; + var $488 = Pair$new$(_code$1, ""); + var $483 = $488; }; - var $485 = $489; + var $479 = $483; }; - return $485; + return $479; }; const Kind$Core$read$name = x0 => Kind$Core$read$name$(x0); @@ -2466,33 +2447,33 @@ module.exports = (function() { var self = Kind$Core$read$spaces$(_code$1); switch (self._) { case 'Pair.new': - var $496 = self.fst; - var self = $496; + var $490 = self.fst; + var self = $490; if (self.length === 0) { - var $498 = Pair$new$("", Unit$new); - var $497 = $498; + var $492 = Pair$new$("", Unit$new); + var $491 = $492; } else { - var $499 = self.charCodeAt(0); - var $500 = self.slice(1); - var self = ($499 === _chr$2); + var $493 = self.charCodeAt(0); + var $494 = self.slice(1); + var self = ($493 === _chr$2); if (self) { - var $502 = Pair$new$($500, Unit$new); - var $501 = $502; + var $496 = Pair$new$($494, Unit$new); + var $495 = $496; } else { - var $503 = Pair$new$("", Unit$new); - var $501 = $503; + var $497 = Pair$new$("", Unit$new); + var $495 = $497; }; - var $497 = $501; + var $491 = $495; }; - var $495 = $497; + var $489 = $491; break; }; - return $495; + return $489; }; const Kind$Core$read$char = x0 => x1 => Kind$Core$read$char$(x0, x1); function Kind$Term$all$(_eras$1, _self$2, _name$3, _xtyp$4, _body$5) { - var $504 = ({ + var $498 = ({ _: 'Kind.Term.all', 'eras': _eras$1, 'self': _self$2, @@ -2500,60 +2481,60 @@ module.exports = (function() { 'xtyp': _xtyp$4, 'body': _body$5 }); - return $504; + return $498; }; const Kind$Term$all = x0 => x1 => x2 => x3 => x4 => Kind$Term$all$(x0, x1, x2, x3, x4); function Kind$Term$lam$(_name$1, _body$2) { - var $505 = ({ + var $499 = ({ _: 'Kind.Term.lam', 'name': _name$1, 'body': _body$2 }); - return $505; + return $499; }; const Kind$Term$lam = x0 => x1 => Kind$Term$lam$(x0, x1); function Kind$Term$app$(_func$1, _argm$2) { - var $506 = ({ + var $500 = ({ _: 'Kind.Term.app', 'func': _func$1, 'argm': _argm$2 }); - return $506; + return $500; }; const Kind$Term$app = x0 => x1 => Kind$Term$app$(x0, x1); function Kind$Term$let$(_name$1, _expr$2, _body$3) { - var $507 = ({ + var $501 = ({ _: 'Kind.Term.let', 'name': _name$1, 'expr': _expr$2, 'body': _body$3 }); - return $507; + return $501; }; const Kind$Term$let = x0 => x1 => x2 => Kind$Term$let$(x0, x1, x2); function Kind$Term$def$(_name$1, _expr$2, _body$3) { - var $508 = ({ + var $502 = ({ _: 'Kind.Term.def', 'name': _name$1, 'expr': _expr$2, 'body': _body$3 }); - return $508; + return $502; }; const Kind$Term$def = x0 => x1 => x2 => Kind$Term$def$(x0, x1, x2); function Kind$Term$ann$(_done$1, _term$2, _type$3) { - var $509 = ({ + var $503 = ({ _: 'Kind.Term.ann', 'done': _done$1, 'term': _term$2, 'type': _type$3 }); - return $509; + return $503; }; const Kind$Term$ann = x0 => x1 => x2 => Kind$Term$ann$(x0, x1, x2); @@ -2569,29 +2550,29 @@ module.exports = (function() { var R = (() => { var self = _match$2; if (self.length === 0) { - var $510 = Bool$true; - return $510; + var $504 = Bool$true; + return $504; } else { - var $511 = self.charCodeAt(0); - var $512 = self.slice(1); + var $505 = self.charCodeAt(0); + var $506 = self.slice(1); var self = _xs$1; if (self.length === 0) { - var $514 = Bool$false; - var $513 = $514; + var $508 = Bool$false; + var $507 = $508; } else { - var $515 = self.charCodeAt(0); - var $516 = self.slice(1); - var self = Char$eql$($511, $515); + var $509 = self.charCodeAt(0); + var $510 = self.slice(1); + var self = Char$eql$($505, $509); if (self) { - var $518 = String$starts_with$($516, $512); - var $517 = $518; + var $512 = String$starts_with$($510, $506); + var $511 = $512; } else { - var $519 = Bool$false; - var $517 = $519; + var $513 = Bool$false; + var $511 = $513; }; - var $513 = $517; + var $507 = $511; }; - return $513; + return $507; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -2613,21 +2594,21 @@ module.exports = (function() { var R = (() => { var self = _n$1; if (self === 0n) { - var $520 = _xs$2; - return $520; + var $514 = _xs$2; + return $514; } else { - var $521 = (self - 1n); + var $515 = (self - 1n); var self = _xs$2; if (self.length === 0) { - var $523 = String$nil; - var $522 = $523; + var $517 = String$nil; + var $516 = $517; } else { - var $524 = self.charCodeAt(0); - var $525 = self.slice(1); - var $526 = String$drop$($521, $525); - var $522 = $526; + var $518 = self.charCodeAt(0); + var $519 = self.slice(1); + var $520 = String$drop$($515, $519); + var $516 = $520; }; - return $522; + return $516; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -2637,8 +2618,8 @@ module.exports = (function() { const String$drop = x0 => x1 => String$drop$(x0, x1); function Char$is_hex$(_chr$1) { - var $527 = (((_chr$1 >= 48) && (_chr$1 <= 57)) || (((_chr$1 >= 97) && (_chr$1 <= 102)) || (((_chr$1 >= 65) && (_chr$1 <= 70)) || Bool$false))); - return $527; + var $521 = (((_chr$1 >= 48) && (_chr$1 <= 57)) || (((_chr$1 >= 97) && (_chr$1 <= 102)) || (((_chr$1 >= 65) && (_chr$1 <= 70)) || Bool$false))); + return $521; }; const Char$is_hex = x0 => Char$is_hex$(x0); @@ -2646,117 +2627,117 @@ module.exports = (function() { var self = _a$2; switch (self._) { case 'Word.o': - var $529 = self.pred; - var $530 = (_b$7 => { + var $523 = self.pred; + var $524 = (_b$7 => { var self = _b$7; switch (self._) { case 'Word.o': - var $532 = self.pred; - var $533 = (_a$pred$10 => { + var $526 = self.pred; + var $527 = (_a$pred$10 => { var self = _c$4; if (self) { - var $535 = Word$i$(Word$adder$(_a$pred$10, $532, Bool$false)); - var $534 = $535; + var $529 = Word$i$(Word$adder$(_a$pred$10, $526, Bool$false)); + var $528 = $529; } else { - var $536 = Word$o$(Word$adder$(_a$pred$10, $532, Bool$false)); - var $534 = $536; + var $530 = Word$o$(Word$adder$(_a$pred$10, $526, Bool$false)); + var $528 = $530; }; - return $534; + return $528; }); - var $531 = $533; + var $525 = $527; break; case 'Word.i': - var $537 = self.pred; - var $538 = (_a$pred$10 => { + var $531 = self.pred; + var $532 = (_a$pred$10 => { var self = _c$4; if (self) { - var $540 = Word$o$(Word$adder$(_a$pred$10, $537, Bool$true)); - var $539 = $540; + var $534 = Word$o$(Word$adder$(_a$pred$10, $531, Bool$true)); + var $533 = $534; } else { - var $541 = Word$i$(Word$adder$(_a$pred$10, $537, Bool$false)); - var $539 = $541; + var $535 = Word$i$(Word$adder$(_a$pred$10, $531, Bool$false)); + var $533 = $535; }; - return $539; + return $533; }); - var $531 = $538; + var $525 = $532; break; case 'Word.e': - var $542 = (_a$pred$8 => { - var $543 = Word$e; - return $543; + var $536 = (_a$pred$8 => { + var $537 = Word$e; + return $537; }); - var $531 = $542; + var $525 = $536; break; }; - var $531 = $531($529); - return $531; + var $525 = $525($523); + return $525; }); - var $528 = $530; + var $522 = $524; break; case 'Word.i': - var $544 = self.pred; - var $545 = (_b$7 => { + var $538 = self.pred; + var $539 = (_b$7 => { var self = _b$7; switch (self._) { case 'Word.o': - var $547 = self.pred; - var $548 = (_a$pred$10 => { + var $541 = self.pred; + var $542 = (_a$pred$10 => { var self = _c$4; if (self) { - var $550 = Word$o$(Word$adder$(_a$pred$10, $547, Bool$true)); - var $549 = $550; + var $544 = Word$o$(Word$adder$(_a$pred$10, $541, Bool$true)); + var $543 = $544; } else { - var $551 = Word$i$(Word$adder$(_a$pred$10, $547, Bool$false)); - var $549 = $551; + var $545 = Word$i$(Word$adder$(_a$pred$10, $541, Bool$false)); + var $543 = $545; }; - return $549; + return $543; }); - var $546 = $548; + var $540 = $542; break; case 'Word.i': - var $552 = self.pred; - var $553 = (_a$pred$10 => { + var $546 = self.pred; + var $547 = (_a$pred$10 => { var self = _c$4; if (self) { - var $555 = Word$i$(Word$adder$(_a$pred$10, $552, Bool$true)); - var $554 = $555; + var $549 = Word$i$(Word$adder$(_a$pred$10, $546, Bool$true)); + var $548 = $549; } else { - var $556 = Word$o$(Word$adder$(_a$pred$10, $552, Bool$true)); - var $554 = $556; + var $550 = Word$o$(Word$adder$(_a$pred$10, $546, Bool$true)); + var $548 = $550; }; - return $554; + return $548; }); - var $546 = $553; + var $540 = $547; break; case 'Word.e': - var $557 = (_a$pred$8 => { - var $558 = Word$e; - return $558; + var $551 = (_a$pred$8 => { + var $552 = Word$e; + return $552; }); - var $546 = $557; + var $540 = $551; break; }; - var $546 = $546($544); - return $546; + var $540 = $540($538); + return $540; }); - var $528 = $545; + var $522 = $539; break; case 'Word.e': - var $559 = (_b$5 => { - var $560 = Word$e; - return $560; + var $553 = (_b$5 => { + var $554 = Word$e; + return $554; }); - var $528 = $559; + var $522 = $553; break; }; - var $528 = $528(_b$3); - return $528; + var $522 = $522(_b$3); + return $522; }; const Word$adder = x0 => x1 => x2 => Word$adder$(x0, x1, x2); function Word$add$(_a$2, _b$3) { - var $561 = Word$adder$(_a$2, _b$3, Bool$false); - return $561; + var $555 = Word$adder$(_a$2, _b$3, Bool$false); + return $555; }; const Word$add = x0 => x1 => Word$add$(x0, x1); const U16$add = a0 => a1 => ((a0 + a1) & 0xFFFF); @@ -2765,35 +2746,35 @@ module.exports = (function() { var self = _word$2; switch (self._) { case 'Word.o': - var $563 = self.pred; + var $557 = self.pred; var self = _prev$3; if (self) { - var $565 = Word$i$(Word$shift_left$one$go$($563, Bool$false)); - var $564 = $565; + var $559 = Word$i$(Word$shift_left$one$go$($557, Bool$false)); + var $558 = $559; } else { - var $566 = Word$o$(Word$shift_left$one$go$($563, Bool$false)); - var $564 = $566; + var $560 = Word$o$(Word$shift_left$one$go$($557, Bool$false)); + var $558 = $560; }; - var $562 = $564; + var $556 = $558; break; case 'Word.i': - var $567 = self.pred; + var $561 = self.pred; var self = _prev$3; if (self) { - var $569 = Word$i$(Word$shift_left$one$go$($567, Bool$true)); - var $568 = $569; + var $563 = Word$i$(Word$shift_left$one$go$($561, Bool$true)); + var $562 = $563; } else { - var $570 = Word$o$(Word$shift_left$one$go$($567, Bool$true)); - var $568 = $570; + var $564 = Word$o$(Word$shift_left$one$go$($561, Bool$true)); + var $562 = $564; }; - var $562 = $568; + var $556 = $562; break; case 'Word.e': - var $571 = Word$e; - var $562 = $571; + var $565 = Word$e; + var $556 = $565; break; }; - return $562; + return $556; }; const Word$shift_left$one$go = x0 => x1 => Word$shift_left$one$go$(x0, x1); @@ -2801,21 +2782,21 @@ module.exports = (function() { var self = _word$2; switch (self._) { case 'Word.o': - var $573 = self.pred; - var $574 = Word$o$(Word$shift_left$one$go$($573, Bool$false)); - var $572 = $574; + var $567 = self.pred; + var $568 = Word$o$(Word$shift_left$one$go$($567, Bool$false)); + var $566 = $568; break; case 'Word.i': - var $575 = self.pred; - var $576 = Word$o$(Word$shift_left$one$go$($575, Bool$true)); - var $572 = $576; + var $569 = self.pred; + var $570 = Word$o$(Word$shift_left$one$go$($569, Bool$true)); + var $566 = $570; break; case 'Word.e': - var $577 = Word$e; - var $572 = $577; + var $571 = Word$e; + var $566 = $571; break; }; - return $572; + return $566; }; const Word$shift_left$one = x0 => Word$shift_left$one$(x0); @@ -2831,12 +2812,12 @@ module.exports = (function() { var R = (() => { var self = _n$3; if (self === 0n) { - var $578 = _value$2; - return $578; + var $572 = _value$2; + return $572; } else { - var $579 = (self - 1n); - var $580 = Word$shift_left$(Word$shift_left$one$(_value$2), $579); - return $580; + var $573 = (self - 1n); + var $574 = Word$shift_left$(Word$shift_left$one$(_value$2), $573); + return $574; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -2858,16 +2839,16 @@ module.exports = (function() { var self = _a$3; switch (self._) { case 'Word.o': - var $581 = self.pred; - var $582 = Word$mul$go$($581, Word$shift_left$(_b$4, 1n), _acc$5); - return $582; + var $575 = self.pred; + var $576 = Word$mul$go$($575, Word$shift_left$(_b$4, 1n), _acc$5); + return $576; case 'Word.i': - var $583 = self.pred; - var $584 = Word$mul$go$($583, Word$shift_left$(_b$4, 1n), Word$add$(_b$4, _acc$5)); - return $584; + var $577 = self.pred; + var $578 = Word$mul$go$($577, Word$shift_left$(_b$4, 1n), Word$add$(_b$4, _acc$5)); + return $578; case 'Word.e': - var $585 = _acc$5; - return $585; + var $579 = _acc$5; + return $579; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -2880,27 +2861,27 @@ module.exports = (function() { var self = _word$2; switch (self._) { case 'Word.o': - var $587 = self.pred; - var $588 = Word$o$(Word$to_zero$($587)); - var $586 = $588; + var $581 = self.pred; + var $582 = Word$o$(Word$to_zero$($581)); + var $580 = $582; break; case 'Word.i': - var $589 = self.pred; - var $590 = Word$o$(Word$to_zero$($589)); - var $586 = $590; + var $583 = self.pred; + var $584 = Word$o$(Word$to_zero$($583)); + var $580 = $584; break; case 'Word.e': - var $591 = Word$e; - var $586 = $591; + var $585 = Word$e; + var $580 = $585; break; }; - return $586; + return $580; }; const Word$to_zero = x0 => Word$to_zero$(x0); function Word$mul$(_a$2, _b$3) { - var $592 = Word$mul$go$(_a$2, _b$3, Word$to_zero$(_a$2)); - return $592; + var $586 = Word$mul$go$(_a$2, _b$3, Word$to_zero$(_a$2)); + return $586; }; const Word$mul = x0 => x1 => Word$mul$(x0, x1); const U16$mul = a0 => a1 => ((a0 * a1) & 0xFFFF); @@ -2910,117 +2891,117 @@ module.exports = (function() { var self = _a$2; switch (self._) { case 'Word.o': - var $594 = self.pred; - var $595 = (_b$7 => { + var $588 = self.pred; + var $589 = (_b$7 => { var self = _b$7; switch (self._) { case 'Word.o': - var $597 = self.pred; - var $598 = (_a$pred$10 => { + var $591 = self.pred; + var $592 = (_a$pred$10 => { var self = _c$4; if (self) { - var $600 = Word$i$(Word$subber$(_a$pred$10, $597, Bool$true)); - var $599 = $600; + var $594 = Word$i$(Word$subber$(_a$pred$10, $591, Bool$true)); + var $593 = $594; } else { - var $601 = Word$o$(Word$subber$(_a$pred$10, $597, Bool$false)); - var $599 = $601; + var $595 = Word$o$(Word$subber$(_a$pred$10, $591, Bool$false)); + var $593 = $595; }; - return $599; + return $593; }); - var $596 = $598; + var $590 = $592; break; case 'Word.i': - var $602 = self.pred; - var $603 = (_a$pred$10 => { + var $596 = self.pred; + var $597 = (_a$pred$10 => { var self = _c$4; if (self) { - var $605 = Word$o$(Word$subber$(_a$pred$10, $602, Bool$true)); - var $604 = $605; + var $599 = Word$o$(Word$subber$(_a$pred$10, $596, Bool$true)); + var $598 = $599; } else { - var $606 = Word$i$(Word$subber$(_a$pred$10, $602, Bool$true)); - var $604 = $606; + var $600 = Word$i$(Word$subber$(_a$pred$10, $596, Bool$true)); + var $598 = $600; }; - return $604; + return $598; }); - var $596 = $603; + var $590 = $597; break; case 'Word.e': - var $607 = (_a$pred$8 => { - var $608 = Word$e; - return $608; + var $601 = (_a$pred$8 => { + var $602 = Word$e; + return $602; }); - var $596 = $607; + var $590 = $601; break; }; - var $596 = $596($594); - return $596; + var $590 = $590($588); + return $590; }); - var $593 = $595; + var $587 = $589; break; case 'Word.i': - var $609 = self.pred; - var $610 = (_b$7 => { + var $603 = self.pred; + var $604 = (_b$7 => { var self = _b$7; switch (self._) { case 'Word.o': - var $612 = self.pred; - var $613 = (_a$pred$10 => { + var $606 = self.pred; + var $607 = (_a$pred$10 => { var self = _c$4; if (self) { - var $615 = Word$o$(Word$subber$(_a$pred$10, $612, Bool$false)); - var $614 = $615; + var $609 = Word$o$(Word$subber$(_a$pred$10, $606, Bool$false)); + var $608 = $609; } else { - var $616 = Word$i$(Word$subber$(_a$pred$10, $612, Bool$false)); - var $614 = $616; + var $610 = Word$i$(Word$subber$(_a$pred$10, $606, Bool$false)); + var $608 = $610; }; - return $614; + return $608; }); - var $611 = $613; + var $605 = $607; break; case 'Word.i': - var $617 = self.pred; - var $618 = (_a$pred$10 => { + var $611 = self.pred; + var $612 = (_a$pred$10 => { var self = _c$4; if (self) { - var $620 = Word$i$(Word$subber$(_a$pred$10, $617, Bool$true)); - var $619 = $620; + var $614 = Word$i$(Word$subber$(_a$pred$10, $611, Bool$true)); + var $613 = $614; } else { - var $621 = Word$o$(Word$subber$(_a$pred$10, $617, Bool$false)); - var $619 = $621; + var $615 = Word$o$(Word$subber$(_a$pred$10, $611, Bool$false)); + var $613 = $615; }; - return $619; + return $613; }); - var $611 = $618; + var $605 = $612; break; case 'Word.e': - var $622 = (_a$pred$8 => { - var $623 = Word$e; - return $623; + var $616 = (_a$pred$8 => { + var $617 = Word$e; + return $617; }); - var $611 = $622; + var $605 = $616; break; }; - var $611 = $611($609); - return $611; + var $605 = $605($603); + return $605; }); - var $593 = $610; + var $587 = $604; break; case 'Word.e': - var $624 = (_b$5 => { - var $625 = Word$e; - return $625; + var $618 = (_b$5 => { + var $619 = Word$e; + return $619; }); - var $593 = $624; + var $587 = $618; break; }; - var $593 = $593(_b$3); - return $593; + var $587 = $587(_b$3); + return $587; }; const Word$subber = x0 => x1 => x2 => Word$subber$(x0, x1, x2); function Word$sub$(_a$2, _b$3) { - var $626 = Word$subber$(_a$2, _b$3, Bool$false); - return $626; + var $620 = Word$subber$(_a$2, _b$3, Bool$false); + return $620; }; const Word$sub = x0 => x1 => Word$sub$(x0, x1); const U16$sub = a0 => a1 => ((a0 - a1) & 0xFFFF); @@ -3029,33 +3010,33 @@ module.exports = (function() { function Char$hex_value16$(_chr$1) { var self = ((_chr$1 >= 48) && (_chr$1 <= 57)); if (self) { - var $628 = ((_chr$1 - 48) & 0xFFFF); - var $627 = $628; + var $622 = ((_chr$1 - 48) & 0xFFFF); + var $621 = $622; } else { var self = ((_chr$1 >= 97) && (_chr$1 <= 102)); if (self) { - var $630 = (_x0$2 => { - var $631 = ((((((((((((((((((((_x0$2 + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF); - return $631; + var $624 = (_x0$2 => { + var $625 = ((((((((((((((((((((_x0$2 + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF); + return $625; })(((_chr$1 - 97) & 0xFFFF)); - var $629 = $630; + var $623 = $624; } else { var self = ((_chr$1 >= 65) && (_chr$1 <= 70)); if (self) { - var $633 = (_x0$2 => { - var $634 = ((((((((((((((((((((_x0$2 + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF); - return $634; + var $627 = (_x0$2 => { + var $628 = ((((((((((((((((((((_x0$2 + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF) + 1) & 0xFFFF); + return $628; })(((_chr$1 - 65) & 0xFFFF)); - var $632 = $633; + var $626 = $627; } else { - var $635 = U16$zero; - var $632 = $635; + var $629 = U16$zero; + var $626 = $629; }; - var $629 = $632; + var $623 = $626; }; - var $627 = $629; + var $621 = $623; }; - return $627; + return $621; }; const Char$hex_value16 = x0 => Char$hex_value16$(x0); @@ -3071,21 +3052,21 @@ module.exports = (function() { var R = (() => { var self = _code$1; if (self.length === 0) { - var $636 = Pair$new$(_code$1, _u16$2); - return $636; + var $630 = Pair$new$(_code$1, _u16$2); + return $630; } else { - var $637 = self.charCodeAt(0); - var $638 = self.slice(1); - var self = Char$is_hex$($637); + var $631 = self.charCodeAt(0); + var $632 = self.slice(1); + var self = Char$is_hex$($631); if (self) { - var _u16$5 = ((((_u16$2 * 16) & 0xFFFF) + Char$hex_value16$($637)) & 0xFFFF); - var $640 = Kind$Core$read$u16$($638, _u16$5); - var $639 = $640; + var _u16$5 = ((((_u16$2 * 16) & 0xFFFF) + Char$hex_value16$($631)) & 0xFFFF); + var $634 = Kind$Core$read$u16$($632, _u16$5); + var $633 = $634; } else { - var $641 = Pair$new$(_code$1, _u16$2); - var $639 = $641; + var $635 = Pair$new$(_code$1, _u16$2); + var $633 = $635; }; - return $639; + return $633; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -3101,178 +3082,178 @@ module.exports = (function() { var self = Kind$Core$read$u16$(_code$2, 0); switch (self._) { case 'Pair.new': - var $644 = self.fst; - var $645 = self.snd; - var self = String$starts_with$($644, "}"); + var $638 = self.fst; + var $639 = self.snd; + var self = String$starts_with$($638, "}"); if (self) { - var $647 = Pair$new$(String$drop$(1n, $644), $645); - var $646 = $647; + var $641 = Pair$new$(String$drop$(1n, $638), $639); + var $640 = $641; } else { - var $648 = Pair$new$("", 63); - var $646 = $648; + var $642 = Pair$new$("", 63); + var $640 = $642; }; - var $643 = $646; + var $637 = $640; break; }; - var $642 = $643; + var $636 = $637; } else { var self = String$starts_with$(_code$1, "\\\'"); if (self) { - var $650 = Pair$new$(String$drop$(2n, _code$1), 39); - var $649 = $650; + var $644 = Pair$new$(String$drop$(2n, _code$1), 39); + var $643 = $644; } else { var self = String$starts_with$(_code$1, "\\\""); if (self) { - var $652 = Pair$new$(String$drop$(2n, _code$1), 34); - var $651 = $652; + var $646 = Pair$new$(String$drop$(2n, _code$1), 34); + var $645 = $646; } else { var self = String$starts_with$(_code$1, "\\\\"); if (self) { - var $654 = Pair$new$(String$drop$(2n, _code$1), 92); - var $653 = $654; + var $648 = Pair$new$(String$drop$(2n, _code$1), 92); + var $647 = $648; } else { var self = _code$1; if (self.length === 0) { - var $656 = Pair$new$("", 63); - var $655 = $656; + var $650 = Pair$new$("", 63); + var $649 = $650; } else { - var $657 = self.charCodeAt(0); - var $658 = self.slice(1); - var $659 = Pair$new$($658, $657); - var $655 = $659; + var $651 = self.charCodeAt(0); + var $652 = self.slice(1); + var $653 = Pair$new$($652, $651); + var $649 = $653; }; - var $653 = $655; + var $647 = $649; }; - var $651 = $653; + var $645 = $647; }; - var $649 = $651; + var $643 = $645; }; - var $642 = $649; + var $636 = $643; }; - return $642; + return $636; }; const Kind$Core$read$chrx = x0 => Kind$Core$read$chrx$(x0); function Kind$Term$chr$(_chrx$1) { - var $660 = ({ + var $654 = ({ _: 'Kind.Term.chr', 'chrx': _chrx$1 }); - return $660; + return $654; }; const Kind$Term$chr = x0 => Kind$Term$chr$(x0); function Kind$Core$read$strx$(_code$1) { var self = String$starts_with$(_code$1, "\""); if (self) { - var $662 = Pair$new$(_code$1, ""); - var $661 = $662; + var $656 = Pair$new$(_code$1, ""); + var $655 = $656; } else { var self = Kind$Core$read$chrx$(_code$1); switch (self._) { case 'Pair.new': - var $664 = self.fst; - var $665 = self.snd; - var self = Kind$Core$read$strx$($664); + var $658 = self.fst; + var $659 = self.snd; + var self = Kind$Core$read$strx$($658); switch (self._) { case 'Pair.new': - var $667 = self.fst; - var $668 = self.snd; - var $669 = Pair$new$($667, String$cons$($665, $668)); - var $666 = $669; + var $661 = self.fst; + var $662 = self.snd; + var $663 = Pair$new$($661, String$cons$($659, $662)); + var $660 = $663; break; }; - var $663 = $666; + var $657 = $660; break; }; - var $661 = $663; + var $655 = $657; }; - return $661; + return $655; }; const Kind$Core$read$strx = x0 => Kind$Core$read$strx$(x0); function Kind$Term$str$(_strx$1) { - var $670 = ({ + var $664 = ({ _: 'Kind.Term.str', 'strx': _strx$1 }); - return $670; + return $664; }; const Kind$Term$str = x0 => Kind$Term$str$(x0); function Char$dec_value$(_chr$1) { var self = (_chr$1 === 48); if (self) { - var $672 = 0n; - var $671 = $672; + var $666 = 0n; + var $665 = $666; } else { var self = (_chr$1 === 49); if (self) { - var $674 = 1n; - var $673 = $674; + var $668 = 1n; + var $667 = $668; } else { var self = (_chr$1 === 50); if (self) { - var $676 = 2n; - var $675 = $676; + var $670 = 2n; + var $669 = $670; } else { var self = (_chr$1 === 51); if (self) { - var $678 = 3n; - var $677 = $678; + var $672 = 3n; + var $671 = $672; } else { var self = (_chr$1 === 52); if (self) { - var $680 = 4n; - var $679 = $680; + var $674 = 4n; + var $673 = $674; } else { var self = (_chr$1 === 53); if (self) { - var $682 = 5n; - var $681 = $682; + var $676 = 5n; + var $675 = $676; } else { var self = (_chr$1 === 54); if (self) { - var $684 = 6n; - var $683 = $684; + var $678 = 6n; + var $677 = $678; } else { var self = (_chr$1 === 55); if (self) { - var $686 = 7n; - var $685 = $686; + var $680 = 7n; + var $679 = $680; } else { var self = (_chr$1 === 56); if (self) { - var $688 = 8n; - var $687 = $688; + var $682 = 8n; + var $681 = $682; } else { var self = (_chr$1 === 57); if (self) { - var $690 = 9n; - var $689 = $690; + var $684 = 9n; + var $683 = $684; } else { - var $691 = 0n; - var $689 = $691; + var $685 = 0n; + var $683 = $685; }; - var $687 = $689; + var $681 = $683; }; - var $685 = $687; + var $679 = $681; }; - var $683 = $685; + var $677 = $679; }; - var $681 = $683; + var $675 = $677; }; - var $679 = $681; + var $673 = $675; }; - var $677 = $679; + var $671 = $673; }; - var $675 = $677; + var $669 = $671; }; - var $673 = $675; + var $667 = $669; }; - var $671 = $673; + var $665 = $667; }; - return $671; + return $665; }; const Char$dec_value = x0 => Char$dec_value$(x0); @@ -3288,21 +3269,21 @@ module.exports = (function() { var R = (() => { var self = _code$1; if (self.length === 0) { - var $692 = Pair$new$(_code$1, _nat$2); - return $692; + var $686 = Pair$new$(_code$1, _nat$2); + return $686; } else { - var $693 = self.charCodeAt(0); - var $694 = self.slice(1); - var self = Char$is_hex$($693); + var $687 = self.charCodeAt(0); + var $688 = self.slice(1); + var self = Char$is_hex$($687); if (self) { - var _nat$5 = ((_nat$2 * 10n) + Char$dec_value$($693)); - var $696 = Kind$Core$read$natx$($694, _nat$5); - var $695 = $696; + var _nat$5 = ((_nat$2 * 10n) + Char$dec_value$($687)); + var $690 = Kind$Core$read$natx$($688, _nat$5); + var $689 = $690; } else { - var $697 = Pair$new$(_code$1, _nat$2); - var $695 = $697; + var $691 = Pair$new$(_code$1, _nat$2); + var $689 = $691; }; - return $695; + return $689; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -3312,11 +3293,11 @@ module.exports = (function() { const Kind$Core$read$natx = x0 => x1 => Kind$Core$read$natx$(x0, x1); function Kind$Term$nat$(_natx$1) { - var $698 = ({ + var $692 = ({ _: 'Kind.Term.nat', 'natx': _natx$1 }); - return $698; + return $692; }; const Kind$Term$nat = x0 => Kind$Term$nat$(x0); @@ -3324,12 +3305,12 @@ module.exports = (function() { var self = _pair$3; switch (self._) { case 'Pair.new': - var $700 = self.fst; - var $701 = $700; - var $699 = $701; + var $694 = self.fst; + var $695 = $694; + var $693 = $695; break; }; - return $699; + return $693; }; const Pair$fst = x0 => Pair$fst$(x0); const Nat$eql = a0 => a1 => (a0 === a1); @@ -3337,14 +3318,14 @@ module.exports = (function() { function Nat$pred$(_n$1) { var self = _n$1; if (self === 0n) { - var $703 = Nat$zero; - var $702 = $703; + var $697 = Nat$zero; + var $696 = $697; } else { - var $704 = (self - 1n); - var $705 = $704; - var $702 = $705; + var $698 = (self - 1n); + var $699 = $698; + var $696 = $699; }; - return $702; + return $696; }; const Nat$pred = x0 => Nat$pred$(x0); @@ -3361,27 +3342,27 @@ module.exports = (function() { var self = _list$2; switch (self._) { case 'List.cons': - var $706 = self.head; - var $707 = self.tail; - var self = _cond$3($706)(_indx$4); + var $700 = self.head; + var $701 = self.tail; + var self = _cond$3($700)(_indx$4); if (self) { var self = (_skip$5 === 0n); if (self) { - var $710 = Maybe$some$(Pair$new$($706, _indx$4)); - var $709 = $710; + var $704 = Maybe$some$(Pair$new$($700, _indx$4)); + var $703 = $704; } else { - var $711 = Kind$Core$read$find$($707, _cond$3, Nat$succ$(_indx$4), Nat$pred$(_skip$5)); - var $709 = $711; + var $705 = Kind$Core$read$find$($701, _cond$3, Nat$succ$(_indx$4), Nat$pred$(_skip$5)); + var $703 = $705; }; - var $708 = $709; + var $702 = $703; } else { - var $712 = Kind$Core$read$find$($707, _cond$3, Nat$succ$(_indx$4), _skip$5); - var $708 = $712; + var $706 = Kind$Core$read$find$($701, _cond$3, Nat$succ$(_indx$4), _skip$5); + var $702 = $706; }; - return $708; + return $702; case 'List.nil': - var $713 = Maybe$none; - return $713; + var $707 = Maybe$none; + return $707; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -3394,12 +3375,12 @@ module.exports = (function() { var self = _pair$3; switch (self._) { case 'Pair.new': - var $715 = self.snd; - var $716 = $715; - var $714 = $716; + var $709 = self.snd; + var $710 = $709; + var $708 = $710; break; }; - return $714; + return $708; }; const Pair$snd = x0 => Pair$snd$(x0); @@ -3407,501 +3388,501 @@ module.exports = (function() { var self = Kind$Core$read$spaces$(_code$1); switch (self._) { case 'Pair.new': - var $718 = self.fst; - var self = $718; + var $712 = self.fst; + var self = $712; if (self.length === 0) { - var $720 = Pair$new$("", (_ctx$4 => { - var $721 = Kind$Term$ref$("error"); - return $721; + var $714 = Pair$new$("", (_ctx$4 => { + var $715 = Kind$Term$ref$("error"); + return $715; })); - var $719 = $720; + var $713 = $714; } else { - var $722 = self.charCodeAt(0); - var $723 = self.slice(1); - var _head$6 = $722; - var _code$7 = $723; + var $716 = self.charCodeAt(0); + var $717 = self.slice(1); + var _head$6 = $716; + var _code$7 = $717; var self = Char$eql$(_head$6, 42); if (self) { - var $725 = Pair$new$(_code$7, (_ctx$8 => { - var $726 = Kind$Term$typ; - return $726; + var $719 = Pair$new$(_code$7, (_ctx$8 => { + var $720 = Kind$Term$typ; + return $720; })); - var $724 = $725; + var $718 = $719; } else { var self = (_head$6 === 64); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $729 = self.fst; - var $730 = self.snd; - var self = Kind$Core$read$char$($729, 40); + var $723 = self.fst; + var $724 = self.snd; + var self = Kind$Core$read$char$($723, 40); switch (self._) { case 'Pair.new': - var $732 = self.fst; - var self = Kind$Core$read$name$($732); + var $726 = self.fst; + var self = Kind$Core$read$name$($726); switch (self._) { case 'Pair.new': - var $734 = self.fst; - var $735 = self.snd; - var self = Kind$Core$read$char$($734, 58); + var $728 = self.fst; + var $729 = self.snd; + var self = Kind$Core$read$char$($728, 58); switch (self._) { case 'Pair.new': - var $737 = self.fst; - var self = Kind$Core$read$term$($737); + var $731 = self.fst; + var self = Kind$Core$read$term$($731); switch (self._) { case 'Pair.new': - var $739 = self.fst; - var $740 = self.snd; - var self = Kind$Core$read$char$($739, 41); + var $733 = self.fst; + var $734 = self.snd; + var self = Kind$Core$read$char$($733, 41); switch (self._) { case 'Pair.new': - var $742 = self.fst; - var self = Kind$Core$read$term$($742); + var $736 = self.fst; + var self = Kind$Core$read$term$($736); switch (self._) { case 'Pair.new': - var $744 = self.fst; - var $745 = self.snd; - var $746 = Pair$new$($744, (_ctx$22 => { - var $747 = Kind$Term$all$(Bool$false, $730, $735, $740(_ctx$22), (_s$23 => _x$24 => { - var $748 = $745(List$cons$(Pair$new$($735, _x$24), List$cons$(Pair$new$($730, _s$23), _ctx$22))); - return $748; + var $738 = self.fst; + var $739 = self.snd; + var $740 = Pair$new$($738, (_ctx$22 => { + var $741 = Kind$Term$all$(Bool$false, $724, $729, $734(_ctx$22), (_s$23 => _x$24 => { + var $742 = $739(List$cons$(Pair$new$($729, _x$24), List$cons$(Pair$new$($724, _s$23), _ctx$22))); + return $742; })); - return $747; + return $741; })); - var $743 = $746; + var $737 = $740; break; }; - var $741 = $743; + var $735 = $737; break; }; - var $738 = $741; + var $732 = $735; break; }; - var $736 = $738; + var $730 = $732; break; }; - var $733 = $736; + var $727 = $730; break; }; - var $731 = $733; + var $725 = $727; break; }; - var $728 = $731; + var $722 = $725; break; }; - var $727 = $728; + var $721 = $722; } else { var self = (_head$6 === 37); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $751 = self.fst; - var $752 = self.snd; - var self = Kind$Core$read$char$($751, 40); + var $745 = self.fst; + var $746 = self.snd; + var self = Kind$Core$read$char$($745, 40); switch (self._) { case 'Pair.new': - var $754 = self.fst; - var self = Kind$Core$read$name$($754); + var $748 = self.fst; + var self = Kind$Core$read$name$($748); switch (self._) { case 'Pair.new': - var $756 = self.fst; - var $757 = self.snd; - var self = Kind$Core$read$char$($756, 58); + var $750 = self.fst; + var $751 = self.snd; + var self = Kind$Core$read$char$($750, 58); switch (self._) { case 'Pair.new': - var $759 = self.fst; - var self = Kind$Core$read$term$($759); + var $753 = self.fst; + var self = Kind$Core$read$term$($753); switch (self._) { case 'Pair.new': - var $761 = self.fst; - var $762 = self.snd; - var self = Kind$Core$read$char$($761, 41); + var $755 = self.fst; + var $756 = self.snd; + var self = Kind$Core$read$char$($755, 41); switch (self._) { case 'Pair.new': - var $764 = self.fst; - var self = Kind$Core$read$term$($764); + var $758 = self.fst; + var self = Kind$Core$read$term$($758); switch (self._) { case 'Pair.new': - var $766 = self.fst; - var $767 = self.snd; - var $768 = Pair$new$($766, (_ctx$22 => { - var $769 = Kind$Term$all$(Bool$true, $752, $757, $762(_ctx$22), (_s$23 => _x$24 => { - var $770 = $767(List$cons$(Pair$new$($757, _x$24), List$cons$(Pair$new$($752, _s$23), _ctx$22))); - return $770; + var $760 = self.fst; + var $761 = self.snd; + var $762 = Pair$new$($760, (_ctx$22 => { + var $763 = Kind$Term$all$(Bool$true, $746, $751, $756(_ctx$22), (_s$23 => _x$24 => { + var $764 = $761(List$cons$(Pair$new$($751, _x$24), List$cons$(Pair$new$($746, _s$23), _ctx$22))); + return $764; })); - return $769; + return $763; })); - var $765 = $768; + var $759 = $762; break; }; - var $763 = $765; + var $757 = $759; break; }; - var $760 = $763; + var $754 = $757; break; }; - var $758 = $760; + var $752 = $754; break; }; - var $755 = $758; + var $749 = $752; break; }; - var $753 = $755; + var $747 = $749; break; }; - var $750 = $753; + var $744 = $747; break; }; - var $749 = $750; + var $743 = $744; } else { var self = (_head$6 === 35); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $773 = self.fst; - var $774 = self.snd; - var self = Kind$Core$read$term$($773); + var $767 = self.fst; + var $768 = self.snd; + var self = Kind$Core$read$term$($767); switch (self._) { case 'Pair.new': - var $776 = self.fst; - var $777 = self.snd; - var $778 = Pair$new$($776, (_ctx$12 => { - var $779 = Kind$Term$lam$($774, (_x$13 => { - var $780 = $777(List$cons$(Pair$new$($774, _x$13), _ctx$12)); - return $780; + var $770 = self.fst; + var $771 = self.snd; + var $772 = Pair$new$($770, (_ctx$12 => { + var $773 = Kind$Term$lam$($768, (_x$13 => { + var $774 = $771(List$cons$(Pair$new$($768, _x$13), _ctx$12)); + return $774; })); - return $779; + return $773; })); - var $775 = $778; + var $769 = $772; break; }; - var $772 = $775; + var $766 = $769; break; }; - var $771 = $772; + var $765 = $766; } else { var self = (_head$6 === 40); if (self) { var self = Kind$Core$read$term$(_code$7); switch (self._) { case 'Pair.new': - var $783 = self.fst; - var $784 = self.snd; - var self = Kind$Core$read$term$($783); + var $777 = self.fst; + var $778 = self.snd; + var self = Kind$Core$read$term$($777); switch (self._) { case 'Pair.new': - var $786 = self.fst; - var $787 = self.snd; - var self = Kind$Core$read$char$($786, 41); + var $780 = self.fst; + var $781 = self.snd; + var self = Kind$Core$read$char$($780, 41); switch (self._) { case 'Pair.new': - var $789 = self.fst; - var $790 = Pair$new$($789, (_ctx$14 => { - var $791 = Kind$Term$app$($784(_ctx$14), $787(_ctx$14)); - return $791; + var $783 = self.fst; + var $784 = Pair$new$($783, (_ctx$14 => { + var $785 = Kind$Term$app$($778(_ctx$14), $781(_ctx$14)); + return $785; })); - var $788 = $790; + var $782 = $784; break; }; - var $785 = $788; + var $779 = $782; break; }; - var $782 = $785; + var $776 = $779; break; }; - var $781 = $782; + var $775 = $776; } else { var self = (_head$6 === 33); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $794 = self.fst; - var $795 = self.snd; - var self = Kind$Core$read$char$($794, 61); + var $788 = self.fst; + var $789 = self.snd; + var self = Kind$Core$read$char$($788, 61); switch (self._) { case 'Pair.new': - var $797 = self.fst; - var self = Kind$Core$read$term$($797); + var $791 = self.fst; + var self = Kind$Core$read$term$($791); switch (self._) { case 'Pair.new': - var $799 = self.fst; - var $800 = self.snd; - var self = Kind$Core$read$char$($799, 59); + var $793 = self.fst; + var $794 = self.snd; + var self = Kind$Core$read$char$($793, 59); switch (self._) { case 'Pair.new': - var $802 = self.fst; - var self = Kind$Core$read$term$($802); + var $796 = self.fst; + var self = Kind$Core$read$term$($796); switch (self._) { case 'Pair.new': - var $804 = self.fst; - var $805 = self.snd; - var $806 = Pair$new$($804, (_ctx$18 => { - var $807 = Kind$Term$let$($795, $800(_ctx$18), (_x$19 => { - var $808 = $805(List$cons$(Pair$new$($795, _x$19), _ctx$18)); - return $808; + var $798 = self.fst; + var $799 = self.snd; + var $800 = Pair$new$($798, (_ctx$18 => { + var $801 = Kind$Term$let$($789, $794(_ctx$18), (_x$19 => { + var $802 = $799(List$cons$(Pair$new$($789, _x$19), _ctx$18)); + return $802; })); - return $807; + return $801; })); - var $803 = $806; + var $797 = $800; break; }; - var $801 = $803; + var $795 = $797; break; }; - var $798 = $801; + var $792 = $795; break; }; - var $796 = $798; + var $790 = $792; break; }; - var $793 = $796; + var $787 = $790; break; }; - var $792 = $793; + var $786 = $787; } else { var self = (_head$6 === 36); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $811 = self.fst; - var $812 = self.snd; - var self = Kind$Core$read$char$($811, 61); + var $805 = self.fst; + var $806 = self.snd; + var self = Kind$Core$read$char$($805, 61); switch (self._) { case 'Pair.new': - var $814 = self.fst; - var self = Kind$Core$read$term$($814); + var $808 = self.fst; + var self = Kind$Core$read$term$($808); switch (self._) { case 'Pair.new': - var $816 = self.fst; - var $817 = self.snd; - var self = Kind$Core$read$char$($816, 59); + var $810 = self.fst; + var $811 = self.snd; + var self = Kind$Core$read$char$($810, 59); switch (self._) { case 'Pair.new': - var $819 = self.fst; - var self = Kind$Core$read$term$($819); + var $813 = self.fst; + var self = Kind$Core$read$term$($813); switch (self._) { case 'Pair.new': - var $821 = self.fst; - var $822 = self.snd; - var $823 = Pair$new$($821, (_ctx$18 => { - var $824 = Kind$Term$def$($812, $817(_ctx$18), (_x$19 => { - var $825 = $822(List$cons$(Pair$new$($812, _x$19), _ctx$18)); - return $825; + var $815 = self.fst; + var $816 = self.snd; + var $817 = Pair$new$($815, (_ctx$18 => { + var $818 = Kind$Term$def$($806, $811(_ctx$18), (_x$19 => { + var $819 = $816(List$cons$(Pair$new$($806, _x$19), _ctx$18)); + return $819; })); - return $824; + return $818; })); - var $820 = $823; + var $814 = $817; break; }; - var $818 = $820; + var $812 = $814; break; }; - var $815 = $818; + var $809 = $812; break; }; - var $813 = $815; + var $807 = $809; break; }; - var $810 = $813; + var $804 = $807; break; }; - var $809 = $810; + var $803 = $804; } else { var self = (_head$6 === 123); if (self) { var self = Kind$Core$read$term$(_code$7); switch (self._) { case 'Pair.new': - var $828 = self.fst; - var $829 = self.snd; - var self = Kind$Core$read$char$($828, 58); + var $822 = self.fst; + var $823 = self.snd; + var self = Kind$Core$read$char$($822, 58); switch (self._) { case 'Pair.new': - var $831 = self.fst; - var self = Kind$Core$read$term$($831); + var $825 = self.fst; + var self = Kind$Core$read$term$($825); switch (self._) { case 'Pair.new': - var $833 = self.fst; - var $834 = self.snd; - var self = Kind$Core$read$char$($833, 125); + var $827 = self.fst; + var $828 = self.snd; + var self = Kind$Core$read$char$($827, 125); switch (self._) { case 'Pair.new': - var $836 = self.fst; - var $837 = Pair$new$($836, (_ctx$16 => { - var $838 = Kind$Term$ann$(Bool$false, $829(_ctx$16), $834(_ctx$16)); - return $838; + var $830 = self.fst; + var $831 = Pair$new$($830, (_ctx$16 => { + var $832 = Kind$Term$ann$(Bool$false, $823(_ctx$16), $828(_ctx$16)); + return $832; })); - var $835 = $837; + var $829 = $831; break; }; - var $832 = $835; + var $826 = $829; break; }; - var $830 = $832; + var $824 = $826; break; }; - var $827 = $830; + var $821 = $824; break; }; - var $826 = $827; + var $820 = $821; } else { var self = (_head$6 === 39); if (self) { var self = Kind$Core$read$chrx$(_code$7); switch (self._) { case 'Pair.new': - var $841 = self.fst; - var $842 = self.snd; - var self = Kind$Core$read$char$($841, 39); + var $835 = self.fst; + var $836 = self.snd; + var self = Kind$Core$read$char$($835, 39); switch (self._) { case 'Pair.new': - var $844 = self.fst; - var $845 = Pair$new$($844, (_ctx$12 => { - var $846 = Kind$Term$chr$($842); - return $846; + var $838 = self.fst; + var $839 = Pair$new$($838, (_ctx$12 => { + var $840 = Kind$Term$chr$($836); + return $840; })); - var $843 = $845; + var $837 = $839; break; }; - var $840 = $843; + var $834 = $837; break; }; - var $839 = $840; + var $833 = $834; } else { var self = (_head$6 === 34); if (self) { var self = Kind$Core$read$strx$(_code$7); switch (self._) { case 'Pair.new': - var $849 = self.fst; - var $850 = self.snd; - var self = Kind$Core$read$char$($849, 34); + var $843 = self.fst; + var $844 = self.snd; + var self = Kind$Core$read$char$($843, 34); switch (self._) { case 'Pair.new': - var $852 = self.fst; - var $853 = Pair$new$($852, (_ctx$12 => { - var $854 = Kind$Term$str$($850); - return $854; + var $846 = self.fst; + var $847 = Pair$new$($846, (_ctx$12 => { + var $848 = Kind$Term$str$($844); + return $848; })); - var $851 = $853; + var $845 = $847; break; }; - var $848 = $851; + var $842 = $845; break; }; - var $847 = $848; + var $841 = $842; } else { var self = (_head$6 === 43); if (self) { var self = Kind$Core$read$natx$(_code$7, 0n); switch (self._) { case 'Pair.new': - var $857 = self.fst; - var $858 = self.snd; - var $859 = Pair$new$($857, (_ctx$10 => { - var $860 = Kind$Term$nat$($858); - return $860; + var $851 = self.fst; + var $852 = self.snd; + var $853 = Pair$new$($851, (_ctx$10 => { + var $854 = Kind$Term$nat$($852); + return $854; })); - var $856 = $859; + var $850 = $853; break; }; - var $855 = $856; + var $849 = $850; } else { var self = Kind$Core$read$is_name$(_head$6); if (self) { var self = Kind$Core$read$name$(_code$7); switch (self._) { case 'Pair.new': - var $863 = self.fst; - var $864 = self.snd; - var _name$10 = String$cons$(_head$6, $864); - var self = $863; + var $857 = self.fst; + var $858 = self.snd; + var _name$10 = String$cons$(_head$6, $858); + var self = $857; if (self.length === 0) { - var $866 = Pair$new$("", 0n); - var self = $866; + var $860 = Pair$new$("", 0n); + var self = $860; } else { - var $867 = self.charCodeAt(0); - var $868 = self.slice(1); - var self = ($867 === 94); + var $861 = self.charCodeAt(0); + var $862 = self.slice(1); + var self = ($861 === 94); if (self) { - var $870 = Kind$Core$read$natx$($868, 0n); - var $869 = $870; + var $864 = Kind$Core$read$natx$($862, 0n); + var $863 = $864; } else { - var $871 = Pair$new$($863, 0n); - var $869 = $871; + var $865 = Pair$new$($857, 0n); + var $863 = $865; }; - var self = $869; + var self = $863; }; switch (self._) { case 'Pair.new': - var $872 = self.fst; - var $873 = self.snd; - var $874 = Pair$new$($872, (_ctx$13 => { + var $866 = self.fst; + var $867 = self.snd; + var $868 = Pair$new$($866, (_ctx$13 => { var _got$14 = Kind$Core$read$find$(_ctx$13, (_x$14 => _i$15 => { - var $876 = (Pair$fst$(_x$14) === _name$10); - return $876; - }), 0n, $873); + var $870 = (Pair$fst$(_x$14) === _name$10); + return $870; + }), 0n, $867); var self = _got$14; switch (self._) { case 'Maybe.some': - var $877 = self.value; - var $878 = Pair$snd$(Pair$fst$($877)); - var $875 = $878; + var $871 = self.value; + var $872 = Pair$snd$(Pair$fst$($871)); + var $869 = $872; break; case 'Maybe.none': - var $879 = Kind$Term$ref$(_name$10); - var $875 = $879; + var $873 = Kind$Term$ref$(_name$10); + var $869 = $873; break; }; - return $875; + return $869; })); - var $865 = $874; + var $859 = $868; break; }; - var $862 = $865; + var $856 = $859; break; }; - var $861 = $862; + var $855 = $856; } else { - var $880 = Pair$new$("", (_ctx$8 => { - var $881 = Kind$Term$ref$("error"); - return $881; + var $874 = Pair$new$("", (_ctx$8 => { + var $875 = Kind$Term$ref$("error"); + return $875; })); - var $861 = $880; + var $855 = $874; }; - var $855 = $861; + var $849 = $855; }; - var $847 = $855; + var $841 = $849; }; - var $839 = $847; + var $833 = $841; }; - var $826 = $839; + var $820 = $833; }; - var $809 = $826; + var $803 = $820; }; - var $792 = $809; + var $786 = $803; }; - var $781 = $792; + var $775 = $786; }; - var $771 = $781; + var $765 = $775; }; - var $749 = $771; + var $743 = $765; }; - var $727 = $749; + var $721 = $743; }; - var $724 = $727; + var $718 = $721; }; - var $719 = $724; + var $713 = $718; }; - var $717 = $719; + var $711 = $713; break; }; - return $717; + return $711; }; const Kind$Core$read$term = x0 => Kind$Core$read$term$(x0); @@ -3909,56 +3890,56 @@ module.exports = (function() { var self = Kind$Core$read$term$((_code$1 + ";")); switch (self._) { case 'Pair.new': - var $883 = self.fst; - var $884 = self.snd; - var self = $883; + var $877 = self.fst; + var $878 = self.snd; + var self = $877; if (self.length === 0) { - var $886 = Maybe$none; - var $885 = $886; + var $880 = Maybe$none; + var $879 = $880; } else { - var $887 = self.charCodeAt(0); - var $888 = self.slice(1); - var $889 = Maybe$some$($884(List$nil)); - var $885 = $889; + var $881 = self.charCodeAt(0); + var $882 = self.slice(1); + var $883 = Maybe$some$($878(List$nil)); + var $879 = $883; }; - var $882 = $885; + var $876 = $879; break; }; - return $882; + return $876; }; const Kind$Core$read = x0 => Kind$Core$read$(x0); function Bool$read$(_code$1) { var self = (_code$1 === "Bool.true"); if (self) { - var $891 = Maybe$some$(Bool$true); - var $890 = $891; + var $885 = Maybe$some$(Bool$true); + var $884 = $885; } else { var self = (_code$1 === "Bool.false"); if (self) { - var $893 = Maybe$some$(Bool$false); - var $892 = $893; + var $887 = Maybe$some$(Bool$false); + var $886 = $887; } else { - var $894 = Maybe$none; - var $892 = $894; + var $888 = Maybe$none; + var $886 = $888; }; - var $890 = $892; + var $884 = $886; }; - return $890; + return $884; }; const Bool$read = x0 => Bool$read$(x0); function Kind$Status$done$(_cached$1) { - var $895 = ({ + var $889 = ({ _: 'Kind.Status.done', 'cached': _cached$1 }); - return $895; + return $889; }; const Kind$Status$done = x0 => Kind$Status$done$(x0); function Kind$Def$new$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _stat$9) { - var $896 = ({ + var $890 = ({ _: 'Kind.Def.new', 'file': _file$1, 'code': _code$2, @@ -3970,123 +3951,123 @@ module.exports = (function() { 'arit': _arit$8, 'stat': _stat$9 }); - return $896; + return $890; }; const Kind$Def$new = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => Kind$Def$new$(x0, x1, x2, x3, x4, x5, x6, x7, x8); function Kind$Synth$load$cached$def$(_name$1) { - var $897 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $898 = _m$bind$2; - return $898; + var $891 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $892 = _m$bind$2; + return $892; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".file")))((_cache_file$2 => { var self = (!String$is_empty$(_cache_file$2)); if (self) { - var $900 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $901 = _m$bind$3; - return $901; + var $894 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $895 = _m$bind$3; + return $895; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".time")))((_cache_time$3 => { - var $902 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $903 = _m$bind$4; - return $903; + var $896 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $897 = _m$bind$4; + return $897; }))(IO$get_file_mtime$(_cache_file$2))((_cache_file_time$4 => { var self = (_cache_time$3 === _cache_file_time$4); if (self) { - var $905 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $906 = _m$bind$5; - return $906; + var $899 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $900 = _m$bind$5; + return $900; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".term")))((_cache_term$5 => { - var $907 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $908 = _m$bind$6; - return $908; + var $901 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $902 = _m$bind$6; + return $902; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".type")))((_cache_type$6 => { - var $909 = IO$monad$((_m$bind$7 => _m$pure$8 => { - var $910 = _m$bind$7; - return $910; + var $903 = IO$monad$((_m$bind$7 => _m$pure$8 => { + var $904 = _m$bind$7; + return $904; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".isct")))((_cache_isct$7 => { - var $911 = IO$monad$((_m$bind$8 => _m$pure$9 => { - var $912 = _m$bind$8; - return $912; + var $905 = IO$monad$((_m$bind$8 => _m$pure$9 => { + var $906 = _m$bind$8; + return $906; }))(Kind$Synth$load$cached$get_file$((_name$1 + ".arit")))((_cache_arit$8 => { - var $913 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $914 = _m$pure$10; - return $914; + var $907 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $908 = _m$pure$10; + return $908; }))((() => { var _file$9 = _cache_file$2; var _code$10 = ""; var _orig$11 = Pair$new$(0n, 0n); - var $915 = Maybe$monad$((_m$bind$12 => _m$pure$13 => { - var $916 = _m$bind$12; - return $916; + var $909 = Maybe$monad$((_m$bind$12 => _m$pure$13 => { + var $910 = _m$bind$12; + return $910; }))(Kind$Core$read$(_cache_term$5))((_term$12 => { - var $917 = Maybe$monad$((_m$bind$13 => _m$pure$14 => { - var $918 = _m$bind$13; - return $918; + var $911 = Maybe$monad$((_m$bind$13 => _m$pure$14 => { + var $912 = _m$bind$13; + return $912; }))(Kind$Core$read$(_cache_type$6))((_type$13 => { - var $919 = Maybe$monad$((_m$bind$14 => _m$pure$15 => { - var $920 = _m$bind$14; - return $920; + var $913 = Maybe$monad$((_m$bind$14 => _m$pure$15 => { + var $914 = _m$bind$14; + return $914; }))(Bool$read$(_cache_isct$7))((_isct$14 => { - var $921 = Maybe$monad$((_m$bind$15 => _m$pure$16 => { - var $922 = _m$bind$15; - return $922; + var $915 = Maybe$monad$((_m$bind$15 => _m$pure$16 => { + var $916 = _m$bind$15; + return $916; }))(Maybe$some$((BigInt(_cache_arit$8))))((_arit$15 => { var _stat$16 = Kind$Status$done$(Bool$true); - var $923 = Maybe$monad$((_m$bind$17 => _m$pure$18 => { - var $924 = _m$pure$18; - return $924; + var $917 = Maybe$monad$((_m$bind$17 => _m$pure$18 => { + var $918 = _m$pure$18; + return $918; }))(Kind$Def$new$(_file$9, _code$10, _orig$11, _name$1, _term$12, _type$13, _isct$14, _arit$15, _stat$16)); - return $923; + return $917; })); - return $921; + return $915; })); - return $919; + return $913; })); - return $917; + return $911; })); - return $915; + return $909; })()); - return $913; + return $907; })); - return $911; + return $905; })); - return $909; + return $903; })); - return $907; + return $901; })); - var $904 = $905; + var $898 = $899; } else { - var $925 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $926 = _m$pure$6; - return $926; + var $919 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $920 = _m$pure$6; + return $920; }))(Maybe$none); - var $904 = $925; + var $898 = $919; }; - return $904; + return $898; })); - return $902; + return $896; })); - var $899 = $900; + var $893 = $894; } else { - var $927 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $928 = _m$pure$4; - return $928; + var $921 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $922 = _m$pure$4; + return $922; }))(Maybe$none); - var $899 = $927; + var $893 = $921; }; - return $899; + return $893; })); - return $897; + return $891; }; const Kind$Synth$load$cached$def = x0 => Kind$Synth$load$cached$def$(x0); function BitsMap$tie$(_val$2, _lft$3, _rgt$4) { - var $929 = ({ + var $923 = ({ _: 'BitsMap.tie', 'val': _val$2, 'lft': _lft$3, 'rgt': _rgt$4 }); - return $929; + return $923; }; const BitsMap$tie = x0 => x1 => x2 => BitsMap$tie$(x0, x1, x2); const BitsMap$new = ({ @@ -4095,8 +4076,8 @@ module.exports = (function() { const BitsMap$set = a0 => a1 => a2 => (bitsmap_set(a0, a1, a2, 'set')); function Kind$Map$set$(_name$2, _val$3, _map$4) { - var $930 = (bitsmap_set((kind_name_to_bits(_name$2)), _val$3, _map$4, 'set')); - return $930; + var $924 = (bitsmap_set((kind_name_to_bits(_name$2)), _val$3, _map$4, 'set')); + return $924; }; const Kind$Map$set = x0 => x1 => x2 => Kind$Map$set$(x0, x1, x2); const Kind$Map$new = BitsMap$new; @@ -4107,55 +4088,55 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.ref': - var $932 = self.name; - var $933 = Kind$Map$set$($932, Unit$new, _deps$2); - var $931 = $933; + var $926 = self.name; + var $927 = Kind$Map$set$($926, Unit$new, _deps$2); + var $925 = $927; break; case 'Kind.Term.all': - var $934 = self.xtyp; - var $935 = self.body; - var _deps$9 = Kind$Core$dependencies$go$($934, _deps$2); - var _deps$10 = Kind$Core$dependencies$go$($935(_nil$3)(_nil$3), _deps$9); - var $936 = _deps$10; - var $931 = $936; + var $928 = self.xtyp; + var $929 = self.body; + var _deps$9 = Kind$Core$dependencies$go$($928, _deps$2); + var _deps$10 = Kind$Core$dependencies$go$($929(_nil$3)(_nil$3), _deps$9); + var $930 = _deps$10; + var $925 = $930; break; case 'Kind.Term.lam': - var $937 = self.body; - var _deps$6 = Kind$Core$dependencies$go$($937(_nil$3), _deps$2); - var $938 = _deps$6; - var $931 = $938; + var $931 = self.body; + var _deps$6 = Kind$Core$dependencies$go$($931(_nil$3), _deps$2); + var $932 = _deps$6; + var $925 = $932; break; case 'Kind.Term.app': - var $939 = self.func; - var $940 = self.argm; - var _deps$6 = Kind$Core$dependencies$go$($939, _deps$2); - var _deps$7 = Kind$Core$dependencies$go$($940, _deps$6); - var $941 = _deps$7; - var $931 = $941; + var $933 = self.func; + var $934 = self.argm; + var _deps$6 = Kind$Core$dependencies$go$($933, _deps$2); + var _deps$7 = Kind$Core$dependencies$go$($934, _deps$6); + var $935 = _deps$7; + var $925 = $935; break; case 'Kind.Term.let': - var $942 = self.expr; - var $943 = self.body; - var _deps$7 = Kind$Core$dependencies$go$($942, _deps$2); - var _deps$8 = Kind$Core$dependencies$go$($943(_nil$3), _deps$7); - var $944 = _deps$8; - var $931 = $944; + var $936 = self.expr; + var $937 = self.body; + var _deps$7 = Kind$Core$dependencies$go$($936, _deps$2); + var _deps$8 = Kind$Core$dependencies$go$($937(_nil$3), _deps$7); + var $938 = _deps$8; + var $925 = $938; break; case 'Kind.Term.def': - var $945 = self.expr; - var $946 = self.body; - var _deps$7 = Kind$Core$dependencies$go$($945, _deps$2); - var _deps$8 = Kind$Core$dependencies$go$($946(_nil$3), _deps$7); - var $947 = _deps$8; - var $931 = $947; + var $939 = self.expr; + var $940 = self.body; + var _deps$7 = Kind$Core$dependencies$go$($939, _deps$2); + var _deps$8 = Kind$Core$dependencies$go$($940(_nil$3), _deps$7); + var $941 = _deps$8; + var $925 = $941; break; case 'Kind.Term.ann': - var $948 = self.term; - var $949 = self.type; - var _deps$7 = Kind$Core$dependencies$go$($948, _deps$2); - var _deps$8 = Kind$Core$dependencies$go$($949, _deps$7); - var $950 = _deps$8; - var $931 = $950; + var $942 = self.term; + var $943 = self.type; + var _deps$7 = Kind$Core$dependencies$go$($942, _deps$2); + var _deps$8 = Kind$Core$dependencies$go$($943, _deps$7); + var $944 = _deps$8; + var $925 = $944; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -4171,11 +4152,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $951 = _deps$2; - var $931 = $951; + var $945 = _deps$2; + var $925 = $945; break; }; - return $931; + return $925; }; const Kind$Core$dependencies$go = x0 => x1 => Kind$Core$dependencies$go$(x0, x1); @@ -4183,17 +4164,17 @@ module.exports = (function() { var self = _as$2; switch (self._) { case 'List.cons': - var $953 = self.head; - var $954 = self.tail; - var $955 = List$cons$(_f$4($953), List$mapped$($954, _f$4)); - var $952 = $955; + var $947 = self.head; + var $948 = self.tail; + var $949 = List$cons$(_f$4($947), List$mapped$($948, _f$4)); + var $946 = $949; break; case 'List.nil': - var $956 = List$nil; - var $952 = $956; + var $950 = List$nil; + var $946 = $950; break; }; - return $952; + return $946; }; const List$mapped = x0 => x1 => List$mapped$(x0, x1); @@ -4210,16 +4191,16 @@ module.exports = (function() { var self = _a$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $957 = self.slice(0, -1); - var $958 = Bits$reverse$tco$($957, (_r$2 + '0')); - return $958; + var $951 = self.slice(0, -1); + var $952 = Bits$reverse$tco$($951, (_r$2 + '0')); + return $952; case 'i': - var $959 = self.slice(0, -1); - var $960 = Bits$reverse$tco$($959, (_r$2 + '1')); - return $960; + var $953 = self.slice(0, -1); + var $954 = Bits$reverse$tco$($953, (_r$2 + '1')); + return $954; case 'e': - var $961 = _r$2; - return $961; + var $955 = _r$2; + return $955; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -4229,8 +4210,8 @@ module.exports = (function() { const Bits$reverse$tco = x0 => x1 => Bits$reverse$tco$(x0, x1); function Bits$reverse$(_a$1) { - var $962 = Bits$reverse$tco$(_a$1, Bits$e); - return $962; + var $956 = Bits$reverse$tco$(_a$1, Bits$e); + return $956; }; const Bits$reverse = x0 => Bits$reverse$(x0); @@ -4238,32 +4219,32 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'BitsMap.tie': - var $964 = self.val; - var $965 = self.lft; - var $966 = self.rgt; - var self = $964; + var $958 = self.val; + var $959 = self.lft; + var $960 = self.rgt; + var self = $958; switch (self._) { case 'Maybe.some': - var $968 = self.value; - var $969 = List$cons$(Pair$new$(Bits$reverse$(_key$3), $968), _list$4); - var _list0$8 = $969; + var $962 = self.value; + var $963 = List$cons$(Pair$new$(Bits$reverse$(_key$3), $962), _list$4); + var _list0$8 = $963; break; case 'Maybe.none': - var $970 = _list$4; - var _list0$8 = $970; + var $964 = _list$4; + var _list0$8 = $964; break; }; - var _list1$9 = BitsMap$to_list$go$($965, (_key$3 + '0'), _list0$8); - var _list2$10 = BitsMap$to_list$go$($966, (_key$3 + '1'), _list1$9); - var $967 = _list2$10; - var $963 = $967; + var _list1$9 = BitsMap$to_list$go$($959, (_key$3 + '0'), _list0$8); + var _list2$10 = BitsMap$to_list$go$($960, (_key$3 + '1'), _list1$9); + var $961 = _list2$10; + var $957 = $961; break; case 'BitsMap.new': - var $971 = _list$4; - var $963 = $971; + var $965 = _list$4; + var $957 = $965; break; }; - return $963; + return $957; }; const BitsMap$to_list$go = x0 => x1 => x2 => BitsMap$to_list$go$(x0, x1, x2); @@ -4271,1163 +4252,1163 @@ module.exports = (function() { var self = _bs$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $973 = self.slice(0, -1); - var _bs$3 = $973; + var $967 = self.slice(0, -1); + var _bs$3 = $967; var self = _bs$3; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $975 = self.slice(0, -1); - var _bs$5 = $975; + var $969 = self.slice(0, -1); + var _bs$5 = $969; var self = _bs$5; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $977 = self.slice(0, -1); - var _bs$7 = $977; + var $971 = self.slice(0, -1); + var _bs$7 = $971; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $979 = self.slice(0, -1); - var _bs$9 = $979; + var $973 = self.slice(0, -1); + var _bs$9 = $973; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $981 = self.slice(0, -1); - var _bs$11 = $981; + var $975 = self.slice(0, -1); + var _bs$11 = $975; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $983 = self.slice(0, -1); - var _bs$13 = $983; - var $984 = String$cons$(65, Kind$Name$from_bits$(_bs$13)); - var $982 = $984; + var $977 = self.slice(0, -1); + var _bs$13 = $977; + var $978 = String$cons$(65, Kind$Name$from_bits$(_bs$13)); + var $976 = $978; break; case 'i': - var $985 = self.slice(0, -1); - var _bs$13 = $985; - var $986 = String$cons$(66, Kind$Name$from_bits$(_bs$13)); - var $982 = $986; + var $979 = self.slice(0, -1); + var _bs$13 = $979; + var $980 = String$cons$(66, Kind$Name$from_bits$(_bs$13)); + var $976 = $980; break; case 'e': - var $987 = String$nil; - var $982 = $987; + var $981 = String$nil; + var $976 = $981; break; }; - var $980 = $982; + var $974 = $976; break; case 'i': - var $988 = self.slice(0, -1); - var _bs$11 = $988; + var $982 = self.slice(0, -1); + var _bs$11 = $982; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $990 = self.slice(0, -1); - var _bs$13 = $990; - var $991 = String$cons$(67, Kind$Name$from_bits$(_bs$13)); - var $989 = $991; + var $984 = self.slice(0, -1); + var _bs$13 = $984; + var $985 = String$cons$(67, Kind$Name$from_bits$(_bs$13)); + var $983 = $985; break; case 'i': - var $992 = self.slice(0, -1); - var _bs$13 = $992; - var $993 = String$cons$(68, Kind$Name$from_bits$(_bs$13)); - var $989 = $993; + var $986 = self.slice(0, -1); + var _bs$13 = $986; + var $987 = String$cons$(68, Kind$Name$from_bits$(_bs$13)); + var $983 = $987; break; case 'e': - var $994 = String$nil; - var $989 = $994; + var $988 = String$nil; + var $983 = $988; break; }; - var $980 = $989; + var $974 = $983; break; case 'e': - var $995 = String$nil; - var $980 = $995; + var $989 = String$nil; + var $974 = $989; break; }; - var $978 = $980; + var $972 = $974; break; case 'i': - var $996 = self.slice(0, -1); - var _bs$9 = $996; + var $990 = self.slice(0, -1); + var _bs$9 = $990; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $998 = self.slice(0, -1); - var _bs$11 = $998; + var $992 = self.slice(0, -1); + var _bs$11 = $992; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1000 = self.slice(0, -1); - var _bs$13 = $1000; - var $1001 = String$cons$(69, Kind$Name$from_bits$(_bs$13)); - var $999 = $1001; + var $994 = self.slice(0, -1); + var _bs$13 = $994; + var $995 = String$cons$(69, Kind$Name$from_bits$(_bs$13)); + var $993 = $995; break; case 'i': - var $1002 = self.slice(0, -1); - var _bs$13 = $1002; - var $1003 = String$cons$(70, Kind$Name$from_bits$(_bs$13)); - var $999 = $1003; + var $996 = self.slice(0, -1); + var _bs$13 = $996; + var $997 = String$cons$(70, Kind$Name$from_bits$(_bs$13)); + var $993 = $997; break; case 'e': - var $1004 = String$nil; - var $999 = $1004; + var $998 = String$nil; + var $993 = $998; break; }; - var $997 = $999; + var $991 = $993; break; case 'i': - var $1005 = self.slice(0, -1); - var _bs$11 = $1005; + var $999 = self.slice(0, -1); + var _bs$11 = $999; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1007 = self.slice(0, -1); - var _bs$13 = $1007; - var $1008 = String$cons$(71, Kind$Name$from_bits$(_bs$13)); - var $1006 = $1008; + var $1001 = self.slice(0, -1); + var _bs$13 = $1001; + var $1002 = String$cons$(71, Kind$Name$from_bits$(_bs$13)); + var $1000 = $1002; break; case 'i': - var $1009 = self.slice(0, -1); - var _bs$13 = $1009; - var $1010 = String$cons$(72, Kind$Name$from_bits$(_bs$13)); - var $1006 = $1010; + var $1003 = self.slice(0, -1); + var _bs$13 = $1003; + var $1004 = String$cons$(72, Kind$Name$from_bits$(_bs$13)); + var $1000 = $1004; break; case 'e': - var $1011 = String$nil; - var $1006 = $1011; + var $1005 = String$nil; + var $1000 = $1005; break; }; - var $997 = $1006; + var $991 = $1000; break; case 'e': - var $1012 = String$nil; - var $997 = $1012; + var $1006 = String$nil; + var $991 = $1006; break; }; - var $978 = $997; + var $972 = $991; break; case 'e': - var $1013 = String$nil; - var $978 = $1013; + var $1007 = String$nil; + var $972 = $1007; break; }; - var $976 = $978; + var $970 = $972; break; case 'i': - var $1014 = self.slice(0, -1); - var _bs$7 = $1014; + var $1008 = self.slice(0, -1); + var _bs$7 = $1008; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1016 = self.slice(0, -1); - var _bs$9 = $1016; + var $1010 = self.slice(0, -1); + var _bs$9 = $1010; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1018 = self.slice(0, -1); - var _bs$11 = $1018; + var $1012 = self.slice(0, -1); + var _bs$11 = $1012; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1020 = self.slice(0, -1); - var _bs$13 = $1020; - var $1021 = String$cons$(73, Kind$Name$from_bits$(_bs$13)); - var $1019 = $1021; + var $1014 = self.slice(0, -1); + var _bs$13 = $1014; + var $1015 = String$cons$(73, Kind$Name$from_bits$(_bs$13)); + var $1013 = $1015; break; case 'i': - var $1022 = self.slice(0, -1); - var _bs$13 = $1022; - var $1023 = String$cons$(74, Kind$Name$from_bits$(_bs$13)); - var $1019 = $1023; + var $1016 = self.slice(0, -1); + var _bs$13 = $1016; + var $1017 = String$cons$(74, Kind$Name$from_bits$(_bs$13)); + var $1013 = $1017; break; case 'e': - var $1024 = String$nil; - var $1019 = $1024; + var $1018 = String$nil; + var $1013 = $1018; break; }; - var $1017 = $1019; + var $1011 = $1013; break; case 'i': - var $1025 = self.slice(0, -1); - var _bs$11 = $1025; + var $1019 = self.slice(0, -1); + var _bs$11 = $1019; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1027 = self.slice(0, -1); - var _bs$13 = $1027; - var $1028 = String$cons$(75, Kind$Name$from_bits$(_bs$13)); - var $1026 = $1028; + var $1021 = self.slice(0, -1); + var _bs$13 = $1021; + var $1022 = String$cons$(75, Kind$Name$from_bits$(_bs$13)); + var $1020 = $1022; break; case 'i': - var $1029 = self.slice(0, -1); - var _bs$13 = $1029; - var $1030 = String$cons$(76, Kind$Name$from_bits$(_bs$13)); - var $1026 = $1030; + var $1023 = self.slice(0, -1); + var _bs$13 = $1023; + var $1024 = String$cons$(76, Kind$Name$from_bits$(_bs$13)); + var $1020 = $1024; break; case 'e': - var $1031 = String$nil; - var $1026 = $1031; + var $1025 = String$nil; + var $1020 = $1025; break; }; - var $1017 = $1026; + var $1011 = $1020; break; case 'e': - var $1032 = String$nil; - var $1017 = $1032; + var $1026 = String$nil; + var $1011 = $1026; break; }; - var $1015 = $1017; + var $1009 = $1011; break; case 'i': - var $1033 = self.slice(0, -1); - var _bs$9 = $1033; + var $1027 = self.slice(0, -1); + var _bs$9 = $1027; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1035 = self.slice(0, -1); - var _bs$11 = $1035; + var $1029 = self.slice(0, -1); + var _bs$11 = $1029; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1037 = self.slice(0, -1); - var _bs$13 = $1037; - var $1038 = String$cons$(77, Kind$Name$from_bits$(_bs$13)); - var $1036 = $1038; + var $1031 = self.slice(0, -1); + var _bs$13 = $1031; + var $1032 = String$cons$(77, Kind$Name$from_bits$(_bs$13)); + var $1030 = $1032; break; case 'i': - var $1039 = self.slice(0, -1); - var _bs$13 = $1039; - var $1040 = String$cons$(78, Kind$Name$from_bits$(_bs$13)); - var $1036 = $1040; + var $1033 = self.slice(0, -1); + var _bs$13 = $1033; + var $1034 = String$cons$(78, Kind$Name$from_bits$(_bs$13)); + var $1030 = $1034; break; case 'e': - var $1041 = String$nil; - var $1036 = $1041; + var $1035 = String$nil; + var $1030 = $1035; break; }; - var $1034 = $1036; + var $1028 = $1030; break; case 'i': - var $1042 = self.slice(0, -1); - var _bs$11 = $1042; + var $1036 = self.slice(0, -1); + var _bs$11 = $1036; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1044 = self.slice(0, -1); - var _bs$13 = $1044; - var $1045 = String$cons$(79, Kind$Name$from_bits$(_bs$13)); - var $1043 = $1045; + var $1038 = self.slice(0, -1); + var _bs$13 = $1038; + var $1039 = String$cons$(79, Kind$Name$from_bits$(_bs$13)); + var $1037 = $1039; break; case 'i': - var $1046 = self.slice(0, -1); - var _bs$13 = $1046; - var $1047 = String$cons$(80, Kind$Name$from_bits$(_bs$13)); - var $1043 = $1047; + var $1040 = self.slice(0, -1); + var _bs$13 = $1040; + var $1041 = String$cons$(80, Kind$Name$from_bits$(_bs$13)); + var $1037 = $1041; break; case 'e': - var $1048 = String$nil; - var $1043 = $1048; + var $1042 = String$nil; + var $1037 = $1042; break; }; - var $1034 = $1043; + var $1028 = $1037; break; case 'e': - var $1049 = String$nil; - var $1034 = $1049; + var $1043 = String$nil; + var $1028 = $1043; break; }; - var $1015 = $1034; + var $1009 = $1028; break; case 'e': - var $1050 = String$nil; - var $1015 = $1050; + var $1044 = String$nil; + var $1009 = $1044; break; }; - var $976 = $1015; + var $970 = $1009; break; case 'e': - var $1051 = String$nil; - var $976 = $1051; + var $1045 = String$nil; + var $970 = $1045; break; }; - var $974 = $976; + var $968 = $970; break; case 'i': - var $1052 = self.slice(0, -1); - var _bs$5 = $1052; + var $1046 = self.slice(0, -1); + var _bs$5 = $1046; var self = _bs$5; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1054 = self.slice(0, -1); - var _bs$7 = $1054; + var $1048 = self.slice(0, -1); + var _bs$7 = $1048; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1056 = self.slice(0, -1); - var _bs$9 = $1056; + var $1050 = self.slice(0, -1); + var _bs$9 = $1050; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1058 = self.slice(0, -1); - var _bs$11 = $1058; + var $1052 = self.slice(0, -1); + var _bs$11 = $1052; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1060 = self.slice(0, -1); - var _bs$13 = $1060; - var $1061 = String$cons$(81, Kind$Name$from_bits$(_bs$13)); - var $1059 = $1061; + var $1054 = self.slice(0, -1); + var _bs$13 = $1054; + var $1055 = String$cons$(81, Kind$Name$from_bits$(_bs$13)); + var $1053 = $1055; break; case 'i': - var $1062 = self.slice(0, -1); - var _bs$13 = $1062; - var $1063 = String$cons$(82, Kind$Name$from_bits$(_bs$13)); - var $1059 = $1063; + var $1056 = self.slice(0, -1); + var _bs$13 = $1056; + var $1057 = String$cons$(82, Kind$Name$from_bits$(_bs$13)); + var $1053 = $1057; break; case 'e': - var $1064 = String$nil; - var $1059 = $1064; + var $1058 = String$nil; + var $1053 = $1058; break; }; - var $1057 = $1059; + var $1051 = $1053; break; case 'i': - var $1065 = self.slice(0, -1); - var _bs$11 = $1065; + var $1059 = self.slice(0, -1); + var _bs$11 = $1059; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1067 = self.slice(0, -1); - var _bs$13 = $1067; - var $1068 = String$cons$(83, Kind$Name$from_bits$(_bs$13)); - var $1066 = $1068; + var $1061 = self.slice(0, -1); + var _bs$13 = $1061; + var $1062 = String$cons$(83, Kind$Name$from_bits$(_bs$13)); + var $1060 = $1062; break; case 'i': - var $1069 = self.slice(0, -1); - var _bs$13 = $1069; - var $1070 = String$cons$(84, Kind$Name$from_bits$(_bs$13)); - var $1066 = $1070; + var $1063 = self.slice(0, -1); + var _bs$13 = $1063; + var $1064 = String$cons$(84, Kind$Name$from_bits$(_bs$13)); + var $1060 = $1064; break; case 'e': - var $1071 = String$nil; - var $1066 = $1071; + var $1065 = String$nil; + var $1060 = $1065; break; }; - var $1057 = $1066; + var $1051 = $1060; break; case 'e': - var $1072 = String$nil; - var $1057 = $1072; + var $1066 = String$nil; + var $1051 = $1066; break; }; - var $1055 = $1057; + var $1049 = $1051; break; case 'i': - var $1073 = self.slice(0, -1); - var _bs$9 = $1073; + var $1067 = self.slice(0, -1); + var _bs$9 = $1067; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1075 = self.slice(0, -1); - var _bs$11 = $1075; + var $1069 = self.slice(0, -1); + var _bs$11 = $1069; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1077 = self.slice(0, -1); - var _bs$13 = $1077; - var $1078 = String$cons$(85, Kind$Name$from_bits$(_bs$13)); - var $1076 = $1078; + var $1071 = self.slice(0, -1); + var _bs$13 = $1071; + var $1072 = String$cons$(85, Kind$Name$from_bits$(_bs$13)); + var $1070 = $1072; break; case 'i': - var $1079 = self.slice(0, -1); - var _bs$13 = $1079; - var $1080 = String$cons$(86, Kind$Name$from_bits$(_bs$13)); - var $1076 = $1080; + var $1073 = self.slice(0, -1); + var _bs$13 = $1073; + var $1074 = String$cons$(86, Kind$Name$from_bits$(_bs$13)); + var $1070 = $1074; break; case 'e': - var $1081 = String$nil; - var $1076 = $1081; + var $1075 = String$nil; + var $1070 = $1075; break; }; - var $1074 = $1076; + var $1068 = $1070; break; case 'i': - var $1082 = self.slice(0, -1); - var _bs$11 = $1082; + var $1076 = self.slice(0, -1); + var _bs$11 = $1076; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1084 = self.slice(0, -1); - var _bs$13 = $1084; - var $1085 = String$cons$(87, Kind$Name$from_bits$(_bs$13)); - var $1083 = $1085; + var $1078 = self.slice(0, -1); + var _bs$13 = $1078; + var $1079 = String$cons$(87, Kind$Name$from_bits$(_bs$13)); + var $1077 = $1079; break; case 'i': - var $1086 = self.slice(0, -1); - var _bs$13 = $1086; - var $1087 = String$cons$(88, Kind$Name$from_bits$(_bs$13)); - var $1083 = $1087; + var $1080 = self.slice(0, -1); + var _bs$13 = $1080; + var $1081 = String$cons$(88, Kind$Name$from_bits$(_bs$13)); + var $1077 = $1081; break; case 'e': - var $1088 = String$nil; - var $1083 = $1088; + var $1082 = String$nil; + var $1077 = $1082; break; }; - var $1074 = $1083; + var $1068 = $1077; break; case 'e': - var $1089 = String$nil; - var $1074 = $1089; + var $1083 = String$nil; + var $1068 = $1083; break; }; - var $1055 = $1074; + var $1049 = $1068; break; case 'e': - var $1090 = String$nil; - var $1055 = $1090; + var $1084 = String$nil; + var $1049 = $1084; break; }; - var $1053 = $1055; + var $1047 = $1049; break; case 'i': - var $1091 = self.slice(0, -1); - var _bs$7 = $1091; + var $1085 = self.slice(0, -1); + var _bs$7 = $1085; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1093 = self.slice(0, -1); - var _bs$9 = $1093; + var $1087 = self.slice(0, -1); + var _bs$9 = $1087; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1095 = self.slice(0, -1); - var _bs$11 = $1095; + var $1089 = self.slice(0, -1); + var _bs$11 = $1089; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1097 = self.slice(0, -1); - var _bs$13 = $1097; - var $1098 = String$cons$(89, Kind$Name$from_bits$(_bs$13)); - var $1096 = $1098; + var $1091 = self.slice(0, -1); + var _bs$13 = $1091; + var $1092 = String$cons$(89, Kind$Name$from_bits$(_bs$13)); + var $1090 = $1092; break; case 'i': - var $1099 = self.slice(0, -1); - var _bs$13 = $1099; - var $1100 = String$cons$(90, Kind$Name$from_bits$(_bs$13)); - var $1096 = $1100; + var $1093 = self.slice(0, -1); + var _bs$13 = $1093; + var $1094 = String$cons$(90, Kind$Name$from_bits$(_bs$13)); + var $1090 = $1094; break; case 'e': - var $1101 = String$nil; - var $1096 = $1101; + var $1095 = String$nil; + var $1090 = $1095; break; }; - var $1094 = $1096; + var $1088 = $1090; break; case 'i': - var $1102 = self.slice(0, -1); - var _bs$11 = $1102; + var $1096 = self.slice(0, -1); + var _bs$11 = $1096; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1104 = self.slice(0, -1); - var _bs$13 = $1104; - var $1105 = String$cons$(97, Kind$Name$from_bits$(_bs$13)); - var $1103 = $1105; + var $1098 = self.slice(0, -1); + var _bs$13 = $1098; + var $1099 = String$cons$(97, Kind$Name$from_bits$(_bs$13)); + var $1097 = $1099; break; case 'i': - var $1106 = self.slice(0, -1); - var _bs$13 = $1106; - var $1107 = String$cons$(98, Kind$Name$from_bits$(_bs$13)); - var $1103 = $1107; + var $1100 = self.slice(0, -1); + var _bs$13 = $1100; + var $1101 = String$cons$(98, Kind$Name$from_bits$(_bs$13)); + var $1097 = $1101; break; case 'e': - var $1108 = String$nil; - var $1103 = $1108; + var $1102 = String$nil; + var $1097 = $1102; break; }; - var $1094 = $1103; + var $1088 = $1097; break; case 'e': - var $1109 = String$nil; - var $1094 = $1109; + var $1103 = String$nil; + var $1088 = $1103; break; }; - var $1092 = $1094; + var $1086 = $1088; break; case 'i': - var $1110 = self.slice(0, -1); - var _bs$9 = $1110; + var $1104 = self.slice(0, -1); + var _bs$9 = $1104; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1112 = self.slice(0, -1); - var _bs$11 = $1112; + var $1106 = self.slice(0, -1); + var _bs$11 = $1106; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1114 = self.slice(0, -1); - var _bs$13 = $1114; - var $1115 = String$cons$(99, Kind$Name$from_bits$(_bs$13)); - var $1113 = $1115; + var $1108 = self.slice(0, -1); + var _bs$13 = $1108; + var $1109 = String$cons$(99, Kind$Name$from_bits$(_bs$13)); + var $1107 = $1109; break; case 'i': - var $1116 = self.slice(0, -1); - var _bs$13 = $1116; - var $1117 = String$cons$(100, Kind$Name$from_bits$(_bs$13)); - var $1113 = $1117; + var $1110 = self.slice(0, -1); + var _bs$13 = $1110; + var $1111 = String$cons$(100, Kind$Name$from_bits$(_bs$13)); + var $1107 = $1111; break; case 'e': - var $1118 = String$nil; - var $1113 = $1118; + var $1112 = String$nil; + var $1107 = $1112; break; }; - var $1111 = $1113; + var $1105 = $1107; break; case 'i': - var $1119 = self.slice(0, -1); - var _bs$11 = $1119; + var $1113 = self.slice(0, -1); + var _bs$11 = $1113; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1121 = self.slice(0, -1); - var _bs$13 = $1121; - var $1122 = String$cons$(101, Kind$Name$from_bits$(_bs$13)); - var $1120 = $1122; + var $1115 = self.slice(0, -1); + var _bs$13 = $1115; + var $1116 = String$cons$(101, Kind$Name$from_bits$(_bs$13)); + var $1114 = $1116; break; case 'i': - var $1123 = self.slice(0, -1); - var _bs$13 = $1123; - var $1124 = String$cons$(102, Kind$Name$from_bits$(_bs$13)); - var $1120 = $1124; + var $1117 = self.slice(0, -1); + var _bs$13 = $1117; + var $1118 = String$cons$(102, Kind$Name$from_bits$(_bs$13)); + var $1114 = $1118; break; case 'e': - var $1125 = String$nil; - var $1120 = $1125; + var $1119 = String$nil; + var $1114 = $1119; break; }; - var $1111 = $1120; + var $1105 = $1114; break; case 'e': - var $1126 = String$nil; - var $1111 = $1126; + var $1120 = String$nil; + var $1105 = $1120; break; }; - var $1092 = $1111; + var $1086 = $1105; break; case 'e': - var $1127 = String$nil; - var $1092 = $1127; + var $1121 = String$nil; + var $1086 = $1121; break; }; - var $1053 = $1092; + var $1047 = $1086; break; case 'e': - var $1128 = String$nil; - var $1053 = $1128; + var $1122 = String$nil; + var $1047 = $1122; break; }; - var $974 = $1053; + var $968 = $1047; break; case 'e': - var $1129 = String$nil; - var $974 = $1129; + var $1123 = String$nil; + var $968 = $1123; break; }; - var $972 = $974; + var $966 = $968; break; case 'i': - var $1130 = self.slice(0, -1); - var _bs$3 = $1130; + var $1124 = self.slice(0, -1); + var _bs$3 = $1124; var self = _bs$3; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1132 = self.slice(0, -1); - var _bs$5 = $1132; + var $1126 = self.slice(0, -1); + var _bs$5 = $1126; var self = _bs$5; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1134 = self.slice(0, -1); - var _bs$7 = $1134; + var $1128 = self.slice(0, -1); + var _bs$7 = $1128; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1136 = self.slice(0, -1); - var _bs$9 = $1136; + var $1130 = self.slice(0, -1); + var _bs$9 = $1130; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1138 = self.slice(0, -1); - var _bs$11 = $1138; + var $1132 = self.slice(0, -1); + var _bs$11 = $1132; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1140 = self.slice(0, -1); - var _bs$13 = $1140; - var $1141 = String$cons$(103, Kind$Name$from_bits$(_bs$13)); - var $1139 = $1141; + var $1134 = self.slice(0, -1); + var _bs$13 = $1134; + var $1135 = String$cons$(103, Kind$Name$from_bits$(_bs$13)); + var $1133 = $1135; break; case 'i': - var $1142 = self.slice(0, -1); - var _bs$13 = $1142; - var $1143 = String$cons$(104, Kind$Name$from_bits$(_bs$13)); - var $1139 = $1143; + var $1136 = self.slice(0, -1); + var _bs$13 = $1136; + var $1137 = String$cons$(104, Kind$Name$from_bits$(_bs$13)); + var $1133 = $1137; break; case 'e': - var $1144 = String$nil; - var $1139 = $1144; + var $1138 = String$nil; + var $1133 = $1138; break; }; - var $1137 = $1139; + var $1131 = $1133; break; case 'i': - var $1145 = self.slice(0, -1); - var _bs$11 = $1145; + var $1139 = self.slice(0, -1); + var _bs$11 = $1139; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1147 = self.slice(0, -1); - var _bs$13 = $1147; - var $1148 = String$cons$(105, Kind$Name$from_bits$(_bs$13)); - var $1146 = $1148; + var $1141 = self.slice(0, -1); + var _bs$13 = $1141; + var $1142 = String$cons$(105, Kind$Name$from_bits$(_bs$13)); + var $1140 = $1142; break; case 'i': - var $1149 = self.slice(0, -1); - var _bs$13 = $1149; - var $1150 = String$cons$(106, Kind$Name$from_bits$(_bs$13)); - var $1146 = $1150; + var $1143 = self.slice(0, -1); + var _bs$13 = $1143; + var $1144 = String$cons$(106, Kind$Name$from_bits$(_bs$13)); + var $1140 = $1144; break; case 'e': - var $1151 = String$nil; - var $1146 = $1151; + var $1145 = String$nil; + var $1140 = $1145; break; }; - var $1137 = $1146; + var $1131 = $1140; break; case 'e': - var $1152 = String$nil; - var $1137 = $1152; + var $1146 = String$nil; + var $1131 = $1146; break; }; - var $1135 = $1137; + var $1129 = $1131; break; case 'i': - var $1153 = self.slice(0, -1); - var _bs$9 = $1153; + var $1147 = self.slice(0, -1); + var _bs$9 = $1147; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1155 = self.slice(0, -1); - var _bs$11 = $1155; + var $1149 = self.slice(0, -1); + var _bs$11 = $1149; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1157 = self.slice(0, -1); - var _bs$13 = $1157; - var $1158 = String$cons$(107, Kind$Name$from_bits$(_bs$13)); - var $1156 = $1158; + var $1151 = self.slice(0, -1); + var _bs$13 = $1151; + var $1152 = String$cons$(107, Kind$Name$from_bits$(_bs$13)); + var $1150 = $1152; break; case 'i': - var $1159 = self.slice(0, -1); - var _bs$13 = $1159; - var $1160 = String$cons$(108, Kind$Name$from_bits$(_bs$13)); - var $1156 = $1160; + var $1153 = self.slice(0, -1); + var _bs$13 = $1153; + var $1154 = String$cons$(108, Kind$Name$from_bits$(_bs$13)); + var $1150 = $1154; break; case 'e': - var $1161 = String$nil; - var $1156 = $1161; + var $1155 = String$nil; + var $1150 = $1155; break; }; - var $1154 = $1156; + var $1148 = $1150; break; case 'i': - var $1162 = self.slice(0, -1); - var _bs$11 = $1162; + var $1156 = self.slice(0, -1); + var _bs$11 = $1156; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1164 = self.slice(0, -1); - var _bs$13 = $1164; - var $1165 = String$cons$(109, Kind$Name$from_bits$(_bs$13)); - var $1163 = $1165; + var $1158 = self.slice(0, -1); + var _bs$13 = $1158; + var $1159 = String$cons$(109, Kind$Name$from_bits$(_bs$13)); + var $1157 = $1159; break; case 'i': - var $1166 = self.slice(0, -1); - var _bs$13 = $1166; - var $1167 = String$cons$(110, Kind$Name$from_bits$(_bs$13)); - var $1163 = $1167; + var $1160 = self.slice(0, -1); + var _bs$13 = $1160; + var $1161 = String$cons$(110, Kind$Name$from_bits$(_bs$13)); + var $1157 = $1161; break; case 'e': - var $1168 = String$nil; - var $1163 = $1168; + var $1162 = String$nil; + var $1157 = $1162; break; }; - var $1154 = $1163; + var $1148 = $1157; break; case 'e': - var $1169 = String$nil; - var $1154 = $1169; + var $1163 = String$nil; + var $1148 = $1163; break; }; - var $1135 = $1154; + var $1129 = $1148; break; case 'e': - var $1170 = String$nil; - var $1135 = $1170; + var $1164 = String$nil; + var $1129 = $1164; break; }; - var $1133 = $1135; + var $1127 = $1129; break; case 'i': - var $1171 = self.slice(0, -1); - var _bs$7 = $1171; + var $1165 = self.slice(0, -1); + var _bs$7 = $1165; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1173 = self.slice(0, -1); - var _bs$9 = $1173; + var $1167 = self.slice(0, -1); + var _bs$9 = $1167; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1175 = self.slice(0, -1); - var _bs$11 = $1175; + var $1169 = self.slice(0, -1); + var _bs$11 = $1169; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1177 = self.slice(0, -1); - var _bs$13 = $1177; - var $1178 = String$cons$(111, Kind$Name$from_bits$(_bs$13)); - var $1176 = $1178; + var $1171 = self.slice(0, -1); + var _bs$13 = $1171; + var $1172 = String$cons$(111, Kind$Name$from_bits$(_bs$13)); + var $1170 = $1172; break; case 'i': - var $1179 = self.slice(0, -1); - var _bs$13 = $1179; - var $1180 = String$cons$(112, Kind$Name$from_bits$(_bs$13)); - var $1176 = $1180; + var $1173 = self.slice(0, -1); + var _bs$13 = $1173; + var $1174 = String$cons$(112, Kind$Name$from_bits$(_bs$13)); + var $1170 = $1174; break; case 'e': - var $1181 = String$nil; - var $1176 = $1181; + var $1175 = String$nil; + var $1170 = $1175; break; }; - var $1174 = $1176; + var $1168 = $1170; break; case 'i': - var $1182 = self.slice(0, -1); - var _bs$11 = $1182; + var $1176 = self.slice(0, -1); + var _bs$11 = $1176; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1184 = self.slice(0, -1); - var _bs$13 = $1184; - var $1185 = String$cons$(113, Kind$Name$from_bits$(_bs$13)); - var $1183 = $1185; + var $1178 = self.slice(0, -1); + var _bs$13 = $1178; + var $1179 = String$cons$(113, Kind$Name$from_bits$(_bs$13)); + var $1177 = $1179; break; case 'i': - var $1186 = self.slice(0, -1); - var _bs$13 = $1186; - var $1187 = String$cons$(114, Kind$Name$from_bits$(_bs$13)); - var $1183 = $1187; + var $1180 = self.slice(0, -1); + var _bs$13 = $1180; + var $1181 = String$cons$(114, Kind$Name$from_bits$(_bs$13)); + var $1177 = $1181; break; case 'e': - var $1188 = String$nil; - var $1183 = $1188; + var $1182 = String$nil; + var $1177 = $1182; break; }; - var $1174 = $1183; + var $1168 = $1177; break; case 'e': - var $1189 = String$nil; - var $1174 = $1189; + var $1183 = String$nil; + var $1168 = $1183; break; }; - var $1172 = $1174; + var $1166 = $1168; break; case 'i': - var $1190 = self.slice(0, -1); - var _bs$9 = $1190; + var $1184 = self.slice(0, -1); + var _bs$9 = $1184; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1192 = self.slice(0, -1); - var _bs$11 = $1192; + var $1186 = self.slice(0, -1); + var _bs$11 = $1186; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1194 = self.slice(0, -1); - var _bs$13 = $1194; - var $1195 = String$cons$(115, Kind$Name$from_bits$(_bs$13)); - var $1193 = $1195; + var $1188 = self.slice(0, -1); + var _bs$13 = $1188; + var $1189 = String$cons$(115, Kind$Name$from_bits$(_bs$13)); + var $1187 = $1189; break; case 'i': - var $1196 = self.slice(0, -1); - var _bs$13 = $1196; - var $1197 = String$cons$(116, Kind$Name$from_bits$(_bs$13)); - var $1193 = $1197; + var $1190 = self.slice(0, -1); + var _bs$13 = $1190; + var $1191 = String$cons$(116, Kind$Name$from_bits$(_bs$13)); + var $1187 = $1191; break; case 'e': - var $1198 = String$nil; - var $1193 = $1198; + var $1192 = String$nil; + var $1187 = $1192; break; }; - var $1191 = $1193; + var $1185 = $1187; break; case 'i': - var $1199 = self.slice(0, -1); - var _bs$11 = $1199; + var $1193 = self.slice(0, -1); + var _bs$11 = $1193; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1201 = self.slice(0, -1); - var _bs$13 = $1201; - var $1202 = String$cons$(117, Kind$Name$from_bits$(_bs$13)); - var $1200 = $1202; + var $1195 = self.slice(0, -1); + var _bs$13 = $1195; + var $1196 = String$cons$(117, Kind$Name$from_bits$(_bs$13)); + var $1194 = $1196; break; case 'i': - var $1203 = self.slice(0, -1); - var _bs$13 = $1203; - var $1204 = String$cons$(118, Kind$Name$from_bits$(_bs$13)); - var $1200 = $1204; + var $1197 = self.slice(0, -1); + var _bs$13 = $1197; + var $1198 = String$cons$(118, Kind$Name$from_bits$(_bs$13)); + var $1194 = $1198; break; case 'e': - var $1205 = String$nil; - var $1200 = $1205; + var $1199 = String$nil; + var $1194 = $1199; break; }; - var $1191 = $1200; + var $1185 = $1194; break; case 'e': - var $1206 = String$nil; - var $1191 = $1206; + var $1200 = String$nil; + var $1185 = $1200; break; }; - var $1172 = $1191; + var $1166 = $1185; break; case 'e': - var $1207 = String$nil; - var $1172 = $1207; + var $1201 = String$nil; + var $1166 = $1201; break; }; - var $1133 = $1172; + var $1127 = $1166; break; case 'e': - var $1208 = String$nil; - var $1133 = $1208; + var $1202 = String$nil; + var $1127 = $1202; break; }; - var $1131 = $1133; + var $1125 = $1127; break; case 'i': - var $1209 = self.slice(0, -1); - var _bs$5 = $1209; + var $1203 = self.slice(0, -1); + var _bs$5 = $1203; var self = _bs$5; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1211 = self.slice(0, -1); - var _bs$7 = $1211; + var $1205 = self.slice(0, -1); + var _bs$7 = $1205; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1213 = self.slice(0, -1); - var _bs$9 = $1213; + var $1207 = self.slice(0, -1); + var _bs$9 = $1207; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1215 = self.slice(0, -1); - var _bs$11 = $1215; + var $1209 = self.slice(0, -1); + var _bs$11 = $1209; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1217 = self.slice(0, -1); - var _bs$13 = $1217; - var $1218 = String$cons$(119, Kind$Name$from_bits$(_bs$13)); - var $1216 = $1218; + var $1211 = self.slice(0, -1); + var _bs$13 = $1211; + var $1212 = String$cons$(119, Kind$Name$from_bits$(_bs$13)); + var $1210 = $1212; break; case 'i': - var $1219 = self.slice(0, -1); - var _bs$13 = $1219; - var $1220 = String$cons$(120, Kind$Name$from_bits$(_bs$13)); - var $1216 = $1220; + var $1213 = self.slice(0, -1); + var _bs$13 = $1213; + var $1214 = String$cons$(120, Kind$Name$from_bits$(_bs$13)); + var $1210 = $1214; break; case 'e': - var $1221 = String$nil; - var $1216 = $1221; + var $1215 = String$nil; + var $1210 = $1215; break; }; - var $1214 = $1216; + var $1208 = $1210; break; case 'i': - var $1222 = self.slice(0, -1); - var _bs$11 = $1222; + var $1216 = self.slice(0, -1); + var _bs$11 = $1216; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1224 = self.slice(0, -1); - var _bs$13 = $1224; - var $1225 = String$cons$(121, Kind$Name$from_bits$(_bs$13)); - var $1223 = $1225; + var $1218 = self.slice(0, -1); + var _bs$13 = $1218; + var $1219 = String$cons$(121, Kind$Name$from_bits$(_bs$13)); + var $1217 = $1219; break; case 'i': - var $1226 = self.slice(0, -1); - var _bs$13 = $1226; - var $1227 = String$cons$(122, Kind$Name$from_bits$(_bs$13)); - var $1223 = $1227; + var $1220 = self.slice(0, -1); + var _bs$13 = $1220; + var $1221 = String$cons$(122, Kind$Name$from_bits$(_bs$13)); + var $1217 = $1221; break; case 'e': - var $1228 = String$nil; - var $1223 = $1228; + var $1222 = String$nil; + var $1217 = $1222; break; }; - var $1214 = $1223; + var $1208 = $1217; break; case 'e': - var $1229 = String$nil; - var $1214 = $1229; + var $1223 = String$nil; + var $1208 = $1223; break; }; - var $1212 = $1214; + var $1206 = $1208; break; case 'i': - var $1230 = self.slice(0, -1); - var _bs$9 = $1230; + var $1224 = self.slice(0, -1); + var _bs$9 = $1224; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1232 = self.slice(0, -1); - var _bs$11 = $1232; + var $1226 = self.slice(0, -1); + var _bs$11 = $1226; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1234 = self.slice(0, -1); - var _bs$13 = $1234; - var $1235 = String$cons$(48, Kind$Name$from_bits$(_bs$13)); - var $1233 = $1235; + var $1228 = self.slice(0, -1); + var _bs$13 = $1228; + var $1229 = String$cons$(48, Kind$Name$from_bits$(_bs$13)); + var $1227 = $1229; break; case 'i': - var $1236 = self.slice(0, -1); - var _bs$13 = $1236; - var $1237 = String$cons$(49, Kind$Name$from_bits$(_bs$13)); - var $1233 = $1237; + var $1230 = self.slice(0, -1); + var _bs$13 = $1230; + var $1231 = String$cons$(49, Kind$Name$from_bits$(_bs$13)); + var $1227 = $1231; break; case 'e': - var $1238 = String$nil; - var $1233 = $1238; + var $1232 = String$nil; + var $1227 = $1232; break; }; - var $1231 = $1233; + var $1225 = $1227; break; case 'i': - var $1239 = self.slice(0, -1); - var _bs$11 = $1239; + var $1233 = self.slice(0, -1); + var _bs$11 = $1233; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1241 = self.slice(0, -1); - var _bs$13 = $1241; - var $1242 = String$cons$(50, Kind$Name$from_bits$(_bs$13)); - var $1240 = $1242; + var $1235 = self.slice(0, -1); + var _bs$13 = $1235; + var $1236 = String$cons$(50, Kind$Name$from_bits$(_bs$13)); + var $1234 = $1236; break; case 'i': - var $1243 = self.slice(0, -1); - var _bs$13 = $1243; - var $1244 = String$cons$(51, Kind$Name$from_bits$(_bs$13)); - var $1240 = $1244; + var $1237 = self.slice(0, -1); + var _bs$13 = $1237; + var $1238 = String$cons$(51, Kind$Name$from_bits$(_bs$13)); + var $1234 = $1238; break; case 'e': - var $1245 = String$nil; - var $1240 = $1245; + var $1239 = String$nil; + var $1234 = $1239; break; }; - var $1231 = $1240; + var $1225 = $1234; break; case 'e': - var $1246 = String$nil; - var $1231 = $1246; + var $1240 = String$nil; + var $1225 = $1240; break; }; - var $1212 = $1231; + var $1206 = $1225; break; case 'e': - var $1247 = String$nil; - var $1212 = $1247; + var $1241 = String$nil; + var $1206 = $1241; break; }; - var $1210 = $1212; + var $1204 = $1206; break; case 'i': - var $1248 = self.slice(0, -1); - var _bs$7 = $1248; + var $1242 = self.slice(0, -1); + var _bs$7 = $1242; var self = _bs$7; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1250 = self.slice(0, -1); - var _bs$9 = $1250; + var $1244 = self.slice(0, -1); + var _bs$9 = $1244; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1252 = self.slice(0, -1); - var _bs$11 = $1252; + var $1246 = self.slice(0, -1); + var _bs$11 = $1246; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1254 = self.slice(0, -1); - var _bs$13 = $1254; - var $1255 = String$cons$(52, Kind$Name$from_bits$(_bs$13)); - var $1253 = $1255; + var $1248 = self.slice(0, -1); + var _bs$13 = $1248; + var $1249 = String$cons$(52, Kind$Name$from_bits$(_bs$13)); + var $1247 = $1249; break; case 'i': - var $1256 = self.slice(0, -1); - var _bs$13 = $1256; - var $1257 = String$cons$(53, Kind$Name$from_bits$(_bs$13)); - var $1253 = $1257; + var $1250 = self.slice(0, -1); + var _bs$13 = $1250; + var $1251 = String$cons$(53, Kind$Name$from_bits$(_bs$13)); + var $1247 = $1251; break; case 'e': - var $1258 = String$nil; - var $1253 = $1258; + var $1252 = String$nil; + var $1247 = $1252; break; }; - var $1251 = $1253; + var $1245 = $1247; break; case 'i': - var $1259 = self.slice(0, -1); - var _bs$11 = $1259; + var $1253 = self.slice(0, -1); + var _bs$11 = $1253; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1261 = self.slice(0, -1); - var _bs$13 = $1261; - var $1262 = String$cons$(54, Kind$Name$from_bits$(_bs$13)); - var $1260 = $1262; + var $1255 = self.slice(0, -1); + var _bs$13 = $1255; + var $1256 = String$cons$(54, Kind$Name$from_bits$(_bs$13)); + var $1254 = $1256; break; case 'i': - var $1263 = self.slice(0, -1); - var _bs$13 = $1263; - var $1264 = String$cons$(55, Kind$Name$from_bits$(_bs$13)); - var $1260 = $1264; + var $1257 = self.slice(0, -1); + var _bs$13 = $1257; + var $1258 = String$cons$(55, Kind$Name$from_bits$(_bs$13)); + var $1254 = $1258; break; case 'e': - var $1265 = String$nil; - var $1260 = $1265; + var $1259 = String$nil; + var $1254 = $1259; break; }; - var $1251 = $1260; + var $1245 = $1254; break; case 'e': - var $1266 = String$nil; - var $1251 = $1266; + var $1260 = String$nil; + var $1245 = $1260; break; }; - var $1249 = $1251; + var $1243 = $1245; break; case 'i': - var $1267 = self.slice(0, -1); - var _bs$9 = $1267; + var $1261 = self.slice(0, -1); + var _bs$9 = $1261; var self = _bs$9; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1269 = self.slice(0, -1); - var _bs$11 = $1269; + var $1263 = self.slice(0, -1); + var _bs$11 = $1263; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1271 = self.slice(0, -1); - var _bs$13 = $1271; - var $1272 = String$cons$(56, Kind$Name$from_bits$(_bs$13)); - var $1270 = $1272; + var $1265 = self.slice(0, -1); + var _bs$13 = $1265; + var $1266 = String$cons$(56, Kind$Name$from_bits$(_bs$13)); + var $1264 = $1266; break; case 'i': - var $1273 = self.slice(0, -1); - var _bs$13 = $1273; - var $1274 = String$cons$(57, Kind$Name$from_bits$(_bs$13)); - var $1270 = $1274; + var $1267 = self.slice(0, -1); + var _bs$13 = $1267; + var $1268 = String$cons$(57, Kind$Name$from_bits$(_bs$13)); + var $1264 = $1268; break; case 'e': - var $1275 = String$nil; - var $1270 = $1275; + var $1269 = String$nil; + var $1264 = $1269; break; }; - var $1268 = $1270; + var $1262 = $1264; break; case 'i': - var $1276 = self.slice(0, -1); - var _bs$11 = $1276; + var $1270 = self.slice(0, -1); + var _bs$11 = $1270; var self = _bs$11; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $1278 = self.slice(0, -1); - var _bs$13 = $1278; - var $1279 = String$cons$(46, Kind$Name$from_bits$(_bs$13)); - var $1277 = $1279; + var $1272 = self.slice(0, -1); + var _bs$13 = $1272; + var $1273 = String$cons$(46, Kind$Name$from_bits$(_bs$13)); + var $1271 = $1273; break; case 'i': - var $1280 = self.slice(0, -1); - var _bs$13 = $1280; - var $1281 = String$cons$(95, Kind$Name$from_bits$(_bs$13)); - var $1277 = $1281; + var $1274 = self.slice(0, -1); + var _bs$13 = $1274; + var $1275 = String$cons$(95, Kind$Name$from_bits$(_bs$13)); + var $1271 = $1275; break; case 'e': - var $1282 = String$nil; - var $1277 = $1282; + var $1276 = String$nil; + var $1271 = $1276; break; }; - var $1268 = $1277; + var $1262 = $1271; break; case 'e': - var $1283 = String$nil; - var $1268 = $1283; + var $1277 = String$nil; + var $1262 = $1277; break; }; - var $1249 = $1268; + var $1243 = $1262; break; case 'e': - var $1284 = String$nil; - var $1249 = $1284; + var $1278 = String$nil; + var $1243 = $1278; break; }; - var $1210 = $1249; + var $1204 = $1243; break; case 'e': - var $1285 = String$nil; - var $1210 = $1285; + var $1279 = String$nil; + var $1204 = $1279; break; }; - var $1131 = $1210; + var $1125 = $1204; break; case 'e': - var $1286 = String$nil; - var $1131 = $1286; + var $1280 = String$nil; + var $1125 = $1280; break; }; - var $972 = $1131; + var $966 = $1125; break; case 'e': - var $1287 = String$nil; - var $972 = $1287; + var $1281 = String$nil; + var $966 = $1281; break; }; - return $972; + return $966; }; const Kind$Name$from_bits = x0 => Kind$Name$from_bits$(x0); function Kind$Map$to_list$(_xs$2) { var _kvs$3 = List$reverse$(BitsMap$to_list$go$(_xs$2, Bits$e, List$nil)); - var $1288 = List$mapped$(_kvs$3, (_kv$4 => { + var $1282 = List$mapped$(_kvs$3, (_kv$4 => { var self = _kv$4; switch (self._) { case 'Pair.new': - var $1290 = self.fst; - var $1291 = self.snd; - var $1292 = Pair$new$(Kind$Name$from_bits$($1290), $1291); - var $1289 = $1292; + var $1284 = self.fst; + var $1285 = self.snd; + var $1286 = Pair$new$(Kind$Name$from_bits$($1284), $1285); + var $1283 = $1286; break; }; - return $1289; + return $1283; })); - return $1288; + return $1282; }; const Kind$Map$to_list = x0 => Kind$Map$to_list$(x0); function Kind$Map$keys$(_xs$2) { - var $1293 = List$mapped$(Kind$Map$to_list$(_xs$2), Pair$fst); - return $1293; + var $1287 = List$mapped$(Kind$Map$to_list$(_xs$2), Pair$fst); + return $1287; }; const Kind$Map$keys = x0 => Kind$Map$keys$(x0); @@ -5435,121 +5416,121 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.cons': - var $1295 = self.head; - var $1296 = self.tail; - var self = Kind$Synth$load$cached$is_loop$($1295, _defs$2); + var $1289 = self.head; + var $1290 = self.tail; + var self = Kind$Synth$load$cached$is_loop$($1289, _defs$2); if (self) { - var $1298 = Kind$Synth$load$cached$($1296, _defs$2); - var $1297 = $1298; + var $1292 = Kind$Synth$load$cached$($1290, _defs$2); + var $1291 = $1292; } else { - var _name$5 = $1295; - var $1299 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $1300 = _m$bind$6; - return $1300; + var _name$5 = $1289; + var $1293 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $1294 = _m$bind$6; + return $1294; }))(Kind$Synth$load$cached$def$(_name$5))((_defn$6 => { var self = _defn$6; switch (self._) { case 'Maybe.some': - var $1302 = self.value; - var self = $1302; + var $1296 = self.value; + var self = $1296; switch (self._) { case 'Kind.Def.new': - var $1304 = self.term; - var $1305 = self.type; - var _defs$17 = Kind$Map$set$(_name$5, $1302, _defs$2); + var $1298 = self.term; + var $1299 = self.type; + var _defs$17 = Kind$Map$set$(_name$5, $1296, _defs$2); var _deps$18 = Kind$Map$new; - var _deps$19 = Kind$Core$dependencies$go$($1304, _deps$18); - var _deps$20 = Kind$Core$dependencies$go$($1305, _deps$19); + var _deps$19 = Kind$Core$dependencies$go$($1298, _deps$18); + var _deps$20 = Kind$Core$dependencies$go$($1299, _deps$19); var _deps$21 = Kind$Map$keys$(_deps$20); - var $1306 = IO$monad$((_m$bind$22 => _m$pure$23 => { - var $1307 = _m$bind$22; - return $1307; + var $1300 = IO$monad$((_m$bind$22 => _m$pure$23 => { + var $1301 = _m$bind$22; + return $1301; }))(Kind$Synth$load$cached$(_deps$21, _defs$17))((_defs$22 => { var self = _defs$22; switch (self._) { case 'Maybe.some': - var $1309 = self.value; - var $1310 = Kind$Synth$load$cached$($1296, $1309); - var $1308 = $1310; + var $1303 = self.value; + var $1304 = Kind$Synth$load$cached$($1290, $1303); + var $1302 = $1304; break; case 'Maybe.none': - var $1311 = IO$monad$((_m$bind$23 => _m$pure$24 => { - var $1312 = _m$pure$24; - return $1312; + var $1305 = IO$monad$((_m$bind$23 => _m$pure$24 => { + var $1306 = _m$pure$24; + return $1306; }))(Maybe$none); - var $1308 = $1311; + var $1302 = $1305; break; }; - return $1308; + return $1302; })); - var $1303 = $1306; + var $1297 = $1300; break; }; - var $1301 = $1303; + var $1295 = $1297; break; case 'Maybe.none': - var $1313 = IO$monad$((_m$bind$7 => _m$pure$8 => { - var $1314 = _m$pure$8; - return $1314; + var $1307 = IO$monad$((_m$bind$7 => _m$pure$8 => { + var $1308 = _m$pure$8; + return $1308; }))(Maybe$none); - var $1301 = $1313; + var $1295 = $1307; break; }; - return $1301; + return $1295; })); - var $1297 = $1299; + var $1291 = $1293; }; - var $1294 = $1297; + var $1288 = $1291; break; case 'List.nil': - var $1315 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $1316 = _m$pure$4; - return $1316; + var $1309 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $1310 = _m$pure$4; + return $1310; }))(Maybe$some$(_defs$2)); - var $1294 = $1315; + var $1288 = $1309; break; }; - return $1294; + return $1288; }; const Kind$Synth$load$cached = x0 => x1 => Kind$Synth$load$cached$(x0, x1); function IO$request$(_url$1) { - var $1317 = IO$ask$("request", _url$1, (_text$2 => { - var $1318 = IO$end$(_text$2); - return $1318; + var $1311 = IO$ask$("request", _url$1, (_text$2 => { + var $1312 = IO$end$(_text$2); + return $1312; })); - return $1317; + return $1311; }; const IO$request = x0 => IO$request$(x0); function Kind$Synth$get_kind_code$(_file$1) { - var $1319 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $1320 = _m$bind$2; - return $1320; + var $1313 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $1314 = _m$bind$2; + return $1314; }))(IO$get_file$(_file$1))((_code$2 => { var self = (_code$2 === ""); if (self) { - var $1322 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $1323 = _m$bind$3; - return $1323; + var $1316 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $1317 = _m$bind$3; + return $1317; }))(IO$request$(("http://uwu.tech:7172/" + _file$1)))((_code$3 => { - var $1324 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $1325 = _m$pure$5; - return $1325; + var $1318 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $1319 = _m$pure$5; + return $1319; }))(_code$3); - return $1324; + return $1318; })); - var $1321 = $1322; + var $1315 = $1316; } else { - var $1326 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $1327 = _m$pure$4; - return $1327; + var $1320 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $1321 = _m$pure$4; + return $1321; }))(_code$2); - var $1321 = $1326; + var $1315 = $1320; }; - return $1321; + return $1315; })); - return $1319; + return $1313; }; const Kind$Synth$get_kind_code = x0 => Kind$Synth$get_kind_code$(x0); @@ -5557,27 +5538,27 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1329 = self.str; - var self = $1329; + var $1323 = self.str; + var self = $1323; if (self.length === 0) { - var $1331 = Parser$Reply$value$(_pst$1, Bool$true); - var $1330 = $1331; + var $1325 = Parser$Reply$value$(_pst$1, Bool$true); + var $1324 = $1325; } else { - var $1332 = self.charCodeAt(0); - var $1333 = self.slice(1); - var $1334 = Parser$Reply$value$(_pst$1, Bool$false); - var $1330 = $1334; + var $1326 = self.charCodeAt(0); + var $1327 = self.slice(1); + var $1328 = Parser$Reply$value$(_pst$1, Bool$false); + var $1324 = $1328; }; - var $1328 = $1330; + var $1322 = $1324; break; }; - return $1328; + return $1322; }; const Parser$is_eof = x0 => Parser$is_eof$(x0); function Parser$(_V$1) { - var $1335 = null; - return $1335; + var $1329 = null; + return $1329; }; const Parser = x0 => Parser$(x0); @@ -5594,53 +5575,53 @@ module.exports = (function() { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $1336 = self.err; - var $1337 = self.nam; - var $1338 = self.ini; - var $1339 = self.idx; - var $1340 = self.str; + var $1330 = self.err; + var $1331 = self.nam; + var $1332 = self.ini; + var $1333 = self.idx; + var $1334 = self.str; var self = _pars$2; switch (self._) { case 'List.cons': - var $1342 = self.head; - var $1343 = self.tail; - var _parsed$11 = $1342(_pst$3); + var $1336 = self.head; + var $1337 = self.tail; + var _parsed$11 = $1336(_pst$3); var self = _parsed$11; switch (self._) { case 'Parser.Reply.error': - var $1345 = self.err; - var _cur_err$13 = Maybe$some$($1345); - var _far_err$14 = Parser$Error$maybe_combine$($1336, _cur_err$13); - var _new_pst$15 = Parser$State$new$(_far_err$14, $1337, $1338, $1339, $1340); - var $1346 = Parser$choice$($1343, _new_pst$15); - var $1344 = $1346; + var $1339 = self.err; + var _cur_err$13 = Maybe$some$($1339); + var _far_err$14 = Parser$Error$maybe_combine$($1330, _cur_err$13); + var _new_pst$15 = Parser$State$new$(_far_err$14, $1331, $1332, $1333, $1334); + var $1340 = Parser$choice$($1337, _new_pst$15); + var $1338 = $1340; break; case 'Parser.Reply.value': - var $1347 = self.pst; - var $1348 = self.val; - var $1349 = Parser$Reply$value$($1347, $1348); - var $1344 = $1349; + var $1341 = self.pst; + var $1342 = self.val; + var $1343 = Parser$Reply$value$($1341, $1342); + var $1338 = $1343; break; }; - var $1341 = $1344; + var $1335 = $1338; break; case 'List.nil': - var self = $1336; + var self = $1330; switch (self._) { case 'Maybe.some': - var $1351 = self.value; - var $1352 = Parser$Reply$error$($1351); - var $1350 = $1352; + var $1345 = self.value; + var $1346 = Parser$Reply$error$($1345); + var $1344 = $1346; break; case 'Maybe.none': - var $1353 = Parser$Reply$fail$($1337, $1338, $1339, "No parse."); - var $1350 = $1353; + var $1347 = Parser$Reply$fail$($1331, $1332, $1333, "No parse."); + var $1344 = $1347; break; }; - var $1341 = $1350; + var $1335 = $1344; break; }; - return $1341; + return $1335; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -5662,42 +5643,42 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $1354 = self.err; - var $1355 = self.nam; - var $1356 = self.ini; - var $1357 = self.idx; - var $1358 = self.str; + var $1348 = self.err; + var $1349 = self.nam; + var $1350 = self.ini; + var $1351 = self.idx; + var $1352 = self.str; var self = _text$3; if (self.length === 0) { - var $1360 = Parser$Reply$value$(_pst$4, Unit$new); - var $1359 = $1360; + var $1354 = Parser$Reply$value$(_pst$4, Unit$new); + var $1353 = $1354; } else { - var $1361 = self.charCodeAt(0); - var $1362 = self.slice(1); - var self = $1358; + var $1355 = self.charCodeAt(0); + var $1356 = self.slice(1); + var self = $1352; if (self.length === 0) { var _error_msg$12 = ("Expected \'" + (_ini_txt$2 + "\', found end of file.")); - var $1364 = Parser$Reply$fail$($1355, $1356, _ini_idx$1, _error_msg$12); - var $1363 = $1364; + var $1358 = Parser$Reply$fail$($1349, $1350, _ini_idx$1, _error_msg$12); + var $1357 = $1358; } else { - var $1365 = self.charCodeAt(0); - var $1366 = self.slice(1); - var self = ($1361 === $1365); + var $1359 = self.charCodeAt(0); + var $1360 = self.slice(1); + var self = ($1355 === $1359); if (self) { - var _pst$14 = Parser$State$new$($1354, $1355, $1356, Nat$succ$($1357), $1366); - var $1368 = Parser$text$go$(_ini_idx$1, _ini_txt$2, $1362, _pst$14); - var $1367 = $1368; + var _pst$14 = Parser$State$new$($1348, $1349, $1350, Nat$succ$($1351), $1360); + var $1362 = Parser$text$go$(_ini_idx$1, _ini_txt$2, $1356, _pst$14); + var $1361 = $1362; } else { - var _chr$14 = String$cons$($1365, String$nil); + var _chr$14 = String$cons$($1359, String$nil); var _err$15 = ("Expected \'" + (_ini_txt$2 + ("\', found \'" + (_chr$14 + "\'.")))); - var $1369 = Parser$Reply$fail$($1355, $1356, _ini_idx$1, _err$15); - var $1367 = $1369; + var $1363 = Parser$Reply$fail$($1349, $1350, _ini_idx$1, _err$15); + var $1361 = $1363; }; - var $1363 = $1367; + var $1357 = $1361; }; - var $1359 = $1363; + var $1353 = $1357; }; - return $1359; + return $1353; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -5710,25 +5691,25 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $1371 = self.idx; - var self = Parser$text$go$($1371, _text$1, _text$1, _pst$2); + var $1365 = self.idx; + var self = Parser$text$go$($1365, _text$1, _text$1, _pst$2); switch (self._) { case 'Parser.Reply.error': - var $1373 = self.err; - var $1374 = Parser$Reply$error$($1373); - var $1372 = $1374; + var $1367 = self.err; + var $1368 = Parser$Reply$error$($1367); + var $1366 = $1368; break; case 'Parser.Reply.value': - var $1375 = self.pst; - var $1376 = self.val; - var $1377 = Parser$Reply$value$($1375, $1376); - var $1372 = $1377; + var $1369 = self.pst; + var $1370 = self.val; + var $1371 = Parser$Reply$value$($1369, $1370); + var $1366 = $1371; break; }; - var $1370 = $1372; + var $1364 = $1366; break; }; - return $1370; + return $1364; }; const Parser$text = x0 => x1 => Parser$text$(x0, x1); @@ -5736,24 +5717,24 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1379 = self.nam; - var $1380 = self.ini; - var $1381 = self.idx; - var $1382 = self.str; - var self = $1382; + var $1373 = self.nam; + var $1374 = self.ini; + var $1375 = self.idx; + var $1376 = self.str; + var self = $1376; if (self.length === 0) { - var $1384 = Parser$Reply$value$(_pst$1, Unit$new); - var $1383 = $1384; + var $1378 = Parser$Reply$value$(_pst$1, Unit$new); + var $1377 = $1378; } else { - var $1385 = self.charCodeAt(0); - var $1386 = self.slice(1); - var $1387 = Parser$Reply$fail$($1379, $1380, $1381, "Expected end-of-file."); - var $1383 = $1387; + var $1379 = self.charCodeAt(0); + var $1380 = self.slice(1); + var $1381 = Parser$Reply$fail$($1373, $1374, $1375, "Expected end-of-file."); + var $1377 = $1381; }; - var $1378 = $1383; + var $1372 = $1377; break; }; - return $1378; + return $1372; }; const Parser$eof = x0 => Parser$eof$(x0); @@ -5771,31 +5752,31 @@ module.exports = (function() { var self = _until_reply$6; switch (self._) { case 'Parser.Reply.error': - var $1389 = self.err; + var $1383 = self.err; var _reply$8 = _parse$3(_pst$5); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $1391 = self.err; - var $1392 = Parser$Reply$error$(Parser$Error$combine$($1391, $1389)); - var $1390 = $1392; + var $1385 = self.err; + var $1386 = Parser$Reply$error$(Parser$Error$combine$($1385, $1383)); + var $1384 = $1386; break; case 'Parser.Reply.value': - var $1393 = self.pst; - var $1394 = self.val; - var $1395 = Parser$until$go$(_until$2, _parse$3, List$cons$($1394, _values$4), $1393); - var $1390 = $1395; + var $1387 = self.pst; + var $1388 = self.val; + var $1389 = Parser$until$go$(_until$2, _parse$3, List$cons$($1388, _values$4), $1387); + var $1384 = $1389; break; }; - var $1388 = $1390; + var $1382 = $1384; break; case 'Parser.Reply.value': - var $1396 = self.pst; - var $1397 = Parser$Reply$value$($1396, List$reverse$(_values$4)); - var $1388 = $1397; + var $1390 = self.pst; + var $1391 = Parser$Reply$value$($1390, List$reverse$(_values$4)); + var $1382 = $1391; break; }; - return $1388; + return $1382; })(); if (R.ctr === 'TCO') arg = R.arg; else return R; @@ -5804,8 +5785,8 @@ module.exports = (function() { const Parser$until$go = x0 => x1 => x2 => x3 => Parser$until$go$(x0, x1, x2, x3); function Parser$until$(_until$2, _parse$3) { - var $1398 = Parser$until$go(_until$2)(_parse$3)(List$nil); - return $1398; + var $1392 = Parser$until$go(_until$2)(_parse$3)(List$nil); + return $1392; }; const Parser$until = x0 => x1 => Parser$until$(x0, x1); @@ -5813,26 +5794,26 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1400 = self.err; - var $1401 = self.nam; - var $1402 = self.ini; - var $1403 = self.idx; - var $1404 = self.str; - var self = $1404; + var $1394 = self.err; + var $1395 = self.nam; + var $1396 = self.ini; + var $1397 = self.idx; + var $1398 = self.str; + var self = $1398; if (self.length === 0) { - var $1406 = Parser$Reply$fail$($1401, $1402, $1403, "Unexpected end of file."); - var $1405 = $1406; + var $1400 = Parser$Reply$fail$($1395, $1396, $1397, "Unexpected end of file."); + var $1399 = $1400; } else { - var $1407 = self.charCodeAt(0); - var $1408 = self.slice(1); - var _pst$9 = Parser$State$new$($1400, $1401, $1402, Nat$succ$($1403), $1408); - var $1409 = Parser$Reply$value$(_pst$9, $1407); - var $1405 = $1409; + var $1401 = self.charCodeAt(0); + var $1402 = self.slice(1); + var _pst$9 = Parser$State$new$($1394, $1395, $1396, Nat$succ$($1397), $1402); + var $1403 = Parser$Reply$value$(_pst$9, $1401); + var $1399 = $1403; }; - var $1399 = $1405; + var $1393 = $1399; break; }; - return $1399; + return $1393; }; const Parser$one = x0 => Parser$one$(x0); @@ -5840,104 +5821,92 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1411 = self.err; + var $1405 = self.err; var _reply$7 = Parser$text$("//", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1413 = self.err; - var self = $1411; + var $1407 = self.err; + var self = $1405; switch (self._) { case 'Maybe.some': - var $1415 = self.value; - var $1416 = Parser$Reply$error$(Parser$Error$combine$($1415, $1413)); - var $1414 = $1416; + var $1409 = self.value; + var $1410 = Parser$Reply$error$(Parser$Error$combine$($1409, $1407)); + var $1408 = $1410; break; case 'Maybe.none': - var $1417 = Parser$Reply$error$($1413); - var $1414 = $1417; + var $1411 = Parser$Reply$error$($1407); + var $1408 = $1411; break; }; - var $1412 = $1414; + var $1406 = $1408; break; case 'Parser.Reply.value': - var $1418 = self.pst; - var self = $1418; + var $1412 = self.pst; + var self = $1412; switch (self._) { case 'Parser.State.new': - var $1420 = self.err; - var $1421 = self.nam; - var $1422 = self.ini; - var $1423 = self.idx; - var $1424 = self.str; - var $1425 = ((console.log(("FALTANDO " + $1424)), (_$15 => { - var $1426 = ((console.log(("VALUE " + $1421)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1411, $1420), $1421, $1422, $1423, $1424); - var _end$18 = Parser$choice(List$cons$(Parser$text("\u{a}"), List$cons$(Parser$eof, List$nil))); - var self = _reply$pst$17; + var $1414 = self.err; + var $1415 = self.nam; + var $1416 = self.ini; + var $1417 = self.idx; + var $1418 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1405, $1414), $1415, $1416, $1417, $1418); + var _end$16 = Parser$choice(List$cons$(Parser$text("\u{a}"), List$cons$(Parser$eof, List$nil))); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $1420 = self.err; + var _reply$22 = Parser$until$(_end$16, Parser$one)(_reply$pst$15); + var self = _reply$22; switch (self._) { - case 'Parser.State.new': - var $1428 = self.err; - var _reply$24 = Parser$until$(_end$18, Parser$one)(_reply$pst$17); - var self = _reply$24; + case 'Parser.Reply.error': + var $1422 = self.err; + var self = $1420; switch (self._) { - case 'Parser.Reply.error': - var $1430 = self.err; - var self = $1428; - switch (self._) { - case 'Maybe.some': - var $1432 = self.value; - var $1433 = Parser$Reply$error$(Parser$Error$combine$($1432, $1430)); - var $1431 = $1433; - break; - case 'Maybe.none': - var $1434 = Parser$Reply$error$($1430); - var $1431 = $1434; - break; - }; - var $1429 = $1431; + case 'Maybe.some': + var $1424 = self.value; + var $1425 = Parser$Reply$error$(Parser$Error$combine$($1424, $1422)); + var $1423 = $1425; break; - case 'Parser.Reply.value': - var $1435 = self.pst; - var self = $1435; - switch (self._) { - case 'Parser.State.new': - var $1437 = self.err; - var $1438 = self.nam; - var $1439 = self.ini; - var $1440 = self.idx; - var $1441 = self.str; - var $1442 = ((console.log(("FALTANDO " + $1441)), (_$32 => { - var $1443 = ((console.log(("VALUE " + $1438)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($1428, $1437), $1438, $1439, $1440, $1441); - var $1444 = Parser$Reply$value$(_reply$pst$34, Unit$new); - return $1444; - })())); - return $1443; - })())); - var $1436 = $1442; - break; - }; - var $1429 = $1436; + case 'Maybe.none': + var $1426 = Parser$Reply$error$($1422); + var $1423 = $1426; break; }; - var $1427 = $1429; + var $1421 = $1423; + break; + case 'Parser.Reply.value': + var $1427 = self.pst; + var self = $1427; + switch (self._) { + case 'Parser.State.new': + var $1429 = self.err; + var $1430 = self.nam; + var $1431 = self.ini; + var $1432 = self.idx; + var $1433 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($1420, $1429), $1430, $1431, $1432, $1433); + var $1434 = Parser$Reply$value$(_reply$pst$30, Unit$new); + var $1428 = $1434; + break; + }; + var $1421 = $1428; break; }; - return $1427; - })())); - return $1426; - })())); - var $1419 = $1425; + var $1419 = $1421; + break; + }; + var $1413 = $1419; break; }; - var $1412 = $1419; + var $1406 = $1413; break; }; - var $1410 = $1412; + var $1404 = $1406; break; }; - return $1410; + return $1404; }; const Kind$Parser$comment = x0 => Kind$Parser$comment$(x0); const Kind$Parser$spaces = Parser$many$(Parser$choice(List$cons$(Parser$text(" "), List$cons$(Parser$text("\u{9}"), List$cons$(Parser$text("\u{d}"), List$cons$(Parser$text("\u{a}"), List$cons$(Kind$Parser$comment, List$nil))))))); @@ -5946,66 +5915,66 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1446 = self.idx; - var $1447 = Parser$Reply$value$(_pst$1, $1446); - var $1445 = $1447; + var $1436 = self.idx; + var $1437 = Parser$Reply$value$(_pst$1, $1436); + var $1435 = $1437; break; }; - return $1445; + return $1435; }; const Parser$get_idx = x0 => Parser$get_idx$(x0); function U16$btw$(_a$1, _b$2, _c$3) { - var $1448 = ((_a$1 <= _b$2) && (_b$2 <= _c$3)); - return $1448; + var $1438 = ((_a$1 <= _b$2) && (_b$2 <= _c$3)); + return $1438; }; const U16$btw = x0 => x1 => x2 => U16$btw$(x0, x1, x2); function Kind$Name$is_letter$(_chr$1) { var self = U16$btw$(65, _chr$1, 90); if (self) { - var $1450 = Bool$true; - var $1449 = $1450; + var $1440 = Bool$true; + var $1439 = $1440; } else { var self = U16$btw$(97, _chr$1, 122); if (self) { - var $1452 = Bool$true; - var $1451 = $1452; + var $1442 = Bool$true; + var $1441 = $1442; } else { var self = U16$btw$(48, _chr$1, 57); if (self) { - var $1454 = Bool$true; - var $1453 = $1454; + var $1444 = Bool$true; + var $1443 = $1444; } else { var self = (46 === _chr$1); if (self) { - var $1456 = Bool$true; - var $1455 = $1456; + var $1446 = Bool$true; + var $1445 = $1446; } else { var self = (95 === _chr$1); if (self) { - var $1458 = Bool$true; - var $1457 = $1458; + var $1448 = Bool$true; + var $1447 = $1448; } else { var self = (94 === _chr$1); if (self) { - var $1460 = Bool$true; - var $1459 = $1460; + var $1450 = Bool$true; + var $1449 = $1450; } else { - var $1461 = Bool$false; - var $1459 = $1461; + var $1451 = Bool$false; + var $1449 = $1451; }; - var $1457 = $1459; + var $1447 = $1449; }; - var $1455 = $1457; + var $1445 = $1447; }; - var $1453 = $1455; + var $1443 = $1445; }; - var $1451 = $1453; + var $1441 = $1443; }; - var $1449 = $1451; + var $1439 = $1441; }; - return $1449; + return $1439; }; const Kind$Name$is_letter = x0 => Kind$Name$is_letter$(x0); @@ -6013,33 +5982,33 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1463 = self.err; - var $1464 = self.nam; - var $1465 = self.ini; - var $1466 = self.idx; - var $1467 = self.str; - var self = $1467; + var $1453 = self.err; + var $1454 = self.nam; + var $1455 = self.ini; + var $1456 = self.idx; + var $1457 = self.str; + var self = $1457; if (self.length === 0) { - var $1469 = Parser$Reply$fail$($1464, $1465, $1466, "Unexpected eof."); - var $1468 = $1469; + var $1459 = Parser$Reply$fail$($1454, $1455, $1456, "Unexpected eof."); + var $1458 = $1459; } else { - var $1470 = self.charCodeAt(0); - var $1471 = self.slice(1); - var self = Kind$Name$is_letter$($1470); + var $1460 = self.charCodeAt(0); + var $1461 = self.slice(1); + var self = Kind$Name$is_letter$($1460); if (self) { - var _pst$9 = Parser$State$new$($1463, $1464, $1465, Nat$succ$($1466), $1471); - var $1473 = Parser$Reply$value$(_pst$9, $1470); - var $1472 = $1473; + var _pst$9 = Parser$State$new$($1453, $1454, $1455, Nat$succ$($1456), $1461); + var $1463 = Parser$Reply$value$(_pst$9, $1460); + var $1462 = $1463; } else { - var $1474 = Parser$Reply$fail$($1464, $1465, $1466, "Expected name."); - var $1472 = $1474; + var $1464 = Parser$Reply$fail$($1454, $1455, $1456, "Expected name."); + var $1462 = $1464; }; - var $1468 = $1472; + var $1458 = $1462; }; - var $1462 = $1468; + var $1452 = $1458; break; }; - return $1462; + return $1452; }; const Kind$Parser$letter = x0 => Kind$Parser$letter$(x0); @@ -6047,17 +6016,17 @@ module.exports = (function() { var self = _list$2; switch (self._) { case 'List.cons': - var $1476 = self.head; - var $1477 = self.tail; - var $1478 = _cons$5($1476)(List$fold$($1477, _nil$4, _cons$5)); - var $1475 = $1478; + var $1466 = self.head; + var $1467 = self.tail; + var $1468 = _cons$5($1466)(List$fold$($1467, _nil$4, _cons$5)); + var $1465 = $1468; break; case 'List.nil': - var $1479 = _nil$4; - var $1475 = $1479; + var $1469 = _nil$4; + var $1465 = $1469; break; }; - return $1475; + return $1465; }; const List$fold = x0 => x1 => x2 => List$fold$(x0, x1, x2); @@ -6065,29 +6034,29 @@ module.exports = (function() { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $1481 = self.nam; - var $1482 = self.ini; - var $1483 = self.idx; - var $1484 = Parser$Reply$fail$($1481, $1482, $1483, _error$2); - var $1480 = $1484; + var $1471 = self.nam; + var $1472 = self.ini; + var $1473 = self.idx; + var $1474 = Parser$Reply$fail$($1471, $1472, $1473, _error$2); + var $1470 = $1474; break; }; - return $1480; + return $1470; }; const Parser$fail = x0 => x1 => Parser$fail$(x0, x1); function String$head$(_xs$1) { var self = _xs$1; if (self.length === 0) { - var $1486 = Maybe$none; - var $1485 = $1486; + var $1476 = Maybe$none; + var $1475 = $1476; } else { - var $1487 = self.charCodeAt(0); - var $1488 = self.slice(1); - var $1489 = Maybe$some$($1487); - var $1485 = $1489; + var $1477 = self.charCodeAt(0); + var $1478 = self.slice(1); + var $1479 = Maybe$some$($1477); + var $1475 = $1479; }; - return $1485; + return $1475; }; const String$head = x0 => String$head$(x0); @@ -6095,265 +6064,253 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1491 = self.err; + var $1481 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1493 = self.err; - var self = $1491; + var $1483 = self.err; + var self = $1481; switch (self._) { case 'Maybe.some': - var $1495 = self.value; - var $1496 = Parser$Reply$error$(Parser$Error$combine$($1495, $1493)); - var $1494 = $1496; + var $1485 = self.value; + var $1486 = Parser$Reply$error$(Parser$Error$combine$($1485, $1483)); + var $1484 = $1486; break; case 'Maybe.none': - var $1497 = Parser$Reply$error$($1493); - var $1494 = $1497; + var $1487 = Parser$Reply$error$($1483); + var $1484 = $1487; break; }; - var $1492 = $1494; + var $1482 = $1484; break; case 'Parser.Reply.value': - var $1498 = self.pst; - var self = $1498; + var $1488 = self.pst; + var self = $1488; switch (self._) { case 'Parser.State.new': - var $1500 = self.err; - var $1501 = self.nam; - var $1502 = self.ini; - var $1503 = self.idx; - var $1504 = self.str; - var $1505 = ((console.log(("FALTANDO " + $1504)), (_$15 => { - var $1506 = ((console.log(("VALUE " + $1501)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1491, $1500), $1501, $1502, $1503, $1504); - var self = _reply$pst$17; + var $1490 = self.err; + var $1491 = self.nam; + var $1492 = self.ini; + var $1493 = self.idx; + var $1494 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1481, $1490), $1491, $1492, $1493, $1494); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $1496 = self.err; + var _reply$21 = Parser$many1$(Kind$Parser$letter, _reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $1508 = self.err; - var _reply$23 = Parser$many1$(Kind$Parser$letter, _reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $1498 = self.err; + var self = $1496; switch (self._) { - case 'Parser.Reply.error': - var $1510 = self.err; - var self = $1508; - switch (self._) { - case 'Maybe.some': - var $1512 = self.value; - var $1513 = Parser$Reply$error$(Parser$Error$combine$($1512, $1510)); - var $1511 = $1513; - break; - case 'Maybe.none': - var $1514 = Parser$Reply$error$($1510); - var $1511 = $1514; - break; - }; - var $1509 = $1511; + case 'Maybe.some': + var $1500 = self.value; + var $1501 = Parser$Reply$error$(Parser$Error$combine$($1500, $1498)); + var $1499 = $1501; break; - case 'Parser.Reply.value': - var $1515 = self.pst; - var $1516 = self.val; - var self = $1515; - switch (self._) { - case 'Parser.State.new': - var $1518 = self.err; - var $1519 = self.nam; - var $1520 = self.ini; - var $1521 = self.idx; - var $1522 = self.str; - var $1523 = ((console.log(("FALTANDO " + $1522)), (_$31 => { - var $1524 = ((console.log(("VALUE " + $1519)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1508, $1518), $1519, $1520, $1521, $1522); - var _name$34 = List$fold$($1516, String$nil, String$cons); - var _reserved$35 = Parser$fail("Reserved keyword."); - var _numeric$36 = Parser$fail("Name can\'t start with number or sign."); - var self = (_name$34 === "case"); - if (self) { - var $1526 = _reserved$35; - var $1525 = $1526; - } else { - var self = (_name$34 === "do"); - if (self) { - var $1528 = _reserved$35; - var $1527 = $1528; - } else { - var self = (_name$34 === "if"); - if (self) { - var $1530 = _reserved$35; - var $1529 = $1530; - } else { - var self = (_name$34 === "with"); - if (self) { - var $1532 = _reserved$35; - var $1531 = $1532; - } else { - var self = (_name$34 === "for"); - if (self) { - var $1534 = _reserved$35; - var $1533 = $1534; - } else { - var self = (_name$34 === "else"); - if (self) { - var $1536 = _reserved$35; - var $1535 = $1536; - } else { - var self = (_name$34 === "switch"); - if (self) { - var $1538 = _reserved$35; - var $1537 = $1538; - } else { - var self = (_name$34 === "."); - if (self) { - var $1540 = _reserved$35; - var $1539 = $1540; - } else { - var self = (_name$34 === ".."); - if (self) { - var $1542 = _reserved$35; - var $1541 = $1542; - } else { - var self = (_name$34 === "..."); - if (self) { - var $1544 = _reserved$35; - var $1543 = $1544; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 43); - if (self) { - var $1546 = _numeric$36; - var $1545 = $1546; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 45); - if (self) { - var $1548 = _numeric$36; - var $1547 = $1548; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 48); - if (self) { - var $1550 = _numeric$36; - var $1549 = $1550; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 49); - if (self) { - var $1552 = _numeric$36; - var $1551 = $1552; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 50); - if (self) { - var $1554 = _numeric$36; - var $1553 = $1554; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 51); - if (self) { - var $1556 = _numeric$36; - var $1555 = $1556; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 52); - if (self) { - var $1558 = _numeric$36; - var $1557 = $1558; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 53); - if (self) { - var $1560 = _numeric$36; - var $1559 = $1560; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 54); - if (self) { - var $1562 = _numeric$36; - var $1561 = $1562; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 55); - if (self) { - var $1564 = _numeric$36; - var $1563 = $1564; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 56); - if (self) { - var $1566 = _numeric$36; - var $1565 = $1566; - } else { - var self = (Maybe$default$(String$head$(_name$34), 120) === 57); - if (self) { - var $1568 = _numeric$36; - var $1567 = $1568; - } else { - var $1569 = (_pst$37 => { - var $1570 = Parser$Reply$value$(_pst$37, _name$34); - return $1570; - }); - var $1567 = $1569; - }; - var $1565 = $1567; - }; - var $1563 = $1565; - }; - var $1561 = $1563; - }; - var $1559 = $1561; - }; - var $1557 = $1559; - }; - var $1555 = $1557; - }; - var $1553 = $1555; - }; - var $1551 = $1553; - }; - var $1549 = $1551; - }; - var $1547 = $1549; - }; - var $1545 = $1547; - }; - var $1543 = $1545; - }; - var $1541 = $1543; - }; - var $1539 = $1541; - }; - var $1537 = $1539; - }; - var $1535 = $1537; - }; - var $1533 = $1535; - }; - var $1531 = $1533; - }; - var $1529 = $1531; - }; - var $1527 = $1529; - }; - var $1525 = $1527; - }; - var $1525 = $1525(_reply$pst$33); - return $1525; - })())); - return $1524; - })())); - var $1517 = $1523; - break; - }; - var $1509 = $1517; + case 'Maybe.none': + var $1502 = Parser$Reply$error$($1498); + var $1499 = $1502; break; }; - var $1507 = $1509; + var $1497 = $1499; + break; + case 'Parser.Reply.value': + var $1503 = self.pst; + var $1504 = self.val; + var self = $1503; + switch (self._) { + case 'Parser.State.new': + var $1506 = self.err; + var $1507 = self.nam; + var $1508 = self.ini; + var $1509 = self.idx; + var $1510 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1496, $1506), $1507, $1508, $1509, $1510); + var _name$30 = List$fold$($1504, String$nil, String$cons); + var _reserved$31 = Parser$fail("Reserved keyword."); + var _numeric$32 = Parser$fail("Name can\'t start with number or sign."); + var self = (_name$30 === "case"); + if (self) { + var $1512 = _reserved$31; + var $1511 = $1512; + } else { + var self = (_name$30 === "do"); + if (self) { + var $1514 = _reserved$31; + var $1513 = $1514; + } else { + var self = (_name$30 === "if"); + if (self) { + var $1516 = _reserved$31; + var $1515 = $1516; + } else { + var self = (_name$30 === "with"); + if (self) { + var $1518 = _reserved$31; + var $1517 = $1518; + } else { + var self = (_name$30 === "for"); + if (self) { + var $1520 = _reserved$31; + var $1519 = $1520; + } else { + var self = (_name$30 === "else"); + if (self) { + var $1522 = _reserved$31; + var $1521 = $1522; + } else { + var self = (_name$30 === "switch"); + if (self) { + var $1524 = _reserved$31; + var $1523 = $1524; + } else { + var self = (_name$30 === "."); + if (self) { + var $1526 = _reserved$31; + var $1525 = $1526; + } else { + var self = (_name$30 === ".."); + if (self) { + var $1528 = _reserved$31; + var $1527 = $1528; + } else { + var self = (_name$30 === "..."); + if (self) { + var $1530 = _reserved$31; + var $1529 = $1530; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 43); + if (self) { + var $1532 = _numeric$32; + var $1531 = $1532; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 45); + if (self) { + var $1534 = _numeric$32; + var $1533 = $1534; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 48); + if (self) { + var $1536 = _numeric$32; + var $1535 = $1536; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 49); + if (self) { + var $1538 = _numeric$32; + var $1537 = $1538; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 50); + if (self) { + var $1540 = _numeric$32; + var $1539 = $1540; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 51); + if (self) { + var $1542 = _numeric$32; + var $1541 = $1542; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 52); + if (self) { + var $1544 = _numeric$32; + var $1543 = $1544; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 53); + if (self) { + var $1546 = _numeric$32; + var $1545 = $1546; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 54); + if (self) { + var $1548 = _numeric$32; + var $1547 = $1548; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 55); + if (self) { + var $1550 = _numeric$32; + var $1549 = $1550; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 56); + if (self) { + var $1552 = _numeric$32; + var $1551 = $1552; + } else { + var self = (Maybe$default$(String$head$(_name$30), 120) === 57); + if (self) { + var $1554 = _numeric$32; + var $1553 = $1554; + } else { + var $1555 = (_pst$33 => { + var $1556 = Parser$Reply$value$(_pst$33, _name$30); + return $1556; + }); + var $1553 = $1555; + }; + var $1551 = $1553; + }; + var $1549 = $1551; + }; + var $1547 = $1549; + }; + var $1545 = $1547; + }; + var $1543 = $1545; + }; + var $1541 = $1543; + }; + var $1539 = $1541; + }; + var $1537 = $1539; + }; + var $1535 = $1537; + }; + var $1533 = $1535; + }; + var $1531 = $1533; + }; + var $1529 = $1531; + }; + var $1527 = $1529; + }; + var $1525 = $1527; + }; + var $1523 = $1525; + }; + var $1521 = $1523; + }; + var $1519 = $1521; + }; + var $1517 = $1519; + }; + var $1515 = $1517; + }; + var $1513 = $1515; + }; + var $1511 = $1513; + }; + var $1511 = $1511(_reply$pst$29); + var $1505 = $1511; + break; + }; + var $1497 = $1505; break; }; - return $1507; - })())); - return $1506; - })())); - var $1499 = $1505; + var $1495 = $1497; + break; + }; + var $1489 = $1495; break; }; - var $1492 = $1499; + var $1482 = $1489; break; }; - var $1490 = $1492; + var $1480 = $1482; break; }; - return $1490; + return $1480; }; const Kind$Parser$name1 = x0 => Kind$Parser$name1$(x0); @@ -6361,105 +6318,93 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $1572 = self.err; + var $1558 = self.err; var _reply$10 = _parser$3(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $1574 = self.err; - var self = $1572; + var $1560 = self.err; + var self = $1558; switch (self._) { case 'Maybe.some': - var $1576 = self.value; - var $1577 = Parser$Reply$error$(Parser$Error$combine$($1576, $1574)); - var $1575 = $1577; + var $1562 = self.value; + var $1563 = Parser$Reply$error$(Parser$Error$combine$($1562, $1560)); + var $1561 = $1563; break; case 'Maybe.none': - var $1578 = Parser$Reply$error$($1574); - var $1575 = $1578; + var $1564 = Parser$Reply$error$($1560); + var $1561 = $1564; break; }; - var $1573 = $1575; + var $1559 = $1561; break; case 'Parser.Reply.value': - var $1579 = self.pst; - var $1580 = self.val; - var self = $1579; + var $1565 = self.pst; + var $1566 = self.val; + var self = $1565; switch (self._) { case 'Parser.State.new': - var $1582 = self.err; - var $1583 = self.nam; - var $1584 = self.ini; - var $1585 = self.idx; - var $1586 = self.str; - var $1587 = ((console.log(("FALTANDO " + $1586)), (_$18 => { - var $1588 = ((console.log(("VALUE " + $1583)), (_$19 => { - var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($1572, $1582), $1583, $1584, $1585, $1586); - var self = _reply$pst$20; + var $1568 = self.err; + var $1569 = self.nam; + var $1570 = self.ini; + var $1571 = self.idx; + var $1572 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($1558, $1568), $1569, $1570, $1571, $1572); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $1574 = self.err; + var _reply$24 = Parser$until$(_cond$2, _parser$3)(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Parser.State.new': - var $1590 = self.err; - var _reply$26 = Parser$until$(_cond$2, _parser$3)(_reply$pst$20); - var self = _reply$26; + case 'Parser.Reply.error': + var $1576 = self.err; + var self = $1574; switch (self._) { - case 'Parser.Reply.error': - var $1592 = self.err; - var self = $1590; - switch (self._) { - case 'Maybe.some': - var $1594 = self.value; - var $1595 = Parser$Reply$error$(Parser$Error$combine$($1594, $1592)); - var $1593 = $1595; - break; - case 'Maybe.none': - var $1596 = Parser$Reply$error$($1592); - var $1593 = $1596; - break; - }; - var $1591 = $1593; + case 'Maybe.some': + var $1578 = self.value; + var $1579 = Parser$Reply$error$(Parser$Error$combine$($1578, $1576)); + var $1577 = $1579; break; - case 'Parser.Reply.value': - var $1597 = self.pst; - var $1598 = self.val; - var self = $1597; - switch (self._) { - case 'Parser.State.new': - var $1600 = self.err; - var $1601 = self.nam; - var $1602 = self.ini; - var $1603 = self.idx; - var $1604 = self.str; - var $1605 = ((console.log(("FALTANDO " + $1604)), (_$34 => { - var $1606 = ((console.log(("VALUE " + $1601)), (_$35 => { - var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($1590, $1600), $1601, $1602, $1603, $1604); - var $1607 = Parser$Reply$value$(_reply$pst$36, List$cons$($1580, $1598)); - return $1607; - })())); - return $1606; - })())); - var $1599 = $1605; - break; - }; - var $1591 = $1599; + case 'Maybe.none': + var $1580 = Parser$Reply$error$($1576); + var $1577 = $1580; break; }; - var $1589 = $1591; + var $1575 = $1577; + break; + case 'Parser.Reply.value': + var $1581 = self.pst; + var $1582 = self.val; + var self = $1581; + switch (self._) { + case 'Parser.State.new': + var $1584 = self.err; + var $1585 = self.nam; + var $1586 = self.ini; + var $1587 = self.idx; + var $1588 = self.str; + var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($1574, $1584), $1585, $1586, $1587, $1588); + var $1589 = Parser$Reply$value$(_reply$pst$32, List$cons$($1566, $1582)); + var $1583 = $1589; + break; + }; + var $1575 = $1583; break; }; - return $1589; - })())); - return $1588; - })())); - var $1581 = $1587; + var $1573 = $1575; + break; + }; + var $1567 = $1573; break; }; - var $1573 = $1581; + var $1559 = $1567; break; }; - var $1571 = $1573; + var $1557 = $1559; break; }; - return $1571; + return $1557; }; const Parser$until1 = x0 => x1 => x2 => Parser$until1$(x0, x1, x2); @@ -6467,54 +6412,48 @@ module.exports = (function() { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $1609 = self.err; + var $1591 = self.err; var _reply$11 = _opens$2(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $1611 = self.err; - var self = $1609; + var $1593 = self.err; + var self = $1591; switch (self._) { case 'Maybe.some': - var $1613 = self.value; - var $1614 = Parser$Reply$error$(Parser$Error$combine$($1613, $1611)); - var $1612 = $1614; + var $1595 = self.value; + var $1596 = Parser$Reply$error$(Parser$Error$combine$($1595, $1593)); + var $1594 = $1596; break; case 'Maybe.none': - var $1615 = Parser$Reply$error$($1611); - var $1612 = $1615; + var $1597 = Parser$Reply$error$($1593); + var $1594 = $1597; break; }; - var $1610 = $1612; + var $1592 = $1594; break; case 'Parser.Reply.value': - var $1616 = self.pst; - var self = $1616; + var $1598 = self.pst; + var self = $1598; switch (self._) { case 'Parser.State.new': - var $1618 = self.err; - var $1619 = self.nam; - var $1620 = self.ini; - var $1621 = self.idx; - var $1622 = self.str; - var $1623 = ((console.log(("FALTANDO " + $1622)), (_$19 => { - var $1624 = ((console.log(("VALUE " + $1619)), (_$20 => { - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($1609, $1618), $1619, $1620, $1621, $1622); - var $1625 = Parser$until1$(_close$4, _parse$3, _reply$pst$21); - return $1625; - })())); - return $1624; - })())); - var $1617 = $1623; + var $1600 = self.err; + var $1601 = self.nam; + var $1602 = self.ini; + var $1603 = self.idx; + var $1604 = self.str; + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($1591, $1600), $1601, $1602, $1603, $1604); + var $1605 = Parser$until1$(_close$4, _parse$3, _reply$pst$19); + var $1599 = $1605; break; }; - var $1610 = $1617; + var $1592 = $1599; break; }; - var $1608 = $1610; + var $1590 = $1592; break; }; - return $1608; + return $1590; }; const Parser$wrap1 = x0 => x1 => x2 => x3 => Parser$wrap1$(x0, x1, x2, x3); @@ -6522,54 +6461,48 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $1627 = self.err; + var $1607 = self.err; var _reply$8 = Kind$Parser$spaces(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $1629 = self.err; - var self = $1627; + var $1609 = self.err; + var self = $1607; switch (self._) { case 'Maybe.some': - var $1631 = self.value; - var $1632 = Parser$Reply$error$(Parser$Error$combine$($1631, $1629)); - var $1630 = $1632; + var $1611 = self.value; + var $1612 = Parser$Reply$error$(Parser$Error$combine$($1611, $1609)); + var $1610 = $1612; break; case 'Maybe.none': - var $1633 = Parser$Reply$error$($1629); - var $1630 = $1633; + var $1613 = Parser$Reply$error$($1609); + var $1610 = $1613; break; }; - var $1628 = $1630; + var $1608 = $1610; break; case 'Parser.Reply.value': - var $1634 = self.pst; - var self = $1634; + var $1614 = self.pst; + var self = $1614; switch (self._) { case 'Parser.State.new': - var $1636 = self.err; - var $1637 = self.nam; - var $1638 = self.ini; - var $1639 = self.idx; - var $1640 = self.str; - var $1641 = ((console.log(("FALTANDO " + $1640)), (_$16 => { - var $1642 = ((console.log(("VALUE " + $1637)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($1627, $1636), $1637, $1638, $1639, $1640); - var $1643 = Parser$text$(_text$1, _reply$pst$18); - return $1643; - })())); - return $1642; - })())); - var $1635 = $1641; + var $1616 = self.err; + var $1617 = self.nam; + var $1618 = self.ini; + var $1619 = self.idx; + var $1620 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($1607, $1616), $1617, $1618, $1619, $1620); + var $1621 = Parser$text$(_text$1, _reply$pst$16); + var $1615 = $1621; break; }; - var $1628 = $1635; + var $1608 = $1615; break; }; - var $1626 = $1628; + var $1606 = $1608; break; }; - return $1626; + return $1606; }; const Kind$Parser$text = x0 => x1 => Kind$Parser$text$(x0, x1); @@ -6580,177 +6513,159 @@ module.exports = (function() { var self = _parse$2(_pst$3); switch (self._) { case 'Parser.Reply.value': - var $1646 = self.pst; - var $1647 = self.val; - var $1648 = Parser$Reply$value$($1646, Maybe$some$($1647)); - var $1645 = $1648; + var $1624 = self.pst; + var $1625 = self.val; + var $1626 = Parser$Reply$value$($1624, Maybe$some$($1625)); + var $1623 = $1626; break; case 'Parser.Reply.error': - var $1649 = Parser$Reply$value$(_pst$3, Maybe$none); - var $1645 = $1649; + var $1627 = Parser$Reply$value$(_pst$3, Maybe$none); + var $1623 = $1627; break; }; - var $1644 = $1645; + var $1622 = $1623; break; }; - return $1644; + return $1622; }; const Parser$maybe = x0 => x1 => Parser$maybe$(x0, x1); function Kind$Parser$items1$(_ini$2, _parser$3, _end$4) { - var $1650 = Parser$wrap1(Kind$Parser$text(_ini$2))((_pst$5 => { + var $1628 = Parser$wrap1(Kind$Parser$text(_ini$2))((_pst$5 => { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $1652 = self.err; + var $1630 = self.err; var _reply$11 = Kind$Parser$spaces(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $1654 = self.err; - var self = $1652; + var $1632 = self.err; + var self = $1630; switch (self._) { case 'Maybe.some': - var $1656 = self.value; - var $1657 = Parser$Reply$error$(Parser$Error$combine$($1656, $1654)); - var $1655 = $1657; + var $1634 = self.value; + var $1635 = Parser$Reply$error$(Parser$Error$combine$($1634, $1632)); + var $1633 = $1635; break; case 'Maybe.none': - var $1658 = Parser$Reply$error$($1654); - var $1655 = $1658; + var $1636 = Parser$Reply$error$($1632); + var $1633 = $1636; break; }; - var $1653 = $1655; + var $1631 = $1633; break; case 'Parser.Reply.value': - var $1659 = self.pst; - var self = $1659; + var $1637 = self.pst; + var self = $1637; switch (self._) { case 'Parser.State.new': - var $1661 = self.err; - var $1662 = self.nam; - var $1663 = self.ini; - var $1664 = self.idx; - var $1665 = self.str; - var $1666 = ((console.log(("FALTANDO " + $1665)), (_$19 => { - var $1667 = ((console.log(("VALUE " + $1662)), (_$20 => { - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($1652, $1661), $1662, $1663, $1664, $1665); - var self = _reply$pst$21; + var $1639 = self.err; + var $1640 = self.nam; + var $1641 = self.ini; + var $1642 = self.idx; + var $1643 = self.str; + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($1630, $1639), $1640, $1641, $1642, $1643); + var self = _reply$pst$19; + switch (self._) { + case 'Parser.State.new': + var $1645 = self.err; + var _reply$25 = _parser$3(_reply$pst$19); + var self = _reply$25; switch (self._) { - case 'Parser.State.new': - var $1669 = self.err; - var _reply$27 = _parser$3(_reply$pst$21); - var self = _reply$27; + case 'Parser.Reply.error': + var $1647 = self.err; + var self = $1645; switch (self._) { - case 'Parser.Reply.error': - var $1671 = self.err; - var self = $1669; - switch (self._) { - case 'Maybe.some': - var $1673 = self.value; - var $1674 = Parser$Reply$error$(Parser$Error$combine$($1673, $1671)); - var $1672 = $1674; - break; - case 'Maybe.none': - var $1675 = Parser$Reply$error$($1671); - var $1672 = $1675; - break; - }; - var $1670 = $1672; + case 'Maybe.some': + var $1649 = self.value; + var $1650 = Parser$Reply$error$(Parser$Error$combine$($1649, $1647)); + var $1648 = $1650; break; - case 'Parser.Reply.value': - var $1676 = self.pst; - var $1677 = self.val; - var self = $1676; - switch (self._) { - case 'Parser.State.new': - var $1679 = self.err; - var $1680 = self.nam; - var $1681 = self.ini; - var $1682 = self.idx; - var $1683 = self.str; - var $1684 = ((console.log(("FALTANDO " + $1683)), (_$35 => { - var $1685 = ((console.log(("VALUE " + $1680)), (_$36 => { - var _reply$pst$37 = Parser$State$new$(Parser$Error$maybe_combine$($1669, $1679), $1680, $1681, $1682, $1683); - var self = _reply$pst$37; - switch (self._) { - case 'Parser.State.new': - var $1687 = self.err; - var _reply$43 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$37); - var self = _reply$43; - switch (self._) { - case 'Parser.Reply.error': - var $1689 = self.err; - var self = $1687; - switch (self._) { - case 'Maybe.some': - var $1691 = self.value; - var $1692 = Parser$Reply$error$(Parser$Error$combine$($1691, $1689)); - var $1690 = $1692; - break; - case 'Maybe.none': - var $1693 = Parser$Reply$error$($1689); - var $1690 = $1693; - break; - }; - var $1688 = $1690; - break; - case 'Parser.Reply.value': - var $1694 = self.pst; - var self = $1694; - switch (self._) { - case 'Parser.State.new': - var $1696 = self.err; - var $1697 = self.nam; - var $1698 = self.ini; - var $1699 = self.idx; - var $1700 = self.str; - var $1701 = ((console.log(("FALTANDO " + $1700)), (_$51 => { - var $1702 = ((console.log(("VALUE " + $1697)), (_$52 => { - var _reply$pst$53 = Parser$State$new$(Parser$Error$maybe_combine$($1687, $1696), $1697, $1698, $1699, $1700); - var $1703 = Parser$Reply$value$(_reply$pst$53, $1677); - return $1703; - })())); - return $1702; - })())); - var $1695 = $1701; - break; - }; - var $1688 = $1695; - break; - }; - var $1686 = $1688; - break; - }; - return $1686; - })())); - return $1685; - })())); - var $1678 = $1684; - break; - }; - var $1670 = $1678; + case 'Maybe.none': + var $1651 = Parser$Reply$error$($1647); + var $1648 = $1651; break; }; - var $1668 = $1670; + var $1646 = $1648; + break; + case 'Parser.Reply.value': + var $1652 = self.pst; + var $1653 = self.val; + var self = $1652; + switch (self._) { + case 'Parser.State.new': + var $1655 = self.err; + var $1656 = self.nam; + var $1657 = self.ini; + var $1658 = self.idx; + var $1659 = self.str; + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1645, $1655), $1656, $1657, $1658, $1659); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $1661 = self.err; + var _reply$39 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $1663 = self.err; + var self = $1661; + switch (self._) { + case 'Maybe.some': + var $1665 = self.value; + var $1666 = Parser$Reply$error$(Parser$Error$combine$($1665, $1663)); + var $1664 = $1666; + break; + case 'Maybe.none': + var $1667 = Parser$Reply$error$($1663); + var $1664 = $1667; + break; + }; + var $1662 = $1664; + break; + case 'Parser.Reply.value': + var $1668 = self.pst; + var self = $1668; + switch (self._) { + case 'Parser.State.new': + var $1670 = self.err; + var $1671 = self.nam; + var $1672 = self.ini; + var $1673 = self.idx; + var $1674 = self.str; + var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($1661, $1670), $1671, $1672, $1673, $1674); + var $1675 = Parser$Reply$value$(_reply$pst$47, $1653); + var $1669 = $1675; + break; + }; + var $1662 = $1669; + break; + }; + var $1660 = $1662; + break; + }; + var $1654 = $1660; + break; + }; + var $1646 = $1654; break; }; - return $1668; - })())); - return $1667; - })())); - var $1660 = $1666; + var $1644 = $1646; + break; + }; + var $1638 = $1644; break; }; - var $1653 = $1660; + var $1631 = $1638; break; }; - var $1651 = $1653; + var $1629 = $1631; break; }; - return $1651; + return $1629; }))(Kind$Parser$text(_end$4)); - return $1650; + return $1628; }; const Kind$Parser$items1 = x0 => x1 => x2 => Kind$Parser$items1$(x0, x1, x2); @@ -6758,114 +6673,102 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1705 = self.err; + var $1677 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1707 = self.err; - var self = $1705; + var $1679 = self.err; + var self = $1677; switch (self._) { case 'Maybe.some': - var $1709 = self.value; - var $1710 = Parser$Reply$error$(Parser$Error$combine$($1709, $1707)); - var $1708 = $1710; + var $1681 = self.value; + var $1682 = Parser$Reply$error$(Parser$Error$combine$($1681, $1679)); + var $1680 = $1682; break; case 'Maybe.none': - var $1711 = Parser$Reply$error$($1707); - var $1708 = $1711; + var $1683 = Parser$Reply$error$($1679); + var $1680 = $1683; break; }; - var $1706 = $1708; + var $1678 = $1680; break; case 'Parser.Reply.value': - var $1712 = self.pst; - var self = $1712; + var $1684 = self.pst; + var self = $1684; switch (self._) { case 'Parser.State.new': - var $1714 = self.err; - var $1715 = self.nam; - var $1716 = self.ini; - var $1717 = self.idx; - var $1718 = self.str; - var $1719 = ((console.log(("FALTANDO " + $1718)), (_$15 => { - var $1720 = ((console.log(("VALUE " + $1715)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1705, $1714), $1715, $1716, $1717, $1718); - var self = _reply$pst$17; + var $1686 = self.err; + var $1687 = self.nam; + var $1688 = self.ini; + var $1689 = self.idx; + var $1690 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1677, $1686), $1687, $1688, $1689, $1690); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $1692 = self.err; + var _reply$21 = Parser$many$(Kind$Parser$letter)(_reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $1722 = self.err; - var _reply$23 = Parser$many$(Kind$Parser$letter)(_reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $1694 = self.err; + var self = $1692; switch (self._) { - case 'Parser.Reply.error': - var $1724 = self.err; - var self = $1722; - switch (self._) { - case 'Maybe.some': - var $1726 = self.value; - var $1727 = Parser$Reply$error$(Parser$Error$combine$($1726, $1724)); - var $1725 = $1727; - break; - case 'Maybe.none': - var $1728 = Parser$Reply$error$($1724); - var $1725 = $1728; - break; - }; - var $1723 = $1725; + case 'Maybe.some': + var $1696 = self.value; + var $1697 = Parser$Reply$error$(Parser$Error$combine$($1696, $1694)); + var $1695 = $1697; break; - case 'Parser.Reply.value': - var $1729 = self.pst; - var $1730 = self.val; - var self = $1729; - switch (self._) { - case 'Parser.State.new': - var $1732 = self.err; - var $1733 = self.nam; - var $1734 = self.ini; - var $1735 = self.idx; - var $1736 = self.str; - var $1737 = ((console.log(("FALTANDO " + $1736)), (_$31 => { - var $1738 = ((console.log(("VALUE " + $1733)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1722, $1732), $1733, $1734, $1735, $1736); - var $1739 = Parser$Reply$value$(_reply$pst$33, List$fold$($1730, String$nil, String$cons)); - return $1739; - })())); - return $1738; - })())); - var $1731 = $1737; - break; - }; - var $1723 = $1731; + case 'Maybe.none': + var $1698 = Parser$Reply$error$($1694); + var $1695 = $1698; break; }; - var $1721 = $1723; + var $1693 = $1695; + break; + case 'Parser.Reply.value': + var $1699 = self.pst; + var $1700 = self.val; + var self = $1699; + switch (self._) { + case 'Parser.State.new': + var $1702 = self.err; + var $1703 = self.nam; + var $1704 = self.ini; + var $1705 = self.idx; + var $1706 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1692, $1702), $1703, $1704, $1705, $1706); + var $1707 = Parser$Reply$value$(_reply$pst$29, List$fold$($1700, String$nil, String$cons)); + var $1701 = $1707; + break; + }; + var $1693 = $1701; break; }; - return $1721; - })())); - return $1720; - })())); - var $1713 = $1719; + var $1691 = $1693; + break; + }; + var $1685 = $1691; break; }; - var $1706 = $1713; + var $1678 = $1685; break; }; - var $1704 = $1706; + var $1676 = $1678; break; }; - return $1704; + return $1676; }; const Kind$Parser$name = x0 => Kind$Parser$name$(x0); function Kind$Term$ori$(_orig$1, _expr$2) { - var $1740 = ({ + var $1708 = ({ _: 'Kind.Term.ori', 'orig': _orig$1, 'expr': _expr$2 }); - return $1740; + return $1708; }; const Kind$Term$ori = x0 => x1 => Kind$Term$ori$(x0, x1); @@ -6877,56 +6780,56 @@ module.exports = (function() { var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $1743 = self.err; - var $1744 = Parser$Reply$error$($1743); - var $1742 = $1744; + var $1711 = self.err; + var $1712 = Parser$Reply$error$($1711); + var $1710 = $1712; break; case 'Parser.Reply.value': - var $1745 = self.pst; - var _pst$12 = $1745; + var $1713 = self.pst; + var _pst$12 = $1713; var self = _pst$12; switch (self._) { case 'Parser.State.new': - var $1747 = self.err; - var $1748 = self.nam; - var $1749 = self.ini; - var $1750 = self.idx; - var $1751 = self.str; - var _reply$18 = _parse$2(Parser$State$new$($1747, _name$1, $1750, $1750, $1751)); + var $1715 = self.err; + var $1716 = self.nam; + var $1717 = self.ini; + var $1718 = self.idx; + var $1719 = self.str; + var _reply$18 = _parse$2(Parser$State$new$($1715, _name$1, $1718, $1718, $1719)); var self = _reply$18; switch (self._) { case 'Parser.Reply.error': - var $1753 = self.err; - var $1754 = Parser$Reply$error$($1753); - var $1752 = $1754; + var $1721 = self.err; + var $1722 = Parser$Reply$error$($1721); + var $1720 = $1722; break; case 'Parser.Reply.value': - var $1755 = self.pst; - var $1756 = self.val; - var self = $1755; + var $1723 = self.pst; + var $1724 = self.val; + var self = $1723; switch (self._) { case 'Parser.State.new': - var $1758 = self.err; - var $1759 = self.idx; - var $1760 = self.str; - var _new_pst$26 = Parser$State$new$($1758, $1748, $1749, $1759, $1760); - var $1761 = Parser$Reply$value$(_new_pst$26, Kind$Term$ori$(Pair$new$($1750, $1759), $1756)); - var $1757 = $1761; + var $1726 = self.err; + var $1727 = self.idx; + var $1728 = self.str; + var _new_pst$26 = Parser$State$new$($1726, $1716, $1717, $1727, $1728); + var $1729 = Parser$Reply$value$(_new_pst$26, Kind$Term$ori$(Pair$new$($1718, $1727), $1724)); + var $1725 = $1729; break; }; - var $1752 = $1757; + var $1720 = $1725; break; }; - var $1746 = $1752; + var $1714 = $1720; break; }; - var $1742 = $1746; + var $1710 = $1714; break; }; - var $1741 = $1742; + var $1709 = $1710; break; }; - return $1741; + return $1709; }; const Kind$Parser$block = x0 => x1 => x2 => Kind$Parser$block$(x0, x1, x2); @@ -6934,212 +6837,188 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1763 = self.err; + var $1731 = self.err; var _reply$7 = Kind$Parser$name1$(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1765 = self.err; - var self = $1763; + var $1733 = self.err; + var self = $1731; switch (self._) { case 'Maybe.some': - var $1767 = self.value; - var $1768 = Parser$Reply$error$(Parser$Error$combine$($1767, $1765)); - var $1766 = $1768; + var $1735 = self.value; + var $1736 = Parser$Reply$error$(Parser$Error$combine$($1735, $1733)); + var $1734 = $1736; break; case 'Maybe.none': - var $1769 = Parser$Reply$error$($1765); - var $1766 = $1769; + var $1737 = Parser$Reply$error$($1733); + var $1734 = $1737; break; }; - var $1764 = $1766; + var $1732 = $1734; break; case 'Parser.Reply.value': - var $1770 = self.pst; - var $1771 = self.val; - var self = $1770; + var $1738 = self.pst; + var $1739 = self.val; + var self = $1738; switch (self._) { case 'Parser.State.new': - var $1773 = self.err; - var $1774 = self.nam; - var $1775 = self.ini; - var $1776 = self.idx; - var $1777 = self.str; - var $1778 = ((console.log(("FALTANDO " + $1777)), (_$15 => { - var $1779 = ((console.log(("VALUE " + $1774)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1763, $1773), $1774, $1775, $1776, $1777); - var self = _reply$pst$17; + var $1741 = self.err; + var $1742 = self.nam; + var $1743 = self.ini; + var $1744 = self.idx; + var $1745 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1731, $1741), $1742, $1743, $1744, $1745); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $1747 = self.err; + var _reply$21 = Kind$Parser$text$("=", _reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $1781 = self.err; - var _reply$23 = Kind$Parser$text$("=", _reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $1749 = self.err; + var self = $1747; switch (self._) { - case 'Parser.Reply.error': - var $1783 = self.err; - var self = $1781; - switch (self._) { - case 'Maybe.some': - var $1785 = self.value; - var $1786 = Parser$Reply$error$(Parser$Error$combine$($1785, $1783)); - var $1784 = $1786; - break; - case 'Maybe.none': - var $1787 = Parser$Reply$error$($1783); - var $1784 = $1787; - break; - }; - var $1782 = $1784; + case 'Maybe.some': + var $1751 = self.value; + var $1752 = Parser$Reply$error$(Parser$Error$combine$($1751, $1749)); + var $1750 = $1752; break; - case 'Parser.Reply.value': - var $1788 = self.pst; - var self = $1788; - switch (self._) { - case 'Parser.State.new': - var $1790 = self.err; - var $1791 = self.nam; - var $1792 = self.ini; - var $1793 = self.idx; - var $1794 = self.str; - var $1795 = ((console.log(("FALTANDO " + $1794)), (_$31 => { - var $1796 = ((console.log(("VALUE " + $1791)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1781, $1790), $1791, $1792, $1793, $1794); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $1798 = self.err; - var _reply$39 = Kind$Parser$term(_reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $1800 = self.err; - var self = $1798; - switch (self._) { - case 'Maybe.some': - var $1802 = self.value; - var $1803 = Parser$Reply$error$(Parser$Error$combine$($1802, $1800)); - var $1801 = $1803; - break; - case 'Maybe.none': - var $1804 = Parser$Reply$error$($1800); - var $1801 = $1804; - break; - }; - var $1799 = $1801; - break; - case 'Parser.Reply.value': - var $1805 = self.pst; - var $1806 = self.val; - var self = $1805; - switch (self._) { - case 'Parser.State.new': - var $1808 = self.err; - var $1809 = self.nam; - var $1810 = self.ini; - var $1811 = self.idx; - var $1812 = self.str; - var $1813 = ((console.log(("FALTANDO " + $1812)), (_$47 => { - var $1814 = ((console.log(("VALUE " + $1809)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($1798, $1808), $1809, $1810, $1811, $1812); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $1816 = self.err; - var _reply$55 = Kind$Parser$spaces(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $1818 = self.err; - var self = $1816; - switch (self._) { - case 'Maybe.some': - var $1820 = self.value; - var $1821 = Parser$Reply$error$(Parser$Error$combine$($1820, $1818)); - var $1819 = $1821; - break; - case 'Maybe.none': - var $1822 = Parser$Reply$error$($1818); - var $1819 = $1822; - break; - }; - var $1817 = $1819; - break; - case 'Parser.Reply.value': - var $1823 = self.pst; - var self = $1823; - switch (self._) { - case 'Parser.State.new': - var $1825 = self.err; - var $1826 = self.nam; - var $1827 = self.ini; - var $1828 = self.idx; - var $1829 = self.str; - var $1830 = ((console.log(("FALTANDO " + $1829)), (_$63 => { - var $1831 = ((console.log(("VALUE " + $1826)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($1816, $1825), $1826, $1827, $1828, $1829); - var $1832 = Parser$Reply$value$(_reply$pst$65, Pair$new$($1771, $1806)); - return $1832; - })())); - return $1831; - })())); - var $1824 = $1830; - break; - }; - var $1817 = $1824; - break; - }; - var $1815 = $1817; - break; - }; - return $1815; - })())); - return $1814; - })())); - var $1807 = $1813; - break; - }; - var $1799 = $1807; - break; - }; - var $1797 = $1799; - break; - }; - return $1797; - })())); - return $1796; - })())); - var $1789 = $1795; - break; - }; - var $1782 = $1789; + case 'Maybe.none': + var $1753 = Parser$Reply$error$($1749); + var $1750 = $1753; break; }; - var $1780 = $1782; + var $1748 = $1750; + break; + case 'Parser.Reply.value': + var $1754 = self.pst; + var self = $1754; + switch (self._) { + case 'Parser.State.new': + var $1756 = self.err; + var $1757 = self.nam; + var $1758 = self.ini; + var $1759 = self.idx; + var $1760 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1747, $1756), $1757, $1758, $1759, $1760); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $1762 = self.err; + var _reply$35 = Kind$Parser$term(_reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $1764 = self.err; + var self = $1762; + switch (self._) { + case 'Maybe.some': + var $1766 = self.value; + var $1767 = Parser$Reply$error$(Parser$Error$combine$($1766, $1764)); + var $1765 = $1767; + break; + case 'Maybe.none': + var $1768 = Parser$Reply$error$($1764); + var $1765 = $1768; + break; + }; + var $1763 = $1765; + break; + case 'Parser.Reply.value': + var $1769 = self.pst; + var $1770 = self.val; + var self = $1769; + switch (self._) { + case 'Parser.State.new': + var $1772 = self.err; + var $1773 = self.nam; + var $1774 = self.ini; + var $1775 = self.idx; + var $1776 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($1762, $1772), $1773, $1774, $1775, $1776); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $1778 = self.err; + var _reply$49 = Kind$Parser$spaces(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $1780 = self.err; + var self = $1778; + switch (self._) { + case 'Maybe.some': + var $1782 = self.value; + var $1783 = Parser$Reply$error$(Parser$Error$combine$($1782, $1780)); + var $1781 = $1783; + break; + case 'Maybe.none': + var $1784 = Parser$Reply$error$($1780); + var $1781 = $1784; + break; + }; + var $1779 = $1781; + break; + case 'Parser.Reply.value': + var $1785 = self.pst; + var self = $1785; + switch (self._) { + case 'Parser.State.new': + var $1787 = self.err; + var $1788 = self.nam; + var $1789 = self.ini; + var $1790 = self.idx; + var $1791 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($1778, $1787), $1788, $1789, $1790, $1791); + var $1792 = Parser$Reply$value$(_reply$pst$57, Pair$new$($1739, $1770)); + var $1786 = $1792; + break; + }; + var $1779 = $1786; + break; + }; + var $1777 = $1779; + break; + }; + var $1771 = $1777; + break; + }; + var $1763 = $1771; + break; + }; + var $1761 = $1763; + break; + }; + var $1755 = $1761; + break; + }; + var $1748 = $1755; break; }; - return $1780; - })())); - return $1779; - })())); - var $1772 = $1778; + var $1746 = $1748; + break; + }; + var $1740 = $1746; break; }; - var $1764 = $1772; + var $1732 = $1740; break; }; - var $1762 = $1764; + var $1730 = $1732; break; }; - return $1762; + return $1730; }; const Kind$Parser$dom$prop = x0 => Kind$Parser$dom$prop$(x0); function Kind$Term$hol$(_path$1) { - var $1833 = ({ + var $1793 = ({ _: 'Kind.Term.hol', 'path': _path$1 }); - return $1833; + return $1793; }; const Kind$Term$hol = x0 => Kind$Term$hol$(x0); @@ -7156,31 +7035,31 @@ module.exports = (function() { var self = _values$1; switch (self._) { case 'List.cons': - var $1834 = self.head; - var $1835 = self.tail; - var self = $1834; + var $1794 = self.head; + var $1795 = self.tail; + var self = $1794; switch (self._) { case 'Pair.new': - var $1837 = self.fst; - var $1838 = self.snd; - var self = ($1837 === "style"); + var $1797 = self.fst; + var $1798 = self.snd; + var self = ($1797 === "style"); if (self) { - var $1840 = Kind$Parser$dom$gen_prop$go$($1835, Pair$new$((() => { + var $1800 = Kind$Parser$dom$gen_prop$go$($1795, Pair$new$((() => { var self = _result$2; switch (self._) { case 'Pair.new': - var $1841 = self.fst; - var $1842 = $1841; - return $1842; + var $1801 = self.fst; + var $1802 = $1801; + return $1802; }; - })(), $1838)); - var $1839 = $1840; + })(), $1798)); + var $1799 = $1800; } else { var _pair$7 = Kind$Term$ref$("Pair.new"); var _pair$8 = Kind$Term$app$(_pair$7, Kind$Term$hol$(Bits$e)); var _pair$9 = Kind$Term$app$(_pair$8, Kind$Term$hol$(Bits$e)); - var _pair$10 = Kind$Term$app$(_pair$9, Kind$Term$str$($1837)); - var _pair$11 = Kind$Term$app$(_pair$10, $1838); + var _pair$10 = Kind$Term$app$(_pair$9, Kind$Term$str$($1797)); + var _pair$11 = Kind$Term$app$(_pair$10, $1798); var _term$12 = Kind$Term$ref$("List.cons"); var _term$13 = Kind$Term$app$(_term$12, Kind$Term$hol$(Bits$e)); var _term$14 = Kind$Term$app$(_term$13, _pair$11); @@ -7188,29 +7067,29 @@ module.exports = (function() { var self = _result$2; switch (self._) { case 'Pair.new': - var $1844 = self.fst; - var $1845 = $1844; - return $1845; + var $1804 = self.fst; + var $1805 = $1804; + return $1805; }; })()); - var $1843 = Kind$Parser$dom$gen_prop$go$($1835, Pair$new$(_term$15, (() => { + var $1803 = Kind$Parser$dom$gen_prop$go$($1795, Pair$new$(_term$15, (() => { var self = _result$2; switch (self._) { case 'Pair.new': - var $1846 = self.snd; - var $1847 = $1846; - return $1847; + var $1806 = self.snd; + var $1807 = $1806; + return $1807; }; })())); - var $1839 = $1843; + var $1799 = $1803; }; - var $1836 = $1839; + var $1796 = $1799; break; }; - return $1836; + return $1796; case 'List.nil': - var $1848 = _result$2; - return $1848; + var $1808 = _result$2; + return $1808; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -7225,554 +7104,494 @@ module.exports = (function() { var self = Kind$Parser$dom$gen_prop$go$(_values$1, Pair$new$(_empty_list$2, _empty_map$3)); switch (self._) { case 'Pair.new': - var $1850 = self.fst; - var $1851 = self.snd; + var $1810 = self.fst; + var $1811 = self.snd; var _term_prop$6 = Kind$Term$ref$("Map.from_list"); var _term_prop$7 = Kind$Term$app$(_term_prop$6, Kind$Term$hol$(Bits$e)); - var _term_prop$8 = Kind$Term$app$(_term_prop$7, $1850); - var $1852 = Pair$new$(_term_prop$8, $1851); - var $1849 = $1852; + var _term_prop$8 = Kind$Term$app$(_term_prop$7, $1810); + var $1812 = Pair$new$(_term_prop$8, $1811); + var $1809 = $1812; break; }; - return $1849; + return $1809; }; const Kind$Parser$dom$gen_prop = x0 => Kind$Parser$dom$gen_prop$(x0); const Kind$Parser$dom$for = Kind$Parser$block("for_dom")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1854 = self.err; + var $1814 = self.err; var _reply$7 = Kind$Parser$text$("for ", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1856 = self.err; - var self = $1854; + var $1816 = self.err; + var self = $1814; switch (self._) { case 'Maybe.some': - var $1858 = self.value; - var $1859 = Parser$Reply$error$(Parser$Error$combine$($1858, $1856)); - var $1857 = $1859; + var $1818 = self.value; + var $1819 = Parser$Reply$error$(Parser$Error$combine$($1818, $1816)); + var $1817 = $1819; break; case 'Maybe.none': - var $1860 = Parser$Reply$error$($1856); - var $1857 = $1860; + var $1820 = Parser$Reply$error$($1816); + var $1817 = $1820; break; }; - var $1855 = $1857; + var $1815 = $1817; break; case 'Parser.Reply.value': - var $1861 = self.pst; - var self = $1861; + var $1821 = self.pst; + var self = $1821; switch (self._) { case 'Parser.State.new': - var $1863 = self.err; - var $1864 = self.nam; - var $1865 = self.ini; - var $1866 = self.idx; - var $1867 = self.str; - var $1868 = ((console.log(("FALTANDO " + $1867)), (_$15 => { - var $1869 = ((console.log(("VALUE " + $1864)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1854, $1863), $1864, $1865, $1866, $1867); - var self = _reply$pst$17; + var $1823 = self.err; + var $1824 = self.nam; + var $1825 = self.ini; + var $1826 = self.idx; + var $1827 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1814, $1823), $1824, $1825, $1826, $1827); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $1829 = self.err; + var _reply$21 = Kind$Parser$name1$(_reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $1871 = self.err; - var _reply$23 = Kind$Parser$name1$(_reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $1831 = self.err; + var self = $1829; switch (self._) { - case 'Parser.Reply.error': - var $1873 = self.err; - var self = $1871; - switch (self._) { - case 'Maybe.some': - var $1875 = self.value; - var $1876 = Parser$Reply$error$(Parser$Error$combine$($1875, $1873)); - var $1874 = $1876; - break; - case 'Maybe.none': - var $1877 = Parser$Reply$error$($1873); - var $1874 = $1877; - break; - }; - var $1872 = $1874; + case 'Maybe.some': + var $1833 = self.value; + var $1834 = Parser$Reply$error$(Parser$Error$combine$($1833, $1831)); + var $1832 = $1834; break; - case 'Parser.Reply.value': - var $1878 = self.pst; - var $1879 = self.val; - var self = $1878; - switch (self._) { - case 'Parser.State.new': - var $1881 = self.err; - var $1882 = self.nam; - var $1883 = self.ini; - var $1884 = self.idx; - var $1885 = self.str; - var $1886 = ((console.log(("FALTANDO " + $1885)), (_$31 => { - var $1887 = ((console.log(("VALUE " + $1882)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1871, $1881), $1882, $1883, $1884, $1885); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $1889 = self.err; - var _reply$39 = Kind$Parser$text$("in", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $1891 = self.err; - var self = $1889; - switch (self._) { - case 'Maybe.some': - var $1893 = self.value; - var $1894 = Parser$Reply$error$(Parser$Error$combine$($1893, $1891)); - var $1892 = $1894; - break; - case 'Maybe.none': - var $1895 = Parser$Reply$error$($1891); - var $1892 = $1895; - break; - }; - var $1890 = $1892; - break; - case 'Parser.Reply.value': - var $1896 = self.pst; - var self = $1896; - switch (self._) { - case 'Parser.State.new': - var $1898 = self.err; - var $1899 = self.nam; - var $1900 = self.ini; - var $1901 = self.idx; - var $1902 = self.str; - var $1903 = ((console.log(("FALTANDO " + $1902)), (_$47 => { - var $1904 = ((console.log(("VALUE " + $1899)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($1889, $1898), $1899, $1900, $1901, $1902); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $1906 = self.err; - var _reply$55 = Kind$Parser$term(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $1908 = self.err; - var self = $1906; - switch (self._) { - case 'Maybe.some': - var $1910 = self.value; - var $1911 = Parser$Reply$error$(Parser$Error$combine$($1910, $1908)); - var $1909 = $1911; - break; - case 'Maybe.none': - var $1912 = Parser$Reply$error$($1908); - var $1909 = $1912; - break; - }; - var $1907 = $1909; - break; - case 'Parser.Reply.value': - var $1913 = self.pst; - var $1914 = self.val; - var self = $1913; - switch (self._) { - case 'Parser.State.new': - var $1916 = self.err; - var $1917 = self.nam; - var $1918 = self.ini; - var $1919 = self.idx; - var $1920 = self.str; - var $1921 = ((console.log(("FALTANDO " + $1920)), (_$63 => { - var $1922 = ((console.log(("VALUE " + $1917)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($1906, $1916), $1917, $1918, $1919, $1920); - var _empty_list$66 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); - var _list_cons$67 = Kind$Term$app$(Kind$Term$ref$("List.cons"), Kind$Term$hol$(Bits$e)); - var _empty_map$68 = Kind$Term$app$(Kind$Term$ref$("Map.new"), Kind$Term$hol$(Bits$e)); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $1924 = self.err; - var _reply$74 = Kind$Parser$text$(":", _reply$pst$65); - var self = _reply$74; - switch (self._) { - case 'Parser.Reply.error': - var $1926 = self.err; - var self = $1924; - switch (self._) { - case 'Maybe.some': - var $1928 = self.value; - var $1929 = Parser$Reply$error$(Parser$Error$combine$($1928, $1926)); - var $1927 = $1929; - break; - case 'Maybe.none': - var $1930 = Parser$Reply$error$($1926); - var $1927 = $1930; - break; - }; - var $1925 = $1927; - break; - case 'Parser.Reply.value': - var $1931 = self.pst; - var self = $1931; - switch (self._) { - case 'Parser.State.new': - var $1933 = self.err; - var $1934 = self.nam; - var $1935 = self.ini; - var $1936 = self.idx; - var $1937 = self.str; - var $1938 = ((console.log(("FALTANDO " + $1937)), (_$82 => { - var $1939 = ((console.log(("VALUE " + $1934)), (_$83 => { - var _reply$pst$84 = Parser$State$new$(Parser$Error$maybe_combine$($1924, $1933), $1934, $1935, $1936, $1937); - var self = _reply$pst$84; - switch (self._) { - case 'Parser.State.new': - var $1941 = self.err; - var _reply$90 = Kind$Parser$term(_reply$pst$84); - var self = _reply$90; - switch (self._) { - case 'Parser.Reply.error': - var $1943 = self.err; - var self = $1941; - switch (self._) { - case 'Maybe.some': - var $1945 = self.value; - var $1946 = Parser$Reply$error$(Parser$Error$combine$($1945, $1943)); - var $1944 = $1946; - break; - case 'Maybe.none': - var $1947 = Parser$Reply$error$($1943); - var $1944 = $1947; - break; - }; - var $1942 = $1944; - break; - case 'Parser.Reply.value': - var $1948 = self.pst; - var $1949 = self.val; - var self = $1948; - switch (self._) { - case 'Parser.State.new': - var $1951 = self.err; - var $1952 = self.nam; - var $1953 = self.ini; - var $1954 = self.idx; - var $1955 = self.str; - var $1956 = ((console.log(("FALTANDO " + $1955)), (_$98 => { - var $1957 = ((console.log(("VALUE " + $1952)), (_$99 => { - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($1941, $1951), $1952, $1953, $1954, $1955); - var _term$101 = Kind$Term$ref$("List.fold"); - var _term$102 = Kind$Term$app$(_term$101, Kind$Term$hol$(Bits$e)); - var _term$103 = Kind$Term$app$(_term$102, $1914); - var _term$104 = Kind$Term$app$(_term$103, Kind$Term$hol$(Bits$e)); - var _term$105 = Kind$Term$app$(_term$104, _empty_list$66); - var _lamb$106 = Kind$Term$lam$($1879, (_i$106 => { - var $1959 = Kind$Term$lam$("placeholder", (_b$107 => { - var $1960 = Kind$Term$app$(Kind$Term$app$(_list_cons$67, $1949), _b$107); - return $1960; - })); - return $1959; - })); - var _term$107 = Kind$Term$app$(_term$105, _lamb$106); - var _display_content$108 = Kind$Term$app$(Kind$Term$ref$("Map.set"), Kind$Term$hol$(Bits$e)); - var _display_content$109 = Kind$Term$app$(_display_content$108, Kind$Term$str$("display")); - var _display_content$110 = Kind$Term$app$(_display_content$109, Kind$Term$str$("contents")); - var _display_content$111 = Kind$Term$app$(_display_content$110, _empty_map$68); - var _root$112 = Kind$Term$ref$("DOM.node"); - var _root$113 = Kind$Term$app$(_root$112, Kind$Term$str$("div")); - var _root$114 = Kind$Term$app$(_root$113, _empty_map$68); - var _root$115 = Kind$Term$app$(_root$114, _display_content$111); - var _root$116 = Kind$Term$app$(_root$115, _term$107); - var $1958 = Parser$Reply$value$(_reply$pst$100, _root$116); - return $1958; - })())); - return $1957; - })())); - var $1950 = $1956; - break; - }; - var $1942 = $1950; - break; - }; - var $1940 = $1942; - break; - }; - return $1940; - })())); - return $1939; - })())); - var $1932 = $1938; - break; - }; - var $1925 = $1932; - break; - }; - var $1923 = $1925; - break; - }; - return $1923; - })())); - return $1922; - })())); - var $1915 = $1921; - break; - }; - var $1907 = $1915; - break; - }; - var $1905 = $1907; - break; - }; - return $1905; - })())); - return $1904; - })())); - var $1897 = $1903; - break; - }; - var $1890 = $1897; - break; - }; - var $1888 = $1890; - break; - }; - return $1888; - })())); - return $1887; - })())); - var $1880 = $1886; - break; - }; - var $1872 = $1880; + case 'Maybe.none': + var $1835 = Parser$Reply$error$($1831); + var $1832 = $1835; break; }; - var $1870 = $1872; + var $1830 = $1832; + break; + case 'Parser.Reply.value': + var $1836 = self.pst; + var $1837 = self.val; + var self = $1836; + switch (self._) { + case 'Parser.State.new': + var $1839 = self.err; + var $1840 = self.nam; + var $1841 = self.ini; + var $1842 = self.idx; + var $1843 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1829, $1839), $1840, $1841, $1842, $1843); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $1845 = self.err; + var _reply$35 = Kind$Parser$text$("in", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $1847 = self.err; + var self = $1845; + switch (self._) { + case 'Maybe.some': + var $1849 = self.value; + var $1850 = Parser$Reply$error$(Parser$Error$combine$($1849, $1847)); + var $1848 = $1850; + break; + case 'Maybe.none': + var $1851 = Parser$Reply$error$($1847); + var $1848 = $1851; + break; + }; + var $1846 = $1848; + break; + case 'Parser.Reply.value': + var $1852 = self.pst; + var self = $1852; + switch (self._) { + case 'Parser.State.new': + var $1854 = self.err; + var $1855 = self.nam; + var $1856 = self.ini; + var $1857 = self.idx; + var $1858 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($1845, $1854), $1855, $1856, $1857, $1858); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $1860 = self.err; + var _reply$49 = Kind$Parser$term(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $1862 = self.err; + var self = $1860; + switch (self._) { + case 'Maybe.some': + var $1864 = self.value; + var $1865 = Parser$Reply$error$(Parser$Error$combine$($1864, $1862)); + var $1863 = $1865; + break; + case 'Maybe.none': + var $1866 = Parser$Reply$error$($1862); + var $1863 = $1866; + break; + }; + var $1861 = $1863; + break; + case 'Parser.Reply.value': + var $1867 = self.pst; + var $1868 = self.val; + var self = $1867; + switch (self._) { + case 'Parser.State.new': + var $1870 = self.err; + var $1871 = self.nam; + var $1872 = self.ini; + var $1873 = self.idx; + var $1874 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($1860, $1870), $1871, $1872, $1873, $1874); + var _empty_list$58 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); + var _list_cons$59 = Kind$Term$app$(Kind$Term$ref$("List.cons"), Kind$Term$hol$(Bits$e)); + var _empty_map$60 = Kind$Term$app$(Kind$Term$ref$("Map.new"), Kind$Term$hol$(Bits$e)); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $1876 = self.err; + var _reply$66 = Kind$Parser$text$(":", _reply$pst$57); + var self = _reply$66; + switch (self._) { + case 'Parser.Reply.error': + var $1878 = self.err; + var self = $1876; + switch (self._) { + case 'Maybe.some': + var $1880 = self.value; + var $1881 = Parser$Reply$error$(Parser$Error$combine$($1880, $1878)); + var $1879 = $1881; + break; + case 'Maybe.none': + var $1882 = Parser$Reply$error$($1878); + var $1879 = $1882; + break; + }; + var $1877 = $1879; + break; + case 'Parser.Reply.value': + var $1883 = self.pst; + var self = $1883; + switch (self._) { + case 'Parser.State.new': + var $1885 = self.err; + var $1886 = self.nam; + var $1887 = self.ini; + var $1888 = self.idx; + var $1889 = self.str; + var _reply$pst$74 = Parser$State$new$(Parser$Error$maybe_combine$($1876, $1885), $1886, $1887, $1888, $1889); + var self = _reply$pst$74; + switch (self._) { + case 'Parser.State.new': + var $1891 = self.err; + var _reply$80 = Kind$Parser$term(_reply$pst$74); + var self = _reply$80; + switch (self._) { + case 'Parser.Reply.error': + var $1893 = self.err; + var self = $1891; + switch (self._) { + case 'Maybe.some': + var $1895 = self.value; + var $1896 = Parser$Reply$error$(Parser$Error$combine$($1895, $1893)); + var $1894 = $1896; + break; + case 'Maybe.none': + var $1897 = Parser$Reply$error$($1893); + var $1894 = $1897; + break; + }; + var $1892 = $1894; + break; + case 'Parser.Reply.value': + var $1898 = self.pst; + var $1899 = self.val; + var self = $1898; + switch (self._) { + case 'Parser.State.new': + var $1901 = self.err; + var $1902 = self.nam; + var $1903 = self.ini; + var $1904 = self.idx; + var $1905 = self.str; + var _reply$pst$88 = Parser$State$new$(Parser$Error$maybe_combine$($1891, $1901), $1902, $1903, $1904, $1905); + var _term$89 = Kind$Term$ref$("List.fold"); + var _term$90 = Kind$Term$app$(_term$89, Kind$Term$hol$(Bits$e)); + var _term$91 = Kind$Term$app$(_term$90, $1868); + var _term$92 = Kind$Term$app$(_term$91, Kind$Term$hol$(Bits$e)); + var _term$93 = Kind$Term$app$(_term$92, _empty_list$58); + var _lamb$94 = Kind$Term$lam$($1837, (_i$94 => { + var $1907 = Kind$Term$lam$("placeholder", (_b$95 => { + var $1908 = Kind$Term$app$(Kind$Term$app$(_list_cons$59, $1899), _b$95); + return $1908; + })); + return $1907; + })); + var _term$95 = Kind$Term$app$(_term$93, _lamb$94); + var _display_content$96 = Kind$Term$app$(Kind$Term$ref$("Map.set"), Kind$Term$hol$(Bits$e)); + var _display_content$97 = Kind$Term$app$(_display_content$96, Kind$Term$str$("display")); + var _display_content$98 = Kind$Term$app$(_display_content$97, Kind$Term$str$("contents")); + var _display_content$99 = Kind$Term$app$(_display_content$98, _empty_map$60); + var _root$100 = Kind$Term$ref$("DOM.node"); + var _root$101 = Kind$Term$app$(_root$100, Kind$Term$str$("div")); + var _root$102 = Kind$Term$app$(_root$101, _empty_map$60); + var _root$103 = Kind$Term$app$(_root$102, _display_content$99); + var _root$104 = Kind$Term$app$(_root$103, _term$95); + var $1906 = Parser$Reply$value$(_reply$pst$88, _root$104); + var $1900 = $1906; + break; + }; + var $1892 = $1900; + break; + }; + var $1890 = $1892; + break; + }; + var $1884 = $1890; + break; + }; + var $1877 = $1884; + break; + }; + var $1875 = $1877; + break; + }; + var $1869 = $1875; + break; + }; + var $1861 = $1869; + break; + }; + var $1859 = $1861; + break; + }; + var $1853 = $1859; + break; + }; + var $1846 = $1853; + break; + }; + var $1844 = $1846; + break; + }; + var $1838 = $1844; + break; + }; + var $1830 = $1838; break; }; - return $1870; - })())); - return $1869; - })())); - var $1862 = $1868; + var $1828 = $1830; + break; + }; + var $1822 = $1828; break; }; - var $1855 = $1862; + var $1815 = $1822; break; }; - var $1853 = $1855; + var $1813 = $1815; break; }; - return $1853; + return $1813; })); const Kind$Parser$dom$dynamic = Kind$Parser$block("DOM_dynamic")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $1962 = self.err; + var $1910 = self.err; var _reply$7 = Kind$Parser$text$("{", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $1964 = self.err; - var self = $1962; + var $1912 = self.err; + var self = $1910; switch (self._) { case 'Maybe.some': - var $1966 = self.value; - var $1967 = Parser$Reply$error$(Parser$Error$combine$($1966, $1964)); - var $1965 = $1967; + var $1914 = self.value; + var $1915 = Parser$Reply$error$(Parser$Error$combine$($1914, $1912)); + var $1913 = $1915; break; case 'Maybe.none': - var $1968 = Parser$Reply$error$($1964); - var $1965 = $1968; + var $1916 = Parser$Reply$error$($1912); + var $1913 = $1916; break; }; - var $1963 = $1965; + var $1911 = $1913; break; case 'Parser.Reply.value': - var $1969 = self.pst; - var self = $1969; + var $1917 = self.pst; + var self = $1917; switch (self._) { case 'Parser.State.new': - var $1971 = self.err; - var $1972 = self.nam; - var $1973 = self.ini; - var $1974 = self.idx; - var $1975 = self.str; - var $1976 = ((console.log(("FALTANDO " + $1975)), (_$15 => { - var $1977 = ((console.log(("VALUE " + $1972)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($1962, $1971), $1972, $1973, $1974, $1975); - var self = _reply$pst$17; + var $1919 = self.err; + var $1920 = self.nam; + var $1921 = self.ini; + var $1922 = self.idx; + var $1923 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1910, $1919), $1920, $1921, $1922, $1923); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $1925 = self.err; + var _reply$21 = Parser$choice$(List$cons$(Kind$Parser$term, List$nil), _reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $1979 = self.err; - var _reply$23 = Parser$choice$(List$cons$(Kind$Parser$term, List$nil), _reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $1927 = self.err; + var self = $1925; switch (self._) { - case 'Parser.Reply.error': - var $1981 = self.err; - var self = $1979; - switch (self._) { - case 'Maybe.some': - var $1983 = self.value; - var $1984 = Parser$Reply$error$(Parser$Error$combine$($1983, $1981)); - var $1982 = $1984; - break; - case 'Maybe.none': - var $1985 = Parser$Reply$error$($1981); - var $1982 = $1985; - break; - }; - var $1980 = $1982; + case 'Maybe.some': + var $1929 = self.value; + var $1930 = Parser$Reply$error$(Parser$Error$combine$($1929, $1927)); + var $1928 = $1930; break; - case 'Parser.Reply.value': - var $1986 = self.pst; - var $1987 = self.val; - var self = $1986; - switch (self._) { - case 'Parser.State.new': - var $1989 = self.err; - var $1990 = self.nam; - var $1991 = self.ini; - var $1992 = self.idx; - var $1993 = self.str; - var $1994 = ((console.log(("FALTANDO " + $1993)), (_$31 => { - var $1995 = ((console.log(("VALUE " + $1990)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($1979, $1989), $1990, $1991, $1992, $1993); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $1997 = self.err; - var _reply$39 = Kind$Parser$text$("}", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $1999 = self.err; - var self = $1997; - switch (self._) { - case 'Maybe.some': - var $2001 = self.value; - var $2002 = Parser$Reply$error$(Parser$Error$combine$($2001, $1999)); - var $2000 = $2002; - break; - case 'Maybe.none': - var $2003 = Parser$Reply$error$($1999); - var $2000 = $2003; - break; - }; - var $1998 = $2000; - break; - case 'Parser.Reply.value': - var $2004 = self.pst; - var self = $2004; - switch (self._) { - case 'Parser.State.new': - var $2006 = self.err; - var $2007 = self.nam; - var $2008 = self.ini; - var $2009 = self.idx; - var $2010 = self.str; - var $2011 = ((console.log(("FALTANDO " + $2010)), (_$47 => { - var $2012 = ((console.log(("VALUE " + $2007)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($1997, $2006), $2007, $2008, $2009, $2010); - var $2013 = Parser$Reply$value$(_reply$pst$49, $1987); - return $2013; - })())); - return $2012; - })())); - var $2005 = $2011; - break; - }; - var $1998 = $2005; - break; - }; - var $1996 = $1998; - break; - }; - return $1996; - })())); - return $1995; - })())); - var $1988 = $1994; - break; - }; - var $1980 = $1988; + case 'Maybe.none': + var $1931 = Parser$Reply$error$($1927); + var $1928 = $1931; break; }; - var $1978 = $1980; + var $1926 = $1928; + break; + case 'Parser.Reply.value': + var $1932 = self.pst; + var $1933 = self.val; + var self = $1932; + switch (self._) { + case 'Parser.State.new': + var $1935 = self.err; + var $1936 = self.nam; + var $1937 = self.ini; + var $1938 = self.idx; + var $1939 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1925, $1935), $1936, $1937, $1938, $1939); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $1941 = self.err; + var _reply$35 = Kind$Parser$text$("}", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $1943 = self.err; + var self = $1941; + switch (self._) { + case 'Maybe.some': + var $1945 = self.value; + var $1946 = Parser$Reply$error$(Parser$Error$combine$($1945, $1943)); + var $1944 = $1946; + break; + case 'Maybe.none': + var $1947 = Parser$Reply$error$($1943); + var $1944 = $1947; + break; + }; + var $1942 = $1944; + break; + case 'Parser.Reply.value': + var $1948 = self.pst; + var self = $1948; + switch (self._) { + case 'Parser.State.new': + var $1950 = self.err; + var $1951 = self.nam; + var $1952 = self.ini; + var $1953 = self.idx; + var $1954 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($1941, $1950), $1951, $1952, $1953, $1954); + var $1955 = Parser$Reply$value$(_reply$pst$43, $1933); + var $1949 = $1955; + break; + }; + var $1942 = $1949; + break; + }; + var $1940 = $1942; + break; + }; + var $1934 = $1940; + break; + }; + var $1926 = $1934; break; }; - return $1978; - })())); - return $1977; - })())); - var $1970 = $1976; + var $1924 = $1926; + break; + }; + var $1918 = $1924; break; }; - var $1963 = $1970; + var $1911 = $1918; break; }; - var $1961 = $1963; + var $1909 = $1911; break; }; - return $1961; + return $1909; })); const Kind$Parser$dom$text = Kind$Parser$block("DOM_text")((() => { var _term$1 = Kind$Term$ref$("DOM.text"); - var $2014 = (_pst$2 => { + var $1956 = (_pst$2 => { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $2016 = self.err; + var $1958 = self.err; var _reply$8 = Kind$Parser$term(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $2018 = self.err; - var self = $2016; + var $1960 = self.err; + var self = $1958; switch (self._) { case 'Maybe.some': - var $2020 = self.value; - var $2021 = Parser$Reply$error$(Parser$Error$combine$($2020, $2018)); - var $2019 = $2021; + var $1962 = self.value; + var $1963 = Parser$Reply$error$(Parser$Error$combine$($1962, $1960)); + var $1961 = $1963; break; case 'Maybe.none': - var $2022 = Parser$Reply$error$($2018); - var $2019 = $2022; + var $1964 = Parser$Reply$error$($1960); + var $1961 = $1964; break; }; - var $2017 = $2019; + var $1959 = $1961; break; case 'Parser.Reply.value': - var $2023 = self.pst; - var $2024 = self.val; - var self = $2023; + var $1965 = self.pst; + var $1966 = self.val; + var self = $1965; switch (self._) { case 'Parser.State.new': - var $2026 = self.err; - var $2027 = self.nam; - var $2028 = self.ini; - var $2029 = self.idx; - var $2030 = self.str; - var $2031 = ((console.log(("FALTANDO " + $2030)), (_$16 => { - var $2032 = ((console.log(("VALUE " + $2027)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($2016, $2026), $2027, $2028, $2029, $2030); - var _term$19 = Kind$Term$app$(_term$1, $2024); - var $2033 = Parser$Reply$value$(_reply$pst$18, _term$19); - return $2033; - })())); - return $2032; - })())); - var $2025 = $2031; + var $1968 = self.err; + var $1969 = self.nam; + var $1970 = self.ini; + var $1971 = self.idx; + var $1972 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($1958, $1968), $1969, $1970, $1971, $1972); + var _term$17 = Kind$Term$app$(_term$1, $1966); + var $1973 = Parser$Reply$value$(_reply$pst$16, _term$17); + var $1967 = $1973; break; }; - var $2017 = $2025; + var $1959 = $1967; break; }; - var $2015 = $2017; + var $1957 = $1959; break; }; - return $2015; + return $1957; }); - return $2014; + return $1956; })()); const Kind$Parser$dom$leaf = Kind$Parser$block("DOM_leaf")(Parser$choice(List$cons$(Kind$Parser$dom$for, List$cons$(Kind$Parser$dom$dynamic, List$cons$(Kind$Parser$dom$text, List$nil))))); @@ -7780,809 +7599,725 @@ module.exports = (function() { var self = _a$1; switch (self._) { case 'List.cons': - var $2035 = self.head; - var $2036 = self.tail; + var $1975 = self.head; + var $1976 = self.tail; var _term$4 = Kind$Term$app$(Kind$Term$ref$("List.cons"), Kind$Term$hol$(Bits$e)); - var _term$5 = Kind$Term$app$(_term$4, $2035); - var _term$6 = Kind$Term$app$(_term$5, Kind$Parser$dom$transform_children$($2036)); - var $2037 = _term$6; - var $2034 = $2037; + var _term$5 = Kind$Term$app$(_term$4, $1975); + var _term$6 = Kind$Term$app$(_term$5, Kind$Parser$dom$transform_children$($1976)); + var $1977 = _term$6; + var $1974 = $1977; break; case 'List.nil': - var $2038 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); - var $2034 = $2038; + var $1978 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); + var $1974 = $1978; break; }; - return $2034; + return $1974; }; const Kind$Parser$dom$transform_children = x0 => Kind$Parser$dom$transform_children$(x0); const Kind$Parser$dom$node = Kind$Parser$block("DOM.node")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $2040 = self.err; + var $1980 = self.err; var _reply$7 = Kind$Parser$text$("<", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $2042 = self.err; - var self = $2040; + var $1982 = self.err; + var self = $1980; switch (self._) { case 'Maybe.some': - var $2044 = self.value; - var $2045 = Parser$Reply$error$(Parser$Error$combine$($2044, $2042)); - var $2043 = $2045; + var $1984 = self.value; + var $1985 = Parser$Reply$error$(Parser$Error$combine$($1984, $1982)); + var $1983 = $1985; break; case 'Maybe.none': - var $2046 = Parser$Reply$error$($2042); - var $2043 = $2046; + var $1986 = Parser$Reply$error$($1982); + var $1983 = $1986; break; }; - var $2041 = $2043; + var $1981 = $1983; break; case 'Parser.Reply.value': - var $2047 = self.pst; - var self = $2047; + var $1987 = self.pst; + var self = $1987; switch (self._) { case 'Parser.State.new': - var $2049 = self.err; - var $2050 = self.nam; - var $2051 = self.ini; - var $2052 = self.idx; - var $2053 = self.str; - var $2054 = ((console.log(("FALTANDO " + $2053)), (_$15 => { - var $2055 = ((console.log(("VALUE " + $2050)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2040, $2049), $2050, $2051, $2052, $2053); - var self = _reply$pst$17; + var $1989 = self.err; + var $1990 = self.nam; + var $1991 = self.ini; + var $1992 = self.idx; + var $1993 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($1980, $1989), $1990, $1991, $1992, $1993); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $1995 = self.err; + var _reply$21 = Kind$Parser$name1$(_reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $2057 = self.err; - var _reply$23 = Kind$Parser$name1$(_reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $1997 = self.err; + var self = $1995; switch (self._) { - case 'Parser.Reply.error': - var $2059 = self.err; - var self = $2057; - switch (self._) { - case 'Maybe.some': - var $2061 = self.value; - var $2062 = Parser$Reply$error$(Parser$Error$combine$($2061, $2059)); - var $2060 = $2062; - break; - case 'Maybe.none': - var $2063 = Parser$Reply$error$($2059); - var $2060 = $2063; - break; - }; - var $2058 = $2060; + case 'Maybe.some': + var $1999 = self.value; + var $2000 = Parser$Reply$error$(Parser$Error$combine$($1999, $1997)); + var $1998 = $2000; break; - case 'Parser.Reply.value': - var $2064 = self.pst; - var $2065 = self.val; - var self = $2064; + case 'Maybe.none': + var $2001 = Parser$Reply$error$($1997); + var $1998 = $2001; + break; + }; + var $1996 = $1998; + break; + case 'Parser.Reply.value': + var $2002 = self.pst; + var $2003 = self.val; + var self = $2002; + switch (self._) { + case 'Parser.State.new': + var $2005 = self.err; + var $2006 = self.nam; + var $2007 = self.ini; + var $2008 = self.idx; + var $2009 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($1995, $2005), $2006, $2007, $2008, $2009); + var self = _reply$pst$29; switch (self._) { case 'Parser.State.new': - var $2067 = self.err; - var $2068 = self.nam; - var $2069 = self.ini; - var $2070 = self.idx; - var $2071 = self.str; - var $2072 = ((console.log(("FALTANDO " + $2071)), (_$31 => { - var $2073 = ((console.log(("VALUE " + $2068)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($2057, $2067), $2068, $2069, $2070, $2071); - var self = _reply$pst$33; + var $2011 = self.err; + var _reply$35 = Kind$Parser$spaces(_reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $2013 = self.err; + var self = $2011; + switch (self._) { + case 'Maybe.some': + var $2015 = self.value; + var $2016 = Parser$Reply$error$(Parser$Error$combine$($2015, $2013)); + var $2014 = $2016; + break; + case 'Maybe.none': + var $2017 = Parser$Reply$error$($2013); + var $2014 = $2017; + break; + }; + var $2012 = $2014; + break; + case 'Parser.Reply.value': + var $2018 = self.pst; + var self = $2018; switch (self._) { case 'Parser.State.new': - var $2075 = self.err; - var _reply$39 = Kind$Parser$spaces(_reply$pst$33); - var self = _reply$39; + var $2020 = self.err; + var $2021 = self.nam; + var $2022 = self.ini; + var $2023 = self.idx; + var $2024 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($2011, $2020), $2021, $2022, $2023, $2024); + var self = _reply$pst$43; switch (self._) { - case 'Parser.Reply.error': - var $2077 = self.err; - var self = $2075; + case 'Parser.State.new': + var $2026 = self.err; + var _reply$49 = Parser$until$(Kind$Parser$text(">"), Kind$Parser$dom$prop)(_reply$pst$43); + var self = _reply$49; switch (self._) { - case 'Maybe.some': - var $2079 = self.value; - var $2080 = Parser$Reply$error$(Parser$Error$combine$($2079, $2077)); - var $2078 = $2080; + case 'Parser.Reply.error': + var $2028 = self.err; + var self = $2026; + switch (self._) { + case 'Maybe.some': + var $2030 = self.value; + var $2031 = Parser$Reply$error$(Parser$Error$combine$($2030, $2028)); + var $2029 = $2031; + break; + case 'Maybe.none': + var $2032 = Parser$Reply$error$($2028); + var $2029 = $2032; + break; + }; + var $2027 = $2029; break; - case 'Maybe.none': - var $2081 = Parser$Reply$error$($2077); - var $2078 = $2081; - break; - }; - var $2076 = $2078; - break; - case 'Parser.Reply.value': - var $2082 = self.pst; - var self = $2082; - switch (self._) { - case 'Parser.State.new': - var $2084 = self.err; - var $2085 = self.nam; - var $2086 = self.ini; - var $2087 = self.idx; - var $2088 = self.str; - var $2089 = ((console.log(("FALTANDO " + $2088)), (_$47 => { - var $2090 = ((console.log(("VALUE " + $2085)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($2075, $2084), $2085, $2086, $2087, $2088); - var self = _reply$pst$49; + case 'Parser.Reply.value': + var $2033 = self.pst; + var $2034 = self.val; + var self = $2033; + switch (self._) { + case 'Parser.State.new': + var $2036 = self.err; + var $2037 = self.nam; + var $2038 = self.ini; + var $2039 = self.idx; + var $2040 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($2026, $2036), $2037, $2038, $2039, $2040); + var _props$58 = Kind$Parser$dom$gen_prop$($2034); + var self = _reply$pst$57; switch (self._) { case 'Parser.State.new': - var $2092 = self.err; - var _reply$55 = Parser$until$(Kind$Parser$text(">"), Kind$Parser$dom$prop)(_reply$pst$49); - var self = _reply$55; + var $2042 = self.err; + var _reply$64 = Parser$many$(Parser$choice(List$cons$(Kind$Parser$dom$node, List$cons$(Kind$Parser$dom$leaf, List$nil))))(_reply$pst$57); + var self = _reply$64; switch (self._) { case 'Parser.Reply.error': - var $2094 = self.err; - var self = $2092; + var $2044 = self.err; + var self = $2042; switch (self._) { case 'Maybe.some': - var $2096 = self.value; - var $2097 = Parser$Reply$error$(Parser$Error$combine$($2096, $2094)); - var $2095 = $2097; + var $2046 = self.value; + var $2047 = Parser$Reply$error$(Parser$Error$combine$($2046, $2044)); + var $2045 = $2047; break; case 'Maybe.none': - var $2098 = Parser$Reply$error$($2094); - var $2095 = $2098; + var $2048 = Parser$Reply$error$($2044); + var $2045 = $2048; break; }; - var $2093 = $2095; + var $2043 = $2045; break; case 'Parser.Reply.value': - var $2099 = self.pst; - var $2100 = self.val; - var self = $2099; + var $2049 = self.pst; + var $2050 = self.val; + var self = $2049; switch (self._) { case 'Parser.State.new': - var $2102 = self.err; - var $2103 = self.nam; - var $2104 = self.ini; - var $2105 = self.idx; - var $2106 = self.str; - var $2107 = ((console.log(("FALTANDO " + $2106)), (_$63 => { - var $2108 = ((console.log(("VALUE " + $2103)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($2092, $2102), $2103, $2104, $2105, $2106); - var _props$66 = Kind$Parser$dom$gen_prop$($2100); - var self = _reply$pst$65; + var $2052 = self.err; + var $2053 = self.nam; + var $2054 = self.ini; + var $2055 = self.idx; + var $2056 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($2042, $2052), $2053, $2054, $2055, $2056); + var _children$73 = Kind$Parser$dom$transform_children$($2050); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $2058 = self.err; + var _reply$79 = Kind$Parser$text$(("")), _reply$pst$72); + var self = _reply$79; switch (self._) { - case 'Parser.State.new': - var $2110 = self.err; - var _reply$72 = Parser$many$(Parser$choice(List$cons$(Kind$Parser$dom$node, List$cons$(Kind$Parser$dom$leaf, List$nil))))(_reply$pst$65); - var self = _reply$72; + case 'Parser.Reply.error': + var $2060 = self.err; + var self = $2058; switch (self._) { - case 'Parser.Reply.error': - var $2112 = self.err; - var self = $2110; - switch (self._) { - case 'Maybe.some': - var $2114 = self.value; - var $2115 = Parser$Reply$error$(Parser$Error$combine$($2114, $2112)); - var $2113 = $2115; - break; - case 'Maybe.none': - var $2116 = Parser$Reply$error$($2112); - var $2113 = $2116; - break; - }; - var $2111 = $2113; + case 'Maybe.some': + var $2062 = self.value; + var $2063 = Parser$Reply$error$(Parser$Error$combine$($2062, $2060)); + var $2061 = $2063; break; - case 'Parser.Reply.value': - var $2117 = self.pst; - var $2118 = self.val; - var self = $2117; - switch (self._) { - case 'Parser.State.new': - var $2120 = self.err; - var $2121 = self.nam; - var $2122 = self.ini; - var $2123 = self.idx; - var $2124 = self.str; - var $2125 = ((console.log(("FALTANDO " + $2124)), (_$80 => { - var $2126 = ((console.log(("VALUE " + $2121)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($2110, $2120), $2121, $2122, $2123, $2124); - var _children$83 = Kind$Parser$dom$transform_children$($2118); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $2128 = self.err; - var _reply$89 = Kind$Parser$text$(("")), _reply$pst$82); - var self = _reply$89; - switch (self._) { - case 'Parser.Reply.error': - var $2130 = self.err; - var self = $2128; - switch (self._) { - case 'Maybe.some': - var $2132 = self.value; - var $2133 = Parser$Reply$error$(Parser$Error$combine$($2132, $2130)); - var $2131 = $2133; - break; - case 'Maybe.none': - var $2134 = Parser$Reply$error$($2130); - var $2131 = $2134; - break; - }; - var $2129 = $2131; - break; - case 'Parser.Reply.value': - var $2135 = self.pst; - var self = $2135; - switch (self._) { - case 'Parser.State.new': - var $2137 = self.err; - var $2138 = self.nam; - var $2139 = self.ini; - var $2140 = self.idx; - var $2141 = self.str; - var $2142 = ((console.log(("FALTANDO " + $2141)), (_$97 => { - var $2143 = ((console.log(("VALUE " + $2138)), (_$98 => { - var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($2128, $2137), $2138, $2139, $2140, $2141); - var _term$100 = Kind$Term$ref$("DOM.node"); - var _term$101 = Kind$Term$app$(_term$100, Kind$Term$str$($2065)); - var _term$102 = Kind$Term$app$(_term$101, (() => { - var self = _props$66; - switch (self._) { - case 'Pair.new': - var $2145 = self.fst; - var $2146 = $2145; - return $2146; - }; - })()); - var _term$103 = Kind$Term$app$(_term$102, (() => { - var self = _props$66; - switch (self._) { - case 'Pair.new': - var $2147 = self.snd; - var $2148 = $2147; - return $2148; - }; - })()); - var _term$104 = Kind$Term$app$(_term$103, _children$83); - var $2144 = Parser$Reply$value$(_reply$pst$99, _term$104); - return $2144; - })())); - return $2143; - })())); - var $2136 = $2142; - break; - }; - var $2129 = $2136; - break; - }; - var $2127 = $2129; - break; - }; - return $2127; - })())); - return $2126; - })())); - var $2119 = $2125; - break; - }; - var $2111 = $2119; + case 'Maybe.none': + var $2064 = Parser$Reply$error$($2060); + var $2061 = $2064; break; }; - var $2109 = $2111; + var $2059 = $2061; + break; + case 'Parser.Reply.value': + var $2065 = self.pst; + var self = $2065; + switch (self._) { + case 'Parser.State.new': + var $2067 = self.err; + var $2068 = self.nam; + var $2069 = self.ini; + var $2070 = self.idx; + var $2071 = self.str; + var _reply$pst$87 = Parser$State$new$(Parser$Error$maybe_combine$($2058, $2067), $2068, $2069, $2070, $2071); + var _term$88 = Kind$Term$ref$("DOM.node"); + var _term$89 = Kind$Term$app$(_term$88, Kind$Term$str$($2003)); + var _term$90 = Kind$Term$app$(_term$89, (() => { + var self = _props$58; + switch (self._) { + case 'Pair.new': + var $2073 = self.fst; + var $2074 = $2073; + return $2074; + }; + })()); + var _term$91 = Kind$Term$app$(_term$90, (() => { + var self = _props$58; + switch (self._) { + case 'Pair.new': + var $2075 = self.snd; + var $2076 = $2075; + return $2076; + }; + })()); + var _term$92 = Kind$Term$app$(_term$91, _children$73); + var $2072 = Parser$Reply$value$(_reply$pst$87, _term$92); + var $2066 = $2072; + break; + }; + var $2059 = $2066; break; }; - return $2109; - })())); - return $2108; - })())); - var $2101 = $2107; + var $2057 = $2059; + break; + }; + var $2051 = $2057; break; }; - var $2093 = $2101; + var $2043 = $2051; break; }; - var $2091 = $2093; + var $2041 = $2043; break; }; - return $2091; - })())); - return $2090; - })())); - var $2083 = $2089; + var $2035 = $2041; + break; + }; + var $2027 = $2035; break; }; - var $2076 = $2083; + var $2025 = $2027; break; }; - var $2074 = $2076; + var $2019 = $2025; break; }; - return $2074; - })())); - return $2073; - })())); - var $2066 = $2072; + var $2012 = $2019; + break; + }; + var $2010 = $2012; break; }; - var $2058 = $2066; + var $2004 = $2010; break; }; - var $2056 = $2058; + var $1996 = $2004; break; }; - return $2056; - })())); - return $2055; - })())); - var $2048 = $2054; + var $1994 = $1996; + break; + }; + var $1988 = $1994; break; }; - var $2041 = $2048; + var $1981 = $1988; break; }; - var $2039 = $2041; + var $1979 = $1981; break; }; - return $2039; + return $1979; })); const Kind$Parser$dom = Kind$Parser$dom$node; - const Kind$Parser$forall = Kind$Parser$block("forall")(((console.log("FORALL"), (_$1 => _pst$2 => { - var self = _pst$2; + const Kind$Parser$forall = Kind$Parser$block("forall")((_pst$1 => { + var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $2150 = self.err; - var _reply$8 = Kind$Parser$name$(_pst$2); - var self = _reply$8; + var $2078 = self.err; + var _reply$7 = Kind$Parser$name$(_pst$1); + var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $2152 = self.err; - var self = $2150; + var $2080 = self.err; + var self = $2078; switch (self._) { case 'Maybe.some': - var $2154 = self.value; - var $2155 = Parser$Reply$error$(Parser$Error$combine$($2154, $2152)); - var $2153 = $2155; + var $2082 = self.value; + var $2083 = Parser$Reply$error$(Parser$Error$combine$($2082, $2080)); + var $2081 = $2083; break; case 'Maybe.none': - var $2156 = Parser$Reply$error$($2152); - var $2153 = $2156; + var $2084 = Parser$Reply$error$($2080); + var $2081 = $2084; break; }; - var $2151 = $2153; + var $2079 = $2081; break; case 'Parser.Reply.value': - var $2157 = self.pst; - var $2158 = self.val; - var self = $2157; + var $2085 = self.pst; + var $2086 = self.val; + var self = $2085; switch (self._) { case 'Parser.State.new': - var $2160 = self.err; - var $2161 = self.nam; - var $2162 = self.ini; - var $2163 = self.idx; - var $2164 = self.str; - var $2165 = ((console.log(("FALTANDO " + $2164)), (_$16 => { - var $2166 = ((console.log(("VALUE " + $2161)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($2150, $2160), $2161, $2162, $2163, $2164); - var self = _reply$pst$18; + var $2088 = self.err; + var $2089 = self.nam; + var $2090 = self.ini; + var $2091 = self.idx; + var $2092 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($2078, $2088), $2089, $2090, $2091, $2092); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $2094 = self.err; + var _reply$21 = Kind$Parser$binder$(":", _reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $2168 = self.err; - var _reply$24 = Kind$Parser$binder$(":", _reply$pst$18); - var self = _reply$24; + case 'Parser.Reply.error': + var $2096 = self.err; + var self = $2094; switch (self._) { - case 'Parser.Reply.error': - var $2170 = self.err; - var self = $2168; - switch (self._) { - case 'Maybe.some': - var $2172 = self.value; - var $2173 = Parser$Reply$error$(Parser$Error$combine$($2172, $2170)); - var $2171 = $2173; - break; - case 'Maybe.none': - var $2174 = Parser$Reply$error$($2170); - var $2171 = $2174; - break; - }; - var $2169 = $2171; + case 'Maybe.some': + var $2098 = self.value; + var $2099 = Parser$Reply$error$(Parser$Error$combine$($2098, $2096)); + var $2097 = $2099; break; - case 'Parser.Reply.value': - var $2175 = self.pst; - var $2176 = self.val; - var self = $2175; - switch (self._) { - case 'Parser.State.new': - var $2178 = self.err; - var $2179 = self.nam; - var $2180 = self.ini; - var $2181 = self.idx; - var $2182 = self.str; - var $2183 = ((console.log(("FALTANDO " + $2182)), (_$32 => { - var $2184 = ((console.log(("VALUE " + $2179)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($2168, $2178), $2179, $2180, $2181, $2182); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $2186 = self.err; - var _reply$40 = Kind$Parser$text$("->", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $2188 = self.err; - var self = $2186; - switch (self._) { - case 'Maybe.some': - var $2190 = self.value; - var $2191 = Parser$Reply$error$(Parser$Error$combine$($2190, $2188)); - var $2189 = $2191; - break; - case 'Maybe.none': - var $2192 = Parser$Reply$error$($2188); - var $2189 = $2192; - break; - }; - var $2187 = $2189; - break; - case 'Parser.Reply.value': - var $2193 = self.pst; - var self = $2193; - switch (self._) { - case 'Parser.State.new': - var $2195 = self.err; - var $2196 = self.nam; - var $2197 = self.ini; - var $2198 = self.idx; - var $2199 = self.str; - var $2200 = ((console.log(("FALTANDO " + $2199)), (_$48 => { - var $2201 = ((console.log(("VALUE " + $2196)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($2186, $2195), $2196, $2197, $2198, $2199); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $2203 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $2205 = self.err; - var self = $2203; - switch (self._) { - case 'Maybe.some': - var $2207 = self.value; - var $2208 = Parser$Reply$error$(Parser$Error$combine$($2207, $2205)); - var $2206 = $2208; - break; - case 'Maybe.none': - var $2209 = Parser$Reply$error$($2205); - var $2206 = $2209; - break; - }; - var $2204 = $2206; - break; - case 'Parser.Reply.value': - var $2210 = self.pst; - var $2211 = self.val; - var self = $2210; - switch (self._) { - case 'Parser.State.new': - var $2213 = self.err; - var $2214 = self.nam; - var $2215 = self.ini; - var $2216 = self.idx; - var $2217 = self.str; - var $2218 = ((console.log(("FALTANDO " + $2217)), (_$64 => { - var $2219 = ((console.log(("VALUE " + $2214)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($2203, $2213), $2214, $2215, $2216, $2217); - var _term$67 = List$fold$($2176, $2211, (_x$67 => _t$68 => { - var self = _x$67; - switch (self._) { - case 'Kind.Binder.new': - var $2222 = self.eras; - var $2223 = self.name; - var $2224 = self.term; - var $2225 = Kind$Term$all$($2222, "", $2223, $2224, (_s$72 => _x$73 => { - var $2226 = _t$68; - return $2226; - })); - var $2221 = $2225; - break; - }; - return $2221; - })); - var $2220 = Parser$Reply$value$(_reply$pst$66, (() => { - var self = _term$67; - switch (self._) { - case 'Kind.Term.all': - var $2227 = self.eras; - var $2228 = self.name; - var $2229 = self.xtyp; - var $2230 = self.body; - var $2231 = Kind$Term$all$($2227, $2158, $2228, $2229, $2230); - return $2231; - case 'Kind.Term.var': - case 'Kind.Term.ref': - case 'Kind.Term.typ': - case 'Kind.Term.lam': - case 'Kind.Term.app': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - case 'Kind.Term.ori': - var $2232 = _term$67; - return $2232; - }; - })()); - return $2220; - })())); - return $2219; - })())); - var $2212 = $2218; - break; - }; - var $2204 = $2212; - break; - }; - var $2202 = $2204; - break; - }; - return $2202; - })())); - return $2201; - })())); - var $2194 = $2200; - break; - }; - var $2187 = $2194; - break; - }; - var $2185 = $2187; - break; - }; - return $2185; - })())); - return $2184; - })())); - var $2177 = $2183; - break; - }; - var $2169 = $2177; + case 'Maybe.none': + var $2100 = Parser$Reply$error$($2096); + var $2097 = $2100; break; }; - var $2167 = $2169; + var $2095 = $2097; + break; + case 'Parser.Reply.value': + var $2101 = self.pst; + var $2102 = self.val; + var self = $2101; + switch (self._) { + case 'Parser.State.new': + var $2104 = self.err; + var $2105 = self.nam; + var $2106 = self.ini; + var $2107 = self.idx; + var $2108 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($2094, $2104), $2105, $2106, $2107, $2108); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $2110 = self.err; + var _reply$35 = Kind$Parser$text$("->", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $2112 = self.err; + var self = $2110; + switch (self._) { + case 'Maybe.some': + var $2114 = self.value; + var $2115 = Parser$Reply$error$(Parser$Error$combine$($2114, $2112)); + var $2113 = $2115; + break; + case 'Maybe.none': + var $2116 = Parser$Reply$error$($2112); + var $2113 = $2116; + break; + }; + var $2111 = $2113; + break; + case 'Parser.Reply.value': + var $2117 = self.pst; + var self = $2117; + switch (self._) { + case 'Parser.State.new': + var $2119 = self.err; + var $2120 = self.nam; + var $2121 = self.ini; + var $2122 = self.idx; + var $2123 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($2110, $2119), $2120, $2121, $2122, $2123); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $2125 = self.err; + var _reply$49 = Kind$Parser$term(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $2127 = self.err; + var self = $2125; + switch (self._) { + case 'Maybe.some': + var $2129 = self.value; + var $2130 = Parser$Reply$error$(Parser$Error$combine$($2129, $2127)); + var $2128 = $2130; + break; + case 'Maybe.none': + var $2131 = Parser$Reply$error$($2127); + var $2128 = $2131; + break; + }; + var $2126 = $2128; + break; + case 'Parser.Reply.value': + var $2132 = self.pst; + var $2133 = self.val; + var self = $2132; + switch (self._) { + case 'Parser.State.new': + var $2135 = self.err; + var $2136 = self.nam; + var $2137 = self.ini; + var $2138 = self.idx; + var $2139 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($2125, $2135), $2136, $2137, $2138, $2139); + var _term$58 = List$fold$($2102, $2133, (_x$58 => _t$59 => { + var self = _x$58; + switch (self._) { + case 'Kind.Binder.new': + var $2142 = self.eras; + var $2143 = self.name; + var $2144 = self.term; + var $2145 = Kind$Term$all$($2142, "", $2143, $2144, (_s$63 => _x$64 => { + var $2146 = _t$59; + return $2146; + })); + var $2141 = $2145; + break; + }; + return $2141; + })); + var $2140 = Parser$Reply$value$(_reply$pst$57, (() => { + var self = _term$58; + switch (self._) { + case 'Kind.Term.all': + var $2147 = self.eras; + var $2148 = self.name; + var $2149 = self.xtyp; + var $2150 = self.body; + var $2151 = Kind$Term$all$($2147, $2086, $2148, $2149, $2150); + return $2151; + case 'Kind.Term.var': + case 'Kind.Term.ref': + case 'Kind.Term.typ': + case 'Kind.Term.lam': + case 'Kind.Term.app': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + case 'Kind.Term.ori': + var $2152 = _term$58; + return $2152; + }; + })()); + var $2134 = $2140; + break; + }; + var $2126 = $2134; + break; + }; + var $2124 = $2126; + break; + }; + var $2118 = $2124; + break; + }; + var $2111 = $2118; + break; + }; + var $2109 = $2111; + break; + }; + var $2103 = $2109; + break; + }; + var $2095 = $2103; break; }; - return $2167; - })())); - return $2166; - })())); - var $2159 = $2165; + var $2093 = $2095; + break; + }; + var $2087 = $2093; break; }; - var $2151 = $2159; + var $2079 = $2087; break; }; - var $2149 = $2151; + var $2077 = $2079; break; }; - return $2149; - })()))); + return $2077; + })); function Parser$wrap$(_opens$2, _parse$3, _close$4, _pst$5) { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $2234 = self.err; + var $2154 = self.err; var _reply$11 = _opens$2(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $2236 = self.err; - var self = $2234; + var $2156 = self.err; + var self = $2154; switch (self._) { case 'Maybe.some': - var $2238 = self.value; - var $2239 = Parser$Reply$error$(Parser$Error$combine$($2238, $2236)); - var $2237 = $2239; + var $2158 = self.value; + var $2159 = Parser$Reply$error$(Parser$Error$combine$($2158, $2156)); + var $2157 = $2159; break; case 'Maybe.none': - var $2240 = Parser$Reply$error$($2236); - var $2237 = $2240; + var $2160 = Parser$Reply$error$($2156); + var $2157 = $2160; break; }; - var $2235 = $2237; + var $2155 = $2157; break; case 'Parser.Reply.value': - var $2241 = self.pst; - var self = $2241; + var $2161 = self.pst; + var self = $2161; switch (self._) { case 'Parser.State.new': - var $2243 = self.err; - var $2244 = self.nam; - var $2245 = self.ini; - var $2246 = self.idx; - var $2247 = self.str; - var $2248 = ((console.log(("FALTANDO " + $2247)), (_$19 => { - var $2249 = ((console.log(("VALUE " + $2244)), (_$20 => { - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($2234, $2243), $2244, $2245, $2246, $2247); - var $2250 = Parser$until$(_close$4, _parse$3)(_reply$pst$21); - return $2250; - })())); - return $2249; - })())); - var $2242 = $2248; + var $2163 = self.err; + var $2164 = self.nam; + var $2165 = self.ini; + var $2166 = self.idx; + var $2167 = self.str; + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($2154, $2163), $2164, $2165, $2166, $2167); + var $2168 = Parser$until$(_close$4, _parse$3)(_reply$pst$19); + var $2162 = $2168; break; }; - var $2235 = $2242; + var $2155 = $2162; break; }; - var $2233 = $2235; + var $2153 = $2155; break; }; - return $2233; + return $2153; }; const Parser$wrap = x0 => x1 => x2 => x3 => Parser$wrap$(x0, x1, x2, x3); function Kind$Parser$items$(_ini$2, _parser$3, _end$4) { - var $2251 = Parser$wrap(Kind$Parser$text(_ini$2))((_pst$5 => { + var $2169 = Parser$wrap(Kind$Parser$text(_ini$2))((_pst$5 => { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $2253 = self.err; + var $2171 = self.err; var _reply$11 = Kind$Parser$spaces(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $2255 = self.err; - var self = $2253; + var $2173 = self.err; + var self = $2171; switch (self._) { case 'Maybe.some': - var $2257 = self.value; - var $2258 = Parser$Reply$error$(Parser$Error$combine$($2257, $2255)); - var $2256 = $2258; + var $2175 = self.value; + var $2176 = Parser$Reply$error$(Parser$Error$combine$($2175, $2173)); + var $2174 = $2176; break; case 'Maybe.none': - var $2259 = Parser$Reply$error$($2255); - var $2256 = $2259; + var $2177 = Parser$Reply$error$($2173); + var $2174 = $2177; break; }; - var $2254 = $2256; + var $2172 = $2174; break; case 'Parser.Reply.value': - var $2260 = self.pst; - var self = $2260; + var $2178 = self.pst; + var self = $2178; switch (self._) { case 'Parser.State.new': - var $2262 = self.err; - var $2263 = self.nam; - var $2264 = self.ini; - var $2265 = self.idx; - var $2266 = self.str; - var $2267 = ((console.log(("FALTANDO " + $2266)), (_$19 => { - var $2268 = ((console.log(("VALUE " + $2263)), (_$20 => { - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($2253, $2262), $2263, $2264, $2265, $2266); - var self = _reply$pst$21; + var $2180 = self.err; + var $2181 = self.nam; + var $2182 = self.ini; + var $2183 = self.idx; + var $2184 = self.str; + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($2171, $2180), $2181, $2182, $2183, $2184); + var self = _reply$pst$19; + switch (self._) { + case 'Parser.State.new': + var $2186 = self.err; + var _reply$25 = _parser$3(_reply$pst$19); + var self = _reply$25; switch (self._) { - case 'Parser.State.new': - var $2270 = self.err; - var _reply$27 = _parser$3(_reply$pst$21); - var self = _reply$27; + case 'Parser.Reply.error': + var $2188 = self.err; + var self = $2186; switch (self._) { - case 'Parser.Reply.error': - var $2272 = self.err; - var self = $2270; - switch (self._) { - case 'Maybe.some': - var $2274 = self.value; - var $2275 = Parser$Reply$error$(Parser$Error$combine$($2274, $2272)); - var $2273 = $2275; - break; - case 'Maybe.none': - var $2276 = Parser$Reply$error$($2272); - var $2273 = $2276; - break; - }; - var $2271 = $2273; + case 'Maybe.some': + var $2190 = self.value; + var $2191 = Parser$Reply$error$(Parser$Error$combine$($2190, $2188)); + var $2189 = $2191; break; - case 'Parser.Reply.value': - var $2277 = self.pst; - var $2278 = self.val; - var self = $2277; - switch (self._) { - case 'Parser.State.new': - var $2280 = self.err; - var $2281 = self.nam; - var $2282 = self.ini; - var $2283 = self.idx; - var $2284 = self.str; - var $2285 = ((console.log(("FALTANDO " + $2284)), (_$35 => { - var $2286 = ((console.log(("VALUE " + $2281)), (_$36 => { - var _reply$pst$37 = Parser$State$new$(Parser$Error$maybe_combine$($2270, $2280), $2281, $2282, $2283, $2284); - var self = _reply$pst$37; - switch (self._) { - case 'Parser.State.new': - var $2288 = self.err; - var _reply$43 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$37); - var self = _reply$43; - switch (self._) { - case 'Parser.Reply.error': - var $2290 = self.err; - var self = $2288; - switch (self._) { - case 'Maybe.some': - var $2292 = self.value; - var $2293 = Parser$Reply$error$(Parser$Error$combine$($2292, $2290)); - var $2291 = $2293; - break; - case 'Maybe.none': - var $2294 = Parser$Reply$error$($2290); - var $2291 = $2294; - break; - }; - var $2289 = $2291; - break; - case 'Parser.Reply.value': - var $2295 = self.pst; - var self = $2295; - switch (self._) { - case 'Parser.State.new': - var $2297 = self.err; - var $2298 = self.nam; - var $2299 = self.ini; - var $2300 = self.idx; - var $2301 = self.str; - var $2302 = ((console.log(("FALTANDO " + $2301)), (_$51 => { - var $2303 = ((console.log(("VALUE " + $2298)), (_$52 => { - var _reply$pst$53 = Parser$State$new$(Parser$Error$maybe_combine$($2288, $2297), $2298, $2299, $2300, $2301); - var $2304 = Parser$Reply$value$(_reply$pst$53, $2278); - return $2304; - })())); - return $2303; - })())); - var $2296 = $2302; - break; - }; - var $2289 = $2296; - break; - }; - var $2287 = $2289; - break; - }; - return $2287; - })())); - return $2286; - })())); - var $2279 = $2285; - break; - }; - var $2271 = $2279; + case 'Maybe.none': + var $2192 = Parser$Reply$error$($2188); + var $2189 = $2192; break; }; - var $2269 = $2271; + var $2187 = $2189; + break; + case 'Parser.Reply.value': + var $2193 = self.pst; + var $2194 = self.val; + var self = $2193; + switch (self._) { + case 'Parser.State.new': + var $2196 = self.err; + var $2197 = self.nam; + var $2198 = self.ini; + var $2199 = self.idx; + var $2200 = self.str; + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($2186, $2196), $2197, $2198, $2199, $2200); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $2202 = self.err; + var _reply$39 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $2204 = self.err; + var self = $2202; + switch (self._) { + case 'Maybe.some': + var $2206 = self.value; + var $2207 = Parser$Reply$error$(Parser$Error$combine$($2206, $2204)); + var $2205 = $2207; + break; + case 'Maybe.none': + var $2208 = Parser$Reply$error$($2204); + var $2205 = $2208; + break; + }; + var $2203 = $2205; + break; + case 'Parser.Reply.value': + var $2209 = self.pst; + var self = $2209; + switch (self._) { + case 'Parser.State.new': + var $2211 = self.err; + var $2212 = self.nam; + var $2213 = self.ini; + var $2214 = self.idx; + var $2215 = self.str; + var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($2202, $2211), $2212, $2213, $2214, $2215); + var $2216 = Parser$Reply$value$(_reply$pst$47, $2194); + var $2210 = $2216; + break; + }; + var $2203 = $2210; + break; + }; + var $2201 = $2203; + break; + }; + var $2195 = $2201; + break; + }; + var $2187 = $2195; break; }; - return $2269; - })())); - return $2268; - })())); - var $2261 = $2267; + var $2185 = $2187; + break; + }; + var $2179 = $2185; break; }; - var $2254 = $2261; + var $2172 = $2179; break; }; - var $2252 = $2254; + var $2170 = $2172; break; }; - return $2252; + return $2170; }))(Kind$Parser$text(_end$4)); - return $2251; + return $2169; }; const Kind$Parser$items = x0 => x1 => x2 => Kind$Parser$items$(x0, x1, x2); @@ -8590,15 +8325,15 @@ module.exports = (function() { var self = _parse$2(_pst$3); switch (self._) { case 'Parser.Reply.error': - var $2306 = Parser$Reply$value$(_pst$3, Bool$false); - var $2305 = $2306; + var $2218 = Parser$Reply$value$(_pst$3, Bool$false); + var $2217 = $2218; break; case 'Parser.Reply.value': - var $2307 = Parser$Reply$value$(_pst$3, Bool$true); - var $2305 = $2307; + var $2219 = Parser$Reply$value$(_pst$3, Bool$true); + var $2217 = $2219; break; }; - return $2305; + return $2217; }; const Parser$try = x0 => x1 => Parser$try$(x0, x1); @@ -8606,69 +8341,63 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $2309 = self.err; + var $2221 = self.err; var _reply$10 = Parser$try$(_test$2, _pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $2311 = self.err; - var self = $2309; + var $2223 = self.err; + var self = $2221; switch (self._) { case 'Maybe.some': - var $2313 = self.value; - var $2314 = Parser$Reply$error$(Parser$Error$combine$($2313, $2311)); - var $2312 = $2314; + var $2225 = self.value; + var $2226 = Parser$Reply$error$(Parser$Error$combine$($2225, $2223)); + var $2224 = $2226; break; case 'Maybe.none': - var $2315 = Parser$Reply$error$($2311); - var $2312 = $2315; + var $2227 = Parser$Reply$error$($2223); + var $2224 = $2227; break; }; - var $2310 = $2312; + var $2222 = $2224; break; case 'Parser.Reply.value': - var $2316 = self.pst; - var $2317 = self.val; - var self = $2316; + var $2228 = self.pst; + var $2229 = self.val; + var self = $2228; switch (self._) { case 'Parser.State.new': - var $2319 = self.err; - var $2320 = self.nam; - var $2321 = self.ini; - var $2322 = self.idx; - var $2323 = self.str; - var $2324 = ((console.log(("FALTANDO " + $2323)), (_$18 => { - var $2325 = ((console.log(("VALUE " + $2320)), (_$19 => { - var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($2309, $2319), $2320, $2321, $2322, $2323); - var self = $2317; - if (self) { - var $2327 = Parser$fail("Avoided."); - var $2326 = $2327; - } else { - var $2328 = _parse$3; - var $2326 = $2328; - }; - var $2326 = $2326(_reply$pst$20); - return $2326; - })())); - return $2325; - })())); - var $2318 = $2324; + var $2231 = self.err; + var $2232 = self.nam; + var $2233 = self.ini; + var $2234 = self.idx; + var $2235 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($2221, $2231), $2232, $2233, $2234, $2235); + var self = $2229; + if (self) { + var $2237 = Parser$fail("Avoided."); + var $2236 = $2237; + } else { + var $2238 = _parse$3; + var $2236 = $2238; + }; + var $2236 = $2236(_reply$pst$18); + var $2230 = $2236; break; }; - var $2310 = $2318; + var $2222 = $2230; break; }; - var $2308 = $2310; + var $2220 = $2222; break; }; - return $2308; + return $2220; }; const Parser$avoiding = x0 => x1 => x2 => Parser$avoiding$(x0, x1, x2); function Kind$Parser$text_now$(_text$1) { - var $2329 = Parser$text(_text$1); - return $2329; + var $2239 = Parser$text(_text$1); + return $2239; }; const Kind$Parser$text_now = x0 => Kind$Parser$text_now$(x0); @@ -8676,20 +8405,20 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.cons': - var $2331 = self.head; - var $2332 = self.tail; - var $2333 = Kind$Term$lam$($2331, (_x$5 => { - var $2334 = Kind$Parser$lambda$make$($2332, _body$2); - return $2334; + var $2241 = self.head; + var $2242 = self.tail; + var $2243 = Kind$Term$lam$($2241, (_x$5 => { + var $2244 = Kind$Parser$lambda$make$($2242, _body$2); + return $2244; })); - var $2330 = $2333; + var $2240 = $2243; break; case 'List.nil': - var $2335 = _body$2; - var $2330 = $2335; + var $2245 = _body$2; + var $2240 = $2245; break; }; - return $2330; + return $2240; }; const Kind$Parser$lambda$make = x0 => x1 => Kind$Parser$lambda$make$(x0, x1); @@ -8697,336 +8426,294 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.nil': - var $2337 = Kind$Term$lam$("", (_x$3 => { - var $2338 = _body$2; - return $2338; + var $2247 = Kind$Term$lam$("", (_x$3 => { + var $2248 = _body$2; + return $2248; })); - var $2336 = $2337; + var $2246 = $2247; break; case 'List.cons': - var $2339 = Kind$Parser$lambda$make$(_names$1, _body$2); - var $2336 = $2339; + var $2249 = Kind$Parser$lambda$make$(_names$1, _body$2); + var $2246 = $2249; break; }; - return $2336; + return $2246; }; const Kind$Parser$lambda$make$start = x0 => x1 => Kind$Parser$lambda$make$start$(x0, x1); const Kind$Parser$lambda$1 = Kind$Parser$block("lambda")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $2341 = self.err; + var $2251 = self.err; var _reply$7 = Kind$Parser$items$("(", Kind$Parser$name1, ")")(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $2343 = self.err; - var self = $2341; + var $2253 = self.err; + var self = $2251; switch (self._) { case 'Maybe.some': - var $2345 = self.value; - var $2346 = Parser$Reply$error$(Parser$Error$combine$($2345, $2343)); - var $2344 = $2346; + var $2255 = self.value; + var $2256 = Parser$Reply$error$(Parser$Error$combine$($2255, $2253)); + var $2254 = $2256; break; case 'Maybe.none': - var $2347 = Parser$Reply$error$($2343); - var $2344 = $2347; + var $2257 = Parser$Reply$error$($2253); + var $2254 = $2257; break; }; - var $2342 = $2344; + var $2252 = $2254; break; case 'Parser.Reply.value': - var $2348 = self.pst; - var $2349 = self.val; - var self = $2348; + var $2258 = self.pst; + var $2259 = self.val; + var self = $2258; switch (self._) { case 'Parser.State.new': - var $2351 = self.err; - var $2352 = self.nam; - var $2353 = self.ini; - var $2354 = self.idx; - var $2355 = self.str; - var $2356 = ((console.log(("FALTANDO " + $2355)), (_$15 => { - var $2357 = ((console.log(("VALUE " + $2352)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2341, $2351), $2352, $2353, $2354, $2355); - var self = _reply$pst$17; + var $2261 = self.err; + var $2262 = self.nam; + var $2263 = self.ini; + var $2264 = self.idx; + var $2265 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($2251, $2261), $2262, $2263, $2264, $2265); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $2267 = self.err; + var _reply$21 = Parser$avoiding$(Kind$Parser$text_now$("("), Kind$Parser$term, _reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $2359 = self.err; - var _reply$23 = Parser$avoiding$(Kind$Parser$text_now$("("), Kind$Parser$term, _reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $2269 = self.err; + var self = $2267; switch (self._) { - case 'Parser.Reply.error': - var $2361 = self.err; - var self = $2359; - switch (self._) { - case 'Maybe.some': - var $2363 = self.value; - var $2364 = Parser$Reply$error$(Parser$Error$combine$($2363, $2361)); - var $2362 = $2364; - break; - case 'Maybe.none': - var $2365 = Parser$Reply$error$($2361); - var $2362 = $2365; - break; - }; - var $2360 = $2362; + case 'Maybe.some': + var $2271 = self.value; + var $2272 = Parser$Reply$error$(Parser$Error$combine$($2271, $2269)); + var $2270 = $2272; break; - case 'Parser.Reply.value': - var $2366 = self.pst; - var $2367 = self.val; - var self = $2366; - switch (self._) { - case 'Parser.State.new': - var $2369 = self.err; - var $2370 = self.nam; - var $2371 = self.ini; - var $2372 = self.idx; - var $2373 = self.str; - var $2374 = ((console.log(("FALTANDO " + $2373)), (_$31 => { - var $2375 = ((console.log(("VALUE " + $2370)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($2359, $2369), $2370, $2371, $2372, $2373); - var $2376 = Parser$Reply$value$(_reply$pst$33, Kind$Parser$lambda$make$start$($2349, $2367)); - return $2376; - })())); - return $2375; - })())); - var $2368 = $2374; - break; - }; - var $2360 = $2368; + case 'Maybe.none': + var $2273 = Parser$Reply$error$($2269); + var $2270 = $2273; break; }; - var $2358 = $2360; + var $2268 = $2270; + break; + case 'Parser.Reply.value': + var $2274 = self.pst; + var $2275 = self.val; + var self = $2274; + switch (self._) { + case 'Parser.State.new': + var $2277 = self.err; + var $2278 = self.nam; + var $2279 = self.ini; + var $2280 = self.idx; + var $2281 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($2267, $2277), $2278, $2279, $2280, $2281); + var $2282 = Parser$Reply$value$(_reply$pst$29, Kind$Parser$lambda$make$start$($2259, $2275)); + var $2276 = $2282; + break; + }; + var $2268 = $2276; break; }; - return $2358; - })())); - return $2357; - })())); - var $2350 = $2356; + var $2266 = $2268; + break; + }; + var $2260 = $2266; break; }; - var $2342 = $2350; + var $2252 = $2260; break; }; - var $2340 = $2342; + var $2250 = $2252; break; }; - return $2340; + return $2250; })); function Kind$Parser$lambda$name_term$(_pst$1) { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $2378 = self.err; - var _reply$7 = Kind$Parser$name$(_pst$1); + var $2284 = self.err; + var _reply$7 = Kind$Parser$name1$(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $2380 = self.err; - var self = $2378; + var $2286 = self.err; + var self = $2284; switch (self._) { case 'Maybe.some': - var $2382 = self.value; - var $2383 = Parser$Reply$error$(Parser$Error$combine$($2382, $2380)); - var $2381 = $2383; + var $2288 = self.value; + var $2289 = Parser$Reply$error$(Parser$Error$combine$($2288, $2286)); + var $2287 = $2289; break; case 'Maybe.none': - var $2384 = Parser$Reply$error$($2380); - var $2381 = $2384; + var $2290 = Parser$Reply$error$($2286); + var $2287 = $2290; break; }; - var $2379 = $2381; + var $2285 = $2287; break; case 'Parser.Reply.value': - var $2385 = self.pst; - var $2386 = self.val; - var self = $2385; + var $2291 = self.pst; + var $2292 = self.val; + var self = $2291; switch (self._) { case 'Parser.State.new': - var $2388 = self.err; - var $2389 = self.nam; - var $2390 = self.ini; - var $2391 = self.idx; - var $2392 = self.str; - var $2393 = ((console.log(("FALTANDO " + $2392)), (_$15 => { - var $2394 = ((console.log(("VALUE " + $2389)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2378, $2388), $2389, $2390, $2391, $2392); - var $2395 = ((console.log(("NOME" + $2386)), (_$18 => _pst$19 => { - var self = _pst$19; + var $2294 = self.err; + var $2295 = self.nam; + var $2296 = self.ini; + var $2297 = self.idx; + var $2298 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($2284, $2294), $2295, $2296, $2297, $2298); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $2300 = self.err; + var _reply$21 = Parser$maybe$((_pst$21 => { + var self = _pst$21; switch (self._) { case 'Parser.State.new': - var $2397 = self.err; - var _reply$25 = Parser$maybe$((_pst$25 => { - var self = _pst$25; - switch (self._) { - case 'Parser.State.new': - var $2400 = self.err; - var _reply$31 = Kind$Parser$text$(":", _pst$25); - var self = _reply$31; - switch (self._) { - case 'Parser.Reply.error': - var $2402 = self.err; - var self = $2400; - switch (self._) { - case 'Maybe.some': - var $2404 = self.value; - var $2405 = Parser$Reply$error$(Parser$Error$combine$($2404, $2402)); - var $2403 = $2405; - break; - case 'Maybe.none': - var $2406 = Parser$Reply$error$($2402); - var $2403 = $2406; - break; - }; - var $2401 = $2403; - break; - case 'Parser.Reply.value': - var $2407 = self.pst; - var self = $2407; - switch (self._) { - case 'Parser.State.new': - var $2409 = self.err; - var $2410 = self.nam; - var $2411 = self.ini; - var $2412 = self.idx; - var $2413 = self.str; - var $2414 = ((console.log(("FALTANDO " + $2413)), (_$39 => { - var $2415 = ((console.log(("VALUE " + $2410)), (_$40 => { - var _reply$pst$41 = Parser$State$new$(Parser$Error$maybe_combine$($2400, $2409), $2410, $2411, $2412, $2413); - var $2416 = ((console.log("AQUI?"), (_$42 => _pst$43 => { - var self = _pst$43; - switch (self._) { - case 'Parser.State.new': - var $2418 = self.err; - var _reply$49 = Kind$Parser$term(_pst$43); - var self = _reply$49; - switch (self._) { - case 'Parser.Reply.error': - var $2420 = self.err; - var self = $2418; - switch (self._) { - case 'Maybe.some': - var $2422 = self.value; - var $2423 = Parser$Reply$error$(Parser$Error$combine$($2422, $2420)); - var $2421 = $2423; - break; - case 'Maybe.none': - var $2424 = Parser$Reply$error$($2420); - var $2421 = $2424; - break; - }; - var $2419 = $2421; - break; - case 'Parser.Reply.value': - var $2425 = self.pst; - var $2426 = self.val; - var self = $2425; - switch (self._) { - case 'Parser.State.new': - var $2428 = self.err; - var $2429 = self.nam; - var $2430 = self.ini; - var $2431 = self.idx; - var $2432 = self.str; - var $2433 = ((console.log(("FALTANDO " + $2432)), (_$57 => { - var $2434 = ((console.log(("VALUE " + $2429)), (_$58 => { - var _reply$pst$59 = Parser$State$new$(Parser$Error$maybe_combine$($2418, $2428), $2429, $2430, $2431, $2432); - var $2435 = Parser$Reply$value$(_reply$pst$59, $2426); - return $2435; - })())); - return $2434; - })())); - var $2427 = $2433; - break; - }; - var $2419 = $2427; - break; - }; - var $2417 = $2419; - break; - }; - return $2417; - })()))(_reply$pst$41); - return $2416; - })())); - return $2415; - })())); - var $2408 = $2414; - break; - }; - var $2401 = $2408; - break; - }; - var $2399 = $2401; - break; - }; - return $2399; - }), _pst$19); - var self = _reply$25; + var $2303 = self.err; + var _reply$27 = Kind$Parser$text$(":", _pst$21); + var self = _reply$27; switch (self._) { case 'Parser.Reply.error': - var $2436 = self.err; - var self = $2397; + var $2305 = self.err; + var self = $2303; switch (self._) { case 'Maybe.some': - var $2438 = self.value; - var $2439 = Parser$Reply$error$(Parser$Error$combine$($2438, $2436)); - var $2437 = $2439; + var $2307 = self.value; + var $2308 = Parser$Reply$error$(Parser$Error$combine$($2307, $2305)); + var $2306 = $2308; break; case 'Maybe.none': - var $2440 = Parser$Reply$error$($2436); - var $2437 = $2440; + var $2309 = Parser$Reply$error$($2305); + var $2306 = $2309; break; }; - var $2398 = $2437; + var $2304 = $2306; break; case 'Parser.Reply.value': - var $2441 = self.pst; - var $2442 = self.val; - var self = $2441; + var $2310 = self.pst; + var self = $2310; switch (self._) { case 'Parser.State.new': - var $2444 = self.err; - var $2445 = self.nam; - var $2446 = self.ini; - var $2447 = self.idx; - var $2448 = self.str; - var $2449 = ((console.log(("FALTANDO " + $2448)), (_$33 => { - var $2450 = ((console.log(("VALUE " + $2445)), (_$34 => { - var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($2397, $2444), $2445, $2446, $2447, $2448); - var $2451 = Parser$Reply$value$(_reply$pst$35, Pair$new$($2386, $2442)); - return $2451; - })())); - return $2450; - })())); - var $2443 = $2449; + var $2312 = self.err; + var $2313 = self.nam; + var $2314 = self.ini; + var $2315 = self.idx; + var $2316 = self.str; + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($2303, $2312), $2313, $2314, $2315, $2316); + var self = _reply$pst$35; + switch (self._) { + case 'Parser.State.new': + var $2318 = self.err; + var _reply$41 = Kind$Parser$term(_reply$pst$35); + var self = _reply$41; + switch (self._) { + case 'Parser.Reply.error': + var $2320 = self.err; + var self = $2318; + switch (self._) { + case 'Maybe.some': + var $2322 = self.value; + var $2323 = Parser$Reply$error$(Parser$Error$combine$($2322, $2320)); + var $2321 = $2323; + break; + case 'Maybe.none': + var $2324 = Parser$Reply$error$($2320); + var $2321 = $2324; + break; + }; + var $2319 = $2321; + break; + case 'Parser.Reply.value': + var $2325 = self.pst; + var $2326 = self.val; + var self = $2325; + switch (self._) { + case 'Parser.State.new': + var $2328 = self.err; + var $2329 = self.nam; + var $2330 = self.ini; + var $2331 = self.idx; + var $2332 = self.str; + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($2318, $2328), $2329, $2330, $2331, $2332); + var $2333 = Parser$Reply$value$(_reply$pst$49, $2326); + var $2327 = $2333; + break; + }; + var $2319 = $2327; + break; + }; + var $2317 = $2319; + break; + }; + var $2311 = $2317; break; }; - var $2398 = $2443; + var $2304 = $2311; break; }; - var $2396 = $2398; + var $2302 = $2304; break; }; - return $2396; - })()))(_reply$pst$17); - return $2395; - })())); - return $2394; - })())); - var $2387 = $2393; + return $2302; + }), _reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $2334 = self.err; + var self = $2300; + switch (self._) { + case 'Maybe.some': + var $2336 = self.value; + var $2337 = Parser$Reply$error$(Parser$Error$combine$($2336, $2334)); + var $2335 = $2337; + break; + case 'Maybe.none': + var $2338 = Parser$Reply$error$($2334); + var $2335 = $2338; + break; + }; + var $2301 = $2335; + break; + case 'Parser.Reply.value': + var $2339 = self.pst; + var $2340 = self.val; + var self = $2339; + switch (self._) { + case 'Parser.State.new': + var $2342 = self.err; + var $2343 = self.nam; + var $2344 = self.ini; + var $2345 = self.idx; + var $2346 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($2300, $2342), $2343, $2344, $2345, $2346); + var $2347 = Parser$Reply$value$(_reply$pst$29, Pair$new$($2292, $2340)); + var $2341 = $2347; + break; + }; + var $2301 = $2341; + break; + }; + var $2299 = $2301; + break; + }; + var $2293 = $2299; break; }; - var $2379 = $2387; + var $2285 = $2293; break; }; - var $2377 = $2379; + var $2283 = $2285; break; }; - return $2377; + return $2283; }; const Kind$Parser$lambda$name_term = x0 => Kind$Parser$lambda$name_term$(x0); @@ -9034,99 +8721,13776 @@ module.exports = (function() { var self = _xs$3; switch (self._) { case 'List.cons': - var $2453 = self.head; - var $2454 = self.tail; - var _rec$6 = List$unzip$($2454); - var self = $2453; + var $2349 = self.head; + var $2350 = self.tail; + var _rec$6 = List$unzip$($2350); + var self = $2349; switch (self._) { case 'Pair.new': - var $2456 = self.fst; - var $2457 = self.snd; + var $2352 = self.fst; + var $2353 = self.snd; var self = _rec$6; switch (self._) { case 'Pair.new': - var $2459 = self.fst; - var $2460 = self.snd; - var $2461 = Pair$new$(List$cons$($2456, $2459), List$cons$($2457, $2460)); - var $2458 = $2461; + var $2355 = self.fst; + var $2356 = self.snd; + var $2357 = Pair$new$(List$cons$($2352, $2355), List$cons$($2353, $2356)); + var $2354 = $2357; break; }; - var $2455 = $2458; + var $2351 = $2354; break; }; - var $2452 = $2455; + var $2348 = $2351; break; case 'List.nil': - var $2462 = Pair$new$(List$nil, List$nil); - var $2452 = $2462; + var $2358 = Pair$new$(List$nil, List$nil); + var $2348 = $2358; break; }; - return $2452; + return $2348; }; const List$unzip = x0 => List$unzip$(x0); - function Maybe$mapped$(_m$2, _f$4) { - var self = _m$2; + function Kind$Parser$lambda$get_type$(_types$1) { + var self = _types$1; switch (self._) { - case 'Maybe.some': - var $2464 = self.value; - var $2465 = Maybe$some$(_f$4($2464)); - var $2463 = $2465; + case 'List.cons': + var $2360 = self.head; + var $2361 = self.tail; + var self = $2360; + switch (self._) { + case 'Maybe.some': + var $2363 = self.value; + var $2364 = $2363; + var _type$4 = $2364; + break; + case 'Maybe.none': + var $2365 = Kind$Term$hol$(Bits$e); + var _type$4 = $2365; + break; + }; + var $2362 = Kind$Term$all$(Bool$false, "", "", _type$4, (_s$5 => _x$6 => { + var $2366 = Kind$Parser$lambda$get_type$($2361); + return $2366; + })); + var $2359 = $2362; break; - case 'Maybe.none': - var $2466 = Maybe$none; - var $2463 = $2466; + case 'List.nil': + var $2367 = Kind$Term$hol$(Bits$e); + var $2359 = $2367; break; }; - return $2463; + return $2359; }; - const Maybe$mapped = x0 => x1 => Maybe$mapped$(x0, x1); + const Kind$Parser$lambda$get_type = x0 => Kind$Parser$lambda$get_type$(x0); + const Kind$Parser$lambda$2 = Kind$Parser$block("lambda")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $2369 = self.err; + var _reply$7 = Kind$Parser$items$("(", Kind$Parser$lambda$name_term, ")")(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $2371 = self.err; + var self = $2369; + switch (self._) { + case 'Maybe.some': + var $2373 = self.value; + var $2374 = Parser$Reply$error$(Parser$Error$combine$($2373, $2371)); + var $2372 = $2374; + break; + case 'Maybe.none': + var $2375 = Parser$Reply$error$($2371); + var $2372 = $2375; + break; + }; + var $2370 = $2372; + break; + case 'Parser.Reply.value': + var $2376 = self.pst; + var $2377 = self.val; + var self = $2376; + switch (self._) { + case 'Parser.State.new': + var $2379 = self.err; + var $2380 = self.nam; + var $2381 = self.ini; + var $2382 = self.idx; + var $2383 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($2369, $2379), $2380, $2381, $2382, $2383); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $2385 = self.err; + var _reply$21 = Parser$avoiding$(Kind$Parser$text_now$("("), Kind$Parser$term, _reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $2387 = self.err; + var self = $2385; + switch (self._) { + case 'Maybe.some': + var $2389 = self.value; + var $2390 = Parser$Reply$error$(Parser$Error$combine$($2389, $2387)); + var $2388 = $2390; + break; + case 'Maybe.none': + var $2391 = Parser$Reply$error$($2387); + var $2388 = $2391; + break; + }; + var $2386 = $2388; + break; + case 'Parser.Reply.value': + var $2392 = self.pst; + var $2393 = self.val; + var self = $2392; + switch (self._) { + case 'Parser.State.new': + var $2395 = self.err; + var $2396 = self.nam; + var $2397 = self.ini; + var $2398 = self.idx; + var $2399 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($2385, $2395), $2396, $2397, $2398, $2399); + var self = List$unzip$($2377); + switch (self._) { + case 'Pair.new': + var $2401 = self.fst; + var $2402 = self.snd; + var _lamb$32 = Kind$Parser$lambda$make$start$($2401, $2393); + var _type$33 = Kind$Parser$lambda$get_type$($2402); + var _term$34 = Kind$Term$ann$(Bool$false, _lamb$32, _type$33); + var $2403 = (_pst$35 => { + var $2404 = Parser$Reply$value$(_pst$35, _term$34); + return $2404; + }); + var $2400 = $2403; + break; + }; + var $2400 = $2400(_reply$pst$29); + var $2394 = $2400; + break; + }; + var $2386 = $2394; + break; + }; + var $2384 = $2386; + break; + }; + var $2378 = $2384; + break; + }; + var $2370 = $2378; + break; + }; + var $2368 = $2370; + break; + }; + return $2368; + })); + const Kind$Parser$lambda = Kind$Parser$block("term")(Parser$choice(List$cons$(Kind$Parser$lambda$1, List$cons$(Kind$Parser$lambda$2, List$nil)))); + const Kind$Parser$lambda$erased = Kind$Parser$block("lambda")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $2406 = self.err; + var _reply$7 = Kind$Parser$items$("<", Kind$Parser$name1, ">")(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $2408 = self.err; + var self = $2406; + switch (self._) { + case 'Maybe.some': + var $2410 = self.value; + var $2411 = Parser$Reply$error$(Parser$Error$combine$($2410, $2408)); + var $2409 = $2411; + break; + case 'Maybe.none': + var $2412 = Parser$Reply$error$($2408); + var $2409 = $2412; + break; + }; + var $2407 = $2409; + break; + case 'Parser.Reply.value': + var $2413 = self.pst; + var $2414 = self.val; + var self = $2413; + switch (self._) { + case 'Parser.State.new': + var $2416 = self.err; + var $2417 = self.nam; + var $2418 = self.ini; + var $2419 = self.idx; + var $2420 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($2406, $2416), $2417, $2418, $2419, $2420); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $2422 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $2424 = self.err; + var self = $2422; + switch (self._) { + case 'Maybe.some': + var $2426 = self.value; + var $2427 = Parser$Reply$error$(Parser$Error$combine$($2426, $2424)); + var $2425 = $2427; + break; + case 'Maybe.none': + var $2428 = Parser$Reply$error$($2424); + var $2425 = $2428; + break; + }; + var $2423 = $2425; + break; + case 'Parser.Reply.value': + var $2429 = self.pst; + var $2430 = self.val; + var self = $2429; + switch (self._) { + case 'Parser.State.new': + var $2432 = self.err; + var $2433 = self.nam; + var $2434 = self.ini; + var $2435 = self.idx; + var $2436 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($2422, $2432), $2433, $2434, $2435, $2436); + var $2437 = Parser$Reply$value$(_reply$pst$29, Kind$Parser$lambda$make$start$($2414, $2430)); + var $2431 = $2437; + break; + }; + var $2423 = $2431; + break; + }; + var $2421 = $2423; + break; + }; + var $2415 = $2421; + break; + }; + var $2407 = $2415; + break; + }; + var $2405 = $2407; + break; + }; + return $2405; + })); + const Kind$Parser$parenthesis = Kind$Parser$block("parenthesis")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $2439 = self.err; + var _reply$7 = Kind$Parser$text$("(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $2441 = self.err; + var self = $2439; + switch (self._) { + case 'Maybe.some': + var $2443 = self.value; + var $2444 = Parser$Reply$error$(Parser$Error$combine$($2443, $2441)); + var $2442 = $2444; + break; + case 'Maybe.none': + var $2445 = Parser$Reply$error$($2441); + var $2442 = $2445; + break; + }; + var $2440 = $2442; + break; + case 'Parser.Reply.value': + var $2446 = self.pst; + var self = $2446; + switch (self._) { + case 'Parser.State.new': + var $2448 = self.err; + var $2449 = self.nam; + var $2450 = self.ini; + var $2451 = self.idx; + var $2452 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($2439, $2448), $2449, $2450, $2451, $2452); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $2454 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $2456 = self.err; + var self = $2454; + switch (self._) { + case 'Maybe.some': + var $2458 = self.value; + var $2459 = Parser$Reply$error$(Parser$Error$combine$($2458, $2456)); + var $2457 = $2459; + break; + case 'Maybe.none': + var $2460 = Parser$Reply$error$($2456); + var $2457 = $2460; + break; + }; + var $2455 = $2457; + break; + case 'Parser.Reply.value': + var $2461 = self.pst; + var $2462 = self.val; + var self = $2461; + switch (self._) { + case 'Parser.State.new': + var $2464 = self.err; + var $2465 = self.nam; + var $2466 = self.ini; + var $2467 = self.idx; + var $2468 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($2454, $2464), $2465, $2466, $2467, $2468); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $2470 = self.err; + var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $2472 = self.err; + var self = $2470; + switch (self._) { + case 'Maybe.some': + var $2474 = self.value; + var $2475 = Parser$Reply$error$(Parser$Error$combine$($2474, $2472)); + var $2473 = $2475; + break; + case 'Maybe.none': + var $2476 = Parser$Reply$error$($2472); + var $2473 = $2476; + break; + }; + var $2471 = $2473; + break; + case 'Parser.Reply.value': + var $2477 = self.pst; + var self = $2477; + switch (self._) { + case 'Parser.State.new': + var $2479 = self.err; + var $2480 = self.nam; + var $2481 = self.ini; + var $2482 = self.idx; + var $2483 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($2470, $2479), $2480, $2481, $2482, $2483); + var $2484 = Parser$Reply$value$(_reply$pst$43, $2462); + var $2478 = $2484; + break; + }; + var $2471 = $2478; + break; + }; + var $2469 = $2471; + break; + }; + var $2463 = $2469; + break; + }; + var $2455 = $2463; + break; + }; + var $2453 = $2455; + break; + }; + var $2447 = $2453; + break; + }; + var $2440 = $2447; + break; + }; + var $2438 = $2440; + break; + }; + return $2438; + })); - function Kind$Term$show$as_nat$go$(_term$1) { + function Kind$Parser$letforrange$(_typename$1, _body$2) { + var $2485 = Kind$Parser$block("let-for")((_pst$3 => { + var self = _pst$3; + switch (self._) { + case 'Parser.State.new': + var $2487 = self.err; + var _reply$9 = Kind$Parser$text$("let ", _pst$3); + var self = _reply$9; + switch (self._) { + case 'Parser.Reply.error': + var $2489 = self.err; + var self = $2487; + switch (self._) { + case 'Maybe.some': + var $2491 = self.value; + var $2492 = Parser$Reply$error$(Parser$Error$combine$($2491, $2489)); + var $2490 = $2492; + break; + case 'Maybe.none': + var $2493 = Parser$Reply$error$($2489); + var $2490 = $2493; + break; + }; + var $2488 = $2490; + break; + case 'Parser.Reply.value': + var $2494 = self.pst; + var self = $2494; + switch (self._) { + case 'Parser.State.new': + var $2496 = self.err; + var $2497 = self.nam; + var $2498 = self.ini; + var $2499 = self.idx; + var $2500 = self.str; + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2487, $2496), $2497, $2498, $2499, $2500); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $2502 = self.err; + var _reply$23 = Kind$Parser$name1$(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $2504 = self.err; + var self = $2502; + switch (self._) { + case 'Maybe.some': + var $2506 = self.value; + var $2507 = Parser$Reply$error$(Parser$Error$combine$($2506, $2504)); + var $2505 = $2507; + break; + case 'Maybe.none': + var $2508 = Parser$Reply$error$($2504); + var $2505 = $2508; + break; + }; + var $2503 = $2505; + break; + case 'Parser.Reply.value': + var $2509 = self.pst; + var $2510 = self.val; + var self = $2509; + switch (self._) { + case 'Parser.State.new': + var $2512 = self.err; + var $2513 = self.nam; + var $2514 = self.ini; + var $2515 = self.idx; + var $2516 = self.str; + var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($2502, $2512), $2513, $2514, $2515, $2516); + var self = _reply$pst$31; + switch (self._) { + case 'Parser.State.new': + var $2518 = self.err; + var _reply$37 = Kind$Parser$text$("=", _reply$pst$31); + var self = _reply$37; + switch (self._) { + case 'Parser.Reply.error': + var $2520 = self.err; + var self = $2518; + switch (self._) { + case 'Maybe.some': + var $2522 = self.value; + var $2523 = Parser$Reply$error$(Parser$Error$combine$($2522, $2520)); + var $2521 = $2523; + break; + case 'Maybe.none': + var $2524 = Parser$Reply$error$($2520); + var $2521 = $2524; + break; + }; + var $2519 = $2521; + break; + case 'Parser.Reply.value': + var $2525 = self.pst; + var self = $2525; + switch (self._) { + case 'Parser.State.new': + var $2527 = self.err; + var $2528 = self.nam; + var $2529 = self.ini; + var $2530 = self.idx; + var $2531 = self.str; + var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($2518, $2527), $2528, $2529, $2530, $2531); + var self = _reply$pst$45; + switch (self._) { + case 'Parser.State.new': + var $2533 = self.err; + var _reply$51 = Kind$Parser$text$("for ", _reply$pst$45); + var self = _reply$51; + switch (self._) { + case 'Parser.Reply.error': + var $2535 = self.err; + var self = $2533; + switch (self._) { + case 'Maybe.some': + var $2537 = self.value; + var $2538 = Parser$Reply$error$(Parser$Error$combine$($2537, $2535)); + var $2536 = $2538; + break; + case 'Maybe.none': + var $2539 = Parser$Reply$error$($2535); + var $2536 = $2539; + break; + }; + var $2534 = $2536; + break; + case 'Parser.Reply.value': + var $2540 = self.pst; + var self = $2540; + switch (self._) { + case 'Parser.State.new': + var $2542 = self.err; + var $2543 = self.nam; + var $2544 = self.ini; + var $2545 = self.idx; + var $2546 = self.str; + var _reply$pst$59 = Parser$State$new$(Parser$Error$maybe_combine$($2533, $2542), $2543, $2544, $2545, $2546); + var self = _reply$pst$59; + switch (self._) { + case 'Parser.State.new': + var $2548 = self.err; + var _reply$65 = Kind$Parser$name1$(_reply$pst$59); + var self = _reply$65; + switch (self._) { + case 'Parser.Reply.error': + var $2550 = self.err; + var self = $2548; + switch (self._) { + case 'Maybe.some': + var $2552 = self.value; + var $2553 = Parser$Reply$error$(Parser$Error$combine$($2552, $2550)); + var $2551 = $2553; + break; + case 'Maybe.none': + var $2554 = Parser$Reply$error$($2550); + var $2551 = $2554; + break; + }; + var $2549 = $2551; + break; + case 'Parser.Reply.value': + var $2555 = self.pst; + var $2556 = self.val; + var self = $2555; + switch (self._) { + case 'Parser.State.new': + var $2558 = self.err; + var $2559 = self.nam; + var $2560 = self.ini; + var $2561 = self.idx; + var $2562 = self.str; + var _reply$pst$73 = Parser$State$new$(Parser$Error$maybe_combine$($2548, $2558), $2559, $2560, $2561, $2562); + var self = _reply$pst$73; + switch (self._) { + case 'Parser.State.new': + var $2564 = self.err; + var _reply$79 = Kind$Parser$text$(":", _reply$pst$73); + var self = _reply$79; + switch (self._) { + case 'Parser.Reply.error': + var $2566 = self.err; + var self = $2564; + switch (self._) { + case 'Maybe.some': + var $2568 = self.value; + var $2569 = Parser$Reply$error$(Parser$Error$combine$($2568, $2566)); + var $2567 = $2569; + break; + case 'Maybe.none': + var $2570 = Parser$Reply$error$($2566); + var $2567 = $2570; + break; + }; + var $2565 = $2567; + break; + case 'Parser.Reply.value': + var $2571 = self.pst; + var self = $2571; + switch (self._) { + case 'Parser.State.new': + var $2573 = self.err; + var $2574 = self.nam; + var $2575 = self.ini; + var $2576 = self.idx; + var $2577 = self.str; + var _reply$pst$87 = Parser$State$new$(Parser$Error$maybe_combine$($2564, $2573), $2574, $2575, $2576, $2577); + var self = _reply$pst$87; + switch (self._) { + case 'Parser.State.new': + var $2579 = self.err; + var _reply$93 = Kind$Parser$text$(_typename$1, _reply$pst$87); + var self = _reply$93; + switch (self._) { + case 'Parser.Reply.error': + var $2581 = self.err; + var self = $2579; + switch (self._) { + case 'Maybe.some': + var $2583 = self.value; + var $2584 = Parser$Reply$error$(Parser$Error$combine$($2583, $2581)); + var $2582 = $2584; + break; + case 'Maybe.none': + var $2585 = Parser$Reply$error$($2581); + var $2582 = $2585; + break; + }; + var $2580 = $2582; + break; + case 'Parser.Reply.value': + var $2586 = self.pst; + var self = $2586; + switch (self._) { + case 'Parser.State.new': + var $2588 = self.err; + var $2589 = self.nam; + var $2590 = self.ini; + var $2591 = self.idx; + var $2592 = self.str; + var _reply$pst$101 = Parser$State$new$(Parser$Error$maybe_combine$($2579, $2588), $2589, $2590, $2591, $2592); + var self = _reply$pst$101; + switch (self._) { + case 'Parser.State.new': + var $2594 = self.err; + var _reply$107 = Kind$Parser$text$("from", _reply$pst$101); + var self = _reply$107; + switch (self._) { + case 'Parser.Reply.error': + var $2596 = self.err; + var self = $2594; + switch (self._) { + case 'Maybe.some': + var $2598 = self.value; + var $2599 = Parser$Reply$error$(Parser$Error$combine$($2598, $2596)); + var $2597 = $2599; + break; + case 'Maybe.none': + var $2600 = Parser$Reply$error$($2596); + var $2597 = $2600; + break; + }; + var $2595 = $2597; + break; + case 'Parser.Reply.value': + var $2601 = self.pst; + var self = $2601; + switch (self._) { + case 'Parser.State.new': + var $2603 = self.err; + var $2604 = self.nam; + var $2605 = self.ini; + var $2606 = self.idx; + var $2607 = self.str; + var _reply$pst$115 = Parser$State$new$(Parser$Error$maybe_combine$($2594, $2603), $2604, $2605, $2606, $2607); + var self = _reply$pst$115; + switch (self._) { + case 'Parser.State.new': + var $2609 = self.err; + var _reply$121 = Kind$Parser$term(_reply$pst$115); + var self = _reply$121; + switch (self._) { + case 'Parser.Reply.error': + var $2611 = self.err; + var self = $2609; + switch (self._) { + case 'Maybe.some': + var $2613 = self.value; + var $2614 = Parser$Reply$error$(Parser$Error$combine$($2613, $2611)); + var $2612 = $2614; + break; + case 'Maybe.none': + var $2615 = Parser$Reply$error$($2611); + var $2612 = $2615; + break; + }; + var $2610 = $2612; + break; + case 'Parser.Reply.value': + var $2616 = self.pst; + var $2617 = self.val; + var self = $2616; + switch (self._) { + case 'Parser.State.new': + var $2619 = self.err; + var $2620 = self.nam; + var $2621 = self.ini; + var $2622 = self.idx; + var $2623 = self.str; + var _reply$pst$129 = Parser$State$new$(Parser$Error$maybe_combine$($2609, $2619), $2620, $2621, $2622, $2623); + var self = _reply$pst$129; + switch (self._) { + case 'Parser.State.new': + var $2625 = self.err; + var _reply$135 = Kind$Parser$text$("to", _reply$pst$129); + var self = _reply$135; + switch (self._) { + case 'Parser.Reply.error': + var $2627 = self.err; + var self = $2625; + switch (self._) { + case 'Maybe.some': + var $2629 = self.value; + var $2630 = Parser$Reply$error$(Parser$Error$combine$($2629, $2627)); + var $2628 = $2630; + break; + case 'Maybe.none': + var $2631 = Parser$Reply$error$($2627); + var $2628 = $2631; + break; + }; + var $2626 = $2628; + break; + case 'Parser.Reply.value': + var $2632 = self.pst; + var self = $2632; + switch (self._) { + case 'Parser.State.new': + var $2634 = self.err; + var $2635 = self.nam; + var $2636 = self.ini; + var $2637 = self.idx; + var $2638 = self.str; + var _reply$pst$143 = Parser$State$new$(Parser$Error$maybe_combine$($2625, $2634), $2635, $2636, $2637, $2638); + var self = _reply$pst$143; + switch (self._) { + case 'Parser.State.new': + var $2640 = self.err; + var _reply$149 = Kind$Parser$term(_reply$pst$143); + var self = _reply$149; + switch (self._) { + case 'Parser.Reply.error': + var $2642 = self.err; + var self = $2640; + switch (self._) { + case 'Maybe.some': + var $2644 = self.value; + var $2645 = Parser$Reply$error$(Parser$Error$combine$($2644, $2642)); + var $2643 = $2645; + break; + case 'Maybe.none': + var $2646 = Parser$Reply$error$($2642); + var $2643 = $2646; + break; + }; + var $2641 = $2643; + break; + case 'Parser.Reply.value': + var $2647 = self.pst; + var $2648 = self.val; + var self = $2647; + switch (self._) { + case 'Parser.State.new': + var $2650 = self.err; + var $2651 = self.nam; + var $2652 = self.ini; + var $2653 = self.idx; + var $2654 = self.str; + var _reply$pst$157 = Parser$State$new$(Parser$Error$maybe_combine$($2640, $2650), $2651, $2652, $2653, $2654); + var self = _reply$pst$157; + switch (self._) { + case 'Parser.State.new': + var $2656 = self.err; + var _reply$163 = Kind$Parser$text$(":", _reply$pst$157); + var self = _reply$163; + switch (self._) { + case 'Parser.Reply.error': + var $2658 = self.err; + var self = $2656; + switch (self._) { + case 'Maybe.some': + var $2660 = self.value; + var $2661 = Parser$Reply$error$(Parser$Error$combine$($2660, $2658)); + var $2659 = $2661; + break; + case 'Maybe.none': + var $2662 = Parser$Reply$error$($2658); + var $2659 = $2662; + break; + }; + var $2657 = $2659; + break; + case 'Parser.Reply.value': + var $2663 = self.pst; + var self = $2663; + switch (self._) { + case 'Parser.State.new': + var $2665 = self.err; + var $2666 = self.nam; + var $2667 = self.ini; + var $2668 = self.idx; + var $2669 = self.str; + var _reply$pst$171 = Parser$State$new$(Parser$Error$maybe_combine$($2656, $2665), $2666, $2667, $2668, $2669); + var self = _reply$pst$171; + switch (self._) { + case 'Parser.State.new': + var $2671 = self.err; + var _reply$177 = Kind$Parser$term(_reply$pst$171); + var self = _reply$177; + switch (self._) { + case 'Parser.Reply.error': + var $2673 = self.err; + var self = $2671; + switch (self._) { + case 'Maybe.some': + var $2675 = self.value; + var $2676 = Parser$Reply$error$(Parser$Error$combine$($2675, $2673)); + var $2674 = $2676; + break; + case 'Maybe.none': + var $2677 = Parser$Reply$error$($2673); + var $2674 = $2677; + break; + }; + var $2672 = $2674; + break; + case 'Parser.Reply.value': + var $2678 = self.pst; + var $2679 = self.val; + var self = $2678; + switch (self._) { + case 'Parser.State.new': + var $2681 = self.err; + var $2682 = self.nam; + var $2683 = self.ini; + var $2684 = self.idx; + var $2685 = self.str; + var _reply$pst$185 = Parser$State$new$(Parser$Error$maybe_combine$($2671, $2681), $2682, $2683, $2684, $2685); + var self = _reply$pst$185; + switch (self._) { + case 'Parser.State.new': + var $2687 = self.err; + var _reply$191 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$185); + var self = _reply$191; + switch (self._) { + case 'Parser.Reply.error': + var $2689 = self.err; + var self = $2687; + switch (self._) { + case 'Maybe.some': + var $2691 = self.value; + var $2692 = Parser$Reply$error$(Parser$Error$combine$($2691, $2689)); + var $2690 = $2692; + break; + case 'Maybe.none': + var $2693 = Parser$Reply$error$($2689); + var $2690 = $2693; + break; + }; + var $2688 = $2690; + break; + case 'Parser.Reply.value': + var $2694 = self.pst; + var self = $2694; + switch (self._) { + case 'Parser.State.new': + var $2696 = self.err; + var $2697 = self.nam; + var $2698 = self.ini; + var $2699 = self.idx; + var $2700 = self.str; + var _reply$pst$199 = Parser$State$new$(Parser$Error$maybe_combine$($2687, $2696), $2697, $2698, $2699, $2700); + var self = _reply$pst$199; + switch (self._) { + case 'Parser.State.new': + var $2702 = self.err; + var _reply$205 = _body$2(Unit$new)(_reply$pst$199); + var self = _reply$205; + switch (self._) { + case 'Parser.Reply.error': + var $2704 = self.err; + var self = $2702; + switch (self._) { + case 'Maybe.some': + var $2706 = self.value; + var $2707 = Parser$Reply$error$(Parser$Error$combine$($2706, $2704)); + var $2705 = $2707; + break; + case 'Maybe.none': + var $2708 = Parser$Reply$error$($2704); + var $2705 = $2708; + break; + }; + var $2703 = $2705; + break; + case 'Parser.Reply.value': + var $2709 = self.pst; + var $2710 = self.val; + var self = $2709; + switch (self._) { + case 'Parser.State.new': + var $2712 = self.err; + var $2713 = self.nam; + var $2714 = self.ini; + var $2715 = self.idx; + var $2716 = self.str; + var _reply$pst$213 = Parser$State$new$(Parser$Error$maybe_combine$($2702, $2712), $2713, $2714, $2715, $2716); + var _term$214 = Kind$Term$ref$((_typename$1 + ".for")); + var _term$215 = Kind$Term$app$(_term$214, Kind$Term$hol$(Bits$e)); + var _term$216 = Kind$Term$app$(_term$215, Kind$Term$ref$($2510)); + var _term$217 = Kind$Term$app$(_term$216, $2617); + var _term$218 = Kind$Term$app$(_term$217, $2648); + var _lamb$219 = Kind$Term$lam$($2556, (_e$219 => { + var $2718 = Kind$Term$lam$($2510, (_s$220 => { + var $2719 = $2679; + return $2719; + })); + return $2718; + })); + var _term$220 = Kind$Term$app$(_term$218, _lamb$219); + var _term$221 = Kind$Term$let$($2510, _term$220, (_x$221 => { + var $2720 = $2710; + return $2720; + })); + var $2717 = Parser$Reply$value$(_reply$pst$213, _term$221); + var $2711 = $2717; + break; + }; + var $2703 = $2711; + break; + }; + var $2701 = $2703; + break; + }; + var $2695 = $2701; + break; + }; + var $2688 = $2695; + break; + }; + var $2686 = $2688; + break; + }; + var $2680 = $2686; + break; + }; + var $2672 = $2680; + break; + }; + var $2670 = $2672; + break; + }; + var $2664 = $2670; + break; + }; + var $2657 = $2664; + break; + }; + var $2655 = $2657; + break; + }; + var $2649 = $2655; + break; + }; + var $2641 = $2649; + break; + }; + var $2639 = $2641; + break; + }; + var $2633 = $2639; + break; + }; + var $2626 = $2633; + break; + }; + var $2624 = $2626; + break; + }; + var $2618 = $2624; + break; + }; + var $2610 = $2618; + break; + }; + var $2608 = $2610; + break; + }; + var $2602 = $2608; + break; + }; + var $2595 = $2602; + break; + }; + var $2593 = $2595; + break; + }; + var $2587 = $2593; + break; + }; + var $2580 = $2587; + break; + }; + var $2578 = $2580; + break; + }; + var $2572 = $2578; + break; + }; + var $2565 = $2572; + break; + }; + var $2563 = $2565; + break; + }; + var $2557 = $2563; + break; + }; + var $2549 = $2557; + break; + }; + var $2547 = $2549; + break; + }; + var $2541 = $2547; + break; + }; + var $2534 = $2541; + break; + }; + var $2532 = $2534; + break; + }; + var $2526 = $2532; + break; + }; + var $2519 = $2526; + break; + }; + var $2517 = $2519; + break; + }; + var $2511 = $2517; + break; + }; + var $2503 = $2511; + break; + }; + var $2501 = $2503; + break; + }; + var $2495 = $2501; + break; + }; + var $2488 = $2495; + break; + }; + var $2486 = $2488; + break; + }; + return $2486; + })); + return $2485; + }; + const Kind$Parser$letforrange = x0 => x1 => Kind$Parser$letforrange$(x0, x1); + + function Kind$Parser$letforrange$u32$(_body$1) { + var $2721 = Kind$Parser$letforrange$("U32", _body$1); + return $2721; + }; + const Kind$Parser$letforrange$u32 = x0 => Kind$Parser$letforrange$u32$(x0); + + function Kind$Parser$letforrange$with$(_typename$1, _body$2) { + var $2722 = Kind$Parser$block("for")((_pst$3 => { + var self = _pst$3; + switch (self._) { + case 'Parser.State.new': + var $2724 = self.err; + var _reply$9 = Kind$Parser$text$("for ", _pst$3); + var self = _reply$9; + switch (self._) { + case 'Parser.Reply.error': + var $2726 = self.err; + var self = $2724; + switch (self._) { + case 'Maybe.some': + var $2728 = self.value; + var $2729 = Parser$Reply$error$(Parser$Error$combine$($2728, $2726)); + var $2727 = $2729; + break; + case 'Maybe.none': + var $2730 = Parser$Reply$error$($2726); + var $2727 = $2730; + break; + }; + var $2725 = $2727; + break; + case 'Parser.Reply.value': + var $2731 = self.pst; + var self = $2731; + switch (self._) { + case 'Parser.State.new': + var $2733 = self.err; + var $2734 = self.nam; + var $2735 = self.ini; + var $2736 = self.idx; + var $2737 = self.str; + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2724, $2733), $2734, $2735, $2736, $2737); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $2739 = self.err; + var _reply$23 = Kind$Parser$name1$(_reply$pst$17); + var self = _reply$23; + switch (self._) { + case 'Parser.Reply.error': + var $2741 = self.err; + var self = $2739; + switch (self._) { + case 'Maybe.some': + var $2743 = self.value; + var $2744 = Parser$Reply$error$(Parser$Error$combine$($2743, $2741)); + var $2742 = $2744; + break; + case 'Maybe.none': + var $2745 = Parser$Reply$error$($2741); + var $2742 = $2745; + break; + }; + var $2740 = $2742; + break; + case 'Parser.Reply.value': + var $2746 = self.pst; + var $2747 = self.val; + var self = $2746; + switch (self._) { + case 'Parser.State.new': + var $2749 = self.err; + var $2750 = self.nam; + var $2751 = self.ini; + var $2752 = self.idx; + var $2753 = self.str; + var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($2739, $2749), $2750, $2751, $2752, $2753); + var self = _reply$pst$31; + switch (self._) { + case 'Parser.State.new': + var $2755 = self.err; + var _reply$37 = Kind$Parser$text$(":", _reply$pst$31); + var self = _reply$37; + switch (self._) { + case 'Parser.Reply.error': + var $2757 = self.err; + var self = $2755; + switch (self._) { + case 'Maybe.some': + var $2759 = self.value; + var $2760 = Parser$Reply$error$(Parser$Error$combine$($2759, $2757)); + var $2758 = $2760; + break; + case 'Maybe.none': + var $2761 = Parser$Reply$error$($2757); + var $2758 = $2761; + break; + }; + var $2756 = $2758; + break; + case 'Parser.Reply.value': + var $2762 = self.pst; + var self = $2762; + switch (self._) { + case 'Parser.State.new': + var $2764 = self.err; + var $2765 = self.nam; + var $2766 = self.ini; + var $2767 = self.idx; + var $2768 = self.str; + var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($2755, $2764), $2765, $2766, $2767, $2768); + var self = _reply$pst$45; + switch (self._) { + case 'Parser.State.new': + var $2770 = self.err; + var _reply$51 = Kind$Parser$text$(_typename$1, _reply$pst$45); + var self = _reply$51; + switch (self._) { + case 'Parser.Reply.error': + var $2772 = self.err; + var self = $2770; + switch (self._) { + case 'Maybe.some': + var $2774 = self.value; + var $2775 = Parser$Reply$error$(Parser$Error$combine$($2774, $2772)); + var $2773 = $2775; + break; + case 'Maybe.none': + var $2776 = Parser$Reply$error$($2772); + var $2773 = $2776; + break; + }; + var $2771 = $2773; + break; + case 'Parser.Reply.value': + var $2777 = self.pst; + var self = $2777; + switch (self._) { + case 'Parser.State.new': + var $2779 = self.err; + var $2780 = self.nam; + var $2781 = self.ini; + var $2782 = self.idx; + var $2783 = self.str; + var _reply$pst$59 = Parser$State$new$(Parser$Error$maybe_combine$($2770, $2779), $2780, $2781, $2782, $2783); + var self = _reply$pst$59; + switch (self._) { + case 'Parser.State.new': + var $2785 = self.err; + var _reply$65 = Kind$Parser$text$("from", _reply$pst$59); + var self = _reply$65; + switch (self._) { + case 'Parser.Reply.error': + var $2787 = self.err; + var self = $2785; + switch (self._) { + case 'Maybe.some': + var $2789 = self.value; + var $2790 = Parser$Reply$error$(Parser$Error$combine$($2789, $2787)); + var $2788 = $2790; + break; + case 'Maybe.none': + var $2791 = Parser$Reply$error$($2787); + var $2788 = $2791; + break; + }; + var $2786 = $2788; + break; + case 'Parser.Reply.value': + var $2792 = self.pst; + var self = $2792; + switch (self._) { + case 'Parser.State.new': + var $2794 = self.err; + var $2795 = self.nam; + var $2796 = self.ini; + var $2797 = self.idx; + var $2798 = self.str; + var _reply$pst$73 = Parser$State$new$(Parser$Error$maybe_combine$($2785, $2794), $2795, $2796, $2797, $2798); + var self = _reply$pst$73; + switch (self._) { + case 'Parser.State.new': + var $2800 = self.err; + var _reply$79 = Kind$Parser$term(_reply$pst$73); + var self = _reply$79; + switch (self._) { + case 'Parser.Reply.error': + var $2802 = self.err; + var self = $2800; + switch (self._) { + case 'Maybe.some': + var $2804 = self.value; + var $2805 = Parser$Reply$error$(Parser$Error$combine$($2804, $2802)); + var $2803 = $2805; + break; + case 'Maybe.none': + var $2806 = Parser$Reply$error$($2802); + var $2803 = $2806; + break; + }; + var $2801 = $2803; + break; + case 'Parser.Reply.value': + var $2807 = self.pst; + var $2808 = self.val; + var self = $2807; + switch (self._) { + case 'Parser.State.new': + var $2810 = self.err; + var $2811 = self.nam; + var $2812 = self.ini; + var $2813 = self.idx; + var $2814 = self.str; + var _reply$pst$87 = Parser$State$new$(Parser$Error$maybe_combine$($2800, $2810), $2811, $2812, $2813, $2814); + var self = _reply$pst$87; + switch (self._) { + case 'Parser.State.new': + var $2816 = self.err; + var _reply$93 = Kind$Parser$text$("to", _reply$pst$87); + var self = _reply$93; + switch (self._) { + case 'Parser.Reply.error': + var $2818 = self.err; + var self = $2816; + switch (self._) { + case 'Maybe.some': + var $2820 = self.value; + var $2821 = Parser$Reply$error$(Parser$Error$combine$($2820, $2818)); + var $2819 = $2821; + break; + case 'Maybe.none': + var $2822 = Parser$Reply$error$($2818); + var $2819 = $2822; + break; + }; + var $2817 = $2819; + break; + case 'Parser.Reply.value': + var $2823 = self.pst; + var self = $2823; + switch (self._) { + case 'Parser.State.new': + var $2825 = self.err; + var $2826 = self.nam; + var $2827 = self.ini; + var $2828 = self.idx; + var $2829 = self.str; + var _reply$pst$101 = Parser$State$new$(Parser$Error$maybe_combine$($2816, $2825), $2826, $2827, $2828, $2829); + var self = _reply$pst$101; + switch (self._) { + case 'Parser.State.new': + var $2831 = self.err; + var _reply$107 = Kind$Parser$term(_reply$pst$101); + var self = _reply$107; + switch (self._) { + case 'Parser.Reply.error': + var $2833 = self.err; + var self = $2831; + switch (self._) { + case 'Maybe.some': + var $2835 = self.value; + var $2836 = Parser$Reply$error$(Parser$Error$combine$($2835, $2833)); + var $2834 = $2836; + break; + case 'Maybe.none': + var $2837 = Parser$Reply$error$($2833); + var $2834 = $2837; + break; + }; + var $2832 = $2834; + break; + case 'Parser.Reply.value': + var $2838 = self.pst; + var $2839 = self.val; + var self = $2838; + switch (self._) { + case 'Parser.State.new': + var $2841 = self.err; + var $2842 = self.nam; + var $2843 = self.ini; + var $2844 = self.idx; + var $2845 = self.str; + var _reply$pst$115 = Parser$State$new$(Parser$Error$maybe_combine$($2831, $2841), $2842, $2843, $2844, $2845); + var self = _reply$pst$115; + switch (self._) { + case 'Parser.State.new': + var $2847 = self.err; + var _reply$121 = Kind$Parser$text$("with ", _reply$pst$115); + var self = _reply$121; + switch (self._) { + case 'Parser.Reply.error': + var $2849 = self.err; + var self = $2847; + switch (self._) { + case 'Maybe.some': + var $2851 = self.value; + var $2852 = Parser$Reply$error$(Parser$Error$combine$($2851, $2849)); + var $2850 = $2852; + break; + case 'Maybe.none': + var $2853 = Parser$Reply$error$($2849); + var $2850 = $2853; + break; + }; + var $2848 = $2850; + break; + case 'Parser.Reply.value': + var $2854 = self.pst; + var self = $2854; + switch (self._) { + case 'Parser.State.new': + var $2856 = self.err; + var $2857 = self.nam; + var $2858 = self.ini; + var $2859 = self.idx; + var $2860 = self.str; + var _reply$pst$129 = Parser$State$new$(Parser$Error$maybe_combine$($2847, $2856), $2857, $2858, $2859, $2860); + var self = _reply$pst$129; + switch (self._) { + case 'Parser.State.new': + var $2862 = self.err; + var _reply$135 = Kind$Parser$name1$(_reply$pst$129); + var self = _reply$135; + switch (self._) { + case 'Parser.Reply.error': + var $2864 = self.err; + var self = $2862; + switch (self._) { + case 'Maybe.some': + var $2866 = self.value; + var $2867 = Parser$Reply$error$(Parser$Error$combine$($2866, $2864)); + var $2865 = $2867; + break; + case 'Maybe.none': + var $2868 = Parser$Reply$error$($2864); + var $2865 = $2868; + break; + }; + var $2863 = $2865; + break; + case 'Parser.Reply.value': + var $2869 = self.pst; + var $2870 = self.val; + var self = $2869; + switch (self._) { + case 'Parser.State.new': + var $2872 = self.err; + var $2873 = self.nam; + var $2874 = self.ini; + var $2875 = self.idx; + var $2876 = self.str; + var _reply$pst$143 = Parser$State$new$(Parser$Error$maybe_combine$($2862, $2872), $2873, $2874, $2875, $2876); + var self = _reply$pst$143; + switch (self._) { + case 'Parser.State.new': + var $2878 = self.err; + var _reply$149 = Kind$Parser$text$(":", _reply$pst$143); + var self = _reply$149; + switch (self._) { + case 'Parser.Reply.error': + var $2880 = self.err; + var self = $2878; + switch (self._) { + case 'Maybe.some': + var $2882 = self.value; + var $2883 = Parser$Reply$error$(Parser$Error$combine$($2882, $2880)); + var $2881 = $2883; + break; + case 'Maybe.none': + var $2884 = Parser$Reply$error$($2880); + var $2881 = $2884; + break; + }; + var $2879 = $2881; + break; + case 'Parser.Reply.value': + var $2885 = self.pst; + var self = $2885; + switch (self._) { + case 'Parser.State.new': + var $2887 = self.err; + var $2888 = self.nam; + var $2889 = self.ini; + var $2890 = self.idx; + var $2891 = self.str; + var _reply$pst$157 = Parser$State$new$(Parser$Error$maybe_combine$($2878, $2887), $2888, $2889, $2890, $2891); + var self = _reply$pst$157; + switch (self._) { + case 'Parser.State.new': + var $2893 = self.err; + var _reply$163 = Kind$Parser$term(_reply$pst$157); + var self = _reply$163; + switch (self._) { + case 'Parser.Reply.error': + var $2895 = self.err; + var self = $2893; + switch (self._) { + case 'Maybe.some': + var $2897 = self.value; + var $2898 = Parser$Reply$error$(Parser$Error$combine$($2897, $2895)); + var $2896 = $2898; + break; + case 'Maybe.none': + var $2899 = Parser$Reply$error$($2895); + var $2896 = $2899; + break; + }; + var $2894 = $2896; + break; + case 'Parser.Reply.value': + var $2900 = self.pst; + var $2901 = self.val; + var self = $2900; + switch (self._) { + case 'Parser.State.new': + var $2903 = self.err; + var $2904 = self.nam; + var $2905 = self.ini; + var $2906 = self.idx; + var $2907 = self.str; + var _reply$pst$171 = Parser$State$new$(Parser$Error$maybe_combine$($2893, $2903), $2904, $2905, $2906, $2907); + var self = _reply$pst$171; + switch (self._) { + case 'Parser.State.new': + var $2909 = self.err; + var _reply$177 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$171); + var self = _reply$177; + switch (self._) { + case 'Parser.Reply.error': + var $2911 = self.err; + var self = $2909; + switch (self._) { + case 'Maybe.some': + var $2913 = self.value; + var $2914 = Parser$Reply$error$(Parser$Error$combine$($2913, $2911)); + var $2912 = $2914; + break; + case 'Maybe.none': + var $2915 = Parser$Reply$error$($2911); + var $2912 = $2915; + break; + }; + var $2910 = $2912; + break; + case 'Parser.Reply.value': + var $2916 = self.pst; + var self = $2916; + switch (self._) { + case 'Parser.State.new': + var $2918 = self.err; + var $2919 = self.nam; + var $2920 = self.ini; + var $2921 = self.idx; + var $2922 = self.str; + var _reply$pst$185 = Parser$State$new$(Parser$Error$maybe_combine$($2909, $2918), $2919, $2920, $2921, $2922); + var self = _reply$pst$185; + switch (self._) { + case 'Parser.State.new': + var $2924 = self.err; + var _reply$191 = _body$2(Unit$new)(_reply$pst$185); + var self = _reply$191; + switch (self._) { + case 'Parser.Reply.error': + var $2926 = self.err; + var self = $2924; + switch (self._) { + case 'Maybe.some': + var $2928 = self.value; + var $2929 = Parser$Reply$error$(Parser$Error$combine$($2928, $2926)); + var $2927 = $2929; + break; + case 'Maybe.none': + var $2930 = Parser$Reply$error$($2926); + var $2927 = $2930; + break; + }; + var $2925 = $2927; + break; + case 'Parser.Reply.value': + var $2931 = self.pst; + var $2932 = self.val; + var self = $2931; + switch (self._) { + case 'Parser.State.new': + var $2934 = self.err; + var $2935 = self.nam; + var $2936 = self.ini; + var $2937 = self.idx; + var $2938 = self.str; + var _reply$pst$199 = Parser$State$new$(Parser$Error$maybe_combine$($2924, $2934), $2935, $2936, $2937, $2938); + var _term$200 = Kind$Term$ref$((_typename$1 + ".for")); + var _term$201 = Kind$Term$app$(_term$200, Kind$Term$hol$(Bits$e)); + var _term$202 = Kind$Term$app$(_term$201, Kind$Term$ref$($2870)); + var _term$203 = Kind$Term$app$(_term$202, $2808); + var _term$204 = Kind$Term$app$(_term$203, $2839); + var _lamb$205 = Kind$Term$lam$($2747, (_e$205 => { + var $2940 = Kind$Term$lam$($2870, (_s$206 => { + var $2941 = $2901; + return $2941; + })); + return $2940; + })); + var _term$206 = Kind$Term$app$(_term$204, _lamb$205); + var _term$207 = Kind$Term$let$($2870, _term$206, (_x$207 => { + var $2942 = $2932; + return $2942; + })); + var $2939 = Parser$Reply$value$(_reply$pst$199, _term$207); + var $2933 = $2939; + break; + }; + var $2925 = $2933; + break; + }; + var $2923 = $2925; + break; + }; + var $2917 = $2923; + break; + }; + var $2910 = $2917; + break; + }; + var $2908 = $2910; + break; + }; + var $2902 = $2908; + break; + }; + var $2894 = $2902; + break; + }; + var $2892 = $2894; + break; + }; + var $2886 = $2892; + break; + }; + var $2879 = $2886; + break; + }; + var $2877 = $2879; + break; + }; + var $2871 = $2877; + break; + }; + var $2863 = $2871; + break; + }; + var $2861 = $2863; + break; + }; + var $2855 = $2861; + break; + }; + var $2848 = $2855; + break; + }; + var $2846 = $2848; + break; + }; + var $2840 = $2846; + break; + }; + var $2832 = $2840; + break; + }; + var $2830 = $2832; + break; + }; + var $2824 = $2830; + break; + }; + var $2817 = $2824; + break; + }; + var $2815 = $2817; + break; + }; + var $2809 = $2815; + break; + }; + var $2801 = $2809; + break; + }; + var $2799 = $2801; + break; + }; + var $2793 = $2799; + break; + }; + var $2786 = $2793; + break; + }; + var $2784 = $2786; + break; + }; + var $2778 = $2784; + break; + }; + var $2771 = $2778; + break; + }; + var $2769 = $2771; + break; + }; + var $2763 = $2769; + break; + }; + var $2756 = $2763; + break; + }; + var $2754 = $2756; + break; + }; + var $2748 = $2754; + break; + }; + var $2740 = $2748; + break; + }; + var $2738 = $2740; + break; + }; + var $2732 = $2738; + break; + }; + var $2725 = $2732; + break; + }; + var $2723 = $2725; + break; + }; + return $2723; + })); + return $2722; + }; + const Kind$Parser$letforrange$with = x0 => x1 => Kind$Parser$letforrange$with$(x0, x1); + + function Kind$Parser$letforrange$u32$with$(_body$1) { + var $2943 = Kind$Parser$letforrange$with$("U32", _body$1); + return $2943; + }; + const Kind$Parser$letforrange$u32$with = x0 => Kind$Parser$letforrange$u32$with$(x0); + + function Kind$Parser$letforrange$i32$(_body$1) { + var $2944 = Kind$Parser$letforrange$("I32", _body$1); + return $2944; + }; + const Kind$Parser$letforrange$i32 = x0 => Kind$Parser$letforrange$i32$(x0); + + function Kind$Parser$letforrange$i32$with$(_body$1) { + var $2945 = Kind$Parser$letforrange$with$("I32", _body$1); + return $2945; + }; + const Kind$Parser$letforrange$i32$with = x0 => Kind$Parser$letforrange$i32$with$(x0); + + function Kind$Parser$letforrange$nat$(_body$1) { + var $2946 = Kind$Parser$block("let-for")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $2948 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $2950 = self.err; + var self = $2948; + switch (self._) { + case 'Maybe.some': + var $2952 = self.value; + var $2953 = Parser$Reply$error$(Parser$Error$combine$($2952, $2950)); + var $2951 = $2953; + break; + case 'Maybe.none': + var $2954 = Parser$Reply$error$($2950); + var $2951 = $2954; + break; + }; + var $2949 = $2951; + break; + case 'Parser.Reply.value': + var $2955 = self.pst; + var self = $2955; + switch (self._) { + case 'Parser.State.new': + var $2957 = self.err; + var $2958 = self.nam; + var $2959 = self.ini; + var $2960 = self.idx; + var $2961 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($2948, $2957), $2958, $2959, $2960, $2961); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $2963 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $2965 = self.err; + var self = $2963; + switch (self._) { + case 'Maybe.some': + var $2967 = self.value; + var $2968 = Parser$Reply$error$(Parser$Error$combine$($2967, $2965)); + var $2966 = $2968; + break; + case 'Maybe.none': + var $2969 = Parser$Reply$error$($2965); + var $2966 = $2969; + break; + }; + var $2964 = $2966; + break; + case 'Parser.Reply.value': + var $2970 = self.pst; + var $2971 = self.val; + var self = $2970; + switch (self._) { + case 'Parser.State.new': + var $2973 = self.err; + var $2974 = self.nam; + var $2975 = self.ini; + var $2976 = self.idx; + var $2977 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($2963, $2973), $2974, $2975, $2976, $2977); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $2979 = self.err; + var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $2981 = self.err; + var self = $2979; + switch (self._) { + case 'Maybe.some': + var $2983 = self.value; + var $2984 = Parser$Reply$error$(Parser$Error$combine$($2983, $2981)); + var $2982 = $2984; + break; + case 'Maybe.none': + var $2985 = Parser$Reply$error$($2981); + var $2982 = $2985; + break; + }; + var $2980 = $2982; + break; + case 'Parser.Reply.value': + var $2986 = self.pst; + var self = $2986; + switch (self._) { + case 'Parser.State.new': + var $2988 = self.err; + var $2989 = self.nam; + var $2990 = self.ini; + var $2991 = self.idx; + var $2992 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($2979, $2988), $2989, $2990, $2991, $2992); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $2994 = self.err; + var _reply$50 = Kind$Parser$text$("for ", _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $2996 = self.err; + var self = $2994; + switch (self._) { + case 'Maybe.some': + var $2998 = self.value; + var $2999 = Parser$Reply$error$(Parser$Error$combine$($2998, $2996)); + var $2997 = $2999; + break; + case 'Maybe.none': + var $3000 = Parser$Reply$error$($2996); + var $2997 = $3000; + break; + }; + var $2995 = $2997; + break; + case 'Parser.Reply.value': + var $3001 = self.pst; + var self = $3001; + switch (self._) { + case 'Parser.State.new': + var $3003 = self.err; + var $3004 = self.nam; + var $3005 = self.ini; + var $3006 = self.idx; + var $3007 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($2994, $3003), $3004, $3005, $3006, $3007); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $3009 = self.err; + var _reply$64 = Kind$Parser$name1$(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $3011 = self.err; + var self = $3009; + switch (self._) { + case 'Maybe.some': + var $3013 = self.value; + var $3014 = Parser$Reply$error$(Parser$Error$combine$($3013, $3011)); + var $3012 = $3014; + break; + case 'Maybe.none': + var $3015 = Parser$Reply$error$($3011); + var $3012 = $3015; + break; + }; + var $3010 = $3012; + break; + case 'Parser.Reply.value': + var $3016 = self.pst; + var $3017 = self.val; + var self = $3016; + switch (self._) { + case 'Parser.State.new': + var $3019 = self.err; + var $3020 = self.nam; + var $3021 = self.ini; + var $3022 = self.idx; + var $3023 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3009, $3019), $3020, $3021, $3022, $3023); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $3025 = self.err; + var _reply$78 = Kind$Parser$text$("from", _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $3027 = self.err; + var self = $3025; + switch (self._) { + case 'Maybe.some': + var $3029 = self.value; + var $3030 = Parser$Reply$error$(Parser$Error$combine$($3029, $3027)); + var $3028 = $3030; + break; + case 'Maybe.none': + var $3031 = Parser$Reply$error$($3027); + var $3028 = $3031; + break; + }; + var $3026 = $3028; + break; + case 'Parser.Reply.value': + var $3032 = self.pst; + var self = $3032; + switch (self._) { + case 'Parser.State.new': + var $3034 = self.err; + var $3035 = self.nam; + var $3036 = self.ini; + var $3037 = self.idx; + var $3038 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3025, $3034), $3035, $3036, $3037, $3038); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $3040 = self.err; + var _reply$92 = Kind$Parser$term(_reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $3042 = self.err; + var self = $3040; + switch (self._) { + case 'Maybe.some': + var $3044 = self.value; + var $3045 = Parser$Reply$error$(Parser$Error$combine$($3044, $3042)); + var $3043 = $3045; + break; + case 'Maybe.none': + var $3046 = Parser$Reply$error$($3042); + var $3043 = $3046; + break; + }; + var $3041 = $3043; + break; + case 'Parser.Reply.value': + var $3047 = self.pst; + var $3048 = self.val; + var self = $3047; + switch (self._) { + case 'Parser.State.new': + var $3050 = self.err; + var $3051 = self.nam; + var $3052 = self.ini; + var $3053 = self.idx; + var $3054 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3040, $3050), $3051, $3052, $3053, $3054); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $3056 = self.err; + var _reply$106 = Kind$Parser$text$("to", _reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $3058 = self.err; + var self = $3056; + switch (self._) { + case 'Maybe.some': + var $3060 = self.value; + var $3061 = Parser$Reply$error$(Parser$Error$combine$($3060, $3058)); + var $3059 = $3061; + break; + case 'Maybe.none': + var $3062 = Parser$Reply$error$($3058); + var $3059 = $3062; + break; + }; + var $3057 = $3059; + break; + case 'Parser.Reply.value': + var $3063 = self.pst; + var self = $3063; + switch (self._) { + case 'Parser.State.new': + var $3065 = self.err; + var $3066 = self.nam; + var $3067 = self.ini; + var $3068 = self.idx; + var $3069 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3056, $3065), $3066, $3067, $3068, $3069); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $3071 = self.err; + var _reply$120 = Kind$Parser$term(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $3073 = self.err; + var self = $3071; + switch (self._) { + case 'Maybe.some': + var $3075 = self.value; + var $3076 = Parser$Reply$error$(Parser$Error$combine$($3075, $3073)); + var $3074 = $3076; + break; + case 'Maybe.none': + var $3077 = Parser$Reply$error$($3073); + var $3074 = $3077; + break; + }; + var $3072 = $3074; + break; + case 'Parser.Reply.value': + var $3078 = self.pst; + var $3079 = self.val; + var self = $3078; + switch (self._) { + case 'Parser.State.new': + var $3081 = self.err; + var $3082 = self.nam; + var $3083 = self.ini; + var $3084 = self.idx; + var $3085 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($3071, $3081), $3082, $3083, $3084, $3085); + var self = _reply$pst$128; + switch (self._) { + case 'Parser.State.new': + var $3087 = self.err; + var _reply$134 = Kind$Parser$text$(":", _reply$pst$128); + var self = _reply$134; + switch (self._) { + case 'Parser.Reply.error': + var $3089 = self.err; + var self = $3087; + switch (self._) { + case 'Maybe.some': + var $3091 = self.value; + var $3092 = Parser$Reply$error$(Parser$Error$combine$($3091, $3089)); + var $3090 = $3092; + break; + case 'Maybe.none': + var $3093 = Parser$Reply$error$($3089); + var $3090 = $3093; + break; + }; + var $3088 = $3090; + break; + case 'Parser.Reply.value': + var $3094 = self.pst; + var self = $3094; + switch (self._) { + case 'Parser.State.new': + var $3096 = self.err; + var $3097 = self.nam; + var $3098 = self.ini; + var $3099 = self.idx; + var $3100 = self.str; + var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($3087, $3096), $3097, $3098, $3099, $3100); + var self = _reply$pst$142; + switch (self._) { + case 'Parser.State.new': + var $3102 = self.err; + var _reply$148 = Kind$Parser$term(_reply$pst$142); + var self = _reply$148; + switch (self._) { + case 'Parser.Reply.error': + var $3104 = self.err; + var self = $3102; + switch (self._) { + case 'Maybe.some': + var $3106 = self.value; + var $3107 = Parser$Reply$error$(Parser$Error$combine$($3106, $3104)); + var $3105 = $3107; + break; + case 'Maybe.none': + var $3108 = Parser$Reply$error$($3104); + var $3105 = $3108; + break; + }; + var $3103 = $3105; + break; + case 'Parser.Reply.value': + var $3109 = self.pst; + var $3110 = self.val; + var self = $3109; + switch (self._) { + case 'Parser.State.new': + var $3112 = self.err; + var $3113 = self.nam; + var $3114 = self.ini; + var $3115 = self.idx; + var $3116 = self.str; + var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($3102, $3112), $3113, $3114, $3115, $3116); + var self = _reply$pst$156; + switch (self._) { + case 'Parser.State.new': + var $3118 = self.err; + var _reply$162 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$156); + var self = _reply$162; + switch (self._) { + case 'Parser.Reply.error': + var $3120 = self.err; + var self = $3118; + switch (self._) { + case 'Maybe.some': + var $3122 = self.value; + var $3123 = Parser$Reply$error$(Parser$Error$combine$($3122, $3120)); + var $3121 = $3123; + break; + case 'Maybe.none': + var $3124 = Parser$Reply$error$($3120); + var $3121 = $3124; + break; + }; + var $3119 = $3121; + break; + case 'Parser.Reply.value': + var $3125 = self.pst; + var self = $3125; + switch (self._) { + case 'Parser.State.new': + var $3127 = self.err; + var $3128 = self.nam; + var $3129 = self.ini; + var $3130 = self.idx; + var $3131 = self.str; + var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($3118, $3127), $3128, $3129, $3130, $3131); + var self = _reply$pst$170; + switch (self._) { + case 'Parser.State.new': + var $3133 = self.err; + var _reply$176 = _body$1(Unit$new)(_reply$pst$170); + var self = _reply$176; + switch (self._) { + case 'Parser.Reply.error': + var $3135 = self.err; + var self = $3133; + switch (self._) { + case 'Maybe.some': + var $3137 = self.value; + var $3138 = Parser$Reply$error$(Parser$Error$combine$($3137, $3135)); + var $3136 = $3138; + break; + case 'Maybe.none': + var $3139 = Parser$Reply$error$($3135); + var $3136 = $3139; + break; + }; + var $3134 = $3136; + break; + case 'Parser.Reply.value': + var $3140 = self.pst; + var $3141 = self.val; + var self = $3140; + switch (self._) { + case 'Parser.State.new': + var $3143 = self.err; + var $3144 = self.nam; + var $3145 = self.ini; + var $3146 = self.idx; + var $3147 = self.str; + var _reply$pst$184 = Parser$State$new$(Parser$Error$maybe_combine$($3133, $3143), $3144, $3145, $3146, $3147); + var _term$185 = Kind$Term$ref$("Nat.for"); + var _term$186 = Kind$Term$app$(_term$185, Kind$Term$hol$(Bits$e)); + var _term$187 = Kind$Term$app$(_term$186, Kind$Term$ref$($2971)); + var _term$188 = Kind$Term$app$(_term$187, $3048); + var _term$189 = Kind$Term$app$(_term$188, $3079); + var _lamb$190 = Kind$Term$lam$($3017, (_e$190 => { + var $3149 = Kind$Term$lam$($2971, (_s$191 => { + var $3150 = $3110; + return $3150; + })); + return $3149; + })); + var _term$191 = Kind$Term$app$(_term$189, _lamb$190); + var _term$192 = Kind$Term$let$($2971, _term$191, (_x$192 => { + var $3151 = $3141; + return $3151; + })); + var $3148 = Parser$Reply$value$(_reply$pst$184, _term$192); + var $3142 = $3148; + break; + }; + var $3134 = $3142; + break; + }; + var $3132 = $3134; + break; + }; + var $3126 = $3132; + break; + }; + var $3119 = $3126; + break; + }; + var $3117 = $3119; + break; + }; + var $3111 = $3117; + break; + }; + var $3103 = $3111; + break; + }; + var $3101 = $3103; + break; + }; + var $3095 = $3101; + break; + }; + var $3088 = $3095; + break; + }; + var $3086 = $3088; + break; + }; + var $3080 = $3086; + break; + }; + var $3072 = $3080; + break; + }; + var $3070 = $3072; + break; + }; + var $3064 = $3070; + break; + }; + var $3057 = $3064; + break; + }; + var $3055 = $3057; + break; + }; + var $3049 = $3055; + break; + }; + var $3041 = $3049; + break; + }; + var $3039 = $3041; + break; + }; + var $3033 = $3039; + break; + }; + var $3026 = $3033; + break; + }; + var $3024 = $3026; + break; + }; + var $3018 = $3024; + break; + }; + var $3010 = $3018; + break; + }; + var $3008 = $3010; + break; + }; + var $3002 = $3008; + break; + }; + var $2995 = $3002; + break; + }; + var $2993 = $2995; + break; + }; + var $2987 = $2993; + break; + }; + var $2980 = $2987; + break; + }; + var $2978 = $2980; + break; + }; + var $2972 = $2978; + break; + }; + var $2964 = $2972; + break; + }; + var $2962 = $2964; + break; + }; + var $2956 = $2962; + break; + }; + var $2949 = $2956; + break; + }; + var $2947 = $2949; + break; + }; + return $2947; + })); + return $2946; + }; + const Kind$Parser$letforrange$nat = x0 => Kind$Parser$letforrange$nat$(x0); + + function Kind$Parser$letforrange$nat$with$(_body$1) { + var $3152 = Kind$Parser$block("for")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $3154 = self.err; + var _reply$8 = Kind$Parser$text$("for ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $3156 = self.err; + var self = $3154; + switch (self._) { + case 'Maybe.some': + var $3158 = self.value; + var $3159 = Parser$Reply$error$(Parser$Error$combine$($3158, $3156)); + var $3157 = $3159; + break; + case 'Maybe.none': + var $3160 = Parser$Reply$error$($3156); + var $3157 = $3160; + break; + }; + var $3155 = $3157; + break; + case 'Parser.Reply.value': + var $3161 = self.pst; + var self = $3161; + switch (self._) { + case 'Parser.State.new': + var $3163 = self.err; + var $3164 = self.nam; + var $3165 = self.ini; + var $3166 = self.idx; + var $3167 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3154, $3163), $3164, $3165, $3166, $3167); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $3169 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $3171 = self.err; + var self = $3169; + switch (self._) { + case 'Maybe.some': + var $3173 = self.value; + var $3174 = Parser$Reply$error$(Parser$Error$combine$($3173, $3171)); + var $3172 = $3174; + break; + case 'Maybe.none': + var $3175 = Parser$Reply$error$($3171); + var $3172 = $3175; + break; + }; + var $3170 = $3172; + break; + case 'Parser.Reply.value': + var $3176 = self.pst; + var $3177 = self.val; + var self = $3176; + switch (self._) { + case 'Parser.State.new': + var $3179 = self.err; + var $3180 = self.nam; + var $3181 = self.ini; + var $3182 = self.idx; + var $3183 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3169, $3179), $3180, $3181, $3182, $3183); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $3185 = self.err; + var _reply$36 = Kind$Parser$text$("from", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $3187 = self.err; + var self = $3185; + switch (self._) { + case 'Maybe.some': + var $3189 = self.value; + var $3190 = Parser$Reply$error$(Parser$Error$combine$($3189, $3187)); + var $3188 = $3190; + break; + case 'Maybe.none': + var $3191 = Parser$Reply$error$($3187); + var $3188 = $3191; + break; + }; + var $3186 = $3188; + break; + case 'Parser.Reply.value': + var $3192 = self.pst; + var self = $3192; + switch (self._) { + case 'Parser.State.new': + var $3194 = self.err; + var $3195 = self.nam; + var $3196 = self.ini; + var $3197 = self.idx; + var $3198 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3185, $3194), $3195, $3196, $3197, $3198); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $3200 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $3202 = self.err; + var self = $3200; + switch (self._) { + case 'Maybe.some': + var $3204 = self.value; + var $3205 = Parser$Reply$error$(Parser$Error$combine$($3204, $3202)); + var $3203 = $3205; + break; + case 'Maybe.none': + var $3206 = Parser$Reply$error$($3202); + var $3203 = $3206; + break; + }; + var $3201 = $3203; + break; + case 'Parser.Reply.value': + var $3207 = self.pst; + var $3208 = self.val; + var self = $3207; + switch (self._) { + case 'Parser.State.new': + var $3210 = self.err; + var $3211 = self.nam; + var $3212 = self.ini; + var $3213 = self.idx; + var $3214 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($3200, $3210), $3211, $3212, $3213, $3214); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $3216 = self.err; + var _reply$64 = Kind$Parser$text$("to", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $3218 = self.err; + var self = $3216; + switch (self._) { + case 'Maybe.some': + var $3220 = self.value; + var $3221 = Parser$Reply$error$(Parser$Error$combine$($3220, $3218)); + var $3219 = $3221; + break; + case 'Maybe.none': + var $3222 = Parser$Reply$error$($3218); + var $3219 = $3222; + break; + }; + var $3217 = $3219; + break; + case 'Parser.Reply.value': + var $3223 = self.pst; + var self = $3223; + switch (self._) { + case 'Parser.State.new': + var $3225 = self.err; + var $3226 = self.nam; + var $3227 = self.ini; + var $3228 = self.idx; + var $3229 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3216, $3225), $3226, $3227, $3228, $3229); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $3231 = self.err; + var _reply$78 = Kind$Parser$term(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $3233 = self.err; + var self = $3231; + switch (self._) { + case 'Maybe.some': + var $3235 = self.value; + var $3236 = Parser$Reply$error$(Parser$Error$combine$($3235, $3233)); + var $3234 = $3236; + break; + case 'Maybe.none': + var $3237 = Parser$Reply$error$($3233); + var $3234 = $3237; + break; + }; + var $3232 = $3234; + break; + case 'Parser.Reply.value': + var $3238 = self.pst; + var $3239 = self.val; + var self = $3238; + switch (self._) { + case 'Parser.State.new': + var $3241 = self.err; + var $3242 = self.nam; + var $3243 = self.ini; + var $3244 = self.idx; + var $3245 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3231, $3241), $3242, $3243, $3244, $3245); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $3247 = self.err; + var _reply$92 = Kind$Parser$text$("with ", _reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $3249 = self.err; + var self = $3247; + switch (self._) { + case 'Maybe.some': + var $3251 = self.value; + var $3252 = Parser$Reply$error$(Parser$Error$combine$($3251, $3249)); + var $3250 = $3252; + break; + case 'Maybe.none': + var $3253 = Parser$Reply$error$($3249); + var $3250 = $3253; + break; + }; + var $3248 = $3250; + break; + case 'Parser.Reply.value': + var $3254 = self.pst; + var self = $3254; + switch (self._) { + case 'Parser.State.new': + var $3256 = self.err; + var $3257 = self.nam; + var $3258 = self.ini; + var $3259 = self.idx; + var $3260 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3247, $3256), $3257, $3258, $3259, $3260); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $3262 = self.err; + var _reply$106 = Kind$Parser$name1$(_reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $3264 = self.err; + var self = $3262; + switch (self._) { + case 'Maybe.some': + var $3266 = self.value; + var $3267 = Parser$Reply$error$(Parser$Error$combine$($3266, $3264)); + var $3265 = $3267; + break; + case 'Maybe.none': + var $3268 = Parser$Reply$error$($3264); + var $3265 = $3268; + break; + }; + var $3263 = $3265; + break; + case 'Parser.Reply.value': + var $3269 = self.pst; + var $3270 = self.val; + var self = $3269; + switch (self._) { + case 'Parser.State.new': + var $3272 = self.err; + var $3273 = self.nam; + var $3274 = self.ini; + var $3275 = self.idx; + var $3276 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3262, $3272), $3273, $3274, $3275, $3276); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $3278 = self.err; + var _reply$120 = Kind$Parser$text$(":", _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $3280 = self.err; + var self = $3278; + switch (self._) { + case 'Maybe.some': + var $3282 = self.value; + var $3283 = Parser$Reply$error$(Parser$Error$combine$($3282, $3280)); + var $3281 = $3283; + break; + case 'Maybe.none': + var $3284 = Parser$Reply$error$($3280); + var $3281 = $3284; + break; + }; + var $3279 = $3281; + break; + case 'Parser.Reply.value': + var $3285 = self.pst; + var self = $3285; + switch (self._) { + case 'Parser.State.new': + var $3287 = self.err; + var $3288 = self.nam; + var $3289 = self.ini; + var $3290 = self.idx; + var $3291 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($3278, $3287), $3288, $3289, $3290, $3291); + var self = _reply$pst$128; + switch (self._) { + case 'Parser.State.new': + var $3293 = self.err; + var _reply$134 = Kind$Parser$term(_reply$pst$128); + var self = _reply$134; + switch (self._) { + case 'Parser.Reply.error': + var $3295 = self.err; + var self = $3293; + switch (self._) { + case 'Maybe.some': + var $3297 = self.value; + var $3298 = Parser$Reply$error$(Parser$Error$combine$($3297, $3295)); + var $3296 = $3298; + break; + case 'Maybe.none': + var $3299 = Parser$Reply$error$($3295); + var $3296 = $3299; + break; + }; + var $3294 = $3296; + break; + case 'Parser.Reply.value': + var $3300 = self.pst; + var $3301 = self.val; + var self = $3300; + switch (self._) { + case 'Parser.State.new': + var $3303 = self.err; + var $3304 = self.nam; + var $3305 = self.ini; + var $3306 = self.idx; + var $3307 = self.str; + var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($3293, $3303), $3304, $3305, $3306, $3307); + var self = _reply$pst$142; + switch (self._) { + case 'Parser.State.new': + var $3309 = self.err; + var _reply$148 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$142); + var self = _reply$148; + switch (self._) { + case 'Parser.Reply.error': + var $3311 = self.err; + var self = $3309; + switch (self._) { + case 'Maybe.some': + var $3313 = self.value; + var $3314 = Parser$Reply$error$(Parser$Error$combine$($3313, $3311)); + var $3312 = $3314; + break; + case 'Maybe.none': + var $3315 = Parser$Reply$error$($3311); + var $3312 = $3315; + break; + }; + var $3310 = $3312; + break; + case 'Parser.Reply.value': + var $3316 = self.pst; + var self = $3316; + switch (self._) { + case 'Parser.State.new': + var $3318 = self.err; + var $3319 = self.nam; + var $3320 = self.ini; + var $3321 = self.idx; + var $3322 = self.str; + var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($3309, $3318), $3319, $3320, $3321, $3322); + var self = _reply$pst$156; + switch (self._) { + case 'Parser.State.new': + var $3324 = self.err; + var _reply$162 = _body$1(Unit$new)(_reply$pst$156); + var self = _reply$162; + switch (self._) { + case 'Parser.Reply.error': + var $3326 = self.err; + var self = $3324; + switch (self._) { + case 'Maybe.some': + var $3328 = self.value; + var $3329 = Parser$Reply$error$(Parser$Error$combine$($3328, $3326)); + var $3327 = $3329; + break; + case 'Maybe.none': + var $3330 = Parser$Reply$error$($3326); + var $3327 = $3330; + break; + }; + var $3325 = $3327; + break; + case 'Parser.Reply.value': + var $3331 = self.pst; + var $3332 = self.val; + var self = $3331; + switch (self._) { + case 'Parser.State.new': + var $3334 = self.err; + var $3335 = self.nam; + var $3336 = self.ini; + var $3337 = self.idx; + var $3338 = self.str; + var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($3324, $3334), $3335, $3336, $3337, $3338); + var _term$171 = Kind$Term$ref$("Nat.for"); + var _term$172 = Kind$Term$app$(_term$171, Kind$Term$hol$(Bits$e)); + var _term$173 = Kind$Term$app$(_term$172, Kind$Term$ref$($3270)); + var _term$174 = Kind$Term$app$(_term$173, $3208); + var _term$175 = Kind$Term$app$(_term$174, $3239); + var _lamb$176 = Kind$Term$lam$($3177, (_e$176 => { + var $3340 = Kind$Term$lam$($3270, (_s$177 => { + var $3341 = $3301; + return $3341; + })); + return $3340; + })); + var _term$177 = Kind$Term$app$(_term$175, _lamb$176); + var _term$178 = Kind$Term$let$($3270, _term$177, (_x$178 => { + var $3342 = $3332; + return $3342; + })); + var $3339 = Parser$Reply$value$(_reply$pst$170, _term$178); + var $3333 = $3339; + break; + }; + var $3325 = $3333; + break; + }; + var $3323 = $3325; + break; + }; + var $3317 = $3323; + break; + }; + var $3310 = $3317; + break; + }; + var $3308 = $3310; + break; + }; + var $3302 = $3308; + break; + }; + var $3294 = $3302; + break; + }; + var $3292 = $3294; + break; + }; + var $3286 = $3292; + break; + }; + var $3279 = $3286; + break; + }; + var $3277 = $3279; + break; + }; + var $3271 = $3277; + break; + }; + var $3263 = $3271; + break; + }; + var $3261 = $3263; + break; + }; + var $3255 = $3261; + break; + }; + var $3248 = $3255; + break; + }; + var $3246 = $3248; + break; + }; + var $3240 = $3246; + break; + }; + var $3232 = $3240; + break; + }; + var $3230 = $3232; + break; + }; + var $3224 = $3230; + break; + }; + var $3217 = $3224; + break; + }; + var $3215 = $3217; + break; + }; + var $3209 = $3215; + break; + }; + var $3201 = $3209; + break; + }; + var $3199 = $3201; + break; + }; + var $3193 = $3199; + break; + }; + var $3186 = $3193; + break; + }; + var $3184 = $3186; + break; + }; + var $3178 = $3184; + break; + }; + var $3170 = $3178; + break; + }; + var $3168 = $3170; + break; + }; + var $3162 = $3168; + break; + }; + var $3155 = $3162; + break; + }; + var $3153 = $3155; + break; + }; + return $3153; + })); + return $3152; + }; + const Kind$Parser$letforrange$nat$with = x0 => Kind$Parser$letforrange$nat$with$(x0); + + function Kind$Parser$letforin$(_body$1) { + var $3343 = Kind$Parser$block("let-for")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $3345 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $3347 = self.err; + var self = $3345; + switch (self._) { + case 'Maybe.some': + var $3349 = self.value; + var $3350 = Parser$Reply$error$(Parser$Error$combine$($3349, $3347)); + var $3348 = $3350; + break; + case 'Maybe.none': + var $3351 = Parser$Reply$error$($3347); + var $3348 = $3351; + break; + }; + var $3346 = $3348; + break; + case 'Parser.Reply.value': + var $3352 = self.pst; + var self = $3352; + switch (self._) { + case 'Parser.State.new': + var $3354 = self.err; + var $3355 = self.nam; + var $3356 = self.ini; + var $3357 = self.idx; + var $3358 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3345, $3354), $3355, $3356, $3357, $3358); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $3360 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $3362 = self.err; + var self = $3360; + switch (self._) { + case 'Maybe.some': + var $3364 = self.value; + var $3365 = Parser$Reply$error$(Parser$Error$combine$($3364, $3362)); + var $3363 = $3365; + break; + case 'Maybe.none': + var $3366 = Parser$Reply$error$($3362); + var $3363 = $3366; + break; + }; + var $3361 = $3363; + break; + case 'Parser.Reply.value': + var $3367 = self.pst; + var $3368 = self.val; + var self = $3367; + switch (self._) { + case 'Parser.State.new': + var $3370 = self.err; + var $3371 = self.nam; + var $3372 = self.ini; + var $3373 = self.idx; + var $3374 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3360, $3370), $3371, $3372, $3373, $3374); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $3376 = self.err; + var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $3378 = self.err; + var self = $3376; + switch (self._) { + case 'Maybe.some': + var $3380 = self.value; + var $3381 = Parser$Reply$error$(Parser$Error$combine$($3380, $3378)); + var $3379 = $3381; + break; + case 'Maybe.none': + var $3382 = Parser$Reply$error$($3378); + var $3379 = $3382; + break; + }; + var $3377 = $3379; + break; + case 'Parser.Reply.value': + var $3383 = self.pst; + var self = $3383; + switch (self._) { + case 'Parser.State.new': + var $3385 = self.err; + var $3386 = self.nam; + var $3387 = self.ini; + var $3388 = self.idx; + var $3389 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3376, $3385), $3386, $3387, $3388, $3389); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $3391 = self.err; + var _reply$50 = Kind$Parser$text$("for ", _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $3393 = self.err; + var self = $3391; + switch (self._) { + case 'Maybe.some': + var $3395 = self.value; + var $3396 = Parser$Reply$error$(Parser$Error$combine$($3395, $3393)); + var $3394 = $3396; + break; + case 'Maybe.none': + var $3397 = Parser$Reply$error$($3393); + var $3394 = $3397; + break; + }; + var $3392 = $3394; + break; + case 'Parser.Reply.value': + var $3398 = self.pst; + var self = $3398; + switch (self._) { + case 'Parser.State.new': + var $3400 = self.err; + var $3401 = self.nam; + var $3402 = self.ini; + var $3403 = self.idx; + var $3404 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($3391, $3400), $3401, $3402, $3403, $3404); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $3406 = self.err; + var _reply$64 = Kind$Parser$name1$(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $3408 = self.err; + var self = $3406; + switch (self._) { + case 'Maybe.some': + var $3410 = self.value; + var $3411 = Parser$Reply$error$(Parser$Error$combine$($3410, $3408)); + var $3409 = $3411; + break; + case 'Maybe.none': + var $3412 = Parser$Reply$error$($3408); + var $3409 = $3412; + break; + }; + var $3407 = $3409; + break; + case 'Parser.Reply.value': + var $3413 = self.pst; + var $3414 = self.val; + var self = $3413; + switch (self._) { + case 'Parser.State.new': + var $3416 = self.err; + var $3417 = self.nam; + var $3418 = self.ini; + var $3419 = self.idx; + var $3420 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3406, $3416), $3417, $3418, $3419, $3420); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $3422 = self.err; + var _reply$78 = Kind$Parser$text$("in", _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $3424 = self.err; + var self = $3422; + switch (self._) { + case 'Maybe.some': + var $3426 = self.value; + var $3427 = Parser$Reply$error$(Parser$Error$combine$($3426, $3424)); + var $3425 = $3427; + break; + case 'Maybe.none': + var $3428 = Parser$Reply$error$($3424); + var $3425 = $3428; + break; + }; + var $3423 = $3425; + break; + case 'Parser.Reply.value': + var $3429 = self.pst; + var self = $3429; + switch (self._) { + case 'Parser.State.new': + var $3431 = self.err; + var $3432 = self.nam; + var $3433 = self.ini; + var $3434 = self.idx; + var $3435 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3422, $3431), $3432, $3433, $3434, $3435); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $3437 = self.err; + var _reply$92 = Kind$Parser$term(_reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $3439 = self.err; + var self = $3437; + switch (self._) { + case 'Maybe.some': + var $3441 = self.value; + var $3442 = Parser$Reply$error$(Parser$Error$combine$($3441, $3439)); + var $3440 = $3442; + break; + case 'Maybe.none': + var $3443 = Parser$Reply$error$($3439); + var $3440 = $3443; + break; + }; + var $3438 = $3440; + break; + case 'Parser.Reply.value': + var $3444 = self.pst; + var $3445 = self.val; + var self = $3444; + switch (self._) { + case 'Parser.State.new': + var $3447 = self.err; + var $3448 = self.nam; + var $3449 = self.ini; + var $3450 = self.idx; + var $3451 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3437, $3447), $3448, $3449, $3450, $3451); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $3453 = self.err; + var _reply$106 = Kind$Parser$text$(":", _reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $3455 = self.err; + var self = $3453; + switch (self._) { + case 'Maybe.some': + var $3457 = self.value; + var $3458 = Parser$Reply$error$(Parser$Error$combine$($3457, $3455)); + var $3456 = $3458; + break; + case 'Maybe.none': + var $3459 = Parser$Reply$error$($3455); + var $3456 = $3459; + break; + }; + var $3454 = $3456; + break; + case 'Parser.Reply.value': + var $3460 = self.pst; + var self = $3460; + switch (self._) { + case 'Parser.State.new': + var $3462 = self.err; + var $3463 = self.nam; + var $3464 = self.ini; + var $3465 = self.idx; + var $3466 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3453, $3462), $3463, $3464, $3465, $3466); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $3468 = self.err; + var _reply$120 = Kind$Parser$term(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $3470 = self.err; + var self = $3468; + switch (self._) { + case 'Maybe.some': + var $3472 = self.value; + var $3473 = Parser$Reply$error$(Parser$Error$combine$($3472, $3470)); + var $3471 = $3473; + break; + case 'Maybe.none': + var $3474 = Parser$Reply$error$($3470); + var $3471 = $3474; + break; + }; + var $3469 = $3471; + break; + case 'Parser.Reply.value': + var $3475 = self.pst; + var $3476 = self.val; + var self = $3475; + switch (self._) { + case 'Parser.State.new': + var $3478 = self.err; + var $3479 = self.nam; + var $3480 = self.ini; + var $3481 = self.idx; + var $3482 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($3468, $3478), $3479, $3480, $3481, $3482); + var self = _reply$pst$128; + switch (self._) { + case 'Parser.State.new': + var $3484 = self.err; + var _reply$134 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$128); + var self = _reply$134; + switch (self._) { + case 'Parser.Reply.error': + var $3486 = self.err; + var self = $3484; + switch (self._) { + case 'Maybe.some': + var $3488 = self.value; + var $3489 = Parser$Reply$error$(Parser$Error$combine$($3488, $3486)); + var $3487 = $3489; + break; + case 'Maybe.none': + var $3490 = Parser$Reply$error$($3486); + var $3487 = $3490; + break; + }; + var $3485 = $3487; + break; + case 'Parser.Reply.value': + var $3491 = self.pst; + var self = $3491; + switch (self._) { + case 'Parser.State.new': + var $3493 = self.err; + var $3494 = self.nam; + var $3495 = self.ini; + var $3496 = self.idx; + var $3497 = self.str; + var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($3484, $3493), $3494, $3495, $3496, $3497); + var self = _reply$pst$142; + switch (self._) { + case 'Parser.State.new': + var $3499 = self.err; + var _reply$148 = _body$1(Unit$new)(_reply$pst$142); + var self = _reply$148; + switch (self._) { + case 'Parser.Reply.error': + var $3501 = self.err; + var self = $3499; + switch (self._) { + case 'Maybe.some': + var $3503 = self.value; + var $3504 = Parser$Reply$error$(Parser$Error$combine$($3503, $3501)); + var $3502 = $3504; + break; + case 'Maybe.none': + var $3505 = Parser$Reply$error$($3501); + var $3502 = $3505; + break; + }; + var $3500 = $3502; + break; + case 'Parser.Reply.value': + var $3506 = self.pst; + var $3507 = self.val; + var self = $3506; + switch (self._) { + case 'Parser.State.new': + var $3509 = self.err; + var $3510 = self.nam; + var $3511 = self.ini; + var $3512 = self.idx; + var $3513 = self.str; + var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($3499, $3509), $3510, $3511, $3512, $3513); + var _term$157 = Kind$Term$ref$("List.for"); + var _term$158 = Kind$Term$app$(_term$157, Kind$Term$hol$(Bits$e)); + var _term$159 = Kind$Term$app$(_term$158, $3445); + var _term$160 = Kind$Term$app$(_term$159, Kind$Term$hol$(Bits$e)); + var _term$161 = Kind$Term$app$(_term$160, Kind$Term$ref$($3368)); + var _lamb$162 = Kind$Term$lam$($3414, (_i$162 => { + var $3515 = Kind$Term$lam$($3368, (_x$163 => { + var $3516 = $3476; + return $3516; + })); + return $3515; + })); + var _term$163 = Kind$Term$app$(_term$161, _lamb$162); + var _term$164 = Kind$Term$let$($3368, _term$163, (_x$164 => { + var $3517 = $3507; + return $3517; + })); + var $3514 = Parser$Reply$value$(_reply$pst$156, _term$164); + var $3508 = $3514; + break; + }; + var $3500 = $3508; + break; + }; + var $3498 = $3500; + break; + }; + var $3492 = $3498; + break; + }; + var $3485 = $3492; + break; + }; + var $3483 = $3485; + break; + }; + var $3477 = $3483; + break; + }; + var $3469 = $3477; + break; + }; + var $3467 = $3469; + break; + }; + var $3461 = $3467; + break; + }; + var $3454 = $3461; + break; + }; + var $3452 = $3454; + break; + }; + var $3446 = $3452; + break; + }; + var $3438 = $3446; + break; + }; + var $3436 = $3438; + break; + }; + var $3430 = $3436; + break; + }; + var $3423 = $3430; + break; + }; + var $3421 = $3423; + break; + }; + var $3415 = $3421; + break; + }; + var $3407 = $3415; + break; + }; + var $3405 = $3407; + break; + }; + var $3399 = $3405; + break; + }; + var $3392 = $3399; + break; + }; + var $3390 = $3392; + break; + }; + var $3384 = $3390; + break; + }; + var $3377 = $3384; + break; + }; + var $3375 = $3377; + break; + }; + var $3369 = $3375; + break; + }; + var $3361 = $3369; + break; + }; + var $3359 = $3361; + break; + }; + var $3353 = $3359; + break; + }; + var $3346 = $3353; + break; + }; + var $3344 = $3346; + break; + }; + return $3344; + })); + return $3343; + }; + const Kind$Parser$letforin = x0 => Kind$Parser$letforin$(x0); + + function Kind$Parser$letforin$with$(_body$1) { + var $3518 = Kind$Parser$block("for")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $3520 = self.err; + var _reply$8 = Kind$Parser$text$("for ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $3522 = self.err; + var self = $3520; + switch (self._) { + case 'Maybe.some': + var $3524 = self.value; + var $3525 = Parser$Reply$error$(Parser$Error$combine$($3524, $3522)); + var $3523 = $3525; + break; + case 'Maybe.none': + var $3526 = Parser$Reply$error$($3522); + var $3523 = $3526; + break; + }; + var $3521 = $3523; + break; + case 'Parser.Reply.value': + var $3527 = self.pst; + var self = $3527; + switch (self._) { + case 'Parser.State.new': + var $3529 = self.err; + var $3530 = self.nam; + var $3531 = self.ini; + var $3532 = self.idx; + var $3533 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3520, $3529), $3530, $3531, $3532, $3533); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $3535 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $3537 = self.err; + var self = $3535; + switch (self._) { + case 'Maybe.some': + var $3539 = self.value; + var $3540 = Parser$Reply$error$(Parser$Error$combine$($3539, $3537)); + var $3538 = $3540; + break; + case 'Maybe.none': + var $3541 = Parser$Reply$error$($3537); + var $3538 = $3541; + break; + }; + var $3536 = $3538; + break; + case 'Parser.Reply.value': + var $3542 = self.pst; + var $3543 = self.val; + var self = $3542; + switch (self._) { + case 'Parser.State.new': + var $3545 = self.err; + var $3546 = self.nam; + var $3547 = self.ini; + var $3548 = self.idx; + var $3549 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3535, $3545), $3546, $3547, $3548, $3549); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $3551 = self.err; + var _reply$36 = Kind$Parser$text$("in", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $3553 = self.err; + var self = $3551; + switch (self._) { + case 'Maybe.some': + var $3555 = self.value; + var $3556 = Parser$Reply$error$(Parser$Error$combine$($3555, $3553)); + var $3554 = $3556; + break; + case 'Maybe.none': + var $3557 = Parser$Reply$error$($3553); + var $3554 = $3557; + break; + }; + var $3552 = $3554; + break; + case 'Parser.Reply.value': + var $3558 = self.pst; + var self = $3558; + switch (self._) { + case 'Parser.State.new': + var $3560 = self.err; + var $3561 = self.nam; + var $3562 = self.ini; + var $3563 = self.idx; + var $3564 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3551, $3560), $3561, $3562, $3563, $3564); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $3566 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $3568 = self.err; + var self = $3566; + switch (self._) { + case 'Maybe.some': + var $3570 = self.value; + var $3571 = Parser$Reply$error$(Parser$Error$combine$($3570, $3568)); + var $3569 = $3571; + break; + case 'Maybe.none': + var $3572 = Parser$Reply$error$($3568); + var $3569 = $3572; + break; + }; + var $3567 = $3569; + break; + case 'Parser.Reply.value': + var $3573 = self.pst; + var $3574 = self.val; + var self = $3573; + switch (self._) { + case 'Parser.State.new': + var $3576 = self.err; + var $3577 = self.nam; + var $3578 = self.ini; + var $3579 = self.idx; + var $3580 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($3566, $3576), $3577, $3578, $3579, $3580); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $3582 = self.err; + var _reply$64 = Kind$Parser$text$("with", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $3584 = self.err; + var self = $3582; + switch (self._) { + case 'Maybe.some': + var $3586 = self.value; + var $3587 = Parser$Reply$error$(Parser$Error$combine$($3586, $3584)); + var $3585 = $3587; + break; + case 'Maybe.none': + var $3588 = Parser$Reply$error$($3584); + var $3585 = $3588; + break; + }; + var $3583 = $3585; + break; + case 'Parser.Reply.value': + var $3589 = self.pst; + var self = $3589; + switch (self._) { + case 'Parser.State.new': + var $3591 = self.err; + var $3592 = self.nam; + var $3593 = self.ini; + var $3594 = self.idx; + var $3595 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3582, $3591), $3592, $3593, $3594, $3595); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $3597 = self.err; + var _reply$78 = Kind$Parser$name1$(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $3599 = self.err; + var self = $3597; + switch (self._) { + case 'Maybe.some': + var $3601 = self.value; + var $3602 = Parser$Reply$error$(Parser$Error$combine$($3601, $3599)); + var $3600 = $3602; + break; + case 'Maybe.none': + var $3603 = Parser$Reply$error$($3599); + var $3600 = $3603; + break; + }; + var $3598 = $3600; + break; + case 'Parser.Reply.value': + var $3604 = self.pst; + var $3605 = self.val; + var self = $3604; + switch (self._) { + case 'Parser.State.new': + var $3607 = self.err; + var $3608 = self.nam; + var $3609 = self.ini; + var $3610 = self.idx; + var $3611 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3597, $3607), $3608, $3609, $3610, $3611); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $3613 = self.err; + var _reply$92 = Kind$Parser$text$(":", _reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $3615 = self.err; + var self = $3613; + switch (self._) { + case 'Maybe.some': + var $3617 = self.value; + var $3618 = Parser$Reply$error$(Parser$Error$combine$($3617, $3615)); + var $3616 = $3618; + break; + case 'Maybe.none': + var $3619 = Parser$Reply$error$($3615); + var $3616 = $3619; + break; + }; + var $3614 = $3616; + break; + case 'Parser.Reply.value': + var $3620 = self.pst; + var self = $3620; + switch (self._) { + case 'Parser.State.new': + var $3622 = self.err; + var $3623 = self.nam; + var $3624 = self.ini; + var $3625 = self.idx; + var $3626 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3613, $3622), $3623, $3624, $3625, $3626); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $3628 = self.err; + var _reply$106 = Kind$Parser$term(_reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $3630 = self.err; + var self = $3628; + switch (self._) { + case 'Maybe.some': + var $3632 = self.value; + var $3633 = Parser$Reply$error$(Parser$Error$combine$($3632, $3630)); + var $3631 = $3633; + break; + case 'Maybe.none': + var $3634 = Parser$Reply$error$($3630); + var $3631 = $3634; + break; + }; + var $3629 = $3631; + break; + case 'Parser.Reply.value': + var $3635 = self.pst; + var $3636 = self.val; + var self = $3635; + switch (self._) { + case 'Parser.State.new': + var $3638 = self.err; + var $3639 = self.nam; + var $3640 = self.ini; + var $3641 = self.idx; + var $3642 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3628, $3638), $3639, $3640, $3641, $3642); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $3644 = self.err; + var _reply$120 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $3646 = self.err; + var self = $3644; + switch (self._) { + case 'Maybe.some': + var $3648 = self.value; + var $3649 = Parser$Reply$error$(Parser$Error$combine$($3648, $3646)); + var $3647 = $3649; + break; + case 'Maybe.none': + var $3650 = Parser$Reply$error$($3646); + var $3647 = $3650; + break; + }; + var $3645 = $3647; + break; + case 'Parser.Reply.value': + var $3651 = self.pst; + var self = $3651; + switch (self._) { + case 'Parser.State.new': + var $3653 = self.err; + var $3654 = self.nam; + var $3655 = self.ini; + var $3656 = self.idx; + var $3657 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($3644, $3653), $3654, $3655, $3656, $3657); + var self = _reply$pst$128; + switch (self._) { + case 'Parser.State.new': + var $3659 = self.err; + var _reply$134 = _body$1(Unit$new)(_reply$pst$128); + var self = _reply$134; + switch (self._) { + case 'Parser.Reply.error': + var $3661 = self.err; + var self = $3659; + switch (self._) { + case 'Maybe.some': + var $3663 = self.value; + var $3664 = Parser$Reply$error$(Parser$Error$combine$($3663, $3661)); + var $3662 = $3664; + break; + case 'Maybe.none': + var $3665 = Parser$Reply$error$($3661); + var $3662 = $3665; + break; + }; + var $3660 = $3662; + break; + case 'Parser.Reply.value': + var $3666 = self.pst; + var $3667 = self.val; + var self = $3666; + switch (self._) { + case 'Parser.State.new': + var $3669 = self.err; + var $3670 = self.nam; + var $3671 = self.ini; + var $3672 = self.idx; + var $3673 = self.str; + var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($3659, $3669), $3670, $3671, $3672, $3673); + var _term$143 = Kind$Term$ref$("List.for"); + var _term$144 = Kind$Term$app$(_term$143, Kind$Term$hol$(Bits$e)); + var _term$145 = Kind$Term$app$(_term$144, $3574); + var _term$146 = Kind$Term$app$(_term$145, Kind$Term$hol$(Bits$e)); + var _term$147 = Kind$Term$app$(_term$146, Kind$Term$ref$($3605)); + var _lamb$148 = Kind$Term$lam$($3543, (_i$148 => { + var $3675 = Kind$Term$lam$($3605, (_x$149 => { + var $3676 = $3636; + return $3676; + })); + return $3675; + })); + var _term$149 = Kind$Term$app$(_term$147, _lamb$148); + var _term$150 = Kind$Term$let$($3605, _term$149, (_x$150 => { + var $3677 = $3667; + return $3677; + })); + var $3674 = Parser$Reply$value$(_reply$pst$142, _term$150); + var $3668 = $3674; + break; + }; + var $3660 = $3668; + break; + }; + var $3658 = $3660; + break; + }; + var $3652 = $3658; + break; + }; + var $3645 = $3652; + break; + }; + var $3643 = $3645; + break; + }; + var $3637 = $3643; + break; + }; + var $3629 = $3637; + break; + }; + var $3627 = $3629; + break; + }; + var $3621 = $3627; + break; + }; + var $3614 = $3621; + break; + }; + var $3612 = $3614; + break; + }; + var $3606 = $3612; + break; + }; + var $3598 = $3606; + break; + }; + var $3596 = $3598; + break; + }; + var $3590 = $3596; + break; + }; + var $3583 = $3590; + break; + }; + var $3581 = $3583; + break; + }; + var $3575 = $3581; + break; + }; + var $3567 = $3575; + break; + }; + var $3565 = $3567; + break; + }; + var $3559 = $3565; + break; + }; + var $3552 = $3559; + break; + }; + var $3550 = $3552; + break; + }; + var $3544 = $3550; + break; + }; + var $3536 = $3544; + break; + }; + var $3534 = $3536; + break; + }; + var $3528 = $3534; + break; + }; + var $3521 = $3528; + break; + }; + var $3519 = $3521; + break; + }; + return $3519; + })); + return $3518; + }; + const Kind$Parser$letforin$with = x0 => Kind$Parser$letforin$with$(x0); + + function Kind$Parser$letforinmap$(_body$1) { + var $3678 = Kind$Parser$block("let-for-map")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $3680 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $3682 = self.err; + var self = $3680; + switch (self._) { + case 'Maybe.some': + var $3684 = self.value; + var $3685 = Parser$Reply$error$(Parser$Error$combine$($3684, $3682)); + var $3683 = $3685; + break; + case 'Maybe.none': + var $3686 = Parser$Reply$error$($3682); + var $3683 = $3686; + break; + }; + var $3681 = $3683; + break; + case 'Parser.Reply.value': + var $3687 = self.pst; + var self = $3687; + switch (self._) { + case 'Parser.State.new': + var $3689 = self.err; + var $3690 = self.nam; + var $3691 = self.ini; + var $3692 = self.idx; + var $3693 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3680, $3689), $3690, $3691, $3692, $3693); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $3695 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $3697 = self.err; + var self = $3695; + switch (self._) { + case 'Maybe.some': + var $3699 = self.value; + var $3700 = Parser$Reply$error$(Parser$Error$combine$($3699, $3697)); + var $3698 = $3700; + break; + case 'Maybe.none': + var $3701 = Parser$Reply$error$($3697); + var $3698 = $3701; + break; + }; + var $3696 = $3698; + break; + case 'Parser.Reply.value': + var $3702 = self.pst; + var $3703 = self.val; + var self = $3702; + switch (self._) { + case 'Parser.State.new': + var $3705 = self.err; + var $3706 = self.nam; + var $3707 = self.ini; + var $3708 = self.idx; + var $3709 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3695, $3705), $3706, $3707, $3708, $3709); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $3711 = self.err; + var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $3713 = self.err; + var self = $3711; + switch (self._) { + case 'Maybe.some': + var $3715 = self.value; + var $3716 = Parser$Reply$error$(Parser$Error$combine$($3715, $3713)); + var $3714 = $3716; + break; + case 'Maybe.none': + var $3717 = Parser$Reply$error$($3713); + var $3714 = $3717; + break; + }; + var $3712 = $3714; + break; + case 'Parser.Reply.value': + var $3718 = self.pst; + var self = $3718; + switch (self._) { + case 'Parser.State.new': + var $3720 = self.err; + var $3721 = self.nam; + var $3722 = self.ini; + var $3723 = self.idx; + var $3724 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3711, $3720), $3721, $3722, $3723, $3724); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $3726 = self.err; + var _reply$50 = Kind$Parser$text$("for ", _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $3728 = self.err; + var self = $3726; + switch (self._) { + case 'Maybe.some': + var $3730 = self.value; + var $3731 = Parser$Reply$error$(Parser$Error$combine$($3730, $3728)); + var $3729 = $3731; + break; + case 'Maybe.none': + var $3732 = Parser$Reply$error$($3728); + var $3729 = $3732; + break; + }; + var $3727 = $3729; + break; + case 'Parser.Reply.value': + var $3733 = self.pst; + var self = $3733; + switch (self._) { + case 'Parser.State.new': + var $3735 = self.err; + var $3736 = self.nam; + var $3737 = self.ini; + var $3738 = self.idx; + var $3739 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($3726, $3735), $3736, $3737, $3738, $3739); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $3741 = self.err; + var _reply$64 = Kind$Parser$name1$(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $3743 = self.err; + var self = $3741; + switch (self._) { + case 'Maybe.some': + var $3745 = self.value; + var $3746 = Parser$Reply$error$(Parser$Error$combine$($3745, $3743)); + var $3744 = $3746; + break; + case 'Maybe.none': + var $3747 = Parser$Reply$error$($3743); + var $3744 = $3747; + break; + }; + var $3742 = $3744; + break; + case 'Parser.Reply.value': + var $3748 = self.pst; + var $3749 = self.val; + var self = $3748; + switch (self._) { + case 'Parser.State.new': + var $3751 = self.err; + var $3752 = self.nam; + var $3753 = self.ini; + var $3754 = self.idx; + var $3755 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3741, $3751), $3752, $3753, $3754, $3755); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $3757 = self.err; + var _reply$78 = Kind$Parser$text$(":", _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $3759 = self.err; + var self = $3757; + switch (self._) { + case 'Maybe.some': + var $3761 = self.value; + var $3762 = Parser$Reply$error$(Parser$Error$combine$($3761, $3759)); + var $3760 = $3762; + break; + case 'Maybe.none': + var $3763 = Parser$Reply$error$($3759); + var $3760 = $3763; + break; + }; + var $3758 = $3760; + break; + case 'Parser.Reply.value': + var $3764 = self.pst; + var self = $3764; + switch (self._) { + case 'Parser.State.new': + var $3766 = self.err; + var $3767 = self.nam; + var $3768 = self.ini; + var $3769 = self.idx; + var $3770 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3757, $3766), $3767, $3768, $3769, $3770); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $3772 = self.err; + var _reply$92 = Kind$Parser$name1$(_reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $3774 = self.err; + var self = $3772; + switch (self._) { + case 'Maybe.some': + var $3776 = self.value; + var $3777 = Parser$Reply$error$(Parser$Error$combine$($3776, $3774)); + var $3775 = $3777; + break; + case 'Maybe.none': + var $3778 = Parser$Reply$error$($3774); + var $3775 = $3778; + break; + }; + var $3773 = $3775; + break; + case 'Parser.Reply.value': + var $3779 = self.pst; + var $3780 = self.val; + var self = $3779; + switch (self._) { + case 'Parser.State.new': + var $3782 = self.err; + var $3783 = self.nam; + var $3784 = self.ini; + var $3785 = self.idx; + var $3786 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3772, $3782), $3783, $3784, $3785, $3786); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $3788 = self.err; + var _reply$106 = Kind$Parser$text$("in", _reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $3790 = self.err; + var self = $3788; + switch (self._) { + case 'Maybe.some': + var $3792 = self.value; + var $3793 = Parser$Reply$error$(Parser$Error$combine$($3792, $3790)); + var $3791 = $3793; + break; + case 'Maybe.none': + var $3794 = Parser$Reply$error$($3790); + var $3791 = $3794; + break; + }; + var $3789 = $3791; + break; + case 'Parser.Reply.value': + var $3795 = self.pst; + var self = $3795; + switch (self._) { + case 'Parser.State.new': + var $3797 = self.err; + var $3798 = self.nam; + var $3799 = self.ini; + var $3800 = self.idx; + var $3801 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3788, $3797), $3798, $3799, $3800, $3801); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $3803 = self.err; + var _reply$120 = Kind$Parser$term(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $3805 = self.err; + var self = $3803; + switch (self._) { + case 'Maybe.some': + var $3807 = self.value; + var $3808 = Parser$Reply$error$(Parser$Error$combine$($3807, $3805)); + var $3806 = $3808; + break; + case 'Maybe.none': + var $3809 = Parser$Reply$error$($3805); + var $3806 = $3809; + break; + }; + var $3804 = $3806; + break; + case 'Parser.Reply.value': + var $3810 = self.pst; + var $3811 = self.val; + var self = $3810; + switch (self._) { + case 'Parser.State.new': + var $3813 = self.err; + var $3814 = self.nam; + var $3815 = self.ini; + var $3816 = self.idx; + var $3817 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($3803, $3813), $3814, $3815, $3816, $3817); + var self = _reply$pst$128; + switch (self._) { + case 'Parser.State.new': + var $3819 = self.err; + var _reply$134 = Kind$Parser$text$(":", _reply$pst$128); + var self = _reply$134; + switch (self._) { + case 'Parser.Reply.error': + var $3821 = self.err; + var self = $3819; + switch (self._) { + case 'Maybe.some': + var $3823 = self.value; + var $3824 = Parser$Reply$error$(Parser$Error$combine$($3823, $3821)); + var $3822 = $3824; + break; + case 'Maybe.none': + var $3825 = Parser$Reply$error$($3821); + var $3822 = $3825; + break; + }; + var $3820 = $3822; + break; + case 'Parser.Reply.value': + var $3826 = self.pst; + var self = $3826; + switch (self._) { + case 'Parser.State.new': + var $3828 = self.err; + var $3829 = self.nam; + var $3830 = self.ini; + var $3831 = self.idx; + var $3832 = self.str; + var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($3819, $3828), $3829, $3830, $3831, $3832); + var self = _reply$pst$142; + switch (self._) { + case 'Parser.State.new': + var $3834 = self.err; + var _reply$148 = Kind$Parser$term(_reply$pst$142); + var self = _reply$148; + switch (self._) { + case 'Parser.Reply.error': + var $3836 = self.err; + var self = $3834; + switch (self._) { + case 'Maybe.some': + var $3838 = self.value; + var $3839 = Parser$Reply$error$(Parser$Error$combine$($3838, $3836)); + var $3837 = $3839; + break; + case 'Maybe.none': + var $3840 = Parser$Reply$error$($3836); + var $3837 = $3840; + break; + }; + var $3835 = $3837; + break; + case 'Parser.Reply.value': + var $3841 = self.pst; + var $3842 = self.val; + var self = $3841; + switch (self._) { + case 'Parser.State.new': + var $3844 = self.err; + var $3845 = self.nam; + var $3846 = self.ini; + var $3847 = self.idx; + var $3848 = self.str; + var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($3834, $3844), $3845, $3846, $3847, $3848); + var self = _reply$pst$156; + switch (self._) { + case 'Parser.State.new': + var $3850 = self.err; + var _reply$162 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$156); + var self = _reply$162; + switch (self._) { + case 'Parser.Reply.error': + var $3852 = self.err; + var self = $3850; + switch (self._) { + case 'Maybe.some': + var $3854 = self.value; + var $3855 = Parser$Reply$error$(Parser$Error$combine$($3854, $3852)); + var $3853 = $3855; + break; + case 'Maybe.none': + var $3856 = Parser$Reply$error$($3852); + var $3853 = $3856; + break; + }; + var $3851 = $3853; + break; + case 'Parser.Reply.value': + var $3857 = self.pst; + var self = $3857; + switch (self._) { + case 'Parser.State.new': + var $3859 = self.err; + var $3860 = self.nam; + var $3861 = self.ini; + var $3862 = self.idx; + var $3863 = self.str; + var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($3850, $3859), $3860, $3861, $3862, $3863); + var self = _reply$pst$170; + switch (self._) { + case 'Parser.State.new': + var $3865 = self.err; + var _reply$176 = _body$1(Unit$new)(_reply$pst$170); + var self = _reply$176; + switch (self._) { + case 'Parser.Reply.error': + var $3867 = self.err; + var self = $3865; + switch (self._) { + case 'Maybe.some': + var $3869 = self.value; + var $3870 = Parser$Reply$error$(Parser$Error$combine$($3869, $3867)); + var $3868 = $3870; + break; + case 'Maybe.none': + var $3871 = Parser$Reply$error$($3867); + var $3868 = $3871; + break; + }; + var $3866 = $3868; + break; + case 'Parser.Reply.value': + var $3872 = self.pst; + var $3873 = self.val; + var self = $3872; + switch (self._) { + case 'Parser.State.new': + var $3875 = self.err; + var $3876 = self.nam; + var $3877 = self.ini; + var $3878 = self.idx; + var $3879 = self.str; + var _reply$pst$184 = Parser$State$new$(Parser$Error$maybe_combine$($3865, $3875), $3876, $3877, $3878, $3879); + var _term$185 = Kind$Term$ref$("BBT.for"); + var _term$186 = Kind$Term$app$(_term$185, Kind$Term$hol$(Bits$e)); + var _term$187 = Kind$Term$app$(_term$186, Kind$Term$hol$(Bits$e)); + var _term$188 = Kind$Term$app$(_term$187, $3811); + var _term$189 = Kind$Term$app$(_term$188, Kind$Term$hol$(Bits$e)); + var _term$190 = Kind$Term$app$(_term$189, Kind$Term$ref$($3703)); + var _lamb$191 = Kind$Term$lam$($3749, (_k$191 => { + var $3881 = Kind$Term$lam$($3780, (_i$192 => { + var $3882 = Kind$Term$lam$($3703, (_x$193 => { + var $3883 = $3842; + return $3883; + })); + return $3882; + })); + return $3881; + })); + var _term$192 = Kind$Term$app$(_term$190, _lamb$191); + var _term$193 = Kind$Term$let$($3703, _term$192, (_x$193 => { + var $3884 = $3873; + return $3884; + })); + var $3880 = Parser$Reply$value$(_reply$pst$184, _term$193); + var $3874 = $3880; + break; + }; + var $3866 = $3874; + break; + }; + var $3864 = $3866; + break; + }; + var $3858 = $3864; + break; + }; + var $3851 = $3858; + break; + }; + var $3849 = $3851; + break; + }; + var $3843 = $3849; + break; + }; + var $3835 = $3843; + break; + }; + var $3833 = $3835; + break; + }; + var $3827 = $3833; + break; + }; + var $3820 = $3827; + break; + }; + var $3818 = $3820; + break; + }; + var $3812 = $3818; + break; + }; + var $3804 = $3812; + break; + }; + var $3802 = $3804; + break; + }; + var $3796 = $3802; + break; + }; + var $3789 = $3796; + break; + }; + var $3787 = $3789; + break; + }; + var $3781 = $3787; + break; + }; + var $3773 = $3781; + break; + }; + var $3771 = $3773; + break; + }; + var $3765 = $3771; + break; + }; + var $3758 = $3765; + break; + }; + var $3756 = $3758; + break; + }; + var $3750 = $3756; + break; + }; + var $3742 = $3750; + break; + }; + var $3740 = $3742; + break; + }; + var $3734 = $3740; + break; + }; + var $3727 = $3734; + break; + }; + var $3725 = $3727; + break; + }; + var $3719 = $3725; + break; + }; + var $3712 = $3719; + break; + }; + var $3710 = $3712; + break; + }; + var $3704 = $3710; + break; + }; + var $3696 = $3704; + break; + }; + var $3694 = $3696; + break; + }; + var $3688 = $3694; + break; + }; + var $3681 = $3688; + break; + }; + var $3679 = $3681; + break; + }; + return $3679; + })); + return $3678; + }; + const Kind$Parser$letforinmap = x0 => Kind$Parser$letforinmap$(x0); + + function Kind$Parser$letforinmap$with$(_body$1) { + var $3885 = Kind$Parser$block("for-map")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $3887 = self.err; + var _reply$8 = Kind$Parser$text$("for ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $3889 = self.err; + var self = $3887; + switch (self._) { + case 'Maybe.some': + var $3891 = self.value; + var $3892 = Parser$Reply$error$(Parser$Error$combine$($3891, $3889)); + var $3890 = $3892; + break; + case 'Maybe.none': + var $3893 = Parser$Reply$error$($3889); + var $3890 = $3893; + break; + }; + var $3888 = $3890; + break; + case 'Parser.Reply.value': + var $3894 = self.pst; + var self = $3894; + switch (self._) { + case 'Parser.State.new': + var $3896 = self.err; + var $3897 = self.nam; + var $3898 = self.ini; + var $3899 = self.idx; + var $3900 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($3887, $3896), $3897, $3898, $3899, $3900); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $3902 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $3904 = self.err; + var self = $3902; + switch (self._) { + case 'Maybe.some': + var $3906 = self.value; + var $3907 = Parser$Reply$error$(Parser$Error$combine$($3906, $3904)); + var $3905 = $3907; + break; + case 'Maybe.none': + var $3908 = Parser$Reply$error$($3904); + var $3905 = $3908; + break; + }; + var $3903 = $3905; + break; + case 'Parser.Reply.value': + var $3909 = self.pst; + var $3910 = self.val; + var self = $3909; + switch (self._) { + case 'Parser.State.new': + var $3912 = self.err; + var $3913 = self.nam; + var $3914 = self.ini; + var $3915 = self.idx; + var $3916 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($3902, $3912), $3913, $3914, $3915, $3916); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $3918 = self.err; + var _reply$36 = Kind$Parser$text$(":", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $3920 = self.err; + var self = $3918; + switch (self._) { + case 'Maybe.some': + var $3922 = self.value; + var $3923 = Parser$Reply$error$(Parser$Error$combine$($3922, $3920)); + var $3921 = $3923; + break; + case 'Maybe.none': + var $3924 = Parser$Reply$error$($3920); + var $3921 = $3924; + break; + }; + var $3919 = $3921; + break; + case 'Parser.Reply.value': + var $3925 = self.pst; + var self = $3925; + switch (self._) { + case 'Parser.State.new': + var $3927 = self.err; + var $3928 = self.nam; + var $3929 = self.ini; + var $3930 = self.idx; + var $3931 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($3918, $3927), $3928, $3929, $3930, $3931); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $3933 = self.err; + var _reply$50 = Kind$Parser$name1$(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $3935 = self.err; + var self = $3933; + switch (self._) { + case 'Maybe.some': + var $3937 = self.value; + var $3938 = Parser$Reply$error$(Parser$Error$combine$($3937, $3935)); + var $3936 = $3938; + break; + case 'Maybe.none': + var $3939 = Parser$Reply$error$($3935); + var $3936 = $3939; + break; + }; + var $3934 = $3936; + break; + case 'Parser.Reply.value': + var $3940 = self.pst; + var $3941 = self.val; + var self = $3940; + switch (self._) { + case 'Parser.State.new': + var $3943 = self.err; + var $3944 = self.nam; + var $3945 = self.ini; + var $3946 = self.idx; + var $3947 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($3933, $3943), $3944, $3945, $3946, $3947); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $3949 = self.err; + var _reply$64 = Kind$Parser$text$("in", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $3951 = self.err; + var self = $3949; + switch (self._) { + case 'Maybe.some': + var $3953 = self.value; + var $3954 = Parser$Reply$error$(Parser$Error$combine$($3953, $3951)); + var $3952 = $3954; + break; + case 'Maybe.none': + var $3955 = Parser$Reply$error$($3951); + var $3952 = $3955; + break; + }; + var $3950 = $3952; + break; + case 'Parser.Reply.value': + var $3956 = self.pst; + var self = $3956; + switch (self._) { + case 'Parser.State.new': + var $3958 = self.err; + var $3959 = self.nam; + var $3960 = self.ini; + var $3961 = self.idx; + var $3962 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($3949, $3958), $3959, $3960, $3961, $3962); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $3964 = self.err; + var _reply$78 = Kind$Parser$term(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $3966 = self.err; + var self = $3964; + switch (self._) { + case 'Maybe.some': + var $3968 = self.value; + var $3969 = Parser$Reply$error$(Parser$Error$combine$($3968, $3966)); + var $3967 = $3969; + break; + case 'Maybe.none': + var $3970 = Parser$Reply$error$($3966); + var $3967 = $3970; + break; + }; + var $3965 = $3967; + break; + case 'Parser.Reply.value': + var $3971 = self.pst; + var $3972 = self.val; + var self = $3971; + switch (self._) { + case 'Parser.State.new': + var $3974 = self.err; + var $3975 = self.nam; + var $3976 = self.ini; + var $3977 = self.idx; + var $3978 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($3964, $3974), $3975, $3976, $3977, $3978); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $3980 = self.err; + var _reply$92 = Kind$Parser$text$("with", _reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $3982 = self.err; + var self = $3980; + switch (self._) { + case 'Maybe.some': + var $3984 = self.value; + var $3985 = Parser$Reply$error$(Parser$Error$combine$($3984, $3982)); + var $3983 = $3985; + break; + case 'Maybe.none': + var $3986 = Parser$Reply$error$($3982); + var $3983 = $3986; + break; + }; + var $3981 = $3983; + break; + case 'Parser.Reply.value': + var $3987 = self.pst; + var self = $3987; + switch (self._) { + case 'Parser.State.new': + var $3989 = self.err; + var $3990 = self.nam; + var $3991 = self.ini; + var $3992 = self.idx; + var $3993 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($3980, $3989), $3990, $3991, $3992, $3993); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $3995 = self.err; + var _reply$106 = Kind$Parser$name1$(_reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $3997 = self.err; + var self = $3995; + switch (self._) { + case 'Maybe.some': + var $3999 = self.value; + var $4000 = Parser$Reply$error$(Parser$Error$combine$($3999, $3997)); + var $3998 = $4000; + break; + case 'Maybe.none': + var $4001 = Parser$Reply$error$($3997); + var $3998 = $4001; + break; + }; + var $3996 = $3998; + break; + case 'Parser.Reply.value': + var $4002 = self.pst; + var $4003 = self.val; + var self = $4002; + switch (self._) { + case 'Parser.State.new': + var $4005 = self.err; + var $4006 = self.nam; + var $4007 = self.ini; + var $4008 = self.idx; + var $4009 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3995, $4005), $4006, $4007, $4008, $4009); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $4011 = self.err; + var _reply$120 = Kind$Parser$text$(":", _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $4013 = self.err; + var self = $4011; + switch (self._) { + case 'Maybe.some': + var $4015 = self.value; + var $4016 = Parser$Reply$error$(Parser$Error$combine$($4015, $4013)); + var $4014 = $4016; + break; + case 'Maybe.none': + var $4017 = Parser$Reply$error$($4013); + var $4014 = $4017; + break; + }; + var $4012 = $4014; + break; + case 'Parser.Reply.value': + var $4018 = self.pst; + var self = $4018; + switch (self._) { + case 'Parser.State.new': + var $4020 = self.err; + var $4021 = self.nam; + var $4022 = self.ini; + var $4023 = self.idx; + var $4024 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($4011, $4020), $4021, $4022, $4023, $4024); + var self = _reply$pst$128; + switch (self._) { + case 'Parser.State.new': + var $4026 = self.err; + var _reply$134 = Kind$Parser$term(_reply$pst$128); + var self = _reply$134; + switch (self._) { + case 'Parser.Reply.error': + var $4028 = self.err; + var self = $4026; + switch (self._) { + case 'Maybe.some': + var $4030 = self.value; + var $4031 = Parser$Reply$error$(Parser$Error$combine$($4030, $4028)); + var $4029 = $4031; + break; + case 'Maybe.none': + var $4032 = Parser$Reply$error$($4028); + var $4029 = $4032; + break; + }; + var $4027 = $4029; + break; + case 'Parser.Reply.value': + var $4033 = self.pst; + var $4034 = self.val; + var self = $4033; + switch (self._) { + case 'Parser.State.new': + var $4036 = self.err; + var $4037 = self.nam; + var $4038 = self.ini; + var $4039 = self.idx; + var $4040 = self.str; + var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($4026, $4036), $4037, $4038, $4039, $4040); + var self = _reply$pst$142; + switch (self._) { + case 'Parser.State.new': + var $4042 = self.err; + var _reply$148 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$142); + var self = _reply$148; + switch (self._) { + case 'Parser.Reply.error': + var $4044 = self.err; + var self = $4042; + switch (self._) { + case 'Maybe.some': + var $4046 = self.value; + var $4047 = Parser$Reply$error$(Parser$Error$combine$($4046, $4044)); + var $4045 = $4047; + break; + case 'Maybe.none': + var $4048 = Parser$Reply$error$($4044); + var $4045 = $4048; + break; + }; + var $4043 = $4045; + break; + case 'Parser.Reply.value': + var $4049 = self.pst; + var self = $4049; + switch (self._) { + case 'Parser.State.new': + var $4051 = self.err; + var $4052 = self.nam; + var $4053 = self.ini; + var $4054 = self.idx; + var $4055 = self.str; + var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($4042, $4051), $4052, $4053, $4054, $4055); + var self = _reply$pst$156; + switch (self._) { + case 'Parser.State.new': + var $4057 = self.err; + var _reply$162 = _body$1(Unit$new)(_reply$pst$156); + var self = _reply$162; + switch (self._) { + case 'Parser.Reply.error': + var $4059 = self.err; + var self = $4057; + switch (self._) { + case 'Maybe.some': + var $4061 = self.value; + var $4062 = Parser$Reply$error$(Parser$Error$combine$($4061, $4059)); + var $4060 = $4062; + break; + case 'Maybe.none': + var $4063 = Parser$Reply$error$($4059); + var $4060 = $4063; + break; + }; + var $4058 = $4060; + break; + case 'Parser.Reply.value': + var $4064 = self.pst; + var $4065 = self.val; + var self = $4064; + switch (self._) { + case 'Parser.State.new': + var $4067 = self.err; + var $4068 = self.nam; + var $4069 = self.ini; + var $4070 = self.idx; + var $4071 = self.str; + var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($4057, $4067), $4068, $4069, $4070, $4071); + var _term$171 = Kind$Term$ref$("BBT.for"); + var _term$172 = Kind$Term$app$(_term$171, Kind$Term$hol$(Bits$e)); + var _term$173 = Kind$Term$app$(_term$172, Kind$Term$hol$(Bits$e)); + var _term$174 = Kind$Term$app$(_term$173, $3972); + var _term$175 = Kind$Term$app$(_term$174, Kind$Term$hol$(Bits$e)); + var _term$176 = Kind$Term$app$(_term$175, Kind$Term$ref$($4003)); + var _lamb$177 = Kind$Term$lam$($3910, (_k$177 => { + var $4073 = Kind$Term$lam$($3941, (_i$178 => { + var $4074 = Kind$Term$lam$($4003, (_x$179 => { + var $4075 = $4034; + return $4075; + })); + return $4074; + })); + return $4073; + })); + var _term$178 = Kind$Term$app$(_term$176, _lamb$177); + var _term$179 = Kind$Term$let$($4003, _term$178, (_x$179 => { + var $4076 = $4065; + return $4076; + })); + var $4072 = Parser$Reply$value$(_reply$pst$170, _term$179); + var $4066 = $4072; + break; + }; + var $4058 = $4066; + break; + }; + var $4056 = $4058; + break; + }; + var $4050 = $4056; + break; + }; + var $4043 = $4050; + break; + }; + var $4041 = $4043; + break; + }; + var $4035 = $4041; + break; + }; + var $4027 = $4035; + break; + }; + var $4025 = $4027; + break; + }; + var $4019 = $4025; + break; + }; + var $4012 = $4019; + break; + }; + var $4010 = $4012; + break; + }; + var $4004 = $4010; + break; + }; + var $3996 = $4004; + break; + }; + var $3994 = $3996; + break; + }; + var $3988 = $3994; + break; + }; + var $3981 = $3988; + break; + }; + var $3979 = $3981; + break; + }; + var $3973 = $3979; + break; + }; + var $3965 = $3973; + break; + }; + var $3963 = $3965; + break; + }; + var $3957 = $3963; + break; + }; + var $3950 = $3957; + break; + }; + var $3948 = $3950; + break; + }; + var $3942 = $3948; + break; + }; + var $3934 = $3942; + break; + }; + var $3932 = $3934; + break; + }; + var $3926 = $3932; + break; + }; + var $3919 = $3926; + break; + }; + var $3917 = $3919; + break; + }; + var $3911 = $3917; + break; + }; + var $3903 = $3911; + break; + }; + var $3901 = $3903; + break; + }; + var $3895 = $3901; + break; + }; + var $3888 = $3895; + break; + }; + var $3886 = $3888; + break; + }; + return $3886; + })); + return $3885; + }; + const Kind$Parser$letforinmap$with = x0 => Kind$Parser$letforinmap$with$(x0); + + function Kind$Parser$letwhile$(_body$1) { + var $4077 = Kind$Parser$block("let-while")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4079 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4081 = self.err; + var self = $4079; + switch (self._) { + case 'Maybe.some': + var $4083 = self.value; + var $4084 = Parser$Reply$error$(Parser$Error$combine$($4083, $4081)); + var $4082 = $4084; + break; + case 'Maybe.none': + var $4085 = Parser$Reply$error$($4081); + var $4082 = $4085; + break; + }; + var $4080 = $4082; + break; + case 'Parser.Reply.value': + var $4086 = self.pst; + var self = $4086; + switch (self._) { + case 'Parser.State.new': + var $4088 = self.err; + var $4089 = self.nam; + var $4090 = self.ini; + var $4091 = self.idx; + var $4092 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4079, $4088), $4089, $4090, $4091, $4092); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $4094 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $4096 = self.err; + var self = $4094; + switch (self._) { + case 'Maybe.some': + var $4098 = self.value; + var $4099 = Parser$Reply$error$(Parser$Error$combine$($4098, $4096)); + var $4097 = $4099; + break; + case 'Maybe.none': + var $4100 = Parser$Reply$error$($4096); + var $4097 = $4100; + break; + }; + var $4095 = $4097; + break; + case 'Parser.Reply.value': + var $4101 = self.pst; + var $4102 = self.val; + var self = $4101; + switch (self._) { + case 'Parser.State.new': + var $4104 = self.err; + var $4105 = self.nam; + var $4106 = self.ini; + var $4107 = self.idx; + var $4108 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4094, $4104), $4105, $4106, $4107, $4108); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $4110 = self.err; + var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $4112 = self.err; + var self = $4110; + switch (self._) { + case 'Maybe.some': + var $4114 = self.value; + var $4115 = Parser$Reply$error$(Parser$Error$combine$($4114, $4112)); + var $4113 = $4115; + break; + case 'Maybe.none': + var $4116 = Parser$Reply$error$($4112); + var $4113 = $4116; + break; + }; + var $4111 = $4113; + break; + case 'Parser.Reply.value': + var $4117 = self.pst; + var self = $4117; + switch (self._) { + case 'Parser.State.new': + var $4119 = self.err; + var $4120 = self.nam; + var $4121 = self.ini; + var $4122 = self.idx; + var $4123 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4110, $4119), $4120, $4121, $4122, $4123); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $4125 = self.err; + var _reply$50 = Kind$Parser$text$("while ", _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $4127 = self.err; + var self = $4125; + switch (self._) { + case 'Maybe.some': + var $4129 = self.value; + var $4130 = Parser$Reply$error$(Parser$Error$combine$($4129, $4127)); + var $4128 = $4130; + break; + case 'Maybe.none': + var $4131 = Parser$Reply$error$($4127); + var $4128 = $4131; + break; + }; + var $4126 = $4128; + break; + case 'Parser.Reply.value': + var $4132 = self.pst; + var self = $4132; + switch (self._) { + case 'Parser.State.new': + var $4134 = self.err; + var $4135 = self.nam; + var $4136 = self.ini; + var $4137 = self.idx; + var $4138 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4125, $4134), $4135, $4136, $4137, $4138); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $4140 = self.err; + var _reply$64 = Kind$Parser$term(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $4142 = self.err; + var self = $4140; + switch (self._) { + case 'Maybe.some': + var $4144 = self.value; + var $4145 = Parser$Reply$error$(Parser$Error$combine$($4144, $4142)); + var $4143 = $4145; + break; + case 'Maybe.none': + var $4146 = Parser$Reply$error$($4142); + var $4143 = $4146; + break; + }; + var $4141 = $4143; + break; + case 'Parser.Reply.value': + var $4147 = self.pst; + var $4148 = self.val; + var self = $4147; + switch (self._) { + case 'Parser.State.new': + var $4150 = self.err; + var $4151 = self.nam; + var $4152 = self.ini; + var $4153 = self.idx; + var $4154 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4140, $4150), $4151, $4152, $4153, $4154); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $4156 = self.err; + var _reply$78 = Kind$Parser$text$(":", _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $4158 = self.err; + var self = $4156; + switch (self._) { + case 'Maybe.some': + var $4160 = self.value; + var $4161 = Parser$Reply$error$(Parser$Error$combine$($4160, $4158)); + var $4159 = $4161; + break; + case 'Maybe.none': + var $4162 = Parser$Reply$error$($4158); + var $4159 = $4162; + break; + }; + var $4157 = $4159; + break; + case 'Parser.Reply.value': + var $4163 = self.pst; + var self = $4163; + switch (self._) { + case 'Parser.State.new': + var $4165 = self.err; + var $4166 = self.nam; + var $4167 = self.ini; + var $4168 = self.idx; + var $4169 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4156, $4165), $4166, $4167, $4168, $4169); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $4171 = self.err; + var _reply$92 = Kind$Parser$term(_reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $4173 = self.err; + var self = $4171; + switch (self._) { + case 'Maybe.some': + var $4175 = self.value; + var $4176 = Parser$Reply$error$(Parser$Error$combine$($4175, $4173)); + var $4174 = $4176; + break; + case 'Maybe.none': + var $4177 = Parser$Reply$error$($4173); + var $4174 = $4177; + break; + }; + var $4172 = $4174; + break; + case 'Parser.Reply.value': + var $4178 = self.pst; + var $4179 = self.val; + var self = $4178; + switch (self._) { + case 'Parser.State.new': + var $4181 = self.err; + var $4182 = self.nam; + var $4183 = self.ini; + var $4184 = self.idx; + var $4185 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($4171, $4181), $4182, $4183, $4184, $4185); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $4187 = self.err; + var _reply$106 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $4189 = self.err; + var self = $4187; + switch (self._) { + case 'Maybe.some': + var $4191 = self.value; + var $4192 = Parser$Reply$error$(Parser$Error$combine$($4191, $4189)); + var $4190 = $4192; + break; + case 'Maybe.none': + var $4193 = Parser$Reply$error$($4189); + var $4190 = $4193; + break; + }; + var $4188 = $4190; + break; + case 'Parser.Reply.value': + var $4194 = self.pst; + var self = $4194; + switch (self._) { + case 'Parser.State.new': + var $4196 = self.err; + var $4197 = self.nam; + var $4198 = self.ini; + var $4199 = self.idx; + var $4200 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4187, $4196), $4197, $4198, $4199, $4200); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $4202 = self.err; + var _reply$120 = _body$1(Unit$new)(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $4204 = self.err; + var self = $4202; + switch (self._) { + case 'Maybe.some': + var $4206 = self.value; + var $4207 = Parser$Reply$error$(Parser$Error$combine$($4206, $4204)); + var $4205 = $4207; + break; + case 'Maybe.none': + var $4208 = Parser$Reply$error$($4204); + var $4205 = $4208; + break; + }; + var $4203 = $4205; + break; + case 'Parser.Reply.value': + var $4209 = self.pst; + var $4210 = self.val; + var self = $4209; + switch (self._) { + case 'Parser.State.new': + var $4212 = self.err; + var $4213 = self.nam; + var $4214 = self.ini; + var $4215 = self.idx; + var $4216 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($4202, $4212), $4213, $4214, $4215, $4216); + var _term$129 = Kind$Term$ref$("Function.while"); + var _term$130 = Kind$Term$app$(_term$129, Kind$Term$hol$(Bits$e)); + var _term$131 = Kind$Term$app$(_term$130, Kind$Term$ref$($4102)); + var _term$132 = Kind$Term$app$(_term$131, Kind$Term$lam$($4102, (_s$132 => { + var $4218 = $4148; + return $4218; + }))); + var _term$133 = Kind$Term$app$(_term$132, Kind$Term$lam$($4102, (_s$133 => { + var $4219 = $4179; + return $4219; + }))); + var _term$134 = Kind$Term$let$($4102, _term$133, (_x$134 => { + var $4220 = $4210; + return $4220; + })); + var $4217 = Parser$Reply$value$(_reply$pst$128, _term$134); + var $4211 = $4217; + break; + }; + var $4203 = $4211; + break; + }; + var $4201 = $4203; + break; + }; + var $4195 = $4201; + break; + }; + var $4188 = $4195; + break; + }; + var $4186 = $4188; + break; + }; + var $4180 = $4186; + break; + }; + var $4172 = $4180; + break; + }; + var $4170 = $4172; + break; + }; + var $4164 = $4170; + break; + }; + var $4157 = $4164; + break; + }; + var $4155 = $4157; + break; + }; + var $4149 = $4155; + break; + }; + var $4141 = $4149; + break; + }; + var $4139 = $4141; + break; + }; + var $4133 = $4139; + break; + }; + var $4126 = $4133; + break; + }; + var $4124 = $4126; + break; + }; + var $4118 = $4124; + break; + }; + var $4111 = $4118; + break; + }; + var $4109 = $4111; + break; + }; + var $4103 = $4109; + break; + }; + var $4095 = $4103; + break; + }; + var $4093 = $4095; + break; + }; + var $4087 = $4093; + break; + }; + var $4080 = $4087; + break; + }; + var $4078 = $4080; + break; + }; + return $4078; + })); + return $4077; + }; + const Kind$Parser$letwhile = x0 => Kind$Parser$letwhile$(x0); + + function Kind$Parser$letwhile$with$(_body$1) { + var $4221 = Kind$Parser$block("let-while")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4223 = self.err; + var _reply$8 = Kind$Parser$text$("while ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4225 = self.err; + var self = $4223; + switch (self._) { + case 'Maybe.some': + var $4227 = self.value; + var $4228 = Parser$Reply$error$(Parser$Error$combine$($4227, $4225)); + var $4226 = $4228; + break; + case 'Maybe.none': + var $4229 = Parser$Reply$error$($4225); + var $4226 = $4229; + break; + }; + var $4224 = $4226; + break; + case 'Parser.Reply.value': + var $4230 = self.pst; + var self = $4230; + switch (self._) { + case 'Parser.State.new': + var $4232 = self.err; + var $4233 = self.nam; + var $4234 = self.ini; + var $4235 = self.idx; + var $4236 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4223, $4232), $4233, $4234, $4235, $4236); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $4238 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $4240 = self.err; + var self = $4238; + switch (self._) { + case 'Maybe.some': + var $4242 = self.value; + var $4243 = Parser$Reply$error$(Parser$Error$combine$($4242, $4240)); + var $4241 = $4243; + break; + case 'Maybe.none': + var $4244 = Parser$Reply$error$($4240); + var $4241 = $4244; + break; + }; + var $4239 = $4241; + break; + case 'Parser.Reply.value': + var $4245 = self.pst; + var $4246 = self.val; + var self = $4245; + switch (self._) { + case 'Parser.State.new': + var $4248 = self.err; + var $4249 = self.nam; + var $4250 = self.ini; + var $4251 = self.idx; + var $4252 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4238, $4248), $4249, $4250, $4251, $4252); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $4254 = self.err; + var _reply$36 = Kind$Parser$text$("with ", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $4256 = self.err; + var self = $4254; + switch (self._) { + case 'Maybe.some': + var $4258 = self.value; + var $4259 = Parser$Reply$error$(Parser$Error$combine$($4258, $4256)); + var $4257 = $4259; + break; + case 'Maybe.none': + var $4260 = Parser$Reply$error$($4256); + var $4257 = $4260; + break; + }; + var $4255 = $4257; + break; + case 'Parser.Reply.value': + var $4261 = self.pst; + var self = $4261; + switch (self._) { + case 'Parser.State.new': + var $4263 = self.err; + var $4264 = self.nam; + var $4265 = self.ini; + var $4266 = self.idx; + var $4267 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4254, $4263), $4264, $4265, $4266, $4267); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $4269 = self.err; + var _reply$50 = Kind$Parser$name1$(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $4271 = self.err; + var self = $4269; + switch (self._) { + case 'Maybe.some': + var $4273 = self.value; + var $4274 = Parser$Reply$error$(Parser$Error$combine$($4273, $4271)); + var $4272 = $4274; + break; + case 'Maybe.none': + var $4275 = Parser$Reply$error$($4271); + var $4272 = $4275; + break; + }; + var $4270 = $4272; + break; + case 'Parser.Reply.value': + var $4276 = self.pst; + var $4277 = self.val; + var self = $4276; + switch (self._) { + case 'Parser.State.new': + var $4279 = self.err; + var $4280 = self.nam; + var $4281 = self.ini; + var $4282 = self.idx; + var $4283 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4269, $4279), $4280, $4281, $4282, $4283); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $4285 = self.err; + var _reply$64 = Kind$Parser$text$(":", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $4287 = self.err; + var self = $4285; + switch (self._) { + case 'Maybe.some': + var $4289 = self.value; + var $4290 = Parser$Reply$error$(Parser$Error$combine$($4289, $4287)); + var $4288 = $4290; + break; + case 'Maybe.none': + var $4291 = Parser$Reply$error$($4287); + var $4288 = $4291; + break; + }; + var $4286 = $4288; + break; + case 'Parser.Reply.value': + var $4292 = self.pst; + var self = $4292; + switch (self._) { + case 'Parser.State.new': + var $4294 = self.err; + var $4295 = self.nam; + var $4296 = self.ini; + var $4297 = self.idx; + var $4298 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4285, $4294), $4295, $4296, $4297, $4298); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $4300 = self.err; + var _reply$78 = Kind$Parser$term(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $4302 = self.err; + var self = $4300; + switch (self._) { + case 'Maybe.some': + var $4304 = self.value; + var $4305 = Parser$Reply$error$(Parser$Error$combine$($4304, $4302)); + var $4303 = $4305; + break; + case 'Maybe.none': + var $4306 = Parser$Reply$error$($4302); + var $4303 = $4306; + break; + }; + var $4301 = $4303; + break; + case 'Parser.Reply.value': + var $4307 = self.pst; + var $4308 = self.val; + var self = $4307; + switch (self._) { + case 'Parser.State.new': + var $4310 = self.err; + var $4311 = self.nam; + var $4312 = self.ini; + var $4313 = self.idx; + var $4314 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4300, $4310), $4311, $4312, $4313, $4314); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $4316 = self.err; + var _reply$92 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $4318 = self.err; + var self = $4316; + switch (self._) { + case 'Maybe.some': + var $4320 = self.value; + var $4321 = Parser$Reply$error$(Parser$Error$combine$($4320, $4318)); + var $4319 = $4321; + break; + case 'Maybe.none': + var $4322 = Parser$Reply$error$($4318); + var $4319 = $4322; + break; + }; + var $4317 = $4319; + break; + case 'Parser.Reply.value': + var $4323 = self.pst; + var self = $4323; + switch (self._) { + case 'Parser.State.new': + var $4325 = self.err; + var $4326 = self.nam; + var $4327 = self.ini; + var $4328 = self.idx; + var $4329 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($4316, $4325), $4326, $4327, $4328, $4329); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $4331 = self.err; + var _reply$106 = _body$1(Unit$new)(_reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $4333 = self.err; + var self = $4331; + switch (self._) { + case 'Maybe.some': + var $4335 = self.value; + var $4336 = Parser$Reply$error$(Parser$Error$combine$($4335, $4333)); + var $4334 = $4336; + break; + case 'Maybe.none': + var $4337 = Parser$Reply$error$($4333); + var $4334 = $4337; + break; + }; + var $4332 = $4334; + break; + case 'Parser.Reply.value': + var $4338 = self.pst; + var $4339 = self.val; + var self = $4338; + switch (self._) { + case 'Parser.State.new': + var $4341 = self.err; + var $4342 = self.nam; + var $4343 = self.ini; + var $4344 = self.idx; + var $4345 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4331, $4341), $4342, $4343, $4344, $4345); + var _term$115 = Kind$Term$ref$("Function.while"); + var _term$116 = Kind$Term$app$(_term$115, Kind$Term$hol$(Bits$e)); + var _term$117 = Kind$Term$app$(_term$116, Kind$Term$ref$($4277)); + var _term$118 = Kind$Term$app$(_term$117, Kind$Term$lam$($4277, (_s$118 => { + var $4347 = $4246; + return $4347; + }))); + var _term$119 = Kind$Term$app$(_term$118, Kind$Term$lam$($4277, (_s$119 => { + var $4348 = $4308; + return $4348; + }))); + var _term$120 = Kind$Term$let$($4277, _term$119, (_x$120 => { + var $4349 = $4339; + return $4349; + })); + var $4346 = Parser$Reply$value$(_reply$pst$114, _term$120); + var $4340 = $4346; + break; + }; + var $4332 = $4340; + break; + }; + var $4330 = $4332; + break; + }; + var $4324 = $4330; + break; + }; + var $4317 = $4324; + break; + }; + var $4315 = $4317; + break; + }; + var $4309 = $4315; + break; + }; + var $4301 = $4309; + break; + }; + var $4299 = $4301; + break; + }; + var $4293 = $4299; + break; + }; + var $4286 = $4293; + break; + }; + var $4284 = $4286; + break; + }; + var $4278 = $4284; + break; + }; + var $4270 = $4278; + break; + }; + var $4268 = $4270; + break; + }; + var $4262 = $4268; + break; + }; + var $4255 = $4262; + break; + }; + var $4253 = $4255; + break; + }; + var $4247 = $4253; + break; + }; + var $4239 = $4247; + break; + }; + var $4237 = $4239; + break; + }; + var $4231 = $4237; + break; + }; + var $4224 = $4231; + break; + }; + var $4222 = $4224; + break; + }; + return $4222; + })); + return $4221; + }; + const Kind$Parser$letwhile$with = x0 => Kind$Parser$letwhile$with$(x0); + + function Kind$Parser$let$abort$(_body$1) { + var $4350 = Kind$Parser$block("let")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4352 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4354 = self.err; + var self = $4352; + switch (self._) { + case 'Maybe.some': + var $4356 = self.value; + var $4357 = Parser$Reply$error$(Parser$Error$combine$($4356, $4354)); + var $4355 = $4357; + break; + case 'Maybe.none': + var $4358 = Parser$Reply$error$($4354); + var $4355 = $4358; + break; + }; + var $4353 = $4355; + break; + case 'Parser.Reply.value': + var $4359 = self.pst; + var self = $4359; + switch (self._) { + case 'Parser.State.new': + var $4361 = self.err; + var $4362 = self.nam; + var $4363 = self.ini; + var $4364 = self.idx; + var $4365 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4352, $4361), $4362, $4363, $4364, $4365); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $4367 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $4369 = self.err; + var self = $4367; + switch (self._) { + case 'Maybe.some': + var $4371 = self.value; + var $4372 = Parser$Reply$error$(Parser$Error$combine$($4371, $4369)); + var $4370 = $4372; + break; + case 'Maybe.none': + var $4373 = Parser$Reply$error$($4369); + var $4370 = $4373; + break; + }; + var $4368 = $4370; + break; + case 'Parser.Reply.value': + var $4374 = self.pst; + var $4375 = self.val; + var self = $4374; + switch (self._) { + case 'Parser.State.new': + var $4377 = self.err; + var $4378 = self.nam; + var $4379 = self.ini; + var $4380 = self.idx; + var $4381 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4367, $4377), $4378, $4379, $4380, $4381); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $4383 = self.err; + var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $4385 = self.err; + var self = $4383; + switch (self._) { + case 'Maybe.some': + var $4387 = self.value; + var $4388 = Parser$Reply$error$(Parser$Error$combine$($4387, $4385)); + var $4386 = $4388; + break; + case 'Maybe.none': + var $4389 = Parser$Reply$error$($4385); + var $4386 = $4389; + break; + }; + var $4384 = $4386; + break; + case 'Parser.Reply.value': + var $4390 = self.pst; + var self = $4390; + switch (self._) { + case 'Parser.State.new': + var $4392 = self.err; + var $4393 = self.nam; + var $4394 = self.ini; + var $4395 = self.idx; + var $4396 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4383, $4392), $4393, $4394, $4395, $4396); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $4398 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $4400 = self.err; + var self = $4398; + switch (self._) { + case 'Maybe.some': + var $4402 = self.value; + var $4403 = Parser$Reply$error$(Parser$Error$combine$($4402, $4400)); + var $4401 = $4403; + break; + case 'Maybe.none': + var $4404 = Parser$Reply$error$($4400); + var $4401 = $4404; + break; + }; + var $4399 = $4401; + break; + case 'Parser.Reply.value': + var $4405 = self.pst; + var $4406 = self.val; + var self = $4405; + switch (self._) { + case 'Parser.State.new': + var $4408 = self.err; + var $4409 = self.nam; + var $4410 = self.ini; + var $4411 = self.idx; + var $4412 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4398, $4408), $4409, $4410, $4411, $4412); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $4414 = self.err; + var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $4416 = self.err; + var self = $4414; + switch (self._) { + case 'Maybe.some': + var $4418 = self.value; + var $4419 = Parser$Reply$error$(Parser$Error$combine$($4418, $4416)); + var $4417 = $4419; + break; + case 'Maybe.none': + var $4420 = Parser$Reply$error$($4416); + var $4417 = $4420; + break; + }; + var $4415 = $4417; + break; + case 'Parser.Reply.value': + var $4421 = self.pst; + var self = $4421; + switch (self._) { + case 'Parser.State.new': + var $4423 = self.err; + var $4424 = self.nam; + var $4425 = self.ini; + var $4426 = self.idx; + var $4427 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4414, $4423), $4424, $4425, $4426, $4427); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $4429 = self.err; + var _reply$78 = Kind$Parser$text$("abort", _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $4431 = self.err; + var self = $4429; + switch (self._) { + case 'Maybe.some': + var $4433 = self.value; + var $4434 = Parser$Reply$error$(Parser$Error$combine$($4433, $4431)); + var $4432 = $4434; + break; + case 'Maybe.none': + var $4435 = Parser$Reply$error$($4431); + var $4432 = $4435; + break; + }; + var $4430 = $4432; + break; + case 'Parser.Reply.value': + var $4436 = self.pst; + var self = $4436; + switch (self._) { + case 'Parser.State.new': + var $4438 = self.err; + var $4439 = self.nam; + var $4440 = self.ini; + var $4441 = self.idx; + var $4442 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4429, $4438), $4439, $4440, $4441, $4442); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $4444 = self.err; + var _reply$92 = Kind$Parser$term(_reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $4446 = self.err; + var self = $4444; + switch (self._) { + case 'Maybe.some': + var $4448 = self.value; + var $4449 = Parser$Reply$error$(Parser$Error$combine$($4448, $4446)); + var $4447 = $4449; + break; + case 'Maybe.none': + var $4450 = Parser$Reply$error$($4446); + var $4447 = $4450; + break; + }; + var $4445 = $4447; + break; + case 'Parser.Reply.value': + var $4451 = self.pst; + var $4452 = self.val; + var self = $4451; + switch (self._) { + case 'Parser.State.new': + var $4454 = self.err; + var $4455 = self.nam; + var $4456 = self.ini; + var $4457 = self.idx; + var $4458 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($4444, $4454), $4455, $4456, $4457, $4458); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $4460 = self.err; + var _reply$106 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $4462 = self.err; + var self = $4460; + switch (self._) { + case 'Maybe.some': + var $4464 = self.value; + var $4465 = Parser$Reply$error$(Parser$Error$combine$($4464, $4462)); + var $4463 = $4465; + break; + case 'Maybe.none': + var $4466 = Parser$Reply$error$($4462); + var $4463 = $4466; + break; + }; + var $4461 = $4463; + break; + case 'Parser.Reply.value': + var $4467 = self.pst; + var self = $4467; + switch (self._) { + case 'Parser.State.new': + var $4469 = self.err; + var $4470 = self.nam; + var $4471 = self.ini; + var $4472 = self.idx; + var $4473 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4460, $4469), $4470, $4471, $4472, $4473); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $4475 = self.err; + var _reply$120 = _body$1(Unit$new)(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $4477 = self.err; + var self = $4475; + switch (self._) { + case 'Maybe.some': + var $4479 = self.value; + var $4480 = Parser$Reply$error$(Parser$Error$combine$($4479, $4477)); + var $4478 = $4480; + break; + case 'Maybe.none': + var $4481 = Parser$Reply$error$($4477); + var $4478 = $4481; + break; + }; + var $4476 = $4478; + break; + case 'Parser.Reply.value': + var $4482 = self.pst; + var $4483 = self.val; + var self = $4482; + switch (self._) { + case 'Parser.State.new': + var $4485 = self.err; + var $4486 = self.nam; + var $4487 = self.ini; + var $4488 = self.idx; + var $4489 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($4475, $4485), $4486, $4487, $4488, $4489); + var _term$129 = $4406; + var _term$130 = Kind$Term$app$(_term$129, Kind$Term$lam$("", (_$130 => { + var $4491 = Kind$Term$hol$(Bits$e); + return $4491; + }))); + var _term$131 = Kind$Term$app$(_term$130, $4452); + var _term$132 = Kind$Term$app$(_term$131, Kind$Term$lam$($4375, (_$132 => { + var $4492 = $4483; + return $4492; + }))); + var $4490 = Parser$Reply$value$(_reply$pst$128, _term$132); + var $4484 = $4490; + break; + }; + var $4476 = $4484; + break; + }; + var $4474 = $4476; + break; + }; + var $4468 = $4474; + break; + }; + var $4461 = $4468; + break; + }; + var $4459 = $4461; + break; + }; + var $4453 = $4459; + break; + }; + var $4445 = $4453; + break; + }; + var $4443 = $4445; + break; + }; + var $4437 = $4443; + break; + }; + var $4430 = $4437; + break; + }; + var $4428 = $4430; + break; + }; + var $4422 = $4428; + break; + }; + var $4415 = $4422; + break; + }; + var $4413 = $4415; + break; + }; + var $4407 = $4413; + break; + }; + var $4399 = $4407; + break; + }; + var $4397 = $4399; + break; + }; + var $4391 = $4397; + break; + }; + var $4384 = $4391; + break; + }; + var $4382 = $4384; + break; + }; + var $4376 = $4382; + break; + }; + var $4368 = $4376; + break; + }; + var $4366 = $4368; + break; + }; + var $4360 = $4366; + break; + }; + var $4353 = $4360; + break; + }; + var $4351 = $4353; + break; + }; + return $4351; + })); + return $4350; + }; + const Kind$Parser$let$abort = x0 => Kind$Parser$let$abort$(x0); + + function Kind$Parser$let$(_body$1) { + var $4493 = Kind$Parser$block("let")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4495 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4497 = self.err; + var self = $4495; + switch (self._) { + case 'Maybe.some': + var $4499 = self.value; + var $4500 = Parser$Reply$error$(Parser$Error$combine$($4499, $4497)); + var $4498 = $4500; + break; + case 'Maybe.none': + var $4501 = Parser$Reply$error$($4497); + var $4498 = $4501; + break; + }; + var $4496 = $4498; + break; + case 'Parser.Reply.value': + var $4502 = self.pst; + var self = $4502; + switch (self._) { + case 'Parser.State.new': + var $4504 = self.err; + var $4505 = self.nam; + var $4506 = self.ini; + var $4507 = self.idx; + var $4508 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4495, $4504), $4505, $4506, $4507, $4508); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $4510 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $4512 = self.err; + var self = $4510; + switch (self._) { + case 'Maybe.some': + var $4514 = self.value; + var $4515 = Parser$Reply$error$(Parser$Error$combine$($4514, $4512)); + var $4513 = $4515; + break; + case 'Maybe.none': + var $4516 = Parser$Reply$error$($4512); + var $4513 = $4516; + break; + }; + var $4511 = $4513; + break; + case 'Parser.Reply.value': + var $4517 = self.pst; + var $4518 = self.val; + var self = $4517; + switch (self._) { + case 'Parser.State.new': + var $4520 = self.err; + var $4521 = self.nam; + var $4522 = self.ini; + var $4523 = self.idx; + var $4524 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4510, $4520), $4521, $4522, $4523, $4524); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $4526 = self.err; + var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $4528 = self.err; + var self = $4526; + switch (self._) { + case 'Maybe.some': + var $4530 = self.value; + var $4531 = Parser$Reply$error$(Parser$Error$combine$($4530, $4528)); + var $4529 = $4531; + break; + case 'Maybe.none': + var $4532 = Parser$Reply$error$($4528); + var $4529 = $4532; + break; + }; + var $4527 = $4529; + break; + case 'Parser.Reply.value': + var $4533 = self.pst; + var self = $4533; + switch (self._) { + case 'Parser.State.new': + var $4535 = self.err; + var $4536 = self.nam; + var $4537 = self.ini; + var $4538 = self.idx; + var $4539 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4526, $4535), $4536, $4537, $4538, $4539); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $4541 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $4543 = self.err; + var self = $4541; + switch (self._) { + case 'Maybe.some': + var $4545 = self.value; + var $4546 = Parser$Reply$error$(Parser$Error$combine$($4545, $4543)); + var $4544 = $4546; + break; + case 'Maybe.none': + var $4547 = Parser$Reply$error$($4543); + var $4544 = $4547; + break; + }; + var $4542 = $4544; + break; + case 'Parser.Reply.value': + var $4548 = self.pst; + var $4549 = self.val; + var self = $4548; + switch (self._) { + case 'Parser.State.new': + var $4551 = self.err; + var $4552 = self.nam; + var $4553 = self.ini; + var $4554 = self.idx; + var $4555 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4541, $4551), $4552, $4553, $4554, $4555); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $4557 = self.err; + var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $4559 = self.err; + var self = $4557; + switch (self._) { + case 'Maybe.some': + var $4561 = self.value; + var $4562 = Parser$Reply$error$(Parser$Error$combine$($4561, $4559)); + var $4560 = $4562; + break; + case 'Maybe.none': + var $4563 = Parser$Reply$error$($4559); + var $4560 = $4563; + break; + }; + var $4558 = $4560; + break; + case 'Parser.Reply.value': + var $4564 = self.pst; + var self = $4564; + switch (self._) { + case 'Parser.State.new': + var $4566 = self.err; + var $4567 = self.nam; + var $4568 = self.ini; + var $4569 = self.idx; + var $4570 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4557, $4566), $4567, $4568, $4569, $4570); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $4572 = self.err; + var _reply$78 = _body$1(Unit$new)(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $4574 = self.err; + var self = $4572; + switch (self._) { + case 'Maybe.some': + var $4576 = self.value; + var $4577 = Parser$Reply$error$(Parser$Error$combine$($4576, $4574)); + var $4575 = $4577; + break; + case 'Maybe.none': + var $4578 = Parser$Reply$error$($4574); + var $4575 = $4578; + break; + }; + var $4573 = $4575; + break; + case 'Parser.Reply.value': + var $4579 = self.pst; + var $4580 = self.val; + var self = $4579; + switch (self._) { + case 'Parser.State.new': + var $4582 = self.err; + var $4583 = self.nam; + var $4584 = self.ini; + var $4585 = self.idx; + var $4586 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4572, $4582), $4583, $4584, $4585, $4586); + var $4587 = Parser$Reply$value$(_reply$pst$86, Kind$Term$let$($4518, $4549, (_x$87 => { + var $4588 = $4580; + return $4588; + }))); + var $4581 = $4587; + break; + }; + var $4573 = $4581; + break; + }; + var $4571 = $4573; + break; + }; + var $4565 = $4571; + break; + }; + var $4558 = $4565; + break; + }; + var $4556 = $4558; + break; + }; + var $4550 = $4556; + break; + }; + var $4542 = $4550; + break; + }; + var $4540 = $4542; + break; + }; + var $4534 = $4540; + break; + }; + var $4527 = $4534; + break; + }; + var $4525 = $4527; + break; + }; + var $4519 = $4525; + break; + }; + var $4511 = $4519; + break; + }; + var $4509 = $4511; + break; + }; + var $4503 = $4509; + break; + }; + var $4496 = $4503; + break; + }; + var $4494 = $4496; + break; + }; + return $4494; + })); + return $4493; + }; + const Kind$Parser$let = x0 => Kind$Parser$let$(x0); + + function Kind$Parser$let$omit$(_body$1) { + var $4589 = Kind$Parser$block("let")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4591 = self.err; + var _reply$8 = Kind$Parser$name1$(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4593 = self.err; + var self = $4591; + switch (self._) { + case 'Maybe.some': + var $4595 = self.value; + var $4596 = Parser$Reply$error$(Parser$Error$combine$($4595, $4593)); + var $4594 = $4596; + break; + case 'Maybe.none': + var $4597 = Parser$Reply$error$($4593); + var $4594 = $4597; + break; + }; + var $4592 = $4594; + break; + case 'Parser.Reply.value': + var $4598 = self.pst; + var $4599 = self.val; + var self = $4598; + switch (self._) { + case 'Parser.State.new': + var $4601 = self.err; + var $4602 = self.nam; + var $4603 = self.ini; + var $4604 = self.idx; + var $4605 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4591, $4601), $4602, $4603, $4604, $4605); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $4607 = self.err; + var _reply$22 = Kind$Parser$text$("= ", _reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $4609 = self.err; + var self = $4607; + switch (self._) { + case 'Maybe.some': + var $4611 = self.value; + var $4612 = Parser$Reply$error$(Parser$Error$combine$($4611, $4609)); + var $4610 = $4612; + break; + case 'Maybe.none': + var $4613 = Parser$Reply$error$($4609); + var $4610 = $4613; + break; + }; + var $4608 = $4610; + break; + case 'Parser.Reply.value': + var $4614 = self.pst; + var self = $4614; + switch (self._) { + case 'Parser.State.new': + var $4616 = self.err; + var $4617 = self.nam; + var $4618 = self.ini; + var $4619 = self.idx; + var $4620 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4607, $4616), $4617, $4618, $4619, $4620); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $4622 = self.err; + var _reply$36 = Kind$Parser$term(_reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $4624 = self.err; + var self = $4622; + switch (self._) { + case 'Maybe.some': + var $4626 = self.value; + var $4627 = Parser$Reply$error$(Parser$Error$combine$($4626, $4624)); + var $4625 = $4627; + break; + case 'Maybe.none': + var $4628 = Parser$Reply$error$($4624); + var $4625 = $4628; + break; + }; + var $4623 = $4625; + break; + case 'Parser.Reply.value': + var $4629 = self.pst; + var $4630 = self.val; + var self = $4629; + switch (self._) { + case 'Parser.State.new': + var $4632 = self.err; + var $4633 = self.nam; + var $4634 = self.ini; + var $4635 = self.idx; + var $4636 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4622, $4632), $4633, $4634, $4635, $4636); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $4638 = self.err; + var _reply$50 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $4640 = self.err; + var self = $4638; + switch (self._) { + case 'Maybe.some': + var $4642 = self.value; + var $4643 = Parser$Reply$error$(Parser$Error$combine$($4642, $4640)); + var $4641 = $4643; + break; + case 'Maybe.none': + var $4644 = Parser$Reply$error$($4640); + var $4641 = $4644; + break; + }; + var $4639 = $4641; + break; + case 'Parser.Reply.value': + var $4645 = self.pst; + var self = $4645; + switch (self._) { + case 'Parser.State.new': + var $4647 = self.err; + var $4648 = self.nam; + var $4649 = self.ini; + var $4650 = self.idx; + var $4651 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4638, $4647), $4648, $4649, $4650, $4651); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $4653 = self.err; + var _reply$64 = _body$1(Unit$new)(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $4655 = self.err; + var self = $4653; + switch (self._) { + case 'Maybe.some': + var $4657 = self.value; + var $4658 = Parser$Reply$error$(Parser$Error$combine$($4657, $4655)); + var $4656 = $4658; + break; + case 'Maybe.none': + var $4659 = Parser$Reply$error$($4655); + var $4656 = $4659; + break; + }; + var $4654 = $4656; + break; + case 'Parser.Reply.value': + var $4660 = self.pst; + var $4661 = self.val; + var self = $4660; + switch (self._) { + case 'Parser.State.new': + var $4663 = self.err; + var $4664 = self.nam; + var $4665 = self.ini; + var $4666 = self.idx; + var $4667 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4653, $4663), $4664, $4665, $4666, $4667); + var $4668 = Parser$Reply$value$(_reply$pst$72, Kind$Term$let$($4599, $4630, (_x$73 => { + var $4669 = $4661; + return $4669; + }))); + var $4662 = $4668; + break; + }; + var $4654 = $4662; + break; + }; + var $4652 = $4654; + break; + }; + var $4646 = $4652; + break; + }; + var $4639 = $4646; + break; + }; + var $4637 = $4639; + break; + }; + var $4631 = $4637; + break; + }; + var $4623 = $4631; + break; + }; + var $4621 = $4623; + break; + }; + var $4615 = $4621; + break; + }; + var $4608 = $4615; + break; + }; + var $4606 = $4608; + break; + }; + var $4600 = $4606; + break; + }; + var $4592 = $4600; + break; + }; + var $4590 = $4592; + break; + }; + return $4590; + })); + return $4589; + }; + const Kind$Parser$let$omit = x0 => Kind$Parser$let$omit$(x0); + + function Kind$Parser$getwhile$(_body$1) { + var $4670 = Kind$Parser$block("let-while")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4672 = self.err; + var _reply$8 = Parser$maybe$(Kind$Parser$text("let "), _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4674 = self.err; + var self = $4672; + switch (self._) { + case 'Maybe.some': + var $4676 = self.value; + var $4677 = Parser$Reply$error$(Parser$Error$combine$($4676, $4674)); + var $4675 = $4677; + break; + case 'Maybe.none': + var $4678 = Parser$Reply$error$($4674); + var $4675 = $4678; + break; + }; + var $4673 = $4675; + break; + case 'Parser.Reply.value': + var $4679 = self.pst; + var self = $4679; + switch (self._) { + case 'Parser.State.new': + var $4681 = self.err; + var $4682 = self.nam; + var $4683 = self.ini; + var $4684 = self.idx; + var $4685 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4672, $4681), $4682, $4683, $4684, $4685); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $4687 = self.err; + var _reply$22 = Kind$Parser$text$("{", _reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $4689 = self.err; + var self = $4687; + switch (self._) { + case 'Maybe.some': + var $4691 = self.value; + var $4692 = Parser$Reply$error$(Parser$Error$combine$($4691, $4689)); + var $4690 = $4692; + break; + case 'Maybe.none': + var $4693 = Parser$Reply$error$($4689); + var $4690 = $4693; + break; + }; + var $4688 = $4690; + break; + case 'Parser.Reply.value': + var $4694 = self.pst; + var self = $4694; + switch (self._) { + case 'Parser.State.new': + var $4696 = self.err; + var $4697 = self.nam; + var $4698 = self.ini; + var $4699 = self.idx; + var $4700 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4687, $4696), $4697, $4698, $4699, $4700); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $4702 = self.err; + var _reply$36 = Kind$Parser$name1$(_reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $4704 = self.err; + var self = $4702; + switch (self._) { + case 'Maybe.some': + var $4706 = self.value; + var $4707 = Parser$Reply$error$(Parser$Error$combine$($4706, $4704)); + var $4705 = $4707; + break; + case 'Maybe.none': + var $4708 = Parser$Reply$error$($4704); + var $4705 = $4708; + break; + }; + var $4703 = $4705; + break; + case 'Parser.Reply.value': + var $4709 = self.pst; + var $4710 = self.val; + var self = $4709; + switch (self._) { + case 'Parser.State.new': + var $4712 = self.err; + var $4713 = self.nam; + var $4714 = self.ini; + var $4715 = self.idx; + var $4716 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4702, $4712), $4713, $4714, $4715, $4716); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $4718 = self.err; + var _reply$50 = Kind$Parser$text$(",", _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $4720 = self.err; + var self = $4718; + switch (self._) { + case 'Maybe.some': + var $4722 = self.value; + var $4723 = Parser$Reply$error$(Parser$Error$combine$($4722, $4720)); + var $4721 = $4723; + break; + case 'Maybe.none': + var $4724 = Parser$Reply$error$($4720); + var $4721 = $4724; + break; + }; + var $4719 = $4721; + break; + case 'Parser.Reply.value': + var $4725 = self.pst; + var self = $4725; + switch (self._) { + case 'Parser.State.new': + var $4727 = self.err; + var $4728 = self.nam; + var $4729 = self.ini; + var $4730 = self.idx; + var $4731 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4718, $4727), $4728, $4729, $4730, $4731); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $4733 = self.err; + var _reply$64 = Kind$Parser$name1$(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $4735 = self.err; + var self = $4733; + switch (self._) { + case 'Maybe.some': + var $4737 = self.value; + var $4738 = Parser$Reply$error$(Parser$Error$combine$($4737, $4735)); + var $4736 = $4738; + break; + case 'Maybe.none': + var $4739 = Parser$Reply$error$($4735); + var $4736 = $4739; + break; + }; + var $4734 = $4736; + break; + case 'Parser.Reply.value': + var $4740 = self.pst; + var $4741 = self.val; + var self = $4740; + switch (self._) { + case 'Parser.State.new': + var $4743 = self.err; + var $4744 = self.nam; + var $4745 = self.ini; + var $4746 = self.idx; + var $4747 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4733, $4743), $4744, $4745, $4746, $4747); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $4749 = self.err; + var _reply$78 = Kind$Parser$text$("}", _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $4751 = self.err; + var self = $4749; + switch (self._) { + case 'Maybe.some': + var $4753 = self.value; + var $4754 = Parser$Reply$error$(Parser$Error$combine$($4753, $4751)); + var $4752 = $4754; + break; + case 'Maybe.none': + var $4755 = Parser$Reply$error$($4751); + var $4752 = $4755; + break; + }; + var $4750 = $4752; + break; + case 'Parser.Reply.value': + var $4756 = self.pst; + var self = $4756; + switch (self._) { + case 'Parser.State.new': + var $4758 = self.err; + var $4759 = self.nam; + var $4760 = self.ini; + var $4761 = self.idx; + var $4762 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4749, $4758), $4759, $4760, $4761, $4762); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $4764 = self.err; + var _reply$92 = Kind$Parser$text$("=", _reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $4766 = self.err; + var self = $4764; + switch (self._) { + case 'Maybe.some': + var $4768 = self.value; + var $4769 = Parser$Reply$error$(Parser$Error$combine$($4768, $4766)); + var $4767 = $4769; + break; + case 'Maybe.none': + var $4770 = Parser$Reply$error$($4766); + var $4767 = $4770; + break; + }; + var $4765 = $4767; + break; + case 'Parser.Reply.value': + var $4771 = self.pst; + var self = $4771; + switch (self._) { + case 'Parser.State.new': + var $4773 = self.err; + var $4774 = self.nam; + var $4775 = self.ini; + var $4776 = self.idx; + var $4777 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($4764, $4773), $4774, $4775, $4776, $4777); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $4779 = self.err; + var _reply$106 = Kind$Parser$text$("while ", _reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $4781 = self.err; + var self = $4779; + switch (self._) { + case 'Maybe.some': + var $4783 = self.value; + var $4784 = Parser$Reply$error$(Parser$Error$combine$($4783, $4781)); + var $4782 = $4784; + break; + case 'Maybe.none': + var $4785 = Parser$Reply$error$($4781); + var $4782 = $4785; + break; + }; + var $4780 = $4782; + break; + case 'Parser.Reply.value': + var $4786 = self.pst; + var self = $4786; + switch (self._) { + case 'Parser.State.new': + var $4788 = self.err; + var $4789 = self.nam; + var $4790 = self.ini; + var $4791 = self.idx; + var $4792 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4779, $4788), $4789, $4790, $4791, $4792); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $4794 = self.err; + var _reply$120 = Kind$Parser$term(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $4796 = self.err; + var self = $4794; + switch (self._) { + case 'Maybe.some': + var $4798 = self.value; + var $4799 = Parser$Reply$error$(Parser$Error$combine$($4798, $4796)); + var $4797 = $4799; + break; + case 'Maybe.none': + var $4800 = Parser$Reply$error$($4796); + var $4797 = $4800; + break; + }; + var $4795 = $4797; + break; + case 'Parser.Reply.value': + var $4801 = self.pst; + var $4802 = self.val; + var self = $4801; + switch (self._) { + case 'Parser.State.new': + var $4804 = self.err; + var $4805 = self.nam; + var $4806 = self.ini; + var $4807 = self.idx; + var $4808 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($4794, $4804), $4805, $4806, $4807, $4808); + var self = _reply$pst$128; + switch (self._) { + case 'Parser.State.new': + var $4810 = self.err; + var _reply$134 = Kind$Parser$text$(":", _reply$pst$128); + var self = _reply$134; + switch (self._) { + case 'Parser.Reply.error': + var $4812 = self.err; + var self = $4810; + switch (self._) { + case 'Maybe.some': + var $4814 = self.value; + var $4815 = Parser$Reply$error$(Parser$Error$combine$($4814, $4812)); + var $4813 = $4815; + break; + case 'Maybe.none': + var $4816 = Parser$Reply$error$($4812); + var $4813 = $4816; + break; + }; + var $4811 = $4813; + break; + case 'Parser.Reply.value': + var $4817 = self.pst; + var self = $4817; + switch (self._) { + case 'Parser.State.new': + var $4819 = self.err; + var $4820 = self.nam; + var $4821 = self.ini; + var $4822 = self.idx; + var $4823 = self.str; + var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($4810, $4819), $4820, $4821, $4822, $4823); + var self = _reply$pst$142; + switch (self._) { + case 'Parser.State.new': + var $4825 = self.err; + var _reply$148 = Kind$Parser$term(_reply$pst$142); + var self = _reply$148; + switch (self._) { + case 'Parser.Reply.error': + var $4827 = self.err; + var self = $4825; + switch (self._) { + case 'Maybe.some': + var $4829 = self.value; + var $4830 = Parser$Reply$error$(Parser$Error$combine$($4829, $4827)); + var $4828 = $4830; + break; + case 'Maybe.none': + var $4831 = Parser$Reply$error$($4827); + var $4828 = $4831; + break; + }; + var $4826 = $4828; + break; + case 'Parser.Reply.value': + var $4832 = self.pst; + var $4833 = self.val; + var self = $4832; + switch (self._) { + case 'Parser.State.new': + var $4835 = self.err; + var $4836 = self.nam; + var $4837 = self.ini; + var $4838 = self.idx; + var $4839 = self.str; + var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($4825, $4835), $4836, $4837, $4838, $4839); + var self = _reply$pst$156; + switch (self._) { + case 'Parser.State.new': + var $4841 = self.err; + var _reply$162 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$156); + var self = _reply$162; + switch (self._) { + case 'Parser.Reply.error': + var $4843 = self.err; + var self = $4841; + switch (self._) { + case 'Maybe.some': + var $4845 = self.value; + var $4846 = Parser$Reply$error$(Parser$Error$combine$($4845, $4843)); + var $4844 = $4846; + break; + case 'Maybe.none': + var $4847 = Parser$Reply$error$($4843); + var $4844 = $4847; + break; + }; + var $4842 = $4844; + break; + case 'Parser.Reply.value': + var $4848 = self.pst; + var self = $4848; + switch (self._) { + case 'Parser.State.new': + var $4850 = self.err; + var $4851 = self.nam; + var $4852 = self.ini; + var $4853 = self.idx; + var $4854 = self.str; + var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($4841, $4850), $4851, $4852, $4853, $4854); + var self = _reply$pst$170; + switch (self._) { + case 'Parser.State.new': + var $4856 = self.err; + var _reply$176 = _body$1(Unit$new)(_reply$pst$170); + var self = _reply$176; + switch (self._) { + case 'Parser.Reply.error': + var $4858 = self.err; + var self = $4856; + switch (self._) { + case 'Maybe.some': + var $4860 = self.value; + var $4861 = Parser$Reply$error$(Parser$Error$combine$($4860, $4858)); + var $4859 = $4861; + break; + case 'Maybe.none': + var $4862 = Parser$Reply$error$($4858); + var $4859 = $4862; + break; + }; + var $4857 = $4859; + break; + case 'Parser.Reply.value': + var $4863 = self.pst; + var $4864 = self.val; + var self = $4863; + switch (self._) { + case 'Parser.State.new': + var $4866 = self.err; + var $4867 = self.nam; + var $4868 = self.ini; + var $4869 = self.idx; + var $4870 = self.str; + var _reply$pst$184 = Parser$State$new$(Parser$Error$maybe_combine$($4856, $4866), $4867, $4868, $4869, $4870); + var _moti$185 = Kind$Term$lam$("", (_x$185 => { + var $4872 = Kind$Term$hol$(Bits$e); + return $4872; + })); + var _term$186 = Kind$Term$ref$("Function.while"); + var _term$187 = Kind$Term$app$(_term$186, Kind$Term$hol$(Bits$e)); + var _init$188 = Kind$Term$ref$("Pair.new"); + var _init$189 = Kind$Term$app$(_init$188, Kind$Term$hol$(Bits$e)); + var _init$190 = Kind$Term$app$(_init$189, Kind$Term$hol$(Bits$e)); + var _init$191 = Kind$Term$app$(_init$190, Kind$Term$ref$($4710)); + var _init$192 = Kind$Term$app$(_init$191, Kind$Term$ref$($4741)); + var _term$193 = Kind$Term$app$(_term$187, _init$192); + var _term$194 = Kind$Term$app$(_term$193, Kind$Term$lam$("s", (_s$194 => { + var $4873 = Kind$Term$app$(Kind$Term$app$(_s$194, _moti$185), Kind$Term$lam$($4710, (_x$195 => { + var $4874 = Kind$Term$lam$($4741, (_y$196 => { + var $4875 = $4802; + return $4875; + })); + return $4874; + }))); + return $4873; + }))); + var _term$195 = Kind$Term$app$(_term$194, Kind$Term$lam$("s", (_s$195 => { + var $4876 = Kind$Term$app$(Kind$Term$app$(_s$195, _moti$185), Kind$Term$lam$($4710, (_x$196 => { + var $4877 = Kind$Term$lam$($4741, (_y$197 => { + var $4878 = $4833; + return $4878; + })); + return $4877; + }))); + return $4876; + }))); + var _term$196 = Kind$Term$app$(Kind$Term$app$(_term$195, _moti$185), Kind$Term$lam$($4710, (_x$196 => { + var $4879 = Kind$Term$lam$($4741, (_y$197 => { + var $4880 = $4864; + return $4880; + })); + return $4879; + }))); + var $4871 = Parser$Reply$value$(_reply$pst$184, _term$196); + var $4865 = $4871; + break; + }; + var $4857 = $4865; + break; + }; + var $4855 = $4857; + break; + }; + var $4849 = $4855; + break; + }; + var $4842 = $4849; + break; + }; + var $4840 = $4842; + break; + }; + var $4834 = $4840; + break; + }; + var $4826 = $4834; + break; + }; + var $4824 = $4826; + break; + }; + var $4818 = $4824; + break; + }; + var $4811 = $4818; + break; + }; + var $4809 = $4811; + break; + }; + var $4803 = $4809; + break; + }; + var $4795 = $4803; + break; + }; + var $4793 = $4795; + break; + }; + var $4787 = $4793; + break; + }; + var $4780 = $4787; + break; + }; + var $4778 = $4780; + break; + }; + var $4772 = $4778; + break; + }; + var $4765 = $4772; + break; + }; + var $4763 = $4765; + break; + }; + var $4757 = $4763; + break; + }; + var $4750 = $4757; + break; + }; + var $4748 = $4750; + break; + }; + var $4742 = $4748; + break; + }; + var $4734 = $4742; + break; + }; + var $4732 = $4734; + break; + }; + var $4726 = $4732; + break; + }; + var $4719 = $4726; + break; + }; + var $4717 = $4719; + break; + }; + var $4711 = $4717; + break; + }; + var $4703 = $4711; + break; + }; + var $4701 = $4703; + break; + }; + var $4695 = $4701; + break; + }; + var $4688 = $4695; + break; + }; + var $4686 = $4688; + break; + }; + var $4680 = $4686; + break; + }; + var $4673 = $4680; + break; + }; + var $4671 = $4673; + break; + }; + return $4671; + })); + return $4670; + }; + const Kind$Parser$getwhile = x0 => Kind$Parser$getwhile$(x0); + + function Kind$Parser$getwhile$with$(_body$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $4882 = self.err; + var _reply$8 = Kind$Parser$text$("while ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $4884 = self.err; + var self = $4882; + switch (self._) { + case 'Maybe.some': + var $4886 = self.value; + var $4887 = Parser$Reply$error$(Parser$Error$combine$($4886, $4884)); + var $4885 = $4887; + break; + case 'Maybe.none': + var $4888 = Parser$Reply$error$($4884); + var $4885 = $4888; + break; + }; + var $4883 = $4885; + break; + case 'Parser.Reply.value': + var $4889 = self.pst; + var self = $4889; + switch (self._) { + case 'Parser.State.new': + var $4891 = self.err; + var $4892 = self.nam; + var $4893 = self.ini; + var $4894 = self.idx; + var $4895 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($4882, $4891), $4892, $4893, $4894, $4895); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $4897 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $4899 = self.err; + var self = $4897; + switch (self._) { + case 'Maybe.some': + var $4901 = self.value; + var $4902 = Parser$Reply$error$(Parser$Error$combine$($4901, $4899)); + var $4900 = $4902; + break; + case 'Maybe.none': + var $4903 = Parser$Reply$error$($4899); + var $4900 = $4903; + break; + }; + var $4898 = $4900; + break; + case 'Parser.Reply.value': + var $4904 = self.pst; + var $4905 = self.val; + var self = $4904; + switch (self._) { + case 'Parser.State.new': + var $4907 = self.err; + var $4908 = self.nam; + var $4909 = self.ini; + var $4910 = self.idx; + var $4911 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($4897, $4907), $4908, $4909, $4910, $4911); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $4913 = self.err; + var _reply$36 = Kind$Parser$text$("with ", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $4915 = self.err; + var self = $4913; + switch (self._) { + case 'Maybe.some': + var $4917 = self.value; + var $4918 = Parser$Reply$error$(Parser$Error$combine$($4917, $4915)); + var $4916 = $4918; + break; + case 'Maybe.none': + var $4919 = Parser$Reply$error$($4915); + var $4916 = $4919; + break; + }; + var $4914 = $4916; + break; + case 'Parser.Reply.value': + var $4920 = self.pst; + var self = $4920; + switch (self._) { + case 'Parser.State.new': + var $4922 = self.err; + var $4923 = self.nam; + var $4924 = self.ini; + var $4925 = self.idx; + var $4926 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($4913, $4922), $4923, $4924, $4925, $4926); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $4928 = self.err; + var _reply$50 = Kind$Parser$text$("{", _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $4930 = self.err; + var self = $4928; + switch (self._) { + case 'Maybe.some': + var $4932 = self.value; + var $4933 = Parser$Reply$error$(Parser$Error$combine$($4932, $4930)); + var $4931 = $4933; + break; + case 'Maybe.none': + var $4934 = Parser$Reply$error$($4930); + var $4931 = $4934; + break; + }; + var $4929 = $4931; + break; + case 'Parser.Reply.value': + var $4935 = self.pst; + var self = $4935; + switch (self._) { + case 'Parser.State.new': + var $4937 = self.err; + var $4938 = self.nam; + var $4939 = self.ini; + var $4940 = self.idx; + var $4941 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($4928, $4937), $4938, $4939, $4940, $4941); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $4943 = self.err; + var _reply$64 = Kind$Parser$name1$(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $4945 = self.err; + var self = $4943; + switch (self._) { + case 'Maybe.some': + var $4947 = self.value; + var $4948 = Parser$Reply$error$(Parser$Error$combine$($4947, $4945)); + var $4946 = $4948; + break; + case 'Maybe.none': + var $4949 = Parser$Reply$error$($4945); + var $4946 = $4949; + break; + }; + var $4944 = $4946; + break; + case 'Parser.Reply.value': + var $4950 = self.pst; + var $4951 = self.val; + var self = $4950; + switch (self._) { + case 'Parser.State.new': + var $4953 = self.err; + var $4954 = self.nam; + var $4955 = self.ini; + var $4956 = self.idx; + var $4957 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($4943, $4953), $4954, $4955, $4956, $4957); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $4959 = self.err; + var _reply$78 = Kind$Parser$text$(",", _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $4961 = self.err; + var self = $4959; + switch (self._) { + case 'Maybe.some': + var $4963 = self.value; + var $4964 = Parser$Reply$error$(Parser$Error$combine$($4963, $4961)); + var $4962 = $4964; + break; + case 'Maybe.none': + var $4965 = Parser$Reply$error$($4961); + var $4962 = $4965; + break; + }; + var $4960 = $4962; + break; + case 'Parser.Reply.value': + var $4966 = self.pst; + var self = $4966; + switch (self._) { + case 'Parser.State.new': + var $4968 = self.err; + var $4969 = self.nam; + var $4970 = self.ini; + var $4971 = self.idx; + var $4972 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($4959, $4968), $4969, $4970, $4971, $4972); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $4974 = self.err; + var _reply$92 = Kind$Parser$name1$(_reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $4976 = self.err; + var self = $4974; + switch (self._) { + case 'Maybe.some': + var $4978 = self.value; + var $4979 = Parser$Reply$error$(Parser$Error$combine$($4978, $4976)); + var $4977 = $4979; + break; + case 'Maybe.none': + var $4980 = Parser$Reply$error$($4976); + var $4977 = $4980; + break; + }; + var $4975 = $4977; + break; + case 'Parser.Reply.value': + var $4981 = self.pst; + var $4982 = self.val; + var self = $4981; + switch (self._) { + case 'Parser.State.new': + var $4984 = self.err; + var $4985 = self.nam; + var $4986 = self.ini; + var $4987 = self.idx; + var $4988 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($4974, $4984), $4985, $4986, $4987, $4988); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $4990 = self.err; + var _reply$106 = Kind$Parser$text$("}", _reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $4992 = self.err; + var self = $4990; + switch (self._) { + case 'Maybe.some': + var $4994 = self.value; + var $4995 = Parser$Reply$error$(Parser$Error$combine$($4994, $4992)); + var $4993 = $4995; + break; + case 'Maybe.none': + var $4996 = Parser$Reply$error$($4992); + var $4993 = $4996; + break; + }; + var $4991 = $4993; + break; + case 'Parser.Reply.value': + var $4997 = self.pst; + var self = $4997; + switch (self._) { + case 'Parser.State.new': + var $4999 = self.err; + var $5000 = self.nam; + var $5001 = self.ini; + var $5002 = self.idx; + var $5003 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4990, $4999), $5000, $5001, $5002, $5003); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $5005 = self.err; + var _reply$120 = Kind$Parser$text$(":", _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $5007 = self.err; + var self = $5005; + switch (self._) { + case 'Maybe.some': + var $5009 = self.value; + var $5010 = Parser$Reply$error$(Parser$Error$combine$($5009, $5007)); + var $5008 = $5010; + break; + case 'Maybe.none': + var $5011 = Parser$Reply$error$($5007); + var $5008 = $5011; + break; + }; + var $5006 = $5008; + break; + case 'Parser.Reply.value': + var $5012 = self.pst; + var self = $5012; + switch (self._) { + case 'Parser.State.new': + var $5014 = self.err; + var $5015 = self.nam; + var $5016 = self.ini; + var $5017 = self.idx; + var $5018 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($5005, $5014), $5015, $5016, $5017, $5018); + var self = _reply$pst$128; + switch (self._) { + case 'Parser.State.new': + var $5020 = self.err; + var _reply$134 = Kind$Parser$term(_reply$pst$128); + var self = _reply$134; + switch (self._) { + case 'Parser.Reply.error': + var $5022 = self.err; + var self = $5020; + switch (self._) { + case 'Maybe.some': + var $5024 = self.value; + var $5025 = Parser$Reply$error$(Parser$Error$combine$($5024, $5022)); + var $5023 = $5025; + break; + case 'Maybe.none': + var $5026 = Parser$Reply$error$($5022); + var $5023 = $5026; + break; + }; + var $5021 = $5023; + break; + case 'Parser.Reply.value': + var $5027 = self.pst; + var $5028 = self.val; + var self = $5027; + switch (self._) { + case 'Parser.State.new': + var $5030 = self.err; + var $5031 = self.nam; + var $5032 = self.ini; + var $5033 = self.idx; + var $5034 = self.str; + var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($5020, $5030), $5031, $5032, $5033, $5034); + var self = _reply$pst$142; + switch (self._) { + case 'Parser.State.new': + var $5036 = self.err; + var _reply$148 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$142); + var self = _reply$148; + switch (self._) { + case 'Parser.Reply.error': + var $5038 = self.err; + var self = $5036; + switch (self._) { + case 'Maybe.some': + var $5040 = self.value; + var $5041 = Parser$Reply$error$(Parser$Error$combine$($5040, $5038)); + var $5039 = $5041; + break; + case 'Maybe.none': + var $5042 = Parser$Reply$error$($5038); + var $5039 = $5042; + break; + }; + var $5037 = $5039; + break; + case 'Parser.Reply.value': + var $5043 = self.pst; + var self = $5043; + switch (self._) { + case 'Parser.State.new': + var $5045 = self.err; + var $5046 = self.nam; + var $5047 = self.ini; + var $5048 = self.idx; + var $5049 = self.str; + var _reply$pst$156 = Parser$State$new$(Parser$Error$maybe_combine$($5036, $5045), $5046, $5047, $5048, $5049); + var self = _reply$pst$156; + switch (self._) { + case 'Parser.State.new': + var $5051 = self.err; + var _reply$162 = _body$1(Unit$new)(_reply$pst$156); + var self = _reply$162; + switch (self._) { + case 'Parser.Reply.error': + var $5053 = self.err; + var self = $5051; + switch (self._) { + case 'Maybe.some': + var $5055 = self.value; + var $5056 = Parser$Reply$error$(Parser$Error$combine$($5055, $5053)); + var $5054 = $5056; + break; + case 'Maybe.none': + var $5057 = Parser$Reply$error$($5053); + var $5054 = $5057; + break; + }; + var $5052 = $5054; + break; + case 'Parser.Reply.value': + var $5058 = self.pst; + var $5059 = self.val; + var self = $5058; + switch (self._) { + case 'Parser.State.new': + var $5061 = self.err; + var $5062 = self.nam; + var $5063 = self.ini; + var $5064 = self.idx; + var $5065 = self.str; + var _reply$pst$170 = Parser$State$new$(Parser$Error$maybe_combine$($5051, $5061), $5062, $5063, $5064, $5065); + var _moti$171 = Kind$Term$lam$("", (_x$171 => { + var $5067 = Kind$Term$hol$(Bits$e); + return $5067; + })); + var _term$172 = Kind$Term$ref$("Function.while"); + var _term$173 = Kind$Term$app$(_term$172, Kind$Term$hol$(Bits$e)); + var _init$174 = Kind$Term$ref$("Pair.new"); + var _init$175 = Kind$Term$app$(_init$174, Kind$Term$hol$(Bits$e)); + var _init$176 = Kind$Term$app$(_init$175, Kind$Term$hol$(Bits$e)); + var _init$177 = Kind$Term$app$(_init$176, Kind$Term$ref$($4951)); + var _init$178 = Kind$Term$app$(_init$177, Kind$Term$ref$($4982)); + var _term$179 = Kind$Term$app$(_term$173, _init$178); + var _term$180 = Kind$Term$app$(_term$179, Kind$Term$lam$("s", (_s$180 => { + var $5068 = Kind$Term$app$(Kind$Term$app$(_s$180, _moti$171), Kind$Term$lam$($4951, (_x$181 => { + var $5069 = Kind$Term$lam$($4982, (_y$182 => { + var $5070 = $4905; + return $5070; + })); + return $5069; + }))); + return $5068; + }))); + var _term$181 = Kind$Term$app$(_term$180, Kind$Term$lam$("s", (_s$181 => { + var $5071 = Kind$Term$app$(Kind$Term$app$(_s$181, _moti$171), Kind$Term$lam$($4951, (_x$182 => { + var $5072 = Kind$Term$lam$($4982, (_y$183 => { + var $5073 = $5028; + return $5073; + })); + return $5072; + }))); + return $5071; + }))); + var _term$182 = Kind$Term$app$(Kind$Term$app$(_term$181, _moti$171), Kind$Term$lam$($4951, (_x$182 => { + var $5074 = Kind$Term$lam$($4982, (_y$183 => { + var $5075 = $5059; + return $5075; + })); + return $5074; + }))); + var $5066 = Parser$Reply$value$(_reply$pst$170, _term$182); + var $5060 = $5066; + break; + }; + var $5052 = $5060; + break; + }; + var $5050 = $5052; + break; + }; + var $5044 = $5050; + break; + }; + var $5037 = $5044; + break; + }; + var $5035 = $5037; + break; + }; + var $5029 = $5035; + break; + }; + var $5021 = $5029; + break; + }; + var $5019 = $5021; + break; + }; + var $5013 = $5019; + break; + }; + var $5006 = $5013; + break; + }; + var $5004 = $5006; + break; + }; + var $4998 = $5004; + break; + }; + var $4991 = $4998; + break; + }; + var $4989 = $4991; + break; + }; + var $4983 = $4989; + break; + }; + var $4975 = $4983; + break; + }; + var $4973 = $4975; + break; + }; + var $4967 = $4973; + break; + }; + var $4960 = $4967; + break; + }; + var $4958 = $4960; + break; + }; + var $4952 = $4958; + break; + }; + var $4944 = $4952; + break; + }; + var $4942 = $4944; + break; + }; + var $4936 = $4942; + break; + }; + var $4929 = $4936; + break; + }; + var $4927 = $4929; + break; + }; + var $4921 = $4927; + break; + }; + var $4914 = $4921; + break; + }; + var $4912 = $4914; + break; + }; + var $4906 = $4912; + break; + }; + var $4898 = $4906; + break; + }; + var $4896 = $4898; + break; + }; + var $4890 = $4896; + break; + }; + var $4883 = $4890; + break; + }; + var $4881 = $4883; + break; + }; + return $4881; + }; + const Kind$Parser$getwhile$with = x0 => x1 => Kind$Parser$getwhile$with$(x0, x1); + + function Kind$Parser$get$(_body$1) { + var $5076 = Kind$Parser$block("let")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5078 = self.err; + var _reply$8 = Kind$Parser$text$("let ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5080 = self.err; + var self = $5078; + switch (self._) { + case 'Maybe.some': + var $5082 = self.value; + var $5083 = Parser$Reply$error$(Parser$Error$combine$($5082, $5080)); + var $5081 = $5083; + break; + case 'Maybe.none': + var $5084 = Parser$Reply$error$($5080); + var $5081 = $5084; + break; + }; + var $5079 = $5081; + break; + case 'Parser.Reply.value': + var $5085 = self.pst; + var self = $5085; + switch (self._) { + case 'Parser.State.new': + var $5087 = self.err; + var $5088 = self.nam; + var $5089 = self.ini; + var $5090 = self.idx; + var $5091 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5078, $5087), $5088, $5089, $5090, $5091); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $5093 = self.err; + var _reply$22 = Kind$Parser$text$("{", _reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $5095 = self.err; + var self = $5093; + switch (self._) { + case 'Maybe.some': + var $5097 = self.value; + var $5098 = Parser$Reply$error$(Parser$Error$combine$($5097, $5095)); + var $5096 = $5098; + break; + case 'Maybe.none': + var $5099 = Parser$Reply$error$($5095); + var $5096 = $5099; + break; + }; + var $5094 = $5096; + break; + case 'Parser.Reply.value': + var $5100 = self.pst; + var self = $5100; + switch (self._) { + case 'Parser.State.new': + var $5102 = self.err; + var $5103 = self.nam; + var $5104 = self.ini; + var $5105 = self.idx; + var $5106 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($5093, $5102), $5103, $5104, $5105, $5106); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $5108 = self.err; + var _reply$36 = Kind$Parser$name1$(_reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $5110 = self.err; + var self = $5108; + switch (self._) { + case 'Maybe.some': + var $5112 = self.value; + var $5113 = Parser$Reply$error$(Parser$Error$combine$($5112, $5110)); + var $5111 = $5113; + break; + case 'Maybe.none': + var $5114 = Parser$Reply$error$($5110); + var $5111 = $5114; + break; + }; + var $5109 = $5111; + break; + case 'Parser.Reply.value': + var $5115 = self.pst; + var $5116 = self.val; + var self = $5115; + switch (self._) { + case 'Parser.State.new': + var $5118 = self.err; + var $5119 = self.nam; + var $5120 = self.ini; + var $5121 = self.idx; + var $5122 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($5108, $5118), $5119, $5120, $5121, $5122); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $5124 = self.err; + var _reply$50 = Kind$Parser$text$(",", _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $5126 = self.err; + var self = $5124; + switch (self._) { + case 'Maybe.some': + var $5128 = self.value; + var $5129 = Parser$Reply$error$(Parser$Error$combine$($5128, $5126)); + var $5127 = $5129; + break; + case 'Maybe.none': + var $5130 = Parser$Reply$error$($5126); + var $5127 = $5130; + break; + }; + var $5125 = $5127; + break; + case 'Parser.Reply.value': + var $5131 = self.pst; + var self = $5131; + switch (self._) { + case 'Parser.State.new': + var $5133 = self.err; + var $5134 = self.nam; + var $5135 = self.ini; + var $5136 = self.idx; + var $5137 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($5124, $5133), $5134, $5135, $5136, $5137); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $5139 = self.err; + var _reply$64 = Kind$Parser$name1$(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $5141 = self.err; + var self = $5139; + switch (self._) { + case 'Maybe.some': + var $5143 = self.value; + var $5144 = Parser$Reply$error$(Parser$Error$combine$($5143, $5141)); + var $5142 = $5144; + break; + case 'Maybe.none': + var $5145 = Parser$Reply$error$($5141); + var $5142 = $5145; + break; + }; + var $5140 = $5142; + break; + case 'Parser.Reply.value': + var $5146 = self.pst; + var $5147 = self.val; + var self = $5146; + switch (self._) { + case 'Parser.State.new': + var $5149 = self.err; + var $5150 = self.nam; + var $5151 = self.ini; + var $5152 = self.idx; + var $5153 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($5139, $5149), $5150, $5151, $5152, $5153); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $5155 = self.err; + var _reply$78 = Kind$Parser$text$("}", _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $5157 = self.err; + var self = $5155; + switch (self._) { + case 'Maybe.some': + var $5159 = self.value; + var $5160 = Parser$Reply$error$(Parser$Error$combine$($5159, $5157)); + var $5158 = $5160; + break; + case 'Maybe.none': + var $5161 = Parser$Reply$error$($5157); + var $5158 = $5161; + break; + }; + var $5156 = $5158; + break; + case 'Parser.Reply.value': + var $5162 = self.pst; + var self = $5162; + switch (self._) { + case 'Parser.State.new': + var $5164 = self.err; + var $5165 = self.nam; + var $5166 = self.ini; + var $5167 = self.idx; + var $5168 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($5155, $5164), $5165, $5166, $5167, $5168); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $5170 = self.err; + var _reply$92 = Kind$Parser$text$("=", _reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $5172 = self.err; + var self = $5170; + switch (self._) { + case 'Maybe.some': + var $5174 = self.value; + var $5175 = Parser$Reply$error$(Parser$Error$combine$($5174, $5172)); + var $5173 = $5175; + break; + case 'Maybe.none': + var $5176 = Parser$Reply$error$($5172); + var $5173 = $5176; + break; + }; + var $5171 = $5173; + break; + case 'Parser.Reply.value': + var $5177 = self.pst; + var self = $5177; + switch (self._) { + case 'Parser.State.new': + var $5179 = self.err; + var $5180 = self.nam; + var $5181 = self.ini; + var $5182 = self.idx; + var $5183 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($5170, $5179), $5180, $5181, $5182, $5183); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $5185 = self.err; + var _reply$106 = Kind$Parser$term(_reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $5187 = self.err; + var self = $5185; + switch (self._) { + case 'Maybe.some': + var $5189 = self.value; + var $5190 = Parser$Reply$error$(Parser$Error$combine$($5189, $5187)); + var $5188 = $5190; + break; + case 'Maybe.none': + var $5191 = Parser$Reply$error$($5187); + var $5188 = $5191; + break; + }; + var $5186 = $5188; + break; + case 'Parser.Reply.value': + var $5192 = self.pst; + var $5193 = self.val; + var self = $5192; + switch (self._) { + case 'Parser.State.new': + var $5195 = self.err; + var $5196 = self.nam; + var $5197 = self.ini; + var $5198 = self.idx; + var $5199 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5185, $5195), $5196, $5197, $5198, $5199); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $5201 = self.err; + var _reply$120 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $5203 = self.err; + var self = $5201; + switch (self._) { + case 'Maybe.some': + var $5205 = self.value; + var $5206 = Parser$Reply$error$(Parser$Error$combine$($5205, $5203)); + var $5204 = $5206; + break; + case 'Maybe.none': + var $5207 = Parser$Reply$error$($5203); + var $5204 = $5207; + break; + }; + var $5202 = $5204; + break; + case 'Parser.Reply.value': + var $5208 = self.pst; + var self = $5208; + switch (self._) { + case 'Parser.State.new': + var $5210 = self.err; + var $5211 = self.nam; + var $5212 = self.ini; + var $5213 = self.idx; + var $5214 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($5201, $5210), $5211, $5212, $5213, $5214); + var self = _reply$pst$128; + switch (self._) { + case 'Parser.State.new': + var $5216 = self.err; + var _reply$134 = _body$1(Unit$new)(_reply$pst$128); + var self = _reply$134; + switch (self._) { + case 'Parser.Reply.error': + var $5218 = self.err; + var self = $5216; + switch (self._) { + case 'Maybe.some': + var $5220 = self.value; + var $5221 = Parser$Reply$error$(Parser$Error$combine$($5220, $5218)); + var $5219 = $5221; + break; + case 'Maybe.none': + var $5222 = Parser$Reply$error$($5218); + var $5219 = $5222; + break; + }; + var $5217 = $5219; + break; + case 'Parser.Reply.value': + var $5223 = self.pst; + var $5224 = self.val; + var self = $5223; + switch (self._) { + case 'Parser.State.new': + var $5226 = self.err; + var $5227 = self.nam; + var $5228 = self.ini; + var $5229 = self.idx; + var $5230 = self.str; + var _reply$pst$142 = Parser$State$new$(Parser$Error$maybe_combine$($5216, $5226), $5227, $5228, $5229, $5230); + var _term$143 = $5193; + var _term$144 = Kind$Term$app$(_term$143, Kind$Term$lam$("", (_x$144 => { + var $5232 = Kind$Term$hol$(Bits$e); + return $5232; + }))); + var _term$145 = Kind$Term$app$(_term$144, Kind$Term$lam$($5116, (_x$145 => { + var $5233 = Kind$Term$lam$($5147, (_y$146 => { + var $5234 = $5224; + return $5234; + })); + return $5233; + }))); + var $5231 = Parser$Reply$value$(_reply$pst$142, _term$145); + var $5225 = $5231; + break; + }; + var $5217 = $5225; + break; + }; + var $5215 = $5217; + break; + }; + var $5209 = $5215; + break; + }; + var $5202 = $5209; + break; + }; + var $5200 = $5202; + break; + }; + var $5194 = $5200; + break; + }; + var $5186 = $5194; + break; + }; + var $5184 = $5186; + break; + }; + var $5178 = $5184; + break; + }; + var $5171 = $5178; + break; + }; + var $5169 = $5171; + break; + }; + var $5163 = $5169; + break; + }; + var $5156 = $5163; + break; + }; + var $5154 = $5156; + break; + }; + var $5148 = $5154; + break; + }; + var $5140 = $5148; + break; + }; + var $5138 = $5140; + break; + }; + var $5132 = $5138; + break; + }; + var $5125 = $5132; + break; + }; + var $5123 = $5125; + break; + }; + var $5117 = $5123; + break; + }; + var $5109 = $5117; + break; + }; + var $5107 = $5109; + break; + }; + var $5101 = $5107; + break; + }; + var $5094 = $5101; + break; + }; + var $5092 = $5094; + break; + }; + var $5086 = $5092; + break; + }; + var $5079 = $5086; + break; + }; + var $5077 = $5079; + break; + }; + return $5077; + })); + return $5076; + }; + const Kind$Parser$get = x0 => Kind$Parser$get$(x0); + + function Kind$Parser$get$omit$(_body$1) { + var $5235 = Kind$Parser$block("let")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5237 = self.err; + var _reply$8 = Kind$Parser$text$("{", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5239 = self.err; + var self = $5237; + switch (self._) { + case 'Maybe.some': + var $5241 = self.value; + var $5242 = Parser$Reply$error$(Parser$Error$combine$($5241, $5239)); + var $5240 = $5242; + break; + case 'Maybe.none': + var $5243 = Parser$Reply$error$($5239); + var $5240 = $5243; + break; + }; + var $5238 = $5240; + break; + case 'Parser.Reply.value': + var $5244 = self.pst; + var self = $5244; + switch (self._) { + case 'Parser.State.new': + var $5246 = self.err; + var $5247 = self.nam; + var $5248 = self.ini; + var $5249 = self.idx; + var $5250 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5237, $5246), $5247, $5248, $5249, $5250); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $5252 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $5254 = self.err; + var self = $5252; + switch (self._) { + case 'Maybe.some': + var $5256 = self.value; + var $5257 = Parser$Reply$error$(Parser$Error$combine$($5256, $5254)); + var $5255 = $5257; + break; + case 'Maybe.none': + var $5258 = Parser$Reply$error$($5254); + var $5255 = $5258; + break; + }; + var $5253 = $5255; + break; + case 'Parser.Reply.value': + var $5259 = self.pst; + var $5260 = self.val; + var self = $5259; + switch (self._) { + case 'Parser.State.new': + var $5262 = self.err; + var $5263 = self.nam; + var $5264 = self.ini; + var $5265 = self.idx; + var $5266 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($5252, $5262), $5263, $5264, $5265, $5266); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $5268 = self.err; + var _reply$36 = Kind$Parser$text$(",", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $5270 = self.err; + var self = $5268; + switch (self._) { + case 'Maybe.some': + var $5272 = self.value; + var $5273 = Parser$Reply$error$(Parser$Error$combine$($5272, $5270)); + var $5271 = $5273; + break; + case 'Maybe.none': + var $5274 = Parser$Reply$error$($5270); + var $5271 = $5274; + break; + }; + var $5269 = $5271; + break; + case 'Parser.Reply.value': + var $5275 = self.pst; + var self = $5275; + switch (self._) { + case 'Parser.State.new': + var $5277 = self.err; + var $5278 = self.nam; + var $5279 = self.ini; + var $5280 = self.idx; + var $5281 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($5268, $5277), $5278, $5279, $5280, $5281); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $5283 = self.err; + var _reply$50 = Kind$Parser$name1$(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $5285 = self.err; + var self = $5283; + switch (self._) { + case 'Maybe.some': + var $5287 = self.value; + var $5288 = Parser$Reply$error$(Parser$Error$combine$($5287, $5285)); + var $5286 = $5288; + break; + case 'Maybe.none': + var $5289 = Parser$Reply$error$($5285); + var $5286 = $5289; + break; + }; + var $5284 = $5286; + break; + case 'Parser.Reply.value': + var $5290 = self.pst; + var $5291 = self.val; + var self = $5290; + switch (self._) { + case 'Parser.State.new': + var $5293 = self.err; + var $5294 = self.nam; + var $5295 = self.ini; + var $5296 = self.idx; + var $5297 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($5283, $5293), $5294, $5295, $5296, $5297); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $5299 = self.err; + var _reply$64 = Kind$Parser$text$("}", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $5301 = self.err; + var self = $5299; + switch (self._) { + case 'Maybe.some': + var $5303 = self.value; + var $5304 = Parser$Reply$error$(Parser$Error$combine$($5303, $5301)); + var $5302 = $5304; + break; + case 'Maybe.none': + var $5305 = Parser$Reply$error$($5301); + var $5302 = $5305; + break; + }; + var $5300 = $5302; + break; + case 'Parser.Reply.value': + var $5306 = self.pst; + var self = $5306; + switch (self._) { + case 'Parser.State.new': + var $5308 = self.err; + var $5309 = self.nam; + var $5310 = self.ini; + var $5311 = self.idx; + var $5312 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($5299, $5308), $5309, $5310, $5311, $5312); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $5314 = self.err; + var _reply$78 = Kind$Parser$text$("= ", _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $5316 = self.err; + var self = $5314; + switch (self._) { + case 'Maybe.some': + var $5318 = self.value; + var $5319 = Parser$Reply$error$(Parser$Error$combine$($5318, $5316)); + var $5317 = $5319; + break; + case 'Maybe.none': + var $5320 = Parser$Reply$error$($5316); + var $5317 = $5320; + break; + }; + var $5315 = $5317; + break; + case 'Parser.Reply.value': + var $5321 = self.pst; + var self = $5321; + switch (self._) { + case 'Parser.State.new': + var $5323 = self.err; + var $5324 = self.nam; + var $5325 = self.ini; + var $5326 = self.idx; + var $5327 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($5314, $5323), $5324, $5325, $5326, $5327); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $5329 = self.err; + var _reply$92 = Kind$Parser$term(_reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $5331 = self.err; + var self = $5329; + switch (self._) { + case 'Maybe.some': + var $5333 = self.value; + var $5334 = Parser$Reply$error$(Parser$Error$combine$($5333, $5331)); + var $5332 = $5334; + break; + case 'Maybe.none': + var $5335 = Parser$Reply$error$($5331); + var $5332 = $5335; + break; + }; + var $5330 = $5332; + break; + case 'Parser.Reply.value': + var $5336 = self.pst; + var $5337 = self.val; + var self = $5336; + switch (self._) { + case 'Parser.State.new': + var $5339 = self.err; + var $5340 = self.nam; + var $5341 = self.ini; + var $5342 = self.idx; + var $5343 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($5329, $5339), $5340, $5341, $5342, $5343); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $5345 = self.err; + var _reply$106 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $5347 = self.err; + var self = $5345; + switch (self._) { + case 'Maybe.some': + var $5349 = self.value; + var $5350 = Parser$Reply$error$(Parser$Error$combine$($5349, $5347)); + var $5348 = $5350; + break; + case 'Maybe.none': + var $5351 = Parser$Reply$error$($5347); + var $5348 = $5351; + break; + }; + var $5346 = $5348; + break; + case 'Parser.Reply.value': + var $5352 = self.pst; + var self = $5352; + switch (self._) { + case 'Parser.State.new': + var $5354 = self.err; + var $5355 = self.nam; + var $5356 = self.ini; + var $5357 = self.idx; + var $5358 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5345, $5354), $5355, $5356, $5357, $5358); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $5360 = self.err; + var _reply$120 = _body$1(Unit$new)(_reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $5362 = self.err; + var self = $5360; + switch (self._) { + case 'Maybe.some': + var $5364 = self.value; + var $5365 = Parser$Reply$error$(Parser$Error$combine$($5364, $5362)); + var $5363 = $5365; + break; + case 'Maybe.none': + var $5366 = Parser$Reply$error$($5362); + var $5363 = $5366; + break; + }; + var $5361 = $5363; + break; + case 'Parser.Reply.value': + var $5367 = self.pst; + var $5368 = self.val; + var self = $5367; + switch (self._) { + case 'Parser.State.new': + var $5370 = self.err; + var $5371 = self.nam; + var $5372 = self.ini; + var $5373 = self.idx; + var $5374 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($5360, $5370), $5371, $5372, $5373, $5374); + var _term$129 = $5337; + var _term$130 = Kind$Term$app$(_term$129, Kind$Term$lam$("", (_x$130 => { + var $5376 = Kind$Term$hol$(Bits$e); + return $5376; + }))); + var _term$131 = Kind$Term$app$(_term$130, Kind$Term$lam$($5260, (_x$131 => { + var $5377 = Kind$Term$lam$($5291, (_y$132 => { + var $5378 = $5368; + return $5378; + })); + return $5377; + }))); + var $5375 = Parser$Reply$value$(_reply$pst$128, _term$131); + var $5369 = $5375; + break; + }; + var $5361 = $5369; + break; + }; + var $5359 = $5361; + break; + }; + var $5353 = $5359; + break; + }; + var $5346 = $5353; + break; + }; + var $5344 = $5346; + break; + }; + var $5338 = $5344; + break; + }; + var $5330 = $5338; + break; + }; + var $5328 = $5330; + break; + }; + var $5322 = $5328; + break; + }; + var $5315 = $5322; + break; + }; + var $5313 = $5315; + break; + }; + var $5307 = $5313; + break; + }; + var $5300 = $5307; + break; + }; + var $5298 = $5300; + break; + }; + var $5292 = $5298; + break; + }; + var $5284 = $5292; + break; + }; + var $5282 = $5284; + break; + }; + var $5276 = $5282; + break; + }; + var $5269 = $5276; + break; + }; + var $5267 = $5269; + break; + }; + var $5261 = $5267; + break; + }; + var $5253 = $5261; + break; + }; + var $5251 = $5253; + break; + }; + var $5245 = $5251; + break; + }; + var $5238 = $5245; + break; + }; + var $5236 = $5238; + break; + }; + return $5236; + })); + return $5235; + }; + const Kind$Parser$get$omit = x0 => Kind$Parser$get$omit$(x0); + + function Kind$Parser$def$(_body$1) { + var $5379 = Kind$Parser$block("def")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5381 = self.err; + var _reply$8 = Kind$Parser$text$("def ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5383 = self.err; + var self = $5381; + switch (self._) { + case 'Maybe.some': + var $5385 = self.value; + var $5386 = Parser$Reply$error$(Parser$Error$combine$($5385, $5383)); + var $5384 = $5386; + break; + case 'Maybe.none': + var $5387 = Parser$Reply$error$($5383); + var $5384 = $5387; + break; + }; + var $5382 = $5384; + break; + case 'Parser.Reply.value': + var $5388 = self.pst; + var self = $5388; + switch (self._) { + case 'Parser.State.new': + var $5390 = self.err; + var $5391 = self.nam; + var $5392 = self.ini; + var $5393 = self.idx; + var $5394 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5381, $5390), $5391, $5392, $5393, $5394); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $5396 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $5398 = self.err; + var self = $5396; + switch (self._) { + case 'Maybe.some': + var $5400 = self.value; + var $5401 = Parser$Reply$error$(Parser$Error$combine$($5400, $5398)); + var $5399 = $5401; + break; + case 'Maybe.none': + var $5402 = Parser$Reply$error$($5398); + var $5399 = $5402; + break; + }; + var $5397 = $5399; + break; + case 'Parser.Reply.value': + var $5403 = self.pst; + var $5404 = self.val; + var self = $5403; + switch (self._) { + case 'Parser.State.new': + var $5406 = self.err; + var $5407 = self.nam; + var $5408 = self.ini; + var $5409 = self.idx; + var $5410 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($5396, $5406), $5407, $5408, $5409, $5410); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $5412 = self.err; + var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $5414 = self.err; + var self = $5412; + switch (self._) { + case 'Maybe.some': + var $5416 = self.value; + var $5417 = Parser$Reply$error$(Parser$Error$combine$($5416, $5414)); + var $5415 = $5417; + break; + case 'Maybe.none': + var $5418 = Parser$Reply$error$($5414); + var $5415 = $5418; + break; + }; + var $5413 = $5415; + break; + case 'Parser.Reply.value': + var $5419 = self.pst; + var self = $5419; + switch (self._) { + case 'Parser.State.new': + var $5421 = self.err; + var $5422 = self.nam; + var $5423 = self.ini; + var $5424 = self.idx; + var $5425 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($5412, $5421), $5422, $5423, $5424, $5425); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $5427 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $5429 = self.err; + var self = $5427; + switch (self._) { + case 'Maybe.some': + var $5431 = self.value; + var $5432 = Parser$Reply$error$(Parser$Error$combine$($5431, $5429)); + var $5430 = $5432; + break; + case 'Maybe.none': + var $5433 = Parser$Reply$error$($5429); + var $5430 = $5433; + break; + }; + var $5428 = $5430; + break; + case 'Parser.Reply.value': + var $5434 = self.pst; + var $5435 = self.val; + var self = $5434; + switch (self._) { + case 'Parser.State.new': + var $5437 = self.err; + var $5438 = self.nam; + var $5439 = self.ini; + var $5440 = self.idx; + var $5441 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($5427, $5437), $5438, $5439, $5440, $5441); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $5443 = self.err; + var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $5445 = self.err; + var self = $5443; + switch (self._) { + case 'Maybe.some': + var $5447 = self.value; + var $5448 = Parser$Reply$error$(Parser$Error$combine$($5447, $5445)); + var $5446 = $5448; + break; + case 'Maybe.none': + var $5449 = Parser$Reply$error$($5445); + var $5446 = $5449; + break; + }; + var $5444 = $5446; + break; + case 'Parser.Reply.value': + var $5450 = self.pst; + var self = $5450; + switch (self._) { + case 'Parser.State.new': + var $5452 = self.err; + var $5453 = self.nam; + var $5454 = self.ini; + var $5455 = self.idx; + var $5456 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($5443, $5452), $5453, $5454, $5455, $5456); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $5458 = self.err; + var _reply$78 = _body$1(Unit$new)(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $5460 = self.err; + var self = $5458; + switch (self._) { + case 'Maybe.some': + var $5462 = self.value; + var $5463 = Parser$Reply$error$(Parser$Error$combine$($5462, $5460)); + var $5461 = $5463; + break; + case 'Maybe.none': + var $5464 = Parser$Reply$error$($5460); + var $5461 = $5464; + break; + }; + var $5459 = $5461; + break; + case 'Parser.Reply.value': + var $5465 = self.pst; + var $5466 = self.val; + var self = $5465; + switch (self._) { + case 'Parser.State.new': + var $5468 = self.err; + var $5469 = self.nam; + var $5470 = self.ini; + var $5471 = self.idx; + var $5472 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($5458, $5468), $5469, $5470, $5471, $5472); + var $5473 = Parser$Reply$value$(_reply$pst$86, Kind$Term$def$($5404, $5435, (_x$87 => { + var $5474 = $5466; + return $5474; + }))); + var $5467 = $5473; + break; + }; + var $5459 = $5467; + break; + }; + var $5457 = $5459; + break; + }; + var $5451 = $5457; + break; + }; + var $5444 = $5451; + break; + }; + var $5442 = $5444; + break; + }; + var $5436 = $5442; + break; + }; + var $5428 = $5436; + break; + }; + var $5426 = $5428; + break; + }; + var $5420 = $5426; + break; + }; + var $5413 = $5420; + break; + }; + var $5411 = $5413; + break; + }; + var $5405 = $5411; + break; + }; + var $5397 = $5405; + break; + }; + var $5395 = $5397; + break; + }; + var $5389 = $5395; + break; + }; + var $5382 = $5389; + break; + }; + var $5380 = $5382; + break; + }; + return $5380; + })); + return $5379; + }; + const Kind$Parser$def = x0 => Kind$Parser$def$(x0); + + function Kind$Term$cse$(_path$1, _expr$2, _name$3, _with$4, _cses$5, _moti$6) { + var $5475 = ({ + _: 'Kind.Term.cse', + 'path': _path$1, + 'expr': _expr$2, + 'name': _name$3, + 'with': _with$4, + 'cses': _cses$5, + 'moti': _moti$6 + }); + return $5475; + }; + const Kind$Term$cse = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$cse$(x0, x1, x2, x3, x4, x5); + + function Kind$Parser$use$abort$(_body$1) { + var $5476 = Kind$Parser$block("use")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5478 = self.err; + var _reply$8 = Kind$Parser$text$("use ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5480 = self.err; + var self = $5478; + switch (self._) { + case 'Maybe.some': + var $5482 = self.value; + var $5483 = Parser$Reply$error$(Parser$Error$combine$($5482, $5480)); + var $5481 = $5483; + break; + case 'Maybe.none': + var $5484 = Parser$Reply$error$($5480); + var $5481 = $5484; + break; + }; + var $5479 = $5481; + break; + case 'Parser.Reply.value': + var $5485 = self.pst; + var self = $5485; + switch (self._) { + case 'Parser.State.new': + var $5487 = self.err; + var $5488 = self.nam; + var $5489 = self.ini; + var $5490 = self.idx; + var $5491 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5478, $5487), $5488, $5489, $5490, $5491); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $5493 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $5495 = self.err; + var self = $5493; + switch (self._) { + case 'Maybe.some': + var $5497 = self.value; + var $5498 = Parser$Reply$error$(Parser$Error$combine$($5497, $5495)); + var $5496 = $5498; + break; + case 'Maybe.none': + var $5499 = Parser$Reply$error$($5495); + var $5496 = $5499; + break; + }; + var $5494 = $5496; + break; + case 'Parser.Reply.value': + var $5500 = self.pst; + var $5501 = self.val; + var self = $5500; + switch (self._) { + case 'Parser.State.new': + var $5503 = self.err; + var $5504 = self.nam; + var $5505 = self.ini; + var $5506 = self.idx; + var $5507 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($5493, $5503), $5504, $5505, $5506, $5507); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $5509 = self.err; + var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $5511 = self.err; + var self = $5509; + switch (self._) { + case 'Maybe.some': + var $5513 = self.value; + var $5514 = Parser$Reply$error$(Parser$Error$combine$($5513, $5511)); + var $5512 = $5514; + break; + case 'Maybe.none': + var $5515 = Parser$Reply$error$($5511); + var $5512 = $5515; + break; + }; + var $5510 = $5512; + break; + case 'Parser.Reply.value': + var $5516 = self.pst; + var self = $5516; + switch (self._) { + case 'Parser.State.new': + var $5518 = self.err; + var $5519 = self.nam; + var $5520 = self.ini; + var $5521 = self.idx; + var $5522 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($5509, $5518), $5519, $5520, $5521, $5522); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $5524 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $5526 = self.err; + var self = $5524; + switch (self._) { + case 'Maybe.some': + var $5528 = self.value; + var $5529 = Parser$Reply$error$(Parser$Error$combine$($5528, $5526)); + var $5527 = $5529; + break; + case 'Maybe.none': + var $5530 = Parser$Reply$error$($5526); + var $5527 = $5530; + break; + }; + var $5525 = $5527; + break; + case 'Parser.Reply.value': + var $5531 = self.pst; + var $5532 = self.val; + var self = $5531; + switch (self._) { + case 'Parser.State.new': + var $5534 = self.err; + var $5535 = self.nam; + var $5536 = self.ini; + var $5537 = self.idx; + var $5538 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($5524, $5534), $5535, $5536, $5537, $5538); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $5540 = self.err; + var _reply$64 = Kind$Parser$text$("abort ", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $5542 = self.err; + var self = $5540; + switch (self._) { + case 'Maybe.some': + var $5544 = self.value; + var $5545 = Parser$Reply$error$(Parser$Error$combine$($5544, $5542)); + var $5543 = $5545; + break; + case 'Maybe.none': + var $5546 = Parser$Reply$error$($5542); + var $5543 = $5546; + break; + }; + var $5541 = $5543; + break; + case 'Parser.Reply.value': + var $5547 = self.pst; + var self = $5547; + switch (self._) { + case 'Parser.State.new': + var $5549 = self.err; + var $5550 = self.nam; + var $5551 = self.ini; + var $5552 = self.idx; + var $5553 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($5540, $5549), $5550, $5551, $5552, $5553); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $5555 = self.err; + var _reply$78 = Kind$Parser$term(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $5557 = self.err; + var self = $5555; + switch (self._) { + case 'Maybe.some': + var $5559 = self.value; + var $5560 = Parser$Reply$error$(Parser$Error$combine$($5559, $5557)); + var $5558 = $5560; + break; + case 'Maybe.none': + var $5561 = Parser$Reply$error$($5557); + var $5558 = $5561; + break; + }; + var $5556 = $5558; + break; + case 'Parser.Reply.value': + var $5562 = self.pst; + var $5563 = self.val; + var self = $5562; + switch (self._) { + case 'Parser.State.new': + var $5565 = self.err; + var $5566 = self.nam; + var $5567 = self.ini; + var $5568 = self.idx; + var $5569 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($5555, $5565), $5566, $5567, $5568, $5569); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $5571 = self.err; + var _reply$92 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $5573 = self.err; + var self = $5571; + switch (self._) { + case 'Maybe.some': + var $5575 = self.value; + var $5576 = Parser$Reply$error$(Parser$Error$combine$($5575, $5573)); + var $5574 = $5576; + break; + case 'Maybe.none': + var $5577 = Parser$Reply$error$($5573); + var $5574 = $5577; + break; + }; + var $5572 = $5574; + break; + case 'Parser.Reply.value': + var $5578 = self.pst; + var self = $5578; + switch (self._) { + case 'Parser.State.new': + var $5580 = self.err; + var $5581 = self.nam; + var $5582 = self.ini; + var $5583 = self.idx; + var $5584 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($5571, $5580), $5581, $5582, $5583, $5584); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $5586 = self.err; + var _reply$106 = _body$1(Unit$new)(_reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $5588 = self.err; + var self = $5586; + switch (self._) { + case 'Maybe.some': + var $5590 = self.value; + var $5591 = Parser$Reply$error$(Parser$Error$combine$($5590, $5588)); + var $5589 = $5591; + break; + case 'Maybe.none': + var $5592 = Parser$Reply$error$($5588); + var $5589 = $5592; + break; + }; + var $5587 = $5589; + break; + case 'Parser.Reply.value': + var $5593 = self.pst; + var $5594 = self.val; + var self = $5593; + switch (self._) { + case 'Parser.State.new': + var $5596 = self.err; + var $5597 = self.nam; + var $5598 = self.ini; + var $5599 = self.idx; + var $5600 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5586, $5596), $5597, $5598, $5599, $5600); + var _term$115 = $5532; + var _term$116 = Kind$Term$app$(_term$115, Kind$Term$lam$("", (_$116 => { + var $5602 = Kind$Term$hol$(Bits$e); + return $5602; + }))); + var _term$117 = Kind$Term$app$(_term$116, $5563); + var _term$118 = Kind$Term$app$(_term$117, Kind$Term$lam$($5501, (_$118 => { + var _wyth$119 = List$nil; + var _cses$120 = Kind$Map$set$("_", $5594, Kind$Map$new); + var _moti$121 = Maybe$some$(Kind$Term$hol$(Bits$e)); + var _term$122 = Kind$Term$let$($5501, Kind$Term$ref$($5501), (_$122 => { + var $5604 = Kind$Term$cse$(Bits$e, Kind$Term$ref$($5501), $5501, _wyth$119, _cses$120, _moti$121); + return $5604; + })); + var $5603 = _term$122; + return $5603; + }))); + var $5601 = Parser$Reply$value$(_reply$pst$114, _term$118); + var $5595 = $5601; + break; + }; + var $5587 = $5595; + break; + }; + var $5585 = $5587; + break; + }; + var $5579 = $5585; + break; + }; + var $5572 = $5579; + break; + }; + var $5570 = $5572; + break; + }; + var $5564 = $5570; + break; + }; + var $5556 = $5564; + break; + }; + var $5554 = $5556; + break; + }; + var $5548 = $5554; + break; + }; + var $5541 = $5548; + break; + }; + var $5539 = $5541; + break; + }; + var $5533 = $5539; + break; + }; + var $5525 = $5533; + break; + }; + var $5523 = $5525; + break; + }; + var $5517 = $5523; + break; + }; + var $5510 = $5517; + break; + }; + var $5508 = $5510; + break; + }; + var $5502 = $5508; + break; + }; + var $5494 = $5502; + break; + }; + var $5492 = $5494; + break; + }; + var $5486 = $5492; + break; + }; + var $5479 = $5486; + break; + }; + var $5477 = $5479; + break; + }; + return $5477; + })); + return $5476; + }; + const Kind$Parser$use$abort = x0 => Kind$Parser$use$abort$(x0); + + function Kind$Parser$use$(_body$1) { + var $5605 = Kind$Parser$block("use")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5607 = self.err; + var _reply$8 = Kind$Parser$text$("use ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $5609 = self.err; + var self = $5607; + switch (self._) { + case 'Maybe.some': + var $5611 = self.value; + var $5612 = Parser$Reply$error$(Parser$Error$combine$($5611, $5609)); + var $5610 = $5612; + break; + case 'Maybe.none': + var $5613 = Parser$Reply$error$($5609); + var $5610 = $5613; + break; + }; + var $5608 = $5610; + break; + case 'Parser.Reply.value': + var $5614 = self.pst; + var self = $5614; + switch (self._) { + case 'Parser.State.new': + var $5616 = self.err; + var $5617 = self.nam; + var $5618 = self.ini; + var $5619 = self.idx; + var $5620 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5607, $5616), $5617, $5618, $5619, $5620); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $5622 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $5624 = self.err; + var self = $5622; + switch (self._) { + case 'Maybe.some': + var $5626 = self.value; + var $5627 = Parser$Reply$error$(Parser$Error$combine$($5626, $5624)); + var $5625 = $5627; + break; + case 'Maybe.none': + var $5628 = Parser$Reply$error$($5624); + var $5625 = $5628; + break; + }; + var $5623 = $5625; + break; + case 'Parser.Reply.value': + var $5629 = self.pst; + var $5630 = self.val; + var self = $5629; + switch (self._) { + case 'Parser.State.new': + var $5632 = self.err; + var $5633 = self.nam; + var $5634 = self.ini; + var $5635 = self.idx; + var $5636 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($5622, $5632), $5633, $5634, $5635, $5636); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $5638 = self.err; + var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $5640 = self.err; + var self = $5638; + switch (self._) { + case 'Maybe.some': + var $5642 = self.value; + var $5643 = Parser$Reply$error$(Parser$Error$combine$($5642, $5640)); + var $5641 = $5643; + break; + case 'Maybe.none': + var $5644 = Parser$Reply$error$($5640); + var $5641 = $5644; + break; + }; + var $5639 = $5641; + break; + case 'Parser.Reply.value': + var $5645 = self.pst; + var self = $5645; + switch (self._) { + case 'Parser.State.new': + var $5647 = self.err; + var $5648 = self.nam; + var $5649 = self.ini; + var $5650 = self.idx; + var $5651 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($5638, $5647), $5648, $5649, $5650, $5651); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $5653 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $5655 = self.err; + var self = $5653; + switch (self._) { + case 'Maybe.some': + var $5657 = self.value; + var $5658 = Parser$Reply$error$(Parser$Error$combine$($5657, $5655)); + var $5656 = $5658; + break; + case 'Maybe.none': + var $5659 = Parser$Reply$error$($5655); + var $5656 = $5659; + break; + }; + var $5654 = $5656; + break; + case 'Parser.Reply.value': + var $5660 = self.pst; + var $5661 = self.val; + var self = $5660; + switch (self._) { + case 'Parser.State.new': + var $5663 = self.err; + var $5664 = self.nam; + var $5665 = self.ini; + var $5666 = self.idx; + var $5667 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($5653, $5663), $5664, $5665, $5666, $5667); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $5669 = self.err; + var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $5671 = self.err; + var self = $5669; + switch (self._) { + case 'Maybe.some': + var $5673 = self.value; + var $5674 = Parser$Reply$error$(Parser$Error$combine$($5673, $5671)); + var $5672 = $5674; + break; + case 'Maybe.none': + var $5675 = Parser$Reply$error$($5671); + var $5672 = $5675; + break; + }; + var $5670 = $5672; + break; + case 'Parser.Reply.value': + var $5676 = self.pst; + var self = $5676; + switch (self._) { + case 'Parser.State.new': + var $5678 = self.err; + var $5679 = self.nam; + var $5680 = self.ini; + var $5681 = self.idx; + var $5682 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($5669, $5678), $5679, $5680, $5681, $5682); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $5684 = self.err; + var _reply$78 = _body$1(Unit$new)(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $5686 = self.err; + var self = $5684; + switch (self._) { + case 'Maybe.some': + var $5688 = self.value; + var $5689 = Parser$Reply$error$(Parser$Error$combine$($5688, $5686)); + var $5687 = $5689; + break; + case 'Maybe.none': + var $5690 = Parser$Reply$error$($5686); + var $5687 = $5690; + break; + }; + var $5685 = $5687; + break; + case 'Parser.Reply.value': + var $5691 = self.pst; + var $5692 = self.val; + var self = $5691; + switch (self._) { + case 'Parser.State.new': + var $5694 = self.err; + var $5695 = self.nam; + var $5696 = self.ini; + var $5697 = self.idx; + var $5698 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($5684, $5694), $5695, $5696, $5697, $5698); + var _wyth$87 = List$nil; + var _cses$88 = Kind$Map$set$("_", $5692, Kind$Map$new); + var _moti$89 = Maybe$some$(Kind$Term$hol$(Bits$e)); + var _term$90 = Kind$Term$let$($5630, $5661, (_$90 => { + var $5700 = Kind$Term$cse$(Bits$e, Kind$Term$ref$($5630), $5630, _wyth$87, _cses$88, _moti$89); + return $5700; + })); + var $5699 = Parser$Reply$value$(_reply$pst$86, _term$90); + var $5693 = $5699; + break; + }; + var $5685 = $5693; + break; + }; + var $5683 = $5685; + break; + }; + var $5677 = $5683; + break; + }; + var $5670 = $5677; + break; + }; + var $5668 = $5670; + break; + }; + var $5662 = $5668; + break; + }; + var $5654 = $5662; + break; + }; + var $5652 = $5654; + break; + }; + var $5646 = $5652; + break; + }; + var $5639 = $5646; + break; + }; + var $5637 = $5639; + break; + }; + var $5631 = $5637; + break; + }; + var $5623 = $5631; + break; + }; + var $5621 = $5623; + break; + }; + var $5615 = $5621; + break; + }; + var $5608 = $5615; + break; + }; + var $5606 = $5608; + break; + }; + return $5606; + })); + return $5605; + }; + const Kind$Parser$use = x0 => Kind$Parser$use$(x0); + const Kind$Parser$goal_rewrite = Kind$Parser$block("goal-rewrite")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $5702 = self.err; + var _reply$7 = Kind$Parser$text$("rewrite ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $5704 = self.err; + var self = $5702; + switch (self._) { + case 'Maybe.some': + var $5706 = self.value; + var $5707 = Parser$Reply$error$(Parser$Error$combine$($5706, $5704)); + var $5705 = $5707; + break; + case 'Maybe.none': + var $5708 = Parser$Reply$error$($5704); + var $5705 = $5708; + break; + }; + var $5703 = $5705; + break; + case 'Parser.Reply.value': + var $5709 = self.pst; + var self = $5709; + switch (self._) { + case 'Parser.State.new': + var $5711 = self.err; + var $5712 = self.nam; + var $5713 = self.ini; + var $5714 = self.idx; + var $5715 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($5702, $5711), $5712, $5713, $5714, $5715); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $5717 = self.err; + var _reply$21 = Kind$Parser$name1$(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $5719 = self.err; + var self = $5717; + switch (self._) { + case 'Maybe.some': + var $5721 = self.value; + var $5722 = Parser$Reply$error$(Parser$Error$combine$($5721, $5719)); + var $5720 = $5722; + break; + case 'Maybe.none': + var $5723 = Parser$Reply$error$($5719); + var $5720 = $5723; + break; + }; + var $5718 = $5720; + break; + case 'Parser.Reply.value': + var $5724 = self.pst; + var $5725 = self.val; + var self = $5724; + switch (self._) { + case 'Parser.State.new': + var $5727 = self.err; + var $5728 = self.nam; + var $5729 = self.ini; + var $5730 = self.idx; + var $5731 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($5717, $5727), $5728, $5729, $5730, $5731); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $5733 = self.err; + var _reply$35 = Kind$Parser$text$("in", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $5735 = self.err; + var self = $5733; + switch (self._) { + case 'Maybe.some': + var $5737 = self.value; + var $5738 = Parser$Reply$error$(Parser$Error$combine$($5737, $5735)); + var $5736 = $5738; + break; + case 'Maybe.none': + var $5739 = Parser$Reply$error$($5735); + var $5736 = $5739; + break; + }; + var $5734 = $5736; + break; + case 'Parser.Reply.value': + var $5740 = self.pst; + var self = $5740; + switch (self._) { + case 'Parser.State.new': + var $5742 = self.err; + var $5743 = self.nam; + var $5744 = self.ini; + var $5745 = self.idx; + var $5746 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($5733, $5742), $5743, $5744, $5745, $5746); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $5748 = self.err; + var _reply$49 = Kind$Parser$term(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $5750 = self.err; + var self = $5748; + switch (self._) { + case 'Maybe.some': + var $5752 = self.value; + var $5753 = Parser$Reply$error$(Parser$Error$combine$($5752, $5750)); + var $5751 = $5753; + break; + case 'Maybe.none': + var $5754 = Parser$Reply$error$($5750); + var $5751 = $5754; + break; + }; + var $5749 = $5751; + break; + case 'Parser.Reply.value': + var $5755 = self.pst; + var $5756 = self.val; + var self = $5755; + switch (self._) { + case 'Parser.State.new': + var $5758 = self.err; + var $5759 = self.nam; + var $5760 = self.ini; + var $5761 = self.idx; + var $5762 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($5748, $5758), $5759, $5760, $5761, $5762); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $5764 = self.err; + var _reply$63 = Kind$Parser$text$("with", _reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $5766 = self.err; + var self = $5764; + switch (self._) { + case 'Maybe.some': + var $5768 = self.value; + var $5769 = Parser$Reply$error$(Parser$Error$combine$($5768, $5766)); + var $5767 = $5769; + break; + case 'Maybe.none': + var $5770 = Parser$Reply$error$($5766); + var $5767 = $5770; + break; + }; + var $5765 = $5767; + break; + case 'Parser.Reply.value': + var $5771 = self.pst; + var self = $5771; + switch (self._) { + case 'Parser.State.new': + var $5773 = self.err; + var $5774 = self.nam; + var $5775 = self.ini; + var $5776 = self.idx; + var $5777 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($5764, $5773), $5774, $5775, $5776, $5777); + var self = _reply$pst$71; + switch (self._) { + case 'Parser.State.new': + var $5779 = self.err; + var _reply$77 = Kind$Parser$term(_reply$pst$71); + var self = _reply$77; + switch (self._) { + case 'Parser.Reply.error': + var $5781 = self.err; + var self = $5779; + switch (self._) { + case 'Maybe.some': + var $5783 = self.value; + var $5784 = Parser$Reply$error$(Parser$Error$combine$($5783, $5781)); + var $5782 = $5784; + break; + case 'Maybe.none': + var $5785 = Parser$Reply$error$($5781); + var $5782 = $5785; + break; + }; + var $5780 = $5782; + break; + case 'Parser.Reply.value': + var $5786 = self.pst; + var $5787 = self.val; + var self = $5786; + switch (self._) { + case 'Parser.State.new': + var $5789 = self.err; + var $5790 = self.nam; + var $5791 = self.ini; + var $5792 = self.idx; + var $5793 = self.str; + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($5779, $5789), $5790, $5791, $5792, $5793); + var self = _reply$pst$85; + switch (self._) { + case 'Parser.State.new': + var $5795 = self.err; + var _reply$91 = Kind$Parser$term(_reply$pst$85); + var self = _reply$91; + switch (self._) { + case 'Parser.Reply.error': + var $5797 = self.err; + var self = $5795; + switch (self._) { + case 'Maybe.some': + var $5799 = self.value; + var $5800 = Parser$Reply$error$(Parser$Error$combine$($5799, $5797)); + var $5798 = $5800; + break; + case 'Maybe.none': + var $5801 = Parser$Reply$error$($5797); + var $5798 = $5801; + break; + }; + var $5796 = $5798; + break; + case 'Parser.Reply.value': + var $5802 = self.pst; + var $5803 = self.val; + var self = $5802; + switch (self._) { + case 'Parser.State.new': + var $5805 = self.err; + var $5806 = self.nam; + var $5807 = self.ini; + var $5808 = self.idx; + var $5809 = self.str; + var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($5795, $5805), $5806, $5807, $5808, $5809); + var _moti$100 = Kind$Term$lam$($5725, (_s$100 => { + var $5811 = Kind$Term$lam$("", (_x$101 => { + var $5812 = $5756; + return $5812; + })); + return $5811; + })); + var _term$101 = Kind$Term$ref$("Equal.mirror"); + var _term$102 = Kind$Term$app$(_term$101, Kind$Term$hol$(Bits$e)); + var _term$103 = Kind$Term$app$(_term$102, Kind$Term$hol$(Bits$e)); + var _term$104 = Kind$Term$app$(_term$103, Kind$Term$hol$(Bits$e)); + var _term$105 = Kind$Term$app$(_term$104, $5787); + var _term$106 = Kind$Term$app$(_term$105, _moti$100); + var _term$107 = Kind$Term$app$(_term$106, $5803); + var $5810 = Parser$Reply$value$(_reply$pst$99, _term$107); + var $5804 = $5810; + break; + }; + var $5796 = $5804; + break; + }; + var $5794 = $5796; + break; + }; + var $5788 = $5794; + break; + }; + var $5780 = $5788; + break; + }; + var $5778 = $5780; + break; + }; + var $5772 = $5778; + break; + }; + var $5765 = $5772; + break; + }; + var $5763 = $5765; + break; + }; + var $5757 = $5763; + break; + }; + var $5749 = $5757; + break; + }; + var $5747 = $5749; + break; + }; + var $5741 = $5747; + break; + }; + var $5734 = $5741; + break; + }; + var $5732 = $5734; + break; + }; + var $5726 = $5732; + break; + }; + var $5718 = $5726; + break; + }; + var $5716 = $5718; + break; + }; + var $5710 = $5716; + break; + }; + var $5703 = $5710; + break; + }; + var $5701 = $5703; + break; + }; + return $5701; + })); + const Kind$Parser$if = Kind$Parser$block("if")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $5814 = self.err; + var _reply$7 = Kind$Parser$text$("if ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $5816 = self.err; + var self = $5814; + switch (self._) { + case 'Maybe.some': + var $5818 = self.value; + var $5819 = Parser$Reply$error$(Parser$Error$combine$($5818, $5816)); + var $5817 = $5819; + break; + case 'Maybe.none': + var $5820 = Parser$Reply$error$($5816); + var $5817 = $5820; + break; + }; + var $5815 = $5817; + break; + case 'Parser.Reply.value': + var $5821 = self.pst; + var self = $5821; + switch (self._) { + case 'Parser.State.new': + var $5823 = self.err; + var $5824 = self.nam; + var $5825 = self.ini; + var $5826 = self.idx; + var $5827 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($5814, $5823), $5824, $5825, $5826, $5827); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $5829 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $5831 = self.err; + var self = $5829; + switch (self._) { + case 'Maybe.some': + var $5833 = self.value; + var $5834 = Parser$Reply$error$(Parser$Error$combine$($5833, $5831)); + var $5832 = $5834; + break; + case 'Maybe.none': + var $5835 = Parser$Reply$error$($5831); + var $5832 = $5835; + break; + }; + var $5830 = $5832; + break; + case 'Parser.Reply.value': + var $5836 = self.pst; + var $5837 = self.val; + var self = $5836; + switch (self._) { + case 'Parser.State.new': + var $5839 = self.err; + var $5840 = self.nam; + var $5841 = self.ini; + var $5842 = self.idx; + var $5843 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($5829, $5839), $5840, $5841, $5842, $5843); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $5845 = self.err; + var _reply$35 = Kind$Parser$text$("then", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $5847 = self.err; + var self = $5845; + switch (self._) { + case 'Maybe.some': + var $5849 = self.value; + var $5850 = Parser$Reply$error$(Parser$Error$combine$($5849, $5847)); + var $5848 = $5850; + break; + case 'Maybe.none': + var $5851 = Parser$Reply$error$($5847); + var $5848 = $5851; + break; + }; + var $5846 = $5848; + break; + case 'Parser.Reply.value': + var $5852 = self.pst; + var self = $5852; + switch (self._) { + case 'Parser.State.new': + var $5854 = self.err; + var $5855 = self.nam; + var $5856 = self.ini; + var $5857 = self.idx; + var $5858 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($5845, $5854), $5855, $5856, $5857, $5858); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $5860 = self.err; + var _reply$49 = Kind$Parser$term(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $5862 = self.err; + var self = $5860; + switch (self._) { + case 'Maybe.some': + var $5864 = self.value; + var $5865 = Parser$Reply$error$(Parser$Error$combine$($5864, $5862)); + var $5863 = $5865; + break; + case 'Maybe.none': + var $5866 = Parser$Reply$error$($5862); + var $5863 = $5866; + break; + }; + var $5861 = $5863; + break; + case 'Parser.Reply.value': + var $5867 = self.pst; + var $5868 = self.val; + var self = $5867; + switch (self._) { + case 'Parser.State.new': + var $5870 = self.err; + var $5871 = self.nam; + var $5872 = self.ini; + var $5873 = self.idx; + var $5874 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($5860, $5870), $5871, $5872, $5873, $5874); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $5876 = self.err; + var _reply$63 = Kind$Parser$text$("else", _reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $5878 = self.err; + var self = $5876; + switch (self._) { + case 'Maybe.some': + var $5880 = self.value; + var $5881 = Parser$Reply$error$(Parser$Error$combine$($5880, $5878)); + var $5879 = $5881; + break; + case 'Maybe.none': + var $5882 = Parser$Reply$error$($5878); + var $5879 = $5882; + break; + }; + var $5877 = $5879; + break; + case 'Parser.Reply.value': + var $5883 = self.pst; + var self = $5883; + switch (self._) { + case 'Parser.State.new': + var $5885 = self.err; + var $5886 = self.nam; + var $5887 = self.ini; + var $5888 = self.idx; + var $5889 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($5876, $5885), $5886, $5887, $5888, $5889); + var self = _reply$pst$71; + switch (self._) { + case 'Parser.State.new': + var $5891 = self.err; + var _reply$77 = Kind$Parser$term(_reply$pst$71); + var self = _reply$77; + switch (self._) { + case 'Parser.Reply.error': + var $5893 = self.err; + var self = $5891; + switch (self._) { + case 'Maybe.some': + var $5895 = self.value; + var $5896 = Parser$Reply$error$(Parser$Error$combine$($5895, $5893)); + var $5894 = $5896; + break; + case 'Maybe.none': + var $5897 = Parser$Reply$error$($5893); + var $5894 = $5897; + break; + }; + var $5892 = $5894; + break; + case 'Parser.Reply.value': + var $5898 = self.pst; + var $5899 = self.val; + var self = $5898; + switch (self._) { + case 'Parser.State.new': + var $5901 = self.err; + var $5902 = self.nam; + var $5903 = self.ini; + var $5904 = self.idx; + var $5905 = self.str; + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($5891, $5901), $5902, $5903, $5904, $5905); + var _term$86 = $5837; + var _term$87 = Kind$Term$app$(_term$86, Kind$Term$lam$("", (_x$87 => { + var $5907 = Kind$Term$hol$(Bits$e); + return $5907; + }))); + var _term$88 = Kind$Term$app$(_term$87, $5868); + var _term$89 = Kind$Term$app$(_term$88, $5899); + var $5906 = Parser$Reply$value$(_reply$pst$85, _term$89); + var $5900 = $5906; + break; + }; + var $5892 = $5900; + break; + }; + var $5890 = $5892; + break; + }; + var $5884 = $5890; + break; + }; + var $5877 = $5884; + break; + }; + var $5875 = $5877; + break; + }; + var $5869 = $5875; + break; + }; + var $5861 = $5869; + break; + }; + var $5859 = $5861; + break; + }; + var $5853 = $5859; + break; + }; + var $5846 = $5853; + break; + }; + var $5844 = $5846; + break; + }; + var $5838 = $5844; + break; + }; + var $5830 = $5838; + break; + }; + var $5828 = $5830; + break; + }; + var $5822 = $5828; + break; + }; + var $5815 = $5822; + break; + }; + var $5813 = $5815; + break; + }; + return $5813; + })); + const Kind$Code$backslash = 92; + const Kind$Code$escapes = List$cons$(Pair$new$("\\b", 8), List$cons$(Pair$new$("\\f", 12), List$cons$(Pair$new$("\\n", 10), List$cons$(Pair$new$("\\r", 13), List$cons$(Pair$new$("\\t", 9), List$cons$(Pair$new$("\\v", 11), List$cons$(Pair$new$(String$cons$(Kind$Code$backslash, String$cons$(Kind$Code$backslash, String$nil)), Kind$Code$backslash), List$cons$(Pair$new$("\\\"", 34), List$cons$(Pair$new$("\\0", 0), List$cons$(Pair$new$("\\\'", 39), List$nil)))))))))); + const Kind$Parser$char$single = Parser$choice(List$cons$(Parser$choice(List$mapped$(Kind$Code$escapes, (_esc$1 => { + var self = _esc$1; + switch (self._) { + case 'Pair.new': + var $5909 = self.fst; + var $5910 = self.snd; + var $5911 = (_pst$4 => { + var self = _pst$4; + switch (self._) { + case 'Parser.State.new': + var $5913 = self.err; + var _reply$10 = Parser$text$($5909, _pst$4); + var self = _reply$10; + switch (self._) { + case 'Parser.Reply.error': + var $5915 = self.err; + var self = $5913; + switch (self._) { + case 'Maybe.some': + var $5917 = self.value; + var $5918 = Parser$Reply$error$(Parser$Error$combine$($5917, $5915)); + var $5916 = $5918; + break; + case 'Maybe.none': + var $5919 = Parser$Reply$error$($5915); + var $5916 = $5919; + break; + }; + var $5914 = $5916; + break; + case 'Parser.Reply.value': + var $5920 = self.pst; + var self = $5920; + switch (self._) { + case 'Parser.State.new': + var $5922 = self.err; + var $5923 = self.nam; + var $5924 = self.ini; + var $5925 = self.idx; + var $5926 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5913, $5922), $5923, $5924, $5925, $5926); + var $5927 = Parser$Reply$value$(_reply$pst$18, $5910); + var $5921 = $5927; + break; + }; + var $5914 = $5921; + break; + }; + var $5912 = $5914; + break; + }; + return $5912; + }); + var $5908 = $5911; + break; + }; + return $5908; + }))), List$cons$(Parser$one, List$nil))); + const Kind$Parser$char = Kind$Parser$block("char")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $5929 = self.err; + var _reply$7 = Kind$Parser$text$("\'", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $5931 = self.err; + var self = $5929; + switch (self._) { + case 'Maybe.some': + var $5933 = self.value; + var $5934 = Parser$Reply$error$(Parser$Error$combine$($5933, $5931)); + var $5932 = $5934; + break; + case 'Maybe.none': + var $5935 = Parser$Reply$error$($5931); + var $5932 = $5935; + break; + }; + var $5930 = $5932; + break; + case 'Parser.Reply.value': + var $5936 = self.pst; + var self = $5936; + switch (self._) { + case 'Parser.State.new': + var $5938 = self.err; + var $5939 = self.nam; + var $5940 = self.ini; + var $5941 = self.idx; + var $5942 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($5929, $5938), $5939, $5940, $5941, $5942); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $5944 = self.err; + var _reply$21 = Kind$Parser$char$single(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $5946 = self.err; + var self = $5944; + switch (self._) { + case 'Maybe.some': + var $5948 = self.value; + var $5949 = Parser$Reply$error$(Parser$Error$combine$($5948, $5946)); + var $5947 = $5949; + break; + case 'Maybe.none': + var $5950 = Parser$Reply$error$($5946); + var $5947 = $5950; + break; + }; + var $5945 = $5947; + break; + case 'Parser.Reply.value': + var $5951 = self.pst; + var $5952 = self.val; + var self = $5951; + switch (self._) { + case 'Parser.State.new': + var $5954 = self.err; + var $5955 = self.nam; + var $5956 = self.ini; + var $5957 = self.idx; + var $5958 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($5944, $5954), $5955, $5956, $5957, $5958); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $5960 = self.err; + var _reply$35 = Kind$Parser$text$("\'", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $5962 = self.err; + var self = $5960; + switch (self._) { + case 'Maybe.some': + var $5964 = self.value; + var $5965 = Parser$Reply$error$(Parser$Error$combine$($5964, $5962)); + var $5963 = $5965; + break; + case 'Maybe.none': + var $5966 = Parser$Reply$error$($5962); + var $5963 = $5966; + break; + }; + var $5961 = $5963; + break; + case 'Parser.Reply.value': + var $5967 = self.pst; + var self = $5967; + switch (self._) { + case 'Parser.State.new': + var $5969 = self.err; + var $5970 = self.nam; + var $5971 = self.ini; + var $5972 = self.idx; + var $5973 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($5960, $5969), $5970, $5971, $5972, $5973); + var $5974 = Parser$Reply$value$(_reply$pst$43, Kind$Term$chr$($5952)); + var $5968 = $5974; + break; + }; + var $5961 = $5968; + break; + }; + var $5959 = $5961; + break; + }; + var $5953 = $5959; + break; + }; + var $5945 = $5953; + break; + }; + var $5943 = $5945; + break; + }; + var $5937 = $5943; + break; + }; + var $5930 = $5937; + break; + }; + var $5928 = $5930; + break; + }; + return $5928; + })); + + function String$reverse$go$(_xs$1, _res$2) { + var String$reverse$go$ = (_xs$1, _res$2) => ({ + ctr: 'TCO', + arg: [_xs$1, _res$2] + }); + var String$reverse$go = _xs$1 => _res$2 => String$reverse$go$(_xs$1, _res$2); + var arg = [_xs$1, _res$2]; + while (true) { + let [_xs$1, _res$2] = arg; + var R = (() => { + var self = _xs$1; + if (self.length === 0) { + var $5975 = _res$2; + return $5975; + } else { + var $5976 = self.charCodeAt(0); + var $5977 = self.slice(1); + var $5978 = String$reverse$go$($5977, String$cons$($5976, _res$2)); + return $5978; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const String$reverse$go = x0 => x1 => String$reverse$go$(x0, x1); + + function String$reverse$(_xs$1) { + var $5979 = String$reverse$go$(_xs$1, String$nil); + return $5979; + }; + const String$reverse = x0 => String$reverse$(x0); + + function Kind$Parser$string$go$(_delim$1, _str$2, _pst$3) { + var Kind$Parser$string$go$ = (_delim$1, _str$2, _pst$3) => ({ + ctr: 'TCO', + arg: [_delim$1, _str$2, _pst$3] + }); + var Kind$Parser$string$go = _delim$1 => _str$2 => _pst$3 => Kind$Parser$string$go$(_delim$1, _str$2, _pst$3); + var arg = [_delim$1, _str$2, _pst$3]; + while (true) { + let [_delim$1, _str$2, _pst$3] = arg; + var R = (() => { + var self = _pst$3; + switch (self._) { + case 'Parser.State.new': + var $5980 = self.err; + var $5981 = self.nam; + var $5982 = self.ini; + var $5983 = self.idx; + var $5984 = self.str; + var self = $5984; + if (self.length === 0) { + var $5986 = Parser$Reply$fail$($5981, $5982, $5983, "Non-terminating string."); + var $5985 = $5986; + } else { + var $5987 = self.charCodeAt(0); + var $5988 = self.slice(1); + var self = ($5987 === _delim$1); + if (self) { + var _pst$11 = Parser$State$new$($5980, $5981, $5982, Nat$succ$($5983), $5988); + var $5990 = Parser$Reply$value$(_pst$11, String$reverse$(_str$2)); + var $5989 = $5990; + } else { + var self = Kind$Parser$char$single(_pst$3); + switch (self._) { + case 'Parser.Reply.error': + var $5992 = self.err; + var $5993 = Parser$Reply$error$($5992); + var $5991 = $5993; + break; + case 'Parser.Reply.value': + var $5994 = self.pst; + var $5995 = self.val; + var $5996 = Kind$Parser$string$go$(_delim$1, String$cons$($5995, _str$2), $5994); + var $5991 = $5996; + break; + }; + var $5989 = $5991; + }; + var $5985 = $5989; + }; + return $5985; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const Kind$Parser$string$go = x0 => x1 => x2 => Kind$Parser$string$go$(x0, x1, x2); + + function Kind$Parser$string$(_delim$1) { + var $5997 = Kind$Parser$block("string")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $5999 = self.err; + var _reply$8 = Kind$Parser$text$(String$cons$(_delim$1, String$nil), _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $6001 = self.err; + var self = $5999; + switch (self._) { + case 'Maybe.some': + var $6003 = self.value; + var $6004 = Parser$Reply$error$(Parser$Error$combine$($6003, $6001)); + var $6002 = $6004; + break; + case 'Maybe.none': + var $6005 = Parser$Reply$error$($6001); + var $6002 = $6005; + break; + }; + var $6000 = $6002; + break; + case 'Parser.Reply.value': + var $6006 = self.pst; + var self = $6006; + switch (self._) { + case 'Parser.State.new': + var $6008 = self.err; + var $6009 = self.nam; + var $6010 = self.ini; + var $6011 = self.idx; + var $6012 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($5999, $6008), $6009, $6010, $6011, $6012); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $6014 = self.err; + var _reply$22 = Kind$Parser$string$go$(_delim$1, "", _reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $6016 = self.err; + var self = $6014; + switch (self._) { + case 'Maybe.some': + var $6018 = self.value; + var $6019 = Parser$Reply$error$(Parser$Error$combine$($6018, $6016)); + var $6017 = $6019; + break; + case 'Maybe.none': + var $6020 = Parser$Reply$error$($6016); + var $6017 = $6020; + break; + }; + var $6015 = $6017; + break; + case 'Parser.Reply.value': + var $6021 = self.pst; + var $6022 = self.val; + var self = $6021; + switch (self._) { + case 'Parser.State.new': + var $6024 = self.err; + var $6025 = self.nam; + var $6026 = self.ini; + var $6027 = self.idx; + var $6028 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($6014, $6024), $6025, $6026, $6027, $6028); + var $6029 = Parser$Reply$value$(_reply$pst$30, Kind$Term$str$($6022)); + var $6023 = $6029; + break; + }; + var $6015 = $6023; + break; + }; + var $6013 = $6015; + break; + }; + var $6007 = $6013; + break; + }; + var $6000 = $6007; + break; + }; + var $5998 = $6000; + break; + }; + return $5998; + })); + return $5997; + }; + const Kind$Parser$string = x0 => Kind$Parser$string$(x0); + + function Kind$Term$new$(_args$1) { + var $6030 = ({ + _: 'Kind.Term.new', + 'args': _args$1 + }); + return $6030; + }; + const Kind$Term$new = x0 => Kind$Term$new$(x0); + const Kind$Parser$new = Kind$Parser$block("new-struct")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6032 = self.err; + var _reply$7 = Kind$Parser$items1$("{", Kind$Parser$term, "}")(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6034 = self.err; + var self = $6032; + switch (self._) { + case 'Maybe.some': + var $6036 = self.value; + var $6037 = Parser$Reply$error$(Parser$Error$combine$($6036, $6034)); + var $6035 = $6037; + break; + case 'Maybe.none': + var $6038 = Parser$Reply$error$($6034); + var $6035 = $6038; + break; + }; + var $6033 = $6035; + break; + case 'Parser.Reply.value': + var $6039 = self.pst; + var $6040 = self.val; + var self = $6039; + switch (self._) { + case 'Parser.State.new': + var $6042 = self.err; + var $6043 = self.nam; + var $6044 = self.ini; + var $6045 = self.idx; + var $6046 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6032, $6042), $6043, $6044, $6045, $6046); + var $6047 = Parser$Reply$value$(_reply$pst$15, Kind$Term$new$($6040)); + var $6041 = $6047; + break; + }; + var $6033 = $6041; + break; + }; + var $6031 = $6033; + break; + }; + return $6031; + })); + const Kind$Parser$sigma$type = Kind$Parser$block("sigma")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6049 = self.err; + var _reply$7 = Kind$Parser$text$("[", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6051 = self.err; + var self = $6049; + switch (self._) { + case 'Maybe.some': + var $6053 = self.value; + var $6054 = Parser$Reply$error$(Parser$Error$combine$($6053, $6051)); + var $6052 = $6054; + break; + case 'Maybe.none': + var $6055 = Parser$Reply$error$($6051); + var $6052 = $6055; + break; + }; + var $6050 = $6052; + break; + case 'Parser.Reply.value': + var $6056 = self.pst; + var self = $6056; + switch (self._) { + case 'Parser.State.new': + var $6058 = self.err; + var $6059 = self.nam; + var $6060 = self.ini; + var $6061 = self.idx; + var $6062 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6049, $6058), $6059, $6060, $6061, $6062); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6064 = self.err; + var _reply$21 = Kind$Parser$name1$(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6066 = self.err; + var self = $6064; + switch (self._) { + case 'Maybe.some': + var $6068 = self.value; + var $6069 = Parser$Reply$error$(Parser$Error$combine$($6068, $6066)); + var $6067 = $6069; + break; + case 'Maybe.none': + var $6070 = Parser$Reply$error$($6066); + var $6067 = $6070; + break; + }; + var $6065 = $6067; + break; + case 'Parser.Reply.value': + var $6071 = self.pst; + var $6072 = self.val; + var self = $6071; + switch (self._) { + case 'Parser.State.new': + var $6074 = self.err; + var $6075 = self.nam; + var $6076 = self.ini; + var $6077 = self.idx; + var $6078 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6064, $6074), $6075, $6076, $6077, $6078); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6080 = self.err; + var _reply$35 = Kind$Parser$text$(":", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6082 = self.err; + var self = $6080; + switch (self._) { + case 'Maybe.some': + var $6084 = self.value; + var $6085 = Parser$Reply$error$(Parser$Error$combine$($6084, $6082)); + var $6083 = $6085; + break; + case 'Maybe.none': + var $6086 = Parser$Reply$error$($6082); + var $6083 = $6086; + break; + }; + var $6081 = $6083; + break; + case 'Parser.Reply.value': + var $6087 = self.pst; + var self = $6087; + switch (self._) { + case 'Parser.State.new': + var $6089 = self.err; + var $6090 = self.nam; + var $6091 = self.ini; + var $6092 = self.idx; + var $6093 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6080, $6089), $6090, $6091, $6092, $6093); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $6095 = self.err; + var _reply$49 = Kind$Parser$term(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $6097 = self.err; + var self = $6095; + switch (self._) { + case 'Maybe.some': + var $6099 = self.value; + var $6100 = Parser$Reply$error$(Parser$Error$combine$($6099, $6097)); + var $6098 = $6100; + break; + case 'Maybe.none': + var $6101 = Parser$Reply$error$($6097); + var $6098 = $6101; + break; + }; + var $6096 = $6098; + break; + case 'Parser.Reply.value': + var $6102 = self.pst; + var $6103 = self.val; + var self = $6102; + switch (self._) { + case 'Parser.State.new': + var $6105 = self.err; + var $6106 = self.nam; + var $6107 = self.ini; + var $6108 = self.idx; + var $6109 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($6095, $6105), $6106, $6107, $6108, $6109); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $6111 = self.err; + var _reply$63 = Kind$Parser$text$("]", _reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $6113 = self.err; + var self = $6111; + switch (self._) { + case 'Maybe.some': + var $6115 = self.value; + var $6116 = Parser$Reply$error$(Parser$Error$combine$($6115, $6113)); + var $6114 = $6116; + break; + case 'Maybe.none': + var $6117 = Parser$Reply$error$($6113); + var $6114 = $6117; + break; + }; + var $6112 = $6114; + break; + case 'Parser.Reply.value': + var $6118 = self.pst; + var self = $6118; + switch (self._) { + case 'Parser.State.new': + var $6120 = self.err; + var $6121 = self.nam; + var $6122 = self.ini; + var $6123 = self.idx; + var $6124 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($6111, $6120), $6121, $6122, $6123, $6124); + var self = _reply$pst$71; + switch (self._) { + case 'Parser.State.new': + var $6126 = self.err; + var _reply$77 = Kind$Parser$term(_reply$pst$71); + var self = _reply$77; + switch (self._) { + case 'Parser.Reply.error': + var $6128 = self.err; + var self = $6126; + switch (self._) { + case 'Maybe.some': + var $6130 = self.value; + var $6131 = Parser$Reply$error$(Parser$Error$combine$($6130, $6128)); + var $6129 = $6131; + break; + case 'Maybe.none': + var $6132 = Parser$Reply$error$($6128); + var $6129 = $6132; + break; + }; + var $6127 = $6129; + break; + case 'Parser.Reply.value': + var $6133 = self.pst; + var $6134 = self.val; + var self = $6133; + switch (self._) { + case 'Parser.State.new': + var $6136 = self.err; + var $6137 = self.nam; + var $6138 = self.ini; + var $6139 = self.idx; + var $6140 = self.str; + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($6126, $6136), $6137, $6138, $6139, $6140); + var _term$86 = Kind$Term$ref$("Sigma"); + var _term$87 = Kind$Term$app$(_term$86, $6103); + var _term$88 = Kind$Term$app$(_term$87, Kind$Term$lam$($6072, (_x$88 => { + var $6142 = $6134; + return $6142; + }))); + var $6141 = Parser$Reply$value$(_reply$pst$85, _term$88); + var $6135 = $6141; + break; + }; + var $6127 = $6135; + break; + }; + var $6125 = $6127; + break; + }; + var $6119 = $6125; + break; + }; + var $6112 = $6119; + break; + }; + var $6110 = $6112; + break; + }; + var $6104 = $6110; + break; + }; + var $6096 = $6104; + break; + }; + var $6094 = $6096; + break; + }; + var $6088 = $6094; + break; + }; + var $6081 = $6088; + break; + }; + var $6079 = $6081; + break; + }; + var $6073 = $6079; + break; + }; + var $6065 = $6073; + break; + }; + var $6063 = $6065; + break; + }; + var $6057 = $6063; + break; + }; + var $6050 = $6057; + break; + }; + var $6048 = $6050; + break; + }; + return $6048; + })); + const Kind$Parser$some = Kind$Parser$block("some")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6144 = self.err; + var _reply$7 = Kind$Parser$text$("some(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6146 = self.err; + var self = $6144; + switch (self._) { + case 'Maybe.some': + var $6148 = self.value; + var $6149 = Parser$Reply$error$(Parser$Error$combine$($6148, $6146)); + var $6147 = $6149; + break; + case 'Maybe.none': + var $6150 = Parser$Reply$error$($6146); + var $6147 = $6150; + break; + }; + var $6145 = $6147; + break; + case 'Parser.Reply.value': + var $6151 = self.pst; + var self = $6151; + switch (self._) { + case 'Parser.State.new': + var $6153 = self.err; + var $6154 = self.nam; + var $6155 = self.ini; + var $6156 = self.idx; + var $6157 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6144, $6153), $6154, $6155, $6156, $6157); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6159 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6161 = self.err; + var self = $6159; + switch (self._) { + case 'Maybe.some': + var $6163 = self.value; + var $6164 = Parser$Reply$error$(Parser$Error$combine$($6163, $6161)); + var $6162 = $6164; + break; + case 'Maybe.none': + var $6165 = Parser$Reply$error$($6161); + var $6162 = $6165; + break; + }; + var $6160 = $6162; + break; + case 'Parser.Reply.value': + var $6166 = self.pst; + var $6167 = self.val; + var self = $6166; + switch (self._) { + case 'Parser.State.new': + var $6169 = self.err; + var $6170 = self.nam; + var $6171 = self.ini; + var $6172 = self.idx; + var $6173 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6159, $6169), $6170, $6171, $6172, $6173); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6175 = self.err; + var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6177 = self.err; + var self = $6175; + switch (self._) { + case 'Maybe.some': + var $6179 = self.value; + var $6180 = Parser$Reply$error$(Parser$Error$combine$($6179, $6177)); + var $6178 = $6180; + break; + case 'Maybe.none': + var $6181 = Parser$Reply$error$($6177); + var $6178 = $6181; + break; + }; + var $6176 = $6178; + break; + case 'Parser.Reply.value': + var $6182 = self.pst; + var self = $6182; + switch (self._) { + case 'Parser.State.new': + var $6184 = self.err; + var $6185 = self.nam; + var $6186 = self.ini; + var $6187 = self.idx; + var $6188 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6175, $6184), $6185, $6186, $6187, $6188); + var _term$44 = Kind$Term$ref$("Maybe.some"); + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$hol$(Bits$e)); + var _term$46 = Kind$Term$app$(_term$45, $6167); + var $6189 = Parser$Reply$value$(_reply$pst$43, _term$46); + var $6183 = $6189; + break; + }; + var $6176 = $6183; + break; + }; + var $6174 = $6176; + break; + }; + var $6168 = $6174; + break; + }; + var $6160 = $6168; + break; + }; + var $6158 = $6160; + break; + }; + var $6152 = $6158; + break; + }; + var $6145 = $6152; + break; + }; + var $6143 = $6145; + break; + }; + return $6143; + })); + const Kind$Parser$not = Kind$Parser$block("not")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6191 = self.err; + var _reply$7 = Kind$Parser$text$("not(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6193 = self.err; + var self = $6191; + switch (self._) { + case 'Maybe.some': + var $6195 = self.value; + var $6196 = Parser$Reply$error$(Parser$Error$combine$($6195, $6193)); + var $6194 = $6196; + break; + case 'Maybe.none': + var $6197 = Parser$Reply$error$($6193); + var $6194 = $6197; + break; + }; + var $6192 = $6194; + break; + case 'Parser.Reply.value': + var $6198 = self.pst; + var self = $6198; + switch (self._) { + case 'Parser.State.new': + var $6200 = self.err; + var $6201 = self.nam; + var $6202 = self.ini; + var $6203 = self.idx; + var $6204 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6191, $6200), $6201, $6202, $6203, $6204); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6206 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6208 = self.err; + var self = $6206; + switch (self._) { + case 'Maybe.some': + var $6210 = self.value; + var $6211 = Parser$Reply$error$(Parser$Error$combine$($6210, $6208)); + var $6209 = $6211; + break; + case 'Maybe.none': + var $6212 = Parser$Reply$error$($6208); + var $6209 = $6212; + break; + }; + var $6207 = $6209; + break; + case 'Parser.Reply.value': + var $6213 = self.pst; + var $6214 = self.val; + var self = $6213; + switch (self._) { + case 'Parser.State.new': + var $6216 = self.err; + var $6217 = self.nam; + var $6218 = self.ini; + var $6219 = self.idx; + var $6220 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6206, $6216), $6217, $6218, $6219, $6220); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6222 = self.err; + var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6224 = self.err; + var self = $6222; + switch (self._) { + case 'Maybe.some': + var $6226 = self.value; + var $6227 = Parser$Reply$error$(Parser$Error$combine$($6226, $6224)); + var $6225 = $6227; + break; + case 'Maybe.none': + var $6228 = Parser$Reply$error$($6224); + var $6225 = $6228; + break; + }; + var $6223 = $6225; + break; + case 'Parser.Reply.value': + var $6229 = self.pst; + var self = $6229; + switch (self._) { + case 'Parser.State.new': + var $6231 = self.err; + var $6232 = self.nam; + var $6233 = self.ini; + var $6234 = self.idx; + var $6235 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6222, $6231), $6232, $6233, $6234, $6235); + var _term$44 = Kind$Term$ref$("Bool.not"); + var _term$45 = Kind$Term$app$(_term$44, $6214); + var $6236 = Parser$Reply$value$(_reply$pst$43, _term$45); + var $6230 = $6236; + break; + }; + var $6223 = $6230; + break; + }; + var $6221 = $6223; + break; + }; + var $6215 = $6221; + break; + }; + var $6207 = $6215; + break; + }; + var $6205 = $6207; + break; + }; + var $6199 = $6205; + break; + }; + var $6192 = $6199; + break; + }; + var $6190 = $6192; + break; + }; + return $6190; + })); + const Kind$Parser$left = Kind$Parser$block("left")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6238 = self.err; + var _reply$7 = Kind$Parser$text$("left(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6240 = self.err; + var self = $6238; + switch (self._) { + case 'Maybe.some': + var $6242 = self.value; + var $6243 = Parser$Reply$error$(Parser$Error$combine$($6242, $6240)); + var $6241 = $6243; + break; + case 'Maybe.none': + var $6244 = Parser$Reply$error$($6240); + var $6241 = $6244; + break; + }; + var $6239 = $6241; + break; + case 'Parser.Reply.value': + var $6245 = self.pst; + var self = $6245; + switch (self._) { + case 'Parser.State.new': + var $6247 = self.err; + var $6248 = self.nam; + var $6249 = self.ini; + var $6250 = self.idx; + var $6251 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6238, $6247), $6248, $6249, $6250, $6251); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6253 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6255 = self.err; + var self = $6253; + switch (self._) { + case 'Maybe.some': + var $6257 = self.value; + var $6258 = Parser$Reply$error$(Parser$Error$combine$($6257, $6255)); + var $6256 = $6258; + break; + case 'Maybe.none': + var $6259 = Parser$Reply$error$($6255); + var $6256 = $6259; + break; + }; + var $6254 = $6256; + break; + case 'Parser.Reply.value': + var $6260 = self.pst; + var $6261 = self.val; + var self = $6260; + switch (self._) { + case 'Parser.State.new': + var $6263 = self.err; + var $6264 = self.nam; + var $6265 = self.ini; + var $6266 = self.idx; + var $6267 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6253, $6263), $6264, $6265, $6266, $6267); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6269 = self.err; + var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6271 = self.err; + var self = $6269; + switch (self._) { + case 'Maybe.some': + var $6273 = self.value; + var $6274 = Parser$Reply$error$(Parser$Error$combine$($6273, $6271)); + var $6272 = $6274; + break; + case 'Maybe.none': + var $6275 = Parser$Reply$error$($6271); + var $6272 = $6275; + break; + }; + var $6270 = $6272; + break; + case 'Parser.Reply.value': + var $6276 = self.pst; + var self = $6276; + switch (self._) { + case 'Parser.State.new': + var $6278 = self.err; + var $6279 = self.nam; + var $6280 = self.ini; + var $6281 = self.idx; + var $6282 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6269, $6278), $6279, $6280, $6281, $6282); + var _term$44 = Kind$Term$ref$("Either.left"); + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$hol$(Bits$e)); + var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); + var _term$47 = Kind$Term$app$(_term$46, $6261); + var $6283 = Parser$Reply$value$(_reply$pst$43, _term$47); + var $6277 = $6283; + break; + }; + var $6270 = $6277; + break; + }; + var $6268 = $6270; + break; + }; + var $6262 = $6268; + break; + }; + var $6254 = $6262; + break; + }; + var $6252 = $6254; + break; + }; + var $6246 = $6252; + break; + }; + var $6239 = $6246; + break; + }; + var $6237 = $6239; + break; + }; + return $6237; + })); + const Kind$Parser$right = Kind$Parser$block("right")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6285 = self.err; + var _reply$7 = Kind$Parser$text$("right(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6287 = self.err; + var self = $6285; + switch (self._) { + case 'Maybe.some': + var $6289 = self.value; + var $6290 = Parser$Reply$error$(Parser$Error$combine$($6289, $6287)); + var $6288 = $6290; + break; + case 'Maybe.none': + var $6291 = Parser$Reply$error$($6287); + var $6288 = $6291; + break; + }; + var $6286 = $6288; + break; + case 'Parser.Reply.value': + var $6292 = self.pst; + var self = $6292; + switch (self._) { + case 'Parser.State.new': + var $6294 = self.err; + var $6295 = self.nam; + var $6296 = self.ini; + var $6297 = self.idx; + var $6298 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6285, $6294), $6295, $6296, $6297, $6298); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6300 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6302 = self.err; + var self = $6300; + switch (self._) { + case 'Maybe.some': + var $6304 = self.value; + var $6305 = Parser$Reply$error$(Parser$Error$combine$($6304, $6302)); + var $6303 = $6305; + break; + case 'Maybe.none': + var $6306 = Parser$Reply$error$($6302); + var $6303 = $6306; + break; + }; + var $6301 = $6303; + break; + case 'Parser.Reply.value': + var $6307 = self.pst; + var $6308 = self.val; + var self = $6307; + switch (self._) { + case 'Parser.State.new': + var $6310 = self.err; + var $6311 = self.nam; + var $6312 = self.ini; + var $6313 = self.idx; + var $6314 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6300, $6310), $6311, $6312, $6313, $6314); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6316 = self.err; + var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6318 = self.err; + var self = $6316; + switch (self._) { + case 'Maybe.some': + var $6320 = self.value; + var $6321 = Parser$Reply$error$(Parser$Error$combine$($6320, $6318)); + var $6319 = $6321; + break; + case 'Maybe.none': + var $6322 = Parser$Reply$error$($6318); + var $6319 = $6322; + break; + }; + var $6317 = $6319; + break; + case 'Parser.Reply.value': + var $6323 = self.pst; + var self = $6323; + switch (self._) { + case 'Parser.State.new': + var $6325 = self.err; + var $6326 = self.nam; + var $6327 = self.ini; + var $6328 = self.idx; + var $6329 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6316, $6325), $6326, $6327, $6328, $6329); + var _term$44 = Kind$Term$ref$("Either.right"); + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$hol$(Bits$e)); + var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); + var _term$47 = Kind$Term$app$(_term$46, $6308); + var $6330 = Parser$Reply$value$(_reply$pst$43, _term$47); + var $6324 = $6330; + break; + }; + var $6317 = $6324; + break; + }; + var $6315 = $6317; + break; + }; + var $6309 = $6315; + break; + }; + var $6301 = $6309; + break; + }; + var $6299 = $6301; + break; + }; + var $6293 = $6299; + break; + }; + var $6286 = $6293; + break; + }; + var $6284 = $6286; + break; + }; + return $6284; + })); + const Kind$Parser$apply = Kind$Parser$block("apply")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6332 = self.err; + var _reply$7 = Kind$Parser$text$("apply(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6334 = self.err; + var self = $6332; + switch (self._) { + case 'Maybe.some': + var $6336 = self.value; + var $6337 = Parser$Reply$error$(Parser$Error$combine$($6336, $6334)); + var $6335 = $6337; + break; + case 'Maybe.none': + var $6338 = Parser$Reply$error$($6334); + var $6335 = $6338; + break; + }; + var $6333 = $6335; + break; + case 'Parser.Reply.value': + var $6339 = self.pst; + var self = $6339; + switch (self._) { + case 'Parser.State.new': + var $6341 = self.err; + var $6342 = self.nam; + var $6343 = self.ini; + var $6344 = self.idx; + var $6345 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6332, $6341), $6342, $6343, $6344, $6345); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6347 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6349 = self.err; + var self = $6347; + switch (self._) { + case 'Maybe.some': + var $6351 = self.value; + var $6352 = Parser$Reply$error$(Parser$Error$combine$($6351, $6349)); + var $6350 = $6352; + break; + case 'Maybe.none': + var $6353 = Parser$Reply$error$($6349); + var $6350 = $6353; + break; + }; + var $6348 = $6350; + break; + case 'Parser.Reply.value': + var $6354 = self.pst; + var $6355 = self.val; + var self = $6354; + switch (self._) { + case 'Parser.State.new': + var $6357 = self.err; + var $6358 = self.nam; + var $6359 = self.ini; + var $6360 = self.idx; + var $6361 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6347, $6357), $6358, $6359, $6360, $6361); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6363 = self.err; + var _reply$35 = Kind$Parser$text$(",", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6365 = self.err; + var self = $6363; + switch (self._) { + case 'Maybe.some': + var $6367 = self.value; + var $6368 = Parser$Reply$error$(Parser$Error$combine$($6367, $6365)); + var $6366 = $6368; + break; + case 'Maybe.none': + var $6369 = Parser$Reply$error$($6365); + var $6366 = $6369; + break; + }; + var $6364 = $6366; + break; + case 'Parser.Reply.value': + var $6370 = self.pst; + var self = $6370; + switch (self._) { + case 'Parser.State.new': + var $6372 = self.err; + var $6373 = self.nam; + var $6374 = self.ini; + var $6375 = self.idx; + var $6376 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6363, $6372), $6373, $6374, $6375, $6376); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $6378 = self.err; + var _reply$49 = Kind$Parser$term(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $6380 = self.err; + var self = $6378; + switch (self._) { + case 'Maybe.some': + var $6382 = self.value; + var $6383 = Parser$Reply$error$(Parser$Error$combine$($6382, $6380)); + var $6381 = $6383; + break; + case 'Maybe.none': + var $6384 = Parser$Reply$error$($6380); + var $6381 = $6384; + break; + }; + var $6379 = $6381; + break; + case 'Parser.Reply.value': + var $6385 = self.pst; + var $6386 = self.val; + var self = $6385; + switch (self._) { + case 'Parser.State.new': + var $6388 = self.err; + var $6389 = self.nam; + var $6390 = self.ini; + var $6391 = self.idx; + var $6392 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($6378, $6388), $6389, $6390, $6391, $6392); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $6394 = self.err; + var _reply$63 = Kind$Parser$text$(")", _reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $6396 = self.err; + var self = $6394; + switch (self._) { + case 'Maybe.some': + var $6398 = self.value; + var $6399 = Parser$Reply$error$(Parser$Error$combine$($6398, $6396)); + var $6397 = $6399; + break; + case 'Maybe.none': + var $6400 = Parser$Reply$error$($6396); + var $6397 = $6400; + break; + }; + var $6395 = $6397; + break; + case 'Parser.Reply.value': + var $6401 = self.pst; + var self = $6401; + switch (self._) { + case 'Parser.State.new': + var $6403 = self.err; + var $6404 = self.nam; + var $6405 = self.ini; + var $6406 = self.idx; + var $6407 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($6394, $6403), $6404, $6405, $6406, $6407); + var _term$72 = Kind$Term$ref$("Equal.apply"); + var _term$73 = Kind$Term$app$(_term$72, Kind$Term$hol$(Bits$e)); + var _term$74 = Kind$Term$app$(_term$73, Kind$Term$hol$(Bits$e)); + var _term$75 = Kind$Term$app$(_term$74, Kind$Term$hol$(Bits$e)); + var _term$76 = Kind$Term$app$(_term$75, Kind$Term$hol$(Bits$e)); + var _term$77 = Kind$Term$app$(_term$76, $6355); + var _term$78 = Kind$Term$app$(_term$77, $6386); + var $6408 = Parser$Reply$value$(_reply$pst$71, _term$78); + var $6402 = $6408; + break; + }; + var $6395 = $6402; + break; + }; + var $6393 = $6395; + break; + }; + var $6387 = $6393; + break; + }; + var $6379 = $6387; + break; + }; + var $6377 = $6379; + break; + }; + var $6371 = $6377; + break; + }; + var $6364 = $6371; + break; + }; + var $6362 = $6364; + break; + }; + var $6356 = $6362; + break; + }; + var $6348 = $6356; + break; + }; + var $6346 = $6348; + break; + }; + var $6340 = $6346; + break; + }; + var $6333 = $6340; + break; + }; + var $6331 = $6333; + break; + }; + return $6331; + })); + const Kind$Parser$chain = Kind$Parser$block("chain")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6410 = self.err; + var _reply$7 = Kind$Parser$text$("chain(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6412 = self.err; + var self = $6410; + switch (self._) { + case 'Maybe.some': + var $6414 = self.value; + var $6415 = Parser$Reply$error$(Parser$Error$combine$($6414, $6412)); + var $6413 = $6415; + break; + case 'Maybe.none': + var $6416 = Parser$Reply$error$($6412); + var $6413 = $6416; + break; + }; + var $6411 = $6413; + break; + case 'Parser.Reply.value': + var $6417 = self.pst; + var self = $6417; + switch (self._) { + case 'Parser.State.new': + var $6419 = self.err; + var $6420 = self.nam; + var $6421 = self.ini; + var $6422 = self.idx; + var $6423 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6410, $6419), $6420, $6421, $6422, $6423); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6425 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6427 = self.err; + var self = $6425; + switch (self._) { + case 'Maybe.some': + var $6429 = self.value; + var $6430 = Parser$Reply$error$(Parser$Error$combine$($6429, $6427)); + var $6428 = $6430; + break; + case 'Maybe.none': + var $6431 = Parser$Reply$error$($6427); + var $6428 = $6431; + break; + }; + var $6426 = $6428; + break; + case 'Parser.Reply.value': + var $6432 = self.pst; + var $6433 = self.val; + var self = $6432; + switch (self._) { + case 'Parser.State.new': + var $6435 = self.err; + var $6436 = self.nam; + var $6437 = self.ini; + var $6438 = self.idx; + var $6439 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6425, $6435), $6436, $6437, $6438, $6439); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6441 = self.err; + var _reply$35 = Kind$Parser$text$(",", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6443 = self.err; + var self = $6441; + switch (self._) { + case 'Maybe.some': + var $6445 = self.value; + var $6446 = Parser$Reply$error$(Parser$Error$combine$($6445, $6443)); + var $6444 = $6446; + break; + case 'Maybe.none': + var $6447 = Parser$Reply$error$($6443); + var $6444 = $6447; + break; + }; + var $6442 = $6444; + break; + case 'Parser.Reply.value': + var $6448 = self.pst; + var self = $6448; + switch (self._) { + case 'Parser.State.new': + var $6450 = self.err; + var $6451 = self.nam; + var $6452 = self.ini; + var $6453 = self.idx; + var $6454 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6441, $6450), $6451, $6452, $6453, $6454); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $6456 = self.err; + var _reply$49 = Kind$Parser$term(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $6458 = self.err; + var self = $6456; + switch (self._) { + case 'Maybe.some': + var $6460 = self.value; + var $6461 = Parser$Reply$error$(Parser$Error$combine$($6460, $6458)); + var $6459 = $6461; + break; + case 'Maybe.none': + var $6462 = Parser$Reply$error$($6458); + var $6459 = $6462; + break; + }; + var $6457 = $6459; + break; + case 'Parser.Reply.value': + var $6463 = self.pst; + var $6464 = self.val; + var self = $6463; + switch (self._) { + case 'Parser.State.new': + var $6466 = self.err; + var $6467 = self.nam; + var $6468 = self.ini; + var $6469 = self.idx; + var $6470 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($6456, $6466), $6467, $6468, $6469, $6470); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $6472 = self.err; + var _reply$63 = Kind$Parser$text$(")", _reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $6474 = self.err; + var self = $6472; + switch (self._) { + case 'Maybe.some': + var $6476 = self.value; + var $6477 = Parser$Reply$error$(Parser$Error$combine$($6476, $6474)); + var $6475 = $6477; + break; + case 'Maybe.none': + var $6478 = Parser$Reply$error$($6474); + var $6475 = $6478; + break; + }; + var $6473 = $6475; + break; + case 'Parser.Reply.value': + var $6479 = self.pst; + var self = $6479; + switch (self._) { + case 'Parser.State.new': + var $6481 = self.err; + var $6482 = self.nam; + var $6483 = self.ini; + var $6484 = self.idx; + var $6485 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($6472, $6481), $6482, $6483, $6484, $6485); + var _term$72 = Kind$Term$ref$("Equal.chain"); + var _term$73 = Kind$Term$app$(_term$72, Kind$Term$hol$(Bits$e)); + var _term$74 = Kind$Term$app$(_term$73, Kind$Term$hol$(Bits$e)); + var _term$75 = Kind$Term$app$(_term$74, Kind$Term$hol$(Bits$e)); + var _term$76 = Kind$Term$app$(_term$75, Kind$Term$hol$(Bits$e)); + var _term$77 = Kind$Term$app$(_term$76, $6433); + var _term$78 = Kind$Term$app$(_term$77, $6464); + var $6486 = Parser$Reply$value$(_reply$pst$71, _term$78); + var $6480 = $6486; + break; + }; + var $6473 = $6480; + break; + }; + var $6471 = $6473; + break; + }; + var $6465 = $6471; + break; + }; + var $6457 = $6465; + break; + }; + var $6455 = $6457; + break; + }; + var $6449 = $6455; + break; + }; + var $6442 = $6449; + break; + }; + var $6440 = $6442; + break; + }; + var $6434 = $6440; + break; + }; + var $6426 = $6434; + break; + }; + var $6424 = $6426; + break; + }; + var $6418 = $6424; + break; + }; + var $6411 = $6418; + break; + }; + var $6409 = $6411; + break; + }; + return $6409; + })); + const Kind$Parser$mirror = Kind$Parser$block("mirror")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6488 = self.err; + var _reply$7 = Kind$Parser$text$("mirror(", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6490 = self.err; + var self = $6488; + switch (self._) { + case 'Maybe.some': + var $6492 = self.value; + var $6493 = Parser$Reply$error$(Parser$Error$combine$($6492, $6490)); + var $6491 = $6493; + break; + case 'Maybe.none': + var $6494 = Parser$Reply$error$($6490); + var $6491 = $6494; + break; + }; + var $6489 = $6491; + break; + case 'Parser.Reply.value': + var $6495 = self.pst; + var self = $6495; + switch (self._) { + case 'Parser.State.new': + var $6497 = self.err; + var $6498 = self.nam; + var $6499 = self.ini; + var $6500 = self.idx; + var $6501 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6488, $6497), $6498, $6499, $6500, $6501); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6503 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6505 = self.err; + var self = $6503; + switch (self._) { + case 'Maybe.some': + var $6507 = self.value; + var $6508 = Parser$Reply$error$(Parser$Error$combine$($6507, $6505)); + var $6506 = $6508; + break; + case 'Maybe.none': + var $6509 = Parser$Reply$error$($6505); + var $6506 = $6509; + break; + }; + var $6504 = $6506; + break; + case 'Parser.Reply.value': + var $6510 = self.pst; + var $6511 = self.val; + var self = $6510; + switch (self._) { + case 'Parser.State.new': + var $6513 = self.err; + var $6514 = self.nam; + var $6515 = self.ini; + var $6516 = self.idx; + var $6517 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6503, $6513), $6514, $6515, $6516, $6517); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6519 = self.err; + var _reply$35 = Kind$Parser$text$(")", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6521 = self.err; + var self = $6519; + switch (self._) { + case 'Maybe.some': + var $6523 = self.value; + var $6524 = Parser$Reply$error$(Parser$Error$combine$($6523, $6521)); + var $6522 = $6524; + break; + case 'Maybe.none': + var $6525 = Parser$Reply$error$($6521); + var $6522 = $6525; + break; + }; + var $6520 = $6522; + break; + case 'Parser.Reply.value': + var $6526 = self.pst; + var self = $6526; + switch (self._) { + case 'Parser.State.new': + var $6528 = self.err; + var $6529 = self.nam; + var $6530 = self.ini; + var $6531 = self.idx; + var $6532 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6519, $6528), $6529, $6530, $6531, $6532); + var _term$44 = Kind$Term$ref$("Equal.mirror"); + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$hol$(Bits$e)); + var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); + var _term$47 = Kind$Term$app$(_term$46, Kind$Term$hol$(Bits$e)); + var _term$48 = Kind$Term$app$(_term$47, $6511); + var $6533 = Parser$Reply$value$(_reply$pst$43, _term$48); + var $6527 = $6533; + break; + }; + var $6520 = $6527; + break; + }; + var $6518 = $6520; + break; + }; + var $6512 = $6518; + break; + }; + var $6504 = $6512; + break; + }; + var $6502 = $6504; + break; + }; + var $6496 = $6502; + break; + }; + var $6489 = $6496; + break; + }; + var $6487 = $6489; + break; + }; + return $6487; + })); + + function Kind$Parser$comprehension$and_all$(_a$1) { + var self = _a$1; + switch (self._) { + case 'List.cons': + var $6535 = self.head; + var $6536 = self.tail; + var _and$4 = Kind$Term$ref$("Bool.and"); + var _and$5 = Kind$Term$app$(_and$4, $6535); + var _and$6 = Kind$Term$app$(_and$5, Kind$Parser$comprehension$and_all$($6536)); + var $6537 = _and$6; + var $6534 = $6537; + break; + case 'List.nil': + var $6538 = Kind$Term$ref$("Bool.true"); + var $6534 = $6538; + break; + }; + return $6534; + }; + const Kind$Parser$comprehension$and_all = x0 => Kind$Parser$comprehension$and_all$(x0); + + function Kind$Parser$comprehension$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6540 = self.err; + var _reply$7 = Kind$Parser$text$("[", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6542 = self.err; + var self = $6540; + switch (self._) { + case 'Maybe.some': + var $6544 = self.value; + var $6545 = Parser$Reply$error$(Parser$Error$combine$($6544, $6542)); + var $6543 = $6545; + break; + case 'Maybe.none': + var $6546 = Parser$Reply$error$($6542); + var $6543 = $6546; + break; + }; + var $6541 = $6543; + break; + case 'Parser.Reply.value': + var $6547 = self.pst; + var self = $6547; + switch (self._) { + case 'Parser.State.new': + var $6549 = self.err; + var $6550 = self.nam; + var $6551 = self.ini; + var $6552 = self.idx; + var $6553 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6540, $6549), $6550, $6551, $6552, $6553); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $6555 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $6557 = self.err; + var self = $6555; + switch (self._) { + case 'Maybe.some': + var $6559 = self.value; + var $6560 = Parser$Reply$error$(Parser$Error$combine$($6559, $6557)); + var $6558 = $6560; + break; + case 'Maybe.none': + var $6561 = Parser$Reply$error$($6557); + var $6558 = $6561; + break; + }; + var $6556 = $6558; + break; + case 'Parser.Reply.value': + var $6562 = self.pst; + var $6563 = self.val; + var self = $6562; + switch (self._) { + case 'Parser.State.new': + var $6565 = self.err; + var $6566 = self.nam; + var $6567 = self.ini; + var $6568 = self.idx; + var $6569 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($6555, $6565), $6566, $6567, $6568, $6569); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $6571 = self.err; + var _reply$35 = Kind$Parser$text$("for", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $6573 = self.err; + var self = $6571; + switch (self._) { + case 'Maybe.some': + var $6575 = self.value; + var $6576 = Parser$Reply$error$(Parser$Error$combine$($6575, $6573)); + var $6574 = $6576; + break; + case 'Maybe.none': + var $6577 = Parser$Reply$error$($6573); + var $6574 = $6577; + break; + }; + var $6572 = $6574; + break; + case 'Parser.Reply.value': + var $6578 = self.pst; + var self = $6578; + switch (self._) { + case 'Parser.State.new': + var $6580 = self.err; + var $6581 = self.nam; + var $6582 = self.ini; + var $6583 = self.idx; + var $6584 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($6571, $6580), $6581, $6582, $6583, $6584); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $6586 = self.err; + var _reply$49 = Kind$Parser$name1$(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $6588 = self.err; + var self = $6586; + switch (self._) { + case 'Maybe.some': + var $6590 = self.value; + var $6591 = Parser$Reply$error$(Parser$Error$combine$($6590, $6588)); + var $6589 = $6591; + break; + case 'Maybe.none': + var $6592 = Parser$Reply$error$($6588); + var $6589 = $6592; + break; + }; + var $6587 = $6589; + break; + case 'Parser.Reply.value': + var $6593 = self.pst; + var $6594 = self.val; + var self = $6593; + switch (self._) { + case 'Parser.State.new': + var $6596 = self.err; + var $6597 = self.nam; + var $6598 = self.ini; + var $6599 = self.idx; + var $6600 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($6586, $6596), $6597, $6598, $6599, $6600); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $6602 = self.err; + var _reply$63 = Kind$Parser$text$("in", _reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $6604 = self.err; + var self = $6602; + switch (self._) { + case 'Maybe.some': + var $6606 = self.value; + var $6607 = Parser$Reply$error$(Parser$Error$combine$($6606, $6604)); + var $6605 = $6607; + break; + case 'Maybe.none': + var $6608 = Parser$Reply$error$($6604); + var $6605 = $6608; + break; + }; + var $6603 = $6605; + break; + case 'Parser.Reply.value': + var $6609 = self.pst; + var self = $6609; + switch (self._) { + case 'Parser.State.new': + var $6611 = self.err; + var $6612 = self.nam; + var $6613 = self.ini; + var $6614 = self.idx; + var $6615 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($6602, $6611), $6612, $6613, $6614, $6615); + var self = _reply$pst$71; + switch (self._) { + case 'Parser.State.new': + var $6617 = self.err; + var _reply$77 = Kind$Parser$term(_reply$pst$71); + var self = _reply$77; + switch (self._) { + case 'Parser.Reply.error': + var $6619 = self.err; + var self = $6617; + switch (self._) { + case 'Maybe.some': + var $6621 = self.value; + var $6622 = Parser$Reply$error$(Parser$Error$combine$($6621, $6619)); + var $6620 = $6622; + break; + case 'Maybe.none': + var $6623 = Parser$Reply$error$($6619); + var $6620 = $6623; + break; + }; + var $6618 = $6620; + break; + case 'Parser.Reply.value': + var $6624 = self.pst; + var $6625 = self.val; + var self = $6624; + switch (self._) { + case 'Parser.State.new': + var $6627 = self.err; + var $6628 = self.nam; + var $6629 = self.ini; + var $6630 = self.idx; + var $6631 = self.str; + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($6617, $6627), $6628, $6629, $6630, $6631); + var self = _reply$pst$85; + switch (self._) { + case 'Parser.State.new': + var $6633 = self.err; + var _reply$91 = Parser$maybe$(Kind$Parser$text("where"), _reply$pst$85); + var self = _reply$91; + switch (self._) { + case 'Parser.Reply.error': + var $6635 = self.err; + var self = $6633; + switch (self._) { + case 'Maybe.some': + var $6637 = self.value; + var $6638 = Parser$Reply$error$(Parser$Error$combine$($6637, $6635)); + var $6636 = $6638; + break; + case 'Maybe.none': + var $6639 = Parser$Reply$error$($6635); + var $6636 = $6639; + break; + }; + var $6634 = $6636; + break; + case 'Parser.Reply.value': + var $6640 = self.pst; + var self = $6640; + switch (self._) { + case 'Parser.State.new': + var $6642 = self.err; + var $6643 = self.nam; + var $6644 = self.ini; + var $6645 = self.idx; + var $6646 = self.str; + var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($6633, $6642), $6643, $6644, $6645, $6646); + var self = _reply$pst$99; + switch (self._) { + case 'Parser.State.new': + var $6648 = self.err; + var _reply$105 = Parser$until$(Kind$Parser$text("]"), (_pst$105 => { + var self = _pst$105; + switch (self._) { + case 'Parser.State.new': + var $6651 = self.err; + var _reply$111 = Kind$Parser$spaces(_pst$105); + var self = _reply$111; + switch (self._) { + case 'Parser.Reply.error': + var $6653 = self.err; + var self = $6651; + switch (self._) { + case 'Maybe.some': + var $6655 = self.value; + var $6656 = Parser$Reply$error$(Parser$Error$combine$($6655, $6653)); + var $6654 = $6656; + break; + case 'Maybe.none': + var $6657 = Parser$Reply$error$($6653); + var $6654 = $6657; + break; + }; + var $6652 = $6654; + break; + case 'Parser.Reply.value': + var $6658 = self.pst; + var self = $6658; + switch (self._) { + case 'Parser.State.new': + var $6660 = self.err; + var $6661 = self.nam; + var $6662 = self.ini; + var $6663 = self.idx; + var $6664 = self.str; + var _reply$pst$119 = Parser$State$new$(Parser$Error$maybe_combine$($6651, $6660), $6661, $6662, $6663, $6664); + var self = _reply$pst$119; + switch (self._) { + case 'Parser.State.new': + var $6666 = self.err; + var _reply$125 = Kind$Parser$term(_reply$pst$119); + var self = _reply$125; + switch (self._) { + case 'Parser.Reply.error': + var $6668 = self.err; + var self = $6666; + switch (self._) { + case 'Maybe.some': + var $6670 = self.value; + var $6671 = Parser$Reply$error$(Parser$Error$combine$($6670, $6668)); + var $6669 = $6671; + break; + case 'Maybe.none': + var $6672 = Parser$Reply$error$($6668); + var $6669 = $6672; + break; + }; + var $6667 = $6669; + break; + case 'Parser.Reply.value': + var $6673 = self.pst; + var $6674 = self.val; + var self = $6673; + switch (self._) { + case 'Parser.State.new': + var $6676 = self.err; + var $6677 = self.nam; + var $6678 = self.ini; + var $6679 = self.idx; + var $6680 = self.str; + var _reply$pst$133 = Parser$State$new$(Parser$Error$maybe_combine$($6666, $6676), $6677, $6678, $6679, $6680); + var self = _reply$pst$133; + switch (self._) { + case 'Parser.State.new': + var $6682 = self.err; + var _reply$139 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$133); + var self = _reply$139; + switch (self._) { + case 'Parser.Reply.error': + var $6684 = self.err; + var self = $6682; + switch (self._) { + case 'Maybe.some': + var $6686 = self.value; + var $6687 = Parser$Reply$error$(Parser$Error$combine$($6686, $6684)); + var $6685 = $6687; + break; + case 'Maybe.none': + var $6688 = Parser$Reply$error$($6684); + var $6685 = $6688; + break; + }; + var $6683 = $6685; + break; + case 'Parser.Reply.value': + var $6689 = self.pst; + var self = $6689; + switch (self._) { + case 'Parser.State.new': + var $6691 = self.err; + var $6692 = self.nam; + var $6693 = self.ini; + var $6694 = self.idx; + var $6695 = self.str; + var _reply$pst$147 = Parser$State$new$(Parser$Error$maybe_combine$($6682, $6691), $6692, $6693, $6694, $6695); + var $6696 = Parser$Reply$value$(_reply$pst$147, $6674); + var $6690 = $6696; + break; + }; + var $6683 = $6690; + break; + }; + var $6681 = $6683; + break; + }; + var $6675 = $6681; + break; + }; + var $6667 = $6675; + break; + }; + var $6665 = $6667; + break; + }; + var $6659 = $6665; + break; + }; + var $6652 = $6659; + break; + }; + var $6650 = $6652; + break; + }; + return $6650; + }))(_reply$pst$99); + var self = _reply$105; + switch (self._) { + case 'Parser.Reply.error': + var $6697 = self.err; + var self = $6648; + switch (self._) { + case 'Maybe.some': + var $6699 = self.value; + var $6700 = Parser$Reply$error$(Parser$Error$combine$($6699, $6697)); + var $6698 = $6700; + break; + case 'Maybe.none': + var $6701 = Parser$Reply$error$($6697); + var $6698 = $6701; + break; + }; + var $6649 = $6698; + break; + case 'Parser.Reply.value': + var $6702 = self.pst; + var $6703 = self.val; + var self = $6702; + switch (self._) { + case 'Parser.State.new': + var $6705 = self.err; + var $6706 = self.nam; + var $6707 = self.ini; + var $6708 = self.idx; + var $6709 = self.str; + var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($6648, $6705), $6706, $6707, $6708, $6709); + var _and$114 = Kind$Parser$comprehension$and_all$($6703); + var _filter_fun$115 = Kind$Term$ref$("List.filter"); + var _filter_fun$116 = Kind$Term$app$(_filter_fun$115, Kind$Term$hol$(Bits$e)); + var _lamb_filter$117 = Kind$Term$lam$($6594, (_i$117 => { + var $6711 = _and$114; + return $6711; + })); + var _filter_fun$118 = Kind$Term$app$(_filter_fun$116, _lamb_filter$117); + var _filter_fun$119 = Kind$Term$app$(_filter_fun$118, $6625); + var _term$120 = Kind$Term$ref$("List.map"); + var _term$121 = Kind$Term$app$(_term$120, Kind$Term$hol$(Bits$e)); + var _term$122 = Kind$Term$app$(_term$121, Kind$Term$hol$(Bits$e)); + var _lamb$123 = Kind$Term$lam$($6594, (_i$123 => { + var $6712 = $6563; + return $6712; + })); + var _term$124 = Kind$Term$app$(_term$122, _lamb$123); + var _term$125 = Kind$Term$app$(_term$124, _filter_fun$119); + var $6710 = Parser$Reply$value$(_reply$pst$113, _term$125); + var $6704 = $6710; + break; + }; + var $6649 = $6704; + break; + }; + var $6647 = $6649; + break; + }; + var $6641 = $6647; + break; + }; + var $6634 = $6641; + break; + }; + var $6632 = $6634; + break; + }; + var $6626 = $6632; + break; + }; + var $6618 = $6626; + break; + }; + var $6616 = $6618; + break; + }; + var $6610 = $6616; + break; + }; + var $6603 = $6610; + break; + }; + var $6601 = $6603; + break; + }; + var $6595 = $6601; + break; + }; + var $6587 = $6595; + break; + }; + var $6585 = $6587; + break; + }; + var $6579 = $6585; + break; + }; + var $6572 = $6579; + break; + }; + var $6570 = $6572; + break; + }; + var $6564 = $6570; + break; + }; + var $6556 = $6564; + break; + }; + var $6554 = $6556; + break; + }; + var $6548 = $6554; + break; + }; + var $6541 = $6548; + break; + }; + var $6539 = $6541; + break; + }; + return $6539; + }; + const Kind$Parser$comprehension = x0 => Kind$Parser$comprehension$(x0); + + function Kind$Parser$comprehension_range$go$(_typename$1) { + var $6713 = Kind$Parser$block("comprehension_range")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $6715 = self.err; + var _reply$8 = Kind$Parser$text$("[", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $6717 = self.err; + var self = $6715; + switch (self._) { + case 'Maybe.some': + var $6719 = self.value; + var $6720 = Parser$Reply$error$(Parser$Error$combine$($6719, $6717)); + var $6718 = $6720; + break; + case 'Maybe.none': + var $6721 = Parser$Reply$error$($6717); + var $6718 = $6721; + break; + }; + var $6716 = $6718; + break; + case 'Parser.Reply.value': + var $6722 = self.pst; + var self = $6722; + switch (self._) { + case 'Parser.State.new': + var $6724 = self.err; + var $6725 = self.nam; + var $6726 = self.ini; + var $6727 = self.idx; + var $6728 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($6715, $6724), $6725, $6726, $6727, $6728); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $6730 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $6732 = self.err; + var self = $6730; + switch (self._) { + case 'Maybe.some': + var $6734 = self.value; + var $6735 = Parser$Reply$error$(Parser$Error$combine$($6734, $6732)); + var $6733 = $6735; + break; + case 'Maybe.none': + var $6736 = Parser$Reply$error$($6732); + var $6733 = $6736; + break; + }; + var $6731 = $6733; + break; + case 'Parser.Reply.value': + var $6737 = self.pst; + var $6738 = self.val; + var self = $6737; + switch (self._) { + case 'Parser.State.new': + var $6740 = self.err; + var $6741 = self.nam; + var $6742 = self.ini; + var $6743 = self.idx; + var $6744 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($6730, $6740), $6741, $6742, $6743, $6744); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $6746 = self.err; + var _reply$36 = Kind$Parser$text$("to", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $6748 = self.err; + var self = $6746; + switch (self._) { + case 'Maybe.some': + var $6750 = self.value; + var $6751 = Parser$Reply$error$(Parser$Error$combine$($6750, $6748)); + var $6749 = $6751; + break; + case 'Maybe.none': + var $6752 = Parser$Reply$error$($6748); + var $6749 = $6752; + break; + }; + var $6747 = $6749; + break; + case 'Parser.Reply.value': + var $6753 = self.pst; + var self = $6753; + switch (self._) { + case 'Parser.State.new': + var $6755 = self.err; + var $6756 = self.nam; + var $6757 = self.ini; + var $6758 = self.idx; + var $6759 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($6746, $6755), $6756, $6757, $6758, $6759); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $6761 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $6763 = self.err; + var self = $6761; + switch (self._) { + case 'Maybe.some': + var $6765 = self.value; + var $6766 = Parser$Reply$error$(Parser$Error$combine$($6765, $6763)); + var $6764 = $6766; + break; + case 'Maybe.none': + var $6767 = Parser$Reply$error$($6763); + var $6764 = $6767; + break; + }; + var $6762 = $6764; + break; + case 'Parser.Reply.value': + var $6768 = self.pst; + var $6769 = self.val; + var self = $6768; + switch (self._) { + case 'Parser.State.new': + var $6771 = self.err; + var $6772 = self.nam; + var $6773 = self.ini; + var $6774 = self.idx; + var $6775 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($6761, $6771), $6772, $6773, $6774, $6775); + var _list$59 = (_x$59 => { + var _term$60 = Kind$Term$ref$((_x$59 + ".range")); + var _term$61 = Kind$Term$app$(_term$60, $6738); + var _term$62 = Kind$Term$app$(_term$61, $6769); + var $6777 = _term$62; + return $6777; + }); + var self = _typename$1; + switch (self._) { + case 'Maybe.some': + var $6778 = self.value; + var $6779 = (_pst$61 => { + var self = _pst$61; + switch (self._) { + case 'Parser.State.new': + var $6781 = self.err; + var _reply$67 = Kind$Parser$text$(":", _pst$61); + var self = _reply$67; + switch (self._) { + case 'Parser.Reply.error': + var $6783 = self.err; + var self = $6781; + switch (self._) { + case 'Maybe.some': + var $6785 = self.value; + var $6786 = Parser$Reply$error$(Parser$Error$combine$($6785, $6783)); + var $6784 = $6786; + break; + case 'Maybe.none': + var $6787 = Parser$Reply$error$($6783); + var $6784 = $6787; + break; + }; + var $6782 = $6784; + break; + case 'Parser.Reply.value': + var $6788 = self.pst; + var self = $6788; + switch (self._) { + case 'Parser.State.new': + var $6790 = self.err; + var $6791 = self.nam; + var $6792 = self.ini; + var $6793 = self.idx; + var $6794 = self.str; + var _reply$pst$75 = Parser$State$new$(Parser$Error$maybe_combine$($6781, $6790), $6791, $6792, $6793, $6794); + var self = _reply$pst$75; + switch (self._) { + case 'Parser.State.new': + var $6796 = self.err; + var _reply$81 = Kind$Parser$text$($6778, _reply$pst$75); + var self = _reply$81; + switch (self._) { + case 'Parser.Reply.error': + var $6798 = self.err; + var self = $6796; + switch (self._) { + case 'Maybe.some': + var $6800 = self.value; + var $6801 = Parser$Reply$error$(Parser$Error$combine$($6800, $6798)); + var $6799 = $6801; + break; + case 'Maybe.none': + var $6802 = Parser$Reply$error$($6798); + var $6799 = $6802; + break; + }; + var $6797 = $6799; + break; + case 'Parser.Reply.value': + var $6803 = self.pst; + var self = $6803; + switch (self._) { + case 'Parser.State.new': + var $6805 = self.err; + var $6806 = self.nam; + var $6807 = self.ini; + var $6808 = self.idx; + var $6809 = self.str; + var _reply$pst$89 = Parser$State$new$(Parser$Error$maybe_combine$($6796, $6805), $6806, $6807, $6808, $6809); + var self = _reply$pst$89; + switch (self._) { + case 'Parser.State.new': + var $6811 = self.err; + var _reply$95 = Kind$Parser$text$("]", _reply$pst$89); + var self = _reply$95; + switch (self._) { + case 'Parser.Reply.error': + var $6813 = self.err; + var self = $6811; + switch (self._) { + case 'Maybe.some': + var $6815 = self.value; + var $6816 = Parser$Reply$error$(Parser$Error$combine$($6815, $6813)); + var $6814 = $6816; + break; + case 'Maybe.none': + var $6817 = Parser$Reply$error$($6813); + var $6814 = $6817; + break; + }; + var $6812 = $6814; + break; + case 'Parser.Reply.value': + var $6818 = self.pst; + var self = $6818; + switch (self._) { + case 'Parser.State.new': + var $6820 = self.err; + var $6821 = self.nam; + var $6822 = self.ini; + var $6823 = self.idx; + var $6824 = self.str; + var _reply$pst$103 = Parser$State$new$(Parser$Error$maybe_combine$($6811, $6820), $6821, $6822, $6823, $6824); + var $6825 = Parser$Reply$value$(_reply$pst$103, _list$59($6778)); + var $6819 = $6825; + break; + }; + var $6812 = $6819; + break; + }; + var $6810 = $6812; + break; + }; + var $6804 = $6810; + break; + }; + var $6797 = $6804; + break; + }; + var $6795 = $6797; + break; + }; + var $6789 = $6795; + break; + }; + var $6782 = $6789; + break; + }; + var $6780 = $6782; + break; + }; + return $6780; + }); + var $6776 = $6779; + break; + case 'Maybe.none': + var $6826 = (_pst$60 => { + var self = _pst$60; + switch (self._) { + case 'Parser.State.new': + var $6828 = self.err; + var _reply$66 = Parser$maybe$((_pst$66 => { + var self = _pst$66; + switch (self._) { + case 'Parser.State.new': + var $6831 = self.err; + var _reply$72 = Kind$Parser$text$(":", _pst$66); + var self = _reply$72; + switch (self._) { + case 'Parser.Reply.error': + var $6833 = self.err; + var self = $6831; + switch (self._) { + case 'Maybe.some': + var $6835 = self.value; + var $6836 = Parser$Reply$error$(Parser$Error$combine$($6835, $6833)); + var $6834 = $6836; + break; + case 'Maybe.none': + var $6837 = Parser$Reply$error$($6833); + var $6834 = $6837; + break; + }; + var $6832 = $6834; + break; + case 'Parser.Reply.value': + var $6838 = self.pst; + var self = $6838; + switch (self._) { + case 'Parser.State.new': + var $6840 = self.err; + var $6841 = self.nam; + var $6842 = self.ini; + var $6843 = self.idx; + var $6844 = self.str; + var _reply$pst$80 = Parser$State$new$(Parser$Error$maybe_combine$($6831, $6840), $6841, $6842, $6843, $6844); + var $6845 = Kind$Parser$text$("Nat", _reply$pst$80); + var $6839 = $6845; + break; + }; + var $6832 = $6839; + break; + }; + var $6830 = $6832; + break; + }; + return $6830; + }), _pst$60); + var self = _reply$66; + switch (self._) { + case 'Parser.Reply.error': + var $6846 = self.err; + var self = $6828; + switch (self._) { + case 'Maybe.some': + var $6848 = self.value; + var $6849 = Parser$Reply$error$(Parser$Error$combine$($6848, $6846)); + var $6847 = $6849; + break; + case 'Maybe.none': + var $6850 = Parser$Reply$error$($6846); + var $6847 = $6850; + break; + }; + var $6829 = $6847; + break; + case 'Parser.Reply.value': + var $6851 = self.pst; + var self = $6851; + switch (self._) { + case 'Parser.State.new': + var $6853 = self.err; + var $6854 = self.nam; + var $6855 = self.ini; + var $6856 = self.idx; + var $6857 = self.str; + var _reply$pst$74 = Parser$State$new$(Parser$Error$maybe_combine$($6828, $6853), $6854, $6855, $6856, $6857); + var self = _reply$pst$74; + switch (self._) { + case 'Parser.State.new': + var $6859 = self.err; + var _reply$80 = Kind$Parser$text$("]", _reply$pst$74); + var self = _reply$80; + switch (self._) { + case 'Parser.Reply.error': + var $6861 = self.err; + var self = $6859; + switch (self._) { + case 'Maybe.some': + var $6863 = self.value; + var $6864 = Parser$Reply$error$(Parser$Error$combine$($6863, $6861)); + var $6862 = $6864; + break; + case 'Maybe.none': + var $6865 = Parser$Reply$error$($6861); + var $6862 = $6865; + break; + }; + var $6860 = $6862; + break; + case 'Parser.Reply.value': + var $6866 = self.pst; + var self = $6866; + switch (self._) { + case 'Parser.State.new': + var $6868 = self.err; + var $6869 = self.nam; + var $6870 = self.ini; + var $6871 = self.idx; + var $6872 = self.str; + var _reply$pst$88 = Parser$State$new$(Parser$Error$maybe_combine$($6859, $6868), $6869, $6870, $6871, $6872); + var $6873 = Parser$Reply$value$(_reply$pst$88, _list$59("Nat")); + var $6867 = $6873; + break; + }; + var $6860 = $6867; + break; + }; + var $6858 = $6860; + break; + }; + var $6852 = $6858; + break; + }; + var $6829 = $6852; + break; + }; + var $6827 = $6829; + break; + }; + return $6827; + }); + var $6776 = $6826; + break; + }; + var $6776 = $6776(_reply$pst$58); + var $6770 = $6776; + break; + }; + var $6762 = $6770; + break; + }; + var $6760 = $6762; + break; + }; + var $6754 = $6760; + break; + }; + var $6747 = $6754; + break; + }; + var $6745 = $6747; + break; + }; + var $6739 = $6745; + break; + }; + var $6731 = $6739; + break; + }; + var $6729 = $6731; + break; + }; + var $6723 = $6729; + break; + }; + var $6716 = $6723; + break; + }; + var $6714 = $6716; + break; + }; + return $6714; + })); + return $6713; + }; + const Kind$Parser$comprehension_range$go = x0 => Kind$Parser$comprehension_range$go$(x0); + const Kind$Parser$comprehension_range = Parser$choice(List$cons$(Kind$Parser$comprehension_range$go$(Maybe$none), List$cons$(Kind$Parser$comprehension_range$go$(Maybe$some$("I32")), List$cons$(Kind$Parser$comprehension_range$go$(Maybe$some$("U32")), List$nil)))); + + function Kind$Name$read$(_str$1) { + var $6874 = _str$1; + return $6874; + }; + const Kind$Name$read = x0 => Kind$Name$read$(x0); + const Kind$Parser$list = Kind$Parser$block("list")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6876 = self.err; + var _reply$7 = Kind$Parser$items$("[", Kind$Parser$term, "]")(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6878 = self.err; + var self = $6876; + switch (self._) { + case 'Maybe.some': + var $6880 = self.value; + var $6881 = Parser$Reply$error$(Parser$Error$combine$($6880, $6878)); + var $6879 = $6881; + break; + case 'Maybe.none': + var $6882 = Parser$Reply$error$($6878); + var $6879 = $6882; + break; + }; + var $6877 = $6879; + break; + case 'Parser.Reply.value': + var $6883 = self.pst; + var $6884 = self.val; + var self = $6883; + switch (self._) { + case 'Parser.State.new': + var $6886 = self.err; + var $6887 = self.nam; + var $6888 = self.ini; + var $6889 = self.idx; + var $6890 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6876, $6886), $6887, $6888, $6889, $6890); + var $6891 = Parser$Reply$value$(_reply$pst$15, List$fold$($6884, Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("List.nil")), Kind$Term$hol$(Bits$e)), (_x$16 => _xs$17 => { + var _term$18 = Kind$Term$ref$(Kind$Name$read$("List.cons")); + var _term$19 = Kind$Term$app$(_term$18, Kind$Term$hol$(Bits$e)); + var _term$20 = Kind$Term$app$(_term$19, _x$16); + var _term$21 = Kind$Term$app$(_term$20, _xs$17); + var $6892 = _term$21; + return $6892; + }))); + var $6885 = $6891; + break; + }; + var $6877 = $6885; + break; + }; + var $6875 = $6877; + break; + }; + return $6875; + })); + const Kind$Parser$map = Kind$Parser$block("map")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $6894 = self.err; + var _reply$7 = Kind$Parser$items$("{", (_pst$7 => { + var self = _pst$7; + switch (self._) { + case 'Parser.State.new': + var $6897 = self.err; + var _reply$13 = Kind$Parser$term(_pst$7); + var self = _reply$13; + switch (self._) { + case 'Parser.Reply.error': + var $6899 = self.err; + var self = $6897; + switch (self._) { + case 'Maybe.some': + var $6901 = self.value; + var $6902 = Parser$Reply$error$(Parser$Error$combine$($6901, $6899)); + var $6900 = $6902; + break; + case 'Maybe.none': + var $6903 = Parser$Reply$error$($6899); + var $6900 = $6903; + break; + }; + var $6898 = $6900; + break; + case 'Parser.Reply.value': + var $6904 = self.pst; + var $6905 = self.val; + var self = $6904; + switch (self._) { + case 'Parser.State.new': + var $6907 = self.err; + var $6908 = self.nam; + var $6909 = self.ini; + var $6910 = self.idx; + var $6911 = self.str; + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($6897, $6907), $6908, $6909, $6910, $6911); + var self = _reply$pst$21; + switch (self._) { + case 'Parser.State.new': + var $6913 = self.err; + var _reply$27 = Kind$Parser$text$(":", _reply$pst$21); + var self = _reply$27; + switch (self._) { + case 'Parser.Reply.error': + var $6915 = self.err; + var self = $6913; + switch (self._) { + case 'Maybe.some': + var $6917 = self.value; + var $6918 = Parser$Reply$error$(Parser$Error$combine$($6917, $6915)); + var $6916 = $6918; + break; + case 'Maybe.none': + var $6919 = Parser$Reply$error$($6915); + var $6916 = $6919; + break; + }; + var $6914 = $6916; + break; + case 'Parser.Reply.value': + var $6920 = self.pst; + var self = $6920; + switch (self._) { + case 'Parser.State.new': + var $6922 = self.err; + var $6923 = self.nam; + var $6924 = self.ini; + var $6925 = self.idx; + var $6926 = self.str; + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($6913, $6922), $6923, $6924, $6925, $6926); + var self = _reply$pst$35; + switch (self._) { + case 'Parser.State.new': + var $6928 = self.err; + var _reply$41 = Kind$Parser$term(_reply$pst$35); + var self = _reply$41; + switch (self._) { + case 'Parser.Reply.error': + var $6930 = self.err; + var self = $6928; + switch (self._) { + case 'Maybe.some': + var $6932 = self.value; + var $6933 = Parser$Reply$error$(Parser$Error$combine$($6932, $6930)); + var $6931 = $6933; + break; + case 'Maybe.none': + var $6934 = Parser$Reply$error$($6930); + var $6931 = $6934; + break; + }; + var $6929 = $6931; + break; + case 'Parser.Reply.value': + var $6935 = self.pst; + var $6936 = self.val; + var self = $6935; + switch (self._) { + case 'Parser.State.new': + var $6938 = self.err; + var $6939 = self.nam; + var $6940 = self.ini; + var $6941 = self.idx; + var $6942 = self.str; + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6928, $6938), $6939, $6940, $6941, $6942); + var $6943 = Parser$Reply$value$(_reply$pst$49, Pair$new$($6905, $6936)); + var $6937 = $6943; + break; + }; + var $6929 = $6937; + break; + }; + var $6927 = $6929; + break; + }; + var $6921 = $6927; + break; + }; + var $6914 = $6921; + break; + }; + var $6912 = $6914; + break; + }; + var $6906 = $6912; + break; + }; + var $6898 = $6906; + break; + }; + var $6896 = $6898; + break; + }; + return $6896; + }), "}")(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $6944 = self.err; + var self = $6894; + switch (self._) { + case 'Maybe.some': + var $6946 = self.value; + var $6947 = Parser$Reply$error$(Parser$Error$combine$($6946, $6944)); + var $6945 = $6947; + break; + case 'Maybe.none': + var $6948 = Parser$Reply$error$($6944); + var $6945 = $6948; + break; + }; + var $6895 = $6945; + break; + case 'Parser.Reply.value': + var $6949 = self.pst; + var $6950 = self.val; + var self = $6949; + switch (self._) { + case 'Parser.State.new': + var $6952 = self.err; + var $6953 = self.nam; + var $6954 = self.ini; + var $6955 = self.idx; + var $6956 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($6894, $6952), $6953, $6954, $6955, $6956); + var _list$16 = List$fold$($6950, Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)), (_kv$16 => _xs$17 => { + var self = _kv$16; + switch (self._) { + case 'Pair.new': + var $6959 = self.fst; + var $6960 = self.snd; + var _pair$20 = Kind$Term$ref$("Pair.new"); + var _pair$21 = Kind$Term$app$(_pair$20, Kind$Term$hol$(Bits$e)); + var _pair$22 = Kind$Term$app$(_pair$21, Kind$Term$hol$(Bits$e)); + var _pair$23 = Kind$Term$app$(_pair$22, $6959); + var _pair$24 = Kind$Term$app$(_pair$23, $6960); + var _term$25 = Kind$Term$ref$("List.cons"); + var _term$26 = Kind$Term$app$(_term$25, Kind$Term$hol$(Bits$e)); + var _term$27 = Kind$Term$app$(_term$26, _pair$24); + var _term$28 = Kind$Term$app$(_term$27, _xs$17); + var $6961 = _term$28; + var $6958 = $6961; + break; + }; + return $6958; + })); + var _term$17 = Kind$Term$ref$("Map.from_list"); + var _term$18 = Kind$Term$app$(_term$17, Kind$Term$hol$(Bits$e)); + var _term$19 = Kind$Term$app$(_term$18, _list$16); + var $6957 = Parser$Reply$value$(_reply$pst$15, _term$19); + var $6951 = $6957; + break; + }; + var $6895 = $6951; + break; + }; + var $6893 = $6895; + break; + }; + return $6893; + })); + + function Kind$Parser$log$(_body$1) { + var $6962 = Kind$Parser$block("log")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $6964 = self.err; + var _reply$8 = Kind$Parser$text$("log(", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $6966 = self.err; + var self = $6964; + switch (self._) { + case 'Maybe.some': + var $6968 = self.value; + var $6969 = Parser$Reply$error$(Parser$Error$combine$($6968, $6966)); + var $6967 = $6969; + break; + case 'Maybe.none': + var $6970 = Parser$Reply$error$($6966); + var $6967 = $6970; + break; + }; + var $6965 = $6967; + break; + case 'Parser.Reply.value': + var $6971 = self.pst; + var self = $6971; + switch (self._) { + case 'Parser.State.new': + var $6973 = self.err; + var $6974 = self.nam; + var $6975 = self.ini; + var $6976 = self.idx; + var $6977 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($6964, $6973), $6974, $6975, $6976, $6977); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $6979 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $6981 = self.err; + var self = $6979; + switch (self._) { + case 'Maybe.some': + var $6983 = self.value; + var $6984 = Parser$Reply$error$(Parser$Error$combine$($6983, $6981)); + var $6982 = $6984; + break; + case 'Maybe.none': + var $6985 = Parser$Reply$error$($6981); + var $6982 = $6985; + break; + }; + var $6980 = $6982; + break; + case 'Parser.Reply.value': + var $6986 = self.pst; + var $6987 = self.val; + var self = $6986; + switch (self._) { + case 'Parser.State.new': + var $6989 = self.err; + var $6990 = self.nam; + var $6991 = self.ini; + var $6992 = self.idx; + var $6993 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($6979, $6989), $6990, $6991, $6992, $6993); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $6995 = self.err; + var _reply$36 = Kind$Parser$text$(")", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $6997 = self.err; + var self = $6995; + switch (self._) { + case 'Maybe.some': + var $6999 = self.value; + var $7000 = Parser$Reply$error$(Parser$Error$combine$($6999, $6997)); + var $6998 = $7000; + break; + case 'Maybe.none': + var $7001 = Parser$Reply$error$($6997); + var $6998 = $7001; + break; + }; + var $6996 = $6998; + break; + case 'Parser.Reply.value': + var $7002 = self.pst; + var self = $7002; + switch (self._) { + case 'Parser.State.new': + var $7004 = self.err; + var $7005 = self.nam; + var $7006 = self.ini; + var $7007 = self.idx; + var $7008 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($6995, $7004), $7005, $7006, $7007, $7008); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $7010 = self.err; + var _reply$50 = _body$1(Unit$new)(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $7012 = self.err; + var self = $7010; + switch (self._) { + case 'Maybe.some': + var $7014 = self.value; + var $7015 = Parser$Reply$error$(Parser$Error$combine$($7014, $7012)); + var $7013 = $7015; + break; + case 'Maybe.none': + var $7016 = Parser$Reply$error$($7012); + var $7013 = $7016; + break; + }; + var $7011 = $7013; + break; + case 'Parser.Reply.value': + var $7017 = self.pst; + var $7018 = self.val; + var self = $7017; + switch (self._) { + case 'Parser.State.new': + var $7020 = self.err; + var $7021 = self.nam; + var $7022 = self.ini; + var $7023 = self.idx; + var $7024 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7010, $7020), $7021, $7022, $7023, $7024); + var _term$59 = Kind$Term$ref$("Debug.log"); + var _term$60 = Kind$Term$app$(_term$59, Kind$Term$hol$(Bits$e)); + var _term$61 = Kind$Term$app$(_term$60, $6987); + var _term$62 = Kind$Term$app$(_term$61, Kind$Term$lam$("", (_x$62 => { + var $7026 = $7018; + return $7026; + }))); + var $7025 = Parser$Reply$value$(_reply$pst$58, _term$62); + var $7019 = $7025; + break; + }; + var $7011 = $7019; + break; + }; + var $7009 = $7011; + break; + }; + var $7003 = $7009; + break; + }; + var $6996 = $7003; + break; + }; + var $6994 = $6996; + break; + }; + var $6988 = $6994; + break; + }; + var $6980 = $6988; + break; + }; + var $6978 = $6980; + break; + }; + var $6972 = $6978; + break; + }; + var $6965 = $6972; + break; + }; + var $6963 = $6965; + break; + }; + return $6963; + })); + return $6962; + }; + const Kind$Parser$log = x0 => Kind$Parser$log$(x0); + + function String$map$(_f$1, _as$2) { + var self = _as$2; + if (self.length === 0) { + var $7028 = String$nil; + var $7027 = $7028; + } else { + var $7029 = self.charCodeAt(0); + var $7030 = self.slice(1); + var $7031 = String$cons$(_f$1($7029), String$map$(_f$1, $7030)); + var $7027 = $7031; + }; + return $7027; + }; + const String$map = x0 => x1 => String$map$(x0, x1); + + function Char$to_upper$(_char$1) { + var self = ((_char$1 >= 97) && (_char$1 <= 122)); + if (self) { + var $7033 = ((_char$1 - 32) & 0xFFFF); + var $7032 = $7033; + } else { + var $7034 = _char$1; + var $7032 = $7034; + }; + return $7032; + }; + const Char$to_upper = x0 => Char$to_upper$(x0); + + function String$to_upper$(_str$1) { + var $7035 = String$map$(Char$to_upper, _str$1); + return $7035; + }; + const String$to_upper = x0 => String$to_upper$(x0); + + function String$is_upper$(_str$1) { + var $7036 = (String$to_upper$(_str$1) === _str$1); + return $7036; + }; + const String$is_upper = x0 => String$is_upper$(x0); + + function String$take$(_n$1, _xs$2) { + var self = _xs$2; + if (self.length === 0) { + var $7038 = String$nil; + var $7037 = $7038; + } else { + var $7039 = self.charCodeAt(0); + var $7040 = self.slice(1); + var self = _n$1; + if (self === 0n) { + var $7042 = String$nil; + var $7041 = $7042; + } else { + var $7043 = (self - 1n); + var $7044 = String$cons$($7039, String$take$($7043, $7040)); + var $7041 = $7044; + }; + var $7037 = $7041; + }; + return $7037; + }; + const String$take = x0 => x1 => String$take$(x0, x1); + const Nat$sub = a0 => a1 => (a0 - a1 <= 0n ? 0n : a0 - a1); + + function String$slice$(_i$1, _j$2, _xs$3) { + var $7045 = String$take$((_j$2 - _i$1 <= 0n ? 0n : _j$2 - _i$1), String$drop$(_i$1, _xs$3)); + return $7045; + }; + const String$slice = x0 => x1 => x2 => String$slice$(x0, x1, x2); + + function Kind$Term$unroll_nat$(_natx$1) { + var self = _natx$1; + if (self === 0n) { + var $7047 = Kind$Term$ref$(Kind$Name$read$("Nat.zero")); + var $7046 = $7047; + } else { + var $7048 = (self - 1n); + var _func$3 = Kind$Term$ref$(Kind$Name$read$("Nat.succ")); + var _argm$4 = Kind$Term$nat$($7048); + var $7049 = Kind$Term$app$(_func$3, _argm$4); + var $7046 = $7049; + }; + return $7046; + }; + const Kind$Term$unroll_nat = x0 => Kind$Term$unroll_nat$(x0); + + function Word$to_bits$(_a$2) { + var self = _a$2; + switch (self._) { + case 'Word.o': + var $7051 = self.pred; + var $7052 = (Word$to_bits$($7051) + '0'); + var $7050 = $7052; + break; + case 'Word.i': + var $7053 = self.pred; + var $7054 = (Word$to_bits$($7053) + '1'); + var $7050 = $7054; + break; + case 'Word.e': + var $7055 = Bits$e; + var $7050 = $7055; + break; + }; + return $7050; + }; + const Word$to_bits = x0 => Word$to_bits$(x0); + const U16$to_bits = a0 => (u16_to_bits(a0)); + + function Kind$Term$unroll_chr$bits$(_bits$1) { + var self = _bits$1; + switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { + case 'o': + var $7057 = self.slice(0, -1); + var $7058 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.o")), Kind$Term$unroll_chr$bits$($7057)); + var $7056 = $7058; + break; + case 'i': + var $7059 = self.slice(0, -1); + var $7060 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.i")), Kind$Term$unroll_chr$bits$($7059)); + var $7056 = $7060; + break; + case 'e': + var $7061 = Kind$Term$ref$(Kind$Name$read$("Bits.e")); + var $7056 = $7061; + break; + }; + return $7056; + }; + const Kind$Term$unroll_chr$bits = x0 => Kind$Term$unroll_chr$bits$(x0); + + function Kind$Term$unroll_chr$(_chrx$1) { + var _bits$2 = (u16_to_bits(_chrx$1)); + var _term$3 = Kind$Term$ref$(Kind$Name$read$("Word.from_bits")); + var _term$4 = Kind$Term$app$(_term$3, Kind$Term$nat$(16n)); + var _term$5 = Kind$Term$app$(_term$4, Kind$Term$unroll_chr$bits$(_bits$2)); + var _term$6 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("U16.new")), _term$5); + var $7062 = _term$6; + return $7062; + }; + const Kind$Term$unroll_chr = x0 => Kind$Term$unroll_chr$(x0); + + function Kind$Term$unroll_str$(_strx$1) { + var self = _strx$1; + if (self.length === 0) { + var $7064 = Kind$Term$ref$(Kind$Name$read$("String.nil")); + var $7063 = $7064; + } else { + var $7065 = self.charCodeAt(0); + var $7066 = self.slice(1); + var _char$4 = Kind$Term$chr$($7065); + var _term$5 = Kind$Term$ref$(Kind$Name$read$("String.cons")); + var _term$6 = Kind$Term$app$(_term$5, _char$4); + var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$($7066)); + var $7067 = _term$7; + var $7063 = $7067; + }; + return $7063; + }; + const Kind$Term$unroll_str = x0 => Kind$Term$unroll_str$(x0); + + function Kind$Term$reduce$(_term$1, _defs$2) { var self = _term$1; switch (self._) { case 'Kind.Term.ref': - var $2468 = self.name; - var self = ($2468 === "Nat.zero"); - if (self) { - var $2470 = Maybe$some$(0n); - var $2469 = $2470; - } else { - var $2471 = Maybe$none; - var $2469 = $2471; + var $7069 = self.name; + var self = Kind$Map$get$($7069, _defs$2); + switch (self._) { + case 'Maybe.some': + var $7071 = self.value; + var self = $7071; + switch (self._) { + case 'Kind.Def.new': + var $7073 = self.term; + var $7074 = Kind$Term$reduce$($7073, _defs$2); + var $7072 = $7074; + break; + }; + var $7070 = $7072; + break; + case 'Maybe.none': + var $7075 = Kind$Term$ref$($7069); + var $7070 = $7075; + break; }; - var $2467 = $2469; + var $7068 = $7070; break; case 'Kind.Term.app': - var $2472 = self.func; - var $2473 = self.argm; - var self = $2472; + var $7076 = self.func; + var $7077 = self.argm; + var _func$5 = Kind$Term$reduce$($7076, _defs$2); + var self = _func$5; switch (self._) { - case 'Kind.Term.ref': - var $2475 = self.name; - var self = ($2475 === "Nat.succ"); - if (self) { - var $2477 = Maybe$monad$((_m$bind$5 => _m$pure$6 => { - var $2478 = _m$bind$5; - return $2478; - }))(Kind$Term$show$as_nat$go$($2473))((_pred$5 => { - var $2479 = Maybe$monad$((_m$bind$6 => _m$pure$7 => { - var $2480 = _m$pure$7; - return $2480; - }))(Nat$succ$(_pred$5)); - return $2479; - })); - var $2476 = $2477; - } else { - var $2481 = Maybe$none; - var $2476 = $2481; - }; - var $2474 = $2476; + case 'Kind.Term.lam': + var $7079 = self.body; + var $7080 = Kind$Term$reduce$($7079($7077), _defs$2); + var $7078 = $7080; break; case 'Kind.Term.var': + case 'Kind.Term.ref': case 'Kind.Term.typ': case 'Kind.Term.all': - case 'Kind.Term.lam': case 'Kind.Term.app': case 'Kind.Term.let': case 'Kind.Term.def': @@ -9143,16 +22507,2115 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $2482 = Maybe$none; - var $2474 = $2482; + var $7081 = _term$1; + var $7078 = $7081; break; }; - var $2467 = $2474; + var $7068 = $7078; + break; + case 'Kind.Term.let': + var $7082 = self.expr; + var $7083 = self.body; + var $7084 = Kind$Term$reduce$($7083($7082), _defs$2); + var $7068 = $7084; + break; + case 'Kind.Term.def': + var $7085 = self.expr; + var $7086 = self.body; + var $7087 = Kind$Term$reduce$($7086($7085), _defs$2); + var $7068 = $7087; + break; + case 'Kind.Term.ann': + var $7088 = self.term; + var $7089 = Kind$Term$reduce$($7088, _defs$2); + var $7068 = $7089; + break; + case 'Kind.Term.nat': + var $7090 = self.natx; + var $7091 = Kind$Term$reduce$(Kind$Term$unroll_nat$($7090), _defs$2); + var $7068 = $7091; + break; + case 'Kind.Term.chr': + var $7092 = self.chrx; + var $7093 = Kind$Term$reduce$(Kind$Term$unroll_chr$($7092), _defs$2); + var $7068 = $7093; + break; + case 'Kind.Term.str': + var $7094 = self.strx; + var $7095 = Kind$Term$reduce$(Kind$Term$unroll_str$($7094), _defs$2); + var $7068 = $7095; + break; + case 'Kind.Term.ori': + var $7096 = self.expr; + var $7097 = Kind$Term$reduce$($7096, _defs$2); + var $7068 = $7097; break; case 'Kind.Term.var': case 'Kind.Term.typ': case 'Kind.Term.all': case 'Kind.Term.lam': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + var $7098 = _term$1; + var $7068 = $7098; + break; + }; + return $7068; + }; + const Kind$Term$reduce = x0 => x1 => Kind$Term$reduce$(x0, x1); + + function Kind$Parser$open$(_body$1) { + var $7099 = Kind$Parser$block("open")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $7101 = self.err; + var _reply$8 = Kind$Parser$text$("open ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $7103 = self.err; + var self = $7101; + switch (self._) { + case 'Maybe.some': + var $7105 = self.value; + var $7106 = Parser$Reply$error$(Parser$Error$combine$($7105, $7103)); + var $7104 = $7106; + break; + case 'Maybe.none': + var $7107 = Parser$Reply$error$($7103); + var $7104 = $7107; + break; + }; + var $7102 = $7104; + break; + case 'Parser.Reply.value': + var $7108 = self.pst; + var self = $7108; + switch (self._) { + case 'Parser.State.new': + var $7110 = self.err; + var $7111 = self.nam; + var $7112 = self.ini; + var $7113 = self.idx; + var $7114 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7101, $7110), $7111, $7112, $7113, $7114); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $7116 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $7118 = self.err; + var self = $7116; + switch (self._) { + case 'Maybe.some': + var $7120 = self.value; + var $7121 = Parser$Reply$error$(Parser$Error$combine$($7120, $7118)); + var $7119 = $7121; + break; + case 'Maybe.none': + var $7122 = Parser$Reply$error$($7118); + var $7119 = $7122; + break; + }; + var $7117 = $7119; + break; + case 'Parser.Reply.value': + var $7123 = self.pst; + var $7124 = self.val; + var self = $7123; + switch (self._) { + case 'Parser.State.new': + var $7126 = self.err; + var $7127 = self.nam; + var $7128 = self.ini; + var $7129 = self.idx; + var $7130 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7116, $7126), $7127, $7128, $7129, $7130); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $7132 = self.err; + var _reply$36 = Parser$maybe$((_pst$36 => { + var self = _pst$36; + switch (self._) { + case 'Parser.State.new': + var $7135 = self.err; + var _reply$42 = Kind$Parser$text$("as", _pst$36); + var self = _reply$42; + switch (self._) { + case 'Parser.Reply.error': + var $7137 = self.err; + var self = $7135; + switch (self._) { + case 'Maybe.some': + var $7139 = self.value; + var $7140 = Parser$Reply$error$(Parser$Error$combine$($7139, $7137)); + var $7138 = $7140; + break; + case 'Maybe.none': + var $7141 = Parser$Reply$error$($7137); + var $7138 = $7141; + break; + }; + var $7136 = $7138; + break; + case 'Parser.Reply.value': + var $7142 = self.pst; + var self = $7142; + switch (self._) { + case 'Parser.State.new': + var $7144 = self.err; + var $7145 = self.nam; + var $7146 = self.ini; + var $7147 = self.idx; + var $7148 = self.str; + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($7135, $7144), $7145, $7146, $7147, $7148); + var $7149 = Kind$Parser$name1$(_reply$pst$50); + var $7143 = $7149; + break; + }; + var $7136 = $7143; + break; + }; + var $7134 = $7136; + break; + }; + return $7134; + }), _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $7150 = self.err; + var self = $7132; + switch (self._) { + case 'Maybe.some': + var $7152 = self.value; + var $7153 = Parser$Reply$error$(Parser$Error$combine$($7152, $7150)); + var $7151 = $7153; + break; + case 'Maybe.none': + var $7154 = Parser$Reply$error$($7150); + var $7151 = $7154; + break; + }; + var $7133 = $7151; + break; + case 'Parser.Reply.value': + var $7155 = self.pst; + var $7156 = self.val; + var self = $7155; + switch (self._) { + case 'Parser.State.new': + var $7158 = self.err; + var $7159 = self.nam; + var $7160 = self.ini; + var $7161 = self.idx; + var $7162 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7132, $7158), $7159, $7160, $7161, $7162); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $7164 = self.err; + var _reply$50 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $7166 = self.err; + var self = $7164; + switch (self._) { + case 'Maybe.some': + var $7168 = self.value; + var $7169 = Parser$Reply$error$(Parser$Error$combine$($7168, $7166)); + var $7167 = $7169; + break; + case 'Maybe.none': + var $7170 = Parser$Reply$error$($7166); + var $7167 = $7170; + break; + }; + var $7165 = $7167; + break; + case 'Parser.Reply.value': + var $7171 = self.pst; + var self = $7171; + switch (self._) { + case 'Parser.State.new': + var $7173 = self.err; + var $7174 = self.nam; + var $7175 = self.ini; + var $7176 = self.idx; + var $7177 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7164, $7173), $7174, $7175, $7176, $7177); + var self = $7156; + switch (self._) { + case 'Maybe.some': + var $7179 = self.value; + var $7180 = $7179; + var _name$59 = $7180; + break; + case 'Maybe.none': + var self = Kind$Term$reduce$($7124, Kind$Map$new); + switch (self._) { + case 'Kind.Term.var': + var $7182 = self.name; + var $7183 = $7182; + var $7181 = $7183; + break; + case 'Kind.Term.ref': + var $7184 = self.name; + var $7185 = $7184; + var $7181 = $7185; + break; + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.app': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + case 'Kind.Term.ori': + var $7186 = Kind$Name$read$("self"); + var $7181 = $7186; + break; + }; + var _name$59 = $7181; + break; + }; + var _wyth$60 = List$nil; + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $7187 = self.err; + var _reply$66 = _body$1(Unit$new)(_reply$pst$58); + var self = _reply$66; + switch (self._) { + case 'Parser.Reply.error': + var $7189 = self.err; + var self = $7187; + switch (self._) { + case 'Maybe.some': + var $7191 = self.value; + var $7192 = Parser$Reply$error$(Parser$Error$combine$($7191, $7189)); + var $7190 = $7192; + break; + case 'Maybe.none': + var $7193 = Parser$Reply$error$($7189); + var $7190 = $7193; + break; + }; + var $7188 = $7190; + break; + case 'Parser.Reply.value': + var $7194 = self.pst; + var $7195 = self.val; + var self = $7194; + switch (self._) { + case 'Parser.State.new': + var $7197 = self.err; + var $7198 = self.nam; + var $7199 = self.ini; + var $7200 = self.idx; + var $7201 = self.str; + var _reply$pst$74 = Parser$State$new$(Parser$Error$maybe_combine$($7187, $7197), $7198, $7199, $7200, $7201); + var _cses$75 = Kind$Map$set$("_", $7195, Kind$Map$new); + var _moti$76 = Maybe$some$(Kind$Term$hol$(Bits$e)); + var $7202 = Parser$Reply$value$(_reply$pst$74, Kind$Term$cse$(Bits$e, $7124, _name$59, _wyth$60, _cses$75, _moti$76)); + var $7196 = $7202; + break; + }; + var $7188 = $7196; + break; + }; + var $7178 = $7188; + break; + }; + var $7172 = $7178; + break; + }; + var $7165 = $7172; + break; + }; + var $7163 = $7165; + break; + }; + var $7157 = $7163; + break; + }; + var $7133 = $7157; + break; + }; + var $7131 = $7133; + break; + }; + var $7125 = $7131; + break; + }; + var $7117 = $7125; + break; + }; + var $7115 = $7117; + break; + }; + var $7109 = $7115; + break; + }; + var $7102 = $7109; + break; + }; + var $7100 = $7102; + break; + }; + return $7100; + })); + return $7099; + }; + const Kind$Parser$open = x0 => Kind$Parser$open$(x0); + + function Kind$Parser$do$statements$(_monad_name$1) { + var $7203 = Parser$choice(List$cons$(Kind$Parser$block("do-get")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $7205 = self.err; + var _reply$8 = Parser$choice$(List$cons$(Kind$Parser$text("var "), List$cons$(Kind$Parser$text("get "), List$nil)), _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $7207 = self.err; + var self = $7205; + switch (self._) { + case 'Maybe.some': + var $7209 = self.value; + var $7210 = Parser$Reply$error$(Parser$Error$combine$($7209, $7207)); + var $7208 = $7210; + break; + case 'Maybe.none': + var $7211 = Parser$Reply$error$($7207); + var $7208 = $7211; + break; + }; + var $7206 = $7208; + break; + case 'Parser.Reply.value': + var $7212 = self.pst; + var self = $7212; + switch (self._) { + case 'Parser.State.new': + var $7214 = self.err; + var $7215 = self.nam; + var $7216 = self.ini; + var $7217 = self.idx; + var $7218 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7205, $7214), $7215, $7216, $7217, $7218); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $7220 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $7222 = self.err; + var self = $7220; + switch (self._) { + case 'Maybe.some': + var $7224 = self.value; + var $7225 = Parser$Reply$error$(Parser$Error$combine$($7224, $7222)); + var $7223 = $7225; + break; + case 'Maybe.none': + var $7226 = Parser$Reply$error$($7222); + var $7223 = $7226; + break; + }; + var $7221 = $7223; + break; + case 'Parser.Reply.value': + var $7227 = self.pst; + var $7228 = self.val; + var self = $7227; + switch (self._) { + case 'Parser.State.new': + var $7230 = self.err; + var $7231 = self.nam; + var $7232 = self.ini; + var $7233 = self.idx; + var $7234 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7220, $7230), $7231, $7232, $7233, $7234); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $7236 = self.err; + var _reply$36 = Kind$Parser$text$("=", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $7238 = self.err; + var self = $7236; + switch (self._) { + case 'Maybe.some': + var $7240 = self.value; + var $7241 = Parser$Reply$error$(Parser$Error$combine$($7240, $7238)); + var $7239 = $7241; + break; + case 'Maybe.none': + var $7242 = Parser$Reply$error$($7238); + var $7239 = $7242; + break; + }; + var $7237 = $7239; + break; + case 'Parser.Reply.value': + var $7243 = self.pst; + var self = $7243; + switch (self._) { + case 'Parser.State.new': + var $7245 = self.err; + var $7246 = self.nam; + var $7247 = self.ini; + var $7248 = self.idx; + var $7249 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7236, $7245), $7246, $7247, $7248, $7249); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $7251 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $7253 = self.err; + var self = $7251; + switch (self._) { + case 'Maybe.some': + var $7255 = self.value; + var $7256 = Parser$Reply$error$(Parser$Error$combine$($7255, $7253)); + var $7254 = $7256; + break; + case 'Maybe.none': + var $7257 = Parser$Reply$error$($7253); + var $7254 = $7257; + break; + }; + var $7252 = $7254; + break; + case 'Parser.Reply.value': + var $7258 = self.pst; + var $7259 = self.val; + var self = $7258; + switch (self._) { + case 'Parser.State.new': + var $7261 = self.err; + var $7262 = self.nam; + var $7263 = self.ini; + var $7264 = self.idx; + var $7265 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7251, $7261), $7262, $7263, $7264, $7265); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $7267 = self.err; + var _reply$64 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $7269 = self.err; + var self = $7267; + switch (self._) { + case 'Maybe.some': + var $7271 = self.value; + var $7272 = Parser$Reply$error$(Parser$Error$combine$($7271, $7269)); + var $7270 = $7272; + break; + case 'Maybe.none': + var $7273 = Parser$Reply$error$($7269); + var $7270 = $7273; + break; + }; + var $7268 = $7270; + break; + case 'Parser.Reply.value': + var $7274 = self.pst; + var self = $7274; + switch (self._) { + case 'Parser.State.new': + var $7276 = self.err; + var $7277 = self.nam; + var $7278 = self.ini; + var $7279 = self.idx; + var $7280 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($7267, $7276), $7277, $7278, $7279, $7280); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $7282 = self.err; + var _reply$78 = Kind$Parser$do$statements$(_monad_name$1)(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $7284 = self.err; + var self = $7282; + switch (self._) { + case 'Maybe.some': + var $7286 = self.value; + var $7287 = Parser$Reply$error$(Parser$Error$combine$($7286, $7284)); + var $7285 = $7287; + break; + case 'Maybe.none': + var $7288 = Parser$Reply$error$($7284); + var $7285 = $7288; + break; + }; + var $7283 = $7285; + break; + case 'Parser.Reply.value': + var $7289 = self.pst; + var $7290 = self.val; + var self = $7289; + switch (self._) { + case 'Parser.State.new': + var $7292 = self.err; + var $7293 = self.nam; + var $7294 = self.ini; + var $7295 = self.idx; + var $7296 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($7282, $7292), $7293, $7294, $7295, $7296); + var _term$87 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); + var _term$88 = Kind$Term$app$(_term$87, Kind$Term$ref$((_monad_name$1 + ".monad"))); + var _term$89 = Kind$Term$app$(_term$88, Kind$Term$hol$(Bits$e)); + var _term$90 = Kind$Term$app$(_term$89, Kind$Term$hol$(Bits$e)); + var _term$91 = Kind$Term$app$(_term$90, $7259); + var _term$92 = Kind$Term$app$(_term$91, Kind$Term$lam$($7228, (_x$92 => { + var $7298 = $7290; + return $7298; + }))); + var $7297 = Parser$Reply$value$(_reply$pst$86, _term$92); + var $7291 = $7297; + break; + }; + var $7283 = $7291; + break; + }; + var $7281 = $7283; + break; + }; + var $7275 = $7281; + break; + }; + var $7268 = $7275; + break; + }; + var $7266 = $7268; + break; + }; + var $7260 = $7266; + break; + }; + var $7252 = $7260; + break; + }; + var $7250 = $7252; + break; + }; + var $7244 = $7250; + break; + }; + var $7237 = $7244; + break; + }; + var $7235 = $7237; + break; + }; + var $7229 = $7235; + break; + }; + var $7221 = $7229; + break; + }; + var $7219 = $7221; + break; + }; + var $7213 = $7219; + break; + }; + var $7206 = $7213; + break; + }; + var $7204 = $7206; + break; + }; + return $7204; + })), List$cons$(Kind$Parser$block("do-return")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $7300 = self.err; + var _reply$8 = Kind$Parser$text$("return ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $7302 = self.err; + var self = $7300; + switch (self._) { + case 'Maybe.some': + var $7304 = self.value; + var $7305 = Parser$Reply$error$(Parser$Error$combine$($7304, $7302)); + var $7303 = $7305; + break; + case 'Maybe.none': + var $7306 = Parser$Reply$error$($7302); + var $7303 = $7306; + break; + }; + var $7301 = $7303; + break; + case 'Parser.Reply.value': + var $7307 = self.pst; + var self = $7307; + switch (self._) { + case 'Parser.State.new': + var $7309 = self.err; + var $7310 = self.nam; + var $7311 = self.ini; + var $7312 = self.idx; + var $7313 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7300, $7309), $7310, $7311, $7312, $7313); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $7315 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $7317 = self.err; + var self = $7315; + switch (self._) { + case 'Maybe.some': + var $7319 = self.value; + var $7320 = Parser$Reply$error$(Parser$Error$combine$($7319, $7317)); + var $7318 = $7320; + break; + case 'Maybe.none': + var $7321 = Parser$Reply$error$($7317); + var $7318 = $7321; + break; + }; + var $7316 = $7318; + break; + case 'Parser.Reply.value': + var $7322 = self.pst; + var $7323 = self.val; + var self = $7322; + switch (self._) { + case 'Parser.State.new': + var $7325 = self.err; + var $7326 = self.nam; + var $7327 = self.ini; + var $7328 = self.idx; + var $7329 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7315, $7325), $7326, $7327, $7328, $7329); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $7331 = self.err; + var _reply$36 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $7333 = self.err; + var self = $7331; + switch (self._) { + case 'Maybe.some': + var $7335 = self.value; + var $7336 = Parser$Reply$error$(Parser$Error$combine$($7335, $7333)); + var $7334 = $7336; + break; + case 'Maybe.none': + var $7337 = Parser$Reply$error$($7333); + var $7334 = $7337; + break; + }; + var $7332 = $7334; + break; + case 'Parser.Reply.value': + var $7338 = self.pst; + var self = $7338; + switch (self._) { + case 'Parser.State.new': + var $7340 = self.err; + var $7341 = self.nam; + var $7342 = self.ini; + var $7343 = self.idx; + var $7344 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7331, $7340), $7341, $7342, $7343, $7344); + var _term$45 = Kind$Term$app$(Kind$Term$ref$("Monad.pure"), Kind$Term$ref$(_monad_name$1)); + var _term$46 = Kind$Term$app$(_term$45, Kind$Term$ref$((_monad_name$1 + ".monad"))); + var _term$47 = Kind$Term$app$(_term$46, Kind$Term$hol$(Bits$e)); + var _term$48 = Kind$Term$app$(_term$47, $7323); + var $7345 = Parser$Reply$value$(_reply$pst$44, _term$48); + var $7339 = $7345; + break; + }; + var $7332 = $7339; + break; + }; + var $7330 = $7332; + break; + }; + var $7324 = $7330; + break; + }; + var $7316 = $7324; + break; + }; + var $7314 = $7316; + break; + }; + var $7308 = $7314; + break; + }; + var $7301 = $7308; + break; + }; + var $7299 = $7301; + break; + }; + return $7299; + })), List$cons$(Kind$Parser$block("do-for-range")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $7347 = self.err; + var _reply$8 = Kind$Parser$text$("for ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $7349 = self.err; + var self = $7347; + switch (self._) { + case 'Maybe.some': + var $7351 = self.value; + var $7352 = Parser$Reply$error$(Parser$Error$combine$($7351, $7349)); + var $7350 = $7352; + break; + case 'Maybe.none': + var $7353 = Parser$Reply$error$($7349); + var $7350 = $7353; + break; + }; + var $7348 = $7350; + break; + case 'Parser.Reply.value': + var $7354 = self.pst; + var self = $7354; + switch (self._) { + case 'Parser.State.new': + var $7356 = self.err; + var $7357 = self.nam; + var $7358 = self.ini; + var $7359 = self.idx; + var $7360 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7347, $7356), $7357, $7358, $7359, $7360); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $7362 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $7364 = self.err; + var self = $7362; + switch (self._) { + case 'Maybe.some': + var $7366 = self.value; + var $7367 = Parser$Reply$error$(Parser$Error$combine$($7366, $7364)); + var $7365 = $7367; + break; + case 'Maybe.none': + var $7368 = Parser$Reply$error$($7364); + var $7365 = $7368; + break; + }; + var $7363 = $7365; + break; + case 'Parser.Reply.value': + var $7369 = self.pst; + var $7370 = self.val; + var self = $7369; + switch (self._) { + case 'Parser.State.new': + var $7372 = self.err; + var $7373 = self.nam; + var $7374 = self.ini; + var $7375 = self.idx; + var $7376 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7362, $7372), $7373, $7374, $7375, $7376); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $7378 = self.err; + var _reply$36 = Kind$Parser$text$("from", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $7380 = self.err; + var self = $7378; + switch (self._) { + case 'Maybe.some': + var $7382 = self.value; + var $7383 = Parser$Reply$error$(Parser$Error$combine$($7382, $7380)); + var $7381 = $7383; + break; + case 'Maybe.none': + var $7384 = Parser$Reply$error$($7380); + var $7381 = $7384; + break; + }; + var $7379 = $7381; + break; + case 'Parser.Reply.value': + var $7385 = self.pst; + var self = $7385; + switch (self._) { + case 'Parser.State.new': + var $7387 = self.err; + var $7388 = self.nam; + var $7389 = self.ini; + var $7390 = self.idx; + var $7391 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7378, $7387), $7388, $7389, $7390, $7391); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $7393 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $7395 = self.err; + var self = $7393; + switch (self._) { + case 'Maybe.some': + var $7397 = self.value; + var $7398 = Parser$Reply$error$(Parser$Error$combine$($7397, $7395)); + var $7396 = $7398; + break; + case 'Maybe.none': + var $7399 = Parser$Reply$error$($7395); + var $7396 = $7399; + break; + }; + var $7394 = $7396; + break; + case 'Parser.Reply.value': + var $7400 = self.pst; + var $7401 = self.val; + var self = $7400; + switch (self._) { + case 'Parser.State.new': + var $7403 = self.err; + var $7404 = self.nam; + var $7405 = self.ini; + var $7406 = self.idx; + var $7407 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7393, $7403), $7404, $7405, $7406, $7407); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $7409 = self.err; + var _reply$64 = Kind$Parser$text$("to", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $7411 = self.err; + var self = $7409; + switch (self._) { + case 'Maybe.some': + var $7413 = self.value; + var $7414 = Parser$Reply$error$(Parser$Error$combine$($7413, $7411)); + var $7412 = $7414; + break; + case 'Maybe.none': + var $7415 = Parser$Reply$error$($7411); + var $7412 = $7415; + break; + }; + var $7410 = $7412; + break; + case 'Parser.Reply.value': + var $7416 = self.pst; + var self = $7416; + switch (self._) { + case 'Parser.State.new': + var $7418 = self.err; + var $7419 = self.nam; + var $7420 = self.ini; + var $7421 = self.idx; + var $7422 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($7409, $7418), $7419, $7420, $7421, $7422); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $7424 = self.err; + var _reply$78 = Kind$Parser$term(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $7426 = self.err; + var self = $7424; + switch (self._) { + case 'Maybe.some': + var $7428 = self.value; + var $7429 = Parser$Reply$error$(Parser$Error$combine$($7428, $7426)); + var $7427 = $7429; + break; + case 'Maybe.none': + var $7430 = Parser$Reply$error$($7426); + var $7427 = $7430; + break; + }; + var $7425 = $7427; + break; + case 'Parser.Reply.value': + var $7431 = self.pst; + var $7432 = self.val; + var self = $7431; + switch (self._) { + case 'Parser.State.new': + var $7434 = self.err; + var $7435 = self.nam; + var $7436 = self.ini; + var $7437 = self.idx; + var $7438 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($7424, $7434), $7435, $7436, $7437, $7438); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $7440 = self.err; + var _reply$92 = Kind$Parser$text$(":", _reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $7442 = self.err; + var self = $7440; + switch (self._) { + case 'Maybe.some': + var $7444 = self.value; + var $7445 = Parser$Reply$error$(Parser$Error$combine$($7444, $7442)); + var $7443 = $7445; + break; + case 'Maybe.none': + var $7446 = Parser$Reply$error$($7442); + var $7443 = $7446; + break; + }; + var $7441 = $7443; + break; + case 'Parser.Reply.value': + var $7447 = self.pst; + var self = $7447; + switch (self._) { + case 'Parser.State.new': + var $7449 = self.err; + var $7450 = self.nam; + var $7451 = self.ini; + var $7452 = self.idx; + var $7453 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($7440, $7449), $7450, $7451, $7452, $7453); + var self = _reply$pst$100; + switch (self._) { + case 'Parser.State.new': + var $7455 = self.err; + var _reply$106 = Kind$Parser$term(_reply$pst$100); + var self = _reply$106; + switch (self._) { + case 'Parser.Reply.error': + var $7457 = self.err; + var self = $7455; + switch (self._) { + case 'Maybe.some': + var $7459 = self.value; + var $7460 = Parser$Reply$error$(Parser$Error$combine$($7459, $7457)); + var $7458 = $7460; + break; + case 'Maybe.none': + var $7461 = Parser$Reply$error$($7457); + var $7458 = $7461; + break; + }; + var $7456 = $7458; + break; + case 'Parser.Reply.value': + var $7462 = self.pst; + var $7463 = self.val; + var self = $7462; + switch (self._) { + case 'Parser.State.new': + var $7465 = self.err; + var $7466 = self.nam; + var $7467 = self.ini; + var $7468 = self.idx; + var $7469 = self.str; + var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($7455, $7465), $7466, $7467, $7468, $7469); + var self = _reply$pst$114; + switch (self._) { + case 'Parser.State.new': + var $7471 = self.err; + var _reply$120 = Parser$maybe$(Kind$Parser$do$statements$(_monad_name$1), _reply$pst$114); + var self = _reply$120; + switch (self._) { + case 'Parser.Reply.error': + var $7473 = self.err; + var self = $7471; + switch (self._) { + case 'Maybe.some': + var $7475 = self.value; + var $7476 = Parser$Reply$error$(Parser$Error$combine$($7475, $7473)); + var $7474 = $7476; + break; + case 'Maybe.none': + var $7477 = Parser$Reply$error$($7473); + var $7474 = $7477; + break; + }; + var $7472 = $7474; + break; + case 'Parser.Reply.value': + var $7478 = self.pst; + var $7479 = self.val; + var self = $7478; + switch (self._) { + case 'Parser.State.new': + var $7481 = self.err; + var $7482 = self.nam; + var $7483 = self.ini; + var $7484 = self.idx; + var $7485 = self.str; + var _reply$pst$128 = Parser$State$new$(Parser$Error$maybe_combine$($7471, $7481), $7482, $7483, $7484, $7485); + var _expr$129 = Kind$Term$ref$("Nat.for.io"); + var _expr$130 = Kind$Term$app$(_expr$129, $7401); + var _expr$131 = Kind$Term$app$(_expr$130, $7432); + var _expr$132 = Kind$Term$app$(_expr$131, Kind$Term$lam$($7370, (_x$132 => { + var $7487 = $7463; + return $7487; + }))); + var self = $7479; + switch (self._) { + case 'Maybe.some': + var $7488 = self.value; + var _term$134 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); + var _term$135 = Kind$Term$app$(_term$134, Kind$Term$ref$((_monad_name$1 + ".monad"))); + var _term$136 = Kind$Term$app$(_term$135, Kind$Term$hol$(Bits$e)); + var _term$137 = Kind$Term$app$(_term$136, Kind$Term$hol$(Bits$e)); + var _term$138 = Kind$Term$app$(_term$137, _expr$132); + var _term$139 = Kind$Term$app$(_term$138, Kind$Term$lam$("", (_x$139 => { + var $7490 = $7488; + return $7490; + }))); + var $7489 = (_pst$140 => { + var $7491 = Parser$Reply$value$(_pst$140, _term$139); + return $7491; + }); + var $7486 = $7489; + break; + case 'Maybe.none': + var $7492 = (_pst$133 => { + var $7493 = Parser$Reply$value$(_pst$133, _expr$132); + return $7493; + }); + var $7486 = $7492; + break; + }; + var $7486 = $7486(_reply$pst$128); + var $7480 = $7486; + break; + }; + var $7472 = $7480; + break; + }; + var $7470 = $7472; + break; + }; + var $7464 = $7470; + break; + }; + var $7456 = $7464; + break; + }; + var $7454 = $7456; + break; + }; + var $7448 = $7454; + break; + }; + var $7441 = $7448; + break; + }; + var $7439 = $7441; + break; + }; + var $7433 = $7439; + break; + }; + var $7425 = $7433; + break; + }; + var $7423 = $7425; + break; + }; + var $7417 = $7423; + break; + }; + var $7410 = $7417; + break; + }; + var $7408 = $7410; + break; + }; + var $7402 = $7408; + break; + }; + var $7394 = $7402; + break; + }; + var $7392 = $7394; + break; + }; + var $7386 = $7392; + break; + }; + var $7379 = $7386; + break; + }; + var $7377 = $7379; + break; + }; + var $7371 = $7377; + break; + }; + var $7363 = $7371; + break; + }; + var $7361 = $7363; + break; + }; + var $7355 = $7361; + break; + }; + var $7348 = $7355; + break; + }; + var $7346 = $7348; + break; + }; + return $7346; + })), List$cons$(Kind$Parser$block("do-for-in")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $7495 = self.err; + var _reply$8 = Kind$Parser$text$("for ", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $7497 = self.err; + var self = $7495; + switch (self._) { + case 'Maybe.some': + var $7499 = self.value; + var $7500 = Parser$Reply$error$(Parser$Error$combine$($7499, $7497)); + var $7498 = $7500; + break; + case 'Maybe.none': + var $7501 = Parser$Reply$error$($7497); + var $7498 = $7501; + break; + }; + var $7496 = $7498; + break; + case 'Parser.Reply.value': + var $7502 = self.pst; + var self = $7502; + switch (self._) { + case 'Parser.State.new': + var $7504 = self.err; + var $7505 = self.nam; + var $7506 = self.ini; + var $7507 = self.idx; + var $7508 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7495, $7504), $7505, $7506, $7507, $7508); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $7510 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $7512 = self.err; + var self = $7510; + switch (self._) { + case 'Maybe.some': + var $7514 = self.value; + var $7515 = Parser$Reply$error$(Parser$Error$combine$($7514, $7512)); + var $7513 = $7515; + break; + case 'Maybe.none': + var $7516 = Parser$Reply$error$($7512); + var $7513 = $7516; + break; + }; + var $7511 = $7513; + break; + case 'Parser.Reply.value': + var $7517 = self.pst; + var $7518 = self.val; + var self = $7517; + switch (self._) { + case 'Parser.State.new': + var $7520 = self.err; + var $7521 = self.nam; + var $7522 = self.ini; + var $7523 = self.idx; + var $7524 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7510, $7520), $7521, $7522, $7523, $7524); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $7526 = self.err; + var _reply$36 = Kind$Parser$text$("in", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $7528 = self.err; + var self = $7526; + switch (self._) { + case 'Maybe.some': + var $7530 = self.value; + var $7531 = Parser$Reply$error$(Parser$Error$combine$($7530, $7528)); + var $7529 = $7531; + break; + case 'Maybe.none': + var $7532 = Parser$Reply$error$($7528); + var $7529 = $7532; + break; + }; + var $7527 = $7529; + break; + case 'Parser.Reply.value': + var $7533 = self.pst; + var self = $7533; + switch (self._) { + case 'Parser.State.new': + var $7535 = self.err; + var $7536 = self.nam; + var $7537 = self.ini; + var $7538 = self.idx; + var $7539 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7526, $7535), $7536, $7537, $7538, $7539); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $7541 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $7543 = self.err; + var self = $7541; + switch (self._) { + case 'Maybe.some': + var $7545 = self.value; + var $7546 = Parser$Reply$error$(Parser$Error$combine$($7545, $7543)); + var $7544 = $7546; + break; + case 'Maybe.none': + var $7547 = Parser$Reply$error$($7543); + var $7544 = $7547; + break; + }; + var $7542 = $7544; + break; + case 'Parser.Reply.value': + var $7548 = self.pst; + var $7549 = self.val; + var self = $7548; + switch (self._) { + case 'Parser.State.new': + var $7551 = self.err; + var $7552 = self.nam; + var $7553 = self.ini; + var $7554 = self.idx; + var $7555 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7541, $7551), $7552, $7553, $7554, $7555); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $7557 = self.err; + var _reply$64 = Kind$Parser$text$(":", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $7559 = self.err; + var self = $7557; + switch (self._) { + case 'Maybe.some': + var $7561 = self.value; + var $7562 = Parser$Reply$error$(Parser$Error$combine$($7561, $7559)); + var $7560 = $7562; + break; + case 'Maybe.none': + var $7563 = Parser$Reply$error$($7559); + var $7560 = $7563; + break; + }; + var $7558 = $7560; + break; + case 'Parser.Reply.value': + var $7564 = self.pst; + var self = $7564; + switch (self._) { + case 'Parser.State.new': + var $7566 = self.err; + var $7567 = self.nam; + var $7568 = self.ini; + var $7569 = self.idx; + var $7570 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($7557, $7566), $7567, $7568, $7569, $7570); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $7572 = self.err; + var _reply$78 = Kind$Parser$term(_reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $7574 = self.err; + var self = $7572; + switch (self._) { + case 'Maybe.some': + var $7576 = self.value; + var $7577 = Parser$Reply$error$(Parser$Error$combine$($7576, $7574)); + var $7575 = $7577; + break; + case 'Maybe.none': + var $7578 = Parser$Reply$error$($7574); + var $7575 = $7578; + break; + }; + var $7573 = $7575; + break; + case 'Parser.Reply.value': + var $7579 = self.pst; + var $7580 = self.val; + var self = $7579; + switch (self._) { + case 'Parser.State.new': + var $7582 = self.err; + var $7583 = self.nam; + var $7584 = self.ini; + var $7585 = self.idx; + var $7586 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($7572, $7582), $7583, $7584, $7585, $7586); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $7588 = self.err; + var _reply$92 = Parser$maybe$(Kind$Parser$do$statements$(_monad_name$1), _reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $7590 = self.err; + var self = $7588; + switch (self._) { + case 'Maybe.some': + var $7592 = self.value; + var $7593 = Parser$Reply$error$(Parser$Error$combine$($7592, $7590)); + var $7591 = $7593; + break; + case 'Maybe.none': + var $7594 = Parser$Reply$error$($7590); + var $7591 = $7594; + break; + }; + var $7589 = $7591; + break; + case 'Parser.Reply.value': + var $7595 = self.pst; + var $7596 = self.val; + var self = $7595; + switch (self._) { + case 'Parser.State.new': + var $7598 = self.err; + var $7599 = self.nam; + var $7600 = self.ini; + var $7601 = self.idx; + var $7602 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($7588, $7598), $7599, $7600, $7601, $7602); + var _expr$101 = Kind$Term$ref$("List.for.io"); + var _expr$102 = Kind$Term$app$(_expr$101, Kind$Term$hol$(Bits$e)); + var _expr$103 = Kind$Term$app$(_expr$102, $7549); + var _expr$104 = Kind$Term$app$(_expr$103, Kind$Term$lam$($7518, (_x$104 => { + var $7604 = $7580; + return $7604; + }))); + var self = $7596; + switch (self._) { + case 'Maybe.some': + var $7605 = self.value; + var _term$106 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); + var _term$107 = Kind$Term$app$(_term$106, Kind$Term$ref$((_monad_name$1 + ".monad"))); + var _term$108 = Kind$Term$app$(_term$107, Kind$Term$hol$(Bits$e)); + var _term$109 = Kind$Term$app$(_term$108, Kind$Term$hol$(Bits$e)); + var _term$110 = Kind$Term$app$(_term$109, _expr$104); + var _term$111 = Kind$Term$app$(_term$110, Kind$Term$lam$("", (_x$111 => { + var $7607 = $7605; + return $7607; + }))); + var $7606 = (_pst$112 => { + var $7608 = Parser$Reply$value$(_pst$112, _term$111); + return $7608; + }); + var $7603 = $7606; + break; + case 'Maybe.none': + var $7609 = (_pst$105 => { + var $7610 = Parser$Reply$value$(_pst$105, _expr$104); + return $7610; + }); + var $7603 = $7609; + break; + }; + var $7603 = $7603(_reply$pst$100); + var $7597 = $7603; + break; + }; + var $7589 = $7597; + break; + }; + var $7587 = $7589; + break; + }; + var $7581 = $7587; + break; + }; + var $7573 = $7581; + break; + }; + var $7571 = $7573; + break; + }; + var $7565 = $7571; + break; + }; + var $7558 = $7565; + break; + }; + var $7556 = $7558; + break; + }; + var $7550 = $7556; + break; + }; + var $7542 = $7550; + break; + }; + var $7540 = $7542; + break; + }; + var $7534 = $7540; + break; + }; + var $7527 = $7534; + break; + }; + var $7525 = $7527; + break; + }; + var $7519 = $7525; + break; + }; + var $7511 = $7519; + break; + }; + var $7509 = $7511; + break; + }; + var $7503 = $7509; + break; + }; + var $7496 = $7503; + break; + }; + var $7494 = $7496; + break; + }; + return $7494; + })), List$cons$(Kind$Parser$letforrange$u32$((_x$2 => { + var $7611 = Kind$Parser$do$statements$(_monad_name$1); + return $7611; + })), List$cons$(Kind$Parser$letforrange$u32$with$((_x$2 => { + var $7612 = Kind$Parser$do$statements$(_monad_name$1); + return $7612; + })), List$cons$(Kind$Parser$letforrange$nat$((_x$2 => { + var $7613 = Kind$Parser$do$statements$(_monad_name$1); + return $7613; + })), List$cons$(Kind$Parser$letforrange$nat$with$((_x$2 => { + var $7614 = Kind$Parser$do$statements$(_monad_name$1); + return $7614; + })), List$cons$(Kind$Parser$letforin$((_x$2 => { + var $7615 = Kind$Parser$do$statements$(_monad_name$1); + return $7615; + })), List$cons$(Kind$Parser$letforin$with$((_x$2 => { + var $7616 = Kind$Parser$do$statements$(_monad_name$1); + return $7616; + })), List$cons$(Kind$Parser$letwhile$((_x$2 => { + var $7617 = Kind$Parser$do$statements$(_monad_name$1); + return $7617; + })), List$cons$(Kind$Parser$letwhile$with$((_x$2 => { + var $7618 = Kind$Parser$do$statements$(_monad_name$1); + return $7618; + })), List$cons$(Kind$Parser$let$abort$((_x$2 => { + var $7619 = Kind$Parser$do$statements$(_monad_name$1); + return $7619; + })), List$cons$(Kind$Parser$let$((_x$2 => { + var $7620 = Kind$Parser$do$statements$(_monad_name$1); + return $7620; + })), List$cons$(Kind$Parser$getwhile$((_x$2 => { + var $7621 = Kind$Parser$do$statements$(_monad_name$1); + return $7621; + })), List$cons$(Kind$Parser$getwhile$with((_x$2 => { + var $7622 = Kind$Parser$do$statements$(_monad_name$1); + return $7622; + })), List$cons$(Kind$Parser$get$((_x$2 => { + var $7623 = Kind$Parser$do$statements$(_monad_name$1); + return $7623; + })), List$cons$(Kind$Parser$def$((_x$2 => { + var $7624 = Kind$Parser$do$statements$(_monad_name$1); + return $7624; + })), List$cons$(Kind$Parser$use$abort$((_x$2 => { + var $7625 = Kind$Parser$do$statements$(_monad_name$1); + return $7625; + })), List$cons$(Kind$Parser$use$((_x$2 => { + var $7626 = Kind$Parser$do$statements$(_monad_name$1); + return $7626; + })), List$cons$(Kind$Parser$log$((_x$2 => { + var $7627 = Kind$Parser$do$statements$(_monad_name$1); + return $7627; + })), List$cons$(Kind$Parser$open$((_x$2 => { + var $7628 = Kind$Parser$do$statements$(_monad_name$1); + return $7628; + })), List$cons$(Kind$Parser$block("do-statement")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $7630 = self.err; + var _reply$8 = Kind$Parser$term(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $7632 = self.err; + var self = $7630; + switch (self._) { + case 'Maybe.some': + var $7634 = self.value; + var $7635 = Parser$Reply$error$(Parser$Error$combine$($7634, $7632)); + var $7633 = $7635; + break; + case 'Maybe.none': + var $7636 = Parser$Reply$error$($7632); + var $7633 = $7636; + break; + }; + var $7631 = $7633; + break; + case 'Parser.Reply.value': + var $7637 = self.pst; + var $7638 = self.val; + var self = $7637; + switch (self._) { + case 'Parser.State.new': + var $7640 = self.err; + var $7641 = self.nam; + var $7642 = self.ini; + var $7643 = self.idx; + var $7644 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7630, $7640), $7641, $7642, $7643, $7644); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $7646 = self.err; + var _reply$22 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $7648 = self.err; + var self = $7646; + switch (self._) { + case 'Maybe.some': + var $7650 = self.value; + var $7651 = Parser$Reply$error$(Parser$Error$combine$($7650, $7648)); + var $7649 = $7651; + break; + case 'Maybe.none': + var $7652 = Parser$Reply$error$($7648); + var $7649 = $7652; + break; + }; + var $7647 = $7649; + break; + case 'Parser.Reply.value': + var $7653 = self.pst; + var self = $7653; + switch (self._) { + case 'Parser.State.new': + var $7655 = self.err; + var $7656 = self.nam; + var $7657 = self.ini; + var $7658 = self.idx; + var $7659 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7646, $7655), $7656, $7657, $7658, $7659); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $7661 = self.err; + var _reply$36 = Kind$Parser$do$statements$(_monad_name$1)(_reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $7663 = self.err; + var self = $7661; + switch (self._) { + case 'Maybe.some': + var $7665 = self.value; + var $7666 = Parser$Reply$error$(Parser$Error$combine$($7665, $7663)); + var $7664 = $7666; + break; + case 'Maybe.none': + var $7667 = Parser$Reply$error$($7663); + var $7664 = $7667; + break; + }; + var $7662 = $7664; + break; + case 'Parser.Reply.value': + var $7668 = self.pst; + var $7669 = self.val; + var self = $7668; + switch (self._) { + case 'Parser.State.new': + var $7671 = self.err; + var $7672 = self.nam; + var $7673 = self.ini; + var $7674 = self.idx; + var $7675 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7661, $7671), $7672, $7673, $7674, $7675); + var _term$45 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); + var _term$46 = Kind$Term$app$(_term$45, Kind$Term$ref$((_monad_name$1 + ".monad"))); + var _term$47 = Kind$Term$app$(_term$46, Kind$Term$hol$(Bits$e)); + var _term$48 = Kind$Term$app$(_term$47, Kind$Term$hol$(Bits$e)); + var _term$49 = Kind$Term$app$(_term$48, $7638); + var _term$50 = Kind$Term$app$(_term$49, Kind$Term$lam$("", (_x$50 => { + var $7677 = $7669; + return $7677; + }))); + var $7676 = Parser$Reply$value$(_reply$pst$44, _term$50); + var $7670 = $7676; + break; + }; + var $7662 = $7670; + break; + }; + var $7660 = $7662; + break; + }; + var $7654 = $7660; + break; + }; + var $7647 = $7654; + break; + }; + var $7645 = $7647; + break; + }; + var $7639 = $7645; + break; + }; + var $7631 = $7639; + break; + }; + var $7629 = $7631; + break; + }; + return $7629; + })), List$cons$(Kind$Parser$block("do-end")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $7679 = self.err; + var _reply$8 = Kind$Parser$term(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $7681 = self.err; + var self = $7679; + switch (self._) { + case 'Maybe.some': + var $7683 = self.value; + var $7684 = Parser$Reply$error$(Parser$Error$combine$($7683, $7681)); + var $7682 = $7684; + break; + case 'Maybe.none': + var $7685 = Parser$Reply$error$($7681); + var $7682 = $7685; + break; + }; + var $7680 = $7682; + break; + case 'Parser.Reply.value': + var $7686 = self.pst; + var $7687 = self.val; + var self = $7686; + switch (self._) { + case 'Parser.State.new': + var $7689 = self.err; + var $7690 = self.nam; + var $7691 = self.ini; + var $7692 = self.idx; + var $7693 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($7679, $7689), $7690, $7691, $7692, $7693); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $7695 = self.err; + var _reply$22 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $7697 = self.err; + var self = $7695; + switch (self._) { + case 'Maybe.some': + var $7699 = self.value; + var $7700 = Parser$Reply$error$(Parser$Error$combine$($7699, $7697)); + var $7698 = $7700; + break; + case 'Maybe.none': + var $7701 = Parser$Reply$error$($7697); + var $7698 = $7701; + break; + }; + var $7696 = $7698; + break; + case 'Parser.Reply.value': + var $7702 = self.pst; + var self = $7702; + switch (self._) { + case 'Parser.State.new': + var $7704 = self.err; + var $7705 = self.nam; + var $7706 = self.ini; + var $7707 = self.idx; + var $7708 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7695, $7704), $7705, $7706, $7707, $7708); + var $7709 = Parser$Reply$value$(_reply$pst$30, $7687); + var $7703 = $7709; + break; + }; + var $7696 = $7703; + break; + }; + var $7694 = $7696; + break; + }; + var $7688 = $7694; + break; + }; + var $7680 = $7688; + break; + }; + var $7678 = $7680; + break; + }; + return $7678; + })), List$nil))))))))))))))))))))))))); + return $7203; + }; + const Kind$Parser$do$statements = x0 => Kind$Parser$do$statements$(x0); + const Kind$Parser$do = Kind$Parser$block("do")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7711 = self.err; + var _reply$7 = Parser$maybe$(Kind$Parser$text("do "), _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7713 = self.err; + var self = $7711; + switch (self._) { + case 'Maybe.some': + var $7715 = self.value; + var $7716 = Parser$Reply$error$(Parser$Error$combine$($7715, $7713)); + var $7714 = $7716; + break; + case 'Maybe.none': + var $7717 = Parser$Reply$error$($7713); + var $7714 = $7717; + break; + }; + var $7712 = $7714; + break; + case 'Parser.Reply.value': + var $7718 = self.pst; + var self = $7718; + switch (self._) { + case 'Parser.State.new': + var $7720 = self.err; + var $7721 = self.nam; + var $7722 = self.ini; + var $7723 = self.idx; + var $7724 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7711, $7720), $7721, $7722, $7723, $7724); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $7726 = self.err; + var _reply$21 = Kind$Parser$name1$(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $7728 = self.err; + var self = $7726; + switch (self._) { + case 'Maybe.some': + var $7730 = self.value; + var $7731 = Parser$Reply$error$(Parser$Error$combine$($7730, $7728)); + var $7729 = $7731; + break; + case 'Maybe.none': + var $7732 = Parser$Reply$error$($7728); + var $7729 = $7732; + break; + }; + var $7727 = $7729; + break; + case 'Parser.Reply.value': + var $7733 = self.pst; + var $7734 = self.val; + var self = $7733; + switch (self._) { + case 'Parser.State.new': + var $7736 = self.err; + var $7737 = self.nam; + var $7738 = self.ini; + var $7739 = self.idx; + var $7740 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($7726, $7736), $7737, $7738, $7739, $7740); + var self = String$is_upper$(String$slice$(0n, 1n, $7734)); + if (self) { + var $7742 = (_pst$30 => { + var self = _pst$30; + switch (self._) { + case 'Parser.State.new': + var $7744 = self.err; + var _reply$36 = Parser$text$(" {", _pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $7746 = self.err; + var self = $7744; + switch (self._) { + case 'Maybe.some': + var $7748 = self.value; + var $7749 = Parser$Reply$error$(Parser$Error$combine$($7748, $7746)); + var $7747 = $7749; + break; + case 'Maybe.none': + var $7750 = Parser$Reply$error$($7746); + var $7747 = $7750; + break; + }; + var $7745 = $7747; + break; + case 'Parser.Reply.value': + var $7751 = self.pst; + var self = $7751; + switch (self._) { + case 'Parser.State.new': + var $7753 = self.err; + var $7754 = self.nam; + var $7755 = self.ini; + var $7756 = self.idx; + var $7757 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7744, $7753), $7754, $7755, $7756, $7757); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $7759 = self.err; + var _reply$50 = Kind$Parser$do$statements$($7734)(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $7761 = self.err; + var self = $7759; + switch (self._) { + case 'Maybe.some': + var $7763 = self.value; + var $7764 = Parser$Reply$error$(Parser$Error$combine$($7763, $7761)); + var $7762 = $7764; + break; + case 'Maybe.none': + var $7765 = Parser$Reply$error$($7761); + var $7762 = $7765; + break; + }; + var $7760 = $7762; + break; + case 'Parser.Reply.value': + var $7766 = self.pst; + var $7767 = self.val; + var self = $7766; + switch (self._) { + case 'Parser.State.new': + var $7769 = self.err; + var $7770 = self.nam; + var $7771 = self.ini; + var $7772 = self.idx; + var $7773 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7759, $7769), $7770, $7771, $7772, $7773); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $7775 = self.err; + var _reply$64 = Kind$Parser$text$("}", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $7777 = self.err; + var self = $7775; + switch (self._) { + case 'Maybe.some': + var $7779 = self.value; + var $7780 = Parser$Reply$error$(Parser$Error$combine$($7779, $7777)); + var $7778 = $7780; + break; + case 'Maybe.none': + var $7781 = Parser$Reply$error$($7777); + var $7778 = $7781; + break; + }; + var $7776 = $7778; + break; + case 'Parser.Reply.value': + var $7782 = self.pst; + var self = $7782; + switch (self._) { + case 'Parser.State.new': + var $7784 = self.err; + var $7785 = self.nam; + var $7786 = self.ini; + var $7787 = self.idx; + var $7788 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($7775, $7784), $7785, $7786, $7787, $7788); + var $7789 = Parser$Reply$value$(_reply$pst$72, $7767); + var $7783 = $7789; + break; + }; + var $7776 = $7783; + break; + }; + var $7774 = $7776; + break; + }; + var $7768 = $7774; + break; + }; + var $7760 = $7768; + break; + }; + var $7758 = $7760; + break; + }; + var $7752 = $7758; + break; + }; + var $7745 = $7752; + break; + }; + var $7743 = $7745; + break; + }; + return $7743; + }); + var $7741 = $7742; + } else { + var $7790 = Parser$fail("Not a do-block."); + var $7741 = $7790; + }; + var $7741 = $7741(_reply$pst$29); + var $7735 = $7741; + break; + }; + var $7727 = $7735; + break; + }; + var $7725 = $7727; + break; + }; + var $7719 = $7725; + break; + }; + var $7712 = $7719; + break; + }; + var $7710 = $7712; + break; + }; + return $7710; + })); + + function Kind$Term$extract_name$(_term$1) { + var _term$2 = Kind$Term$reduce$(_term$1, Kind$Map$new); + var self = _term$2; + switch (self._) { + case 'Kind.Term.var': + var $7792 = self.name; + var $7793 = $7792; + var $7791 = $7793; + break; + case 'Kind.Term.ref': + var $7794 = self.name; + var $7795 = $7794; + var $7791 = $7795; + break; + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.app': case 'Kind.Term.let': case 'Kind.Term.def': case 'Kind.Term.ann': @@ -9168,35 +24631,3021 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $2483 = Maybe$none; - var $2467 = $2483; + var $7796 = "self"; + var $7791 = $7796; break; }; - return $2467; + return $7791; }; - const Kind$Term$show$as_nat$go = x0 => Kind$Term$show$as_nat$go$(x0); + const Kind$Term$extract_name = x0 => Kind$Term$extract_name$(x0); + + function Kind$Ann$new$(_name$1, _term$2, _type$3) { + var $7797 = ({ + _: 'Kind.Ann.new', + 'name': _name$1, + 'term': _term$2, + 'type': _type$3 + }); + return $7797; + }; + const Kind$Ann$new = x0 => x1 => x2 => Kind$Ann$new$(x0, x1, x2); + const Kind$Parser$case$with = Parser$choice(List$cons$((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7799 = self.err; + var _reply$7 = Kind$Parser$text$("with ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7801 = self.err; + var self = $7799; + switch (self._) { + case 'Maybe.some': + var $7803 = self.value; + var $7804 = Parser$Reply$error$(Parser$Error$combine$($7803, $7801)); + var $7802 = $7804; + break; + case 'Maybe.none': + var $7805 = Parser$Reply$error$($7801); + var $7802 = $7805; + break; + }; + var $7800 = $7802; + break; + case 'Parser.Reply.value': + var $7806 = self.pst; + var self = $7806; + switch (self._) { + case 'Parser.State.new': + var $7808 = self.err; + var $7809 = self.nam; + var $7810 = self.ini; + var $7811 = self.idx; + var $7812 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7799, $7808), $7809, $7810, $7811, $7812); + var $7813 = Parser$many$((_pst$16 => { + var self = _pst$16; + switch (self._) { + case 'Parser.State.new': + var $7815 = self.err; + var _reply$22 = Kind$Parser$name1$(_pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $7817 = self.err; + var self = $7815; + switch (self._) { + case 'Maybe.some': + var $7819 = self.value; + var $7820 = Parser$Reply$error$(Parser$Error$combine$($7819, $7817)); + var $7818 = $7820; + break; + case 'Maybe.none': + var $7821 = Parser$Reply$error$($7817); + var $7818 = $7821; + break; + }; + var $7816 = $7818; + break; + case 'Parser.Reply.value': + var $7822 = self.pst; + var $7823 = self.val; + var self = $7822; + switch (self._) { + case 'Parser.State.new': + var $7825 = self.err; + var $7826 = self.nam; + var $7827 = self.ini; + var $7828 = self.idx; + var $7829 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7815, $7825), $7826, $7827, $7828, $7829); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $7831 = self.err; + var _reply$36 = Parser$maybe$((_pst$36 => { + var self = _pst$36; + switch (self._) { + case 'Parser.State.new': + var $7834 = self.err; + var _reply$42 = Kind$Parser$text$(":", _pst$36); + var self = _reply$42; + switch (self._) { + case 'Parser.Reply.error': + var $7836 = self.err; + var self = $7834; + switch (self._) { + case 'Maybe.some': + var $7838 = self.value; + var $7839 = Parser$Reply$error$(Parser$Error$combine$($7838, $7836)); + var $7837 = $7839; + break; + case 'Maybe.none': + var $7840 = Parser$Reply$error$($7836); + var $7837 = $7840; + break; + }; + var $7835 = $7837; + break; + case 'Parser.Reply.value': + var $7841 = self.pst; + var self = $7841; + switch (self._) { + case 'Parser.State.new': + var $7843 = self.err; + var $7844 = self.nam; + var $7845 = self.ini; + var $7846 = self.idx; + var $7847 = self.str; + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($7834, $7843), $7844, $7845, $7846, $7847); + var self = _reply$pst$50; + switch (self._) { + case 'Parser.State.new': + var $7849 = self.err; + var _reply$56 = Kind$Parser$term(_reply$pst$50); + var self = _reply$56; + switch (self._) { + case 'Parser.Reply.error': + var $7851 = self.err; + var self = $7849; + switch (self._) { + case 'Maybe.some': + var $7853 = self.value; + var $7854 = Parser$Reply$error$(Parser$Error$combine$($7853, $7851)); + var $7852 = $7854; + break; + case 'Maybe.none': + var $7855 = Parser$Reply$error$($7851); + var $7852 = $7855; + break; + }; + var $7850 = $7852; + break; + case 'Parser.Reply.value': + var $7856 = self.pst; + var $7857 = self.val; + var self = $7856; + switch (self._) { + case 'Parser.State.new': + var $7859 = self.err; + var $7860 = self.nam; + var $7861 = self.ini; + var $7862 = self.idx; + var $7863 = self.str; + var _reply$pst$64 = Parser$State$new$(Parser$Error$maybe_combine$($7849, $7859), $7860, $7861, $7862, $7863); + var self = _reply$pst$64; + switch (self._) { + case 'Parser.State.new': + var $7865 = self.err; + var _reply$70 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$64); + var self = _reply$70; + switch (self._) { + case 'Parser.Reply.error': + var $7867 = self.err; + var self = $7865; + switch (self._) { + case 'Maybe.some': + var $7869 = self.value; + var $7870 = Parser$Reply$error$(Parser$Error$combine$($7869, $7867)); + var $7868 = $7870; + break; + case 'Maybe.none': + var $7871 = Parser$Reply$error$($7867); + var $7868 = $7871; + break; + }; + var $7866 = $7868; + break; + case 'Parser.Reply.value': + var $7872 = self.pst; + var self = $7872; + switch (self._) { + case 'Parser.State.new': + var $7874 = self.err; + var $7875 = self.nam; + var $7876 = self.ini; + var $7877 = self.idx; + var $7878 = self.str; + var _reply$pst$78 = Parser$State$new$(Parser$Error$maybe_combine$($7865, $7874), $7875, $7876, $7877, $7878); + var $7879 = Parser$Reply$value$(_reply$pst$78, $7857); + var $7873 = $7879; + break; + }; + var $7866 = $7873; + break; + }; + var $7864 = $7866; + break; + }; + var $7858 = $7864; + break; + }; + var $7850 = $7858; + break; + }; + var $7848 = $7850; + break; + }; + var $7842 = $7848; + break; + }; + var $7835 = $7842; + break; + }; + var $7833 = $7835; + break; + }; + return $7833; + }), _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $7880 = self.err; + var self = $7831; + switch (self._) { + case 'Maybe.some': + var $7882 = self.value; + var $7883 = Parser$Reply$error$(Parser$Error$combine$($7882, $7880)); + var $7881 = $7883; + break; + case 'Maybe.none': + var $7884 = Parser$Reply$error$($7880); + var $7881 = $7884; + break; + }; + var $7832 = $7881; + break; + case 'Parser.Reply.value': + var $7885 = self.pst; + var $7886 = self.val; + var self = $7885; + switch (self._) { + case 'Parser.State.new': + var $7888 = self.err; + var $7889 = self.nam; + var $7890 = self.ini; + var $7891 = self.idx; + var $7892 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7831, $7888), $7889, $7890, $7891, $7892); + var $7893 = Parser$Reply$value$(_reply$pst$44, Kind$Ann$new$($7823, Kind$Term$ref$($7823), $7886)); + var $7887 = $7893; + break; + }; + var $7832 = $7887; + break; + }; + var $7830 = $7832; + break; + }; + var $7824 = $7830; + break; + }; + var $7816 = $7824; + break; + }; + var $7814 = $7816; + break; + }; + return $7814; + }))(_reply$pst$15); + var $7807 = $7813; + break; + }; + var $7800 = $7807; + break; + }; + var $7798 = $7800; + break; + }; + return $7798; + }), List$cons$((_pst$1 => { + var $7894 = Parser$Reply$value$(_pst$1, List$nil); + return $7894; + }), List$nil))); + + function Kind$Parser$case$case$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $7896 = self.err; + var _reply$7 = Parser$try$(Kind$Parser$text(":"), _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $7898 = self.err; + var self = $7896; + switch (self._) { + case 'Maybe.some': + var $7900 = self.value; + var $7901 = Parser$Reply$error$(Parser$Error$combine$($7900, $7898)); + var $7899 = $7901; + break; + case 'Maybe.none': + var $7902 = Parser$Reply$error$($7898); + var $7899 = $7902; + break; + }; + var $7897 = $7899; + break; + case 'Parser.Reply.value': + var $7903 = self.pst; + var $7904 = self.val; + var self = $7903; + switch (self._) { + case 'Parser.State.new': + var $7906 = self.err; + var $7907 = self.nam; + var $7908 = self.ini; + var $7909 = self.idx; + var $7910 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($7896, $7906), $7907, $7908, $7909, $7910); + var self = $7904; + if (self) { + var $7912 = (_pst$16 => { + var self = _pst$16; + switch (self._) { + case 'Parser.State.new': + var $7914 = self.err; + var _reply$22 = Kind$Parser$spaces(_pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $7916 = self.err; + var self = $7914; + switch (self._) { + case 'Maybe.some': + var $7918 = self.value; + var $7919 = Parser$Reply$error$(Parser$Error$combine$($7918, $7916)); + var $7917 = $7919; + break; + case 'Maybe.none': + var $7920 = Parser$Reply$error$($7916); + var $7917 = $7920; + break; + }; + var $7915 = $7917; + break; + case 'Parser.Reply.value': + var $7921 = self.pst; + var self = $7921; + switch (self._) { + case 'Parser.State.new': + var $7923 = self.err; + var $7924 = self.nam; + var $7925 = self.ini; + var $7926 = self.idx; + var $7927 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7914, $7923), $7924, $7925, $7926, $7927); + var $7928 = Parser$fail$("Expected constructor names.", _reply$pst$30); + var $7922 = $7928; + break; + }; + var $7915 = $7922; + break; + }; + var $7913 = $7915; + break; + }; + return $7913; + }); + var $7911 = $7912; + } else { + var $7929 = (_pst$16 => { + var self = _pst$16; + switch (self._) { + case 'Parser.State.new': + var $7931 = self.err; + var _reply$22 = Parser$until$(Kind$Parser$text(":"), Kind$Parser$name1)(_pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $7933 = self.err; + var self = $7931; + switch (self._) { + case 'Maybe.some': + var $7935 = self.value; + var $7936 = Parser$Reply$error$(Parser$Error$combine$($7935, $7933)); + var $7934 = $7936; + break; + case 'Maybe.none': + var $7937 = Parser$Reply$error$($7933); + var $7934 = $7937; + break; + }; + var $7932 = $7934; + break; + case 'Parser.Reply.value': + var $7938 = self.pst; + var $7939 = self.val; + var self = $7938; + switch (self._) { + case 'Parser.State.new': + var $7941 = self.err; + var $7942 = self.nam; + var $7943 = self.ini; + var $7944 = self.idx; + var $7945 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($7931, $7941), $7942, $7943, $7944, $7945); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $7947 = self.err; + var _reply$36 = Kind$Parser$term(_reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $7949 = self.err; + var self = $7947; + switch (self._) { + case 'Maybe.some': + var $7951 = self.value; + var $7952 = Parser$Reply$error$(Parser$Error$combine$($7951, $7949)); + var $7950 = $7952; + break; + case 'Maybe.none': + var $7953 = Parser$Reply$error$($7949); + var $7950 = $7953; + break; + }; + var $7948 = $7950; + break; + case 'Parser.Reply.value': + var $7954 = self.pst; + var $7955 = self.val; + var self = $7954; + switch (self._) { + case 'Parser.State.new': + var $7957 = self.err; + var $7958 = self.nam; + var $7959 = self.ini; + var $7960 = self.idx; + var $7961 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($7947, $7957), $7958, $7959, $7960, $7961); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $7963 = self.err; + var _reply$50 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $7965 = self.err; + var self = $7963; + switch (self._) { + case 'Maybe.some': + var $7967 = self.value; + var $7968 = Parser$Reply$error$(Parser$Error$combine$($7967, $7965)); + var $7966 = $7968; + break; + case 'Maybe.none': + var $7969 = Parser$Reply$error$($7965); + var $7966 = $7969; + break; + }; + var $7964 = $7966; + break; + case 'Parser.Reply.value': + var $7970 = self.pst; + var self = $7970; + switch (self._) { + case 'Parser.State.new': + var $7972 = self.err; + var $7973 = self.nam; + var $7974 = self.ini; + var $7975 = self.idx; + var $7976 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($7963, $7972), $7973, $7974, $7975, $7976); + var $7977 = Parser$Reply$value$(_reply$pst$58, Pair$new$($7939, $7955)); + var $7971 = $7977; + break; + }; + var $7964 = $7971; + break; + }; + var $7962 = $7964; + break; + }; + var $7956 = $7962; + break; + }; + var $7948 = $7956; + break; + }; + var $7946 = $7948; + break; + }; + var $7940 = $7946; + break; + }; + var $7932 = $7940; + break; + }; + var $7930 = $7932; + break; + }; + return $7930; + }); + var $7911 = $7929; + }; + var $7911 = $7911(_reply$pst$15); + var $7905 = $7911; + break; + }; + var $7897 = $7905; + break; + }; + var $7895 = $7897; + break; + }; + return $7895; + }; + const Kind$Parser$case$case = x0 => Kind$Parser$case$case$(x0); + + function Parser$append_error$(_parse$2, _msg$3, _pst$4) { + var _reply$5 = _parse$2(_pst$4); + var self = _reply$5; + switch (self._) { + case 'Parser.Reply.error': + var $7979 = self.err; + var self = $7979; + switch (self._) { + case 'Parser.Error.new': + var $7981 = self.nam; + var $7982 = self.ini; + var $7983 = self.idx; + var $7984 = self.msg; + var $7985 = Parser$Reply$fail$($7981, $7982, $7983, ($7984 + _msg$3)); + var $7980 = $7985; + break; + }; + var $7978 = $7980; + break; + case 'Parser.Reply.value': + var $7986 = _reply$5; + var $7978 = $7986; + break; + }; + return $7978; + }; + const Parser$append_error = x0 => x1 => x2 => Parser$append_error$(x0, x1, x2); + + function Kind$Parser$case$group$(_dflt$1, _cses$2) { + var self = _cses$2; + switch (self._) { + case 'List.cons': + var $7988 = self.head; + var $7989 = self.tail; + var _map$5 = Kind$Parser$case$group$(_dflt$1, $7989); + var self = $7988; + switch (self._) { + case 'Pair.new': + var $7991 = self.fst; + var $7992 = self.snd; + var self = $7991; + switch (self._) { + case 'List.cons': + var $7994 = self.head; + var $7995 = self.tail; + var _rest$10 = Maybe$default$(Kind$Map$get$($7994, _map$5), List$nil); + var $7996 = Kind$Map$set$($7994, List$cons$(Pair$new$($7995, $7992), _rest$10), _map$5); + var $7993 = $7996; + break; + case 'List.nil': + var $7997 = _map$5; + var $7993 = $7997; + break; + }; + var $7990 = $7993; + break; + }; + var $7987 = $7990; + break; + case 'List.nil': + var self = _dflt$1; + switch (self._) { + case 'Maybe.some': + var $7999 = self.value; + var $8000 = Kind$Map$set$("_", List$cons$(Pair$new$(List$nil, $7999), List$nil), Kind$Map$new); + var $7998 = $8000; + break; + case 'Maybe.none': + var $8001 = Kind$Map$new; + var $7998 = $8001; + break; + }; + var $7987 = $7998; + break; + }; + return $7987; + }; + const Kind$Parser$case$group = x0 => x1 => Kind$Parser$case$group$(x0, x1); + + function BitsMap$map$(_fn$3, _map$4) { + var self = _map$4; + switch (self._) { + case 'BitsMap.tie': + var $8003 = self.val; + var $8004 = self.lft; + var $8005 = self.rgt; + var self = $8003; + switch (self._) { + case 'Maybe.some': + var $8007 = self.value; + var $8008 = Maybe$some$(_fn$3($8007)); + var _val$8 = $8008; + break; + case 'Maybe.none': + var $8009 = Maybe$none; + var _val$8 = $8009; + break; + }; + var _lft$9 = BitsMap$map$(_fn$3, $8004); + var _rgt$10 = BitsMap$map$(_fn$3, $8005); + var $8006 = BitsMap$tie$(_val$8, _lft$9, _rgt$10); + var $8002 = $8006; + break; + case 'BitsMap.new': + var $8010 = BitsMap$new; + var $8002 = $8010; + break; + }; + return $8002; + }; + const BitsMap$map = x0 => x1 => BitsMap$map$(x0, x1); + + function Kind$Map$map$(_fn$3, _map$4) { + var $8011 = BitsMap$map$(_fn$3, _map$4); + return $8011; + }; + const Kind$Map$map = x0 => x1 => Kind$Map$map$(x0, x1); + + function Kind$Parser$case$build$(_vals$1, _wyth$2, _cses$3, _dflt$4, _moti$5) { + var self = _vals$1; + switch (self._) { + case 'List.cons': + var $8013 = self.head; + var $8014 = self.tail; + var _group$8 = Kind$Parser$case$group$(_dflt$4, _cses$3); + var _name$9 = Pair$fst$($8013); + var _expr$10 = Pair$snd$($8013); + var _cses$11 = Kind$Map$map$((_cses$11 => { + var $8016 = Kind$Parser$case$build$($8014, _wyth$2, _cses$11, _dflt$4, _moti$5); + return $8016; + }), _group$8); + var $8015 = Kind$Term$cse$(Bits$e, _expr$10, _name$9, _wyth$2, _cses$11, _moti$5); + var $8012 = $8015; + break; + case 'List.nil': + var self = _cses$3; + switch (self._) { + case 'List.cons': + var $8018 = self.head; + var $8019 = Pair$snd$($8018); + var $8017 = $8019; + break; + case 'List.nil': + var $8020 = Kind$Term$ref$("missing_case"); + var $8017 = $8020; + break; + }; + var $8012 = $8017; + break; + }; + return $8012; + }; + const Kind$Parser$case$build = x0 => x1 => x2 => x3 => x4 => Kind$Parser$case$build$(x0, x1, x2, x3, x4); + const Kind$Parser$case = Kind$Parser$block("case")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8022 = self.err; + var _reply$7 = Kind$Parser$text$("case ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8024 = self.err; + var self = $8022; + switch (self._) { + case 'Maybe.some': + var $8026 = self.value; + var $8027 = Parser$Reply$error$(Parser$Error$combine$($8026, $8024)); + var $8025 = $8027; + break; + case 'Maybe.none': + var $8028 = Parser$Reply$error$($8024); + var $8025 = $8028; + break; + }; + var $8023 = $8025; + break; + case 'Parser.Reply.value': + var $8029 = self.pst; + var self = $8029; + switch (self._) { + case 'Parser.State.new': + var $8031 = self.err; + var $8032 = self.nam; + var $8033 = self.ini; + var $8034 = self.idx; + var $8035 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8022, $8031), $8032, $8033, $8034, $8035); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $8037 = self.err; + var _reply$21 = Parser$many1$((_pst$21 => { + var self = _pst$21; + switch (self._) { + case 'Parser.State.new': + var $8040 = self.err; + var _reply$27 = Parser$avoiding$(Kind$Parser$text("{"), Kind$Parser$term, _pst$21); + var self = _reply$27; + switch (self._) { + case 'Parser.Reply.error': + var $8042 = self.err; + var self = $8040; + switch (self._) { + case 'Maybe.some': + var $8044 = self.value; + var $8045 = Parser$Reply$error$(Parser$Error$combine$($8044, $8042)); + var $8043 = $8045; + break; + case 'Maybe.none': + var $8046 = Parser$Reply$error$($8042); + var $8043 = $8046; + break; + }; + var $8041 = $8043; + break; + case 'Parser.Reply.value': + var $8047 = self.pst; + var $8048 = self.val; + var self = $8047; + switch (self._) { + case 'Parser.State.new': + var $8050 = self.err; + var $8051 = self.nam; + var $8052 = self.ini; + var $8053 = self.idx; + var $8054 = self.str; + var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($8040, $8050), $8051, $8052, $8053, $8054); + var self = _reply$pst$35; + switch (self._) { + case 'Parser.State.new': + var $8056 = self.err; + var _reply$41 = Parser$maybe$((_pst$41 => { + var self = _pst$41; + switch (self._) { + case 'Parser.State.new': + var $8059 = self.err; + var _reply$47 = Kind$Parser$text$("as", _pst$41); + var self = _reply$47; + switch (self._) { + case 'Parser.Reply.error': + var $8061 = self.err; + var self = $8059; + switch (self._) { + case 'Maybe.some': + var $8063 = self.value; + var $8064 = Parser$Reply$error$(Parser$Error$combine$($8063, $8061)); + var $8062 = $8064; + break; + case 'Maybe.none': + var $8065 = Parser$Reply$error$($8061); + var $8062 = $8065; + break; + }; + var $8060 = $8062; + break; + case 'Parser.Reply.value': + var $8066 = self.pst; + var self = $8066; + switch (self._) { + case 'Parser.State.new': + var $8068 = self.err; + var $8069 = self.nam; + var $8070 = self.ini; + var $8071 = self.idx; + var $8072 = self.str; + var _reply$pst$55 = Parser$State$new$(Parser$Error$maybe_combine$($8059, $8068), $8069, $8070, $8071, $8072); + var self = _reply$pst$55; + switch (self._) { + case 'Parser.State.new': + var $8074 = self.err; + var _reply$61 = Kind$Parser$name1$(_reply$pst$55); + var self = _reply$61; + switch (self._) { + case 'Parser.Reply.error': + var $8076 = self.err; + var self = $8074; + switch (self._) { + case 'Maybe.some': + var $8078 = self.value; + var $8079 = Parser$Reply$error$(Parser$Error$combine$($8078, $8076)); + var $8077 = $8079; + break; + case 'Maybe.none': + var $8080 = Parser$Reply$error$($8076); + var $8077 = $8080; + break; + }; + var $8075 = $8077; + break; + case 'Parser.Reply.value': + var $8081 = self.pst; + var $8082 = self.val; + var self = $8081; + switch (self._) { + case 'Parser.State.new': + var $8084 = self.err; + var $8085 = self.nam; + var $8086 = self.ini; + var $8087 = self.idx; + var $8088 = self.str; + var _reply$pst$69 = Parser$State$new$(Parser$Error$maybe_combine$($8074, $8084), $8085, $8086, $8087, $8088); + var self = _reply$pst$69; + switch (self._) { + case 'Parser.State.new': + var $8090 = self.err; + var _reply$75 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$69); + var self = _reply$75; + switch (self._) { + case 'Parser.Reply.error': + var $8092 = self.err; + var self = $8090; + switch (self._) { + case 'Maybe.some': + var $8094 = self.value; + var $8095 = Parser$Reply$error$(Parser$Error$combine$($8094, $8092)); + var $8093 = $8095; + break; + case 'Maybe.none': + var $8096 = Parser$Reply$error$($8092); + var $8093 = $8096; + break; + }; + var $8091 = $8093; + break; + case 'Parser.Reply.value': + var $8097 = self.pst; + var self = $8097; + switch (self._) { + case 'Parser.State.new': + var $8099 = self.err; + var $8100 = self.nam; + var $8101 = self.ini; + var $8102 = self.idx; + var $8103 = self.str; + var _reply$pst$83 = Parser$State$new$(Parser$Error$maybe_combine$($8090, $8099), $8100, $8101, $8102, $8103); + var $8104 = Parser$Reply$value$(_reply$pst$83, $8082); + var $8098 = $8104; + break; + }; + var $8091 = $8098; + break; + }; + var $8089 = $8091; + break; + }; + var $8083 = $8089; + break; + }; + var $8075 = $8083; + break; + }; + var $8073 = $8075; + break; + }; + var $8067 = $8073; + break; + }; + var $8060 = $8067; + break; + }; + var $8058 = $8060; + break; + }; + return $8058; + }), _reply$pst$35); + var self = _reply$41; + switch (self._) { + case 'Parser.Reply.error': + var $8105 = self.err; + var self = $8056; + switch (self._) { + case 'Maybe.some': + var $8107 = self.value; + var $8108 = Parser$Reply$error$(Parser$Error$combine$($8107, $8105)); + var $8106 = $8108; + break; + case 'Maybe.none': + var $8109 = Parser$Reply$error$($8105); + var $8106 = $8109; + break; + }; + var $8057 = $8106; + break; + case 'Parser.Reply.value': + var $8110 = self.pst; + var $8111 = self.val; + var self = $8110; + switch (self._) { + case 'Parser.State.new': + var $8113 = self.err; + var $8114 = self.nam; + var $8115 = self.ini; + var $8116 = self.idx; + var $8117 = self.str; + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($8056, $8113), $8114, $8115, $8116, $8117); + var _name$50 = Maybe$default$($8111, Kind$Term$extract_name$($8048)); + var $8118 = Parser$Reply$value$(_reply$pst$49, Pair$new$(_name$50, $8048)); + var $8112 = $8118; + break; + }; + var $8057 = $8112; + break; + }; + var $8055 = $8057; + break; + }; + var $8049 = $8055; + break; + }; + var $8041 = $8049; + break; + }; + var $8039 = $8041; + break; + }; + return $8039; + }), _reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $8119 = self.err; + var self = $8037; + switch (self._) { + case 'Maybe.some': + var $8121 = self.value; + var $8122 = Parser$Reply$error$(Parser$Error$combine$($8121, $8119)); + var $8120 = $8122; + break; + case 'Maybe.none': + var $8123 = Parser$Reply$error$($8119); + var $8120 = $8123; + break; + }; + var $8038 = $8120; + break; + case 'Parser.Reply.value': + var $8124 = self.pst; + var $8125 = self.val; + var self = $8124; + switch (self._) { + case 'Parser.State.new': + var $8127 = self.err; + var $8128 = self.nam; + var $8129 = self.ini; + var $8130 = self.idx; + var $8131 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8037, $8127), $8128, $8129, $8130, $8131); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $8133 = self.err; + var _reply$35 = Kind$Parser$case$with(_reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $8135 = self.err; + var self = $8133; + switch (self._) { + case 'Maybe.some': + var $8137 = self.value; + var $8138 = Parser$Reply$error$(Parser$Error$combine$($8137, $8135)); + var $8136 = $8138; + break; + case 'Maybe.none': + var $8139 = Parser$Reply$error$($8135); + var $8136 = $8139; + break; + }; + var $8134 = $8136; + break; + case 'Parser.Reply.value': + var $8140 = self.pst; + var $8141 = self.val; + var self = $8140; + switch (self._) { + case 'Parser.State.new': + var $8143 = self.err; + var $8144 = self.nam; + var $8145 = self.ini; + var $8146 = self.idx; + var $8147 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8133, $8143), $8144, $8145, $8146, $8147); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $8149 = self.err; + var _reply$49 = Kind$Parser$items$("{", Kind$Parser$case$case, "}")(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $8151 = self.err; + var self = $8149; + switch (self._) { + case 'Maybe.some': + var $8153 = self.value; + var $8154 = Parser$Reply$error$(Parser$Error$combine$($8153, $8151)); + var $8152 = $8154; + break; + case 'Maybe.none': + var $8155 = Parser$Reply$error$($8151); + var $8152 = $8155; + break; + }; + var $8150 = $8152; + break; + case 'Parser.Reply.value': + var $8156 = self.pst; + var $8157 = self.val; + var self = $8156; + switch (self._) { + case 'Parser.State.new': + var $8159 = self.err; + var $8160 = self.nam; + var $8161 = self.ini; + var $8162 = self.idx; + var $8163 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($8149, $8159), $8160, $8161, $8162, $8163); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $8165 = self.err; + var _reply$63 = Parser$maybe$(Kind$Parser$text("!"), _reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $8167 = self.err; + var self = $8165; + switch (self._) { + case 'Maybe.some': + var $8169 = self.value; + var $8170 = Parser$Reply$error$(Parser$Error$combine$($8169, $8167)); + var $8168 = $8170; + break; + case 'Maybe.none': + var $8171 = Parser$Reply$error$($8167); + var $8168 = $8171; + break; + }; + var $8166 = $8168; + break; + case 'Parser.Reply.value': + var $8172 = self.pst; + var $8173 = self.val; + var self = $8172; + switch (self._) { + case 'Parser.State.new': + var $8175 = self.err; + var $8176 = self.nam; + var $8177 = self.ini; + var $8178 = self.idx; + var $8179 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($8165, $8175), $8176, $8177, $8178, $8179); + var self = _reply$pst$71; + switch (self._) { + case 'Parser.State.new': + var $8181 = self.err; + var _reply$77 = Parser$maybe$((_pst$77 => { + var self = _pst$77; + switch (self._) { + case 'Parser.State.new': + var $8184 = self.err; + var _reply$83 = Kind$Parser$text$("default", _pst$77); + var self = _reply$83; + switch (self._) { + case 'Parser.Reply.error': + var $8186 = self.err; + var self = $8184; + switch (self._) { + case 'Maybe.some': + var $8188 = self.value; + var $8189 = Parser$Reply$error$(Parser$Error$combine$($8188, $8186)); + var $8187 = $8189; + break; + case 'Maybe.none': + var $8190 = Parser$Reply$error$($8186); + var $8187 = $8190; + break; + }; + var $8185 = $8187; + break; + case 'Parser.Reply.value': + var $8191 = self.pst; + var self = $8191; + switch (self._) { + case 'Parser.State.new': + var $8193 = self.err; + var $8194 = self.nam; + var $8195 = self.ini; + var $8196 = self.idx; + var $8197 = self.str; + var _reply$pst$91 = Parser$State$new$(Parser$Error$maybe_combine$($8184, $8193), $8194, $8195, $8196, $8197); + var self = _reply$pst$91; + switch (self._) { + case 'Parser.State.new': + var $8199 = self.err; + var _reply$97 = Kind$Parser$term(_reply$pst$91); + var self = _reply$97; + switch (self._) { + case 'Parser.Reply.error': + var $8201 = self.err; + var self = $8199; + switch (self._) { + case 'Maybe.some': + var $8203 = self.value; + var $8204 = Parser$Reply$error$(Parser$Error$combine$($8203, $8201)); + var $8202 = $8204; + break; + case 'Maybe.none': + var $8205 = Parser$Reply$error$($8201); + var $8202 = $8205; + break; + }; + var $8200 = $8202; + break; + case 'Parser.Reply.value': + var $8206 = self.pst; + var $8207 = self.val; + var self = $8206; + switch (self._) { + case 'Parser.State.new': + var $8209 = self.err; + var $8210 = self.nam; + var $8211 = self.ini; + var $8212 = self.idx; + var $8213 = self.str; + var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($8199, $8209), $8210, $8211, $8212, $8213); + var $8214 = Parser$Reply$value$(_reply$pst$105, $8207); + var $8208 = $8214; + break; + }; + var $8200 = $8208; + break; + }; + var $8198 = $8200; + break; + }; + var $8192 = $8198; + break; + }; + var $8185 = $8192; + break; + }; + var $8183 = $8185; + break; + }; + return $8183; + }), _reply$pst$71); + var self = _reply$77; + switch (self._) { + case 'Parser.Reply.error': + var $8215 = self.err; + var self = $8181; + switch (self._) { + case 'Maybe.some': + var $8217 = self.value; + var $8218 = Parser$Reply$error$(Parser$Error$combine$($8217, $8215)); + var $8216 = $8218; + break; + case 'Maybe.none': + var $8219 = Parser$Reply$error$($8215); + var $8216 = $8219; + break; + }; + var $8182 = $8216; + break; + case 'Parser.Reply.value': + var $8220 = self.pst; + var $8221 = self.val; + var self = $8220; + switch (self._) { + case 'Parser.State.new': + var $8223 = self.err; + var $8224 = self.nam; + var $8225 = self.ini; + var $8226 = self.idx; + var $8227 = self.str; + var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($8181, $8223), $8224, $8225, $8226, $8227); + var self = _reply$pst$85; + switch (self._) { + case 'Parser.State.new': + var $8229 = self.err; + var _reply$91 = Parser$maybe$((_pst$91 => { + var self = _pst$91; + switch (self._) { + case 'Parser.State.new': + var $8232 = self.err; + var _reply$97 = Kind$Parser$text$(":", _pst$91); + var self = _reply$97; + switch (self._) { + case 'Parser.Reply.error': + var $8234 = self.err; + var self = $8232; + switch (self._) { + case 'Maybe.some': + var $8236 = self.value; + var $8237 = Parser$Reply$error$(Parser$Error$combine$($8236, $8234)); + var $8235 = $8237; + break; + case 'Maybe.none': + var $8238 = Parser$Reply$error$($8234); + var $8235 = $8238; + break; + }; + var $8233 = $8235; + break; + case 'Parser.Reply.value': + var $8239 = self.pst; + var self = $8239; + switch (self._) { + case 'Parser.State.new': + var $8241 = self.err; + var $8242 = self.nam; + var $8243 = self.ini; + var $8244 = self.idx; + var $8245 = self.str; + var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($8232, $8241), $8242, $8243, $8244, $8245); + var $8246 = Parser$append_error$(Kind$Parser$term, "\u{a}Inside motive.", _reply$pst$105); + var $8240 = $8246; + break; + }; + var $8233 = $8240; + break; + }; + var $8231 = $8233; + break; + }; + return $8231; + }), _reply$pst$85); + var self = _reply$91; + switch (self._) { + case 'Parser.Reply.error': + var $8247 = self.err; + var self = $8229; + switch (self._) { + case 'Maybe.some': + var $8249 = self.value; + var $8250 = Parser$Reply$error$(Parser$Error$combine$($8249, $8247)); + var $8248 = $8250; + break; + case 'Maybe.none': + var $8251 = Parser$Reply$error$($8247); + var $8248 = $8251; + break; + }; + var $8230 = $8248; + break; + case 'Parser.Reply.value': + var $8252 = self.pst; + var $8253 = self.val; + var self = $8252; + switch (self._) { + case 'Parser.State.new': + var $8255 = self.err; + var $8256 = self.nam; + var $8257 = self.ini; + var $8258 = self.idx; + var $8259 = self.str; + var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($8229, $8255), $8256, $8257, $8258, $8259); + var self = $8253; + switch (self._) { + case 'Maybe.some': + var $8261 = self.value; + var $8262 = Maybe$some$($8261); + var _moti$100 = $8262; + break; + case 'Maybe.none': + var self = $8173; + switch (self._) { + case 'Maybe.none': + var $8264 = Maybe$some$(Kind$Term$hol$(Bits$e)); + var $8263 = $8264; + break; + case 'Maybe.some': + var $8265 = Maybe$none; + var $8263 = $8265; + break; + }; + var _moti$100 = $8263; + break; + }; + var $8260 = Parser$Reply$value$(_reply$pst$99, Kind$Parser$case$build$($8125, $8141, $8157, $8221, _moti$100)); + var $8254 = $8260; + break; + }; + var $8230 = $8254; + break; + }; + var $8228 = $8230; + break; + }; + var $8222 = $8228; + break; + }; + var $8182 = $8222; + break; + }; + var $8180 = $8182; + break; + }; + var $8174 = $8180; + break; + }; + var $8166 = $8174; + break; + }; + var $8164 = $8166; + break; + }; + var $8158 = $8164; + break; + }; + var $8150 = $8158; + break; + }; + var $8148 = $8150; + break; + }; + var $8142 = $8148; + break; + }; + var $8134 = $8142; + break; + }; + var $8132 = $8134; + break; + }; + var $8126 = $8132; + break; + }; + var $8038 = $8126; + break; + }; + var $8036 = $8038; + break; + }; + var $8030 = $8036; + break; + }; + var $8023 = $8030; + break; + }; + var $8021 = $8023; + break; + }; + return $8021; + })); + const Kind$Parser$without = Kind$Parser$block("without")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8267 = self.err; + var _reply$7 = Kind$Parser$text$("without ", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8269 = self.err; + var self = $8267; + switch (self._) { + case 'Maybe.some': + var $8271 = self.value; + var $8272 = Parser$Reply$error$(Parser$Error$combine$($8271, $8269)); + var $8270 = $8272; + break; + case 'Maybe.none': + var $8273 = Parser$Reply$error$($8269); + var $8270 = $8273; + break; + }; + var $8268 = $8270; + break; + case 'Parser.Reply.value': + var $8274 = self.pst; + var self = $8274; + switch (self._) { + case 'Parser.State.new': + var $8276 = self.err; + var $8277 = self.nam; + var $8278 = self.ini; + var $8279 = self.idx; + var $8280 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8267, $8276), $8277, $8278, $8279, $8280); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $8282 = self.err; + var _reply$21 = Kind$Parser$name1$(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $8284 = self.err; + var self = $8282; + switch (self._) { + case 'Maybe.some': + var $8286 = self.value; + var $8287 = Parser$Reply$error$(Parser$Error$combine$($8286, $8284)); + var $8285 = $8287; + break; + case 'Maybe.none': + var $8288 = Parser$Reply$error$($8284); + var $8285 = $8288; + break; + }; + var $8283 = $8285; + break; + case 'Parser.Reply.value': + var $8289 = self.pst; + var $8290 = self.val; + var self = $8289; + switch (self._) { + case 'Parser.State.new': + var $8292 = self.err; + var $8293 = self.nam; + var $8294 = self.ini; + var $8295 = self.idx; + var $8296 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8282, $8292), $8293, $8294, $8295, $8296); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $8298 = self.err; + var _reply$35 = Kind$Parser$text$(":", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $8300 = self.err; + var self = $8298; + switch (self._) { + case 'Maybe.some': + var $8302 = self.value; + var $8303 = Parser$Reply$error$(Parser$Error$combine$($8302, $8300)); + var $8301 = $8303; + break; + case 'Maybe.none': + var $8304 = Parser$Reply$error$($8300); + var $8301 = $8304; + break; + }; + var $8299 = $8301; + break; + case 'Parser.Reply.value': + var $8305 = self.pst; + var self = $8305; + switch (self._) { + case 'Parser.State.new': + var $8307 = self.err; + var $8308 = self.nam; + var $8309 = self.ini; + var $8310 = self.idx; + var $8311 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8298, $8307), $8308, $8309, $8310, $8311); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $8313 = self.err; + var _reply$49 = Kind$Parser$term(_reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $8315 = self.err; + var self = $8313; + switch (self._) { + case 'Maybe.some': + var $8317 = self.value; + var $8318 = Parser$Reply$error$(Parser$Error$combine$($8317, $8315)); + var $8316 = $8318; + break; + case 'Maybe.none': + var $8319 = Parser$Reply$error$($8315); + var $8316 = $8319; + break; + }; + var $8314 = $8316; + break; + case 'Parser.Reply.value': + var $8320 = self.pst; + var $8321 = self.val; + var self = $8320; + switch (self._) { + case 'Parser.State.new': + var $8323 = self.err; + var $8324 = self.nam; + var $8325 = self.ini; + var $8326 = self.idx; + var $8327 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($8313, $8323), $8324, $8325, $8326, $8327); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $8329 = self.err; + var _reply$63 = Kind$Parser$term(_reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $8331 = self.err; + var self = $8329; + switch (self._) { + case 'Maybe.some': + var $8333 = self.value; + var $8334 = Parser$Reply$error$(Parser$Error$combine$($8333, $8331)); + var $8332 = $8334; + break; + case 'Maybe.none': + var $8335 = Parser$Reply$error$($8331); + var $8332 = $8335; + break; + }; + var $8330 = $8332; + break; + case 'Parser.Reply.value': + var $8336 = self.pst; + var $8337 = self.val; + var self = $8336; + switch (self._) { + case 'Parser.State.new': + var $8339 = self.err; + var $8340 = self.nam; + var $8341 = self.ini; + var $8342 = self.idx; + var $8343 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($8329, $8339), $8340, $8341, $8342, $8343); + var _term$72 = Kind$Term$ref$($8290); + var _term$73 = Kind$Term$app$(_term$72, Kind$Term$lam$("", (_x$73 => { + var $8345 = Kind$Term$hol$(Bits$e); + return $8345; + }))); + var _term$74 = Kind$Term$app$(_term$73, $8321); + var _term$75 = Kind$Term$app$(_term$74, Kind$Term$lam$($8290, (_x$75 => { + var $8346 = $8337; + return $8346; + }))); + var $8344 = Parser$Reply$value$(_reply$pst$71, _term$75); + var $8338 = $8344; + break; + }; + var $8330 = $8338; + break; + }; + var $8328 = $8330; + break; + }; + var $8322 = $8328; + break; + }; + var $8314 = $8322; + break; + }; + var $8312 = $8314; + break; + }; + var $8306 = $8312; + break; + }; + var $8299 = $8306; + break; + }; + var $8297 = $8299; + break; + }; + var $8291 = $8297; + break; + }; + var $8283 = $8291; + break; + }; + var $8281 = $8283; + break; + }; + var $8275 = $8281; + break; + }; + var $8268 = $8275; + break; + }; + var $8266 = $8268; + break; + }; + return $8266; + })); + + function Kind$Parser$switch$case$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8348 = self.err; + var _reply$7 = Kind$Parser$term(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8350 = self.err; + var self = $8348; + switch (self._) { + case 'Maybe.some': + var $8352 = self.value; + var $8353 = Parser$Reply$error$(Parser$Error$combine$($8352, $8350)); + var $8351 = $8353; + break; + case 'Maybe.none': + var $8354 = Parser$Reply$error$($8350); + var $8351 = $8354; + break; + }; + var $8349 = $8351; + break; + case 'Parser.Reply.value': + var $8355 = self.pst; + var $8356 = self.val; + var self = $8355; + switch (self._) { + case 'Parser.State.new': + var $8358 = self.err; + var $8359 = self.nam; + var $8360 = self.ini; + var $8361 = self.idx; + var $8362 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8348, $8358), $8359, $8360, $8361, $8362); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $8364 = self.err; + var _reply$21 = Kind$Parser$text$(":", _reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $8366 = self.err; + var self = $8364; + switch (self._) { + case 'Maybe.some': + var $8368 = self.value; + var $8369 = Parser$Reply$error$(Parser$Error$combine$($8368, $8366)); + var $8367 = $8369; + break; + case 'Maybe.none': + var $8370 = Parser$Reply$error$($8366); + var $8367 = $8370; + break; + }; + var $8365 = $8367; + break; + case 'Parser.Reply.value': + var $8371 = self.pst; + var self = $8371; + switch (self._) { + case 'Parser.State.new': + var $8373 = self.err; + var $8374 = self.nam; + var $8375 = self.ini; + var $8376 = self.idx; + var $8377 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8364, $8373), $8374, $8375, $8376, $8377); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $8379 = self.err; + var _reply$35 = Kind$Parser$term(_reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $8381 = self.err; + var self = $8379; + switch (self._) { + case 'Maybe.some': + var $8383 = self.value; + var $8384 = Parser$Reply$error$(Parser$Error$combine$($8383, $8381)); + var $8382 = $8384; + break; + case 'Maybe.none': + var $8385 = Parser$Reply$error$($8381); + var $8382 = $8385; + break; + }; + var $8380 = $8382; + break; + case 'Parser.Reply.value': + var $8386 = self.pst; + var $8387 = self.val; + var self = $8386; + switch (self._) { + case 'Parser.State.new': + var $8389 = self.err; + var $8390 = self.nam; + var $8391 = self.ini; + var $8392 = self.idx; + var $8393 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8379, $8389), $8390, $8391, $8392, $8393); + var $8394 = Parser$Reply$value$(_reply$pst$43, Pair$new$($8356, $8387)); + var $8388 = $8394; + break; + }; + var $8380 = $8388; + break; + }; + var $8378 = $8380; + break; + }; + var $8372 = $8378; + break; + }; + var $8365 = $8372; + break; + }; + var $8363 = $8365; + break; + }; + var $8357 = $8363; + break; + }; + var $8349 = $8357; + break; + }; + var $8347 = $8349; + break; + }; + return $8347; + }; + const Kind$Parser$switch$case = x0 => Kind$Parser$switch$case$(x0); + const Kind$Parser$switch = Kind$Parser$block("switch")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8396 = self.err; + var _reply$7 = Kind$Parser$text$("switch", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8398 = self.err; + var self = $8396; + switch (self._) { + case 'Maybe.some': + var $8400 = self.value; + var $8401 = Parser$Reply$error$(Parser$Error$combine$($8400, $8398)); + var $8399 = $8401; + break; + case 'Maybe.none': + var $8402 = Parser$Reply$error$($8398); + var $8399 = $8402; + break; + }; + var $8397 = $8399; + break; + case 'Parser.Reply.value': + var $8403 = self.pst; + var self = $8403; + switch (self._) { + case 'Parser.State.new': + var $8405 = self.err; + var $8406 = self.nam; + var $8407 = self.ini; + var $8408 = self.idx; + var $8409 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8396, $8405), $8406, $8407, $8408, $8409); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $8411 = self.err; + var _reply$21 = Kind$Parser$term(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $8413 = self.err; + var self = $8411; + switch (self._) { + case 'Maybe.some': + var $8415 = self.value; + var $8416 = Parser$Reply$error$(Parser$Error$combine$($8415, $8413)); + var $8414 = $8416; + break; + case 'Maybe.none': + var $8417 = Parser$Reply$error$($8413); + var $8414 = $8417; + break; + }; + var $8412 = $8414; + break; + case 'Parser.Reply.value': + var $8418 = self.pst; + var $8419 = self.val; + var self = $8418; + switch (self._) { + case 'Parser.State.new': + var $8421 = self.err; + var $8422 = self.nam; + var $8423 = self.ini; + var $8424 = self.idx; + var $8425 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8411, $8421), $8422, $8423, $8424, $8425); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $8427 = self.err; + var _reply$35 = Kind$Parser$items$("{", Kind$Parser$switch$case, "}")(_reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $8429 = self.err; + var self = $8427; + switch (self._) { + case 'Maybe.some': + var $8431 = self.value; + var $8432 = Parser$Reply$error$(Parser$Error$combine$($8431, $8429)); + var $8430 = $8432; + break; + case 'Maybe.none': + var $8433 = Parser$Reply$error$($8429); + var $8430 = $8433; + break; + }; + var $8428 = $8430; + break; + case 'Parser.Reply.value': + var $8434 = self.pst; + var $8435 = self.val; + var self = $8434; + switch (self._) { + case 'Parser.State.new': + var $8437 = self.err; + var $8438 = self.nam; + var $8439 = self.ini; + var $8440 = self.idx; + var $8441 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8427, $8437), $8438, $8439, $8440, $8441); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $8443 = self.err; + var _reply$49 = Kind$Parser$text$("default", _reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $8445 = self.err; + var self = $8443; + switch (self._) { + case 'Maybe.some': + var $8447 = self.value; + var $8448 = Parser$Reply$error$(Parser$Error$combine$($8447, $8445)); + var $8446 = $8448; + break; + case 'Maybe.none': + var $8449 = Parser$Reply$error$($8445); + var $8446 = $8449; + break; + }; + var $8444 = $8446; + break; + case 'Parser.Reply.value': + var $8450 = self.pst; + var self = $8450; + switch (self._) { + case 'Parser.State.new': + var $8452 = self.err; + var $8453 = self.nam; + var $8454 = self.ini; + var $8455 = self.idx; + var $8456 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($8443, $8452), $8453, $8454, $8455, $8456); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $8458 = self.err; + var _reply$63 = Kind$Parser$term(_reply$pst$57); + var self = _reply$63; + switch (self._) { + case 'Parser.Reply.error': + var $8460 = self.err; + var self = $8458; + switch (self._) { + case 'Maybe.some': + var $8462 = self.value; + var $8463 = Parser$Reply$error$(Parser$Error$combine$($8462, $8460)); + var $8461 = $8463; + break; + case 'Maybe.none': + var $8464 = Parser$Reply$error$($8460); + var $8461 = $8464; + break; + }; + var $8459 = $8461; + break; + case 'Parser.Reply.value': + var $8465 = self.pst; + var $8466 = self.val; + var self = $8465; + switch (self._) { + case 'Parser.State.new': + var $8468 = self.err; + var $8469 = self.nam; + var $8470 = self.ini; + var $8471 = self.idx; + var $8472 = self.str; + var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($8458, $8468), $8469, $8470, $8471, $8472); + var _term$72 = List$fold$($8435, $8466, (_cse$72 => _rest$73 => { + var self = _cse$72; + switch (self._) { + case 'Pair.new': + var $8475 = self.fst; + var $8476 = self.snd; + var _term$76 = Kind$Term$app$($8419, $8475); + var _term$77 = Kind$Term$app$(_term$76, Kind$Term$lam$("", (_x$77 => { + var $8478 = Kind$Term$hol$(Bits$e); + return $8478; + }))); + var _term$78 = Kind$Term$app$(_term$77, $8476); + var _term$79 = Kind$Term$app$(_term$78, _rest$73); + var $8477 = _term$79; + var $8474 = $8477; + break; + }; + return $8474; + })); + var $8473 = Parser$Reply$value$(_reply$pst$71, _term$72); + var $8467 = $8473; + break; + }; + var $8459 = $8467; + break; + }; + var $8457 = $8459; + break; + }; + var $8451 = $8457; + break; + }; + var $8444 = $8451; + break; + }; + var $8442 = $8444; + break; + }; + var $8436 = $8442; + break; + }; + var $8428 = $8436; + break; + }; + var $8426 = $8428; + break; + }; + var $8420 = $8426; + break; + }; + var $8412 = $8420; + break; + }; + var $8410 = $8412; + break; + }; + var $8404 = $8410; + break; + }; + var $8397 = $8404; + break; + }; + var $8395 = $8397; + break; + }; + return $8395; + })); + + function Bits$tail$(_a$1) { + var self = _a$1; + switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { + case 'o': + var $8480 = self.slice(0, -1); + var $8481 = $8480; + var $8479 = $8481; + break; + case 'i': + var $8482 = self.slice(0, -1); + var $8483 = $8482; + var $8479 = $8483; + break; + case 'e': + var $8484 = Bits$e; + var $8479 = $8484; + break; + }; + return $8479; + }; + const Bits$tail = x0 => Bits$tail$(x0); + + function Bits$inc$(_a$1) { + var self = _a$1; + switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { + case 'o': + var $8486 = self.slice(0, -1); + var $8487 = ($8486 + '1'); + var $8485 = $8487; + break; + case 'i': + var $8488 = self.slice(0, -1); + var $8489 = (Bits$inc$($8488) + '0'); + var $8485 = $8489; + break; + case 'e': + var $8490 = (Bits$e + '1'); + var $8485 = $8490; + break; + }; + return $8485; + }; + const Bits$inc = x0 => Bits$inc$(x0); + const Nat$to_bits = a0 => (nat_to_bits(a0)); + + function Maybe$is_some$(_m$2) { + var self = _m$2; + switch (self._) { + case 'Maybe.none': + var $8492 = Bool$false; + var $8491 = $8492; + break; + case 'Maybe.some': + var $8493 = Bool$true; + var $8491 = $8493; + break; + }; + return $8491; + }; + const Maybe$is_some = x0 => Maybe$is_some$(x0); + + function Kind$Term$gol$(_name$1, _dref$2, _verb$3) { + var $8494 = ({ + _: 'Kind.Term.gol', + 'name': _name$1, + 'dref': _dref$2, + 'verb': _verb$3 + }); + return $8494; + }; + const Kind$Term$gol = x0 => x1 => x2 => Kind$Term$gol$(x0, x1, x2); + const Kind$Parser$goal = Kind$Parser$block("goal")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8496 = self.err; + var _reply$7 = Kind$Parser$text$("?", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8498 = self.err; + var self = $8496; + switch (self._) { + case 'Maybe.some': + var $8500 = self.value; + var $8501 = Parser$Reply$error$(Parser$Error$combine$($8500, $8498)); + var $8499 = $8501; + break; + case 'Maybe.none': + var $8502 = Parser$Reply$error$($8498); + var $8499 = $8502; + break; + }; + var $8497 = $8499; + break; + case 'Parser.Reply.value': + var $8503 = self.pst; + var self = $8503; + switch (self._) { + case 'Parser.State.new': + var $8505 = self.err; + var $8506 = self.nam; + var $8507 = self.ini; + var $8508 = self.idx; + var $8509 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8496, $8505), $8506, $8507, $8508, $8509); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $8511 = self.err; + var _reply$21 = Kind$Parser$name$(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $8513 = self.err; + var self = $8511; + switch (self._) { + case 'Maybe.some': + var $8515 = self.value; + var $8516 = Parser$Reply$error$(Parser$Error$combine$($8515, $8513)); + var $8514 = $8516; + break; + case 'Maybe.none': + var $8517 = Parser$Reply$error$($8513); + var $8514 = $8517; + break; + }; + var $8512 = $8514; + break; + case 'Parser.Reply.value': + var $8518 = self.pst; + var $8519 = self.val; + var self = $8518; + switch (self._) { + case 'Parser.State.new': + var $8521 = self.err; + var $8522 = self.nam; + var $8523 = self.ini; + var $8524 = self.idx; + var $8525 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8511, $8521), $8522, $8523, $8524, $8525); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $8527 = self.err; + var _reply$35 = Parser$many$((_pst$35 => { + var self = _pst$35; + switch (self._) { + case 'Parser.State.new': + var $8530 = self.err; + var _reply$41 = Kind$Parser$text$("-", _pst$35); + var self = _reply$41; + switch (self._) { + case 'Parser.Reply.error': + var $8532 = self.err; + var self = $8530; + switch (self._) { + case 'Maybe.some': + var $8534 = self.value; + var $8535 = Parser$Reply$error$(Parser$Error$combine$($8534, $8532)); + var $8533 = $8535; + break; + case 'Maybe.none': + var $8536 = Parser$Reply$error$($8532); + var $8533 = $8536; + break; + }; + var $8531 = $8533; + break; + case 'Parser.Reply.value': + var $8537 = self.pst; + var self = $8537; + switch (self._) { + case 'Parser.State.new': + var $8539 = self.err; + var $8540 = self.nam; + var $8541 = self.ini; + var $8542 = self.idx; + var $8543 = self.str; + var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($8530, $8539), $8540, $8541, $8542, $8543); + var self = _reply$pst$49; + switch (self._) { + case 'Parser.State.new': + var $8545 = self.err; + var _reply$55 = Parser$nat$(_reply$pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $8547 = self.err; + var self = $8545; + switch (self._) { + case 'Maybe.some': + var $8549 = self.value; + var $8550 = Parser$Reply$error$(Parser$Error$combine$($8549, $8547)); + var $8548 = $8550; + break; + case 'Maybe.none': + var $8551 = Parser$Reply$error$($8547); + var $8548 = $8551; + break; + }; + var $8546 = $8548; + break; + case 'Parser.Reply.value': + var $8552 = self.pst; + var $8553 = self.val; + var self = $8552; + switch (self._) { + case 'Parser.State.new': + var $8555 = self.err; + var $8556 = self.nam; + var $8557 = self.ini; + var $8558 = self.idx; + var $8559 = self.str; + var _reply$pst$63 = Parser$State$new$(Parser$Error$maybe_combine$($8545, $8555), $8556, $8557, $8558, $8559); + var _bits$64 = Bits$reverse$(Bits$tail$(Bits$reverse$((nat_to_bits($8553))))); + var $8560 = Parser$Reply$value$(_reply$pst$63, _bits$64); + var $8554 = $8560; + break; + }; + var $8546 = $8554; + break; + }; + var $8544 = $8546; + break; + }; + var $8538 = $8544; + break; + }; + var $8531 = $8538; + break; + }; + var $8529 = $8531; + break; + }; + return $8529; + }))(_reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $8561 = self.err; + var self = $8527; + switch (self._) { + case 'Maybe.some': + var $8563 = self.value; + var $8564 = Parser$Reply$error$(Parser$Error$combine$($8563, $8561)); + var $8562 = $8564; + break; + case 'Maybe.none': + var $8565 = Parser$Reply$error$($8561); + var $8562 = $8565; + break; + }; + var $8528 = $8562; + break; + case 'Parser.Reply.value': + var $8566 = self.pst; + var $8567 = self.val; + var self = $8566; + switch (self._) { + case 'Parser.State.new': + var $8569 = self.err; + var $8570 = self.nam; + var $8571 = self.ini; + var $8572 = self.idx; + var $8573 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($8527, $8569), $8570, $8571, $8572, $8573); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $8575 = self.err; + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $8577 = self.err; + var _reply$54 = Parser$maybe$(Parser$text("-"), _reply$pst$43); + var self = _reply$54; + switch (self._) { + case 'Parser.Reply.error': + var $8579 = self.err; + var self = $8577; + switch (self._) { + case 'Maybe.some': + var $8581 = self.value; + var $8582 = Parser$Reply$error$(Parser$Error$combine$($8581, $8579)); + var $8580 = $8582; + break; + case 'Maybe.none': + var $8583 = Parser$Reply$error$($8579); + var $8580 = $8583; + break; + }; + var $8578 = $8580; + break; + case 'Parser.Reply.value': + var $8584 = self.pst; + var $8585 = self.val; + var self = $8584; + switch (self._) { + case 'Parser.State.new': + var $8587 = self.err; + var $8588 = self.nam; + var $8589 = self.ini; + var $8590 = self.idx; + var $8591 = self.str; + var _reply$pst$62 = Parser$State$new$(Parser$Error$maybe_combine$($8577, $8587), $8588, $8589, $8590, $8591); + var $8592 = Parser$Reply$value$(_reply$pst$62, Maybe$is_some$($8585)); + var $8586 = $8592; + break; + }; + var $8578 = $8586; + break; + }; + var _reply$49 = $8578; + break; + }; + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $8593 = self.err; + var self = $8575; + switch (self._) { + case 'Maybe.some': + var $8595 = self.value; + var $8596 = Parser$Reply$error$(Parser$Error$combine$($8595, $8593)); + var $8594 = $8596; + break; + case 'Maybe.none': + var $8597 = Parser$Reply$error$($8593); + var $8594 = $8597; + break; + }; + var $8576 = $8594; + break; + case 'Parser.Reply.value': + var $8598 = self.pst; + var $8599 = self.val; + var self = $8598; + switch (self._) { + case 'Parser.State.new': + var $8601 = self.err; + var $8602 = self.nam; + var $8603 = self.ini; + var $8604 = self.idx; + var $8605 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($8575, $8601), $8602, $8603, $8604, $8605); + var $8606 = Parser$Reply$value$(_reply$pst$57, Kind$Term$gol$($8519, $8567, $8599)); + var $8600 = $8606; + break; + }; + var $8576 = $8600; + break; + }; + var $8574 = $8576; + break; + }; + var $8568 = $8574; + break; + }; + var $8528 = $8568; + break; + }; + var $8526 = $8528; + break; + }; + var $8520 = $8526; + break; + }; + var $8512 = $8520; + break; + }; + var $8510 = $8512; + break; + }; + var $8504 = $8510; + break; + }; + var $8497 = $8504; + break; + }; + var $8495 = $8497; + break; + }; + return $8495; + })); + const Kind$Parser$hole = Kind$Parser$block("hole")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8608 = self.err; + var _reply$7 = Kind$Parser$text$("_", _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8610 = self.err; + var self = $8608; + switch (self._) { + case 'Maybe.some': + var $8612 = self.value; + var $8613 = Parser$Reply$error$(Parser$Error$combine$($8612, $8610)); + var $8611 = $8613; + break; + case 'Maybe.none': + var $8614 = Parser$Reply$error$($8610); + var $8611 = $8614; + break; + }; + var $8609 = $8611; + break; + case 'Parser.Reply.value': + var $8615 = self.pst; + var self = $8615; + switch (self._) { + case 'Parser.State.new': + var $8617 = self.err; + var $8618 = self.nam; + var $8619 = self.ini; + var $8620 = self.idx; + var $8621 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8608, $8617), $8618, $8619, $8620, $8621); + var $8622 = Parser$Reply$value$(_reply$pst$15, Kind$Term$hol$(Bits$e)); + var $8616 = $8622; + break; + }; + var $8609 = $8616; + break; + }; + var $8607 = $8609; + break; + }; + return $8607; + })); + + function Kind$Parser$float$sign$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8624 = self.nam; + var $8625 = self.ini; + var $8626 = self.idx; + var $8627 = self.str; + var self = $8627; + if (self.length === 0) { + var $8629 = Parser$Reply$fail$($8624, $8625, $8626, "Expected \'+\' or \'-\'."); + var $8628 = $8629; + } else { + var $8630 = self.charCodeAt(0); + var $8631 = self.slice(1); + var self = (($8630 === 43) || ($8630 === 45)); + if (self) { + var $8633 = Parser$Reply$value$(_pst$1, $8630); + var $8632 = $8633; + } else { + var $8634 = Parser$Reply$fail$($8624, $8625, $8626, "Expected \'+\' ou \'-\'."); + var $8632 = $8634; + }; + var $8628 = $8632; + }; + var $8623 = $8628; + break; + }; + return $8623; + }; + const Kind$Parser$float$sign = x0 => Kind$Parser$float$sign$(x0); + + function List$any$(_cond$2, _list$3) { + var List$any$ = (_cond$2, _list$3) => ({ + ctr: 'TCO', + arg: [_cond$2, _list$3] + }); + var List$any = _cond$2 => _list$3 => List$any$(_cond$2, _list$3); + var arg = [_cond$2, _list$3]; + while (true) { + let [_cond$2, _list$3] = arg; + var R = (() => { + var self = _list$3; + switch (self._) { + case 'List.cons': + var $8635 = self.head; + var $8636 = self.tail; + var self = _cond$2($8635); + if (self) { + var $8638 = Bool$true; + var $8637 = $8638; + } else { + var $8639 = List$any$(_cond$2, $8636); + var $8637 = $8639; + }; + return $8637; + case 'List.nil': + var $8640 = Bool$false; + return $8640; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const List$any = x0 => x1 => List$any$(x0, x1); + + function Kind$Parser$float$str_digit$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8642 = self.err; + var $8643 = self.nam; + var $8644 = self.ini; + var $8645 = self.idx; + var $8646 = self.str; + var self = $8646; + if (self.length === 0) { + var $8648 = Parser$Reply$fail$($8643, $8644, $8645, "Not a digit."); + var $8647 = $8648; + } else { + var $8649 = self.charCodeAt(0); + var $8650 = self.slice(1); + var _digits$9 = List$cons$(48, List$cons$(49, List$cons$(50, List$cons$(51, List$cons$(52, List$cons$(52, List$cons$(53, List$cons$(54, List$cons$(55, List$cons$(56, List$cons$(57, List$nil))))))))))); + var _pst$10 = Parser$State$new$($8642, $8643, $8644, Nat$succ$($8645), $8650); + var self = List$any$(a1 => ($8649 === a1), _digits$9); + if (self) { + var $8652 = Parser$Reply$value$(_pst$10, $8649); + var $8651 = $8652; + } else { + var $8653 = Parser$Reply$fail$($8643, $8644, $8645, "Not a digit."); + var $8651 = $8653; + }; + var $8647 = $8651; + }; + var $8641 = $8647; + break; + }; + return $8641; + }; + const Kind$Parser$float$str_digit = x0 => Kind$Parser$float$str_digit$(x0); + + function String$from_list$(_xs$1) { + var self = _xs$1; + switch (self._) { + case 'List.cons': + var $8655 = self.head; + var $8656 = self.tail; + var $8657 = String$cons$($8655, String$from_list$($8656)); + var $8654 = $8657; + break; + case 'List.nil': + var $8658 = String$nil; + var $8654 = $8658; + break; + }; + return $8654; + }; + const String$from_list = x0 => String$from_list$(x0); + const Kind$Parser$float$64 = Kind$Parser$block("float")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8660 = self.err; + var _reply$7 = Parser$maybe$(Kind$Parser$float$sign, _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8662 = self.err; + var self = $8660; + switch (self._) { + case 'Maybe.some': + var $8664 = self.value; + var $8665 = Parser$Reply$error$(Parser$Error$combine$($8664, $8662)); + var $8663 = $8665; + break; + case 'Maybe.none': + var $8666 = Parser$Reply$error$($8662); + var $8663 = $8666; + break; + }; + var $8661 = $8663; + break; + case 'Parser.Reply.value': + var $8667 = self.pst; + var $8668 = self.val; + var self = $8667; + switch (self._) { + case 'Parser.State.new': + var $8670 = self.err; + var $8671 = self.nam; + var $8672 = self.ini; + var $8673 = self.idx; + var $8674 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8660, $8670), $8671, $8672, $8673, $8674); + var _sign$16 = Maybe$default$($8668, 43); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $8676 = self.err; + var _reply$22 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$15); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $8678 = self.err; + var self = $8676; + switch (self._) { + case 'Maybe.some': + var $8680 = self.value; + var $8681 = Parser$Reply$error$(Parser$Error$combine$($8680, $8678)); + var $8679 = $8681; + break; + case 'Maybe.none': + var $8682 = Parser$Reply$error$($8678); + var $8679 = $8682; + break; + }; + var $8677 = $8679; + break; + case 'Parser.Reply.value': + var $8683 = self.pst; + var $8684 = self.val; + var self = $8683; + switch (self._) { + case 'Parser.State.new': + var $8686 = self.err; + var $8687 = self.nam; + var $8688 = self.ini; + var $8689 = self.idx; + var $8690 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8676, $8686), $8687, $8688, $8689, $8690); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $8692 = self.err; + var _reply$36 = Parser$text$(".", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $8694 = self.err; + var self = $8692; + switch (self._) { + case 'Maybe.some': + var $8696 = self.value; + var $8697 = Parser$Reply$error$(Parser$Error$combine$($8696, $8694)); + var $8695 = $8697; + break; + case 'Maybe.none': + var $8698 = Parser$Reply$error$($8694); + var $8695 = $8698; + break; + }; + var $8693 = $8695; + break; + case 'Parser.Reply.value': + var $8699 = self.pst; + var self = $8699; + switch (self._) { + case 'Parser.State.new': + var $8701 = self.err; + var $8702 = self.nam; + var $8703 = self.ini; + var $8704 = self.idx; + var $8705 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8692, $8701), $8702, $8703, $8704, $8705); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $8707 = self.err; + var _reply$50 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $8709 = self.err; + var self = $8707; + switch (self._) { + case 'Maybe.some': + var $8711 = self.value; + var $8712 = Parser$Reply$error$(Parser$Error$combine$($8711, $8709)); + var $8710 = $8712; + break; + case 'Maybe.none': + var $8713 = Parser$Reply$error$($8709); + var $8710 = $8713; + break; + }; + var $8708 = $8710; + break; + case 'Parser.Reply.value': + var $8714 = self.pst; + var $8715 = self.val; + var self = $8714; + switch (self._) { + case 'Parser.State.new': + var $8717 = self.err; + var $8718 = self.nam; + var $8719 = self.ini; + var $8720 = self.idx; + var $8721 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8707, $8717), $8718, $8719, $8720, $8721); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $8723 = self.err; + var _reply$64 = Parser$text$("#64", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $8725 = self.err; + var self = $8723; + switch (self._) { + case 'Maybe.some': + var $8727 = self.value; + var $8728 = Parser$Reply$error$(Parser$Error$combine$($8727, $8725)); + var $8726 = $8728; + break; + case 'Maybe.none': + var $8729 = Parser$Reply$error$($8725); + var $8726 = $8729; + break; + }; + var $8724 = $8726; + break; + case 'Parser.Reply.value': + var $8730 = self.pst; + var self = $8730; + switch (self._) { + case 'Parser.State.new': + var $8732 = self.err; + var $8733 = self.nam; + var $8734 = self.ini; + var $8735 = self.idx; + var $8736 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8723, $8732), $8733, $8734, $8735, $8736); + var _float_str$73 = Kind$Term$str$((String$cons$(_sign$16, String$from_list$($8684)) + ("." + String$from_list$($8715)))); + var _conv$74 = Kind$Term$ref$("F64.parse"); + var _term$75 = Kind$Term$app$(_conv$74, _float_str$73); + var $8737 = Parser$Reply$value$(_reply$pst$72, _term$75); + var $8731 = $8737; + break; + }; + var $8724 = $8731; + break; + }; + var $8722 = $8724; + break; + }; + var $8716 = $8722; + break; + }; + var $8708 = $8716; + break; + }; + var $8706 = $8708; + break; + }; + var $8700 = $8706; + break; + }; + var $8693 = $8700; + break; + }; + var $8691 = $8693; + break; + }; + var $8685 = $8691; + break; + }; + var $8677 = $8685; + break; + }; + var $8675 = $8677; + break; + }; + var $8669 = $8675; + break; + }; + var $8661 = $8669; + break; + }; + var $8659 = $8661; + break; + }; + return $8659; + })); + const Kind$Parser$float$32 = Kind$Parser$block("float")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $8739 = self.err; + var _reply$7 = Parser$maybe$(Kind$Parser$float$sign, _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $8741 = self.err; + var self = $8739; + switch (self._) { + case 'Maybe.some': + var $8743 = self.value; + var $8744 = Parser$Reply$error$(Parser$Error$combine$($8743, $8741)); + var $8742 = $8744; + break; + case 'Maybe.none': + var $8745 = Parser$Reply$error$($8741); + var $8742 = $8745; + break; + }; + var $8740 = $8742; + break; + case 'Parser.Reply.value': + var $8746 = self.pst; + var $8747 = self.val; + var self = $8746; + switch (self._) { + case 'Parser.State.new': + var $8749 = self.err; + var $8750 = self.nam; + var $8751 = self.ini; + var $8752 = self.idx; + var $8753 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8739, $8749), $8750, $8751, $8752, $8753); + var _sign$16 = Maybe$default$($8747, 43); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $8755 = self.err; + var _reply$22 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$15); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $8757 = self.err; + var self = $8755; + switch (self._) { + case 'Maybe.some': + var $8759 = self.value; + var $8760 = Parser$Reply$error$(Parser$Error$combine$($8759, $8757)); + var $8758 = $8760; + break; + case 'Maybe.none': + var $8761 = Parser$Reply$error$($8757); + var $8758 = $8761; + break; + }; + var $8756 = $8758; + break; + case 'Parser.Reply.value': + var $8762 = self.pst; + var $8763 = self.val; + var self = $8762; + switch (self._) { + case 'Parser.State.new': + var $8765 = self.err; + var $8766 = self.nam; + var $8767 = self.ini; + var $8768 = self.idx; + var $8769 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($8755, $8765), $8766, $8767, $8768, $8769); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $8771 = self.err; + var _reply$36 = Parser$text$(".", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $8773 = self.err; + var self = $8771; + switch (self._) { + case 'Maybe.some': + var $8775 = self.value; + var $8776 = Parser$Reply$error$(Parser$Error$combine$($8775, $8773)); + var $8774 = $8776; + break; + case 'Maybe.none': + var $8777 = Parser$Reply$error$($8773); + var $8774 = $8777; + break; + }; + var $8772 = $8774; + break; + case 'Parser.Reply.value': + var $8778 = self.pst; + var self = $8778; + switch (self._) { + case 'Parser.State.new': + var $8780 = self.err; + var $8781 = self.nam; + var $8782 = self.ini; + var $8783 = self.idx; + var $8784 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($8771, $8780), $8781, $8782, $8783, $8784); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $8786 = self.err; + var _reply$50 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $8788 = self.err; + var self = $8786; + switch (self._) { + case 'Maybe.some': + var $8790 = self.value; + var $8791 = Parser$Reply$error$(Parser$Error$combine$($8790, $8788)); + var $8789 = $8791; + break; + case 'Maybe.none': + var $8792 = Parser$Reply$error$($8788); + var $8789 = $8792; + break; + }; + var $8787 = $8789; + break; + case 'Parser.Reply.value': + var $8793 = self.pst; + var $8794 = self.val; + var self = $8793; + switch (self._) { + case 'Parser.State.new': + var $8796 = self.err; + var $8797 = self.nam; + var $8798 = self.ini; + var $8799 = self.idx; + var $8800 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($8786, $8796), $8797, $8798, $8799, $8800); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $8802 = self.err; + var _reply$64 = Parser$text$("#32", _reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $8804 = self.err; + var self = $8802; + switch (self._) { + case 'Maybe.some': + var $8806 = self.value; + var $8807 = Parser$Reply$error$(Parser$Error$combine$($8806, $8804)); + var $8805 = $8807; + break; + case 'Maybe.none': + var $8808 = Parser$Reply$error$($8804); + var $8805 = $8808; + break; + }; + var $8803 = $8805; + break; + case 'Parser.Reply.value': + var $8809 = self.pst; + var self = $8809; + switch (self._) { + case 'Parser.State.new': + var $8811 = self.err; + var $8812 = self.nam; + var $8813 = self.ini; + var $8814 = self.idx; + var $8815 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8802, $8811), $8812, $8813, $8814, $8815); + var _float_str$73 = Kind$Term$str$((String$cons$(_sign$16, String$from_list$($8763)) + ("." + String$from_list$($8794)))); + var _conv$74 = Kind$Term$ref$("F32.parse"); + var _term$75 = Kind$Term$app$(_conv$74, _float_str$73); + var $8816 = Parser$Reply$value$(_reply$pst$72, _term$75); + var $8810 = $8816; + break; + }; + var $8803 = $8810; + break; + }; + var $8801 = $8803; + break; + }; + var $8795 = $8801; + break; + }; + var $8787 = $8795; + break; + }; + var $8785 = $8787; + break; + }; + var $8779 = $8785; + break; + }; + var $8772 = $8779; + break; + }; + var $8770 = $8772; + break; + }; + var $8764 = $8770; + break; + }; + var $8756 = $8764; + break; + }; + var $8754 = $8756; + break; + }; + var $8748 = $8754; + break; + }; + var $8740 = $8748; + break; + }; + var $8738 = $8740; + break; + }; + return $8738; + })); function Either$(_A$1, _B$2) { - var $2484 = null; - return $2484; + var $8817 = null; + return $8817; }; const Either = x0 => x1 => Either$(x0, x1); function Either$left$(_value$3) { - var $2485 = ({ + var $8818 = ({ _: 'Either.left', 'value': _value$3 }); - return $2485; + return $8818; }; const Either$left = x0 => Either$left$(x0); function Either$right$(_value$3) { - var $2486 = ({ + var $8819 = ({ _: 'Either.right', 'value': _value$3 }); - return $2486; + return $8819; }; const Either$right = x0 => Either$right$(x0); @@ -9212,20 +27661,20 @@ module.exports = (function() { var R = (() => { var self = _m$2; if (self === 0n) { - var $2487 = Either$left$(_n$1); - return $2487; + var $8820 = Either$left$(_n$1); + return $8820; } else { - var $2488 = (self - 1n); + var $8821 = (self - 1n); var self = _n$1; if (self === 0n) { - var $2490 = Either$right$(Nat$succ$($2488)); - var $2489 = $2490; + var $8823 = Either$right$(Nat$succ$($8821)); + var $8822 = $8823; } else { - var $2491 = (self - 1n); - var $2492 = Nat$sub_rem$($2491, $2488); - var $2489 = $2492; + var $8824 = (self - 1n); + var $8825 = Nat$sub_rem$($8824, $8821); + var $8822 = $8825; }; - return $2489; + return $8822; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -9247,12 +27696,12 @@ module.exports = (function() { var self = Nat$sub_rem$(_n$1, _m$2); switch (self._) { case 'Either.left': - var $2493 = self.value; - var $2494 = Nat$div_mod$go$($2493, _m$2, Nat$succ$(_d$3)); - return $2494; + var $8826 = self.value; + var $8827 = Nat$div_mod$go$($8826, _m$2, Nat$succ$(_d$3)); + return $8827; case 'Either.right': - var $2495 = Pair$new$(_d$3, _n$1); - return $2495; + var $8828 = Pair$new$(_d$3, _n$1); + return $8828; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -9283,18 +27732,18 @@ module.exports = (function() { })); switch (self._) { case 'Pair.new': - var $2496 = self.fst; - var $2497 = self.snd; - var self = $2496; + var $8829 = self.fst; + var $8830 = self.snd; + var self = $8829; if (self === 0n) { - var $2499 = List$cons$($2497, _res$3); - var $2498 = $2499; + var $8832 = List$cons$($8830, _res$3); + var $8831 = $8832; } else { - var $2500 = (self - 1n); - var $2501 = Nat$to_base$go$(_base$1, $2496, List$cons$($2497, _res$3)); - var $2498 = $2501; + var $8833 = (self - 1n); + var $8834 = Nat$to_base$go$(_base$1, $8829, List$cons$($8830, _res$3)); + var $8831 = $8834; }; - return $2498; + return $8831; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -9304,8 +27753,8 @@ module.exports = (function() { const Nat$to_base$go = x0 => x1 => x2 => Nat$to_base$go$(x0, x1, x2); function Nat$to_base$(_base$1, _nat$2) { - var $2502 = Nat$to_base$go$(_base$1, _nat$2, List$nil); - return $2502; + var $8835 = Nat$to_base$go$(_base$1, _nat$2, List$nil); + return $8835; }; const Nat$to_base = x0 => x1 => Nat$to_base$(x0, x1); @@ -9321,20 +27770,20 @@ module.exports = (function() { var R = (() => { var self = _m$2; if (self === 0n) { - var $2503 = Nat$mod$go$(_n$1, _r$3, _m$2); - return $2503; + var $8836 = Nat$mod$go$(_n$1, _r$3, _m$2); + return $8836; } else { - var $2504 = (self - 1n); + var $8837 = (self - 1n); var self = _n$1; if (self === 0n) { - var $2506 = _r$3; - var $2505 = $2506; + var $8839 = _r$3; + var $8838 = $8839; } else { - var $2507 = (self - 1n); - var $2508 = Nat$mod$go$($2507, $2504, Nat$succ$(_r$3)); - var $2505 = $2508; + var $8840 = (self - 1n); + var $8841 = Nat$mod$go$($8840, $8837, Nat$succ$(_r$3)); + var $8838 = $8841; }; - return $2505; + return $8838; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -9358,21 +27807,21 @@ module.exports = (function() { var self = _list$3; switch (self._) { case 'List.cons': - var $2509 = self.head; - var $2510 = self.tail; + var $8842 = self.head; + var $8843 = self.tail; var self = _index$2; if (self === 0n) { - var $2512 = Maybe$some$($2509); - var $2511 = $2512; + var $8845 = Maybe$some$($8842); + var $8844 = $8845; } else { - var $2513 = (self - 1n); - var $2514 = List$at$($2513, $2510); - var $2511 = $2514; + var $8846 = (self - 1n); + var $8847 = List$at$($8846, $8843); + var $8844 = $8847; }; - return $2511; + return $8844; case 'List.nil': - var $2515 = Maybe$none; - return $2515; + var $8848 = Maybe$none; + return $8848; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -9389,21990 +27838,129 @@ module.exports = (function() { var self = List$at$(_m$3, _base64$4); switch (self._) { case 'Maybe.some': - var $2518 = self.value; - var $2519 = $2518; - var $2517 = $2519; + var $8851 = self.value; + var $8852 = $8851; + var $8850 = $8852; break; case 'Maybe.none': - var $2520 = 35; - var $2517 = $2520; + var $8853 = 35; + var $8850 = $8853; break; }; - var $2516 = $2517; + var $8849 = $8850; } else { - var $2521 = 35; - var $2516 = $2521; + var $8854 = 35; + var $8849 = $8854; }; - return $2516; + return $8849; }; const Nat$show_digit = x0 => x1 => Nat$show_digit$(x0, x1); function Nat$to_string_base$(_base$1, _nat$2) { - var $2522 = List$fold$(Nat$to_base$(_base$1, _nat$2), String$nil, (_n$3 => _str$4 => { - var $2523 = String$cons$(Nat$show_digit$(_base$1, _n$3), _str$4); - return $2523; + var $8855 = List$fold$(Nat$to_base$(_base$1, _nat$2), String$nil, (_n$3 => _str$4 => { + var $8856 = String$cons$(Nat$show_digit$(_base$1, _n$3), _str$4); + return $8856; })); - return $2522; + return $8855; }; const Nat$to_string_base = x0 => x1 => Nat$to_string_base$(x0, x1); function Nat$show$(_n$1) { - var $2524 = Nat$to_string_base$(10n, _n$1); - return $2524; + var $8857 = Nat$to_string_base$(10n, _n$1); + return $8857; }; const Nat$show = x0 => Nat$show$(x0); - function Kind$Term$show$as_nat$(_term$1) { - var $2525 = Maybe$mapped$(Kind$Term$show$as_nat$go$(_term$1), Nat$show); - return $2525; - }; - const Kind$Term$show$as_nat = x0 => Kind$Term$show$as_nat$(x0); - - function Kind$Name$show$(_name$1) { - var $2526 = _name$1; - return $2526; - }; - const Kind$Name$show = x0 => Kind$Name$show$(x0); - const Bits$concat = a0 => a1 => (a1 + a0); - - function Kind$Path$Builder$to_bits$(_path$1) { - var $2527 = _path$1(Bits$e); - return $2527; - }; - const Kind$Path$Builder$to_bits = x0 => Kind$Path$Builder$to_bits$(x0); - - function Bits$to_nat$(_b$1) { - var self = _b$1; - switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { - case 'o': - var $2529 = self.slice(0, -1); - var $2530 = (2n * Bits$to_nat$($2529)); - var $2528 = $2530; - break; - case 'i': - var $2531 = self.slice(0, -1); - var $2532 = Nat$succ$((2n * Bits$to_nat$($2531))); - var $2528 = $2532; - break; - case 'e': - var $2533 = 0n; - var $2528 = $2533; - break; - }; - return $2528; - }; - const Bits$to_nat = x0 => Bits$to_nat$(x0); - - function String$flatten$go$(_xs$1, _res$2) { - var String$flatten$go$ = (_xs$1, _res$2) => ({ - ctr: 'TCO', - arg: [_xs$1, _res$2] - }); - var String$flatten$go = _xs$1 => _res$2 => String$flatten$go$(_xs$1, _res$2); - var arg = [_xs$1, _res$2]; - while (true) { - let [_xs$1, _res$2] = arg; - var R = (() => { - var self = _xs$1; - switch (self._) { - case 'List.cons': - var $2534 = self.head; - var $2535 = self.tail; - var $2536 = String$flatten$go$($2535, (_res$2 + $2534)); - return $2536; - case 'List.nil': - var $2537 = _res$2; - return $2537; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const String$flatten$go = x0 => x1 => String$flatten$go$(x0, x1); - - function String$flatten$(_xs$1) { - var $2538 = String$flatten$go$(_xs$1, ""); - return $2538; - }; - const String$flatten = x0 => String$flatten$(x0); - - function Kind$Code$color$(_col$1, _str$2) { - var $2539 = String$cons$(27, ("[" + (_col$1 + ("m" + (_str$2 + String$cons$(27, "[0m")))))); - return $2539; - }; - const Kind$Code$color = x0 => x1 => Kind$Code$color$(x0, x1); - - function Kind$Path$Builder$o$(_path$1, _x$2) { - var $2540 = _path$1((_x$2 + '0')); - return $2540; - }; - const Kind$Path$Builder$o = x0 => x1 => Kind$Path$Builder$o$(x0, x1); - - function Kind$Path$Maybe$Builder$o$(_path$1) { - var $2541 = Maybe$mapped$(_path$1, Kind$Path$Builder$o); - return $2541; - }; - const Kind$Path$Maybe$Builder$o = x0 => Kind$Path$Maybe$Builder$o$(x0); - - function Kind$Term$var$(_name$1, _indx$2) { - var $2542 = ({ - _: 'Kind.Term.var', - 'name': _name$1, - 'indx': _indx$2 - }); - return $2542; - }; - const Kind$Term$var = x0 => x1 => Kind$Term$var$(x0, x1); - - function Kind$Path$Builder$i$(_path$1, _x$2) { - var $2543 = _path$1((_x$2 + '1')); - return $2543; - }; - const Kind$Path$Builder$i = x0 => x1 => Kind$Path$Builder$i$(x0, x1); - - function Kind$Path$Maybe$Builder$i$(_path$1) { - var $2544 = Maybe$mapped$(_path$1, Kind$Path$Builder$i); - return $2544; - }; - const Kind$Path$Maybe$Builder$i = x0 => Kind$Path$Maybe$Builder$i$(x0); - const List$length = a0 => (list_length(a0)); - - function Kind$Term$show$is_ref$(_term$1, _name$2) { - var self = _term$1; - switch (self._) { - case 'Kind.Term.ref': - var $2546 = self.name; - var $2547 = (_name$2 === $2546); - var $2545 = $2547; - break; - case 'Kind.Term.var': - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.app': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - case 'Kind.Term.ori': - var $2548 = Bool$false; - var $2545 = $2548; - break; - }; - return $2545; - }; - const Kind$Term$show$is_ref = x0 => x1 => Kind$Term$show$is_ref$(x0, x1); - - function String$join$go$(_sep$1, _list$2, _fst$3) { - var self = _list$2; - switch (self._) { - case 'List.cons': - var $2550 = self.head; - var $2551 = self.tail; - var $2552 = String$flatten$(List$cons$((() => { - var self = _fst$3; - if (self) { - var $2553 = ""; - return $2553; - } else { - var $2554 = _sep$1; - return $2554; - }; - })(), List$cons$($2550, List$cons$(String$join$go$(_sep$1, $2551, Bool$false), List$nil)))); - var $2549 = $2552; - break; - case 'List.nil': - var $2555 = ""; - var $2549 = $2555; - break; - }; - return $2549; - }; - const String$join$go = x0 => x1 => x2 => String$join$go$(x0, x1, x2); - - function String$join$(_sep$1, _list$2) { - var $2556 = String$join$go$(_sep$1, _list$2, Bool$true); - return $2556; - }; - const String$join = x0 => x1 => String$join$(x0, x1); - - function Kind$Term$show$app$done$(_term$1, _path$2, _args$3) { - var _arity$4 = (list_length(_args$3)); - var self = (Kind$Term$show$is_ref$(_term$1, "Equal") && (_arity$4 === 3n)); - if (self) { - var _func$5 = Kind$Term$show$go$(_term$1, _path$2); - var _eq_lft$6 = Maybe$default$(List$at$(1n, _args$3), "?"); - var _eq_rgt$7 = Maybe$default$(List$at$(2n, _args$3), "?"); - var $2558 = String$flatten$(List$cons$(_eq_lft$6, List$cons$(" == ", List$cons$(_eq_rgt$7, List$nil)))); - var $2557 = $2558; - } else { - var _func$5 = Kind$Term$show$go$(_term$1, _path$2); - var self = _func$5; - if (self.length === 0) { - var $2560 = Bool$false; - var _wrap$6 = $2560; - } else { - var $2561 = self.charCodeAt(0); - var $2562 = self.slice(1); - var $2563 = ($2561 === 40); - var _wrap$6 = $2563; - }; - var _args$7 = String$join$(",", _args$3); - var self = _wrap$6; - if (self) { - var $2564 = String$flatten$(List$cons$("(", List$cons$(_func$5, List$cons$(")", List$nil)))); - var _func$8 = $2564; - } else { - var $2565 = _func$5; - var _func$8 = $2565; - }; - var $2559 = String$flatten$(List$cons$(_func$8, List$cons$("(", List$cons$(_args$7, List$cons$(")", List$nil))))); - var $2557 = $2559; - }; - return $2557; - }; - const Kind$Term$show$app$done = x0 => x1 => x2 => Kind$Term$show$app$done$(x0, x1, x2); - - function Kind$Term$show$app$(_term$1, _path$2, _args$3) { - var Kind$Term$show$app$ = (_term$1, _path$2, _args$3) => ({ - ctr: 'TCO', - arg: [_term$1, _path$2, _args$3] - }); - var Kind$Term$show$app = _term$1 => _path$2 => _args$3 => Kind$Term$show$app$(_term$1, _path$2, _args$3); - var arg = [_term$1, _path$2, _args$3]; - while (true) { - let [_term$1, _path$2, _args$3] = arg; - var R = (() => { - var self = _term$1; - switch (self._) { - case 'Kind.Term.app': - var $2566 = self.func; - var $2567 = self.argm; - var $2568 = Kind$Term$show$app$($2566, Kind$Path$Maybe$Builder$o$(_path$2), List$cons$(Kind$Term$show$go$($2567, Kind$Path$Maybe$Builder$i$(_path$2)), _args$3)); - return $2568; - case 'Kind.Term.ori': - var $2569 = self.expr; - var $2570 = Kind$Term$show$app$($2569, _path$2, _args$3); - return $2570; - case 'Kind.Term.var': - case 'Kind.Term.ref': - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - var $2571 = Kind$Term$show$app$done$(_term$1, _path$2, _args$3); - return $2571; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const Kind$Term$show$app = x0 => x1 => x2 => Kind$Term$show$app$(x0, x1, x2); - const Kind$Code$backslash = 92; - - function Word$to_bits$(_a$2) { - var self = _a$2; - switch (self._) { - case 'Word.o': - var $2573 = self.pred; - var $2574 = (Word$to_bits$($2573) + '0'); - var $2572 = $2574; - break; - case 'Word.i': - var $2575 = self.pred; - var $2576 = (Word$to_bits$($2575) + '1'); - var $2572 = $2576; - break; - case 'Word.e': - var $2577 = Bits$e; - var $2572 = $2577; - break; - }; - return $2572; - }; - const Word$to_bits = x0 => Word$to_bits$(x0); - - function U16$show_hex$(_a$1) { - var self = _a$1; - switch ('u16') { - case 'u16': - var $2579 = u16_to_word(self); - var $2580 = Nat$to_string_base$(16n, Bits$to_nat$(Word$to_bits$($2579))); - var $2578 = $2580; - break; - }; - return $2578; - }; - const U16$show_hex = x0 => U16$show_hex$(x0); - - function Kind$Code$escape$char$(_chr$1) { - var self = (_chr$1 === Kind$Code$backslash); - if (self) { - var $2582 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); - var $2581 = $2582; - } else { - var self = (_chr$1 === 34); - if (self) { - var $2584 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); - var $2583 = $2584; - } else { - var self = (_chr$1 === 39); - if (self) { - var $2586 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); - var $2585 = $2586; - } else { - var self = U16$btw$(32, _chr$1, 126); - if (self) { - var $2588 = String$cons$(_chr$1, String$nil); - var $2587 = $2588; - } else { - var $2589 = (String$cons$(Kind$Code$backslash, String$nil) + ("u{" + (U16$show_hex$(_chr$1) + "}"))); - var $2587 = $2589; - }; - var $2585 = $2587; - }; - var $2583 = $2585; - }; - var $2581 = $2583; - }; - return $2581; - }; - const Kind$Code$escape$char = x0 => Kind$Code$escape$char$(x0); - - function String$reverse$go$(_xs$1, _res$2) { - var String$reverse$go$ = (_xs$1, _res$2) => ({ - ctr: 'TCO', - arg: [_xs$1, _res$2] - }); - var String$reverse$go = _xs$1 => _res$2 => String$reverse$go$(_xs$1, _res$2); - var arg = [_xs$1, _res$2]; - while (true) { - let [_xs$1, _res$2] = arg; - var R = (() => { - var self = _xs$1; - if (self.length === 0) { - var $2590 = _res$2; - return $2590; - } else { - var $2591 = self.charCodeAt(0); - var $2592 = self.slice(1); - var $2593 = String$reverse$go$($2592, String$cons$($2591, _res$2)); - return $2593; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const String$reverse$go = x0 => x1 => String$reverse$go$(x0, x1); - - function String$reverse$(_xs$1) { - var $2594 = String$reverse$go$(_xs$1, String$nil); - return $2594; - }; - const String$reverse = x0 => String$reverse$(x0); - - function Kind$Code$escape$go$(_str$1, _result$2) { - var Kind$Code$escape$go$ = (_str$1, _result$2) => ({ - ctr: 'TCO', - arg: [_str$1, _result$2] - }); - var Kind$Code$escape$go = _str$1 => _result$2 => Kind$Code$escape$go$(_str$1, _result$2); - var arg = [_str$1, _result$2]; - while (true) { - let [_str$1, _result$2] = arg; - var R = (() => { - var self = _str$1; - if (self.length === 0) { - var $2595 = String$reverse$(_result$2); - return $2595; - } else { - var $2596 = self.charCodeAt(0); - var $2597 = self.slice(1); - var $2598 = Kind$Code$escape$go$($2597, (String$reverse$(Kind$Code$escape$char$($2596)) + _result$2)); - return $2598; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const Kind$Code$escape$go = x0 => x1 => Kind$Code$escape$go$(x0, x1); - - function Kind$Code$escape$(_str$1) { - var $2599 = Kind$Code$escape$go$(_str$1, ""); - return $2599; - }; - const Kind$Code$escape = x0 => Kind$Code$escape$(x0); - - function BitsMap$to_list$(_xs$2) { - var $2600 = List$reverse$(BitsMap$to_list$go$(_xs$2, Bits$e, List$nil)); - return $2600; - }; - const BitsMap$to_list = x0 => BitsMap$to_list$(x0); - - function Kind$Term$show$go$(_term$1, _path$2) { - var self = Kind$Term$show$as_nat$(_term$1); - switch (self._) { - case 'Maybe.some': - var $2602 = self.value; - var $2603 = $2602; - var $2601 = $2603; - break; - case 'Maybe.none': - var self = _term$1; - switch (self._) { - case 'Kind.Term.var': - var $2605 = self.name; - var $2606 = Kind$Name$show$($2605); - var $2604 = $2606; - break; - case 'Kind.Term.ref': - var $2607 = self.name; - var _name$4 = Kind$Name$show$($2607); - var self = _path$2; - switch (self._) { - case 'Maybe.some': - var $2609 = self.value; - var _path_val$6 = ((Bits$e + '1') + Kind$Path$Builder$to_bits$($2609)); - var _path_str$7 = Nat$show$(Bits$to_nat$(_path_val$6)); - var $2610 = String$flatten$(List$cons$(_name$4, List$cons$(Kind$Code$color$("2", ("-" + _path_str$7)), List$nil))); - var $2608 = $2610; - break; - case 'Maybe.none': - var $2611 = _name$4; - var $2608 = $2611; - break; - }; - var $2604 = $2608; - break; - case 'Kind.Term.all': - var $2612 = self.eras; - var $2613 = self.self; - var $2614 = self.name; - var $2615 = self.xtyp; - var $2616 = self.body; - var _eras$8 = $2612; - var _self$9 = Kind$Name$show$($2613); - var _name$10 = Kind$Name$show$($2614); - var _type$11 = Kind$Term$show$go$($2615, Kind$Path$Maybe$Builder$o$(_path$2)); - var self = _eras$8; - if (self) { - var $2618 = "<"; - var _open$12 = $2618; - } else { - var $2619 = "("; - var _open$12 = $2619; - }; - var self = _eras$8; - if (self) { - var $2620 = ">"; - var _clos$13 = $2620; - } else { - var $2621 = ")"; - var _clos$13 = $2621; - }; - var _body$14 = Kind$Term$show$go$($2616(Kind$Term$var$($2613, 0n))(Kind$Term$var$($2614, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); - var $2617 = String$flatten$(List$cons$(_self$9, List$cons$(_open$12, List$cons$(_name$10, List$cons$(":", List$cons$(_type$11, List$cons$(_clos$13, List$cons$(" ", List$cons$(_body$14, List$nil))))))))); - var $2604 = $2617; - break; - case 'Kind.Term.lam': - var $2622 = self.name; - var $2623 = self.body; - var _name$5 = Kind$Name$show$($2622); - var _body$6 = Kind$Term$show$go$($2623(Kind$Term$var$($2622, 0n)), Kind$Path$Maybe$Builder$o$(_path$2)); - var $2624 = String$flatten$(List$cons$("(", List$cons$(_name$5, List$cons$(") ", List$cons$(_body$6, List$nil))))); - var $2604 = $2624; - break; - case 'Kind.Term.let': - var $2625 = self.name; - var $2626 = self.expr; - var $2627 = self.body; - var _name$6 = Kind$Name$show$($2625); - var _expr$7 = Kind$Term$show$go$($2626, Kind$Path$Maybe$Builder$o$(_path$2)); - var _body$8 = Kind$Term$show$go$($2627(Kind$Term$var$($2625, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); - var $2628 = String$flatten$(List$cons$("let ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); - var $2604 = $2628; - break; - case 'Kind.Term.def': - var $2629 = self.name; - var $2630 = self.expr; - var $2631 = self.body; - var _name$6 = Kind$Name$show$($2629); - var _expr$7 = Kind$Term$show$go$($2630, Kind$Path$Maybe$Builder$o$(_path$2)); - var _body$8 = Kind$Term$show$go$($2631(Kind$Term$var$($2629, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); - var $2632 = String$flatten$(List$cons$("def ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); - var $2604 = $2632; - break; - case 'Kind.Term.ann': - var $2633 = self.term; - var $2634 = self.type; - var _term$6 = Kind$Term$show$go$($2633, Kind$Path$Maybe$Builder$o$(_path$2)); - var _type$7 = Kind$Term$show$go$($2634, Kind$Path$Maybe$Builder$i$(_path$2)); - var $2635 = String$flatten$(List$cons$(_term$6, List$cons$("::", List$cons$(_type$7, List$nil)))); - var $2604 = $2635; - break; - case 'Kind.Term.gol': - var $2636 = self.name; - var _name$6 = Kind$Name$show$($2636); - var $2637 = String$flatten$(List$cons$("?", List$cons$(_name$6, List$nil))); - var $2604 = $2637; - break; - case 'Kind.Term.nat': - var $2638 = self.natx; - var $2639 = String$flatten$(List$cons$(Nat$show$($2638), List$nil)); - var $2604 = $2639; - break; - case 'Kind.Term.chr': - var $2640 = self.chrx; - var $2641 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($2640), List$cons$("\'", List$nil)))); - var $2604 = $2641; - break; - case 'Kind.Term.str': - var $2642 = self.strx; - var $2643 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($2642), List$cons$("\"", List$nil)))); - var $2604 = $2643; - break; - case 'Kind.Term.num': - var $2644 = self.sign; - var $2645 = self.numb; - var $2646 = self.frac; - var $2647 = String$flatten$(List$cons$((() => { - var self = $2644; - switch (self._) { - case 'Maybe.some': - var $2648 = self.value; - var self = $2648; - if (self) { - var $2650 = "+"; - var $2649 = $2650; - } else { - var $2651 = "-"; - var $2649 = $2651; - }; - return $2649; - case 'Maybe.none': - var $2652 = ""; - return $2652; - }; - })(), List$cons$(Nat$show$($2645), List$cons$((() => { - var self = $2646; - switch (self._) { - case 'Maybe.some': - var $2653 = self.value; - var $2654 = ("." + Nat$show$($2653)); - return $2654; - case 'Maybe.none': - var $2655 = ""; - return $2655; - }; - })(), List$nil)))); - var $2604 = $2647; - break; - case 'Kind.Term.cse': - var $2656 = self.expr; - var $2657 = self.name; - var $2658 = self.with; - var $2659 = self.cses; - var $2660 = self.moti; - var _expr$9 = Kind$Term$show$go$($2656, Kind$Path$Maybe$Builder$o$(_path$2)); - var _name$10 = Kind$Name$show$($2657); - var _wyth$11 = String$join$("; ", List$mapped$($2658, (_with_var$11 => { - var self = _with_var$11; - switch (self._) { - case 'Kind.Ann.new': - var $2663 = self.name; - var $2664 = self.type; - var self = $2664; - switch (self._) { - case 'Maybe.some': - var $2666 = self.value; - var $2667 = ($2663 + (": " + Kind$Term$show$go$($2666, Maybe$none))); - var $2665 = $2667; - break; - case 'Maybe.none': - var $2668 = $2663; - var $2665 = $2668; - break; - }; - var $2662 = $2665; - break; - }; - return $2662; - }))); - var _cses$12 = BitsMap$to_list$($2659); - var _cses$13 = String$join$("", List$mapped$(_cses$12, (_x$13 => { - var _name$14 = Kind$Name$from_bits$(Pair$fst$(_x$13)); - var _term$15 = Kind$Term$show$go$(Pair$snd$(_x$13), Maybe$none); - var $2669 = String$flatten$(List$cons$(_name$14, List$cons$(": ", List$cons$(_term$15, List$cons$(", ", List$nil))))); - return $2669; - }))); - var self = $2660; - switch (self._) { - case 'Maybe.some': - var $2670 = self.value; - var $2671 = String$flatten$(List$cons$(": ", List$cons$(Kind$Term$show$go$($2670, Maybe$none), List$nil))); - var _moti$14 = $2671; - break; - case 'Maybe.none': - var $2672 = ""; - var _moti$14 = $2672; - break; - }; - var $2661 = String$flatten$(List$cons$("case ", List$cons$(_expr$9, List$cons$(" as ", List$cons$(_name$10, List$cons$(_wyth$11, List$cons$(" { ", List$cons$(_cses$13, List$cons$("}", List$cons$(_moti$14, List$nil)))))))))); - var $2604 = $2661; - break; - case 'Kind.Term.new': - var $2673 = self.args; - var _args$4 = List$fold$($2673, (_path$4 => { - var $2675 = List$nil; - return $2675; - }), (_arg$4 => _res$5 => _path$6 => { - var $2676 = List$cons$(Kind$Term$show$go$(_arg$4, _path$6), _res$5(Kind$Path$Maybe$Builder$o$(_path$6))); - return $2676; - }))(_path$2); - var $2674 = String$flatten$(List$cons$("{", List$cons$(String$join$(",", _args$4), List$cons$("}", List$nil)))); - var $2604 = $2674; - break; - case 'Kind.Term.get': - var $2677 = self.expr; - var $2678 = self.fkey; - var _expr$5 = Kind$Term$show$go$($2677, Kind$Path$Maybe$Builder$o$(_path$2)); - var $2679 = String$flatten$(List$cons$(_expr$5, List$cons$("@", List$cons$($2678, List$nil)))); - var $2604 = $2679; - break; - case 'Kind.Term.set': - var $2680 = self.expr; - var $2681 = self.fkey; - var $2682 = self.fval; - var _expr$6 = Kind$Term$show$go$($2680, Kind$Path$Maybe$Builder$o$(_path$2)); - var _fval$7 = Kind$Term$show$go$($2682, Kind$Path$Maybe$Builder$i$(_path$2)); - var $2683 = String$flatten$(List$cons$(_expr$6, List$cons$("@", List$cons$($2681, List$cons$(" <- ", List$cons$(_fval$7, List$nil)))))); - var $2604 = $2683; - break; - case 'Kind.Term.ope': - var $2684 = self.name; - var $2685 = self.arg0; - var $2686 = self.arg1; - var _arg0$6 = Kind$Term$show$go$($2685, Kind$Path$Maybe$Builder$o$(_path$2)); - var _arg1$7 = Kind$Term$show$go$($2686, Kind$Path$Maybe$Builder$i$(_path$2)); - var $2687 = String$flatten$(List$cons$("(", List$cons$(_arg0$6, List$cons$(" ", List$cons$($2684, List$cons$(" ", List$cons$(_arg1$7, List$cons$(")", List$nil)))))))); - var $2604 = $2687; - break; - case 'Kind.Term.ori': - var $2688 = self.expr; - var $2689 = Kind$Term$show$go$($2688, _path$2); - var $2604 = $2689; - break; - case 'Kind.Term.typ': - var $2690 = "Type"; - var $2604 = $2690; - break; - case 'Kind.Term.app': - var $2691 = Kind$Term$show$app$(_term$1, _path$2, List$nil); - var $2604 = $2691; - break; - case 'Kind.Term.hol': - var $2692 = "_"; - var $2604 = $2692; - break; - }; - var $2601 = $2604; - break; - }; - return $2601; - }; - const Kind$Term$show$go = x0 => x1 => Kind$Term$show$go$(x0, x1); - - function Kind$Term$show$(_term$1) { - var $2693 = Kind$Term$show$go$(_term$1, Maybe$none); - return $2693; - }; - const Kind$Term$show = x0 => Kind$Term$show$(x0); - - function Kind$Parser$lambda$get_type$(_types$1) { - var self = _types$1; - switch (self._) { - case 'List.cons': - var $2695 = self.head; - var $2696 = self.tail; - var self = $2695; - switch (self._) { - case 'Maybe.some': - var $2698 = self.value; - var $2699 = $2698; - var _type$4 = $2699; - break; - case 'Maybe.none': - var $2700 = Kind$Term$hol$(Bits$e); - var _type$4 = $2700; - break; - }; - var $2697 = ((console.log(("TYPEZIN " + Kind$Term$show$(_type$4))), (_$5 => { - var $2701 = Kind$Term$all$(Bool$false, "", "", _type$4, (_s$6 => _x$7 => { - var $2702 = Kind$Parser$lambda$get_type$($2696); - return $2702; - })); - return $2701; - })())); - var $2694 = $2697; - break; - case 'List.nil': - var $2703 = Kind$Term$hol$(Bits$e); - var $2694 = $2703; - break; - }; - return $2694; - }; - const Kind$Parser$lambda$get_type = x0 => Kind$Parser$lambda$get_type$(x0); - const Kind$Parser$lambda$2 = Kind$Parser$block("lambda")(((console.log("ENTROU AQUI"), (_$1 => _pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $2705 = self.err; - var _reply$8 = Kind$Parser$items$("(", Kind$Parser$lambda$name_term, ")")(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $2707 = self.err; - var self = $2705; - switch (self._) { - case 'Maybe.some': - var $2709 = self.value; - var $2710 = Parser$Reply$error$(Parser$Error$combine$($2709, $2707)); - var $2708 = $2710; - break; - case 'Maybe.none': - var $2711 = Parser$Reply$error$($2707); - var $2708 = $2711; - break; - }; - var $2706 = $2708; - break; - case 'Parser.Reply.value': - var $2712 = self.pst; - var $2713 = self.val; - var self = $2712; - switch (self._) { - case 'Parser.State.new': - var $2715 = self.err; - var $2716 = self.nam; - var $2717 = self.ini; - var $2718 = self.idx; - var $2719 = self.str; - var $2720 = ((console.log(("FALTANDO " + $2719)), (_$16 => { - var $2721 = ((console.log(("VALUE " + $2716)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($2705, $2715), $2716, $2717, $2718, $2719); - var $2722 = ((console.log("1"), (_$19 => _pst$20 => { - var self = _pst$20; - switch (self._) { - case 'Parser.State.new': - var $2724 = self.err; - var _reply$26 = Parser$avoiding$(Kind$Parser$text_now$("("), Kind$Parser$term, _pst$20); - var self = _reply$26; - switch (self._) { - case 'Parser.Reply.error': - var $2726 = self.err; - var self = $2724; - switch (self._) { - case 'Maybe.some': - var $2728 = self.value; - var $2729 = Parser$Reply$error$(Parser$Error$combine$($2728, $2726)); - var $2727 = $2729; - break; - case 'Maybe.none': - var $2730 = Parser$Reply$error$($2726); - var $2727 = $2730; - break; - }; - var $2725 = $2727; - break; - case 'Parser.Reply.value': - var $2731 = self.pst; - var $2732 = self.val; - var self = $2731; - switch (self._) { - case 'Parser.State.new': - var $2734 = self.err; - var $2735 = self.nam; - var $2736 = self.ini; - var $2737 = self.idx; - var $2738 = self.str; - var $2739 = ((console.log(("FALTANDO " + $2738)), (_$34 => { - var $2740 = ((console.log(("VALUE " + $2735)), (_$35 => { - var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($2724, $2734), $2735, $2736, $2737, $2738); - var $2741 = ((console.log("2"), (_$37 => { - var self = List$unzip$($2713); - switch (self._) { - case 'Pair.new': - var $2743 = self.fst; - var $2744 = self.snd; - var $2745 = ((console.log("3"), (_$40 => { - var _lamb$41 = Kind$Parser$lambda$make$start$($2743, $2732); - var $2746 = ((console.log(("LAMBDA " + Kind$Term$show$(_lamb$41))), (_$42 => { - var _type$43 = Kind$Parser$lambda$get_type$($2744); - var $2747 = ((console.log(("TYPE " + Kind$Term$show$(_type$43))), (_$44 => { - var _term$45 = Kind$Term$ann$(Bool$false, _lamb$41, _type$43); - var $2748 = ((console.log(("TERM " + Kind$Term$show$(_term$45))), (_$46 => _pst$47 => { - var $2749 = Parser$Reply$value$(_pst$47, _term$45); - return $2749; - })())); - return $2748; - })())); - return $2747; - })())); - return $2746; - })())); - var $2742 = $2745; - break; - }; - return $2742; - })()))(_reply$pst$36); - return $2741; - })())); - return $2740; - })())); - var $2733 = $2739; - break; - }; - var $2725 = $2733; - break; - }; - var $2723 = $2725; - break; - }; - return $2723; - })()))(_reply$pst$18); - return $2722; - })())); - return $2721; - })())); - var $2714 = $2720; - break; - }; - var $2706 = $2714; - break; - }; - var $2704 = $2706; - break; - }; - return $2704; - })()))); - const Kind$Parser$lambda = Kind$Parser$block("term")(Parser$choice(List$cons$(Kind$Parser$lambda$1, List$cons$(Kind$Parser$lambda$2, List$nil)))); - const Kind$Parser$lambda$erased = Kind$Parser$block("lambda")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $2751 = self.err; - var _reply$7 = Kind$Parser$items$("<", Kind$Parser$name1, ">")(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $2753 = self.err; - var self = $2751; - switch (self._) { - case 'Maybe.some': - var $2755 = self.value; - var $2756 = Parser$Reply$error$(Parser$Error$combine$($2755, $2753)); - var $2754 = $2756; - break; - case 'Maybe.none': - var $2757 = Parser$Reply$error$($2753); - var $2754 = $2757; - break; - }; - var $2752 = $2754; - break; - case 'Parser.Reply.value': - var $2758 = self.pst; - var $2759 = self.val; - var self = $2758; - switch (self._) { - case 'Parser.State.new': - var $2761 = self.err; - var $2762 = self.nam; - var $2763 = self.ini; - var $2764 = self.idx; - var $2765 = self.str; - var $2766 = ((console.log(("FALTANDO " + $2765)), (_$15 => { - var $2767 = ((console.log(("VALUE " + $2762)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2751, $2761), $2762, $2763, $2764, $2765); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $2769 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $2771 = self.err; - var self = $2769; - switch (self._) { - case 'Maybe.some': - var $2773 = self.value; - var $2774 = Parser$Reply$error$(Parser$Error$combine$($2773, $2771)); - var $2772 = $2774; - break; - case 'Maybe.none': - var $2775 = Parser$Reply$error$($2771); - var $2772 = $2775; - break; - }; - var $2770 = $2772; - break; - case 'Parser.Reply.value': - var $2776 = self.pst; - var $2777 = self.val; - var self = $2776; - switch (self._) { - case 'Parser.State.new': - var $2779 = self.err; - var $2780 = self.nam; - var $2781 = self.ini; - var $2782 = self.idx; - var $2783 = self.str; - var $2784 = ((console.log(("FALTANDO " + $2783)), (_$31 => { - var $2785 = ((console.log(("VALUE " + $2780)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($2769, $2779), $2780, $2781, $2782, $2783); - var $2786 = Parser$Reply$value$(_reply$pst$33, Kind$Parser$lambda$make$start$($2759, $2777)); - return $2786; - })())); - return $2785; - })())); - var $2778 = $2784; - break; - }; - var $2770 = $2778; - break; - }; - var $2768 = $2770; - break; - }; - return $2768; - })())); - return $2767; - })())); - var $2760 = $2766; - break; - }; - var $2752 = $2760; - break; - }; - var $2750 = $2752; - break; - }; - return $2750; - })); - const Kind$Parser$parenthesis = Kind$Parser$block("parenthesis")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $2788 = self.err; - var _reply$7 = Kind$Parser$text$("(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $2790 = self.err; - var self = $2788; - switch (self._) { - case 'Maybe.some': - var $2792 = self.value; - var $2793 = Parser$Reply$error$(Parser$Error$combine$($2792, $2790)); - var $2791 = $2793; - break; - case 'Maybe.none': - var $2794 = Parser$Reply$error$($2790); - var $2791 = $2794; - break; - }; - var $2789 = $2791; - break; - case 'Parser.Reply.value': - var $2795 = self.pst; - var self = $2795; - switch (self._) { - case 'Parser.State.new': - var $2797 = self.err; - var $2798 = self.nam; - var $2799 = self.ini; - var $2800 = self.idx; - var $2801 = self.str; - var $2802 = ((console.log(("FALTANDO " + $2801)), (_$15 => { - var $2803 = ((console.log(("VALUE " + $2798)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($2788, $2797), $2798, $2799, $2800, $2801); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $2805 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $2807 = self.err; - var self = $2805; - switch (self._) { - case 'Maybe.some': - var $2809 = self.value; - var $2810 = Parser$Reply$error$(Parser$Error$combine$($2809, $2807)); - var $2808 = $2810; - break; - case 'Maybe.none': - var $2811 = Parser$Reply$error$($2807); - var $2808 = $2811; - break; - }; - var $2806 = $2808; - break; - case 'Parser.Reply.value': - var $2812 = self.pst; - var $2813 = self.val; - var self = $2812; - switch (self._) { - case 'Parser.State.new': - var $2815 = self.err; - var $2816 = self.nam; - var $2817 = self.ini; - var $2818 = self.idx; - var $2819 = self.str; - var $2820 = ((console.log(("FALTANDO " + $2819)), (_$31 => { - var $2821 = ((console.log(("VALUE " + $2816)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($2805, $2815), $2816, $2817, $2818, $2819); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $2823 = self.err; - var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $2825 = self.err; - var self = $2823; - switch (self._) { - case 'Maybe.some': - var $2827 = self.value; - var $2828 = Parser$Reply$error$(Parser$Error$combine$($2827, $2825)); - var $2826 = $2828; - break; - case 'Maybe.none': - var $2829 = Parser$Reply$error$($2825); - var $2826 = $2829; - break; - }; - var $2824 = $2826; - break; - case 'Parser.Reply.value': - var $2830 = self.pst; - var self = $2830; - switch (self._) { - case 'Parser.State.new': - var $2832 = self.err; - var $2833 = self.nam; - var $2834 = self.ini; - var $2835 = self.idx; - var $2836 = self.str; - var $2837 = ((console.log(("FALTANDO " + $2836)), (_$47 => { - var $2838 = ((console.log(("VALUE " + $2833)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($2823, $2832), $2833, $2834, $2835, $2836); - var $2839 = Parser$Reply$value$(_reply$pst$49, $2813); - return $2839; - })())); - return $2838; - })())); - var $2831 = $2837; - break; - }; - var $2824 = $2831; - break; - }; - var $2822 = $2824; - break; - }; - return $2822; - })())); - return $2821; - })())); - var $2814 = $2820; - break; - }; - var $2806 = $2814; - break; - }; - var $2804 = $2806; - break; - }; - return $2804; - })())); - return $2803; - })())); - var $2796 = $2802; - break; - }; - var $2789 = $2796; - break; - }; - var $2787 = $2789; - break; - }; - return $2787; - })); - - function Kind$Parser$letforrange$(_typename$1, _body$2) { - var $2840 = Kind$Parser$block("let-for")((_pst$3 => { - var self = _pst$3; - switch (self._) { - case 'Parser.State.new': - var $2842 = self.err; - var _reply$9 = Kind$Parser$text$("let ", _pst$3); - var self = _reply$9; - switch (self._) { - case 'Parser.Reply.error': - var $2844 = self.err; - var self = $2842; - switch (self._) { - case 'Maybe.some': - var $2846 = self.value; - var $2847 = Parser$Reply$error$(Parser$Error$combine$($2846, $2844)); - var $2845 = $2847; - break; - case 'Maybe.none': - var $2848 = Parser$Reply$error$($2844); - var $2845 = $2848; - break; - }; - var $2843 = $2845; - break; - case 'Parser.Reply.value': - var $2849 = self.pst; - var self = $2849; - switch (self._) { - case 'Parser.State.new': - var $2851 = self.err; - var $2852 = self.nam; - var $2853 = self.ini; - var $2854 = self.idx; - var $2855 = self.str; - var $2856 = ((console.log(("FALTANDO " + $2855)), (_$17 => { - var $2857 = ((console.log(("VALUE " + $2852)), (_$18 => { - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($2842, $2851), $2852, $2853, $2854, $2855); - var self = _reply$pst$19; - switch (self._) { - case 'Parser.State.new': - var $2859 = self.err; - var _reply$25 = Kind$Parser$name1$(_reply$pst$19); - var self = _reply$25; - switch (self._) { - case 'Parser.Reply.error': - var $2861 = self.err; - var self = $2859; - switch (self._) { - case 'Maybe.some': - var $2863 = self.value; - var $2864 = Parser$Reply$error$(Parser$Error$combine$($2863, $2861)); - var $2862 = $2864; - break; - case 'Maybe.none': - var $2865 = Parser$Reply$error$($2861); - var $2862 = $2865; - break; - }; - var $2860 = $2862; - break; - case 'Parser.Reply.value': - var $2866 = self.pst; - var $2867 = self.val; - var self = $2866; - switch (self._) { - case 'Parser.State.new': - var $2869 = self.err; - var $2870 = self.nam; - var $2871 = self.ini; - var $2872 = self.idx; - var $2873 = self.str; - var $2874 = ((console.log(("FALTANDO " + $2873)), (_$33 => { - var $2875 = ((console.log(("VALUE " + $2870)), (_$34 => { - var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($2859, $2869), $2870, $2871, $2872, $2873); - var self = _reply$pst$35; - switch (self._) { - case 'Parser.State.new': - var $2877 = self.err; - var _reply$41 = Kind$Parser$text$("=", _reply$pst$35); - var self = _reply$41; - switch (self._) { - case 'Parser.Reply.error': - var $2879 = self.err; - var self = $2877; - switch (self._) { - case 'Maybe.some': - var $2881 = self.value; - var $2882 = Parser$Reply$error$(Parser$Error$combine$($2881, $2879)); - var $2880 = $2882; - break; - case 'Maybe.none': - var $2883 = Parser$Reply$error$($2879); - var $2880 = $2883; - break; - }; - var $2878 = $2880; - break; - case 'Parser.Reply.value': - var $2884 = self.pst; - var self = $2884; - switch (self._) { - case 'Parser.State.new': - var $2886 = self.err; - var $2887 = self.nam; - var $2888 = self.ini; - var $2889 = self.idx; - var $2890 = self.str; - var $2891 = ((console.log(("FALTANDO " + $2890)), (_$49 => { - var $2892 = ((console.log(("VALUE " + $2887)), (_$50 => { - var _reply$pst$51 = Parser$State$new$(Parser$Error$maybe_combine$($2877, $2886), $2887, $2888, $2889, $2890); - var self = _reply$pst$51; - switch (self._) { - case 'Parser.State.new': - var $2894 = self.err; - var _reply$57 = Kind$Parser$text$("for ", _reply$pst$51); - var self = _reply$57; - switch (self._) { - case 'Parser.Reply.error': - var $2896 = self.err; - var self = $2894; - switch (self._) { - case 'Maybe.some': - var $2898 = self.value; - var $2899 = Parser$Reply$error$(Parser$Error$combine$($2898, $2896)); - var $2897 = $2899; - break; - case 'Maybe.none': - var $2900 = Parser$Reply$error$($2896); - var $2897 = $2900; - break; - }; - var $2895 = $2897; - break; - case 'Parser.Reply.value': - var $2901 = self.pst; - var self = $2901; - switch (self._) { - case 'Parser.State.new': - var $2903 = self.err; - var $2904 = self.nam; - var $2905 = self.ini; - var $2906 = self.idx; - var $2907 = self.str; - var $2908 = ((console.log(("FALTANDO " + $2907)), (_$65 => { - var $2909 = ((console.log(("VALUE " + $2904)), (_$66 => { - var _reply$pst$67 = Parser$State$new$(Parser$Error$maybe_combine$($2894, $2903), $2904, $2905, $2906, $2907); - var self = _reply$pst$67; - switch (self._) { - case 'Parser.State.new': - var $2911 = self.err; - var _reply$73 = Kind$Parser$name1$(_reply$pst$67); - var self = _reply$73; - switch (self._) { - case 'Parser.Reply.error': - var $2913 = self.err; - var self = $2911; - switch (self._) { - case 'Maybe.some': - var $2915 = self.value; - var $2916 = Parser$Reply$error$(Parser$Error$combine$($2915, $2913)); - var $2914 = $2916; - break; - case 'Maybe.none': - var $2917 = Parser$Reply$error$($2913); - var $2914 = $2917; - break; - }; - var $2912 = $2914; - break; - case 'Parser.Reply.value': - var $2918 = self.pst; - var $2919 = self.val; - var self = $2918; - switch (self._) { - case 'Parser.State.new': - var $2921 = self.err; - var $2922 = self.nam; - var $2923 = self.ini; - var $2924 = self.idx; - var $2925 = self.str; - var $2926 = ((console.log(("FALTANDO " + $2925)), (_$81 => { - var $2927 = ((console.log(("VALUE " + $2922)), (_$82 => { - var _reply$pst$83 = Parser$State$new$(Parser$Error$maybe_combine$($2911, $2921), $2922, $2923, $2924, $2925); - var self = _reply$pst$83; - switch (self._) { - case 'Parser.State.new': - var $2929 = self.err; - var _reply$89 = Kind$Parser$text$(":", _reply$pst$83); - var self = _reply$89; - switch (self._) { - case 'Parser.Reply.error': - var $2931 = self.err; - var self = $2929; - switch (self._) { - case 'Maybe.some': - var $2933 = self.value; - var $2934 = Parser$Reply$error$(Parser$Error$combine$($2933, $2931)); - var $2932 = $2934; - break; - case 'Maybe.none': - var $2935 = Parser$Reply$error$($2931); - var $2932 = $2935; - break; - }; - var $2930 = $2932; - break; - case 'Parser.Reply.value': - var $2936 = self.pst; - var self = $2936; - switch (self._) { - case 'Parser.State.new': - var $2938 = self.err; - var $2939 = self.nam; - var $2940 = self.ini; - var $2941 = self.idx; - var $2942 = self.str; - var $2943 = ((console.log(("FALTANDO " + $2942)), (_$97 => { - var $2944 = ((console.log(("VALUE " + $2939)), (_$98 => { - var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($2929, $2938), $2939, $2940, $2941, $2942); - var self = _reply$pst$99; - switch (self._) { - case 'Parser.State.new': - var $2946 = self.err; - var _reply$105 = Kind$Parser$text$(_typename$1, _reply$pst$99); - var self = _reply$105; - switch (self._) { - case 'Parser.Reply.error': - var $2948 = self.err; - var self = $2946; - switch (self._) { - case 'Maybe.some': - var $2950 = self.value; - var $2951 = Parser$Reply$error$(Parser$Error$combine$($2950, $2948)); - var $2949 = $2951; - break; - case 'Maybe.none': - var $2952 = Parser$Reply$error$($2948); - var $2949 = $2952; - break; - }; - var $2947 = $2949; - break; - case 'Parser.Reply.value': - var $2953 = self.pst; - var self = $2953; - switch (self._) { - case 'Parser.State.new': - var $2955 = self.err; - var $2956 = self.nam; - var $2957 = self.ini; - var $2958 = self.idx; - var $2959 = self.str; - var $2960 = ((console.log(("FALTANDO " + $2959)), (_$113 => { - var $2961 = ((console.log(("VALUE " + $2956)), (_$114 => { - var _reply$pst$115 = Parser$State$new$(Parser$Error$maybe_combine$($2946, $2955), $2956, $2957, $2958, $2959); - var self = _reply$pst$115; - switch (self._) { - case 'Parser.State.new': - var $2963 = self.err; - var _reply$121 = Kind$Parser$text$("from", _reply$pst$115); - var self = _reply$121; - switch (self._) { - case 'Parser.Reply.error': - var $2965 = self.err; - var self = $2963; - switch (self._) { - case 'Maybe.some': - var $2967 = self.value; - var $2968 = Parser$Reply$error$(Parser$Error$combine$($2967, $2965)); - var $2966 = $2968; - break; - case 'Maybe.none': - var $2969 = Parser$Reply$error$($2965); - var $2966 = $2969; - break; - }; - var $2964 = $2966; - break; - case 'Parser.Reply.value': - var $2970 = self.pst; - var self = $2970; - switch (self._) { - case 'Parser.State.new': - var $2972 = self.err; - var $2973 = self.nam; - var $2974 = self.ini; - var $2975 = self.idx; - var $2976 = self.str; - var $2977 = ((console.log(("FALTANDO " + $2976)), (_$129 => { - var $2978 = ((console.log(("VALUE " + $2973)), (_$130 => { - var _reply$pst$131 = Parser$State$new$(Parser$Error$maybe_combine$($2963, $2972), $2973, $2974, $2975, $2976); - var self = _reply$pst$131; - switch (self._) { - case 'Parser.State.new': - var $2980 = self.err; - var _reply$137 = Kind$Parser$term(_reply$pst$131); - var self = _reply$137; - switch (self._) { - case 'Parser.Reply.error': - var $2982 = self.err; - var self = $2980; - switch (self._) { - case 'Maybe.some': - var $2984 = self.value; - var $2985 = Parser$Reply$error$(Parser$Error$combine$($2984, $2982)); - var $2983 = $2985; - break; - case 'Maybe.none': - var $2986 = Parser$Reply$error$($2982); - var $2983 = $2986; - break; - }; - var $2981 = $2983; - break; - case 'Parser.Reply.value': - var $2987 = self.pst; - var $2988 = self.val; - var self = $2987; - switch (self._) { - case 'Parser.State.new': - var $2990 = self.err; - var $2991 = self.nam; - var $2992 = self.ini; - var $2993 = self.idx; - var $2994 = self.str; - var $2995 = ((console.log(("FALTANDO " + $2994)), (_$145 => { - var $2996 = ((console.log(("VALUE " + $2991)), (_$146 => { - var _reply$pst$147 = Parser$State$new$(Parser$Error$maybe_combine$($2980, $2990), $2991, $2992, $2993, $2994); - var self = _reply$pst$147; - switch (self._) { - case 'Parser.State.new': - var $2998 = self.err; - var _reply$153 = Kind$Parser$text$("to", _reply$pst$147); - var self = _reply$153; - switch (self._) { - case 'Parser.Reply.error': - var $3000 = self.err; - var self = $2998; - switch (self._) { - case 'Maybe.some': - var $3002 = self.value; - var $3003 = Parser$Reply$error$(Parser$Error$combine$($3002, $3000)); - var $3001 = $3003; - break; - case 'Maybe.none': - var $3004 = Parser$Reply$error$($3000); - var $3001 = $3004; - break; - }; - var $2999 = $3001; - break; - case 'Parser.Reply.value': - var $3005 = self.pst; - var self = $3005; - switch (self._) { - case 'Parser.State.new': - var $3007 = self.err; - var $3008 = self.nam; - var $3009 = self.ini; - var $3010 = self.idx; - var $3011 = self.str; - var $3012 = ((console.log(("FALTANDO " + $3011)), (_$161 => { - var $3013 = ((console.log(("VALUE " + $3008)), (_$162 => { - var _reply$pst$163 = Parser$State$new$(Parser$Error$maybe_combine$($2998, $3007), $3008, $3009, $3010, $3011); - var self = _reply$pst$163; - switch (self._) { - case 'Parser.State.new': - var $3015 = self.err; - var _reply$169 = Kind$Parser$term(_reply$pst$163); - var self = _reply$169; - switch (self._) { - case 'Parser.Reply.error': - var $3017 = self.err; - var self = $3015; - switch (self._) { - case 'Maybe.some': - var $3019 = self.value; - var $3020 = Parser$Reply$error$(Parser$Error$combine$($3019, $3017)); - var $3018 = $3020; - break; - case 'Maybe.none': - var $3021 = Parser$Reply$error$($3017); - var $3018 = $3021; - break; - }; - var $3016 = $3018; - break; - case 'Parser.Reply.value': - var $3022 = self.pst; - var $3023 = self.val; - var self = $3022; - switch (self._) { - case 'Parser.State.new': - var $3025 = self.err; - var $3026 = self.nam; - var $3027 = self.ini; - var $3028 = self.idx; - var $3029 = self.str; - var $3030 = ((console.log(("FALTANDO " + $3029)), (_$177 => { - var $3031 = ((console.log(("VALUE " + $3026)), (_$178 => { - var _reply$pst$179 = Parser$State$new$(Parser$Error$maybe_combine$($3015, $3025), $3026, $3027, $3028, $3029); - var self = _reply$pst$179; - switch (self._) { - case 'Parser.State.new': - var $3033 = self.err; - var _reply$185 = Kind$Parser$text$(":", _reply$pst$179); - var self = _reply$185; - switch (self._) { - case 'Parser.Reply.error': - var $3035 = self.err; - var self = $3033; - switch (self._) { - case 'Maybe.some': - var $3037 = self.value; - var $3038 = Parser$Reply$error$(Parser$Error$combine$($3037, $3035)); - var $3036 = $3038; - break; - case 'Maybe.none': - var $3039 = Parser$Reply$error$($3035); - var $3036 = $3039; - break; - }; - var $3034 = $3036; - break; - case 'Parser.Reply.value': - var $3040 = self.pst; - var self = $3040; - switch (self._) { - case 'Parser.State.new': - var $3042 = self.err; - var $3043 = self.nam; - var $3044 = self.ini; - var $3045 = self.idx; - var $3046 = self.str; - var $3047 = ((console.log(("FALTANDO " + $3046)), (_$193 => { - var $3048 = ((console.log(("VALUE " + $3043)), (_$194 => { - var _reply$pst$195 = Parser$State$new$(Parser$Error$maybe_combine$($3033, $3042), $3043, $3044, $3045, $3046); - var self = _reply$pst$195; - switch (self._) { - case 'Parser.State.new': - var $3050 = self.err; - var _reply$201 = Kind$Parser$term(_reply$pst$195); - var self = _reply$201; - switch (self._) { - case 'Parser.Reply.error': - var $3052 = self.err; - var self = $3050; - switch (self._) { - case 'Maybe.some': - var $3054 = self.value; - var $3055 = Parser$Reply$error$(Parser$Error$combine$($3054, $3052)); - var $3053 = $3055; - break; - case 'Maybe.none': - var $3056 = Parser$Reply$error$($3052); - var $3053 = $3056; - break; - }; - var $3051 = $3053; - break; - case 'Parser.Reply.value': - var $3057 = self.pst; - var $3058 = self.val; - var self = $3057; - switch (self._) { - case 'Parser.State.new': - var $3060 = self.err; - var $3061 = self.nam; - var $3062 = self.ini; - var $3063 = self.idx; - var $3064 = self.str; - var $3065 = ((console.log(("FALTANDO " + $3064)), (_$209 => { - var $3066 = ((console.log(("VALUE " + $3061)), (_$210 => { - var _reply$pst$211 = Parser$State$new$(Parser$Error$maybe_combine$($3050, $3060), $3061, $3062, $3063, $3064); - var self = _reply$pst$211; - switch (self._) { - case 'Parser.State.new': - var $3068 = self.err; - var _reply$217 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$211); - var self = _reply$217; - switch (self._) { - case 'Parser.Reply.error': - var $3070 = self.err; - var self = $3068; - switch (self._) { - case 'Maybe.some': - var $3072 = self.value; - var $3073 = Parser$Reply$error$(Parser$Error$combine$($3072, $3070)); - var $3071 = $3073; - break; - case 'Maybe.none': - var $3074 = Parser$Reply$error$($3070); - var $3071 = $3074; - break; - }; - var $3069 = $3071; - break; - case 'Parser.Reply.value': - var $3075 = self.pst; - var self = $3075; - switch (self._) { - case 'Parser.State.new': - var $3077 = self.err; - var $3078 = self.nam; - var $3079 = self.ini; - var $3080 = self.idx; - var $3081 = self.str; - var $3082 = ((console.log(("FALTANDO " + $3081)), (_$225 => { - var $3083 = ((console.log(("VALUE " + $3078)), (_$226 => { - var _reply$pst$227 = Parser$State$new$(Parser$Error$maybe_combine$($3068, $3077), $3078, $3079, $3080, $3081); - var self = _reply$pst$227; - switch (self._) { - case 'Parser.State.new': - var $3085 = self.err; - var _reply$233 = _body$2(Unit$new)(_reply$pst$227); - var self = _reply$233; - switch (self._) { - case 'Parser.Reply.error': - var $3087 = self.err; - var self = $3085; - switch (self._) { - case 'Maybe.some': - var $3089 = self.value; - var $3090 = Parser$Reply$error$(Parser$Error$combine$($3089, $3087)); - var $3088 = $3090; - break; - case 'Maybe.none': - var $3091 = Parser$Reply$error$($3087); - var $3088 = $3091; - break; - }; - var $3086 = $3088; - break; - case 'Parser.Reply.value': - var $3092 = self.pst; - var $3093 = self.val; - var self = $3092; - switch (self._) { - case 'Parser.State.new': - var $3095 = self.err; - var $3096 = self.nam; - var $3097 = self.ini; - var $3098 = self.idx; - var $3099 = self.str; - var $3100 = ((console.log(("FALTANDO " + $3099)), (_$241 => { - var $3101 = ((console.log(("VALUE " + $3096)), (_$242 => { - var _reply$pst$243 = Parser$State$new$(Parser$Error$maybe_combine$($3085, $3095), $3096, $3097, $3098, $3099); - var _term$244 = Kind$Term$ref$((_typename$1 + ".for")); - var _term$245 = Kind$Term$app$(_term$244, Kind$Term$hol$(Bits$e)); - var _term$246 = Kind$Term$app$(_term$245, Kind$Term$ref$($2867)); - var _term$247 = Kind$Term$app$(_term$246, $2988); - var _term$248 = Kind$Term$app$(_term$247, $3023); - var _lamb$249 = Kind$Term$lam$($2919, (_e$249 => { - var $3103 = Kind$Term$lam$($2867, (_s$250 => { - var $3104 = $3058; - return $3104; - })); - return $3103; - })); - var _term$250 = Kind$Term$app$(_term$248, _lamb$249); - var _term$251 = Kind$Term$let$($2867, _term$250, (_x$251 => { - var $3105 = $3093; - return $3105; - })); - var $3102 = Parser$Reply$value$(_reply$pst$243, _term$251); - return $3102; - })())); - return $3101; - })())); - var $3094 = $3100; - break; - }; - var $3086 = $3094; - break; - }; - var $3084 = $3086; - break; - }; - return $3084; - })())); - return $3083; - })())); - var $3076 = $3082; - break; - }; - var $3069 = $3076; - break; - }; - var $3067 = $3069; - break; - }; - return $3067; - })())); - return $3066; - })())); - var $3059 = $3065; - break; - }; - var $3051 = $3059; - break; - }; - var $3049 = $3051; - break; - }; - return $3049; - })())); - return $3048; - })())); - var $3041 = $3047; - break; - }; - var $3034 = $3041; - break; - }; - var $3032 = $3034; - break; - }; - return $3032; - })())); - return $3031; - })())); - var $3024 = $3030; - break; - }; - var $3016 = $3024; - break; - }; - var $3014 = $3016; - break; - }; - return $3014; - })())); - return $3013; - })())); - var $3006 = $3012; - break; - }; - var $2999 = $3006; - break; - }; - var $2997 = $2999; - break; - }; - return $2997; - })())); - return $2996; - })())); - var $2989 = $2995; - break; - }; - var $2981 = $2989; - break; - }; - var $2979 = $2981; - break; - }; - return $2979; - })())); - return $2978; - })())); - var $2971 = $2977; - break; - }; - var $2964 = $2971; - break; - }; - var $2962 = $2964; - break; - }; - return $2962; - })())); - return $2961; - })())); - var $2954 = $2960; - break; - }; - var $2947 = $2954; - break; - }; - var $2945 = $2947; - break; - }; - return $2945; - })())); - return $2944; - })())); - var $2937 = $2943; - break; - }; - var $2930 = $2937; - break; - }; - var $2928 = $2930; - break; - }; - return $2928; - })())); - return $2927; - })())); - var $2920 = $2926; - break; - }; - var $2912 = $2920; - break; - }; - var $2910 = $2912; - break; - }; - return $2910; - })())); - return $2909; - })())); - var $2902 = $2908; - break; - }; - var $2895 = $2902; - break; - }; - var $2893 = $2895; - break; - }; - return $2893; - })())); - return $2892; - })())); - var $2885 = $2891; - break; - }; - var $2878 = $2885; - break; - }; - var $2876 = $2878; - break; - }; - return $2876; - })())); - return $2875; - })())); - var $2868 = $2874; - break; - }; - var $2860 = $2868; - break; - }; - var $2858 = $2860; - break; - }; - return $2858; - })())); - return $2857; - })())); - var $2850 = $2856; - break; - }; - var $2843 = $2850; - break; - }; - var $2841 = $2843; - break; - }; - return $2841; - })); - return $2840; - }; - const Kind$Parser$letforrange = x0 => x1 => Kind$Parser$letforrange$(x0, x1); - - function Kind$Parser$letforrange$u32$(_body$1) { - var $3106 = Kind$Parser$letforrange$("U32", _body$1); - return $3106; - }; - const Kind$Parser$letforrange$u32 = x0 => Kind$Parser$letforrange$u32$(x0); - - function Kind$Parser$letforrange$with$(_typename$1, _body$2) { - var $3107 = Kind$Parser$block("for")((_pst$3 => { - var self = _pst$3; - switch (self._) { - case 'Parser.State.new': - var $3109 = self.err; - var _reply$9 = Kind$Parser$text$("for ", _pst$3); - var self = _reply$9; - switch (self._) { - case 'Parser.Reply.error': - var $3111 = self.err; - var self = $3109; - switch (self._) { - case 'Maybe.some': - var $3113 = self.value; - var $3114 = Parser$Reply$error$(Parser$Error$combine$($3113, $3111)); - var $3112 = $3114; - break; - case 'Maybe.none': - var $3115 = Parser$Reply$error$($3111); - var $3112 = $3115; - break; - }; - var $3110 = $3112; - break; - case 'Parser.Reply.value': - var $3116 = self.pst; - var self = $3116; - switch (self._) { - case 'Parser.State.new': - var $3118 = self.err; - var $3119 = self.nam; - var $3120 = self.ini; - var $3121 = self.idx; - var $3122 = self.str; - var $3123 = ((console.log(("FALTANDO " + $3122)), (_$17 => { - var $3124 = ((console.log(("VALUE " + $3119)), (_$18 => { - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($3109, $3118), $3119, $3120, $3121, $3122); - var self = _reply$pst$19; - switch (self._) { - case 'Parser.State.new': - var $3126 = self.err; - var _reply$25 = Kind$Parser$name1$(_reply$pst$19); - var self = _reply$25; - switch (self._) { - case 'Parser.Reply.error': - var $3128 = self.err; - var self = $3126; - switch (self._) { - case 'Maybe.some': - var $3130 = self.value; - var $3131 = Parser$Reply$error$(Parser$Error$combine$($3130, $3128)); - var $3129 = $3131; - break; - case 'Maybe.none': - var $3132 = Parser$Reply$error$($3128); - var $3129 = $3132; - break; - }; - var $3127 = $3129; - break; - case 'Parser.Reply.value': - var $3133 = self.pst; - var $3134 = self.val; - var self = $3133; - switch (self._) { - case 'Parser.State.new': - var $3136 = self.err; - var $3137 = self.nam; - var $3138 = self.ini; - var $3139 = self.idx; - var $3140 = self.str; - var $3141 = ((console.log(("FALTANDO " + $3140)), (_$33 => { - var $3142 = ((console.log(("VALUE " + $3137)), (_$34 => { - var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($3126, $3136), $3137, $3138, $3139, $3140); - var self = _reply$pst$35; - switch (self._) { - case 'Parser.State.new': - var $3144 = self.err; - var _reply$41 = Kind$Parser$text$(":", _reply$pst$35); - var self = _reply$41; - switch (self._) { - case 'Parser.Reply.error': - var $3146 = self.err; - var self = $3144; - switch (self._) { - case 'Maybe.some': - var $3148 = self.value; - var $3149 = Parser$Reply$error$(Parser$Error$combine$($3148, $3146)); - var $3147 = $3149; - break; - case 'Maybe.none': - var $3150 = Parser$Reply$error$($3146); - var $3147 = $3150; - break; - }; - var $3145 = $3147; - break; - case 'Parser.Reply.value': - var $3151 = self.pst; - var self = $3151; - switch (self._) { - case 'Parser.State.new': - var $3153 = self.err; - var $3154 = self.nam; - var $3155 = self.ini; - var $3156 = self.idx; - var $3157 = self.str; - var $3158 = ((console.log(("FALTANDO " + $3157)), (_$49 => { - var $3159 = ((console.log(("VALUE " + $3154)), (_$50 => { - var _reply$pst$51 = Parser$State$new$(Parser$Error$maybe_combine$($3144, $3153), $3154, $3155, $3156, $3157); - var self = _reply$pst$51; - switch (self._) { - case 'Parser.State.new': - var $3161 = self.err; - var _reply$57 = Kind$Parser$text$(_typename$1, _reply$pst$51); - var self = _reply$57; - switch (self._) { - case 'Parser.Reply.error': - var $3163 = self.err; - var self = $3161; - switch (self._) { - case 'Maybe.some': - var $3165 = self.value; - var $3166 = Parser$Reply$error$(Parser$Error$combine$($3165, $3163)); - var $3164 = $3166; - break; - case 'Maybe.none': - var $3167 = Parser$Reply$error$($3163); - var $3164 = $3167; - break; - }; - var $3162 = $3164; - break; - case 'Parser.Reply.value': - var $3168 = self.pst; - var self = $3168; - switch (self._) { - case 'Parser.State.new': - var $3170 = self.err; - var $3171 = self.nam; - var $3172 = self.ini; - var $3173 = self.idx; - var $3174 = self.str; - var $3175 = ((console.log(("FALTANDO " + $3174)), (_$65 => { - var $3176 = ((console.log(("VALUE " + $3171)), (_$66 => { - var _reply$pst$67 = Parser$State$new$(Parser$Error$maybe_combine$($3161, $3170), $3171, $3172, $3173, $3174); - var self = _reply$pst$67; - switch (self._) { - case 'Parser.State.new': - var $3178 = self.err; - var _reply$73 = Kind$Parser$text$("from", _reply$pst$67); - var self = _reply$73; - switch (self._) { - case 'Parser.Reply.error': - var $3180 = self.err; - var self = $3178; - switch (self._) { - case 'Maybe.some': - var $3182 = self.value; - var $3183 = Parser$Reply$error$(Parser$Error$combine$($3182, $3180)); - var $3181 = $3183; - break; - case 'Maybe.none': - var $3184 = Parser$Reply$error$($3180); - var $3181 = $3184; - break; - }; - var $3179 = $3181; - break; - case 'Parser.Reply.value': - var $3185 = self.pst; - var self = $3185; - switch (self._) { - case 'Parser.State.new': - var $3187 = self.err; - var $3188 = self.nam; - var $3189 = self.ini; - var $3190 = self.idx; - var $3191 = self.str; - var $3192 = ((console.log(("FALTANDO " + $3191)), (_$81 => { - var $3193 = ((console.log(("VALUE " + $3188)), (_$82 => { - var _reply$pst$83 = Parser$State$new$(Parser$Error$maybe_combine$($3178, $3187), $3188, $3189, $3190, $3191); - var self = _reply$pst$83; - switch (self._) { - case 'Parser.State.new': - var $3195 = self.err; - var _reply$89 = Kind$Parser$term(_reply$pst$83); - var self = _reply$89; - switch (self._) { - case 'Parser.Reply.error': - var $3197 = self.err; - var self = $3195; - switch (self._) { - case 'Maybe.some': - var $3199 = self.value; - var $3200 = Parser$Reply$error$(Parser$Error$combine$($3199, $3197)); - var $3198 = $3200; - break; - case 'Maybe.none': - var $3201 = Parser$Reply$error$($3197); - var $3198 = $3201; - break; - }; - var $3196 = $3198; - break; - case 'Parser.Reply.value': - var $3202 = self.pst; - var $3203 = self.val; - var self = $3202; - switch (self._) { - case 'Parser.State.new': - var $3205 = self.err; - var $3206 = self.nam; - var $3207 = self.ini; - var $3208 = self.idx; - var $3209 = self.str; - var $3210 = ((console.log(("FALTANDO " + $3209)), (_$97 => { - var $3211 = ((console.log(("VALUE " + $3206)), (_$98 => { - var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($3195, $3205), $3206, $3207, $3208, $3209); - var self = _reply$pst$99; - switch (self._) { - case 'Parser.State.new': - var $3213 = self.err; - var _reply$105 = Kind$Parser$text$("to", _reply$pst$99); - var self = _reply$105; - switch (self._) { - case 'Parser.Reply.error': - var $3215 = self.err; - var self = $3213; - switch (self._) { - case 'Maybe.some': - var $3217 = self.value; - var $3218 = Parser$Reply$error$(Parser$Error$combine$($3217, $3215)); - var $3216 = $3218; - break; - case 'Maybe.none': - var $3219 = Parser$Reply$error$($3215); - var $3216 = $3219; - break; - }; - var $3214 = $3216; - break; - case 'Parser.Reply.value': - var $3220 = self.pst; - var self = $3220; - switch (self._) { - case 'Parser.State.new': - var $3222 = self.err; - var $3223 = self.nam; - var $3224 = self.ini; - var $3225 = self.idx; - var $3226 = self.str; - var $3227 = ((console.log(("FALTANDO " + $3226)), (_$113 => { - var $3228 = ((console.log(("VALUE " + $3223)), (_$114 => { - var _reply$pst$115 = Parser$State$new$(Parser$Error$maybe_combine$($3213, $3222), $3223, $3224, $3225, $3226); - var self = _reply$pst$115; - switch (self._) { - case 'Parser.State.new': - var $3230 = self.err; - var _reply$121 = Kind$Parser$term(_reply$pst$115); - var self = _reply$121; - switch (self._) { - case 'Parser.Reply.error': - var $3232 = self.err; - var self = $3230; - switch (self._) { - case 'Maybe.some': - var $3234 = self.value; - var $3235 = Parser$Reply$error$(Parser$Error$combine$($3234, $3232)); - var $3233 = $3235; - break; - case 'Maybe.none': - var $3236 = Parser$Reply$error$($3232); - var $3233 = $3236; - break; - }; - var $3231 = $3233; - break; - case 'Parser.Reply.value': - var $3237 = self.pst; - var $3238 = self.val; - var self = $3237; - switch (self._) { - case 'Parser.State.new': - var $3240 = self.err; - var $3241 = self.nam; - var $3242 = self.ini; - var $3243 = self.idx; - var $3244 = self.str; - var $3245 = ((console.log(("FALTANDO " + $3244)), (_$129 => { - var $3246 = ((console.log(("VALUE " + $3241)), (_$130 => { - var _reply$pst$131 = Parser$State$new$(Parser$Error$maybe_combine$($3230, $3240), $3241, $3242, $3243, $3244); - var self = _reply$pst$131; - switch (self._) { - case 'Parser.State.new': - var $3248 = self.err; - var _reply$137 = Kind$Parser$text$("with ", _reply$pst$131); - var self = _reply$137; - switch (self._) { - case 'Parser.Reply.error': - var $3250 = self.err; - var self = $3248; - switch (self._) { - case 'Maybe.some': - var $3252 = self.value; - var $3253 = Parser$Reply$error$(Parser$Error$combine$($3252, $3250)); - var $3251 = $3253; - break; - case 'Maybe.none': - var $3254 = Parser$Reply$error$($3250); - var $3251 = $3254; - break; - }; - var $3249 = $3251; - break; - case 'Parser.Reply.value': - var $3255 = self.pst; - var self = $3255; - switch (self._) { - case 'Parser.State.new': - var $3257 = self.err; - var $3258 = self.nam; - var $3259 = self.ini; - var $3260 = self.idx; - var $3261 = self.str; - var $3262 = ((console.log(("FALTANDO " + $3261)), (_$145 => { - var $3263 = ((console.log(("VALUE " + $3258)), (_$146 => { - var _reply$pst$147 = Parser$State$new$(Parser$Error$maybe_combine$($3248, $3257), $3258, $3259, $3260, $3261); - var self = _reply$pst$147; - switch (self._) { - case 'Parser.State.new': - var $3265 = self.err; - var _reply$153 = Kind$Parser$name1$(_reply$pst$147); - var self = _reply$153; - switch (self._) { - case 'Parser.Reply.error': - var $3267 = self.err; - var self = $3265; - switch (self._) { - case 'Maybe.some': - var $3269 = self.value; - var $3270 = Parser$Reply$error$(Parser$Error$combine$($3269, $3267)); - var $3268 = $3270; - break; - case 'Maybe.none': - var $3271 = Parser$Reply$error$($3267); - var $3268 = $3271; - break; - }; - var $3266 = $3268; - break; - case 'Parser.Reply.value': - var $3272 = self.pst; - var $3273 = self.val; - var self = $3272; - switch (self._) { - case 'Parser.State.new': - var $3275 = self.err; - var $3276 = self.nam; - var $3277 = self.ini; - var $3278 = self.idx; - var $3279 = self.str; - var $3280 = ((console.log(("FALTANDO " + $3279)), (_$161 => { - var $3281 = ((console.log(("VALUE " + $3276)), (_$162 => { - var _reply$pst$163 = Parser$State$new$(Parser$Error$maybe_combine$($3265, $3275), $3276, $3277, $3278, $3279); - var self = _reply$pst$163; - switch (self._) { - case 'Parser.State.new': - var $3283 = self.err; - var _reply$169 = Kind$Parser$text$(":", _reply$pst$163); - var self = _reply$169; - switch (self._) { - case 'Parser.Reply.error': - var $3285 = self.err; - var self = $3283; - switch (self._) { - case 'Maybe.some': - var $3287 = self.value; - var $3288 = Parser$Reply$error$(Parser$Error$combine$($3287, $3285)); - var $3286 = $3288; - break; - case 'Maybe.none': - var $3289 = Parser$Reply$error$($3285); - var $3286 = $3289; - break; - }; - var $3284 = $3286; - break; - case 'Parser.Reply.value': - var $3290 = self.pst; - var self = $3290; - switch (self._) { - case 'Parser.State.new': - var $3292 = self.err; - var $3293 = self.nam; - var $3294 = self.ini; - var $3295 = self.idx; - var $3296 = self.str; - var $3297 = ((console.log(("FALTANDO " + $3296)), (_$177 => { - var $3298 = ((console.log(("VALUE " + $3293)), (_$178 => { - var _reply$pst$179 = Parser$State$new$(Parser$Error$maybe_combine$($3283, $3292), $3293, $3294, $3295, $3296); - var self = _reply$pst$179; - switch (self._) { - case 'Parser.State.new': - var $3300 = self.err; - var _reply$185 = Kind$Parser$term(_reply$pst$179); - var self = _reply$185; - switch (self._) { - case 'Parser.Reply.error': - var $3302 = self.err; - var self = $3300; - switch (self._) { - case 'Maybe.some': - var $3304 = self.value; - var $3305 = Parser$Reply$error$(Parser$Error$combine$($3304, $3302)); - var $3303 = $3305; - break; - case 'Maybe.none': - var $3306 = Parser$Reply$error$($3302); - var $3303 = $3306; - break; - }; - var $3301 = $3303; - break; - case 'Parser.Reply.value': - var $3307 = self.pst; - var $3308 = self.val; - var self = $3307; - switch (self._) { - case 'Parser.State.new': - var $3310 = self.err; - var $3311 = self.nam; - var $3312 = self.ini; - var $3313 = self.idx; - var $3314 = self.str; - var $3315 = ((console.log(("FALTANDO " + $3314)), (_$193 => { - var $3316 = ((console.log(("VALUE " + $3311)), (_$194 => { - var _reply$pst$195 = Parser$State$new$(Parser$Error$maybe_combine$($3300, $3310), $3311, $3312, $3313, $3314); - var self = _reply$pst$195; - switch (self._) { - case 'Parser.State.new': - var $3318 = self.err; - var _reply$201 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$195); - var self = _reply$201; - switch (self._) { - case 'Parser.Reply.error': - var $3320 = self.err; - var self = $3318; - switch (self._) { - case 'Maybe.some': - var $3322 = self.value; - var $3323 = Parser$Reply$error$(Parser$Error$combine$($3322, $3320)); - var $3321 = $3323; - break; - case 'Maybe.none': - var $3324 = Parser$Reply$error$($3320); - var $3321 = $3324; - break; - }; - var $3319 = $3321; - break; - case 'Parser.Reply.value': - var $3325 = self.pst; - var self = $3325; - switch (self._) { - case 'Parser.State.new': - var $3327 = self.err; - var $3328 = self.nam; - var $3329 = self.ini; - var $3330 = self.idx; - var $3331 = self.str; - var $3332 = ((console.log(("FALTANDO " + $3331)), (_$209 => { - var $3333 = ((console.log(("VALUE " + $3328)), (_$210 => { - var _reply$pst$211 = Parser$State$new$(Parser$Error$maybe_combine$($3318, $3327), $3328, $3329, $3330, $3331); - var self = _reply$pst$211; - switch (self._) { - case 'Parser.State.new': - var $3335 = self.err; - var _reply$217 = _body$2(Unit$new)(_reply$pst$211); - var self = _reply$217; - switch (self._) { - case 'Parser.Reply.error': - var $3337 = self.err; - var self = $3335; - switch (self._) { - case 'Maybe.some': - var $3339 = self.value; - var $3340 = Parser$Reply$error$(Parser$Error$combine$($3339, $3337)); - var $3338 = $3340; - break; - case 'Maybe.none': - var $3341 = Parser$Reply$error$($3337); - var $3338 = $3341; - break; - }; - var $3336 = $3338; - break; - case 'Parser.Reply.value': - var $3342 = self.pst; - var $3343 = self.val; - var self = $3342; - switch (self._) { - case 'Parser.State.new': - var $3345 = self.err; - var $3346 = self.nam; - var $3347 = self.ini; - var $3348 = self.idx; - var $3349 = self.str; - var $3350 = ((console.log(("FALTANDO " + $3349)), (_$225 => { - var $3351 = ((console.log(("VALUE " + $3346)), (_$226 => { - var _reply$pst$227 = Parser$State$new$(Parser$Error$maybe_combine$($3335, $3345), $3346, $3347, $3348, $3349); - var _term$228 = Kind$Term$ref$((_typename$1 + ".for")); - var _term$229 = Kind$Term$app$(_term$228, Kind$Term$hol$(Bits$e)); - var _term$230 = Kind$Term$app$(_term$229, Kind$Term$ref$($3273)); - var _term$231 = Kind$Term$app$(_term$230, $3203); - var _term$232 = Kind$Term$app$(_term$231, $3238); - var _lamb$233 = Kind$Term$lam$($3134, (_e$233 => { - var $3353 = Kind$Term$lam$($3273, (_s$234 => { - var $3354 = $3308; - return $3354; - })); - return $3353; - })); - var _term$234 = Kind$Term$app$(_term$232, _lamb$233); - var _term$235 = Kind$Term$let$($3273, _term$234, (_x$235 => { - var $3355 = $3343; - return $3355; - })); - var $3352 = Parser$Reply$value$(_reply$pst$227, _term$235); - return $3352; - })())); - return $3351; - })())); - var $3344 = $3350; - break; - }; - var $3336 = $3344; - break; - }; - var $3334 = $3336; - break; - }; - return $3334; - })())); - return $3333; - })())); - var $3326 = $3332; - break; - }; - var $3319 = $3326; - break; - }; - var $3317 = $3319; - break; - }; - return $3317; - })())); - return $3316; - })())); - var $3309 = $3315; - break; - }; - var $3301 = $3309; - break; - }; - var $3299 = $3301; - break; - }; - return $3299; - })())); - return $3298; - })())); - var $3291 = $3297; - break; - }; - var $3284 = $3291; - break; - }; - var $3282 = $3284; - break; - }; - return $3282; - })())); - return $3281; - })())); - var $3274 = $3280; - break; - }; - var $3266 = $3274; - break; - }; - var $3264 = $3266; - break; - }; - return $3264; - })())); - return $3263; - })())); - var $3256 = $3262; - break; - }; - var $3249 = $3256; - break; - }; - var $3247 = $3249; - break; - }; - return $3247; - })())); - return $3246; - })())); - var $3239 = $3245; - break; - }; - var $3231 = $3239; - break; - }; - var $3229 = $3231; - break; - }; - return $3229; - })())); - return $3228; - })())); - var $3221 = $3227; - break; - }; - var $3214 = $3221; - break; - }; - var $3212 = $3214; - break; - }; - return $3212; - })())); - return $3211; - })())); - var $3204 = $3210; - break; - }; - var $3196 = $3204; - break; - }; - var $3194 = $3196; - break; - }; - return $3194; - })())); - return $3193; - })())); - var $3186 = $3192; - break; - }; - var $3179 = $3186; - break; - }; - var $3177 = $3179; - break; - }; - return $3177; - })())); - return $3176; - })())); - var $3169 = $3175; - break; - }; - var $3162 = $3169; - break; - }; - var $3160 = $3162; - break; - }; - return $3160; - })())); - return $3159; - })())); - var $3152 = $3158; - break; - }; - var $3145 = $3152; - break; - }; - var $3143 = $3145; - break; - }; - return $3143; - })())); - return $3142; - })())); - var $3135 = $3141; - break; - }; - var $3127 = $3135; - break; - }; - var $3125 = $3127; - break; - }; - return $3125; - })())); - return $3124; - })())); - var $3117 = $3123; - break; - }; - var $3110 = $3117; - break; - }; - var $3108 = $3110; - break; - }; - return $3108; - })); - return $3107; - }; - const Kind$Parser$letforrange$with = x0 => x1 => Kind$Parser$letforrange$with$(x0, x1); - - function Kind$Parser$letforrange$u32$with$(_body$1) { - var $3356 = Kind$Parser$letforrange$with$("U32", _body$1); - return $3356; - }; - const Kind$Parser$letforrange$u32$with = x0 => Kind$Parser$letforrange$u32$with$(x0); - - function Kind$Parser$letforrange$i32$(_body$1) { - var $3357 = Kind$Parser$letforrange$("I32", _body$1); - return $3357; - }; - const Kind$Parser$letforrange$i32 = x0 => Kind$Parser$letforrange$i32$(x0); - - function Kind$Parser$letforrange$i32$with$(_body$1) { - var $3358 = Kind$Parser$letforrange$with$("I32", _body$1); - return $3358; - }; - const Kind$Parser$letforrange$i32$with = x0 => Kind$Parser$letforrange$i32$with$(x0); - - function Kind$Parser$letforrange$nat$(_body$1) { - var $3359 = Kind$Parser$block("let-for")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $3361 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $3363 = self.err; - var self = $3361; - switch (self._) { - case 'Maybe.some': - var $3365 = self.value; - var $3366 = Parser$Reply$error$(Parser$Error$combine$($3365, $3363)); - var $3364 = $3366; - break; - case 'Maybe.none': - var $3367 = Parser$Reply$error$($3363); - var $3364 = $3367; - break; - }; - var $3362 = $3364; - break; - case 'Parser.Reply.value': - var $3368 = self.pst; - var self = $3368; - switch (self._) { - case 'Parser.State.new': - var $3370 = self.err; - var $3371 = self.nam; - var $3372 = self.ini; - var $3373 = self.idx; - var $3374 = self.str; - var $3375 = ((console.log(("FALTANDO " + $3374)), (_$16 => { - var $3376 = ((console.log(("VALUE " + $3371)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($3361, $3370), $3371, $3372, $3373, $3374); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $3378 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $3380 = self.err; - var self = $3378; - switch (self._) { - case 'Maybe.some': - var $3382 = self.value; - var $3383 = Parser$Reply$error$(Parser$Error$combine$($3382, $3380)); - var $3381 = $3383; - break; - case 'Maybe.none': - var $3384 = Parser$Reply$error$($3380); - var $3381 = $3384; - break; - }; - var $3379 = $3381; - break; - case 'Parser.Reply.value': - var $3385 = self.pst; - var $3386 = self.val; - var self = $3385; - switch (self._) { - case 'Parser.State.new': - var $3388 = self.err; - var $3389 = self.nam; - var $3390 = self.ini; - var $3391 = self.idx; - var $3392 = self.str; - var $3393 = ((console.log(("FALTANDO " + $3392)), (_$32 => { - var $3394 = ((console.log(("VALUE " + $3389)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($3378, $3388), $3389, $3390, $3391, $3392); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $3396 = self.err; - var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $3398 = self.err; - var self = $3396; - switch (self._) { - case 'Maybe.some': - var $3400 = self.value; - var $3401 = Parser$Reply$error$(Parser$Error$combine$($3400, $3398)); - var $3399 = $3401; - break; - case 'Maybe.none': - var $3402 = Parser$Reply$error$($3398); - var $3399 = $3402; - break; - }; - var $3397 = $3399; - break; - case 'Parser.Reply.value': - var $3403 = self.pst; - var self = $3403; - switch (self._) { - case 'Parser.State.new': - var $3405 = self.err; - var $3406 = self.nam; - var $3407 = self.ini; - var $3408 = self.idx; - var $3409 = self.str; - var $3410 = ((console.log(("FALTANDO " + $3409)), (_$48 => { - var $3411 = ((console.log(("VALUE " + $3406)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($3396, $3405), $3406, $3407, $3408, $3409); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $3413 = self.err; - var _reply$56 = Kind$Parser$text$("for ", _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $3415 = self.err; - var self = $3413; - switch (self._) { - case 'Maybe.some': - var $3417 = self.value; - var $3418 = Parser$Reply$error$(Parser$Error$combine$($3417, $3415)); - var $3416 = $3418; - break; - case 'Maybe.none': - var $3419 = Parser$Reply$error$($3415); - var $3416 = $3419; - break; - }; - var $3414 = $3416; - break; - case 'Parser.Reply.value': - var $3420 = self.pst; - var self = $3420; - switch (self._) { - case 'Parser.State.new': - var $3422 = self.err; - var $3423 = self.nam; - var $3424 = self.ini; - var $3425 = self.idx; - var $3426 = self.str; - var $3427 = ((console.log(("FALTANDO " + $3426)), (_$64 => { - var $3428 = ((console.log(("VALUE " + $3423)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($3413, $3422), $3423, $3424, $3425, $3426); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $3430 = self.err; - var _reply$72 = Kind$Parser$name1$(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $3432 = self.err; - var self = $3430; - switch (self._) { - case 'Maybe.some': - var $3434 = self.value; - var $3435 = Parser$Reply$error$(Parser$Error$combine$($3434, $3432)); - var $3433 = $3435; - break; - case 'Maybe.none': - var $3436 = Parser$Reply$error$($3432); - var $3433 = $3436; - break; - }; - var $3431 = $3433; - break; - case 'Parser.Reply.value': - var $3437 = self.pst; - var $3438 = self.val; - var self = $3437; - switch (self._) { - case 'Parser.State.new': - var $3440 = self.err; - var $3441 = self.nam; - var $3442 = self.ini; - var $3443 = self.idx; - var $3444 = self.str; - var $3445 = ((console.log(("FALTANDO " + $3444)), (_$80 => { - var $3446 = ((console.log(("VALUE " + $3441)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($3430, $3440), $3441, $3442, $3443, $3444); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $3448 = self.err; - var _reply$88 = Kind$Parser$text$("from", _reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $3450 = self.err; - var self = $3448; - switch (self._) { - case 'Maybe.some': - var $3452 = self.value; - var $3453 = Parser$Reply$error$(Parser$Error$combine$($3452, $3450)); - var $3451 = $3453; - break; - case 'Maybe.none': - var $3454 = Parser$Reply$error$($3450); - var $3451 = $3454; - break; - }; - var $3449 = $3451; - break; - case 'Parser.Reply.value': - var $3455 = self.pst; - var self = $3455; - switch (self._) { - case 'Parser.State.new': - var $3457 = self.err; - var $3458 = self.nam; - var $3459 = self.ini; - var $3460 = self.idx; - var $3461 = self.str; - var $3462 = ((console.log(("FALTANDO " + $3461)), (_$96 => { - var $3463 = ((console.log(("VALUE " + $3458)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($3448, $3457), $3458, $3459, $3460, $3461); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $3465 = self.err; - var _reply$104 = Kind$Parser$term(_reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $3467 = self.err; - var self = $3465; - switch (self._) { - case 'Maybe.some': - var $3469 = self.value; - var $3470 = Parser$Reply$error$(Parser$Error$combine$($3469, $3467)); - var $3468 = $3470; - break; - case 'Maybe.none': - var $3471 = Parser$Reply$error$($3467); - var $3468 = $3471; - break; - }; - var $3466 = $3468; - break; - case 'Parser.Reply.value': - var $3472 = self.pst; - var $3473 = self.val; - var self = $3472; - switch (self._) { - case 'Parser.State.new': - var $3475 = self.err; - var $3476 = self.nam; - var $3477 = self.ini; - var $3478 = self.idx; - var $3479 = self.str; - var $3480 = ((console.log(("FALTANDO " + $3479)), (_$112 => { - var $3481 = ((console.log(("VALUE " + $3476)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3465, $3475), $3476, $3477, $3478, $3479); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $3483 = self.err; - var _reply$120 = Kind$Parser$text$("to", _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $3485 = self.err; - var self = $3483; - switch (self._) { - case 'Maybe.some': - var $3487 = self.value; - var $3488 = Parser$Reply$error$(Parser$Error$combine$($3487, $3485)); - var $3486 = $3488; - break; - case 'Maybe.none': - var $3489 = Parser$Reply$error$($3485); - var $3486 = $3489; - break; - }; - var $3484 = $3486; - break; - case 'Parser.Reply.value': - var $3490 = self.pst; - var self = $3490; - switch (self._) { - case 'Parser.State.new': - var $3492 = self.err; - var $3493 = self.nam; - var $3494 = self.ini; - var $3495 = self.idx; - var $3496 = self.str; - var $3497 = ((console.log(("FALTANDO " + $3496)), (_$128 => { - var $3498 = ((console.log(("VALUE " + $3493)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($3483, $3492), $3493, $3494, $3495, $3496); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $3500 = self.err; - var _reply$136 = Kind$Parser$term(_reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $3502 = self.err; - var self = $3500; - switch (self._) { - case 'Maybe.some': - var $3504 = self.value; - var $3505 = Parser$Reply$error$(Parser$Error$combine$($3504, $3502)); - var $3503 = $3505; - break; - case 'Maybe.none': - var $3506 = Parser$Reply$error$($3502); - var $3503 = $3506; - break; - }; - var $3501 = $3503; - break; - case 'Parser.Reply.value': - var $3507 = self.pst; - var $3508 = self.val; - var self = $3507; - switch (self._) { - case 'Parser.State.new': - var $3510 = self.err; - var $3511 = self.nam; - var $3512 = self.ini; - var $3513 = self.idx; - var $3514 = self.str; - var $3515 = ((console.log(("FALTANDO " + $3514)), (_$144 => { - var $3516 = ((console.log(("VALUE " + $3511)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($3500, $3510), $3511, $3512, $3513, $3514); - var self = _reply$pst$146; - switch (self._) { - case 'Parser.State.new': - var $3518 = self.err; - var _reply$152 = Kind$Parser$text$(":", _reply$pst$146); - var self = _reply$152; - switch (self._) { - case 'Parser.Reply.error': - var $3520 = self.err; - var self = $3518; - switch (self._) { - case 'Maybe.some': - var $3522 = self.value; - var $3523 = Parser$Reply$error$(Parser$Error$combine$($3522, $3520)); - var $3521 = $3523; - break; - case 'Maybe.none': - var $3524 = Parser$Reply$error$($3520); - var $3521 = $3524; - break; - }; - var $3519 = $3521; - break; - case 'Parser.Reply.value': - var $3525 = self.pst; - var self = $3525; - switch (self._) { - case 'Parser.State.new': - var $3527 = self.err; - var $3528 = self.nam; - var $3529 = self.ini; - var $3530 = self.idx; - var $3531 = self.str; - var $3532 = ((console.log(("FALTANDO " + $3531)), (_$160 => { - var $3533 = ((console.log(("VALUE " + $3528)), (_$161 => { - var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($3518, $3527), $3528, $3529, $3530, $3531); - var self = _reply$pst$162; - switch (self._) { - case 'Parser.State.new': - var $3535 = self.err; - var _reply$168 = Kind$Parser$term(_reply$pst$162); - var self = _reply$168; - switch (self._) { - case 'Parser.Reply.error': - var $3537 = self.err; - var self = $3535; - switch (self._) { - case 'Maybe.some': - var $3539 = self.value; - var $3540 = Parser$Reply$error$(Parser$Error$combine$($3539, $3537)); - var $3538 = $3540; - break; - case 'Maybe.none': - var $3541 = Parser$Reply$error$($3537); - var $3538 = $3541; - break; - }; - var $3536 = $3538; - break; - case 'Parser.Reply.value': - var $3542 = self.pst; - var $3543 = self.val; - var self = $3542; - switch (self._) { - case 'Parser.State.new': - var $3545 = self.err; - var $3546 = self.nam; - var $3547 = self.ini; - var $3548 = self.idx; - var $3549 = self.str; - var $3550 = ((console.log(("FALTANDO " + $3549)), (_$176 => { - var $3551 = ((console.log(("VALUE " + $3546)), (_$177 => { - var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($3535, $3545), $3546, $3547, $3548, $3549); - var self = _reply$pst$178; - switch (self._) { - case 'Parser.State.new': - var $3553 = self.err; - var _reply$184 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$178); - var self = _reply$184; - switch (self._) { - case 'Parser.Reply.error': - var $3555 = self.err; - var self = $3553; - switch (self._) { - case 'Maybe.some': - var $3557 = self.value; - var $3558 = Parser$Reply$error$(Parser$Error$combine$($3557, $3555)); - var $3556 = $3558; - break; - case 'Maybe.none': - var $3559 = Parser$Reply$error$($3555); - var $3556 = $3559; - break; - }; - var $3554 = $3556; - break; - case 'Parser.Reply.value': - var $3560 = self.pst; - var self = $3560; - switch (self._) { - case 'Parser.State.new': - var $3562 = self.err; - var $3563 = self.nam; - var $3564 = self.ini; - var $3565 = self.idx; - var $3566 = self.str; - var $3567 = ((console.log(("FALTANDO " + $3566)), (_$192 => { - var $3568 = ((console.log(("VALUE " + $3563)), (_$193 => { - var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($3553, $3562), $3563, $3564, $3565, $3566); - var self = _reply$pst$194; - switch (self._) { - case 'Parser.State.new': - var $3570 = self.err; - var _reply$200 = _body$1(Unit$new)(_reply$pst$194); - var self = _reply$200; - switch (self._) { - case 'Parser.Reply.error': - var $3572 = self.err; - var self = $3570; - switch (self._) { - case 'Maybe.some': - var $3574 = self.value; - var $3575 = Parser$Reply$error$(Parser$Error$combine$($3574, $3572)); - var $3573 = $3575; - break; - case 'Maybe.none': - var $3576 = Parser$Reply$error$($3572); - var $3573 = $3576; - break; - }; - var $3571 = $3573; - break; - case 'Parser.Reply.value': - var $3577 = self.pst; - var $3578 = self.val; - var self = $3577; - switch (self._) { - case 'Parser.State.new': - var $3580 = self.err; - var $3581 = self.nam; - var $3582 = self.ini; - var $3583 = self.idx; - var $3584 = self.str; - var $3585 = ((console.log(("FALTANDO " + $3584)), (_$208 => { - var $3586 = ((console.log(("VALUE " + $3581)), (_$209 => { - var _reply$pst$210 = Parser$State$new$(Parser$Error$maybe_combine$($3570, $3580), $3581, $3582, $3583, $3584); - var _term$211 = Kind$Term$ref$("Nat.for"); - var _term$212 = Kind$Term$app$(_term$211, Kind$Term$hol$(Bits$e)); - var _term$213 = Kind$Term$app$(_term$212, Kind$Term$ref$($3386)); - var _term$214 = Kind$Term$app$(_term$213, $3473); - var _term$215 = Kind$Term$app$(_term$214, $3508); - var _lamb$216 = Kind$Term$lam$($3438, (_e$216 => { - var $3588 = Kind$Term$lam$($3386, (_s$217 => { - var $3589 = $3543; - return $3589; - })); - return $3588; - })); - var _term$217 = Kind$Term$app$(_term$215, _lamb$216); - var _term$218 = Kind$Term$let$($3386, _term$217, (_x$218 => { - var $3590 = $3578; - return $3590; - })); - var $3587 = Parser$Reply$value$(_reply$pst$210, _term$218); - return $3587; - })())); - return $3586; - })())); - var $3579 = $3585; - break; - }; - var $3571 = $3579; - break; - }; - var $3569 = $3571; - break; - }; - return $3569; - })())); - return $3568; - })())); - var $3561 = $3567; - break; - }; - var $3554 = $3561; - break; - }; - var $3552 = $3554; - break; - }; - return $3552; - })())); - return $3551; - })())); - var $3544 = $3550; - break; - }; - var $3536 = $3544; - break; - }; - var $3534 = $3536; - break; - }; - return $3534; - })())); - return $3533; - })())); - var $3526 = $3532; - break; - }; - var $3519 = $3526; - break; - }; - var $3517 = $3519; - break; - }; - return $3517; - })())); - return $3516; - })())); - var $3509 = $3515; - break; - }; - var $3501 = $3509; - break; - }; - var $3499 = $3501; - break; - }; - return $3499; - })())); - return $3498; - })())); - var $3491 = $3497; - break; - }; - var $3484 = $3491; - break; - }; - var $3482 = $3484; - break; - }; - return $3482; - })())); - return $3481; - })())); - var $3474 = $3480; - break; - }; - var $3466 = $3474; - break; - }; - var $3464 = $3466; - break; - }; - return $3464; - })())); - return $3463; - })())); - var $3456 = $3462; - break; - }; - var $3449 = $3456; - break; - }; - var $3447 = $3449; - break; - }; - return $3447; - })())); - return $3446; - })())); - var $3439 = $3445; - break; - }; - var $3431 = $3439; - break; - }; - var $3429 = $3431; - break; - }; - return $3429; - })())); - return $3428; - })())); - var $3421 = $3427; - break; - }; - var $3414 = $3421; - break; - }; - var $3412 = $3414; - break; - }; - return $3412; - })())); - return $3411; - })())); - var $3404 = $3410; - break; - }; - var $3397 = $3404; - break; - }; - var $3395 = $3397; - break; - }; - return $3395; - })())); - return $3394; - })())); - var $3387 = $3393; - break; - }; - var $3379 = $3387; - break; - }; - var $3377 = $3379; - break; - }; - return $3377; - })())); - return $3376; - })())); - var $3369 = $3375; - break; - }; - var $3362 = $3369; - break; - }; - var $3360 = $3362; - break; - }; - return $3360; - })); - return $3359; - }; - const Kind$Parser$letforrange$nat = x0 => Kind$Parser$letforrange$nat$(x0); - - function Kind$Parser$letforrange$nat$with$(_body$1) { - var $3591 = Kind$Parser$block("for")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $3593 = self.err; - var _reply$8 = Kind$Parser$text$("for ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $3595 = self.err; - var self = $3593; - switch (self._) { - case 'Maybe.some': - var $3597 = self.value; - var $3598 = Parser$Reply$error$(Parser$Error$combine$($3597, $3595)); - var $3596 = $3598; - break; - case 'Maybe.none': - var $3599 = Parser$Reply$error$($3595); - var $3596 = $3599; - break; - }; - var $3594 = $3596; - break; - case 'Parser.Reply.value': - var $3600 = self.pst; - var self = $3600; - switch (self._) { - case 'Parser.State.new': - var $3602 = self.err; - var $3603 = self.nam; - var $3604 = self.ini; - var $3605 = self.idx; - var $3606 = self.str; - var $3607 = ((console.log(("FALTANDO " + $3606)), (_$16 => { - var $3608 = ((console.log(("VALUE " + $3603)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($3593, $3602), $3603, $3604, $3605, $3606); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $3610 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $3612 = self.err; - var self = $3610; - switch (self._) { - case 'Maybe.some': - var $3614 = self.value; - var $3615 = Parser$Reply$error$(Parser$Error$combine$($3614, $3612)); - var $3613 = $3615; - break; - case 'Maybe.none': - var $3616 = Parser$Reply$error$($3612); - var $3613 = $3616; - break; - }; - var $3611 = $3613; - break; - case 'Parser.Reply.value': - var $3617 = self.pst; - var $3618 = self.val; - var self = $3617; - switch (self._) { - case 'Parser.State.new': - var $3620 = self.err; - var $3621 = self.nam; - var $3622 = self.ini; - var $3623 = self.idx; - var $3624 = self.str; - var $3625 = ((console.log(("FALTANDO " + $3624)), (_$32 => { - var $3626 = ((console.log(("VALUE " + $3621)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($3610, $3620), $3621, $3622, $3623, $3624); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $3628 = self.err; - var _reply$40 = Kind$Parser$text$("from", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $3630 = self.err; - var self = $3628; - switch (self._) { - case 'Maybe.some': - var $3632 = self.value; - var $3633 = Parser$Reply$error$(Parser$Error$combine$($3632, $3630)); - var $3631 = $3633; - break; - case 'Maybe.none': - var $3634 = Parser$Reply$error$($3630); - var $3631 = $3634; - break; - }; - var $3629 = $3631; - break; - case 'Parser.Reply.value': - var $3635 = self.pst; - var self = $3635; - switch (self._) { - case 'Parser.State.new': - var $3637 = self.err; - var $3638 = self.nam; - var $3639 = self.ini; - var $3640 = self.idx; - var $3641 = self.str; - var $3642 = ((console.log(("FALTANDO " + $3641)), (_$48 => { - var $3643 = ((console.log(("VALUE " + $3638)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($3628, $3637), $3638, $3639, $3640, $3641); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $3645 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $3647 = self.err; - var self = $3645; - switch (self._) { - case 'Maybe.some': - var $3649 = self.value; - var $3650 = Parser$Reply$error$(Parser$Error$combine$($3649, $3647)); - var $3648 = $3650; - break; - case 'Maybe.none': - var $3651 = Parser$Reply$error$($3647); - var $3648 = $3651; - break; - }; - var $3646 = $3648; - break; - case 'Parser.Reply.value': - var $3652 = self.pst; - var $3653 = self.val; - var self = $3652; - switch (self._) { - case 'Parser.State.new': - var $3655 = self.err; - var $3656 = self.nam; - var $3657 = self.ini; - var $3658 = self.idx; - var $3659 = self.str; - var $3660 = ((console.log(("FALTANDO " + $3659)), (_$64 => { - var $3661 = ((console.log(("VALUE " + $3656)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($3645, $3655), $3656, $3657, $3658, $3659); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $3663 = self.err; - var _reply$72 = Kind$Parser$text$("to", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $3665 = self.err; - var self = $3663; - switch (self._) { - case 'Maybe.some': - var $3667 = self.value; - var $3668 = Parser$Reply$error$(Parser$Error$combine$($3667, $3665)); - var $3666 = $3668; - break; - case 'Maybe.none': - var $3669 = Parser$Reply$error$($3665); - var $3666 = $3669; - break; - }; - var $3664 = $3666; - break; - case 'Parser.Reply.value': - var $3670 = self.pst; - var self = $3670; - switch (self._) { - case 'Parser.State.new': - var $3672 = self.err; - var $3673 = self.nam; - var $3674 = self.ini; - var $3675 = self.idx; - var $3676 = self.str; - var $3677 = ((console.log(("FALTANDO " + $3676)), (_$80 => { - var $3678 = ((console.log(("VALUE " + $3673)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($3663, $3672), $3673, $3674, $3675, $3676); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $3680 = self.err; - var _reply$88 = Kind$Parser$term(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $3682 = self.err; - var self = $3680; - switch (self._) { - case 'Maybe.some': - var $3684 = self.value; - var $3685 = Parser$Reply$error$(Parser$Error$combine$($3684, $3682)); - var $3683 = $3685; - break; - case 'Maybe.none': - var $3686 = Parser$Reply$error$($3682); - var $3683 = $3686; - break; - }; - var $3681 = $3683; - break; - case 'Parser.Reply.value': - var $3687 = self.pst; - var $3688 = self.val; - var self = $3687; - switch (self._) { - case 'Parser.State.new': - var $3690 = self.err; - var $3691 = self.nam; - var $3692 = self.ini; - var $3693 = self.idx; - var $3694 = self.str; - var $3695 = ((console.log(("FALTANDO " + $3694)), (_$96 => { - var $3696 = ((console.log(("VALUE " + $3691)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($3680, $3690), $3691, $3692, $3693, $3694); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $3698 = self.err; - var _reply$104 = Kind$Parser$text$("with ", _reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $3700 = self.err; - var self = $3698; - switch (self._) { - case 'Maybe.some': - var $3702 = self.value; - var $3703 = Parser$Reply$error$(Parser$Error$combine$($3702, $3700)); - var $3701 = $3703; - break; - case 'Maybe.none': - var $3704 = Parser$Reply$error$($3700); - var $3701 = $3704; - break; - }; - var $3699 = $3701; - break; - case 'Parser.Reply.value': - var $3705 = self.pst; - var self = $3705; - switch (self._) { - case 'Parser.State.new': - var $3707 = self.err; - var $3708 = self.nam; - var $3709 = self.ini; - var $3710 = self.idx; - var $3711 = self.str; - var $3712 = ((console.log(("FALTANDO " + $3711)), (_$112 => { - var $3713 = ((console.log(("VALUE " + $3708)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3698, $3707), $3708, $3709, $3710, $3711); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $3715 = self.err; - var _reply$120 = Kind$Parser$name1$(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $3717 = self.err; - var self = $3715; - switch (self._) { - case 'Maybe.some': - var $3719 = self.value; - var $3720 = Parser$Reply$error$(Parser$Error$combine$($3719, $3717)); - var $3718 = $3720; - break; - case 'Maybe.none': - var $3721 = Parser$Reply$error$($3717); - var $3718 = $3721; - break; - }; - var $3716 = $3718; - break; - case 'Parser.Reply.value': - var $3722 = self.pst; - var $3723 = self.val; - var self = $3722; - switch (self._) { - case 'Parser.State.new': - var $3725 = self.err; - var $3726 = self.nam; - var $3727 = self.ini; - var $3728 = self.idx; - var $3729 = self.str; - var $3730 = ((console.log(("FALTANDO " + $3729)), (_$128 => { - var $3731 = ((console.log(("VALUE " + $3726)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($3715, $3725), $3726, $3727, $3728, $3729); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $3733 = self.err; - var _reply$136 = Kind$Parser$text$(":", _reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $3735 = self.err; - var self = $3733; - switch (self._) { - case 'Maybe.some': - var $3737 = self.value; - var $3738 = Parser$Reply$error$(Parser$Error$combine$($3737, $3735)); - var $3736 = $3738; - break; - case 'Maybe.none': - var $3739 = Parser$Reply$error$($3735); - var $3736 = $3739; - break; - }; - var $3734 = $3736; - break; - case 'Parser.Reply.value': - var $3740 = self.pst; - var self = $3740; - switch (self._) { - case 'Parser.State.new': - var $3742 = self.err; - var $3743 = self.nam; - var $3744 = self.ini; - var $3745 = self.idx; - var $3746 = self.str; - var $3747 = ((console.log(("FALTANDO " + $3746)), (_$144 => { - var $3748 = ((console.log(("VALUE " + $3743)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($3733, $3742), $3743, $3744, $3745, $3746); - var self = _reply$pst$146; - switch (self._) { - case 'Parser.State.new': - var $3750 = self.err; - var _reply$152 = Kind$Parser$term(_reply$pst$146); - var self = _reply$152; - switch (self._) { - case 'Parser.Reply.error': - var $3752 = self.err; - var self = $3750; - switch (self._) { - case 'Maybe.some': - var $3754 = self.value; - var $3755 = Parser$Reply$error$(Parser$Error$combine$($3754, $3752)); - var $3753 = $3755; - break; - case 'Maybe.none': - var $3756 = Parser$Reply$error$($3752); - var $3753 = $3756; - break; - }; - var $3751 = $3753; - break; - case 'Parser.Reply.value': - var $3757 = self.pst; - var $3758 = self.val; - var self = $3757; - switch (self._) { - case 'Parser.State.new': - var $3760 = self.err; - var $3761 = self.nam; - var $3762 = self.ini; - var $3763 = self.idx; - var $3764 = self.str; - var $3765 = ((console.log(("FALTANDO " + $3764)), (_$160 => { - var $3766 = ((console.log(("VALUE " + $3761)), (_$161 => { - var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($3750, $3760), $3761, $3762, $3763, $3764); - var self = _reply$pst$162; - switch (self._) { - case 'Parser.State.new': - var $3768 = self.err; - var _reply$168 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$162); - var self = _reply$168; - switch (self._) { - case 'Parser.Reply.error': - var $3770 = self.err; - var self = $3768; - switch (self._) { - case 'Maybe.some': - var $3772 = self.value; - var $3773 = Parser$Reply$error$(Parser$Error$combine$($3772, $3770)); - var $3771 = $3773; - break; - case 'Maybe.none': - var $3774 = Parser$Reply$error$($3770); - var $3771 = $3774; - break; - }; - var $3769 = $3771; - break; - case 'Parser.Reply.value': - var $3775 = self.pst; - var self = $3775; - switch (self._) { - case 'Parser.State.new': - var $3777 = self.err; - var $3778 = self.nam; - var $3779 = self.ini; - var $3780 = self.idx; - var $3781 = self.str; - var $3782 = ((console.log(("FALTANDO " + $3781)), (_$176 => { - var $3783 = ((console.log(("VALUE " + $3778)), (_$177 => { - var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($3768, $3777), $3778, $3779, $3780, $3781); - var self = _reply$pst$178; - switch (self._) { - case 'Parser.State.new': - var $3785 = self.err; - var _reply$184 = _body$1(Unit$new)(_reply$pst$178); - var self = _reply$184; - switch (self._) { - case 'Parser.Reply.error': - var $3787 = self.err; - var self = $3785; - switch (self._) { - case 'Maybe.some': - var $3789 = self.value; - var $3790 = Parser$Reply$error$(Parser$Error$combine$($3789, $3787)); - var $3788 = $3790; - break; - case 'Maybe.none': - var $3791 = Parser$Reply$error$($3787); - var $3788 = $3791; - break; - }; - var $3786 = $3788; - break; - case 'Parser.Reply.value': - var $3792 = self.pst; - var $3793 = self.val; - var self = $3792; - switch (self._) { - case 'Parser.State.new': - var $3795 = self.err; - var $3796 = self.nam; - var $3797 = self.ini; - var $3798 = self.idx; - var $3799 = self.str; - var $3800 = ((console.log(("FALTANDO " + $3799)), (_$192 => { - var $3801 = ((console.log(("VALUE " + $3796)), (_$193 => { - var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($3785, $3795), $3796, $3797, $3798, $3799); - var _term$195 = Kind$Term$ref$("Nat.for"); - var _term$196 = Kind$Term$app$(_term$195, Kind$Term$hol$(Bits$e)); - var _term$197 = Kind$Term$app$(_term$196, Kind$Term$ref$($3723)); - var _term$198 = Kind$Term$app$(_term$197, $3653); - var _term$199 = Kind$Term$app$(_term$198, $3688); - var _lamb$200 = Kind$Term$lam$($3618, (_e$200 => { - var $3803 = Kind$Term$lam$($3723, (_s$201 => { - var $3804 = $3758; - return $3804; - })); - return $3803; - })); - var _term$201 = Kind$Term$app$(_term$199, _lamb$200); - var _term$202 = Kind$Term$let$($3723, _term$201, (_x$202 => { - var $3805 = $3793; - return $3805; - })); - var $3802 = Parser$Reply$value$(_reply$pst$194, _term$202); - return $3802; - })())); - return $3801; - })())); - var $3794 = $3800; - break; - }; - var $3786 = $3794; - break; - }; - var $3784 = $3786; - break; - }; - return $3784; - })())); - return $3783; - })())); - var $3776 = $3782; - break; - }; - var $3769 = $3776; - break; - }; - var $3767 = $3769; - break; - }; - return $3767; - })())); - return $3766; - })())); - var $3759 = $3765; - break; - }; - var $3751 = $3759; - break; - }; - var $3749 = $3751; - break; - }; - return $3749; - })())); - return $3748; - })())); - var $3741 = $3747; - break; - }; - var $3734 = $3741; - break; - }; - var $3732 = $3734; - break; - }; - return $3732; - })())); - return $3731; - })())); - var $3724 = $3730; - break; - }; - var $3716 = $3724; - break; - }; - var $3714 = $3716; - break; - }; - return $3714; - })())); - return $3713; - })())); - var $3706 = $3712; - break; - }; - var $3699 = $3706; - break; - }; - var $3697 = $3699; - break; - }; - return $3697; - })())); - return $3696; - })())); - var $3689 = $3695; - break; - }; - var $3681 = $3689; - break; - }; - var $3679 = $3681; - break; - }; - return $3679; - })())); - return $3678; - })())); - var $3671 = $3677; - break; - }; - var $3664 = $3671; - break; - }; - var $3662 = $3664; - break; - }; - return $3662; - })())); - return $3661; - })())); - var $3654 = $3660; - break; - }; - var $3646 = $3654; - break; - }; - var $3644 = $3646; - break; - }; - return $3644; - })())); - return $3643; - })())); - var $3636 = $3642; - break; - }; - var $3629 = $3636; - break; - }; - var $3627 = $3629; - break; - }; - return $3627; - })())); - return $3626; - })())); - var $3619 = $3625; - break; - }; - var $3611 = $3619; - break; - }; - var $3609 = $3611; - break; - }; - return $3609; - })())); - return $3608; - })())); - var $3601 = $3607; - break; - }; - var $3594 = $3601; - break; - }; - var $3592 = $3594; - break; - }; - return $3592; - })); - return $3591; - }; - const Kind$Parser$letforrange$nat$with = x0 => Kind$Parser$letforrange$nat$with$(x0); - - function Kind$Parser$letforin$(_body$1) { - var $3806 = Kind$Parser$block("let-for")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $3808 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $3810 = self.err; - var self = $3808; - switch (self._) { - case 'Maybe.some': - var $3812 = self.value; - var $3813 = Parser$Reply$error$(Parser$Error$combine$($3812, $3810)); - var $3811 = $3813; - break; - case 'Maybe.none': - var $3814 = Parser$Reply$error$($3810); - var $3811 = $3814; - break; - }; - var $3809 = $3811; - break; - case 'Parser.Reply.value': - var $3815 = self.pst; - var self = $3815; - switch (self._) { - case 'Parser.State.new': - var $3817 = self.err; - var $3818 = self.nam; - var $3819 = self.ini; - var $3820 = self.idx; - var $3821 = self.str; - var $3822 = ((console.log(("FALTANDO " + $3821)), (_$16 => { - var $3823 = ((console.log(("VALUE " + $3818)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($3808, $3817), $3818, $3819, $3820, $3821); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $3825 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $3827 = self.err; - var self = $3825; - switch (self._) { - case 'Maybe.some': - var $3829 = self.value; - var $3830 = Parser$Reply$error$(Parser$Error$combine$($3829, $3827)); - var $3828 = $3830; - break; - case 'Maybe.none': - var $3831 = Parser$Reply$error$($3827); - var $3828 = $3831; - break; - }; - var $3826 = $3828; - break; - case 'Parser.Reply.value': - var $3832 = self.pst; - var $3833 = self.val; - var self = $3832; - switch (self._) { - case 'Parser.State.new': - var $3835 = self.err; - var $3836 = self.nam; - var $3837 = self.ini; - var $3838 = self.idx; - var $3839 = self.str; - var $3840 = ((console.log(("FALTANDO " + $3839)), (_$32 => { - var $3841 = ((console.log(("VALUE " + $3836)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($3825, $3835), $3836, $3837, $3838, $3839); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $3843 = self.err; - var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $3845 = self.err; - var self = $3843; - switch (self._) { - case 'Maybe.some': - var $3847 = self.value; - var $3848 = Parser$Reply$error$(Parser$Error$combine$($3847, $3845)); - var $3846 = $3848; - break; - case 'Maybe.none': - var $3849 = Parser$Reply$error$($3845); - var $3846 = $3849; - break; - }; - var $3844 = $3846; - break; - case 'Parser.Reply.value': - var $3850 = self.pst; - var self = $3850; - switch (self._) { - case 'Parser.State.new': - var $3852 = self.err; - var $3853 = self.nam; - var $3854 = self.ini; - var $3855 = self.idx; - var $3856 = self.str; - var $3857 = ((console.log(("FALTANDO " + $3856)), (_$48 => { - var $3858 = ((console.log(("VALUE " + $3853)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($3843, $3852), $3853, $3854, $3855, $3856); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $3860 = self.err; - var _reply$56 = Kind$Parser$text$("for ", _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $3862 = self.err; - var self = $3860; - switch (self._) { - case 'Maybe.some': - var $3864 = self.value; - var $3865 = Parser$Reply$error$(Parser$Error$combine$($3864, $3862)); - var $3863 = $3865; - break; - case 'Maybe.none': - var $3866 = Parser$Reply$error$($3862); - var $3863 = $3866; - break; - }; - var $3861 = $3863; - break; - case 'Parser.Reply.value': - var $3867 = self.pst; - var self = $3867; - switch (self._) { - case 'Parser.State.new': - var $3869 = self.err; - var $3870 = self.nam; - var $3871 = self.ini; - var $3872 = self.idx; - var $3873 = self.str; - var $3874 = ((console.log(("FALTANDO " + $3873)), (_$64 => { - var $3875 = ((console.log(("VALUE " + $3870)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($3860, $3869), $3870, $3871, $3872, $3873); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $3877 = self.err; - var _reply$72 = Kind$Parser$name1$(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $3879 = self.err; - var self = $3877; - switch (self._) { - case 'Maybe.some': - var $3881 = self.value; - var $3882 = Parser$Reply$error$(Parser$Error$combine$($3881, $3879)); - var $3880 = $3882; - break; - case 'Maybe.none': - var $3883 = Parser$Reply$error$($3879); - var $3880 = $3883; - break; - }; - var $3878 = $3880; - break; - case 'Parser.Reply.value': - var $3884 = self.pst; - var $3885 = self.val; - var self = $3884; - switch (self._) { - case 'Parser.State.new': - var $3887 = self.err; - var $3888 = self.nam; - var $3889 = self.ini; - var $3890 = self.idx; - var $3891 = self.str; - var $3892 = ((console.log(("FALTANDO " + $3891)), (_$80 => { - var $3893 = ((console.log(("VALUE " + $3888)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($3877, $3887), $3888, $3889, $3890, $3891); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $3895 = self.err; - var _reply$88 = Kind$Parser$text$("in", _reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $3897 = self.err; - var self = $3895; - switch (self._) { - case 'Maybe.some': - var $3899 = self.value; - var $3900 = Parser$Reply$error$(Parser$Error$combine$($3899, $3897)); - var $3898 = $3900; - break; - case 'Maybe.none': - var $3901 = Parser$Reply$error$($3897); - var $3898 = $3901; - break; - }; - var $3896 = $3898; - break; - case 'Parser.Reply.value': - var $3902 = self.pst; - var self = $3902; - switch (self._) { - case 'Parser.State.new': - var $3904 = self.err; - var $3905 = self.nam; - var $3906 = self.ini; - var $3907 = self.idx; - var $3908 = self.str; - var $3909 = ((console.log(("FALTANDO " + $3908)), (_$96 => { - var $3910 = ((console.log(("VALUE " + $3905)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($3895, $3904), $3905, $3906, $3907, $3908); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $3912 = self.err; - var _reply$104 = Kind$Parser$term(_reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $3914 = self.err; - var self = $3912; - switch (self._) { - case 'Maybe.some': - var $3916 = self.value; - var $3917 = Parser$Reply$error$(Parser$Error$combine$($3916, $3914)); - var $3915 = $3917; - break; - case 'Maybe.none': - var $3918 = Parser$Reply$error$($3914); - var $3915 = $3918; - break; - }; - var $3913 = $3915; - break; - case 'Parser.Reply.value': - var $3919 = self.pst; - var $3920 = self.val; - var self = $3919; - switch (self._) { - case 'Parser.State.new': - var $3922 = self.err; - var $3923 = self.nam; - var $3924 = self.ini; - var $3925 = self.idx; - var $3926 = self.str; - var $3927 = ((console.log(("FALTANDO " + $3926)), (_$112 => { - var $3928 = ((console.log(("VALUE " + $3923)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($3912, $3922), $3923, $3924, $3925, $3926); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $3930 = self.err; - var _reply$120 = Kind$Parser$text$(":", _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $3932 = self.err; - var self = $3930; - switch (self._) { - case 'Maybe.some': - var $3934 = self.value; - var $3935 = Parser$Reply$error$(Parser$Error$combine$($3934, $3932)); - var $3933 = $3935; - break; - case 'Maybe.none': - var $3936 = Parser$Reply$error$($3932); - var $3933 = $3936; - break; - }; - var $3931 = $3933; - break; - case 'Parser.Reply.value': - var $3937 = self.pst; - var self = $3937; - switch (self._) { - case 'Parser.State.new': - var $3939 = self.err; - var $3940 = self.nam; - var $3941 = self.ini; - var $3942 = self.idx; - var $3943 = self.str; - var $3944 = ((console.log(("FALTANDO " + $3943)), (_$128 => { - var $3945 = ((console.log(("VALUE " + $3940)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($3930, $3939), $3940, $3941, $3942, $3943); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $3947 = self.err; - var _reply$136 = Kind$Parser$term(_reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $3949 = self.err; - var self = $3947; - switch (self._) { - case 'Maybe.some': - var $3951 = self.value; - var $3952 = Parser$Reply$error$(Parser$Error$combine$($3951, $3949)); - var $3950 = $3952; - break; - case 'Maybe.none': - var $3953 = Parser$Reply$error$($3949); - var $3950 = $3953; - break; - }; - var $3948 = $3950; - break; - case 'Parser.Reply.value': - var $3954 = self.pst; - var $3955 = self.val; - var self = $3954; - switch (self._) { - case 'Parser.State.new': - var $3957 = self.err; - var $3958 = self.nam; - var $3959 = self.ini; - var $3960 = self.idx; - var $3961 = self.str; - var $3962 = ((console.log(("FALTANDO " + $3961)), (_$144 => { - var $3963 = ((console.log(("VALUE " + $3958)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($3947, $3957), $3958, $3959, $3960, $3961); - var self = _reply$pst$146; - switch (self._) { - case 'Parser.State.new': - var $3965 = self.err; - var _reply$152 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$146); - var self = _reply$152; - switch (self._) { - case 'Parser.Reply.error': - var $3967 = self.err; - var self = $3965; - switch (self._) { - case 'Maybe.some': - var $3969 = self.value; - var $3970 = Parser$Reply$error$(Parser$Error$combine$($3969, $3967)); - var $3968 = $3970; - break; - case 'Maybe.none': - var $3971 = Parser$Reply$error$($3967); - var $3968 = $3971; - break; - }; - var $3966 = $3968; - break; - case 'Parser.Reply.value': - var $3972 = self.pst; - var self = $3972; - switch (self._) { - case 'Parser.State.new': - var $3974 = self.err; - var $3975 = self.nam; - var $3976 = self.ini; - var $3977 = self.idx; - var $3978 = self.str; - var $3979 = ((console.log(("FALTANDO " + $3978)), (_$160 => { - var $3980 = ((console.log(("VALUE " + $3975)), (_$161 => { - var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($3965, $3974), $3975, $3976, $3977, $3978); - var self = _reply$pst$162; - switch (self._) { - case 'Parser.State.new': - var $3982 = self.err; - var _reply$168 = _body$1(Unit$new)(_reply$pst$162); - var self = _reply$168; - switch (self._) { - case 'Parser.Reply.error': - var $3984 = self.err; - var self = $3982; - switch (self._) { - case 'Maybe.some': - var $3986 = self.value; - var $3987 = Parser$Reply$error$(Parser$Error$combine$($3986, $3984)); - var $3985 = $3987; - break; - case 'Maybe.none': - var $3988 = Parser$Reply$error$($3984); - var $3985 = $3988; - break; - }; - var $3983 = $3985; - break; - case 'Parser.Reply.value': - var $3989 = self.pst; - var $3990 = self.val; - var self = $3989; - switch (self._) { - case 'Parser.State.new': - var $3992 = self.err; - var $3993 = self.nam; - var $3994 = self.ini; - var $3995 = self.idx; - var $3996 = self.str; - var $3997 = ((console.log(("FALTANDO " + $3996)), (_$176 => { - var $3998 = ((console.log(("VALUE " + $3993)), (_$177 => { - var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($3982, $3992), $3993, $3994, $3995, $3996); - var _term$179 = Kind$Term$ref$("List.for"); - var _term$180 = Kind$Term$app$(_term$179, Kind$Term$hol$(Bits$e)); - var _term$181 = Kind$Term$app$(_term$180, $3920); - var _term$182 = Kind$Term$app$(_term$181, Kind$Term$hol$(Bits$e)); - var _term$183 = Kind$Term$app$(_term$182, Kind$Term$ref$($3833)); - var _lamb$184 = Kind$Term$lam$($3885, (_i$184 => { - var $4000 = Kind$Term$lam$($3833, (_x$185 => { - var $4001 = $3955; - return $4001; - })); - return $4000; - })); - var _term$185 = Kind$Term$app$(_term$183, _lamb$184); - var _term$186 = Kind$Term$let$($3833, _term$185, (_x$186 => { - var $4002 = $3990; - return $4002; - })); - var $3999 = Parser$Reply$value$(_reply$pst$178, _term$186); - return $3999; - })())); - return $3998; - })())); - var $3991 = $3997; - break; - }; - var $3983 = $3991; - break; - }; - var $3981 = $3983; - break; - }; - return $3981; - })())); - return $3980; - })())); - var $3973 = $3979; - break; - }; - var $3966 = $3973; - break; - }; - var $3964 = $3966; - break; - }; - return $3964; - })())); - return $3963; - })())); - var $3956 = $3962; - break; - }; - var $3948 = $3956; - break; - }; - var $3946 = $3948; - break; - }; - return $3946; - })())); - return $3945; - })())); - var $3938 = $3944; - break; - }; - var $3931 = $3938; - break; - }; - var $3929 = $3931; - break; - }; - return $3929; - })())); - return $3928; - })())); - var $3921 = $3927; - break; - }; - var $3913 = $3921; - break; - }; - var $3911 = $3913; - break; - }; - return $3911; - })())); - return $3910; - })())); - var $3903 = $3909; - break; - }; - var $3896 = $3903; - break; - }; - var $3894 = $3896; - break; - }; - return $3894; - })())); - return $3893; - })())); - var $3886 = $3892; - break; - }; - var $3878 = $3886; - break; - }; - var $3876 = $3878; - break; - }; - return $3876; - })())); - return $3875; - })())); - var $3868 = $3874; - break; - }; - var $3861 = $3868; - break; - }; - var $3859 = $3861; - break; - }; - return $3859; - })())); - return $3858; - })())); - var $3851 = $3857; - break; - }; - var $3844 = $3851; - break; - }; - var $3842 = $3844; - break; - }; - return $3842; - })())); - return $3841; - })())); - var $3834 = $3840; - break; - }; - var $3826 = $3834; - break; - }; - var $3824 = $3826; - break; - }; - return $3824; - })())); - return $3823; - })())); - var $3816 = $3822; - break; - }; - var $3809 = $3816; - break; - }; - var $3807 = $3809; - break; - }; - return $3807; - })); - return $3806; - }; - const Kind$Parser$letforin = x0 => Kind$Parser$letforin$(x0); - - function Kind$Parser$letforin$with$(_body$1) { - var $4003 = Kind$Parser$block("for")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4005 = self.err; - var _reply$8 = Kind$Parser$text$("for ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4007 = self.err; - var self = $4005; - switch (self._) { - case 'Maybe.some': - var $4009 = self.value; - var $4010 = Parser$Reply$error$(Parser$Error$combine$($4009, $4007)); - var $4008 = $4010; - break; - case 'Maybe.none': - var $4011 = Parser$Reply$error$($4007); - var $4008 = $4011; - break; - }; - var $4006 = $4008; - break; - case 'Parser.Reply.value': - var $4012 = self.pst; - var self = $4012; - switch (self._) { - case 'Parser.State.new': - var $4014 = self.err; - var $4015 = self.nam; - var $4016 = self.ini; - var $4017 = self.idx; - var $4018 = self.str; - var $4019 = ((console.log(("FALTANDO " + $4018)), (_$16 => { - var $4020 = ((console.log(("VALUE " + $4015)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4005, $4014), $4015, $4016, $4017, $4018); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $4022 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $4024 = self.err; - var self = $4022; - switch (self._) { - case 'Maybe.some': - var $4026 = self.value; - var $4027 = Parser$Reply$error$(Parser$Error$combine$($4026, $4024)); - var $4025 = $4027; - break; - case 'Maybe.none': - var $4028 = Parser$Reply$error$($4024); - var $4025 = $4028; - break; - }; - var $4023 = $4025; - break; - case 'Parser.Reply.value': - var $4029 = self.pst; - var $4030 = self.val; - var self = $4029; - switch (self._) { - case 'Parser.State.new': - var $4032 = self.err; - var $4033 = self.nam; - var $4034 = self.ini; - var $4035 = self.idx; - var $4036 = self.str; - var $4037 = ((console.log(("FALTANDO " + $4036)), (_$32 => { - var $4038 = ((console.log(("VALUE " + $4033)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4022, $4032), $4033, $4034, $4035, $4036); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $4040 = self.err; - var _reply$40 = Kind$Parser$text$("in", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $4042 = self.err; - var self = $4040; - switch (self._) { - case 'Maybe.some': - var $4044 = self.value; - var $4045 = Parser$Reply$error$(Parser$Error$combine$($4044, $4042)); - var $4043 = $4045; - break; - case 'Maybe.none': - var $4046 = Parser$Reply$error$($4042); - var $4043 = $4046; - break; - }; - var $4041 = $4043; - break; - case 'Parser.Reply.value': - var $4047 = self.pst; - var self = $4047; - switch (self._) { - case 'Parser.State.new': - var $4049 = self.err; - var $4050 = self.nam; - var $4051 = self.ini; - var $4052 = self.idx; - var $4053 = self.str; - var $4054 = ((console.log(("FALTANDO " + $4053)), (_$48 => { - var $4055 = ((console.log(("VALUE " + $4050)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4040, $4049), $4050, $4051, $4052, $4053); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $4057 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $4059 = self.err; - var self = $4057; - switch (self._) { - case 'Maybe.some': - var $4061 = self.value; - var $4062 = Parser$Reply$error$(Parser$Error$combine$($4061, $4059)); - var $4060 = $4062; - break; - case 'Maybe.none': - var $4063 = Parser$Reply$error$($4059); - var $4060 = $4063; - break; - }; - var $4058 = $4060; - break; - case 'Parser.Reply.value': - var $4064 = self.pst; - var $4065 = self.val; - var self = $4064; - switch (self._) { - case 'Parser.State.new': - var $4067 = self.err; - var $4068 = self.nam; - var $4069 = self.ini; - var $4070 = self.idx; - var $4071 = self.str; - var $4072 = ((console.log(("FALTANDO " + $4071)), (_$64 => { - var $4073 = ((console.log(("VALUE " + $4068)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4057, $4067), $4068, $4069, $4070, $4071); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $4075 = self.err; - var _reply$72 = Kind$Parser$text$("with", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $4077 = self.err; - var self = $4075; - switch (self._) { - case 'Maybe.some': - var $4079 = self.value; - var $4080 = Parser$Reply$error$(Parser$Error$combine$($4079, $4077)); - var $4078 = $4080; - break; - case 'Maybe.none': - var $4081 = Parser$Reply$error$($4077); - var $4078 = $4081; - break; - }; - var $4076 = $4078; - break; - case 'Parser.Reply.value': - var $4082 = self.pst; - var self = $4082; - switch (self._) { - case 'Parser.State.new': - var $4084 = self.err; - var $4085 = self.nam; - var $4086 = self.ini; - var $4087 = self.idx; - var $4088 = self.str; - var $4089 = ((console.log(("FALTANDO " + $4088)), (_$80 => { - var $4090 = ((console.log(("VALUE " + $4085)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($4075, $4084), $4085, $4086, $4087, $4088); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $4092 = self.err; - var _reply$88 = Kind$Parser$name1$(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $4094 = self.err; - var self = $4092; - switch (self._) { - case 'Maybe.some': - var $4096 = self.value; - var $4097 = Parser$Reply$error$(Parser$Error$combine$($4096, $4094)); - var $4095 = $4097; - break; - case 'Maybe.none': - var $4098 = Parser$Reply$error$($4094); - var $4095 = $4098; - break; - }; - var $4093 = $4095; - break; - case 'Parser.Reply.value': - var $4099 = self.pst; - var $4100 = self.val; - var self = $4099; - switch (self._) { - case 'Parser.State.new': - var $4102 = self.err; - var $4103 = self.nam; - var $4104 = self.ini; - var $4105 = self.idx; - var $4106 = self.str; - var $4107 = ((console.log(("FALTANDO " + $4106)), (_$96 => { - var $4108 = ((console.log(("VALUE " + $4103)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($4092, $4102), $4103, $4104, $4105, $4106); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $4110 = self.err; - var _reply$104 = Kind$Parser$text$(":", _reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $4112 = self.err; - var self = $4110; - switch (self._) { - case 'Maybe.some': - var $4114 = self.value; - var $4115 = Parser$Reply$error$(Parser$Error$combine$($4114, $4112)); - var $4113 = $4115; - break; - case 'Maybe.none': - var $4116 = Parser$Reply$error$($4112); - var $4113 = $4116; - break; - }; - var $4111 = $4113; - break; - case 'Parser.Reply.value': - var $4117 = self.pst; - var self = $4117; - switch (self._) { - case 'Parser.State.new': - var $4119 = self.err; - var $4120 = self.nam; - var $4121 = self.ini; - var $4122 = self.idx; - var $4123 = self.str; - var $4124 = ((console.log(("FALTANDO " + $4123)), (_$112 => { - var $4125 = ((console.log(("VALUE " + $4120)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4110, $4119), $4120, $4121, $4122, $4123); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $4127 = self.err; - var _reply$120 = Kind$Parser$term(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $4129 = self.err; - var self = $4127; - switch (self._) { - case 'Maybe.some': - var $4131 = self.value; - var $4132 = Parser$Reply$error$(Parser$Error$combine$($4131, $4129)); - var $4130 = $4132; - break; - case 'Maybe.none': - var $4133 = Parser$Reply$error$($4129); - var $4130 = $4133; - break; - }; - var $4128 = $4130; - break; - case 'Parser.Reply.value': - var $4134 = self.pst; - var $4135 = self.val; - var self = $4134; - switch (self._) { - case 'Parser.State.new': - var $4137 = self.err; - var $4138 = self.nam; - var $4139 = self.ini; - var $4140 = self.idx; - var $4141 = self.str; - var $4142 = ((console.log(("FALTANDO " + $4141)), (_$128 => { - var $4143 = ((console.log(("VALUE " + $4138)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($4127, $4137), $4138, $4139, $4140, $4141); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $4145 = self.err; - var _reply$136 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $4147 = self.err; - var self = $4145; - switch (self._) { - case 'Maybe.some': - var $4149 = self.value; - var $4150 = Parser$Reply$error$(Parser$Error$combine$($4149, $4147)); - var $4148 = $4150; - break; - case 'Maybe.none': - var $4151 = Parser$Reply$error$($4147); - var $4148 = $4151; - break; - }; - var $4146 = $4148; - break; - case 'Parser.Reply.value': - var $4152 = self.pst; - var self = $4152; - switch (self._) { - case 'Parser.State.new': - var $4154 = self.err; - var $4155 = self.nam; - var $4156 = self.ini; - var $4157 = self.idx; - var $4158 = self.str; - var $4159 = ((console.log(("FALTANDO " + $4158)), (_$144 => { - var $4160 = ((console.log(("VALUE " + $4155)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($4145, $4154), $4155, $4156, $4157, $4158); - var self = _reply$pst$146; - switch (self._) { - case 'Parser.State.new': - var $4162 = self.err; - var _reply$152 = _body$1(Unit$new)(_reply$pst$146); - var self = _reply$152; - switch (self._) { - case 'Parser.Reply.error': - var $4164 = self.err; - var self = $4162; - switch (self._) { - case 'Maybe.some': - var $4166 = self.value; - var $4167 = Parser$Reply$error$(Parser$Error$combine$($4166, $4164)); - var $4165 = $4167; - break; - case 'Maybe.none': - var $4168 = Parser$Reply$error$($4164); - var $4165 = $4168; - break; - }; - var $4163 = $4165; - break; - case 'Parser.Reply.value': - var $4169 = self.pst; - var $4170 = self.val; - var self = $4169; - switch (self._) { - case 'Parser.State.new': - var $4172 = self.err; - var $4173 = self.nam; - var $4174 = self.ini; - var $4175 = self.idx; - var $4176 = self.str; - var $4177 = ((console.log(("FALTANDO " + $4176)), (_$160 => { - var $4178 = ((console.log(("VALUE " + $4173)), (_$161 => { - var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($4162, $4172), $4173, $4174, $4175, $4176); - var _term$163 = Kind$Term$ref$("List.for"); - var _term$164 = Kind$Term$app$(_term$163, Kind$Term$hol$(Bits$e)); - var _term$165 = Kind$Term$app$(_term$164, $4065); - var _term$166 = Kind$Term$app$(_term$165, Kind$Term$hol$(Bits$e)); - var _term$167 = Kind$Term$app$(_term$166, Kind$Term$ref$($4100)); - var _lamb$168 = Kind$Term$lam$($4030, (_i$168 => { - var $4180 = Kind$Term$lam$($4100, (_x$169 => { - var $4181 = $4135; - return $4181; - })); - return $4180; - })); - var _term$169 = Kind$Term$app$(_term$167, _lamb$168); - var _term$170 = Kind$Term$let$($4100, _term$169, (_x$170 => { - var $4182 = $4170; - return $4182; - })); - var $4179 = Parser$Reply$value$(_reply$pst$162, _term$170); - return $4179; - })())); - return $4178; - })())); - var $4171 = $4177; - break; - }; - var $4163 = $4171; - break; - }; - var $4161 = $4163; - break; - }; - return $4161; - })())); - return $4160; - })())); - var $4153 = $4159; - break; - }; - var $4146 = $4153; - break; - }; - var $4144 = $4146; - break; - }; - return $4144; - })())); - return $4143; - })())); - var $4136 = $4142; - break; - }; - var $4128 = $4136; - break; - }; - var $4126 = $4128; - break; - }; - return $4126; - })())); - return $4125; - })())); - var $4118 = $4124; - break; - }; - var $4111 = $4118; - break; - }; - var $4109 = $4111; - break; - }; - return $4109; - })())); - return $4108; - })())); - var $4101 = $4107; - break; - }; - var $4093 = $4101; - break; - }; - var $4091 = $4093; - break; - }; - return $4091; - })())); - return $4090; - })())); - var $4083 = $4089; - break; - }; - var $4076 = $4083; - break; - }; - var $4074 = $4076; - break; - }; - return $4074; - })())); - return $4073; - })())); - var $4066 = $4072; - break; - }; - var $4058 = $4066; - break; - }; - var $4056 = $4058; - break; - }; - return $4056; - })())); - return $4055; - })())); - var $4048 = $4054; - break; - }; - var $4041 = $4048; - break; - }; - var $4039 = $4041; - break; - }; - return $4039; - })())); - return $4038; - })())); - var $4031 = $4037; - break; - }; - var $4023 = $4031; - break; - }; - var $4021 = $4023; - break; - }; - return $4021; - })())); - return $4020; - })())); - var $4013 = $4019; - break; - }; - var $4006 = $4013; - break; - }; - var $4004 = $4006; - break; - }; - return $4004; - })); - return $4003; - }; - const Kind$Parser$letforin$with = x0 => Kind$Parser$letforin$with$(x0); - - function Kind$Parser$letforinmap$(_body$1) { - var $4183 = Kind$Parser$block("let-for-map")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4185 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4187 = self.err; - var self = $4185; - switch (self._) { - case 'Maybe.some': - var $4189 = self.value; - var $4190 = Parser$Reply$error$(Parser$Error$combine$($4189, $4187)); - var $4188 = $4190; - break; - case 'Maybe.none': - var $4191 = Parser$Reply$error$($4187); - var $4188 = $4191; - break; - }; - var $4186 = $4188; - break; - case 'Parser.Reply.value': - var $4192 = self.pst; - var self = $4192; - switch (self._) { - case 'Parser.State.new': - var $4194 = self.err; - var $4195 = self.nam; - var $4196 = self.ini; - var $4197 = self.idx; - var $4198 = self.str; - var $4199 = ((console.log(("FALTANDO " + $4198)), (_$16 => { - var $4200 = ((console.log(("VALUE " + $4195)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4185, $4194), $4195, $4196, $4197, $4198); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $4202 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $4204 = self.err; - var self = $4202; - switch (self._) { - case 'Maybe.some': - var $4206 = self.value; - var $4207 = Parser$Reply$error$(Parser$Error$combine$($4206, $4204)); - var $4205 = $4207; - break; - case 'Maybe.none': - var $4208 = Parser$Reply$error$($4204); - var $4205 = $4208; - break; - }; - var $4203 = $4205; - break; - case 'Parser.Reply.value': - var $4209 = self.pst; - var $4210 = self.val; - var self = $4209; - switch (self._) { - case 'Parser.State.new': - var $4212 = self.err; - var $4213 = self.nam; - var $4214 = self.ini; - var $4215 = self.idx; - var $4216 = self.str; - var $4217 = ((console.log(("FALTANDO " + $4216)), (_$32 => { - var $4218 = ((console.log(("VALUE " + $4213)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4202, $4212), $4213, $4214, $4215, $4216); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $4220 = self.err; - var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $4222 = self.err; - var self = $4220; - switch (self._) { - case 'Maybe.some': - var $4224 = self.value; - var $4225 = Parser$Reply$error$(Parser$Error$combine$($4224, $4222)); - var $4223 = $4225; - break; - case 'Maybe.none': - var $4226 = Parser$Reply$error$($4222); - var $4223 = $4226; - break; - }; - var $4221 = $4223; - break; - case 'Parser.Reply.value': - var $4227 = self.pst; - var self = $4227; - switch (self._) { - case 'Parser.State.new': - var $4229 = self.err; - var $4230 = self.nam; - var $4231 = self.ini; - var $4232 = self.idx; - var $4233 = self.str; - var $4234 = ((console.log(("FALTANDO " + $4233)), (_$48 => { - var $4235 = ((console.log(("VALUE " + $4230)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4220, $4229), $4230, $4231, $4232, $4233); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $4237 = self.err; - var _reply$56 = Kind$Parser$text$("for ", _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $4239 = self.err; - var self = $4237; - switch (self._) { - case 'Maybe.some': - var $4241 = self.value; - var $4242 = Parser$Reply$error$(Parser$Error$combine$($4241, $4239)); - var $4240 = $4242; - break; - case 'Maybe.none': - var $4243 = Parser$Reply$error$($4239); - var $4240 = $4243; - break; - }; - var $4238 = $4240; - break; - case 'Parser.Reply.value': - var $4244 = self.pst; - var self = $4244; - switch (self._) { - case 'Parser.State.new': - var $4246 = self.err; - var $4247 = self.nam; - var $4248 = self.ini; - var $4249 = self.idx; - var $4250 = self.str; - var $4251 = ((console.log(("FALTANDO " + $4250)), (_$64 => { - var $4252 = ((console.log(("VALUE " + $4247)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4237, $4246), $4247, $4248, $4249, $4250); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $4254 = self.err; - var _reply$72 = Kind$Parser$name1$(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $4256 = self.err; - var self = $4254; - switch (self._) { - case 'Maybe.some': - var $4258 = self.value; - var $4259 = Parser$Reply$error$(Parser$Error$combine$($4258, $4256)); - var $4257 = $4259; - break; - case 'Maybe.none': - var $4260 = Parser$Reply$error$($4256); - var $4257 = $4260; - break; - }; - var $4255 = $4257; - break; - case 'Parser.Reply.value': - var $4261 = self.pst; - var $4262 = self.val; - var self = $4261; - switch (self._) { - case 'Parser.State.new': - var $4264 = self.err; - var $4265 = self.nam; - var $4266 = self.ini; - var $4267 = self.idx; - var $4268 = self.str; - var $4269 = ((console.log(("FALTANDO " + $4268)), (_$80 => { - var $4270 = ((console.log(("VALUE " + $4265)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($4254, $4264), $4265, $4266, $4267, $4268); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $4272 = self.err; - var _reply$88 = Kind$Parser$text$(":", _reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $4274 = self.err; - var self = $4272; - switch (self._) { - case 'Maybe.some': - var $4276 = self.value; - var $4277 = Parser$Reply$error$(Parser$Error$combine$($4276, $4274)); - var $4275 = $4277; - break; - case 'Maybe.none': - var $4278 = Parser$Reply$error$($4274); - var $4275 = $4278; - break; - }; - var $4273 = $4275; - break; - case 'Parser.Reply.value': - var $4279 = self.pst; - var self = $4279; - switch (self._) { - case 'Parser.State.new': - var $4281 = self.err; - var $4282 = self.nam; - var $4283 = self.ini; - var $4284 = self.idx; - var $4285 = self.str; - var $4286 = ((console.log(("FALTANDO " + $4285)), (_$96 => { - var $4287 = ((console.log(("VALUE " + $4282)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($4272, $4281), $4282, $4283, $4284, $4285); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $4289 = self.err; - var _reply$104 = Kind$Parser$name1$(_reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $4291 = self.err; - var self = $4289; - switch (self._) { - case 'Maybe.some': - var $4293 = self.value; - var $4294 = Parser$Reply$error$(Parser$Error$combine$($4293, $4291)); - var $4292 = $4294; - break; - case 'Maybe.none': - var $4295 = Parser$Reply$error$($4291); - var $4292 = $4295; - break; - }; - var $4290 = $4292; - break; - case 'Parser.Reply.value': - var $4296 = self.pst; - var $4297 = self.val; - var self = $4296; - switch (self._) { - case 'Parser.State.new': - var $4299 = self.err; - var $4300 = self.nam; - var $4301 = self.ini; - var $4302 = self.idx; - var $4303 = self.str; - var $4304 = ((console.log(("FALTANDO " + $4303)), (_$112 => { - var $4305 = ((console.log(("VALUE " + $4300)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4289, $4299), $4300, $4301, $4302, $4303); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $4307 = self.err; - var _reply$120 = Kind$Parser$text$("in", _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $4309 = self.err; - var self = $4307; - switch (self._) { - case 'Maybe.some': - var $4311 = self.value; - var $4312 = Parser$Reply$error$(Parser$Error$combine$($4311, $4309)); - var $4310 = $4312; - break; - case 'Maybe.none': - var $4313 = Parser$Reply$error$($4309); - var $4310 = $4313; - break; - }; - var $4308 = $4310; - break; - case 'Parser.Reply.value': - var $4314 = self.pst; - var self = $4314; - switch (self._) { - case 'Parser.State.new': - var $4316 = self.err; - var $4317 = self.nam; - var $4318 = self.ini; - var $4319 = self.idx; - var $4320 = self.str; - var $4321 = ((console.log(("FALTANDO " + $4320)), (_$128 => { - var $4322 = ((console.log(("VALUE " + $4317)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($4307, $4316), $4317, $4318, $4319, $4320); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $4324 = self.err; - var _reply$136 = Kind$Parser$term(_reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $4326 = self.err; - var self = $4324; - switch (self._) { - case 'Maybe.some': - var $4328 = self.value; - var $4329 = Parser$Reply$error$(Parser$Error$combine$($4328, $4326)); - var $4327 = $4329; - break; - case 'Maybe.none': - var $4330 = Parser$Reply$error$($4326); - var $4327 = $4330; - break; - }; - var $4325 = $4327; - break; - case 'Parser.Reply.value': - var $4331 = self.pst; - var $4332 = self.val; - var self = $4331; - switch (self._) { - case 'Parser.State.new': - var $4334 = self.err; - var $4335 = self.nam; - var $4336 = self.ini; - var $4337 = self.idx; - var $4338 = self.str; - var $4339 = ((console.log(("FALTANDO " + $4338)), (_$144 => { - var $4340 = ((console.log(("VALUE " + $4335)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($4324, $4334), $4335, $4336, $4337, $4338); - var self = _reply$pst$146; - switch (self._) { - case 'Parser.State.new': - var $4342 = self.err; - var _reply$152 = Kind$Parser$text$(":", _reply$pst$146); - var self = _reply$152; - switch (self._) { - case 'Parser.Reply.error': - var $4344 = self.err; - var self = $4342; - switch (self._) { - case 'Maybe.some': - var $4346 = self.value; - var $4347 = Parser$Reply$error$(Parser$Error$combine$($4346, $4344)); - var $4345 = $4347; - break; - case 'Maybe.none': - var $4348 = Parser$Reply$error$($4344); - var $4345 = $4348; - break; - }; - var $4343 = $4345; - break; - case 'Parser.Reply.value': - var $4349 = self.pst; - var self = $4349; - switch (self._) { - case 'Parser.State.new': - var $4351 = self.err; - var $4352 = self.nam; - var $4353 = self.ini; - var $4354 = self.idx; - var $4355 = self.str; - var $4356 = ((console.log(("FALTANDO " + $4355)), (_$160 => { - var $4357 = ((console.log(("VALUE " + $4352)), (_$161 => { - var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($4342, $4351), $4352, $4353, $4354, $4355); - var self = _reply$pst$162; - switch (self._) { - case 'Parser.State.new': - var $4359 = self.err; - var _reply$168 = Kind$Parser$term(_reply$pst$162); - var self = _reply$168; - switch (self._) { - case 'Parser.Reply.error': - var $4361 = self.err; - var self = $4359; - switch (self._) { - case 'Maybe.some': - var $4363 = self.value; - var $4364 = Parser$Reply$error$(Parser$Error$combine$($4363, $4361)); - var $4362 = $4364; - break; - case 'Maybe.none': - var $4365 = Parser$Reply$error$($4361); - var $4362 = $4365; - break; - }; - var $4360 = $4362; - break; - case 'Parser.Reply.value': - var $4366 = self.pst; - var $4367 = self.val; - var self = $4366; - switch (self._) { - case 'Parser.State.new': - var $4369 = self.err; - var $4370 = self.nam; - var $4371 = self.ini; - var $4372 = self.idx; - var $4373 = self.str; - var $4374 = ((console.log(("FALTANDO " + $4373)), (_$176 => { - var $4375 = ((console.log(("VALUE " + $4370)), (_$177 => { - var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($4359, $4369), $4370, $4371, $4372, $4373); - var self = _reply$pst$178; - switch (self._) { - case 'Parser.State.new': - var $4377 = self.err; - var _reply$184 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$178); - var self = _reply$184; - switch (self._) { - case 'Parser.Reply.error': - var $4379 = self.err; - var self = $4377; - switch (self._) { - case 'Maybe.some': - var $4381 = self.value; - var $4382 = Parser$Reply$error$(Parser$Error$combine$($4381, $4379)); - var $4380 = $4382; - break; - case 'Maybe.none': - var $4383 = Parser$Reply$error$($4379); - var $4380 = $4383; - break; - }; - var $4378 = $4380; - break; - case 'Parser.Reply.value': - var $4384 = self.pst; - var self = $4384; - switch (self._) { - case 'Parser.State.new': - var $4386 = self.err; - var $4387 = self.nam; - var $4388 = self.ini; - var $4389 = self.idx; - var $4390 = self.str; - var $4391 = ((console.log(("FALTANDO " + $4390)), (_$192 => { - var $4392 = ((console.log(("VALUE " + $4387)), (_$193 => { - var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($4377, $4386), $4387, $4388, $4389, $4390); - var self = _reply$pst$194; - switch (self._) { - case 'Parser.State.new': - var $4394 = self.err; - var _reply$200 = _body$1(Unit$new)(_reply$pst$194); - var self = _reply$200; - switch (self._) { - case 'Parser.Reply.error': - var $4396 = self.err; - var self = $4394; - switch (self._) { - case 'Maybe.some': - var $4398 = self.value; - var $4399 = Parser$Reply$error$(Parser$Error$combine$($4398, $4396)); - var $4397 = $4399; - break; - case 'Maybe.none': - var $4400 = Parser$Reply$error$($4396); - var $4397 = $4400; - break; - }; - var $4395 = $4397; - break; - case 'Parser.Reply.value': - var $4401 = self.pst; - var $4402 = self.val; - var self = $4401; - switch (self._) { - case 'Parser.State.new': - var $4404 = self.err; - var $4405 = self.nam; - var $4406 = self.ini; - var $4407 = self.idx; - var $4408 = self.str; - var $4409 = ((console.log(("FALTANDO " + $4408)), (_$208 => { - var $4410 = ((console.log(("VALUE " + $4405)), (_$209 => { - var _reply$pst$210 = Parser$State$new$(Parser$Error$maybe_combine$($4394, $4404), $4405, $4406, $4407, $4408); - var _term$211 = Kind$Term$ref$("BBT.for"); - var _term$212 = Kind$Term$app$(_term$211, Kind$Term$hol$(Bits$e)); - var _term$213 = Kind$Term$app$(_term$212, Kind$Term$hol$(Bits$e)); - var _term$214 = Kind$Term$app$(_term$213, $4332); - var _term$215 = Kind$Term$app$(_term$214, Kind$Term$hol$(Bits$e)); - var _term$216 = Kind$Term$app$(_term$215, Kind$Term$ref$($4210)); - var _lamb$217 = Kind$Term$lam$($4262, (_k$217 => { - var $4412 = Kind$Term$lam$($4297, (_i$218 => { - var $4413 = Kind$Term$lam$($4210, (_x$219 => { - var $4414 = $4367; - return $4414; - })); - return $4413; - })); - return $4412; - })); - var _term$218 = Kind$Term$app$(_term$216, _lamb$217); - var _term$219 = Kind$Term$let$($4210, _term$218, (_x$219 => { - var $4415 = $4402; - return $4415; - })); - var $4411 = Parser$Reply$value$(_reply$pst$210, _term$219); - return $4411; - })())); - return $4410; - })())); - var $4403 = $4409; - break; - }; - var $4395 = $4403; - break; - }; - var $4393 = $4395; - break; - }; - return $4393; - })())); - return $4392; - })())); - var $4385 = $4391; - break; - }; - var $4378 = $4385; - break; - }; - var $4376 = $4378; - break; - }; - return $4376; - })())); - return $4375; - })())); - var $4368 = $4374; - break; - }; - var $4360 = $4368; - break; - }; - var $4358 = $4360; - break; - }; - return $4358; - })())); - return $4357; - })())); - var $4350 = $4356; - break; - }; - var $4343 = $4350; - break; - }; - var $4341 = $4343; - break; - }; - return $4341; - })())); - return $4340; - })())); - var $4333 = $4339; - break; - }; - var $4325 = $4333; - break; - }; - var $4323 = $4325; - break; - }; - return $4323; - })())); - return $4322; - })())); - var $4315 = $4321; - break; - }; - var $4308 = $4315; - break; - }; - var $4306 = $4308; - break; - }; - return $4306; - })())); - return $4305; - })())); - var $4298 = $4304; - break; - }; - var $4290 = $4298; - break; - }; - var $4288 = $4290; - break; - }; - return $4288; - })())); - return $4287; - })())); - var $4280 = $4286; - break; - }; - var $4273 = $4280; - break; - }; - var $4271 = $4273; - break; - }; - return $4271; - })())); - return $4270; - })())); - var $4263 = $4269; - break; - }; - var $4255 = $4263; - break; - }; - var $4253 = $4255; - break; - }; - return $4253; - })())); - return $4252; - })())); - var $4245 = $4251; - break; - }; - var $4238 = $4245; - break; - }; - var $4236 = $4238; - break; - }; - return $4236; - })())); - return $4235; - })())); - var $4228 = $4234; - break; - }; - var $4221 = $4228; - break; - }; - var $4219 = $4221; - break; - }; - return $4219; - })())); - return $4218; - })())); - var $4211 = $4217; - break; - }; - var $4203 = $4211; - break; - }; - var $4201 = $4203; - break; - }; - return $4201; - })())); - return $4200; - })())); - var $4193 = $4199; - break; - }; - var $4186 = $4193; - break; - }; - var $4184 = $4186; - break; - }; - return $4184; - })); - return $4183; - }; - const Kind$Parser$letforinmap = x0 => Kind$Parser$letforinmap$(x0); - - function Kind$Parser$letforinmap$with$(_body$1) { - var $4416 = Kind$Parser$block("for-map")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4418 = self.err; - var _reply$8 = Kind$Parser$text$("for ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4420 = self.err; - var self = $4418; - switch (self._) { - case 'Maybe.some': - var $4422 = self.value; - var $4423 = Parser$Reply$error$(Parser$Error$combine$($4422, $4420)); - var $4421 = $4423; - break; - case 'Maybe.none': - var $4424 = Parser$Reply$error$($4420); - var $4421 = $4424; - break; - }; - var $4419 = $4421; - break; - case 'Parser.Reply.value': - var $4425 = self.pst; - var self = $4425; - switch (self._) { - case 'Parser.State.new': - var $4427 = self.err; - var $4428 = self.nam; - var $4429 = self.ini; - var $4430 = self.idx; - var $4431 = self.str; - var $4432 = ((console.log(("FALTANDO " + $4431)), (_$16 => { - var $4433 = ((console.log(("VALUE " + $4428)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4418, $4427), $4428, $4429, $4430, $4431); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $4435 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $4437 = self.err; - var self = $4435; - switch (self._) { - case 'Maybe.some': - var $4439 = self.value; - var $4440 = Parser$Reply$error$(Parser$Error$combine$($4439, $4437)); - var $4438 = $4440; - break; - case 'Maybe.none': - var $4441 = Parser$Reply$error$($4437); - var $4438 = $4441; - break; - }; - var $4436 = $4438; - break; - case 'Parser.Reply.value': - var $4442 = self.pst; - var $4443 = self.val; - var self = $4442; - switch (self._) { - case 'Parser.State.new': - var $4445 = self.err; - var $4446 = self.nam; - var $4447 = self.ini; - var $4448 = self.idx; - var $4449 = self.str; - var $4450 = ((console.log(("FALTANDO " + $4449)), (_$32 => { - var $4451 = ((console.log(("VALUE " + $4446)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4435, $4445), $4446, $4447, $4448, $4449); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $4453 = self.err; - var _reply$40 = Kind$Parser$text$(":", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $4455 = self.err; - var self = $4453; - switch (self._) { - case 'Maybe.some': - var $4457 = self.value; - var $4458 = Parser$Reply$error$(Parser$Error$combine$($4457, $4455)); - var $4456 = $4458; - break; - case 'Maybe.none': - var $4459 = Parser$Reply$error$($4455); - var $4456 = $4459; - break; - }; - var $4454 = $4456; - break; - case 'Parser.Reply.value': - var $4460 = self.pst; - var self = $4460; - switch (self._) { - case 'Parser.State.new': - var $4462 = self.err; - var $4463 = self.nam; - var $4464 = self.ini; - var $4465 = self.idx; - var $4466 = self.str; - var $4467 = ((console.log(("FALTANDO " + $4466)), (_$48 => { - var $4468 = ((console.log(("VALUE " + $4463)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4453, $4462), $4463, $4464, $4465, $4466); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $4470 = self.err; - var _reply$56 = Kind$Parser$name1$(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $4472 = self.err; - var self = $4470; - switch (self._) { - case 'Maybe.some': - var $4474 = self.value; - var $4475 = Parser$Reply$error$(Parser$Error$combine$($4474, $4472)); - var $4473 = $4475; - break; - case 'Maybe.none': - var $4476 = Parser$Reply$error$($4472); - var $4473 = $4476; - break; - }; - var $4471 = $4473; - break; - case 'Parser.Reply.value': - var $4477 = self.pst; - var $4478 = self.val; - var self = $4477; - switch (self._) { - case 'Parser.State.new': - var $4480 = self.err; - var $4481 = self.nam; - var $4482 = self.ini; - var $4483 = self.idx; - var $4484 = self.str; - var $4485 = ((console.log(("FALTANDO " + $4484)), (_$64 => { - var $4486 = ((console.log(("VALUE " + $4481)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4470, $4480), $4481, $4482, $4483, $4484); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $4488 = self.err; - var _reply$72 = Kind$Parser$text$("in", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $4490 = self.err; - var self = $4488; - switch (self._) { - case 'Maybe.some': - var $4492 = self.value; - var $4493 = Parser$Reply$error$(Parser$Error$combine$($4492, $4490)); - var $4491 = $4493; - break; - case 'Maybe.none': - var $4494 = Parser$Reply$error$($4490); - var $4491 = $4494; - break; - }; - var $4489 = $4491; - break; - case 'Parser.Reply.value': - var $4495 = self.pst; - var self = $4495; - switch (self._) { - case 'Parser.State.new': - var $4497 = self.err; - var $4498 = self.nam; - var $4499 = self.ini; - var $4500 = self.idx; - var $4501 = self.str; - var $4502 = ((console.log(("FALTANDO " + $4501)), (_$80 => { - var $4503 = ((console.log(("VALUE " + $4498)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($4488, $4497), $4498, $4499, $4500, $4501); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $4505 = self.err; - var _reply$88 = Kind$Parser$term(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $4507 = self.err; - var self = $4505; - switch (self._) { - case 'Maybe.some': - var $4509 = self.value; - var $4510 = Parser$Reply$error$(Parser$Error$combine$($4509, $4507)); - var $4508 = $4510; - break; - case 'Maybe.none': - var $4511 = Parser$Reply$error$($4507); - var $4508 = $4511; - break; - }; - var $4506 = $4508; - break; - case 'Parser.Reply.value': - var $4512 = self.pst; - var $4513 = self.val; - var self = $4512; - switch (self._) { - case 'Parser.State.new': - var $4515 = self.err; - var $4516 = self.nam; - var $4517 = self.ini; - var $4518 = self.idx; - var $4519 = self.str; - var $4520 = ((console.log(("FALTANDO " + $4519)), (_$96 => { - var $4521 = ((console.log(("VALUE " + $4516)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($4505, $4515), $4516, $4517, $4518, $4519); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $4523 = self.err; - var _reply$104 = Kind$Parser$text$("with", _reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $4525 = self.err; - var self = $4523; - switch (self._) { - case 'Maybe.some': - var $4527 = self.value; - var $4528 = Parser$Reply$error$(Parser$Error$combine$($4527, $4525)); - var $4526 = $4528; - break; - case 'Maybe.none': - var $4529 = Parser$Reply$error$($4525); - var $4526 = $4529; - break; - }; - var $4524 = $4526; - break; - case 'Parser.Reply.value': - var $4530 = self.pst; - var self = $4530; - switch (self._) { - case 'Parser.State.new': - var $4532 = self.err; - var $4533 = self.nam; - var $4534 = self.ini; - var $4535 = self.idx; - var $4536 = self.str; - var $4537 = ((console.log(("FALTANDO " + $4536)), (_$112 => { - var $4538 = ((console.log(("VALUE " + $4533)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4523, $4532), $4533, $4534, $4535, $4536); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $4540 = self.err; - var _reply$120 = Kind$Parser$name1$(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $4542 = self.err; - var self = $4540; - switch (self._) { - case 'Maybe.some': - var $4544 = self.value; - var $4545 = Parser$Reply$error$(Parser$Error$combine$($4544, $4542)); - var $4543 = $4545; - break; - case 'Maybe.none': - var $4546 = Parser$Reply$error$($4542); - var $4543 = $4546; - break; - }; - var $4541 = $4543; - break; - case 'Parser.Reply.value': - var $4547 = self.pst; - var $4548 = self.val; - var self = $4547; - switch (self._) { - case 'Parser.State.new': - var $4550 = self.err; - var $4551 = self.nam; - var $4552 = self.ini; - var $4553 = self.idx; - var $4554 = self.str; - var $4555 = ((console.log(("FALTANDO " + $4554)), (_$128 => { - var $4556 = ((console.log(("VALUE " + $4551)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($4540, $4550), $4551, $4552, $4553, $4554); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $4558 = self.err; - var _reply$136 = Kind$Parser$text$(":", _reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $4560 = self.err; - var self = $4558; - switch (self._) { - case 'Maybe.some': - var $4562 = self.value; - var $4563 = Parser$Reply$error$(Parser$Error$combine$($4562, $4560)); - var $4561 = $4563; - break; - case 'Maybe.none': - var $4564 = Parser$Reply$error$($4560); - var $4561 = $4564; - break; - }; - var $4559 = $4561; - break; - case 'Parser.Reply.value': - var $4565 = self.pst; - var self = $4565; - switch (self._) { - case 'Parser.State.new': - var $4567 = self.err; - var $4568 = self.nam; - var $4569 = self.ini; - var $4570 = self.idx; - var $4571 = self.str; - var $4572 = ((console.log(("FALTANDO " + $4571)), (_$144 => { - var $4573 = ((console.log(("VALUE " + $4568)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($4558, $4567), $4568, $4569, $4570, $4571); - var self = _reply$pst$146; - switch (self._) { - case 'Parser.State.new': - var $4575 = self.err; - var _reply$152 = Kind$Parser$term(_reply$pst$146); - var self = _reply$152; - switch (self._) { - case 'Parser.Reply.error': - var $4577 = self.err; - var self = $4575; - switch (self._) { - case 'Maybe.some': - var $4579 = self.value; - var $4580 = Parser$Reply$error$(Parser$Error$combine$($4579, $4577)); - var $4578 = $4580; - break; - case 'Maybe.none': - var $4581 = Parser$Reply$error$($4577); - var $4578 = $4581; - break; - }; - var $4576 = $4578; - break; - case 'Parser.Reply.value': - var $4582 = self.pst; - var $4583 = self.val; - var self = $4582; - switch (self._) { - case 'Parser.State.new': - var $4585 = self.err; - var $4586 = self.nam; - var $4587 = self.ini; - var $4588 = self.idx; - var $4589 = self.str; - var $4590 = ((console.log(("FALTANDO " + $4589)), (_$160 => { - var $4591 = ((console.log(("VALUE " + $4586)), (_$161 => { - var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($4575, $4585), $4586, $4587, $4588, $4589); - var self = _reply$pst$162; - switch (self._) { - case 'Parser.State.new': - var $4593 = self.err; - var _reply$168 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$162); - var self = _reply$168; - switch (self._) { - case 'Parser.Reply.error': - var $4595 = self.err; - var self = $4593; - switch (self._) { - case 'Maybe.some': - var $4597 = self.value; - var $4598 = Parser$Reply$error$(Parser$Error$combine$($4597, $4595)); - var $4596 = $4598; - break; - case 'Maybe.none': - var $4599 = Parser$Reply$error$($4595); - var $4596 = $4599; - break; - }; - var $4594 = $4596; - break; - case 'Parser.Reply.value': - var $4600 = self.pst; - var self = $4600; - switch (self._) { - case 'Parser.State.new': - var $4602 = self.err; - var $4603 = self.nam; - var $4604 = self.ini; - var $4605 = self.idx; - var $4606 = self.str; - var $4607 = ((console.log(("FALTANDO " + $4606)), (_$176 => { - var $4608 = ((console.log(("VALUE " + $4603)), (_$177 => { - var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($4593, $4602), $4603, $4604, $4605, $4606); - var self = _reply$pst$178; - switch (self._) { - case 'Parser.State.new': - var $4610 = self.err; - var _reply$184 = _body$1(Unit$new)(_reply$pst$178); - var self = _reply$184; - switch (self._) { - case 'Parser.Reply.error': - var $4612 = self.err; - var self = $4610; - switch (self._) { - case 'Maybe.some': - var $4614 = self.value; - var $4615 = Parser$Reply$error$(Parser$Error$combine$($4614, $4612)); - var $4613 = $4615; - break; - case 'Maybe.none': - var $4616 = Parser$Reply$error$($4612); - var $4613 = $4616; - break; - }; - var $4611 = $4613; - break; - case 'Parser.Reply.value': - var $4617 = self.pst; - var $4618 = self.val; - var self = $4617; - switch (self._) { - case 'Parser.State.new': - var $4620 = self.err; - var $4621 = self.nam; - var $4622 = self.ini; - var $4623 = self.idx; - var $4624 = self.str; - var $4625 = ((console.log(("FALTANDO " + $4624)), (_$192 => { - var $4626 = ((console.log(("VALUE " + $4621)), (_$193 => { - var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($4610, $4620), $4621, $4622, $4623, $4624); - var _term$195 = Kind$Term$ref$("BBT.for"); - var _term$196 = Kind$Term$app$(_term$195, Kind$Term$hol$(Bits$e)); - var _term$197 = Kind$Term$app$(_term$196, Kind$Term$hol$(Bits$e)); - var _term$198 = Kind$Term$app$(_term$197, $4513); - var _term$199 = Kind$Term$app$(_term$198, Kind$Term$hol$(Bits$e)); - var _term$200 = Kind$Term$app$(_term$199, Kind$Term$ref$($4548)); - var _lamb$201 = Kind$Term$lam$($4443, (_k$201 => { - var $4628 = Kind$Term$lam$($4478, (_i$202 => { - var $4629 = Kind$Term$lam$($4548, (_x$203 => { - var $4630 = $4583; - return $4630; - })); - return $4629; - })); - return $4628; - })); - var _term$202 = Kind$Term$app$(_term$200, _lamb$201); - var _term$203 = Kind$Term$let$($4548, _term$202, (_x$203 => { - var $4631 = $4618; - return $4631; - })); - var $4627 = Parser$Reply$value$(_reply$pst$194, _term$203); - return $4627; - })())); - return $4626; - })())); - var $4619 = $4625; - break; - }; - var $4611 = $4619; - break; - }; - var $4609 = $4611; - break; - }; - return $4609; - })())); - return $4608; - })())); - var $4601 = $4607; - break; - }; - var $4594 = $4601; - break; - }; - var $4592 = $4594; - break; - }; - return $4592; - })())); - return $4591; - })())); - var $4584 = $4590; - break; - }; - var $4576 = $4584; - break; - }; - var $4574 = $4576; - break; - }; - return $4574; - })())); - return $4573; - })())); - var $4566 = $4572; - break; - }; - var $4559 = $4566; - break; - }; - var $4557 = $4559; - break; - }; - return $4557; - })())); - return $4556; - })())); - var $4549 = $4555; - break; - }; - var $4541 = $4549; - break; - }; - var $4539 = $4541; - break; - }; - return $4539; - })())); - return $4538; - })())); - var $4531 = $4537; - break; - }; - var $4524 = $4531; - break; - }; - var $4522 = $4524; - break; - }; - return $4522; - })())); - return $4521; - })())); - var $4514 = $4520; - break; - }; - var $4506 = $4514; - break; - }; - var $4504 = $4506; - break; - }; - return $4504; - })())); - return $4503; - })())); - var $4496 = $4502; - break; - }; - var $4489 = $4496; - break; - }; - var $4487 = $4489; - break; - }; - return $4487; - })())); - return $4486; - })())); - var $4479 = $4485; - break; - }; - var $4471 = $4479; - break; - }; - var $4469 = $4471; - break; - }; - return $4469; - })())); - return $4468; - })())); - var $4461 = $4467; - break; - }; - var $4454 = $4461; - break; - }; - var $4452 = $4454; - break; - }; - return $4452; - })())); - return $4451; - })())); - var $4444 = $4450; - break; - }; - var $4436 = $4444; - break; - }; - var $4434 = $4436; - break; - }; - return $4434; - })())); - return $4433; - })())); - var $4426 = $4432; - break; - }; - var $4419 = $4426; - break; - }; - var $4417 = $4419; - break; - }; - return $4417; - })); - return $4416; - }; - const Kind$Parser$letforinmap$with = x0 => Kind$Parser$letforinmap$with$(x0); - - function Kind$Parser$letwhile$(_body$1) { - var $4632 = Kind$Parser$block("let-while")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4634 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4636 = self.err; - var self = $4634; - switch (self._) { - case 'Maybe.some': - var $4638 = self.value; - var $4639 = Parser$Reply$error$(Parser$Error$combine$($4638, $4636)); - var $4637 = $4639; - break; - case 'Maybe.none': - var $4640 = Parser$Reply$error$($4636); - var $4637 = $4640; - break; - }; - var $4635 = $4637; - break; - case 'Parser.Reply.value': - var $4641 = self.pst; - var self = $4641; - switch (self._) { - case 'Parser.State.new': - var $4643 = self.err; - var $4644 = self.nam; - var $4645 = self.ini; - var $4646 = self.idx; - var $4647 = self.str; - var $4648 = ((console.log(("FALTANDO " + $4647)), (_$16 => { - var $4649 = ((console.log(("VALUE " + $4644)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4634, $4643), $4644, $4645, $4646, $4647); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $4651 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $4653 = self.err; - var self = $4651; - switch (self._) { - case 'Maybe.some': - var $4655 = self.value; - var $4656 = Parser$Reply$error$(Parser$Error$combine$($4655, $4653)); - var $4654 = $4656; - break; - case 'Maybe.none': - var $4657 = Parser$Reply$error$($4653); - var $4654 = $4657; - break; - }; - var $4652 = $4654; - break; - case 'Parser.Reply.value': - var $4658 = self.pst; - var $4659 = self.val; - var self = $4658; - switch (self._) { - case 'Parser.State.new': - var $4661 = self.err; - var $4662 = self.nam; - var $4663 = self.ini; - var $4664 = self.idx; - var $4665 = self.str; - var $4666 = ((console.log(("FALTANDO " + $4665)), (_$32 => { - var $4667 = ((console.log(("VALUE " + $4662)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4651, $4661), $4662, $4663, $4664, $4665); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $4669 = self.err; - var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $4671 = self.err; - var self = $4669; - switch (self._) { - case 'Maybe.some': - var $4673 = self.value; - var $4674 = Parser$Reply$error$(Parser$Error$combine$($4673, $4671)); - var $4672 = $4674; - break; - case 'Maybe.none': - var $4675 = Parser$Reply$error$($4671); - var $4672 = $4675; - break; - }; - var $4670 = $4672; - break; - case 'Parser.Reply.value': - var $4676 = self.pst; - var self = $4676; - switch (self._) { - case 'Parser.State.new': - var $4678 = self.err; - var $4679 = self.nam; - var $4680 = self.ini; - var $4681 = self.idx; - var $4682 = self.str; - var $4683 = ((console.log(("FALTANDO " + $4682)), (_$48 => { - var $4684 = ((console.log(("VALUE " + $4679)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4669, $4678), $4679, $4680, $4681, $4682); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $4686 = self.err; - var _reply$56 = Kind$Parser$text$("while ", _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $4688 = self.err; - var self = $4686; - switch (self._) { - case 'Maybe.some': - var $4690 = self.value; - var $4691 = Parser$Reply$error$(Parser$Error$combine$($4690, $4688)); - var $4689 = $4691; - break; - case 'Maybe.none': - var $4692 = Parser$Reply$error$($4688); - var $4689 = $4692; - break; - }; - var $4687 = $4689; - break; - case 'Parser.Reply.value': - var $4693 = self.pst; - var self = $4693; - switch (self._) { - case 'Parser.State.new': - var $4695 = self.err; - var $4696 = self.nam; - var $4697 = self.ini; - var $4698 = self.idx; - var $4699 = self.str; - var $4700 = ((console.log(("FALTANDO " + $4699)), (_$64 => { - var $4701 = ((console.log(("VALUE " + $4696)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4686, $4695), $4696, $4697, $4698, $4699); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $4703 = self.err; - var _reply$72 = Kind$Parser$term(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $4705 = self.err; - var self = $4703; - switch (self._) { - case 'Maybe.some': - var $4707 = self.value; - var $4708 = Parser$Reply$error$(Parser$Error$combine$($4707, $4705)); - var $4706 = $4708; - break; - case 'Maybe.none': - var $4709 = Parser$Reply$error$($4705); - var $4706 = $4709; - break; - }; - var $4704 = $4706; - break; - case 'Parser.Reply.value': - var $4710 = self.pst; - var $4711 = self.val; - var self = $4710; - switch (self._) { - case 'Parser.State.new': - var $4713 = self.err; - var $4714 = self.nam; - var $4715 = self.ini; - var $4716 = self.idx; - var $4717 = self.str; - var $4718 = ((console.log(("FALTANDO " + $4717)), (_$80 => { - var $4719 = ((console.log(("VALUE " + $4714)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($4703, $4713), $4714, $4715, $4716, $4717); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $4721 = self.err; - var _reply$88 = Kind$Parser$text$(":", _reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $4723 = self.err; - var self = $4721; - switch (self._) { - case 'Maybe.some': - var $4725 = self.value; - var $4726 = Parser$Reply$error$(Parser$Error$combine$($4725, $4723)); - var $4724 = $4726; - break; - case 'Maybe.none': - var $4727 = Parser$Reply$error$($4723); - var $4724 = $4727; - break; - }; - var $4722 = $4724; - break; - case 'Parser.Reply.value': - var $4728 = self.pst; - var self = $4728; - switch (self._) { - case 'Parser.State.new': - var $4730 = self.err; - var $4731 = self.nam; - var $4732 = self.ini; - var $4733 = self.idx; - var $4734 = self.str; - var $4735 = ((console.log(("FALTANDO " + $4734)), (_$96 => { - var $4736 = ((console.log(("VALUE " + $4731)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($4721, $4730), $4731, $4732, $4733, $4734); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $4738 = self.err; - var _reply$104 = Kind$Parser$term(_reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $4740 = self.err; - var self = $4738; - switch (self._) { - case 'Maybe.some': - var $4742 = self.value; - var $4743 = Parser$Reply$error$(Parser$Error$combine$($4742, $4740)); - var $4741 = $4743; - break; - case 'Maybe.none': - var $4744 = Parser$Reply$error$($4740); - var $4741 = $4744; - break; - }; - var $4739 = $4741; - break; - case 'Parser.Reply.value': - var $4745 = self.pst; - var $4746 = self.val; - var self = $4745; - switch (self._) { - case 'Parser.State.new': - var $4748 = self.err; - var $4749 = self.nam; - var $4750 = self.ini; - var $4751 = self.idx; - var $4752 = self.str; - var $4753 = ((console.log(("FALTANDO " + $4752)), (_$112 => { - var $4754 = ((console.log(("VALUE " + $4749)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4738, $4748), $4749, $4750, $4751, $4752); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $4756 = self.err; - var _reply$120 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $4758 = self.err; - var self = $4756; - switch (self._) { - case 'Maybe.some': - var $4760 = self.value; - var $4761 = Parser$Reply$error$(Parser$Error$combine$($4760, $4758)); - var $4759 = $4761; - break; - case 'Maybe.none': - var $4762 = Parser$Reply$error$($4758); - var $4759 = $4762; - break; - }; - var $4757 = $4759; - break; - case 'Parser.Reply.value': - var $4763 = self.pst; - var self = $4763; - switch (self._) { - case 'Parser.State.new': - var $4765 = self.err; - var $4766 = self.nam; - var $4767 = self.ini; - var $4768 = self.idx; - var $4769 = self.str; - var $4770 = ((console.log(("FALTANDO " + $4769)), (_$128 => { - var $4771 = ((console.log(("VALUE " + $4766)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($4756, $4765), $4766, $4767, $4768, $4769); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $4773 = self.err; - var _reply$136 = _body$1(Unit$new)(_reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $4775 = self.err; - var self = $4773; - switch (self._) { - case 'Maybe.some': - var $4777 = self.value; - var $4778 = Parser$Reply$error$(Parser$Error$combine$($4777, $4775)); - var $4776 = $4778; - break; - case 'Maybe.none': - var $4779 = Parser$Reply$error$($4775); - var $4776 = $4779; - break; - }; - var $4774 = $4776; - break; - case 'Parser.Reply.value': - var $4780 = self.pst; - var $4781 = self.val; - var self = $4780; - switch (self._) { - case 'Parser.State.new': - var $4783 = self.err; - var $4784 = self.nam; - var $4785 = self.ini; - var $4786 = self.idx; - var $4787 = self.str; - var $4788 = ((console.log(("FALTANDO " + $4787)), (_$144 => { - var $4789 = ((console.log(("VALUE " + $4784)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($4773, $4783), $4784, $4785, $4786, $4787); - var _term$147 = Kind$Term$ref$("Function.while"); - var _term$148 = Kind$Term$app$(_term$147, Kind$Term$hol$(Bits$e)); - var _term$149 = Kind$Term$app$(_term$148, Kind$Term$ref$($4659)); - var _term$150 = Kind$Term$app$(_term$149, Kind$Term$lam$($4659, (_s$150 => { - var $4791 = $4711; - return $4791; - }))); - var _term$151 = Kind$Term$app$(_term$150, Kind$Term$lam$($4659, (_s$151 => { - var $4792 = $4746; - return $4792; - }))); - var _term$152 = Kind$Term$let$($4659, _term$151, (_x$152 => { - var $4793 = $4781; - return $4793; - })); - var $4790 = Parser$Reply$value$(_reply$pst$146, _term$152); - return $4790; - })())); - return $4789; - })())); - var $4782 = $4788; - break; - }; - var $4774 = $4782; - break; - }; - var $4772 = $4774; - break; - }; - return $4772; - })())); - return $4771; - })())); - var $4764 = $4770; - break; - }; - var $4757 = $4764; - break; - }; - var $4755 = $4757; - break; - }; - return $4755; - })())); - return $4754; - })())); - var $4747 = $4753; - break; - }; - var $4739 = $4747; - break; - }; - var $4737 = $4739; - break; - }; - return $4737; - })())); - return $4736; - })())); - var $4729 = $4735; - break; - }; - var $4722 = $4729; - break; - }; - var $4720 = $4722; - break; - }; - return $4720; - })())); - return $4719; - })())); - var $4712 = $4718; - break; - }; - var $4704 = $4712; - break; - }; - var $4702 = $4704; - break; - }; - return $4702; - })())); - return $4701; - })())); - var $4694 = $4700; - break; - }; - var $4687 = $4694; - break; - }; - var $4685 = $4687; - break; - }; - return $4685; - })())); - return $4684; - })())); - var $4677 = $4683; - break; - }; - var $4670 = $4677; - break; - }; - var $4668 = $4670; - break; - }; - return $4668; - })())); - return $4667; - })())); - var $4660 = $4666; - break; - }; - var $4652 = $4660; - break; - }; - var $4650 = $4652; - break; - }; - return $4650; - })())); - return $4649; - })())); - var $4642 = $4648; - break; - }; - var $4635 = $4642; - break; - }; - var $4633 = $4635; - break; - }; - return $4633; - })); - return $4632; - }; - const Kind$Parser$letwhile = x0 => Kind$Parser$letwhile$(x0); - - function Kind$Parser$letwhile$with$(_body$1) { - var $4794 = Kind$Parser$block("let-while")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4796 = self.err; - var _reply$8 = Kind$Parser$text$("while ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4798 = self.err; - var self = $4796; - switch (self._) { - case 'Maybe.some': - var $4800 = self.value; - var $4801 = Parser$Reply$error$(Parser$Error$combine$($4800, $4798)); - var $4799 = $4801; - break; - case 'Maybe.none': - var $4802 = Parser$Reply$error$($4798); - var $4799 = $4802; - break; - }; - var $4797 = $4799; - break; - case 'Parser.Reply.value': - var $4803 = self.pst; - var self = $4803; - switch (self._) { - case 'Parser.State.new': - var $4805 = self.err; - var $4806 = self.nam; - var $4807 = self.ini; - var $4808 = self.idx; - var $4809 = self.str; - var $4810 = ((console.log(("FALTANDO " + $4809)), (_$16 => { - var $4811 = ((console.log(("VALUE " + $4806)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4796, $4805), $4806, $4807, $4808, $4809); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $4813 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $4815 = self.err; - var self = $4813; - switch (self._) { - case 'Maybe.some': - var $4817 = self.value; - var $4818 = Parser$Reply$error$(Parser$Error$combine$($4817, $4815)); - var $4816 = $4818; - break; - case 'Maybe.none': - var $4819 = Parser$Reply$error$($4815); - var $4816 = $4819; - break; - }; - var $4814 = $4816; - break; - case 'Parser.Reply.value': - var $4820 = self.pst; - var $4821 = self.val; - var self = $4820; - switch (self._) { - case 'Parser.State.new': - var $4823 = self.err; - var $4824 = self.nam; - var $4825 = self.ini; - var $4826 = self.idx; - var $4827 = self.str; - var $4828 = ((console.log(("FALTANDO " + $4827)), (_$32 => { - var $4829 = ((console.log(("VALUE " + $4824)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4813, $4823), $4824, $4825, $4826, $4827); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $4831 = self.err; - var _reply$40 = Kind$Parser$text$("with ", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $4833 = self.err; - var self = $4831; - switch (self._) { - case 'Maybe.some': - var $4835 = self.value; - var $4836 = Parser$Reply$error$(Parser$Error$combine$($4835, $4833)); - var $4834 = $4836; - break; - case 'Maybe.none': - var $4837 = Parser$Reply$error$($4833); - var $4834 = $4837; - break; - }; - var $4832 = $4834; - break; - case 'Parser.Reply.value': - var $4838 = self.pst; - var self = $4838; - switch (self._) { - case 'Parser.State.new': - var $4840 = self.err; - var $4841 = self.nam; - var $4842 = self.ini; - var $4843 = self.idx; - var $4844 = self.str; - var $4845 = ((console.log(("FALTANDO " + $4844)), (_$48 => { - var $4846 = ((console.log(("VALUE " + $4841)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4831, $4840), $4841, $4842, $4843, $4844); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $4848 = self.err; - var _reply$56 = Kind$Parser$name1$(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $4850 = self.err; - var self = $4848; - switch (self._) { - case 'Maybe.some': - var $4852 = self.value; - var $4853 = Parser$Reply$error$(Parser$Error$combine$($4852, $4850)); - var $4851 = $4853; - break; - case 'Maybe.none': - var $4854 = Parser$Reply$error$($4850); - var $4851 = $4854; - break; - }; - var $4849 = $4851; - break; - case 'Parser.Reply.value': - var $4855 = self.pst; - var $4856 = self.val; - var self = $4855; - switch (self._) { - case 'Parser.State.new': - var $4858 = self.err; - var $4859 = self.nam; - var $4860 = self.ini; - var $4861 = self.idx; - var $4862 = self.str; - var $4863 = ((console.log(("FALTANDO " + $4862)), (_$64 => { - var $4864 = ((console.log(("VALUE " + $4859)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4848, $4858), $4859, $4860, $4861, $4862); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $4866 = self.err; - var _reply$72 = Kind$Parser$text$(":", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $4868 = self.err; - var self = $4866; - switch (self._) { - case 'Maybe.some': - var $4870 = self.value; - var $4871 = Parser$Reply$error$(Parser$Error$combine$($4870, $4868)); - var $4869 = $4871; - break; - case 'Maybe.none': - var $4872 = Parser$Reply$error$($4868); - var $4869 = $4872; - break; - }; - var $4867 = $4869; - break; - case 'Parser.Reply.value': - var $4873 = self.pst; - var self = $4873; - switch (self._) { - case 'Parser.State.new': - var $4875 = self.err; - var $4876 = self.nam; - var $4877 = self.ini; - var $4878 = self.idx; - var $4879 = self.str; - var $4880 = ((console.log(("FALTANDO " + $4879)), (_$80 => { - var $4881 = ((console.log(("VALUE " + $4876)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($4866, $4875), $4876, $4877, $4878, $4879); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $4883 = self.err; - var _reply$88 = Kind$Parser$term(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $4885 = self.err; - var self = $4883; - switch (self._) { - case 'Maybe.some': - var $4887 = self.value; - var $4888 = Parser$Reply$error$(Parser$Error$combine$($4887, $4885)); - var $4886 = $4888; - break; - case 'Maybe.none': - var $4889 = Parser$Reply$error$($4885); - var $4886 = $4889; - break; - }; - var $4884 = $4886; - break; - case 'Parser.Reply.value': - var $4890 = self.pst; - var $4891 = self.val; - var self = $4890; - switch (self._) { - case 'Parser.State.new': - var $4893 = self.err; - var $4894 = self.nam; - var $4895 = self.ini; - var $4896 = self.idx; - var $4897 = self.str; - var $4898 = ((console.log(("FALTANDO " + $4897)), (_$96 => { - var $4899 = ((console.log(("VALUE " + $4894)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($4883, $4893), $4894, $4895, $4896, $4897); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $4901 = self.err; - var _reply$104 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $4903 = self.err; - var self = $4901; - switch (self._) { - case 'Maybe.some': - var $4905 = self.value; - var $4906 = Parser$Reply$error$(Parser$Error$combine$($4905, $4903)); - var $4904 = $4906; - break; - case 'Maybe.none': - var $4907 = Parser$Reply$error$($4903); - var $4904 = $4907; - break; - }; - var $4902 = $4904; - break; - case 'Parser.Reply.value': - var $4908 = self.pst; - var self = $4908; - switch (self._) { - case 'Parser.State.new': - var $4910 = self.err; - var $4911 = self.nam; - var $4912 = self.ini; - var $4913 = self.idx; - var $4914 = self.str; - var $4915 = ((console.log(("FALTANDO " + $4914)), (_$112 => { - var $4916 = ((console.log(("VALUE " + $4911)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($4901, $4910), $4911, $4912, $4913, $4914); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $4918 = self.err; - var _reply$120 = _body$1(Unit$new)(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $4920 = self.err; - var self = $4918; - switch (self._) { - case 'Maybe.some': - var $4922 = self.value; - var $4923 = Parser$Reply$error$(Parser$Error$combine$($4922, $4920)); - var $4921 = $4923; - break; - case 'Maybe.none': - var $4924 = Parser$Reply$error$($4920); - var $4921 = $4924; - break; - }; - var $4919 = $4921; - break; - case 'Parser.Reply.value': - var $4925 = self.pst; - var $4926 = self.val; - var self = $4925; - switch (self._) { - case 'Parser.State.new': - var $4928 = self.err; - var $4929 = self.nam; - var $4930 = self.ini; - var $4931 = self.idx; - var $4932 = self.str; - var $4933 = ((console.log(("FALTANDO " + $4932)), (_$128 => { - var $4934 = ((console.log(("VALUE " + $4929)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($4918, $4928), $4929, $4930, $4931, $4932); - var _term$131 = Kind$Term$ref$("Function.while"); - var _term$132 = Kind$Term$app$(_term$131, Kind$Term$hol$(Bits$e)); - var _term$133 = Kind$Term$app$(_term$132, Kind$Term$ref$($4856)); - var _term$134 = Kind$Term$app$(_term$133, Kind$Term$lam$($4856, (_s$134 => { - var $4936 = $4821; - return $4936; - }))); - var _term$135 = Kind$Term$app$(_term$134, Kind$Term$lam$($4856, (_s$135 => { - var $4937 = $4891; - return $4937; - }))); - var _term$136 = Kind$Term$let$($4856, _term$135, (_x$136 => { - var $4938 = $4926; - return $4938; - })); - var $4935 = Parser$Reply$value$(_reply$pst$130, _term$136); - return $4935; - })())); - return $4934; - })())); - var $4927 = $4933; - break; - }; - var $4919 = $4927; - break; - }; - var $4917 = $4919; - break; - }; - return $4917; - })())); - return $4916; - })())); - var $4909 = $4915; - break; - }; - var $4902 = $4909; - break; - }; - var $4900 = $4902; - break; - }; - return $4900; - })())); - return $4899; - })())); - var $4892 = $4898; - break; - }; - var $4884 = $4892; - break; - }; - var $4882 = $4884; - break; - }; - return $4882; - })())); - return $4881; - })())); - var $4874 = $4880; - break; - }; - var $4867 = $4874; - break; - }; - var $4865 = $4867; - break; - }; - return $4865; - })())); - return $4864; - })())); - var $4857 = $4863; - break; - }; - var $4849 = $4857; - break; - }; - var $4847 = $4849; - break; - }; - return $4847; - })())); - return $4846; - })())); - var $4839 = $4845; - break; - }; - var $4832 = $4839; - break; - }; - var $4830 = $4832; - break; - }; - return $4830; - })())); - return $4829; - })())); - var $4822 = $4828; - break; - }; - var $4814 = $4822; - break; - }; - var $4812 = $4814; - break; - }; - return $4812; - })())); - return $4811; - })())); - var $4804 = $4810; - break; - }; - var $4797 = $4804; - break; - }; - var $4795 = $4797; - break; - }; - return $4795; - })); - return $4794; - }; - const Kind$Parser$letwhile$with = x0 => Kind$Parser$letwhile$with$(x0); - - function Kind$Parser$let$abort$(_body$1) { - var $4939 = Kind$Parser$block("let")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $4941 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $4943 = self.err; - var self = $4941; - switch (self._) { - case 'Maybe.some': - var $4945 = self.value; - var $4946 = Parser$Reply$error$(Parser$Error$combine$($4945, $4943)); - var $4944 = $4946; - break; - case 'Maybe.none': - var $4947 = Parser$Reply$error$($4943); - var $4944 = $4947; - break; - }; - var $4942 = $4944; - break; - case 'Parser.Reply.value': - var $4948 = self.pst; - var self = $4948; - switch (self._) { - case 'Parser.State.new': - var $4950 = self.err; - var $4951 = self.nam; - var $4952 = self.ini; - var $4953 = self.idx; - var $4954 = self.str; - var $4955 = ((console.log(("FALTANDO " + $4954)), (_$16 => { - var $4956 = ((console.log(("VALUE " + $4951)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($4941, $4950), $4951, $4952, $4953, $4954); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $4958 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $4960 = self.err; - var self = $4958; - switch (self._) { - case 'Maybe.some': - var $4962 = self.value; - var $4963 = Parser$Reply$error$(Parser$Error$combine$($4962, $4960)); - var $4961 = $4963; - break; - case 'Maybe.none': - var $4964 = Parser$Reply$error$($4960); - var $4961 = $4964; - break; - }; - var $4959 = $4961; - break; - case 'Parser.Reply.value': - var $4965 = self.pst; - var $4966 = self.val; - var self = $4965; - switch (self._) { - case 'Parser.State.new': - var $4968 = self.err; - var $4969 = self.nam; - var $4970 = self.ini; - var $4971 = self.idx; - var $4972 = self.str; - var $4973 = ((console.log(("FALTANDO " + $4972)), (_$32 => { - var $4974 = ((console.log(("VALUE " + $4969)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($4958, $4968), $4969, $4970, $4971, $4972); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $4976 = self.err; - var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $4978 = self.err; - var self = $4976; - switch (self._) { - case 'Maybe.some': - var $4980 = self.value; - var $4981 = Parser$Reply$error$(Parser$Error$combine$($4980, $4978)); - var $4979 = $4981; - break; - case 'Maybe.none': - var $4982 = Parser$Reply$error$($4978); - var $4979 = $4982; - break; - }; - var $4977 = $4979; - break; - case 'Parser.Reply.value': - var $4983 = self.pst; - var self = $4983; - switch (self._) { - case 'Parser.State.new': - var $4985 = self.err; - var $4986 = self.nam; - var $4987 = self.ini; - var $4988 = self.idx; - var $4989 = self.str; - var $4990 = ((console.log(("FALTANDO " + $4989)), (_$48 => { - var $4991 = ((console.log(("VALUE " + $4986)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($4976, $4985), $4986, $4987, $4988, $4989); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $4993 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $4995 = self.err; - var self = $4993; - switch (self._) { - case 'Maybe.some': - var $4997 = self.value; - var $4998 = Parser$Reply$error$(Parser$Error$combine$($4997, $4995)); - var $4996 = $4998; - break; - case 'Maybe.none': - var $4999 = Parser$Reply$error$($4995); - var $4996 = $4999; - break; - }; - var $4994 = $4996; - break; - case 'Parser.Reply.value': - var $5000 = self.pst; - var $5001 = self.val; - var self = $5000; - switch (self._) { - case 'Parser.State.new': - var $5003 = self.err; - var $5004 = self.nam; - var $5005 = self.ini; - var $5006 = self.idx; - var $5007 = self.str; - var $5008 = ((console.log(("FALTANDO " + $5007)), (_$64 => { - var $5009 = ((console.log(("VALUE " + $5004)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($4993, $5003), $5004, $5005, $5006, $5007); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $5011 = self.err; - var _reply$72 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $5013 = self.err; - var self = $5011; - switch (self._) { - case 'Maybe.some': - var $5015 = self.value; - var $5016 = Parser$Reply$error$(Parser$Error$combine$($5015, $5013)); - var $5014 = $5016; - break; - case 'Maybe.none': - var $5017 = Parser$Reply$error$($5013); - var $5014 = $5017; - break; - }; - var $5012 = $5014; - break; - case 'Parser.Reply.value': - var $5018 = self.pst; - var self = $5018; - switch (self._) { - case 'Parser.State.new': - var $5020 = self.err; - var $5021 = self.nam; - var $5022 = self.ini; - var $5023 = self.idx; - var $5024 = self.str; - var $5025 = ((console.log(("FALTANDO " + $5024)), (_$80 => { - var $5026 = ((console.log(("VALUE " + $5021)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5011, $5020), $5021, $5022, $5023, $5024); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $5028 = self.err; - var _reply$88 = Kind$Parser$text$("abort", _reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $5030 = self.err; - var self = $5028; - switch (self._) { - case 'Maybe.some': - var $5032 = self.value; - var $5033 = Parser$Reply$error$(Parser$Error$combine$($5032, $5030)); - var $5031 = $5033; - break; - case 'Maybe.none': - var $5034 = Parser$Reply$error$($5030); - var $5031 = $5034; - break; - }; - var $5029 = $5031; - break; - case 'Parser.Reply.value': - var $5035 = self.pst; - var self = $5035; - switch (self._) { - case 'Parser.State.new': - var $5037 = self.err; - var $5038 = self.nam; - var $5039 = self.ini; - var $5040 = self.idx; - var $5041 = self.str; - var $5042 = ((console.log(("FALTANDO " + $5041)), (_$96 => { - var $5043 = ((console.log(("VALUE " + $5038)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($5028, $5037), $5038, $5039, $5040, $5041); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $5045 = self.err; - var _reply$104 = Kind$Parser$term(_reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $5047 = self.err; - var self = $5045; - switch (self._) { - case 'Maybe.some': - var $5049 = self.value; - var $5050 = Parser$Reply$error$(Parser$Error$combine$($5049, $5047)); - var $5048 = $5050; - break; - case 'Maybe.none': - var $5051 = Parser$Reply$error$($5047); - var $5048 = $5051; - break; - }; - var $5046 = $5048; - break; - case 'Parser.Reply.value': - var $5052 = self.pst; - var $5053 = self.val; - var self = $5052; - switch (self._) { - case 'Parser.State.new': - var $5055 = self.err; - var $5056 = self.nam; - var $5057 = self.ini; - var $5058 = self.idx; - var $5059 = self.str; - var $5060 = ((console.log(("FALTANDO " + $5059)), (_$112 => { - var $5061 = ((console.log(("VALUE " + $5056)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5045, $5055), $5056, $5057, $5058, $5059); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $5063 = self.err; - var _reply$120 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $5065 = self.err; - var self = $5063; - switch (self._) { - case 'Maybe.some': - var $5067 = self.value; - var $5068 = Parser$Reply$error$(Parser$Error$combine$($5067, $5065)); - var $5066 = $5068; - break; - case 'Maybe.none': - var $5069 = Parser$Reply$error$($5065); - var $5066 = $5069; - break; - }; - var $5064 = $5066; - break; - case 'Parser.Reply.value': - var $5070 = self.pst; - var self = $5070; - switch (self._) { - case 'Parser.State.new': - var $5072 = self.err; - var $5073 = self.nam; - var $5074 = self.ini; - var $5075 = self.idx; - var $5076 = self.str; - var $5077 = ((console.log(("FALTANDO " + $5076)), (_$128 => { - var $5078 = ((console.log(("VALUE " + $5073)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($5063, $5072), $5073, $5074, $5075, $5076); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $5080 = self.err; - var _reply$136 = _body$1(Unit$new)(_reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $5082 = self.err; - var self = $5080; - switch (self._) { - case 'Maybe.some': - var $5084 = self.value; - var $5085 = Parser$Reply$error$(Parser$Error$combine$($5084, $5082)); - var $5083 = $5085; - break; - case 'Maybe.none': - var $5086 = Parser$Reply$error$($5082); - var $5083 = $5086; - break; - }; - var $5081 = $5083; - break; - case 'Parser.Reply.value': - var $5087 = self.pst; - var $5088 = self.val; - var self = $5087; - switch (self._) { - case 'Parser.State.new': - var $5090 = self.err; - var $5091 = self.nam; - var $5092 = self.ini; - var $5093 = self.idx; - var $5094 = self.str; - var $5095 = ((console.log(("FALTANDO " + $5094)), (_$144 => { - var $5096 = ((console.log(("VALUE " + $5091)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($5080, $5090), $5091, $5092, $5093, $5094); - var _term$147 = $5001; - var _term$148 = Kind$Term$app$(_term$147, Kind$Term$lam$("", (_$148 => { - var $5098 = Kind$Term$hol$(Bits$e); - return $5098; - }))); - var _term$149 = Kind$Term$app$(_term$148, $5053); - var _term$150 = Kind$Term$app$(_term$149, Kind$Term$lam$($4966, (_$150 => { - var $5099 = $5088; - return $5099; - }))); - var $5097 = Parser$Reply$value$(_reply$pst$146, _term$150); - return $5097; - })())); - return $5096; - })())); - var $5089 = $5095; - break; - }; - var $5081 = $5089; - break; - }; - var $5079 = $5081; - break; - }; - return $5079; - })())); - return $5078; - })())); - var $5071 = $5077; - break; - }; - var $5064 = $5071; - break; - }; - var $5062 = $5064; - break; - }; - return $5062; - })())); - return $5061; - })())); - var $5054 = $5060; - break; - }; - var $5046 = $5054; - break; - }; - var $5044 = $5046; - break; - }; - return $5044; - })())); - return $5043; - })())); - var $5036 = $5042; - break; - }; - var $5029 = $5036; - break; - }; - var $5027 = $5029; - break; - }; - return $5027; - })())); - return $5026; - })())); - var $5019 = $5025; - break; - }; - var $5012 = $5019; - break; - }; - var $5010 = $5012; - break; - }; - return $5010; - })())); - return $5009; - })())); - var $5002 = $5008; - break; - }; - var $4994 = $5002; - break; - }; - var $4992 = $4994; - break; - }; - return $4992; - })())); - return $4991; - })())); - var $4984 = $4990; - break; - }; - var $4977 = $4984; - break; - }; - var $4975 = $4977; - break; - }; - return $4975; - })())); - return $4974; - })())); - var $4967 = $4973; - break; - }; - var $4959 = $4967; - break; - }; - var $4957 = $4959; - break; - }; - return $4957; - })())); - return $4956; - })())); - var $4949 = $4955; - break; - }; - var $4942 = $4949; - break; - }; - var $4940 = $4942; - break; - }; - return $4940; - })); - return $4939; - }; - const Kind$Parser$let$abort = x0 => Kind$Parser$let$abort$(x0); - - function Kind$Parser$let$(_body$1) { - var $5100 = Kind$Parser$block("let")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5102 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5104 = self.err; - var self = $5102; - switch (self._) { - case 'Maybe.some': - var $5106 = self.value; - var $5107 = Parser$Reply$error$(Parser$Error$combine$($5106, $5104)); - var $5105 = $5107; - break; - case 'Maybe.none': - var $5108 = Parser$Reply$error$($5104); - var $5105 = $5108; - break; - }; - var $5103 = $5105; - break; - case 'Parser.Reply.value': - var $5109 = self.pst; - var self = $5109; - switch (self._) { - case 'Parser.State.new': - var $5111 = self.err; - var $5112 = self.nam; - var $5113 = self.ini; - var $5114 = self.idx; - var $5115 = self.str; - var $5116 = ((console.log(("FALTANDO " + $5115)), (_$16 => { - var $5117 = ((console.log(("VALUE " + $5112)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5102, $5111), $5112, $5113, $5114, $5115); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $5119 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $5121 = self.err; - var self = $5119; - switch (self._) { - case 'Maybe.some': - var $5123 = self.value; - var $5124 = Parser$Reply$error$(Parser$Error$combine$($5123, $5121)); - var $5122 = $5124; - break; - case 'Maybe.none': - var $5125 = Parser$Reply$error$($5121); - var $5122 = $5125; - break; - }; - var $5120 = $5122; - break; - case 'Parser.Reply.value': - var $5126 = self.pst; - var $5127 = self.val; - var self = $5126; - switch (self._) { - case 'Parser.State.new': - var $5129 = self.err; - var $5130 = self.nam; - var $5131 = self.ini; - var $5132 = self.idx; - var $5133 = self.str; - var $5134 = ((console.log(("FALTANDO " + $5133)), (_$32 => { - var $5135 = ((console.log(("VALUE " + $5130)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5119, $5129), $5130, $5131, $5132, $5133); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $5137 = self.err; - var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $5139 = self.err; - var self = $5137; - switch (self._) { - case 'Maybe.some': - var $5141 = self.value; - var $5142 = Parser$Reply$error$(Parser$Error$combine$($5141, $5139)); - var $5140 = $5142; - break; - case 'Maybe.none': - var $5143 = Parser$Reply$error$($5139); - var $5140 = $5143; - break; - }; - var $5138 = $5140; - break; - case 'Parser.Reply.value': - var $5144 = self.pst; - var self = $5144; - switch (self._) { - case 'Parser.State.new': - var $5146 = self.err; - var $5147 = self.nam; - var $5148 = self.ini; - var $5149 = self.idx; - var $5150 = self.str; - var $5151 = ((console.log(("FALTANDO " + $5150)), (_$48 => { - var $5152 = ((console.log(("VALUE " + $5147)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5137, $5146), $5147, $5148, $5149, $5150); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $5154 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $5156 = self.err; - var self = $5154; - switch (self._) { - case 'Maybe.some': - var $5158 = self.value; - var $5159 = Parser$Reply$error$(Parser$Error$combine$($5158, $5156)); - var $5157 = $5159; - break; - case 'Maybe.none': - var $5160 = Parser$Reply$error$($5156); - var $5157 = $5160; - break; - }; - var $5155 = $5157; - break; - case 'Parser.Reply.value': - var $5161 = self.pst; - var $5162 = self.val; - var self = $5161; - switch (self._) { - case 'Parser.State.new': - var $5164 = self.err; - var $5165 = self.nam; - var $5166 = self.ini; - var $5167 = self.idx; - var $5168 = self.str; - var $5169 = ((console.log(("FALTANDO " + $5168)), (_$64 => { - var $5170 = ((console.log(("VALUE " + $5165)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5154, $5164), $5165, $5166, $5167, $5168); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $5172 = self.err; - var _reply$72 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $5174 = self.err; - var self = $5172; - switch (self._) { - case 'Maybe.some': - var $5176 = self.value; - var $5177 = Parser$Reply$error$(Parser$Error$combine$($5176, $5174)); - var $5175 = $5177; - break; - case 'Maybe.none': - var $5178 = Parser$Reply$error$($5174); - var $5175 = $5178; - break; - }; - var $5173 = $5175; - break; - case 'Parser.Reply.value': - var $5179 = self.pst; - var self = $5179; - switch (self._) { - case 'Parser.State.new': - var $5181 = self.err; - var $5182 = self.nam; - var $5183 = self.ini; - var $5184 = self.idx; - var $5185 = self.str; - var $5186 = ((console.log(("FALTANDO " + $5185)), (_$80 => { - var $5187 = ((console.log(("VALUE " + $5182)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5172, $5181), $5182, $5183, $5184, $5185); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $5189 = self.err; - var _reply$88 = _body$1(Unit$new)(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $5191 = self.err; - var self = $5189; - switch (self._) { - case 'Maybe.some': - var $5193 = self.value; - var $5194 = Parser$Reply$error$(Parser$Error$combine$($5193, $5191)); - var $5192 = $5194; - break; - case 'Maybe.none': - var $5195 = Parser$Reply$error$($5191); - var $5192 = $5195; - break; - }; - var $5190 = $5192; - break; - case 'Parser.Reply.value': - var $5196 = self.pst; - var $5197 = self.val; - var self = $5196; - switch (self._) { - case 'Parser.State.new': - var $5199 = self.err; - var $5200 = self.nam; - var $5201 = self.ini; - var $5202 = self.idx; - var $5203 = self.str; - var $5204 = ((console.log(("FALTANDO " + $5203)), (_$96 => { - var $5205 = ((console.log(("VALUE " + $5200)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($5189, $5199), $5200, $5201, $5202, $5203); - var $5206 = Parser$Reply$value$(_reply$pst$98, Kind$Term$let$($5127, $5162, (_x$99 => { - var $5207 = $5197; - return $5207; - }))); - return $5206; - })())); - return $5205; - })())); - var $5198 = $5204; - break; - }; - var $5190 = $5198; - break; - }; - var $5188 = $5190; - break; - }; - return $5188; - })())); - return $5187; - })())); - var $5180 = $5186; - break; - }; - var $5173 = $5180; - break; - }; - var $5171 = $5173; - break; - }; - return $5171; - })())); - return $5170; - })())); - var $5163 = $5169; - break; - }; - var $5155 = $5163; - break; - }; - var $5153 = $5155; - break; - }; - return $5153; - })())); - return $5152; - })())); - var $5145 = $5151; - break; - }; - var $5138 = $5145; - break; - }; - var $5136 = $5138; - break; - }; - return $5136; - })())); - return $5135; - })())); - var $5128 = $5134; - break; - }; - var $5120 = $5128; - break; - }; - var $5118 = $5120; - break; - }; - return $5118; - })())); - return $5117; - })())); - var $5110 = $5116; - break; - }; - var $5103 = $5110; - break; - }; - var $5101 = $5103; - break; - }; - return $5101; - })); - return $5100; - }; - const Kind$Parser$let = x0 => Kind$Parser$let$(x0); - - function Kind$Parser$let$omit$(_body$1) { - var $5208 = Kind$Parser$block("let")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5210 = self.err; - var _reply$8 = Kind$Parser$name1$(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5212 = self.err; - var self = $5210; - switch (self._) { - case 'Maybe.some': - var $5214 = self.value; - var $5215 = Parser$Reply$error$(Parser$Error$combine$($5214, $5212)); - var $5213 = $5215; - break; - case 'Maybe.none': - var $5216 = Parser$Reply$error$($5212); - var $5213 = $5216; - break; - }; - var $5211 = $5213; - break; - case 'Parser.Reply.value': - var $5217 = self.pst; - var $5218 = self.val; - var self = $5217; - switch (self._) { - case 'Parser.State.new': - var $5220 = self.err; - var $5221 = self.nam; - var $5222 = self.ini; - var $5223 = self.idx; - var $5224 = self.str; - var $5225 = ((console.log(("FALTANDO " + $5224)), (_$16 => { - var $5226 = ((console.log(("VALUE " + $5221)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5210, $5220), $5221, $5222, $5223, $5224); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $5228 = self.err; - var _reply$24 = Kind$Parser$text$("= ", _reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $5230 = self.err; - var self = $5228; - switch (self._) { - case 'Maybe.some': - var $5232 = self.value; - var $5233 = Parser$Reply$error$(Parser$Error$combine$($5232, $5230)); - var $5231 = $5233; - break; - case 'Maybe.none': - var $5234 = Parser$Reply$error$($5230); - var $5231 = $5234; - break; - }; - var $5229 = $5231; - break; - case 'Parser.Reply.value': - var $5235 = self.pst; - var self = $5235; - switch (self._) { - case 'Parser.State.new': - var $5237 = self.err; - var $5238 = self.nam; - var $5239 = self.ini; - var $5240 = self.idx; - var $5241 = self.str; - var $5242 = ((console.log(("FALTANDO " + $5241)), (_$32 => { - var $5243 = ((console.log(("VALUE " + $5238)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5228, $5237), $5238, $5239, $5240, $5241); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $5245 = self.err; - var _reply$40 = Kind$Parser$term(_reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $5247 = self.err; - var self = $5245; - switch (self._) { - case 'Maybe.some': - var $5249 = self.value; - var $5250 = Parser$Reply$error$(Parser$Error$combine$($5249, $5247)); - var $5248 = $5250; - break; - case 'Maybe.none': - var $5251 = Parser$Reply$error$($5247); - var $5248 = $5251; - break; - }; - var $5246 = $5248; - break; - case 'Parser.Reply.value': - var $5252 = self.pst; - var $5253 = self.val; - var self = $5252; - switch (self._) { - case 'Parser.State.new': - var $5255 = self.err; - var $5256 = self.nam; - var $5257 = self.ini; - var $5258 = self.idx; - var $5259 = self.str; - var $5260 = ((console.log(("FALTANDO " + $5259)), (_$48 => { - var $5261 = ((console.log(("VALUE " + $5256)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5245, $5255), $5256, $5257, $5258, $5259); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $5263 = self.err; - var _reply$56 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $5265 = self.err; - var self = $5263; - switch (self._) { - case 'Maybe.some': - var $5267 = self.value; - var $5268 = Parser$Reply$error$(Parser$Error$combine$($5267, $5265)); - var $5266 = $5268; - break; - case 'Maybe.none': - var $5269 = Parser$Reply$error$($5265); - var $5266 = $5269; - break; - }; - var $5264 = $5266; - break; - case 'Parser.Reply.value': - var $5270 = self.pst; - var self = $5270; - switch (self._) { - case 'Parser.State.new': - var $5272 = self.err; - var $5273 = self.nam; - var $5274 = self.ini; - var $5275 = self.idx; - var $5276 = self.str; - var $5277 = ((console.log(("FALTANDO " + $5276)), (_$64 => { - var $5278 = ((console.log(("VALUE " + $5273)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5263, $5272), $5273, $5274, $5275, $5276); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $5280 = self.err; - var _reply$72 = _body$1(Unit$new)(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $5282 = self.err; - var self = $5280; - switch (self._) { - case 'Maybe.some': - var $5284 = self.value; - var $5285 = Parser$Reply$error$(Parser$Error$combine$($5284, $5282)); - var $5283 = $5285; - break; - case 'Maybe.none': - var $5286 = Parser$Reply$error$($5282); - var $5283 = $5286; - break; - }; - var $5281 = $5283; - break; - case 'Parser.Reply.value': - var $5287 = self.pst; - var $5288 = self.val; - var self = $5287; - switch (self._) { - case 'Parser.State.new': - var $5290 = self.err; - var $5291 = self.nam; - var $5292 = self.ini; - var $5293 = self.idx; - var $5294 = self.str; - var $5295 = ((console.log(("FALTANDO " + $5294)), (_$80 => { - var $5296 = ((console.log(("VALUE " + $5291)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5280, $5290), $5291, $5292, $5293, $5294); - var $5297 = Parser$Reply$value$(_reply$pst$82, Kind$Term$let$($5218, $5253, (_x$83 => { - var $5298 = $5288; - return $5298; - }))); - return $5297; - })())); - return $5296; - })())); - var $5289 = $5295; - break; - }; - var $5281 = $5289; - break; - }; - var $5279 = $5281; - break; - }; - return $5279; - })())); - return $5278; - })())); - var $5271 = $5277; - break; - }; - var $5264 = $5271; - break; - }; - var $5262 = $5264; - break; - }; - return $5262; - })())); - return $5261; - })())); - var $5254 = $5260; - break; - }; - var $5246 = $5254; - break; - }; - var $5244 = $5246; - break; - }; - return $5244; - })())); - return $5243; - })())); - var $5236 = $5242; - break; - }; - var $5229 = $5236; - break; - }; - var $5227 = $5229; - break; - }; - return $5227; - })())); - return $5226; - })())); - var $5219 = $5225; - break; - }; - var $5211 = $5219; - break; - }; - var $5209 = $5211; - break; - }; - return $5209; - })); - return $5208; - }; - const Kind$Parser$let$omit = x0 => Kind$Parser$let$omit$(x0); - - function Kind$Parser$getwhile$(_body$1) { - var $5299 = Kind$Parser$block("let-while")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5301 = self.err; - var _reply$8 = Parser$maybe$(Kind$Parser$text("let "), _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5303 = self.err; - var self = $5301; - switch (self._) { - case 'Maybe.some': - var $5305 = self.value; - var $5306 = Parser$Reply$error$(Parser$Error$combine$($5305, $5303)); - var $5304 = $5306; - break; - case 'Maybe.none': - var $5307 = Parser$Reply$error$($5303); - var $5304 = $5307; - break; - }; - var $5302 = $5304; - break; - case 'Parser.Reply.value': - var $5308 = self.pst; - var self = $5308; - switch (self._) { - case 'Parser.State.new': - var $5310 = self.err; - var $5311 = self.nam; - var $5312 = self.ini; - var $5313 = self.idx; - var $5314 = self.str; - var $5315 = ((console.log(("FALTANDO " + $5314)), (_$16 => { - var $5316 = ((console.log(("VALUE " + $5311)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5301, $5310), $5311, $5312, $5313, $5314); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $5318 = self.err; - var _reply$24 = Kind$Parser$text$("{", _reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $5320 = self.err; - var self = $5318; - switch (self._) { - case 'Maybe.some': - var $5322 = self.value; - var $5323 = Parser$Reply$error$(Parser$Error$combine$($5322, $5320)); - var $5321 = $5323; - break; - case 'Maybe.none': - var $5324 = Parser$Reply$error$($5320); - var $5321 = $5324; - break; - }; - var $5319 = $5321; - break; - case 'Parser.Reply.value': - var $5325 = self.pst; - var self = $5325; - switch (self._) { - case 'Parser.State.new': - var $5327 = self.err; - var $5328 = self.nam; - var $5329 = self.ini; - var $5330 = self.idx; - var $5331 = self.str; - var $5332 = ((console.log(("FALTANDO " + $5331)), (_$32 => { - var $5333 = ((console.log(("VALUE " + $5328)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5318, $5327), $5328, $5329, $5330, $5331); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $5335 = self.err; - var _reply$40 = Kind$Parser$name1$(_reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $5337 = self.err; - var self = $5335; - switch (self._) { - case 'Maybe.some': - var $5339 = self.value; - var $5340 = Parser$Reply$error$(Parser$Error$combine$($5339, $5337)); - var $5338 = $5340; - break; - case 'Maybe.none': - var $5341 = Parser$Reply$error$($5337); - var $5338 = $5341; - break; - }; - var $5336 = $5338; - break; - case 'Parser.Reply.value': - var $5342 = self.pst; - var $5343 = self.val; - var self = $5342; - switch (self._) { - case 'Parser.State.new': - var $5345 = self.err; - var $5346 = self.nam; - var $5347 = self.ini; - var $5348 = self.idx; - var $5349 = self.str; - var $5350 = ((console.log(("FALTANDO " + $5349)), (_$48 => { - var $5351 = ((console.log(("VALUE " + $5346)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5335, $5345), $5346, $5347, $5348, $5349); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $5353 = self.err; - var _reply$56 = Kind$Parser$text$(",", _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $5355 = self.err; - var self = $5353; - switch (self._) { - case 'Maybe.some': - var $5357 = self.value; - var $5358 = Parser$Reply$error$(Parser$Error$combine$($5357, $5355)); - var $5356 = $5358; - break; - case 'Maybe.none': - var $5359 = Parser$Reply$error$($5355); - var $5356 = $5359; - break; - }; - var $5354 = $5356; - break; - case 'Parser.Reply.value': - var $5360 = self.pst; - var self = $5360; - switch (self._) { - case 'Parser.State.new': - var $5362 = self.err; - var $5363 = self.nam; - var $5364 = self.ini; - var $5365 = self.idx; - var $5366 = self.str; - var $5367 = ((console.log(("FALTANDO " + $5366)), (_$64 => { - var $5368 = ((console.log(("VALUE " + $5363)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5353, $5362), $5363, $5364, $5365, $5366); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $5370 = self.err; - var _reply$72 = Kind$Parser$name1$(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $5372 = self.err; - var self = $5370; - switch (self._) { - case 'Maybe.some': - var $5374 = self.value; - var $5375 = Parser$Reply$error$(Parser$Error$combine$($5374, $5372)); - var $5373 = $5375; - break; - case 'Maybe.none': - var $5376 = Parser$Reply$error$($5372); - var $5373 = $5376; - break; - }; - var $5371 = $5373; - break; - case 'Parser.Reply.value': - var $5377 = self.pst; - var $5378 = self.val; - var self = $5377; - switch (self._) { - case 'Parser.State.new': - var $5380 = self.err; - var $5381 = self.nam; - var $5382 = self.ini; - var $5383 = self.idx; - var $5384 = self.str; - var $5385 = ((console.log(("FALTANDO " + $5384)), (_$80 => { - var $5386 = ((console.log(("VALUE " + $5381)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5370, $5380), $5381, $5382, $5383, $5384); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $5388 = self.err; - var _reply$88 = Kind$Parser$text$("}", _reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $5390 = self.err; - var self = $5388; - switch (self._) { - case 'Maybe.some': - var $5392 = self.value; - var $5393 = Parser$Reply$error$(Parser$Error$combine$($5392, $5390)); - var $5391 = $5393; - break; - case 'Maybe.none': - var $5394 = Parser$Reply$error$($5390); - var $5391 = $5394; - break; - }; - var $5389 = $5391; - break; - case 'Parser.Reply.value': - var $5395 = self.pst; - var self = $5395; - switch (self._) { - case 'Parser.State.new': - var $5397 = self.err; - var $5398 = self.nam; - var $5399 = self.ini; - var $5400 = self.idx; - var $5401 = self.str; - var $5402 = ((console.log(("FALTANDO " + $5401)), (_$96 => { - var $5403 = ((console.log(("VALUE " + $5398)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($5388, $5397), $5398, $5399, $5400, $5401); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $5405 = self.err; - var _reply$104 = Kind$Parser$text$("=", _reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $5407 = self.err; - var self = $5405; - switch (self._) { - case 'Maybe.some': - var $5409 = self.value; - var $5410 = Parser$Reply$error$(Parser$Error$combine$($5409, $5407)); - var $5408 = $5410; - break; - case 'Maybe.none': - var $5411 = Parser$Reply$error$($5407); - var $5408 = $5411; - break; - }; - var $5406 = $5408; - break; - case 'Parser.Reply.value': - var $5412 = self.pst; - var self = $5412; - switch (self._) { - case 'Parser.State.new': - var $5414 = self.err; - var $5415 = self.nam; - var $5416 = self.ini; - var $5417 = self.idx; - var $5418 = self.str; - var $5419 = ((console.log(("FALTANDO " + $5418)), (_$112 => { - var $5420 = ((console.log(("VALUE " + $5415)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5405, $5414), $5415, $5416, $5417, $5418); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $5422 = self.err; - var _reply$120 = Kind$Parser$text$("while ", _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $5424 = self.err; - var self = $5422; - switch (self._) { - case 'Maybe.some': - var $5426 = self.value; - var $5427 = Parser$Reply$error$(Parser$Error$combine$($5426, $5424)); - var $5425 = $5427; - break; - case 'Maybe.none': - var $5428 = Parser$Reply$error$($5424); - var $5425 = $5428; - break; - }; - var $5423 = $5425; - break; - case 'Parser.Reply.value': - var $5429 = self.pst; - var self = $5429; - switch (self._) { - case 'Parser.State.new': - var $5431 = self.err; - var $5432 = self.nam; - var $5433 = self.ini; - var $5434 = self.idx; - var $5435 = self.str; - var $5436 = ((console.log(("FALTANDO " + $5435)), (_$128 => { - var $5437 = ((console.log(("VALUE " + $5432)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($5422, $5431), $5432, $5433, $5434, $5435); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $5439 = self.err; - var _reply$136 = Kind$Parser$term(_reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $5441 = self.err; - var self = $5439; - switch (self._) { - case 'Maybe.some': - var $5443 = self.value; - var $5444 = Parser$Reply$error$(Parser$Error$combine$($5443, $5441)); - var $5442 = $5444; - break; - case 'Maybe.none': - var $5445 = Parser$Reply$error$($5441); - var $5442 = $5445; - break; - }; - var $5440 = $5442; - break; - case 'Parser.Reply.value': - var $5446 = self.pst; - var $5447 = self.val; - var self = $5446; - switch (self._) { - case 'Parser.State.new': - var $5449 = self.err; - var $5450 = self.nam; - var $5451 = self.ini; - var $5452 = self.idx; - var $5453 = self.str; - var $5454 = ((console.log(("FALTANDO " + $5453)), (_$144 => { - var $5455 = ((console.log(("VALUE " + $5450)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($5439, $5449), $5450, $5451, $5452, $5453); - var self = _reply$pst$146; - switch (self._) { - case 'Parser.State.new': - var $5457 = self.err; - var _reply$152 = Kind$Parser$text$(":", _reply$pst$146); - var self = _reply$152; - switch (self._) { - case 'Parser.Reply.error': - var $5459 = self.err; - var self = $5457; - switch (self._) { - case 'Maybe.some': - var $5461 = self.value; - var $5462 = Parser$Reply$error$(Parser$Error$combine$($5461, $5459)); - var $5460 = $5462; - break; - case 'Maybe.none': - var $5463 = Parser$Reply$error$($5459); - var $5460 = $5463; - break; - }; - var $5458 = $5460; - break; - case 'Parser.Reply.value': - var $5464 = self.pst; - var self = $5464; - switch (self._) { - case 'Parser.State.new': - var $5466 = self.err; - var $5467 = self.nam; - var $5468 = self.ini; - var $5469 = self.idx; - var $5470 = self.str; - var $5471 = ((console.log(("FALTANDO " + $5470)), (_$160 => { - var $5472 = ((console.log(("VALUE " + $5467)), (_$161 => { - var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($5457, $5466), $5467, $5468, $5469, $5470); - var self = _reply$pst$162; - switch (self._) { - case 'Parser.State.new': - var $5474 = self.err; - var _reply$168 = Kind$Parser$term(_reply$pst$162); - var self = _reply$168; - switch (self._) { - case 'Parser.Reply.error': - var $5476 = self.err; - var self = $5474; - switch (self._) { - case 'Maybe.some': - var $5478 = self.value; - var $5479 = Parser$Reply$error$(Parser$Error$combine$($5478, $5476)); - var $5477 = $5479; - break; - case 'Maybe.none': - var $5480 = Parser$Reply$error$($5476); - var $5477 = $5480; - break; - }; - var $5475 = $5477; - break; - case 'Parser.Reply.value': - var $5481 = self.pst; - var $5482 = self.val; - var self = $5481; - switch (self._) { - case 'Parser.State.new': - var $5484 = self.err; - var $5485 = self.nam; - var $5486 = self.ini; - var $5487 = self.idx; - var $5488 = self.str; - var $5489 = ((console.log(("FALTANDO " + $5488)), (_$176 => { - var $5490 = ((console.log(("VALUE " + $5485)), (_$177 => { - var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($5474, $5484), $5485, $5486, $5487, $5488); - var self = _reply$pst$178; - switch (self._) { - case 'Parser.State.new': - var $5492 = self.err; - var _reply$184 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$178); - var self = _reply$184; - switch (self._) { - case 'Parser.Reply.error': - var $5494 = self.err; - var self = $5492; - switch (self._) { - case 'Maybe.some': - var $5496 = self.value; - var $5497 = Parser$Reply$error$(Parser$Error$combine$($5496, $5494)); - var $5495 = $5497; - break; - case 'Maybe.none': - var $5498 = Parser$Reply$error$($5494); - var $5495 = $5498; - break; - }; - var $5493 = $5495; - break; - case 'Parser.Reply.value': - var $5499 = self.pst; - var self = $5499; - switch (self._) { - case 'Parser.State.new': - var $5501 = self.err; - var $5502 = self.nam; - var $5503 = self.ini; - var $5504 = self.idx; - var $5505 = self.str; - var $5506 = ((console.log(("FALTANDO " + $5505)), (_$192 => { - var $5507 = ((console.log(("VALUE " + $5502)), (_$193 => { - var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($5492, $5501), $5502, $5503, $5504, $5505); - var self = _reply$pst$194; - switch (self._) { - case 'Parser.State.new': - var $5509 = self.err; - var _reply$200 = _body$1(Unit$new)(_reply$pst$194); - var self = _reply$200; - switch (self._) { - case 'Parser.Reply.error': - var $5511 = self.err; - var self = $5509; - switch (self._) { - case 'Maybe.some': - var $5513 = self.value; - var $5514 = Parser$Reply$error$(Parser$Error$combine$($5513, $5511)); - var $5512 = $5514; - break; - case 'Maybe.none': - var $5515 = Parser$Reply$error$($5511); - var $5512 = $5515; - break; - }; - var $5510 = $5512; - break; - case 'Parser.Reply.value': - var $5516 = self.pst; - var $5517 = self.val; - var self = $5516; - switch (self._) { - case 'Parser.State.new': - var $5519 = self.err; - var $5520 = self.nam; - var $5521 = self.ini; - var $5522 = self.idx; - var $5523 = self.str; - var $5524 = ((console.log(("FALTANDO " + $5523)), (_$208 => { - var $5525 = ((console.log(("VALUE " + $5520)), (_$209 => { - var _reply$pst$210 = Parser$State$new$(Parser$Error$maybe_combine$($5509, $5519), $5520, $5521, $5522, $5523); - var _moti$211 = Kind$Term$lam$("", (_x$211 => { - var $5527 = Kind$Term$hol$(Bits$e); - return $5527; - })); - var _term$212 = Kind$Term$ref$("Function.while"); - var _term$213 = Kind$Term$app$(_term$212, Kind$Term$hol$(Bits$e)); - var _init$214 = Kind$Term$ref$("Pair.new"); - var _init$215 = Kind$Term$app$(_init$214, Kind$Term$hol$(Bits$e)); - var _init$216 = Kind$Term$app$(_init$215, Kind$Term$hol$(Bits$e)); - var _init$217 = Kind$Term$app$(_init$216, Kind$Term$ref$($5343)); - var _init$218 = Kind$Term$app$(_init$217, Kind$Term$ref$($5378)); - var _term$219 = Kind$Term$app$(_term$213, _init$218); - var _term$220 = Kind$Term$app$(_term$219, Kind$Term$lam$("s", (_s$220 => { - var $5528 = Kind$Term$app$(Kind$Term$app$(_s$220, _moti$211), Kind$Term$lam$($5343, (_x$221 => { - var $5529 = Kind$Term$lam$($5378, (_y$222 => { - var $5530 = $5447; - return $5530; - })); - return $5529; - }))); - return $5528; - }))); - var _term$221 = Kind$Term$app$(_term$220, Kind$Term$lam$("s", (_s$221 => { - var $5531 = Kind$Term$app$(Kind$Term$app$(_s$221, _moti$211), Kind$Term$lam$($5343, (_x$222 => { - var $5532 = Kind$Term$lam$($5378, (_y$223 => { - var $5533 = $5482; - return $5533; - })); - return $5532; - }))); - return $5531; - }))); - var _term$222 = Kind$Term$app$(Kind$Term$app$(_term$221, _moti$211), Kind$Term$lam$($5343, (_x$222 => { - var $5534 = Kind$Term$lam$($5378, (_y$223 => { - var $5535 = $5517; - return $5535; - })); - return $5534; - }))); - var $5526 = Parser$Reply$value$(_reply$pst$210, _term$222); - return $5526; - })())); - return $5525; - })())); - var $5518 = $5524; - break; - }; - var $5510 = $5518; - break; - }; - var $5508 = $5510; - break; - }; - return $5508; - })())); - return $5507; - })())); - var $5500 = $5506; - break; - }; - var $5493 = $5500; - break; - }; - var $5491 = $5493; - break; - }; - return $5491; - })())); - return $5490; - })())); - var $5483 = $5489; - break; - }; - var $5475 = $5483; - break; - }; - var $5473 = $5475; - break; - }; - return $5473; - })())); - return $5472; - })())); - var $5465 = $5471; - break; - }; - var $5458 = $5465; - break; - }; - var $5456 = $5458; - break; - }; - return $5456; - })())); - return $5455; - })())); - var $5448 = $5454; - break; - }; - var $5440 = $5448; - break; - }; - var $5438 = $5440; - break; - }; - return $5438; - })())); - return $5437; - })())); - var $5430 = $5436; - break; - }; - var $5423 = $5430; - break; - }; - var $5421 = $5423; - break; - }; - return $5421; - })())); - return $5420; - })())); - var $5413 = $5419; - break; - }; - var $5406 = $5413; - break; - }; - var $5404 = $5406; - break; - }; - return $5404; - })())); - return $5403; - })())); - var $5396 = $5402; - break; - }; - var $5389 = $5396; - break; - }; - var $5387 = $5389; - break; - }; - return $5387; - })())); - return $5386; - })())); - var $5379 = $5385; - break; - }; - var $5371 = $5379; - break; - }; - var $5369 = $5371; - break; - }; - return $5369; - })())); - return $5368; - })())); - var $5361 = $5367; - break; - }; - var $5354 = $5361; - break; - }; - var $5352 = $5354; - break; - }; - return $5352; - })())); - return $5351; - })())); - var $5344 = $5350; - break; - }; - var $5336 = $5344; - break; - }; - var $5334 = $5336; - break; - }; - return $5334; - })())); - return $5333; - })())); - var $5326 = $5332; - break; - }; - var $5319 = $5326; - break; - }; - var $5317 = $5319; - break; - }; - return $5317; - })())); - return $5316; - })())); - var $5309 = $5315; - break; - }; - var $5302 = $5309; - break; - }; - var $5300 = $5302; - break; - }; - return $5300; - })); - return $5299; - }; - const Kind$Parser$getwhile = x0 => Kind$Parser$getwhile$(x0); - - function Kind$Parser$getwhile$with$(_body$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5537 = self.err; - var _reply$8 = Kind$Parser$text$("while ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5539 = self.err; - var self = $5537; - switch (self._) { - case 'Maybe.some': - var $5541 = self.value; - var $5542 = Parser$Reply$error$(Parser$Error$combine$($5541, $5539)); - var $5540 = $5542; - break; - case 'Maybe.none': - var $5543 = Parser$Reply$error$($5539); - var $5540 = $5543; - break; - }; - var $5538 = $5540; - break; - case 'Parser.Reply.value': - var $5544 = self.pst; - var self = $5544; - switch (self._) { - case 'Parser.State.new': - var $5546 = self.err; - var $5547 = self.nam; - var $5548 = self.ini; - var $5549 = self.idx; - var $5550 = self.str; - var $5551 = ((console.log(("FALTANDO " + $5550)), (_$16 => { - var $5552 = ((console.log(("VALUE " + $5547)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5537, $5546), $5547, $5548, $5549, $5550); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $5554 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $5556 = self.err; - var self = $5554; - switch (self._) { - case 'Maybe.some': - var $5558 = self.value; - var $5559 = Parser$Reply$error$(Parser$Error$combine$($5558, $5556)); - var $5557 = $5559; - break; - case 'Maybe.none': - var $5560 = Parser$Reply$error$($5556); - var $5557 = $5560; - break; - }; - var $5555 = $5557; - break; - case 'Parser.Reply.value': - var $5561 = self.pst; - var $5562 = self.val; - var self = $5561; - switch (self._) { - case 'Parser.State.new': - var $5564 = self.err; - var $5565 = self.nam; - var $5566 = self.ini; - var $5567 = self.idx; - var $5568 = self.str; - var $5569 = ((console.log(("FALTANDO " + $5568)), (_$32 => { - var $5570 = ((console.log(("VALUE " + $5565)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5554, $5564), $5565, $5566, $5567, $5568); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $5572 = self.err; - var _reply$40 = Kind$Parser$text$("with ", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $5574 = self.err; - var self = $5572; - switch (self._) { - case 'Maybe.some': - var $5576 = self.value; - var $5577 = Parser$Reply$error$(Parser$Error$combine$($5576, $5574)); - var $5575 = $5577; - break; - case 'Maybe.none': - var $5578 = Parser$Reply$error$($5574); - var $5575 = $5578; - break; - }; - var $5573 = $5575; - break; - case 'Parser.Reply.value': - var $5579 = self.pst; - var self = $5579; - switch (self._) { - case 'Parser.State.new': - var $5581 = self.err; - var $5582 = self.nam; - var $5583 = self.ini; - var $5584 = self.idx; - var $5585 = self.str; - var $5586 = ((console.log(("FALTANDO " + $5585)), (_$48 => { - var $5587 = ((console.log(("VALUE " + $5582)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5572, $5581), $5582, $5583, $5584, $5585); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $5589 = self.err; - var _reply$56 = Kind$Parser$text$("{", _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $5591 = self.err; - var self = $5589; - switch (self._) { - case 'Maybe.some': - var $5593 = self.value; - var $5594 = Parser$Reply$error$(Parser$Error$combine$($5593, $5591)); - var $5592 = $5594; - break; - case 'Maybe.none': - var $5595 = Parser$Reply$error$($5591); - var $5592 = $5595; - break; - }; - var $5590 = $5592; - break; - case 'Parser.Reply.value': - var $5596 = self.pst; - var self = $5596; - switch (self._) { - case 'Parser.State.new': - var $5598 = self.err; - var $5599 = self.nam; - var $5600 = self.ini; - var $5601 = self.idx; - var $5602 = self.str; - var $5603 = ((console.log(("FALTANDO " + $5602)), (_$64 => { - var $5604 = ((console.log(("VALUE " + $5599)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5589, $5598), $5599, $5600, $5601, $5602); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $5606 = self.err; - var _reply$72 = Kind$Parser$name1$(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $5608 = self.err; - var self = $5606; - switch (self._) { - case 'Maybe.some': - var $5610 = self.value; - var $5611 = Parser$Reply$error$(Parser$Error$combine$($5610, $5608)); - var $5609 = $5611; - break; - case 'Maybe.none': - var $5612 = Parser$Reply$error$($5608); - var $5609 = $5612; - break; - }; - var $5607 = $5609; - break; - case 'Parser.Reply.value': - var $5613 = self.pst; - var $5614 = self.val; - var self = $5613; - switch (self._) { - case 'Parser.State.new': - var $5616 = self.err; - var $5617 = self.nam; - var $5618 = self.ini; - var $5619 = self.idx; - var $5620 = self.str; - var $5621 = ((console.log(("FALTANDO " + $5620)), (_$80 => { - var $5622 = ((console.log(("VALUE " + $5617)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5606, $5616), $5617, $5618, $5619, $5620); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $5624 = self.err; - var _reply$88 = Kind$Parser$text$(",", _reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $5626 = self.err; - var self = $5624; - switch (self._) { - case 'Maybe.some': - var $5628 = self.value; - var $5629 = Parser$Reply$error$(Parser$Error$combine$($5628, $5626)); - var $5627 = $5629; - break; - case 'Maybe.none': - var $5630 = Parser$Reply$error$($5626); - var $5627 = $5630; - break; - }; - var $5625 = $5627; - break; - case 'Parser.Reply.value': - var $5631 = self.pst; - var self = $5631; - switch (self._) { - case 'Parser.State.new': - var $5633 = self.err; - var $5634 = self.nam; - var $5635 = self.ini; - var $5636 = self.idx; - var $5637 = self.str; - var $5638 = ((console.log(("FALTANDO " + $5637)), (_$96 => { - var $5639 = ((console.log(("VALUE " + $5634)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($5624, $5633), $5634, $5635, $5636, $5637); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $5641 = self.err; - var _reply$104 = Kind$Parser$name1$(_reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $5643 = self.err; - var self = $5641; - switch (self._) { - case 'Maybe.some': - var $5645 = self.value; - var $5646 = Parser$Reply$error$(Parser$Error$combine$($5645, $5643)); - var $5644 = $5646; - break; - case 'Maybe.none': - var $5647 = Parser$Reply$error$($5643); - var $5644 = $5647; - break; - }; - var $5642 = $5644; - break; - case 'Parser.Reply.value': - var $5648 = self.pst; - var $5649 = self.val; - var self = $5648; - switch (self._) { - case 'Parser.State.new': - var $5651 = self.err; - var $5652 = self.nam; - var $5653 = self.ini; - var $5654 = self.idx; - var $5655 = self.str; - var $5656 = ((console.log(("FALTANDO " + $5655)), (_$112 => { - var $5657 = ((console.log(("VALUE " + $5652)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5641, $5651), $5652, $5653, $5654, $5655); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $5659 = self.err; - var _reply$120 = Kind$Parser$text$("}", _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $5661 = self.err; - var self = $5659; - switch (self._) { - case 'Maybe.some': - var $5663 = self.value; - var $5664 = Parser$Reply$error$(Parser$Error$combine$($5663, $5661)); - var $5662 = $5664; - break; - case 'Maybe.none': - var $5665 = Parser$Reply$error$($5661); - var $5662 = $5665; - break; - }; - var $5660 = $5662; - break; - case 'Parser.Reply.value': - var $5666 = self.pst; - var self = $5666; - switch (self._) { - case 'Parser.State.new': - var $5668 = self.err; - var $5669 = self.nam; - var $5670 = self.ini; - var $5671 = self.idx; - var $5672 = self.str; - var $5673 = ((console.log(("FALTANDO " + $5672)), (_$128 => { - var $5674 = ((console.log(("VALUE " + $5669)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($5659, $5668), $5669, $5670, $5671, $5672); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $5676 = self.err; - var _reply$136 = Kind$Parser$text$(":", _reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $5678 = self.err; - var self = $5676; - switch (self._) { - case 'Maybe.some': - var $5680 = self.value; - var $5681 = Parser$Reply$error$(Parser$Error$combine$($5680, $5678)); - var $5679 = $5681; - break; - case 'Maybe.none': - var $5682 = Parser$Reply$error$($5678); - var $5679 = $5682; - break; - }; - var $5677 = $5679; - break; - case 'Parser.Reply.value': - var $5683 = self.pst; - var self = $5683; - switch (self._) { - case 'Parser.State.new': - var $5685 = self.err; - var $5686 = self.nam; - var $5687 = self.ini; - var $5688 = self.idx; - var $5689 = self.str; - var $5690 = ((console.log(("FALTANDO " + $5689)), (_$144 => { - var $5691 = ((console.log(("VALUE " + $5686)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($5676, $5685), $5686, $5687, $5688, $5689); - var self = _reply$pst$146; - switch (self._) { - case 'Parser.State.new': - var $5693 = self.err; - var _reply$152 = Kind$Parser$term(_reply$pst$146); - var self = _reply$152; - switch (self._) { - case 'Parser.Reply.error': - var $5695 = self.err; - var self = $5693; - switch (self._) { - case 'Maybe.some': - var $5697 = self.value; - var $5698 = Parser$Reply$error$(Parser$Error$combine$($5697, $5695)); - var $5696 = $5698; - break; - case 'Maybe.none': - var $5699 = Parser$Reply$error$($5695); - var $5696 = $5699; - break; - }; - var $5694 = $5696; - break; - case 'Parser.Reply.value': - var $5700 = self.pst; - var $5701 = self.val; - var self = $5700; - switch (self._) { - case 'Parser.State.new': - var $5703 = self.err; - var $5704 = self.nam; - var $5705 = self.ini; - var $5706 = self.idx; - var $5707 = self.str; - var $5708 = ((console.log(("FALTANDO " + $5707)), (_$160 => { - var $5709 = ((console.log(("VALUE " + $5704)), (_$161 => { - var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($5693, $5703), $5704, $5705, $5706, $5707); - var self = _reply$pst$162; - switch (self._) { - case 'Parser.State.new': - var $5711 = self.err; - var _reply$168 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$162); - var self = _reply$168; - switch (self._) { - case 'Parser.Reply.error': - var $5713 = self.err; - var self = $5711; - switch (self._) { - case 'Maybe.some': - var $5715 = self.value; - var $5716 = Parser$Reply$error$(Parser$Error$combine$($5715, $5713)); - var $5714 = $5716; - break; - case 'Maybe.none': - var $5717 = Parser$Reply$error$($5713); - var $5714 = $5717; - break; - }; - var $5712 = $5714; - break; - case 'Parser.Reply.value': - var $5718 = self.pst; - var self = $5718; - switch (self._) { - case 'Parser.State.new': - var $5720 = self.err; - var $5721 = self.nam; - var $5722 = self.ini; - var $5723 = self.idx; - var $5724 = self.str; - var $5725 = ((console.log(("FALTANDO " + $5724)), (_$176 => { - var $5726 = ((console.log(("VALUE " + $5721)), (_$177 => { - var _reply$pst$178 = Parser$State$new$(Parser$Error$maybe_combine$($5711, $5720), $5721, $5722, $5723, $5724); - var self = _reply$pst$178; - switch (self._) { - case 'Parser.State.new': - var $5728 = self.err; - var _reply$184 = _body$1(Unit$new)(_reply$pst$178); - var self = _reply$184; - switch (self._) { - case 'Parser.Reply.error': - var $5730 = self.err; - var self = $5728; - switch (self._) { - case 'Maybe.some': - var $5732 = self.value; - var $5733 = Parser$Reply$error$(Parser$Error$combine$($5732, $5730)); - var $5731 = $5733; - break; - case 'Maybe.none': - var $5734 = Parser$Reply$error$($5730); - var $5731 = $5734; - break; - }; - var $5729 = $5731; - break; - case 'Parser.Reply.value': - var $5735 = self.pst; - var $5736 = self.val; - var self = $5735; - switch (self._) { - case 'Parser.State.new': - var $5738 = self.err; - var $5739 = self.nam; - var $5740 = self.ini; - var $5741 = self.idx; - var $5742 = self.str; - var $5743 = ((console.log(("FALTANDO " + $5742)), (_$192 => { - var $5744 = ((console.log(("VALUE " + $5739)), (_$193 => { - var _reply$pst$194 = Parser$State$new$(Parser$Error$maybe_combine$($5728, $5738), $5739, $5740, $5741, $5742); - var _moti$195 = Kind$Term$lam$("", (_x$195 => { - var $5746 = Kind$Term$hol$(Bits$e); - return $5746; - })); - var _term$196 = Kind$Term$ref$("Function.while"); - var _term$197 = Kind$Term$app$(_term$196, Kind$Term$hol$(Bits$e)); - var _init$198 = Kind$Term$ref$("Pair.new"); - var _init$199 = Kind$Term$app$(_init$198, Kind$Term$hol$(Bits$e)); - var _init$200 = Kind$Term$app$(_init$199, Kind$Term$hol$(Bits$e)); - var _init$201 = Kind$Term$app$(_init$200, Kind$Term$ref$($5614)); - var _init$202 = Kind$Term$app$(_init$201, Kind$Term$ref$($5649)); - var _term$203 = Kind$Term$app$(_term$197, _init$202); - var _term$204 = Kind$Term$app$(_term$203, Kind$Term$lam$("s", (_s$204 => { - var $5747 = Kind$Term$app$(Kind$Term$app$(_s$204, _moti$195), Kind$Term$lam$($5614, (_x$205 => { - var $5748 = Kind$Term$lam$($5649, (_y$206 => { - var $5749 = $5562; - return $5749; - })); - return $5748; - }))); - return $5747; - }))); - var _term$205 = Kind$Term$app$(_term$204, Kind$Term$lam$("s", (_s$205 => { - var $5750 = Kind$Term$app$(Kind$Term$app$(_s$205, _moti$195), Kind$Term$lam$($5614, (_x$206 => { - var $5751 = Kind$Term$lam$($5649, (_y$207 => { - var $5752 = $5701; - return $5752; - })); - return $5751; - }))); - return $5750; - }))); - var _term$206 = Kind$Term$app$(Kind$Term$app$(_term$205, _moti$195), Kind$Term$lam$($5614, (_x$206 => { - var $5753 = Kind$Term$lam$($5649, (_y$207 => { - var $5754 = $5736; - return $5754; - })); - return $5753; - }))); - var $5745 = Parser$Reply$value$(_reply$pst$194, _term$206); - return $5745; - })())); - return $5744; - })())); - var $5737 = $5743; - break; - }; - var $5729 = $5737; - break; - }; - var $5727 = $5729; - break; - }; - return $5727; - })())); - return $5726; - })())); - var $5719 = $5725; - break; - }; - var $5712 = $5719; - break; - }; - var $5710 = $5712; - break; - }; - return $5710; - })())); - return $5709; - })())); - var $5702 = $5708; - break; - }; - var $5694 = $5702; - break; - }; - var $5692 = $5694; - break; - }; - return $5692; - })())); - return $5691; - })())); - var $5684 = $5690; - break; - }; - var $5677 = $5684; - break; - }; - var $5675 = $5677; - break; - }; - return $5675; - })())); - return $5674; - })())); - var $5667 = $5673; - break; - }; - var $5660 = $5667; - break; - }; - var $5658 = $5660; - break; - }; - return $5658; - })())); - return $5657; - })())); - var $5650 = $5656; - break; - }; - var $5642 = $5650; - break; - }; - var $5640 = $5642; - break; - }; - return $5640; - })())); - return $5639; - })())); - var $5632 = $5638; - break; - }; - var $5625 = $5632; - break; - }; - var $5623 = $5625; - break; - }; - return $5623; - })())); - return $5622; - })())); - var $5615 = $5621; - break; - }; - var $5607 = $5615; - break; - }; - var $5605 = $5607; - break; - }; - return $5605; - })())); - return $5604; - })())); - var $5597 = $5603; - break; - }; - var $5590 = $5597; - break; - }; - var $5588 = $5590; - break; - }; - return $5588; - })())); - return $5587; - })())); - var $5580 = $5586; - break; - }; - var $5573 = $5580; - break; - }; - var $5571 = $5573; - break; - }; - return $5571; - })())); - return $5570; - })())); - var $5563 = $5569; - break; - }; - var $5555 = $5563; - break; - }; - var $5553 = $5555; - break; - }; - return $5553; - })())); - return $5552; - })())); - var $5545 = $5551; - break; - }; - var $5538 = $5545; - break; - }; - var $5536 = $5538; - break; - }; - return $5536; - }; - const Kind$Parser$getwhile$with = x0 => x1 => Kind$Parser$getwhile$with$(x0, x1); - - function Kind$Parser$get$(_body$1) { - var $5755 = Kind$Parser$block("let")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5757 = self.err; - var _reply$8 = Kind$Parser$text$("let ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5759 = self.err; - var self = $5757; - switch (self._) { - case 'Maybe.some': - var $5761 = self.value; - var $5762 = Parser$Reply$error$(Parser$Error$combine$($5761, $5759)); - var $5760 = $5762; - break; - case 'Maybe.none': - var $5763 = Parser$Reply$error$($5759); - var $5760 = $5763; - break; - }; - var $5758 = $5760; - break; - case 'Parser.Reply.value': - var $5764 = self.pst; - var self = $5764; - switch (self._) { - case 'Parser.State.new': - var $5766 = self.err; - var $5767 = self.nam; - var $5768 = self.ini; - var $5769 = self.idx; - var $5770 = self.str; - var $5771 = ((console.log(("FALTANDO " + $5770)), (_$16 => { - var $5772 = ((console.log(("VALUE " + $5767)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5757, $5766), $5767, $5768, $5769, $5770); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $5774 = self.err; - var _reply$24 = Kind$Parser$text$("{", _reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $5776 = self.err; - var self = $5774; - switch (self._) { - case 'Maybe.some': - var $5778 = self.value; - var $5779 = Parser$Reply$error$(Parser$Error$combine$($5778, $5776)); - var $5777 = $5779; - break; - case 'Maybe.none': - var $5780 = Parser$Reply$error$($5776); - var $5777 = $5780; - break; - }; - var $5775 = $5777; - break; - case 'Parser.Reply.value': - var $5781 = self.pst; - var self = $5781; - switch (self._) { - case 'Parser.State.new': - var $5783 = self.err; - var $5784 = self.nam; - var $5785 = self.ini; - var $5786 = self.idx; - var $5787 = self.str; - var $5788 = ((console.log(("FALTANDO " + $5787)), (_$32 => { - var $5789 = ((console.log(("VALUE " + $5784)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5774, $5783), $5784, $5785, $5786, $5787); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $5791 = self.err; - var _reply$40 = Kind$Parser$name1$(_reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $5793 = self.err; - var self = $5791; - switch (self._) { - case 'Maybe.some': - var $5795 = self.value; - var $5796 = Parser$Reply$error$(Parser$Error$combine$($5795, $5793)); - var $5794 = $5796; - break; - case 'Maybe.none': - var $5797 = Parser$Reply$error$($5793); - var $5794 = $5797; - break; - }; - var $5792 = $5794; - break; - case 'Parser.Reply.value': - var $5798 = self.pst; - var $5799 = self.val; - var self = $5798; - switch (self._) { - case 'Parser.State.new': - var $5801 = self.err; - var $5802 = self.nam; - var $5803 = self.ini; - var $5804 = self.idx; - var $5805 = self.str; - var $5806 = ((console.log(("FALTANDO " + $5805)), (_$48 => { - var $5807 = ((console.log(("VALUE " + $5802)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5791, $5801), $5802, $5803, $5804, $5805); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $5809 = self.err; - var _reply$56 = Kind$Parser$text$(",", _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $5811 = self.err; - var self = $5809; - switch (self._) { - case 'Maybe.some': - var $5813 = self.value; - var $5814 = Parser$Reply$error$(Parser$Error$combine$($5813, $5811)); - var $5812 = $5814; - break; - case 'Maybe.none': - var $5815 = Parser$Reply$error$($5811); - var $5812 = $5815; - break; - }; - var $5810 = $5812; - break; - case 'Parser.Reply.value': - var $5816 = self.pst; - var self = $5816; - switch (self._) { - case 'Parser.State.new': - var $5818 = self.err; - var $5819 = self.nam; - var $5820 = self.ini; - var $5821 = self.idx; - var $5822 = self.str; - var $5823 = ((console.log(("FALTANDO " + $5822)), (_$64 => { - var $5824 = ((console.log(("VALUE " + $5819)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5809, $5818), $5819, $5820, $5821, $5822); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $5826 = self.err; - var _reply$72 = Kind$Parser$name1$(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $5828 = self.err; - var self = $5826; - switch (self._) { - case 'Maybe.some': - var $5830 = self.value; - var $5831 = Parser$Reply$error$(Parser$Error$combine$($5830, $5828)); - var $5829 = $5831; - break; - case 'Maybe.none': - var $5832 = Parser$Reply$error$($5828); - var $5829 = $5832; - break; - }; - var $5827 = $5829; - break; - case 'Parser.Reply.value': - var $5833 = self.pst; - var $5834 = self.val; - var self = $5833; - switch (self._) { - case 'Parser.State.new': - var $5836 = self.err; - var $5837 = self.nam; - var $5838 = self.ini; - var $5839 = self.idx; - var $5840 = self.str; - var $5841 = ((console.log(("FALTANDO " + $5840)), (_$80 => { - var $5842 = ((console.log(("VALUE " + $5837)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($5826, $5836), $5837, $5838, $5839, $5840); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $5844 = self.err; - var _reply$88 = Kind$Parser$text$("}", _reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $5846 = self.err; - var self = $5844; - switch (self._) { - case 'Maybe.some': - var $5848 = self.value; - var $5849 = Parser$Reply$error$(Parser$Error$combine$($5848, $5846)); - var $5847 = $5849; - break; - case 'Maybe.none': - var $5850 = Parser$Reply$error$($5846); - var $5847 = $5850; - break; - }; - var $5845 = $5847; - break; - case 'Parser.Reply.value': - var $5851 = self.pst; - var self = $5851; - switch (self._) { - case 'Parser.State.new': - var $5853 = self.err; - var $5854 = self.nam; - var $5855 = self.ini; - var $5856 = self.idx; - var $5857 = self.str; - var $5858 = ((console.log(("FALTANDO " + $5857)), (_$96 => { - var $5859 = ((console.log(("VALUE " + $5854)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($5844, $5853), $5854, $5855, $5856, $5857); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $5861 = self.err; - var _reply$104 = Kind$Parser$text$("=", _reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $5863 = self.err; - var self = $5861; - switch (self._) { - case 'Maybe.some': - var $5865 = self.value; - var $5866 = Parser$Reply$error$(Parser$Error$combine$($5865, $5863)); - var $5864 = $5866; - break; - case 'Maybe.none': - var $5867 = Parser$Reply$error$($5863); - var $5864 = $5867; - break; - }; - var $5862 = $5864; - break; - case 'Parser.Reply.value': - var $5868 = self.pst; - var self = $5868; - switch (self._) { - case 'Parser.State.new': - var $5870 = self.err; - var $5871 = self.nam; - var $5872 = self.ini; - var $5873 = self.idx; - var $5874 = self.str; - var $5875 = ((console.log(("FALTANDO " + $5874)), (_$112 => { - var $5876 = ((console.log(("VALUE " + $5871)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($5861, $5870), $5871, $5872, $5873, $5874); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $5878 = self.err; - var _reply$120 = Kind$Parser$term(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $5880 = self.err; - var self = $5878; - switch (self._) { - case 'Maybe.some': - var $5882 = self.value; - var $5883 = Parser$Reply$error$(Parser$Error$combine$($5882, $5880)); - var $5881 = $5883; - break; - case 'Maybe.none': - var $5884 = Parser$Reply$error$($5880); - var $5881 = $5884; - break; - }; - var $5879 = $5881; - break; - case 'Parser.Reply.value': - var $5885 = self.pst; - var $5886 = self.val; - var self = $5885; - switch (self._) { - case 'Parser.State.new': - var $5888 = self.err; - var $5889 = self.nam; - var $5890 = self.ini; - var $5891 = self.idx; - var $5892 = self.str; - var $5893 = ((console.log(("FALTANDO " + $5892)), (_$128 => { - var $5894 = ((console.log(("VALUE " + $5889)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($5878, $5888), $5889, $5890, $5891, $5892); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $5896 = self.err; - var _reply$136 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $5898 = self.err; - var self = $5896; - switch (self._) { - case 'Maybe.some': - var $5900 = self.value; - var $5901 = Parser$Reply$error$(Parser$Error$combine$($5900, $5898)); - var $5899 = $5901; - break; - case 'Maybe.none': - var $5902 = Parser$Reply$error$($5898); - var $5899 = $5902; - break; - }; - var $5897 = $5899; - break; - case 'Parser.Reply.value': - var $5903 = self.pst; - var self = $5903; - switch (self._) { - case 'Parser.State.new': - var $5905 = self.err; - var $5906 = self.nam; - var $5907 = self.ini; - var $5908 = self.idx; - var $5909 = self.str; - var $5910 = ((console.log(("FALTANDO " + $5909)), (_$144 => { - var $5911 = ((console.log(("VALUE " + $5906)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($5896, $5905), $5906, $5907, $5908, $5909); - var self = _reply$pst$146; - switch (self._) { - case 'Parser.State.new': - var $5913 = self.err; - var _reply$152 = _body$1(Unit$new)(_reply$pst$146); - var self = _reply$152; - switch (self._) { - case 'Parser.Reply.error': - var $5915 = self.err; - var self = $5913; - switch (self._) { - case 'Maybe.some': - var $5917 = self.value; - var $5918 = Parser$Reply$error$(Parser$Error$combine$($5917, $5915)); - var $5916 = $5918; - break; - case 'Maybe.none': - var $5919 = Parser$Reply$error$($5915); - var $5916 = $5919; - break; - }; - var $5914 = $5916; - break; - case 'Parser.Reply.value': - var $5920 = self.pst; - var $5921 = self.val; - var self = $5920; - switch (self._) { - case 'Parser.State.new': - var $5923 = self.err; - var $5924 = self.nam; - var $5925 = self.ini; - var $5926 = self.idx; - var $5927 = self.str; - var $5928 = ((console.log(("FALTANDO " + $5927)), (_$160 => { - var $5929 = ((console.log(("VALUE " + $5924)), (_$161 => { - var _reply$pst$162 = Parser$State$new$(Parser$Error$maybe_combine$($5913, $5923), $5924, $5925, $5926, $5927); - var _term$163 = $5886; - var _term$164 = Kind$Term$app$(_term$163, Kind$Term$lam$("", (_x$164 => { - var $5931 = Kind$Term$hol$(Bits$e); - return $5931; - }))); - var _term$165 = Kind$Term$app$(_term$164, Kind$Term$lam$($5799, (_x$165 => { - var $5932 = Kind$Term$lam$($5834, (_y$166 => { - var $5933 = $5921; - return $5933; - })); - return $5932; - }))); - var $5930 = Parser$Reply$value$(_reply$pst$162, _term$165); - return $5930; - })())); - return $5929; - })())); - var $5922 = $5928; - break; - }; - var $5914 = $5922; - break; - }; - var $5912 = $5914; - break; - }; - return $5912; - })())); - return $5911; - })())); - var $5904 = $5910; - break; - }; - var $5897 = $5904; - break; - }; - var $5895 = $5897; - break; - }; - return $5895; - })())); - return $5894; - })())); - var $5887 = $5893; - break; - }; - var $5879 = $5887; - break; - }; - var $5877 = $5879; - break; - }; - return $5877; - })())); - return $5876; - })())); - var $5869 = $5875; - break; - }; - var $5862 = $5869; - break; - }; - var $5860 = $5862; - break; - }; - return $5860; - })())); - return $5859; - })())); - var $5852 = $5858; - break; - }; - var $5845 = $5852; - break; - }; - var $5843 = $5845; - break; - }; - return $5843; - })())); - return $5842; - })())); - var $5835 = $5841; - break; - }; - var $5827 = $5835; - break; - }; - var $5825 = $5827; - break; - }; - return $5825; - })())); - return $5824; - })())); - var $5817 = $5823; - break; - }; - var $5810 = $5817; - break; - }; - var $5808 = $5810; - break; - }; - return $5808; - })())); - return $5807; - })())); - var $5800 = $5806; - break; - }; - var $5792 = $5800; - break; - }; - var $5790 = $5792; - break; - }; - return $5790; - })())); - return $5789; - })())); - var $5782 = $5788; - break; - }; - var $5775 = $5782; - break; - }; - var $5773 = $5775; - break; - }; - return $5773; - })())); - return $5772; - })())); - var $5765 = $5771; - break; - }; - var $5758 = $5765; - break; - }; - var $5756 = $5758; - break; - }; - return $5756; - })); - return $5755; - }; - const Kind$Parser$get = x0 => Kind$Parser$get$(x0); - - function Kind$Parser$get$omit$(_body$1) { - var $5934 = Kind$Parser$block("let")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $5936 = self.err; - var _reply$8 = Kind$Parser$text$("{", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $5938 = self.err; - var self = $5936; - switch (self._) { - case 'Maybe.some': - var $5940 = self.value; - var $5941 = Parser$Reply$error$(Parser$Error$combine$($5940, $5938)); - var $5939 = $5941; - break; - case 'Maybe.none': - var $5942 = Parser$Reply$error$($5938); - var $5939 = $5942; - break; - }; - var $5937 = $5939; - break; - case 'Parser.Reply.value': - var $5943 = self.pst; - var self = $5943; - switch (self._) { - case 'Parser.State.new': - var $5945 = self.err; - var $5946 = self.nam; - var $5947 = self.ini; - var $5948 = self.idx; - var $5949 = self.str; - var $5950 = ((console.log(("FALTANDO " + $5949)), (_$16 => { - var $5951 = ((console.log(("VALUE " + $5946)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($5936, $5945), $5946, $5947, $5948, $5949); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $5953 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $5955 = self.err; - var self = $5953; - switch (self._) { - case 'Maybe.some': - var $5957 = self.value; - var $5958 = Parser$Reply$error$(Parser$Error$combine$($5957, $5955)); - var $5956 = $5958; - break; - case 'Maybe.none': - var $5959 = Parser$Reply$error$($5955); - var $5956 = $5959; - break; - }; - var $5954 = $5956; - break; - case 'Parser.Reply.value': - var $5960 = self.pst; - var $5961 = self.val; - var self = $5960; - switch (self._) { - case 'Parser.State.new': - var $5963 = self.err; - var $5964 = self.nam; - var $5965 = self.ini; - var $5966 = self.idx; - var $5967 = self.str; - var $5968 = ((console.log(("FALTANDO " + $5967)), (_$32 => { - var $5969 = ((console.log(("VALUE " + $5964)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($5953, $5963), $5964, $5965, $5966, $5967); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $5971 = self.err; - var _reply$40 = Kind$Parser$text$(",", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $5973 = self.err; - var self = $5971; - switch (self._) { - case 'Maybe.some': - var $5975 = self.value; - var $5976 = Parser$Reply$error$(Parser$Error$combine$($5975, $5973)); - var $5974 = $5976; - break; - case 'Maybe.none': - var $5977 = Parser$Reply$error$($5973); - var $5974 = $5977; - break; - }; - var $5972 = $5974; - break; - case 'Parser.Reply.value': - var $5978 = self.pst; - var self = $5978; - switch (self._) { - case 'Parser.State.new': - var $5980 = self.err; - var $5981 = self.nam; - var $5982 = self.ini; - var $5983 = self.idx; - var $5984 = self.str; - var $5985 = ((console.log(("FALTANDO " + $5984)), (_$48 => { - var $5986 = ((console.log(("VALUE " + $5981)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($5971, $5980), $5981, $5982, $5983, $5984); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $5988 = self.err; - var _reply$56 = Kind$Parser$name1$(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $5990 = self.err; - var self = $5988; - switch (self._) { - case 'Maybe.some': - var $5992 = self.value; - var $5993 = Parser$Reply$error$(Parser$Error$combine$($5992, $5990)); - var $5991 = $5993; - break; - case 'Maybe.none': - var $5994 = Parser$Reply$error$($5990); - var $5991 = $5994; - break; - }; - var $5989 = $5991; - break; - case 'Parser.Reply.value': - var $5995 = self.pst; - var $5996 = self.val; - var self = $5995; - switch (self._) { - case 'Parser.State.new': - var $5998 = self.err; - var $5999 = self.nam; - var $6000 = self.ini; - var $6001 = self.idx; - var $6002 = self.str; - var $6003 = ((console.log(("FALTANDO " + $6002)), (_$64 => { - var $6004 = ((console.log(("VALUE " + $5999)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($5988, $5998), $5999, $6000, $6001, $6002); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $6006 = self.err; - var _reply$72 = Kind$Parser$text$("}", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $6008 = self.err; - var self = $6006; - switch (self._) { - case 'Maybe.some': - var $6010 = self.value; - var $6011 = Parser$Reply$error$(Parser$Error$combine$($6010, $6008)); - var $6009 = $6011; - break; - case 'Maybe.none': - var $6012 = Parser$Reply$error$($6008); - var $6009 = $6012; - break; - }; - var $6007 = $6009; - break; - case 'Parser.Reply.value': - var $6013 = self.pst; - var self = $6013; - switch (self._) { - case 'Parser.State.new': - var $6015 = self.err; - var $6016 = self.nam; - var $6017 = self.ini; - var $6018 = self.idx; - var $6019 = self.str; - var $6020 = ((console.log(("FALTANDO " + $6019)), (_$80 => { - var $6021 = ((console.log(("VALUE " + $6016)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($6006, $6015), $6016, $6017, $6018, $6019); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $6023 = self.err; - var _reply$88 = Kind$Parser$text$("= ", _reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $6025 = self.err; - var self = $6023; - switch (self._) { - case 'Maybe.some': - var $6027 = self.value; - var $6028 = Parser$Reply$error$(Parser$Error$combine$($6027, $6025)); - var $6026 = $6028; - break; - case 'Maybe.none': - var $6029 = Parser$Reply$error$($6025); - var $6026 = $6029; - break; - }; - var $6024 = $6026; - break; - case 'Parser.Reply.value': - var $6030 = self.pst; - var self = $6030; - switch (self._) { - case 'Parser.State.new': - var $6032 = self.err; - var $6033 = self.nam; - var $6034 = self.ini; - var $6035 = self.idx; - var $6036 = self.str; - var $6037 = ((console.log(("FALTANDO " + $6036)), (_$96 => { - var $6038 = ((console.log(("VALUE " + $6033)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($6023, $6032), $6033, $6034, $6035, $6036); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $6040 = self.err; - var _reply$104 = Kind$Parser$term(_reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $6042 = self.err; - var self = $6040; - switch (self._) { - case 'Maybe.some': - var $6044 = self.value; - var $6045 = Parser$Reply$error$(Parser$Error$combine$($6044, $6042)); - var $6043 = $6045; - break; - case 'Maybe.none': - var $6046 = Parser$Reply$error$($6042); - var $6043 = $6046; - break; - }; - var $6041 = $6043; - break; - case 'Parser.Reply.value': - var $6047 = self.pst; - var $6048 = self.val; - var self = $6047; - switch (self._) { - case 'Parser.State.new': - var $6050 = self.err; - var $6051 = self.nam; - var $6052 = self.ini; - var $6053 = self.idx; - var $6054 = self.str; - var $6055 = ((console.log(("FALTANDO " + $6054)), (_$112 => { - var $6056 = ((console.log(("VALUE " + $6051)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($6040, $6050), $6051, $6052, $6053, $6054); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $6058 = self.err; - var _reply$120 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $6060 = self.err; - var self = $6058; - switch (self._) { - case 'Maybe.some': - var $6062 = self.value; - var $6063 = Parser$Reply$error$(Parser$Error$combine$($6062, $6060)); - var $6061 = $6063; - break; - case 'Maybe.none': - var $6064 = Parser$Reply$error$($6060); - var $6061 = $6064; - break; - }; - var $6059 = $6061; - break; - case 'Parser.Reply.value': - var $6065 = self.pst; - var self = $6065; - switch (self._) { - case 'Parser.State.new': - var $6067 = self.err; - var $6068 = self.nam; - var $6069 = self.ini; - var $6070 = self.idx; - var $6071 = self.str; - var $6072 = ((console.log(("FALTANDO " + $6071)), (_$128 => { - var $6073 = ((console.log(("VALUE " + $6068)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($6058, $6067), $6068, $6069, $6070, $6071); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $6075 = self.err; - var _reply$136 = _body$1(Unit$new)(_reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $6077 = self.err; - var self = $6075; - switch (self._) { - case 'Maybe.some': - var $6079 = self.value; - var $6080 = Parser$Reply$error$(Parser$Error$combine$($6079, $6077)); - var $6078 = $6080; - break; - case 'Maybe.none': - var $6081 = Parser$Reply$error$($6077); - var $6078 = $6081; - break; - }; - var $6076 = $6078; - break; - case 'Parser.Reply.value': - var $6082 = self.pst; - var $6083 = self.val; - var self = $6082; - switch (self._) { - case 'Parser.State.new': - var $6085 = self.err; - var $6086 = self.nam; - var $6087 = self.ini; - var $6088 = self.idx; - var $6089 = self.str; - var $6090 = ((console.log(("FALTANDO " + $6089)), (_$144 => { - var $6091 = ((console.log(("VALUE " + $6086)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($6075, $6085), $6086, $6087, $6088, $6089); - var _term$147 = $6048; - var _term$148 = Kind$Term$app$(_term$147, Kind$Term$lam$("", (_x$148 => { - var $6093 = Kind$Term$hol$(Bits$e); - return $6093; - }))); - var _term$149 = Kind$Term$app$(_term$148, Kind$Term$lam$($5961, (_x$149 => { - var $6094 = Kind$Term$lam$($5996, (_y$150 => { - var $6095 = $6083; - return $6095; - })); - return $6094; - }))); - var $6092 = Parser$Reply$value$(_reply$pst$146, _term$149); - return $6092; - })())); - return $6091; - })())); - var $6084 = $6090; - break; - }; - var $6076 = $6084; - break; - }; - var $6074 = $6076; - break; - }; - return $6074; - })())); - return $6073; - })())); - var $6066 = $6072; - break; - }; - var $6059 = $6066; - break; - }; - var $6057 = $6059; - break; - }; - return $6057; - })())); - return $6056; - })())); - var $6049 = $6055; - break; - }; - var $6041 = $6049; - break; - }; - var $6039 = $6041; - break; - }; - return $6039; - })())); - return $6038; - })())); - var $6031 = $6037; - break; - }; - var $6024 = $6031; - break; - }; - var $6022 = $6024; - break; - }; - return $6022; - })())); - return $6021; - })())); - var $6014 = $6020; - break; - }; - var $6007 = $6014; - break; - }; - var $6005 = $6007; - break; - }; - return $6005; - })())); - return $6004; - })())); - var $5997 = $6003; - break; - }; - var $5989 = $5997; - break; - }; - var $5987 = $5989; - break; - }; - return $5987; - })())); - return $5986; - })())); - var $5979 = $5985; - break; - }; - var $5972 = $5979; - break; - }; - var $5970 = $5972; - break; - }; - return $5970; - })())); - return $5969; - })())); - var $5962 = $5968; - break; - }; - var $5954 = $5962; - break; - }; - var $5952 = $5954; - break; - }; - return $5952; - })())); - return $5951; - })())); - var $5944 = $5950; - break; - }; - var $5937 = $5944; - break; - }; - var $5935 = $5937; - break; - }; - return $5935; - })); - return $5934; - }; - const Kind$Parser$get$omit = x0 => Kind$Parser$get$omit$(x0); - - function Kind$Parser$def$(_body$1) { - var $6096 = Kind$Parser$block("def")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $6098 = self.err; - var _reply$8 = Kind$Parser$text$("def ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $6100 = self.err; - var self = $6098; - switch (self._) { - case 'Maybe.some': - var $6102 = self.value; - var $6103 = Parser$Reply$error$(Parser$Error$combine$($6102, $6100)); - var $6101 = $6103; - break; - case 'Maybe.none': - var $6104 = Parser$Reply$error$($6100); - var $6101 = $6104; - break; - }; - var $6099 = $6101; - break; - case 'Parser.Reply.value': - var $6105 = self.pst; - var self = $6105; - switch (self._) { - case 'Parser.State.new': - var $6107 = self.err; - var $6108 = self.nam; - var $6109 = self.ini; - var $6110 = self.idx; - var $6111 = self.str; - var $6112 = ((console.log(("FALTANDO " + $6111)), (_$16 => { - var $6113 = ((console.log(("VALUE " + $6108)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($6098, $6107), $6108, $6109, $6110, $6111); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $6115 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $6117 = self.err; - var self = $6115; - switch (self._) { - case 'Maybe.some': - var $6119 = self.value; - var $6120 = Parser$Reply$error$(Parser$Error$combine$($6119, $6117)); - var $6118 = $6120; - break; - case 'Maybe.none': - var $6121 = Parser$Reply$error$($6117); - var $6118 = $6121; - break; - }; - var $6116 = $6118; - break; - case 'Parser.Reply.value': - var $6122 = self.pst; - var $6123 = self.val; - var self = $6122; - switch (self._) { - case 'Parser.State.new': - var $6125 = self.err; - var $6126 = self.nam; - var $6127 = self.ini; - var $6128 = self.idx; - var $6129 = self.str; - var $6130 = ((console.log(("FALTANDO " + $6129)), (_$32 => { - var $6131 = ((console.log(("VALUE " + $6126)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($6115, $6125), $6126, $6127, $6128, $6129); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $6133 = self.err; - var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $6135 = self.err; - var self = $6133; - switch (self._) { - case 'Maybe.some': - var $6137 = self.value; - var $6138 = Parser$Reply$error$(Parser$Error$combine$($6137, $6135)); - var $6136 = $6138; - break; - case 'Maybe.none': - var $6139 = Parser$Reply$error$($6135); - var $6136 = $6139; - break; - }; - var $6134 = $6136; - break; - case 'Parser.Reply.value': - var $6140 = self.pst; - var self = $6140; - switch (self._) { - case 'Parser.State.new': - var $6142 = self.err; - var $6143 = self.nam; - var $6144 = self.ini; - var $6145 = self.idx; - var $6146 = self.str; - var $6147 = ((console.log(("FALTANDO " + $6146)), (_$48 => { - var $6148 = ((console.log(("VALUE " + $6143)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($6133, $6142), $6143, $6144, $6145, $6146); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $6150 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $6152 = self.err; - var self = $6150; - switch (self._) { - case 'Maybe.some': - var $6154 = self.value; - var $6155 = Parser$Reply$error$(Parser$Error$combine$($6154, $6152)); - var $6153 = $6155; - break; - case 'Maybe.none': - var $6156 = Parser$Reply$error$($6152); - var $6153 = $6156; - break; - }; - var $6151 = $6153; - break; - case 'Parser.Reply.value': - var $6157 = self.pst; - var $6158 = self.val; - var self = $6157; - switch (self._) { - case 'Parser.State.new': - var $6160 = self.err; - var $6161 = self.nam; - var $6162 = self.ini; - var $6163 = self.idx; - var $6164 = self.str; - var $6165 = ((console.log(("FALTANDO " + $6164)), (_$64 => { - var $6166 = ((console.log(("VALUE " + $6161)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($6150, $6160), $6161, $6162, $6163, $6164); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $6168 = self.err; - var _reply$72 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $6170 = self.err; - var self = $6168; - switch (self._) { - case 'Maybe.some': - var $6172 = self.value; - var $6173 = Parser$Reply$error$(Parser$Error$combine$($6172, $6170)); - var $6171 = $6173; - break; - case 'Maybe.none': - var $6174 = Parser$Reply$error$($6170); - var $6171 = $6174; - break; - }; - var $6169 = $6171; - break; - case 'Parser.Reply.value': - var $6175 = self.pst; - var self = $6175; - switch (self._) { - case 'Parser.State.new': - var $6177 = self.err; - var $6178 = self.nam; - var $6179 = self.ini; - var $6180 = self.idx; - var $6181 = self.str; - var $6182 = ((console.log(("FALTANDO " + $6181)), (_$80 => { - var $6183 = ((console.log(("VALUE " + $6178)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($6168, $6177), $6178, $6179, $6180, $6181); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $6185 = self.err; - var _reply$88 = _body$1(Unit$new)(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $6187 = self.err; - var self = $6185; - switch (self._) { - case 'Maybe.some': - var $6189 = self.value; - var $6190 = Parser$Reply$error$(Parser$Error$combine$($6189, $6187)); - var $6188 = $6190; - break; - case 'Maybe.none': - var $6191 = Parser$Reply$error$($6187); - var $6188 = $6191; - break; - }; - var $6186 = $6188; - break; - case 'Parser.Reply.value': - var $6192 = self.pst; - var $6193 = self.val; - var self = $6192; - switch (self._) { - case 'Parser.State.new': - var $6195 = self.err; - var $6196 = self.nam; - var $6197 = self.ini; - var $6198 = self.idx; - var $6199 = self.str; - var $6200 = ((console.log(("FALTANDO " + $6199)), (_$96 => { - var $6201 = ((console.log(("VALUE " + $6196)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($6185, $6195), $6196, $6197, $6198, $6199); - var $6202 = Parser$Reply$value$(_reply$pst$98, Kind$Term$def$($6123, $6158, (_x$99 => { - var $6203 = $6193; - return $6203; - }))); - return $6202; - })())); - return $6201; - })())); - var $6194 = $6200; - break; - }; - var $6186 = $6194; - break; - }; - var $6184 = $6186; - break; - }; - return $6184; - })())); - return $6183; - })())); - var $6176 = $6182; - break; - }; - var $6169 = $6176; - break; - }; - var $6167 = $6169; - break; - }; - return $6167; - })())); - return $6166; - })())); - var $6159 = $6165; - break; - }; - var $6151 = $6159; - break; - }; - var $6149 = $6151; - break; - }; - return $6149; - })())); - return $6148; - })())); - var $6141 = $6147; - break; - }; - var $6134 = $6141; - break; - }; - var $6132 = $6134; - break; - }; - return $6132; - })())); - return $6131; - })())); - var $6124 = $6130; - break; - }; - var $6116 = $6124; - break; - }; - var $6114 = $6116; - break; - }; - return $6114; - })())); - return $6113; - })())); - var $6106 = $6112; - break; - }; - var $6099 = $6106; - break; - }; - var $6097 = $6099; - break; - }; - return $6097; - })); - return $6096; - }; - const Kind$Parser$def = x0 => Kind$Parser$def$(x0); - - function Kind$Term$cse$(_path$1, _expr$2, _name$3, _with$4, _cses$5, _moti$6) { - var $6204 = ({ - _: 'Kind.Term.cse', - 'path': _path$1, - 'expr': _expr$2, - 'name': _name$3, - 'with': _with$4, - 'cses': _cses$5, - 'moti': _moti$6 - }); - return $6204; - }; - const Kind$Term$cse = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$cse$(x0, x1, x2, x3, x4, x5); - - function Kind$Parser$use$abort$(_body$1) { - var $6205 = Kind$Parser$block("use")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $6207 = self.err; - var _reply$8 = Kind$Parser$text$("use ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $6209 = self.err; - var self = $6207; - switch (self._) { - case 'Maybe.some': - var $6211 = self.value; - var $6212 = Parser$Reply$error$(Parser$Error$combine$($6211, $6209)); - var $6210 = $6212; - break; - case 'Maybe.none': - var $6213 = Parser$Reply$error$($6209); - var $6210 = $6213; - break; - }; - var $6208 = $6210; - break; - case 'Parser.Reply.value': - var $6214 = self.pst; - var self = $6214; - switch (self._) { - case 'Parser.State.new': - var $6216 = self.err; - var $6217 = self.nam; - var $6218 = self.ini; - var $6219 = self.idx; - var $6220 = self.str; - var $6221 = ((console.log(("FALTANDO " + $6220)), (_$16 => { - var $6222 = ((console.log(("VALUE " + $6217)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($6207, $6216), $6217, $6218, $6219, $6220); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $6224 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $6226 = self.err; - var self = $6224; - switch (self._) { - case 'Maybe.some': - var $6228 = self.value; - var $6229 = Parser$Reply$error$(Parser$Error$combine$($6228, $6226)); - var $6227 = $6229; - break; - case 'Maybe.none': - var $6230 = Parser$Reply$error$($6226); - var $6227 = $6230; - break; - }; - var $6225 = $6227; - break; - case 'Parser.Reply.value': - var $6231 = self.pst; - var $6232 = self.val; - var self = $6231; - switch (self._) { - case 'Parser.State.new': - var $6234 = self.err; - var $6235 = self.nam; - var $6236 = self.ini; - var $6237 = self.idx; - var $6238 = self.str; - var $6239 = ((console.log(("FALTANDO " + $6238)), (_$32 => { - var $6240 = ((console.log(("VALUE " + $6235)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($6224, $6234), $6235, $6236, $6237, $6238); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $6242 = self.err; - var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $6244 = self.err; - var self = $6242; - switch (self._) { - case 'Maybe.some': - var $6246 = self.value; - var $6247 = Parser$Reply$error$(Parser$Error$combine$($6246, $6244)); - var $6245 = $6247; - break; - case 'Maybe.none': - var $6248 = Parser$Reply$error$($6244); - var $6245 = $6248; - break; - }; - var $6243 = $6245; - break; - case 'Parser.Reply.value': - var $6249 = self.pst; - var self = $6249; - switch (self._) { - case 'Parser.State.new': - var $6251 = self.err; - var $6252 = self.nam; - var $6253 = self.ini; - var $6254 = self.idx; - var $6255 = self.str; - var $6256 = ((console.log(("FALTANDO " + $6255)), (_$48 => { - var $6257 = ((console.log(("VALUE " + $6252)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($6242, $6251), $6252, $6253, $6254, $6255); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $6259 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $6261 = self.err; - var self = $6259; - switch (self._) { - case 'Maybe.some': - var $6263 = self.value; - var $6264 = Parser$Reply$error$(Parser$Error$combine$($6263, $6261)); - var $6262 = $6264; - break; - case 'Maybe.none': - var $6265 = Parser$Reply$error$($6261); - var $6262 = $6265; - break; - }; - var $6260 = $6262; - break; - case 'Parser.Reply.value': - var $6266 = self.pst; - var $6267 = self.val; - var self = $6266; - switch (self._) { - case 'Parser.State.new': - var $6269 = self.err; - var $6270 = self.nam; - var $6271 = self.ini; - var $6272 = self.idx; - var $6273 = self.str; - var $6274 = ((console.log(("FALTANDO " + $6273)), (_$64 => { - var $6275 = ((console.log(("VALUE " + $6270)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($6259, $6269), $6270, $6271, $6272, $6273); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $6277 = self.err; - var _reply$72 = Kind$Parser$text$("abort ", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $6279 = self.err; - var self = $6277; - switch (self._) { - case 'Maybe.some': - var $6281 = self.value; - var $6282 = Parser$Reply$error$(Parser$Error$combine$($6281, $6279)); - var $6280 = $6282; - break; - case 'Maybe.none': - var $6283 = Parser$Reply$error$($6279); - var $6280 = $6283; - break; - }; - var $6278 = $6280; - break; - case 'Parser.Reply.value': - var $6284 = self.pst; - var self = $6284; - switch (self._) { - case 'Parser.State.new': - var $6286 = self.err; - var $6287 = self.nam; - var $6288 = self.ini; - var $6289 = self.idx; - var $6290 = self.str; - var $6291 = ((console.log(("FALTANDO " + $6290)), (_$80 => { - var $6292 = ((console.log(("VALUE " + $6287)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($6277, $6286), $6287, $6288, $6289, $6290); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $6294 = self.err; - var _reply$88 = Kind$Parser$term(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $6296 = self.err; - var self = $6294; - switch (self._) { - case 'Maybe.some': - var $6298 = self.value; - var $6299 = Parser$Reply$error$(Parser$Error$combine$($6298, $6296)); - var $6297 = $6299; - break; - case 'Maybe.none': - var $6300 = Parser$Reply$error$($6296); - var $6297 = $6300; - break; - }; - var $6295 = $6297; - break; - case 'Parser.Reply.value': - var $6301 = self.pst; - var $6302 = self.val; - var self = $6301; - switch (self._) { - case 'Parser.State.new': - var $6304 = self.err; - var $6305 = self.nam; - var $6306 = self.ini; - var $6307 = self.idx; - var $6308 = self.str; - var $6309 = ((console.log(("FALTANDO " + $6308)), (_$96 => { - var $6310 = ((console.log(("VALUE " + $6305)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($6294, $6304), $6305, $6306, $6307, $6308); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $6312 = self.err; - var _reply$104 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $6314 = self.err; - var self = $6312; - switch (self._) { - case 'Maybe.some': - var $6316 = self.value; - var $6317 = Parser$Reply$error$(Parser$Error$combine$($6316, $6314)); - var $6315 = $6317; - break; - case 'Maybe.none': - var $6318 = Parser$Reply$error$($6314); - var $6315 = $6318; - break; - }; - var $6313 = $6315; - break; - case 'Parser.Reply.value': - var $6319 = self.pst; - var self = $6319; - switch (self._) { - case 'Parser.State.new': - var $6321 = self.err; - var $6322 = self.nam; - var $6323 = self.ini; - var $6324 = self.idx; - var $6325 = self.str; - var $6326 = ((console.log(("FALTANDO " + $6325)), (_$112 => { - var $6327 = ((console.log(("VALUE " + $6322)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($6312, $6321), $6322, $6323, $6324, $6325); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $6329 = self.err; - var _reply$120 = _body$1(Unit$new)(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $6331 = self.err; - var self = $6329; - switch (self._) { - case 'Maybe.some': - var $6333 = self.value; - var $6334 = Parser$Reply$error$(Parser$Error$combine$($6333, $6331)); - var $6332 = $6334; - break; - case 'Maybe.none': - var $6335 = Parser$Reply$error$($6331); - var $6332 = $6335; - break; - }; - var $6330 = $6332; - break; - case 'Parser.Reply.value': - var $6336 = self.pst; - var $6337 = self.val; - var self = $6336; - switch (self._) { - case 'Parser.State.new': - var $6339 = self.err; - var $6340 = self.nam; - var $6341 = self.ini; - var $6342 = self.idx; - var $6343 = self.str; - var $6344 = ((console.log(("FALTANDO " + $6343)), (_$128 => { - var $6345 = ((console.log(("VALUE " + $6340)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($6329, $6339), $6340, $6341, $6342, $6343); - var _term$131 = $6267; - var _term$132 = Kind$Term$app$(_term$131, Kind$Term$lam$("", (_$132 => { - var $6347 = Kind$Term$hol$(Bits$e); - return $6347; - }))); - var _term$133 = Kind$Term$app$(_term$132, $6302); - var _term$134 = Kind$Term$app$(_term$133, Kind$Term$lam$($6232, (_$134 => { - var _wyth$135 = List$nil; - var _cses$136 = Kind$Map$set$("_", $6337, Kind$Map$new); - var _moti$137 = Maybe$some$(Kind$Term$hol$(Bits$e)); - var _term$138 = Kind$Term$let$($6232, Kind$Term$ref$($6232), (_$138 => { - var $6349 = Kind$Term$cse$(Bits$e, Kind$Term$ref$($6232), $6232, _wyth$135, _cses$136, _moti$137); - return $6349; - })); - var $6348 = _term$138; - return $6348; - }))); - var $6346 = Parser$Reply$value$(_reply$pst$130, _term$134); - return $6346; - })())); - return $6345; - })())); - var $6338 = $6344; - break; - }; - var $6330 = $6338; - break; - }; - var $6328 = $6330; - break; - }; - return $6328; - })())); - return $6327; - })())); - var $6320 = $6326; - break; - }; - var $6313 = $6320; - break; - }; - var $6311 = $6313; - break; - }; - return $6311; - })())); - return $6310; - })())); - var $6303 = $6309; - break; - }; - var $6295 = $6303; - break; - }; - var $6293 = $6295; - break; - }; - return $6293; - })())); - return $6292; - })())); - var $6285 = $6291; - break; - }; - var $6278 = $6285; - break; - }; - var $6276 = $6278; - break; - }; - return $6276; - })())); - return $6275; - })())); - var $6268 = $6274; - break; - }; - var $6260 = $6268; - break; - }; - var $6258 = $6260; - break; - }; - return $6258; - })())); - return $6257; - })())); - var $6250 = $6256; - break; - }; - var $6243 = $6250; - break; - }; - var $6241 = $6243; - break; - }; - return $6241; - })())); - return $6240; - })())); - var $6233 = $6239; - break; - }; - var $6225 = $6233; - break; - }; - var $6223 = $6225; - break; - }; - return $6223; - })())); - return $6222; - })())); - var $6215 = $6221; - break; - }; - var $6208 = $6215; - break; - }; - var $6206 = $6208; - break; - }; - return $6206; - })); - return $6205; - }; - const Kind$Parser$use$abort = x0 => Kind$Parser$use$abort$(x0); - - function Kind$Parser$use$(_body$1) { - var $6350 = Kind$Parser$block("use")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $6352 = self.err; - var _reply$8 = Kind$Parser$text$("use ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $6354 = self.err; - var self = $6352; - switch (self._) { - case 'Maybe.some': - var $6356 = self.value; - var $6357 = Parser$Reply$error$(Parser$Error$combine$($6356, $6354)); - var $6355 = $6357; - break; - case 'Maybe.none': - var $6358 = Parser$Reply$error$($6354); - var $6355 = $6358; - break; - }; - var $6353 = $6355; - break; - case 'Parser.Reply.value': - var $6359 = self.pst; - var self = $6359; - switch (self._) { - case 'Parser.State.new': - var $6361 = self.err; - var $6362 = self.nam; - var $6363 = self.ini; - var $6364 = self.idx; - var $6365 = self.str; - var $6366 = ((console.log(("FALTANDO " + $6365)), (_$16 => { - var $6367 = ((console.log(("VALUE " + $6362)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($6352, $6361), $6362, $6363, $6364, $6365); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $6369 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $6371 = self.err; - var self = $6369; - switch (self._) { - case 'Maybe.some': - var $6373 = self.value; - var $6374 = Parser$Reply$error$(Parser$Error$combine$($6373, $6371)); - var $6372 = $6374; - break; - case 'Maybe.none': - var $6375 = Parser$Reply$error$($6371); - var $6372 = $6375; - break; - }; - var $6370 = $6372; - break; - case 'Parser.Reply.value': - var $6376 = self.pst; - var $6377 = self.val; - var self = $6376; - switch (self._) { - case 'Parser.State.new': - var $6379 = self.err; - var $6380 = self.nam; - var $6381 = self.ini; - var $6382 = self.idx; - var $6383 = self.str; - var $6384 = ((console.log(("FALTANDO " + $6383)), (_$32 => { - var $6385 = ((console.log(("VALUE " + $6380)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($6369, $6379), $6380, $6381, $6382, $6383); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $6387 = self.err; - var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $6389 = self.err; - var self = $6387; - switch (self._) { - case 'Maybe.some': - var $6391 = self.value; - var $6392 = Parser$Reply$error$(Parser$Error$combine$($6391, $6389)); - var $6390 = $6392; - break; - case 'Maybe.none': - var $6393 = Parser$Reply$error$($6389); - var $6390 = $6393; - break; - }; - var $6388 = $6390; - break; - case 'Parser.Reply.value': - var $6394 = self.pst; - var self = $6394; - switch (self._) { - case 'Parser.State.new': - var $6396 = self.err; - var $6397 = self.nam; - var $6398 = self.ini; - var $6399 = self.idx; - var $6400 = self.str; - var $6401 = ((console.log(("FALTANDO " + $6400)), (_$48 => { - var $6402 = ((console.log(("VALUE " + $6397)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($6387, $6396), $6397, $6398, $6399, $6400); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $6404 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $6406 = self.err; - var self = $6404; - switch (self._) { - case 'Maybe.some': - var $6408 = self.value; - var $6409 = Parser$Reply$error$(Parser$Error$combine$($6408, $6406)); - var $6407 = $6409; - break; - case 'Maybe.none': - var $6410 = Parser$Reply$error$($6406); - var $6407 = $6410; - break; - }; - var $6405 = $6407; - break; - case 'Parser.Reply.value': - var $6411 = self.pst; - var $6412 = self.val; - var self = $6411; - switch (self._) { - case 'Parser.State.new': - var $6414 = self.err; - var $6415 = self.nam; - var $6416 = self.ini; - var $6417 = self.idx; - var $6418 = self.str; - var $6419 = ((console.log(("FALTANDO " + $6418)), (_$64 => { - var $6420 = ((console.log(("VALUE " + $6415)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($6404, $6414), $6415, $6416, $6417, $6418); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $6422 = self.err; - var _reply$72 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $6424 = self.err; - var self = $6422; - switch (self._) { - case 'Maybe.some': - var $6426 = self.value; - var $6427 = Parser$Reply$error$(Parser$Error$combine$($6426, $6424)); - var $6425 = $6427; - break; - case 'Maybe.none': - var $6428 = Parser$Reply$error$($6424); - var $6425 = $6428; - break; - }; - var $6423 = $6425; - break; - case 'Parser.Reply.value': - var $6429 = self.pst; - var self = $6429; - switch (self._) { - case 'Parser.State.new': - var $6431 = self.err; - var $6432 = self.nam; - var $6433 = self.ini; - var $6434 = self.idx; - var $6435 = self.str; - var $6436 = ((console.log(("FALTANDO " + $6435)), (_$80 => { - var $6437 = ((console.log(("VALUE " + $6432)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($6422, $6431), $6432, $6433, $6434, $6435); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $6439 = self.err; - var _reply$88 = _body$1(Unit$new)(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $6441 = self.err; - var self = $6439; - switch (self._) { - case 'Maybe.some': - var $6443 = self.value; - var $6444 = Parser$Reply$error$(Parser$Error$combine$($6443, $6441)); - var $6442 = $6444; - break; - case 'Maybe.none': - var $6445 = Parser$Reply$error$($6441); - var $6442 = $6445; - break; - }; - var $6440 = $6442; - break; - case 'Parser.Reply.value': - var $6446 = self.pst; - var $6447 = self.val; - var self = $6446; - switch (self._) { - case 'Parser.State.new': - var $6449 = self.err; - var $6450 = self.nam; - var $6451 = self.ini; - var $6452 = self.idx; - var $6453 = self.str; - var $6454 = ((console.log(("FALTANDO " + $6453)), (_$96 => { - var $6455 = ((console.log(("VALUE " + $6450)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($6439, $6449), $6450, $6451, $6452, $6453); - var _wyth$99 = List$nil; - var _cses$100 = Kind$Map$set$("_", $6447, Kind$Map$new); - var _moti$101 = Maybe$some$(Kind$Term$hol$(Bits$e)); - var _term$102 = Kind$Term$let$($6377, $6412, (_$102 => { - var $6457 = Kind$Term$cse$(Bits$e, Kind$Term$ref$($6377), $6377, _wyth$99, _cses$100, _moti$101); - return $6457; - })); - var $6456 = Parser$Reply$value$(_reply$pst$98, _term$102); - return $6456; - })())); - return $6455; - })())); - var $6448 = $6454; - break; - }; - var $6440 = $6448; - break; - }; - var $6438 = $6440; - break; - }; - return $6438; - })())); - return $6437; - })())); - var $6430 = $6436; - break; - }; - var $6423 = $6430; - break; - }; - var $6421 = $6423; - break; - }; - return $6421; - })())); - return $6420; - })())); - var $6413 = $6419; - break; - }; - var $6405 = $6413; - break; - }; - var $6403 = $6405; - break; - }; - return $6403; - })())); - return $6402; - })())); - var $6395 = $6401; - break; - }; - var $6388 = $6395; - break; - }; - var $6386 = $6388; - break; - }; - return $6386; - })())); - return $6385; - })())); - var $6378 = $6384; - break; - }; - var $6370 = $6378; - break; - }; - var $6368 = $6370; - break; - }; - return $6368; - })())); - return $6367; - })())); - var $6360 = $6366; - break; - }; - var $6353 = $6360; - break; - }; - var $6351 = $6353; - break; - }; - return $6351; - })); - return $6350; - }; - const Kind$Parser$use = x0 => Kind$Parser$use$(x0); - const Kind$Parser$goal_rewrite = Kind$Parser$block("goal-rewrite")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6459 = self.err; - var _reply$7 = Kind$Parser$text$("rewrite ", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6461 = self.err; - var self = $6459; - switch (self._) { - case 'Maybe.some': - var $6463 = self.value; - var $6464 = Parser$Reply$error$(Parser$Error$combine$($6463, $6461)); - var $6462 = $6464; - break; - case 'Maybe.none': - var $6465 = Parser$Reply$error$($6461); - var $6462 = $6465; - break; - }; - var $6460 = $6462; - break; - case 'Parser.Reply.value': - var $6466 = self.pst; - var self = $6466; - switch (self._) { - case 'Parser.State.new': - var $6468 = self.err; - var $6469 = self.nam; - var $6470 = self.ini; - var $6471 = self.idx; - var $6472 = self.str; - var $6473 = ((console.log(("FALTANDO " + $6472)), (_$15 => { - var $6474 = ((console.log(("VALUE " + $6469)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6459, $6468), $6469, $6470, $6471, $6472); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $6476 = self.err; - var _reply$23 = Kind$Parser$name1$(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $6478 = self.err; - var self = $6476; - switch (self._) { - case 'Maybe.some': - var $6480 = self.value; - var $6481 = Parser$Reply$error$(Parser$Error$combine$($6480, $6478)); - var $6479 = $6481; - break; - case 'Maybe.none': - var $6482 = Parser$Reply$error$($6478); - var $6479 = $6482; - break; - }; - var $6477 = $6479; - break; - case 'Parser.Reply.value': - var $6483 = self.pst; - var $6484 = self.val; - var self = $6483; - switch (self._) { - case 'Parser.State.new': - var $6486 = self.err; - var $6487 = self.nam; - var $6488 = self.ini; - var $6489 = self.idx; - var $6490 = self.str; - var $6491 = ((console.log(("FALTANDO " + $6490)), (_$31 => { - var $6492 = ((console.log(("VALUE " + $6487)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6476, $6486), $6487, $6488, $6489, $6490); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $6494 = self.err; - var _reply$39 = Kind$Parser$text$("in", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $6496 = self.err; - var self = $6494; - switch (self._) { - case 'Maybe.some': - var $6498 = self.value; - var $6499 = Parser$Reply$error$(Parser$Error$combine$($6498, $6496)); - var $6497 = $6499; - break; - case 'Maybe.none': - var $6500 = Parser$Reply$error$($6496); - var $6497 = $6500; - break; - }; - var $6495 = $6497; - break; - case 'Parser.Reply.value': - var $6501 = self.pst; - var self = $6501; - switch (self._) { - case 'Parser.State.new': - var $6503 = self.err; - var $6504 = self.nam; - var $6505 = self.ini; - var $6506 = self.idx; - var $6507 = self.str; - var $6508 = ((console.log(("FALTANDO " + $6507)), (_$47 => { - var $6509 = ((console.log(("VALUE " + $6504)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6494, $6503), $6504, $6505, $6506, $6507); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $6511 = self.err; - var _reply$55 = Kind$Parser$term(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $6513 = self.err; - var self = $6511; - switch (self._) { - case 'Maybe.some': - var $6515 = self.value; - var $6516 = Parser$Reply$error$(Parser$Error$combine$($6515, $6513)); - var $6514 = $6516; - break; - case 'Maybe.none': - var $6517 = Parser$Reply$error$($6513); - var $6514 = $6517; - break; - }; - var $6512 = $6514; - break; - case 'Parser.Reply.value': - var $6518 = self.pst; - var $6519 = self.val; - var self = $6518; - switch (self._) { - case 'Parser.State.new': - var $6521 = self.err; - var $6522 = self.nam; - var $6523 = self.ini; - var $6524 = self.idx; - var $6525 = self.str; - var $6526 = ((console.log(("FALTANDO " + $6525)), (_$63 => { - var $6527 = ((console.log(("VALUE " + $6522)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($6511, $6521), $6522, $6523, $6524, $6525); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $6529 = self.err; - var _reply$71 = Kind$Parser$text$("with", _reply$pst$65); - var self = _reply$71; - switch (self._) { - case 'Parser.Reply.error': - var $6531 = self.err; - var self = $6529; - switch (self._) { - case 'Maybe.some': - var $6533 = self.value; - var $6534 = Parser$Reply$error$(Parser$Error$combine$($6533, $6531)); - var $6532 = $6534; - break; - case 'Maybe.none': - var $6535 = Parser$Reply$error$($6531); - var $6532 = $6535; - break; - }; - var $6530 = $6532; - break; - case 'Parser.Reply.value': - var $6536 = self.pst; - var self = $6536; - switch (self._) { - case 'Parser.State.new': - var $6538 = self.err; - var $6539 = self.nam; - var $6540 = self.ini; - var $6541 = self.idx; - var $6542 = self.str; - var $6543 = ((console.log(("FALTANDO " + $6542)), (_$79 => { - var $6544 = ((console.log(("VALUE " + $6539)), (_$80 => { - var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($6529, $6538), $6539, $6540, $6541, $6542); - var self = _reply$pst$81; - switch (self._) { - case 'Parser.State.new': - var $6546 = self.err; - var _reply$87 = Kind$Parser$term(_reply$pst$81); - var self = _reply$87; - switch (self._) { - case 'Parser.Reply.error': - var $6548 = self.err; - var self = $6546; - switch (self._) { - case 'Maybe.some': - var $6550 = self.value; - var $6551 = Parser$Reply$error$(Parser$Error$combine$($6550, $6548)); - var $6549 = $6551; - break; - case 'Maybe.none': - var $6552 = Parser$Reply$error$($6548); - var $6549 = $6552; - break; - }; - var $6547 = $6549; - break; - case 'Parser.Reply.value': - var $6553 = self.pst; - var $6554 = self.val; - var self = $6553; - switch (self._) { - case 'Parser.State.new': - var $6556 = self.err; - var $6557 = self.nam; - var $6558 = self.ini; - var $6559 = self.idx; - var $6560 = self.str; - var $6561 = ((console.log(("FALTANDO " + $6560)), (_$95 => { - var $6562 = ((console.log(("VALUE " + $6557)), (_$96 => { - var _reply$pst$97 = Parser$State$new$(Parser$Error$maybe_combine$($6546, $6556), $6557, $6558, $6559, $6560); - var self = _reply$pst$97; - switch (self._) { - case 'Parser.State.new': - var $6564 = self.err; - var _reply$103 = Kind$Parser$term(_reply$pst$97); - var self = _reply$103; - switch (self._) { - case 'Parser.Reply.error': - var $6566 = self.err; - var self = $6564; - switch (self._) { - case 'Maybe.some': - var $6568 = self.value; - var $6569 = Parser$Reply$error$(Parser$Error$combine$($6568, $6566)); - var $6567 = $6569; - break; - case 'Maybe.none': - var $6570 = Parser$Reply$error$($6566); - var $6567 = $6570; - break; - }; - var $6565 = $6567; - break; - case 'Parser.Reply.value': - var $6571 = self.pst; - var $6572 = self.val; - var self = $6571; - switch (self._) { - case 'Parser.State.new': - var $6574 = self.err; - var $6575 = self.nam; - var $6576 = self.ini; - var $6577 = self.idx; - var $6578 = self.str; - var $6579 = ((console.log(("FALTANDO " + $6578)), (_$111 => { - var $6580 = ((console.log(("VALUE " + $6575)), (_$112 => { - var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($6564, $6574), $6575, $6576, $6577, $6578); - var _moti$114 = Kind$Term$lam$($6484, (_s$114 => { - var $6582 = Kind$Term$lam$("", (_x$115 => { - var $6583 = $6519; - return $6583; - })); - return $6582; - })); - var _term$115 = Kind$Term$ref$("Equal.mirror"); - var _term$116 = Kind$Term$app$(_term$115, Kind$Term$hol$(Bits$e)); - var _term$117 = Kind$Term$app$(_term$116, Kind$Term$hol$(Bits$e)); - var _term$118 = Kind$Term$app$(_term$117, Kind$Term$hol$(Bits$e)); - var _term$119 = Kind$Term$app$(_term$118, $6554); - var _term$120 = Kind$Term$app$(_term$119, _moti$114); - var _term$121 = Kind$Term$app$(_term$120, $6572); - var $6581 = Parser$Reply$value$(_reply$pst$113, _term$121); - return $6581; - })())); - return $6580; - })())); - var $6573 = $6579; - break; - }; - var $6565 = $6573; - break; - }; - var $6563 = $6565; - break; - }; - return $6563; - })())); - return $6562; - })())); - var $6555 = $6561; - break; - }; - var $6547 = $6555; - break; - }; - var $6545 = $6547; - break; - }; - return $6545; - })())); - return $6544; - })())); - var $6537 = $6543; - break; - }; - var $6530 = $6537; - break; - }; - var $6528 = $6530; - break; - }; - return $6528; - })())); - return $6527; - })())); - var $6520 = $6526; - break; - }; - var $6512 = $6520; - break; - }; - var $6510 = $6512; - break; - }; - return $6510; - })())); - return $6509; - })())); - var $6502 = $6508; - break; - }; - var $6495 = $6502; - break; - }; - var $6493 = $6495; - break; - }; - return $6493; - })())); - return $6492; - })())); - var $6485 = $6491; - break; - }; - var $6477 = $6485; - break; - }; - var $6475 = $6477; - break; - }; - return $6475; - })())); - return $6474; - })())); - var $6467 = $6473; - break; - }; - var $6460 = $6467; - break; - }; - var $6458 = $6460; - break; - }; - return $6458; - })); - const Kind$Parser$if = Kind$Parser$block("if")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6585 = self.err; - var _reply$7 = Kind$Parser$text$("if ", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6587 = self.err; - var self = $6585; - switch (self._) { - case 'Maybe.some': - var $6589 = self.value; - var $6590 = Parser$Reply$error$(Parser$Error$combine$($6589, $6587)); - var $6588 = $6590; - break; - case 'Maybe.none': - var $6591 = Parser$Reply$error$($6587); - var $6588 = $6591; - break; - }; - var $6586 = $6588; - break; - case 'Parser.Reply.value': - var $6592 = self.pst; - var self = $6592; - switch (self._) { - case 'Parser.State.new': - var $6594 = self.err; - var $6595 = self.nam; - var $6596 = self.ini; - var $6597 = self.idx; - var $6598 = self.str; - var $6599 = ((console.log(("FALTANDO " + $6598)), (_$15 => { - var $6600 = ((console.log(("VALUE " + $6595)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6585, $6594), $6595, $6596, $6597, $6598); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $6602 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $6604 = self.err; - var self = $6602; - switch (self._) { - case 'Maybe.some': - var $6606 = self.value; - var $6607 = Parser$Reply$error$(Parser$Error$combine$($6606, $6604)); - var $6605 = $6607; - break; - case 'Maybe.none': - var $6608 = Parser$Reply$error$($6604); - var $6605 = $6608; - break; - }; - var $6603 = $6605; - break; - case 'Parser.Reply.value': - var $6609 = self.pst; - var $6610 = self.val; - var self = $6609; - switch (self._) { - case 'Parser.State.new': - var $6612 = self.err; - var $6613 = self.nam; - var $6614 = self.ini; - var $6615 = self.idx; - var $6616 = self.str; - var $6617 = ((console.log(("FALTANDO " + $6616)), (_$31 => { - var $6618 = ((console.log(("VALUE " + $6613)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6602, $6612), $6613, $6614, $6615, $6616); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $6620 = self.err; - var _reply$39 = Kind$Parser$text$("then", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $6622 = self.err; - var self = $6620; - switch (self._) { - case 'Maybe.some': - var $6624 = self.value; - var $6625 = Parser$Reply$error$(Parser$Error$combine$($6624, $6622)); - var $6623 = $6625; - break; - case 'Maybe.none': - var $6626 = Parser$Reply$error$($6622); - var $6623 = $6626; - break; - }; - var $6621 = $6623; - break; - case 'Parser.Reply.value': - var $6627 = self.pst; - var self = $6627; - switch (self._) { - case 'Parser.State.new': - var $6629 = self.err; - var $6630 = self.nam; - var $6631 = self.ini; - var $6632 = self.idx; - var $6633 = self.str; - var $6634 = ((console.log(("FALTANDO " + $6633)), (_$47 => { - var $6635 = ((console.log(("VALUE " + $6630)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6620, $6629), $6630, $6631, $6632, $6633); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $6637 = self.err; - var _reply$55 = Kind$Parser$term(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $6639 = self.err; - var self = $6637; - switch (self._) { - case 'Maybe.some': - var $6641 = self.value; - var $6642 = Parser$Reply$error$(Parser$Error$combine$($6641, $6639)); - var $6640 = $6642; - break; - case 'Maybe.none': - var $6643 = Parser$Reply$error$($6639); - var $6640 = $6643; - break; - }; - var $6638 = $6640; - break; - case 'Parser.Reply.value': - var $6644 = self.pst; - var $6645 = self.val; - var self = $6644; - switch (self._) { - case 'Parser.State.new': - var $6647 = self.err; - var $6648 = self.nam; - var $6649 = self.ini; - var $6650 = self.idx; - var $6651 = self.str; - var $6652 = ((console.log(("FALTANDO " + $6651)), (_$63 => { - var $6653 = ((console.log(("VALUE " + $6648)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($6637, $6647), $6648, $6649, $6650, $6651); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $6655 = self.err; - var _reply$71 = Kind$Parser$text$("else", _reply$pst$65); - var self = _reply$71; - switch (self._) { - case 'Parser.Reply.error': - var $6657 = self.err; - var self = $6655; - switch (self._) { - case 'Maybe.some': - var $6659 = self.value; - var $6660 = Parser$Reply$error$(Parser$Error$combine$($6659, $6657)); - var $6658 = $6660; - break; - case 'Maybe.none': - var $6661 = Parser$Reply$error$($6657); - var $6658 = $6661; - break; - }; - var $6656 = $6658; - break; - case 'Parser.Reply.value': - var $6662 = self.pst; - var self = $6662; - switch (self._) { - case 'Parser.State.new': - var $6664 = self.err; - var $6665 = self.nam; - var $6666 = self.ini; - var $6667 = self.idx; - var $6668 = self.str; - var $6669 = ((console.log(("FALTANDO " + $6668)), (_$79 => { - var $6670 = ((console.log(("VALUE " + $6665)), (_$80 => { - var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($6655, $6664), $6665, $6666, $6667, $6668); - var self = _reply$pst$81; - switch (self._) { - case 'Parser.State.new': - var $6672 = self.err; - var _reply$87 = Kind$Parser$term(_reply$pst$81); - var self = _reply$87; - switch (self._) { - case 'Parser.Reply.error': - var $6674 = self.err; - var self = $6672; - switch (self._) { - case 'Maybe.some': - var $6676 = self.value; - var $6677 = Parser$Reply$error$(Parser$Error$combine$($6676, $6674)); - var $6675 = $6677; - break; - case 'Maybe.none': - var $6678 = Parser$Reply$error$($6674); - var $6675 = $6678; - break; - }; - var $6673 = $6675; - break; - case 'Parser.Reply.value': - var $6679 = self.pst; - var $6680 = self.val; - var self = $6679; - switch (self._) { - case 'Parser.State.new': - var $6682 = self.err; - var $6683 = self.nam; - var $6684 = self.ini; - var $6685 = self.idx; - var $6686 = self.str; - var $6687 = ((console.log(("FALTANDO " + $6686)), (_$95 => { - var $6688 = ((console.log(("VALUE " + $6683)), (_$96 => { - var _reply$pst$97 = Parser$State$new$(Parser$Error$maybe_combine$($6672, $6682), $6683, $6684, $6685, $6686); - var _term$98 = $6610; - var _term$99 = Kind$Term$app$(_term$98, Kind$Term$lam$("", (_x$99 => { - var $6690 = Kind$Term$hol$(Bits$e); - return $6690; - }))); - var _term$100 = Kind$Term$app$(_term$99, $6645); - var _term$101 = Kind$Term$app$(_term$100, $6680); - var $6689 = Parser$Reply$value$(_reply$pst$97, _term$101); - return $6689; - })())); - return $6688; - })())); - var $6681 = $6687; - break; - }; - var $6673 = $6681; - break; - }; - var $6671 = $6673; - break; - }; - return $6671; - })())); - return $6670; - })())); - var $6663 = $6669; - break; - }; - var $6656 = $6663; - break; - }; - var $6654 = $6656; - break; - }; - return $6654; - })())); - return $6653; - })())); - var $6646 = $6652; - break; - }; - var $6638 = $6646; - break; - }; - var $6636 = $6638; - break; - }; - return $6636; - })())); - return $6635; - })())); - var $6628 = $6634; - break; - }; - var $6621 = $6628; - break; - }; - var $6619 = $6621; - break; - }; - return $6619; - })())); - return $6618; - })())); - var $6611 = $6617; - break; - }; - var $6603 = $6611; - break; - }; - var $6601 = $6603; - break; - }; - return $6601; - })())); - return $6600; - })())); - var $6593 = $6599; - break; - }; - var $6586 = $6593; - break; - }; - var $6584 = $6586; - break; - }; - return $6584; - })); - const Kind$Code$escapes = List$cons$(Pair$new$("\\b", 8), List$cons$(Pair$new$("\\f", 12), List$cons$(Pair$new$("\\n", 10), List$cons$(Pair$new$("\\r", 13), List$cons$(Pair$new$("\\t", 9), List$cons$(Pair$new$("\\v", 11), List$cons$(Pair$new$(String$cons$(Kind$Code$backslash, String$cons$(Kind$Code$backslash, String$nil)), Kind$Code$backslash), List$cons$(Pair$new$("\\\"", 34), List$cons$(Pair$new$("\\0", 0), List$cons$(Pair$new$("\\\'", 39), List$nil)))))))))); - const Kind$Parser$char$single = Parser$choice(List$cons$(Parser$choice(List$mapped$(Kind$Code$escapes, (_esc$1 => { - var self = _esc$1; - switch (self._) { - case 'Pair.new': - var $6692 = self.fst; - var $6693 = self.snd; - var $6694 = (_pst$4 => { - var self = _pst$4; - switch (self._) { - case 'Parser.State.new': - var $6696 = self.err; - var _reply$10 = Parser$text$($6692, _pst$4); - var self = _reply$10; - switch (self._) { - case 'Parser.Reply.error': - var $6698 = self.err; - var self = $6696; - switch (self._) { - case 'Maybe.some': - var $6700 = self.value; - var $6701 = Parser$Reply$error$(Parser$Error$combine$($6700, $6698)); - var $6699 = $6701; - break; - case 'Maybe.none': - var $6702 = Parser$Reply$error$($6698); - var $6699 = $6702; - break; - }; - var $6697 = $6699; - break; - case 'Parser.Reply.value': - var $6703 = self.pst; - var self = $6703; - switch (self._) { - case 'Parser.State.new': - var $6705 = self.err; - var $6706 = self.nam; - var $6707 = self.ini; - var $6708 = self.idx; - var $6709 = self.str; - var $6710 = ((console.log(("FALTANDO " + $6709)), (_$18 => { - var $6711 = ((console.log(("VALUE " + $6706)), (_$19 => { - var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($6696, $6705), $6706, $6707, $6708, $6709); - var $6712 = Parser$Reply$value$(_reply$pst$20, $6693); - return $6712; - })())); - return $6711; - })())); - var $6704 = $6710; - break; - }; - var $6697 = $6704; - break; - }; - var $6695 = $6697; - break; - }; - return $6695; - }); - var $6691 = $6694; - break; - }; - return $6691; - }))), List$cons$(Parser$one, List$nil))); - const Kind$Parser$char = Kind$Parser$block("char")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6714 = self.err; - var _reply$7 = Kind$Parser$text$("\'", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6716 = self.err; - var self = $6714; - switch (self._) { - case 'Maybe.some': - var $6718 = self.value; - var $6719 = Parser$Reply$error$(Parser$Error$combine$($6718, $6716)); - var $6717 = $6719; - break; - case 'Maybe.none': - var $6720 = Parser$Reply$error$($6716); - var $6717 = $6720; - break; - }; - var $6715 = $6717; - break; - case 'Parser.Reply.value': - var $6721 = self.pst; - var self = $6721; - switch (self._) { - case 'Parser.State.new': - var $6723 = self.err; - var $6724 = self.nam; - var $6725 = self.ini; - var $6726 = self.idx; - var $6727 = self.str; - var $6728 = ((console.log(("FALTANDO " + $6727)), (_$15 => { - var $6729 = ((console.log(("VALUE " + $6724)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6714, $6723), $6724, $6725, $6726, $6727); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $6731 = self.err; - var _reply$23 = Kind$Parser$char$single(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $6733 = self.err; - var self = $6731; - switch (self._) { - case 'Maybe.some': - var $6735 = self.value; - var $6736 = Parser$Reply$error$(Parser$Error$combine$($6735, $6733)); - var $6734 = $6736; - break; - case 'Maybe.none': - var $6737 = Parser$Reply$error$($6733); - var $6734 = $6737; - break; - }; - var $6732 = $6734; - break; - case 'Parser.Reply.value': - var $6738 = self.pst; - var $6739 = self.val; - var self = $6738; - switch (self._) { - case 'Parser.State.new': - var $6741 = self.err; - var $6742 = self.nam; - var $6743 = self.ini; - var $6744 = self.idx; - var $6745 = self.str; - var $6746 = ((console.log(("FALTANDO " + $6745)), (_$31 => { - var $6747 = ((console.log(("VALUE " + $6742)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6731, $6741), $6742, $6743, $6744, $6745); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $6749 = self.err; - var _reply$39 = Kind$Parser$text$("\'", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $6751 = self.err; - var self = $6749; - switch (self._) { - case 'Maybe.some': - var $6753 = self.value; - var $6754 = Parser$Reply$error$(Parser$Error$combine$($6753, $6751)); - var $6752 = $6754; - break; - case 'Maybe.none': - var $6755 = Parser$Reply$error$($6751); - var $6752 = $6755; - break; - }; - var $6750 = $6752; - break; - case 'Parser.Reply.value': - var $6756 = self.pst; - var self = $6756; - switch (self._) { - case 'Parser.State.new': - var $6758 = self.err; - var $6759 = self.nam; - var $6760 = self.ini; - var $6761 = self.idx; - var $6762 = self.str; - var $6763 = ((console.log(("FALTANDO " + $6762)), (_$47 => { - var $6764 = ((console.log(("VALUE " + $6759)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6749, $6758), $6759, $6760, $6761, $6762); - var $6765 = Parser$Reply$value$(_reply$pst$49, Kind$Term$chr$($6739)); - return $6765; - })())); - return $6764; - })())); - var $6757 = $6763; - break; - }; - var $6750 = $6757; - break; - }; - var $6748 = $6750; - break; - }; - return $6748; - })())); - return $6747; - })())); - var $6740 = $6746; - break; - }; - var $6732 = $6740; - break; - }; - var $6730 = $6732; - break; - }; - return $6730; - })())); - return $6729; - })())); - var $6722 = $6728; - break; - }; - var $6715 = $6722; - break; - }; - var $6713 = $6715; - break; - }; - return $6713; - })); - - function Kind$Parser$string$go$(_delim$1, _str$2, _pst$3) { - var Kind$Parser$string$go$ = (_delim$1, _str$2, _pst$3) => ({ - ctr: 'TCO', - arg: [_delim$1, _str$2, _pst$3] - }); - var Kind$Parser$string$go = _delim$1 => _str$2 => _pst$3 => Kind$Parser$string$go$(_delim$1, _str$2, _pst$3); - var arg = [_delim$1, _str$2, _pst$3]; - while (true) { - let [_delim$1, _str$2, _pst$3] = arg; - var R = (() => { - var self = _pst$3; - switch (self._) { - case 'Parser.State.new': - var $6766 = self.err; - var $6767 = self.nam; - var $6768 = self.ini; - var $6769 = self.idx; - var $6770 = self.str; - var self = $6770; - if (self.length === 0) { - var $6772 = Parser$Reply$fail$($6767, $6768, $6769, "Non-terminating string."); - var $6771 = $6772; - } else { - var $6773 = self.charCodeAt(0); - var $6774 = self.slice(1); - var self = ($6773 === _delim$1); - if (self) { - var _pst$11 = Parser$State$new$($6766, $6767, $6768, Nat$succ$($6769), $6774); - var $6776 = Parser$Reply$value$(_pst$11, String$reverse$(_str$2)); - var $6775 = $6776; - } else { - var self = Kind$Parser$char$single(_pst$3); - switch (self._) { - case 'Parser.Reply.error': - var $6778 = self.err; - var $6779 = Parser$Reply$error$($6778); - var $6777 = $6779; - break; - case 'Parser.Reply.value': - var $6780 = self.pst; - var $6781 = self.val; - var $6782 = Kind$Parser$string$go$(_delim$1, String$cons$($6781, _str$2), $6780); - var $6777 = $6782; - break; - }; - var $6775 = $6777; - }; - var $6771 = $6775; - }; - return $6771; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const Kind$Parser$string$go = x0 => x1 => x2 => Kind$Parser$string$go$(x0, x1, x2); - - function Kind$Parser$string$(_delim$1) { - var $6783 = Kind$Parser$block("string")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $6785 = self.err; - var _reply$8 = Kind$Parser$text$(String$cons$(_delim$1, String$nil), _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $6787 = self.err; - var self = $6785; - switch (self._) { - case 'Maybe.some': - var $6789 = self.value; - var $6790 = Parser$Reply$error$(Parser$Error$combine$($6789, $6787)); - var $6788 = $6790; - break; - case 'Maybe.none': - var $6791 = Parser$Reply$error$($6787); - var $6788 = $6791; - break; - }; - var $6786 = $6788; - break; - case 'Parser.Reply.value': - var $6792 = self.pst; - var self = $6792; - switch (self._) { - case 'Parser.State.new': - var $6794 = self.err; - var $6795 = self.nam; - var $6796 = self.ini; - var $6797 = self.idx; - var $6798 = self.str; - var $6799 = ((console.log(("FALTANDO " + $6798)), (_$16 => { - var $6800 = ((console.log(("VALUE " + $6795)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($6785, $6794), $6795, $6796, $6797, $6798); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $6802 = self.err; - var _reply$24 = Kind$Parser$string$go$(_delim$1, "", _reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $6804 = self.err; - var self = $6802; - switch (self._) { - case 'Maybe.some': - var $6806 = self.value; - var $6807 = Parser$Reply$error$(Parser$Error$combine$($6806, $6804)); - var $6805 = $6807; - break; - case 'Maybe.none': - var $6808 = Parser$Reply$error$($6804); - var $6805 = $6808; - break; - }; - var $6803 = $6805; - break; - case 'Parser.Reply.value': - var $6809 = self.pst; - var $6810 = self.val; - var self = $6809; - switch (self._) { - case 'Parser.State.new': - var $6812 = self.err; - var $6813 = self.nam; - var $6814 = self.ini; - var $6815 = self.idx; - var $6816 = self.str; - var $6817 = ((console.log(("FALTANDO " + $6816)), (_$32 => { - var $6818 = ((console.log(("VALUE " + $6813)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($6802, $6812), $6813, $6814, $6815, $6816); - var $6819 = Parser$Reply$value$(_reply$pst$34, Kind$Term$str$($6810)); - return $6819; - })())); - return $6818; - })())); - var $6811 = $6817; - break; - }; - var $6803 = $6811; - break; - }; - var $6801 = $6803; - break; - }; - return $6801; - })())); - return $6800; - })())); - var $6793 = $6799; - break; - }; - var $6786 = $6793; - break; - }; - var $6784 = $6786; - break; - }; - return $6784; - })); - return $6783; - }; - const Kind$Parser$string = x0 => Kind$Parser$string$(x0); - - function Kind$Term$new$(_args$1) { - var $6820 = ({ - _: 'Kind.Term.new', - 'args': _args$1 - }); - return $6820; - }; - const Kind$Term$new = x0 => Kind$Term$new$(x0); - const Kind$Parser$new = Kind$Parser$block("new-struct")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6822 = self.err; - var _reply$7 = Kind$Parser$items1$("{", Kind$Parser$term, "}")(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6824 = self.err; - var self = $6822; - switch (self._) { - case 'Maybe.some': - var $6826 = self.value; - var $6827 = Parser$Reply$error$(Parser$Error$combine$($6826, $6824)); - var $6825 = $6827; - break; - case 'Maybe.none': - var $6828 = Parser$Reply$error$($6824); - var $6825 = $6828; - break; - }; - var $6823 = $6825; - break; - case 'Parser.Reply.value': - var $6829 = self.pst; - var $6830 = self.val; - var self = $6829; - switch (self._) { - case 'Parser.State.new': - var $6832 = self.err; - var $6833 = self.nam; - var $6834 = self.ini; - var $6835 = self.idx; - var $6836 = self.str; - var $6837 = ((console.log(("FALTANDO " + $6836)), (_$15 => { - var $6838 = ((console.log(("VALUE " + $6833)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6822, $6832), $6833, $6834, $6835, $6836); - var $6839 = Parser$Reply$value$(_reply$pst$17, Kind$Term$new$($6830)); - return $6839; - })())); - return $6838; - })())); - var $6831 = $6837; - break; - }; - var $6823 = $6831; - break; - }; - var $6821 = $6823; - break; - }; - return $6821; - })); - const Kind$Parser$sigma$type = Kind$Parser$block("sigma")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6841 = self.err; - var _reply$7 = Kind$Parser$text$("[", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6843 = self.err; - var self = $6841; - switch (self._) { - case 'Maybe.some': - var $6845 = self.value; - var $6846 = Parser$Reply$error$(Parser$Error$combine$($6845, $6843)); - var $6844 = $6846; - break; - case 'Maybe.none': - var $6847 = Parser$Reply$error$($6843); - var $6844 = $6847; - break; - }; - var $6842 = $6844; - break; - case 'Parser.Reply.value': - var $6848 = self.pst; - var self = $6848; - switch (self._) { - case 'Parser.State.new': - var $6850 = self.err; - var $6851 = self.nam; - var $6852 = self.ini; - var $6853 = self.idx; - var $6854 = self.str; - var $6855 = ((console.log(("FALTANDO " + $6854)), (_$15 => { - var $6856 = ((console.log(("VALUE " + $6851)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6841, $6850), $6851, $6852, $6853, $6854); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $6858 = self.err; - var _reply$23 = Kind$Parser$name1$(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $6860 = self.err; - var self = $6858; - switch (self._) { - case 'Maybe.some': - var $6862 = self.value; - var $6863 = Parser$Reply$error$(Parser$Error$combine$($6862, $6860)); - var $6861 = $6863; - break; - case 'Maybe.none': - var $6864 = Parser$Reply$error$($6860); - var $6861 = $6864; - break; - }; - var $6859 = $6861; - break; - case 'Parser.Reply.value': - var $6865 = self.pst; - var $6866 = self.val; - var self = $6865; - switch (self._) { - case 'Parser.State.new': - var $6868 = self.err; - var $6869 = self.nam; - var $6870 = self.ini; - var $6871 = self.idx; - var $6872 = self.str; - var $6873 = ((console.log(("FALTANDO " + $6872)), (_$31 => { - var $6874 = ((console.log(("VALUE " + $6869)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6858, $6868), $6869, $6870, $6871, $6872); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $6876 = self.err; - var _reply$39 = Kind$Parser$text$(":", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $6878 = self.err; - var self = $6876; - switch (self._) { - case 'Maybe.some': - var $6880 = self.value; - var $6881 = Parser$Reply$error$(Parser$Error$combine$($6880, $6878)); - var $6879 = $6881; - break; - case 'Maybe.none': - var $6882 = Parser$Reply$error$($6878); - var $6879 = $6882; - break; - }; - var $6877 = $6879; - break; - case 'Parser.Reply.value': - var $6883 = self.pst; - var self = $6883; - switch (self._) { - case 'Parser.State.new': - var $6885 = self.err; - var $6886 = self.nam; - var $6887 = self.ini; - var $6888 = self.idx; - var $6889 = self.str; - var $6890 = ((console.log(("FALTANDO " + $6889)), (_$47 => { - var $6891 = ((console.log(("VALUE " + $6886)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6876, $6885), $6886, $6887, $6888, $6889); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $6893 = self.err; - var _reply$55 = Kind$Parser$term(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $6895 = self.err; - var self = $6893; - switch (self._) { - case 'Maybe.some': - var $6897 = self.value; - var $6898 = Parser$Reply$error$(Parser$Error$combine$($6897, $6895)); - var $6896 = $6898; - break; - case 'Maybe.none': - var $6899 = Parser$Reply$error$($6895); - var $6896 = $6899; - break; - }; - var $6894 = $6896; - break; - case 'Parser.Reply.value': - var $6900 = self.pst; - var $6901 = self.val; - var self = $6900; - switch (self._) { - case 'Parser.State.new': - var $6903 = self.err; - var $6904 = self.nam; - var $6905 = self.ini; - var $6906 = self.idx; - var $6907 = self.str; - var $6908 = ((console.log(("FALTANDO " + $6907)), (_$63 => { - var $6909 = ((console.log(("VALUE " + $6904)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($6893, $6903), $6904, $6905, $6906, $6907); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $6911 = self.err; - var _reply$71 = Kind$Parser$text$("]", _reply$pst$65); - var self = _reply$71; - switch (self._) { - case 'Parser.Reply.error': - var $6913 = self.err; - var self = $6911; - switch (self._) { - case 'Maybe.some': - var $6915 = self.value; - var $6916 = Parser$Reply$error$(Parser$Error$combine$($6915, $6913)); - var $6914 = $6916; - break; - case 'Maybe.none': - var $6917 = Parser$Reply$error$($6913); - var $6914 = $6917; - break; - }; - var $6912 = $6914; - break; - case 'Parser.Reply.value': - var $6918 = self.pst; - var self = $6918; - switch (self._) { - case 'Parser.State.new': - var $6920 = self.err; - var $6921 = self.nam; - var $6922 = self.ini; - var $6923 = self.idx; - var $6924 = self.str; - var $6925 = ((console.log(("FALTANDO " + $6924)), (_$79 => { - var $6926 = ((console.log(("VALUE " + $6921)), (_$80 => { - var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($6911, $6920), $6921, $6922, $6923, $6924); - var self = _reply$pst$81; - switch (self._) { - case 'Parser.State.new': - var $6928 = self.err; - var _reply$87 = Kind$Parser$term(_reply$pst$81); - var self = _reply$87; - switch (self._) { - case 'Parser.Reply.error': - var $6930 = self.err; - var self = $6928; - switch (self._) { - case 'Maybe.some': - var $6932 = self.value; - var $6933 = Parser$Reply$error$(Parser$Error$combine$($6932, $6930)); - var $6931 = $6933; - break; - case 'Maybe.none': - var $6934 = Parser$Reply$error$($6930); - var $6931 = $6934; - break; - }; - var $6929 = $6931; - break; - case 'Parser.Reply.value': - var $6935 = self.pst; - var $6936 = self.val; - var self = $6935; - switch (self._) { - case 'Parser.State.new': - var $6938 = self.err; - var $6939 = self.nam; - var $6940 = self.ini; - var $6941 = self.idx; - var $6942 = self.str; - var $6943 = ((console.log(("FALTANDO " + $6942)), (_$95 => { - var $6944 = ((console.log(("VALUE " + $6939)), (_$96 => { - var _reply$pst$97 = Parser$State$new$(Parser$Error$maybe_combine$($6928, $6938), $6939, $6940, $6941, $6942); - var _term$98 = Kind$Term$ref$("Sigma"); - var _term$99 = Kind$Term$app$(_term$98, $6901); - var _term$100 = Kind$Term$app$(_term$99, Kind$Term$lam$($6866, (_x$100 => { - var $6946 = $6936; - return $6946; - }))); - var $6945 = Parser$Reply$value$(_reply$pst$97, _term$100); - return $6945; - })())); - return $6944; - })())); - var $6937 = $6943; - break; - }; - var $6929 = $6937; - break; - }; - var $6927 = $6929; - break; - }; - return $6927; - })())); - return $6926; - })())); - var $6919 = $6925; - break; - }; - var $6912 = $6919; - break; - }; - var $6910 = $6912; - break; - }; - return $6910; - })())); - return $6909; - })())); - var $6902 = $6908; - break; - }; - var $6894 = $6902; - break; - }; - var $6892 = $6894; - break; - }; - return $6892; - })())); - return $6891; - })())); - var $6884 = $6890; - break; - }; - var $6877 = $6884; - break; - }; - var $6875 = $6877; - break; - }; - return $6875; - })())); - return $6874; - })())); - var $6867 = $6873; - break; - }; - var $6859 = $6867; - break; - }; - var $6857 = $6859; - break; - }; - return $6857; - })())); - return $6856; - })())); - var $6849 = $6855; - break; - }; - var $6842 = $6849; - break; - }; - var $6840 = $6842; - break; - }; - return $6840; - })); - const Kind$Parser$some = Kind$Parser$block("some")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $6948 = self.err; - var _reply$7 = Kind$Parser$text$("some(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $6950 = self.err; - var self = $6948; - switch (self._) { - case 'Maybe.some': - var $6952 = self.value; - var $6953 = Parser$Reply$error$(Parser$Error$combine$($6952, $6950)); - var $6951 = $6953; - break; - case 'Maybe.none': - var $6954 = Parser$Reply$error$($6950); - var $6951 = $6954; - break; - }; - var $6949 = $6951; - break; - case 'Parser.Reply.value': - var $6955 = self.pst; - var self = $6955; - switch (self._) { - case 'Parser.State.new': - var $6957 = self.err; - var $6958 = self.nam; - var $6959 = self.ini; - var $6960 = self.idx; - var $6961 = self.str; - var $6962 = ((console.log(("FALTANDO " + $6961)), (_$15 => { - var $6963 = ((console.log(("VALUE " + $6958)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($6948, $6957), $6958, $6959, $6960, $6961); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $6965 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $6967 = self.err; - var self = $6965; - switch (self._) { - case 'Maybe.some': - var $6969 = self.value; - var $6970 = Parser$Reply$error$(Parser$Error$combine$($6969, $6967)); - var $6968 = $6970; - break; - case 'Maybe.none': - var $6971 = Parser$Reply$error$($6967); - var $6968 = $6971; - break; - }; - var $6966 = $6968; - break; - case 'Parser.Reply.value': - var $6972 = self.pst; - var $6973 = self.val; - var self = $6972; - switch (self._) { - case 'Parser.State.new': - var $6975 = self.err; - var $6976 = self.nam; - var $6977 = self.ini; - var $6978 = self.idx; - var $6979 = self.str; - var $6980 = ((console.log(("FALTANDO " + $6979)), (_$31 => { - var $6981 = ((console.log(("VALUE " + $6976)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($6965, $6975), $6976, $6977, $6978, $6979); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $6983 = self.err; - var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $6985 = self.err; - var self = $6983; - switch (self._) { - case 'Maybe.some': - var $6987 = self.value; - var $6988 = Parser$Reply$error$(Parser$Error$combine$($6987, $6985)); - var $6986 = $6988; - break; - case 'Maybe.none': - var $6989 = Parser$Reply$error$($6985); - var $6986 = $6989; - break; - }; - var $6984 = $6986; - break; - case 'Parser.Reply.value': - var $6990 = self.pst; - var self = $6990; - switch (self._) { - case 'Parser.State.new': - var $6992 = self.err; - var $6993 = self.nam; - var $6994 = self.ini; - var $6995 = self.idx; - var $6996 = self.str; - var $6997 = ((console.log(("FALTANDO " + $6996)), (_$47 => { - var $6998 = ((console.log(("VALUE " + $6993)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($6983, $6992), $6993, $6994, $6995, $6996); - var _term$50 = Kind$Term$ref$("Maybe.some"); - var _term$51 = Kind$Term$app$(_term$50, Kind$Term$hol$(Bits$e)); - var _term$52 = Kind$Term$app$(_term$51, $6973); - var $6999 = Parser$Reply$value$(_reply$pst$49, _term$52); - return $6999; - })())); - return $6998; - })())); - var $6991 = $6997; - break; - }; - var $6984 = $6991; - break; - }; - var $6982 = $6984; - break; - }; - return $6982; - })())); - return $6981; - })())); - var $6974 = $6980; - break; - }; - var $6966 = $6974; - break; - }; - var $6964 = $6966; - break; - }; - return $6964; - })())); - return $6963; - })())); - var $6956 = $6962; - break; - }; - var $6949 = $6956; - break; - }; - var $6947 = $6949; - break; - }; - return $6947; - })); - const Kind$Parser$not = Kind$Parser$block("not")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7001 = self.err; - var _reply$7 = Kind$Parser$text$("not(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7003 = self.err; - var self = $7001; - switch (self._) { - case 'Maybe.some': - var $7005 = self.value; - var $7006 = Parser$Reply$error$(Parser$Error$combine$($7005, $7003)); - var $7004 = $7006; - break; - case 'Maybe.none': - var $7007 = Parser$Reply$error$($7003); - var $7004 = $7007; - break; - }; - var $7002 = $7004; - break; - case 'Parser.Reply.value': - var $7008 = self.pst; - var self = $7008; - switch (self._) { - case 'Parser.State.new': - var $7010 = self.err; - var $7011 = self.nam; - var $7012 = self.ini; - var $7013 = self.idx; - var $7014 = self.str; - var $7015 = ((console.log(("FALTANDO " + $7014)), (_$15 => { - var $7016 = ((console.log(("VALUE " + $7011)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7001, $7010), $7011, $7012, $7013, $7014); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $7018 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $7020 = self.err; - var self = $7018; - switch (self._) { - case 'Maybe.some': - var $7022 = self.value; - var $7023 = Parser$Reply$error$(Parser$Error$combine$($7022, $7020)); - var $7021 = $7023; - break; - case 'Maybe.none': - var $7024 = Parser$Reply$error$($7020); - var $7021 = $7024; - break; - }; - var $7019 = $7021; - break; - case 'Parser.Reply.value': - var $7025 = self.pst; - var $7026 = self.val; - var self = $7025; - switch (self._) { - case 'Parser.State.new': - var $7028 = self.err; - var $7029 = self.nam; - var $7030 = self.ini; - var $7031 = self.idx; - var $7032 = self.str; - var $7033 = ((console.log(("FALTANDO " + $7032)), (_$31 => { - var $7034 = ((console.log(("VALUE " + $7029)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7018, $7028), $7029, $7030, $7031, $7032); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $7036 = self.err; - var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $7038 = self.err; - var self = $7036; - switch (self._) { - case 'Maybe.some': - var $7040 = self.value; - var $7041 = Parser$Reply$error$(Parser$Error$combine$($7040, $7038)); - var $7039 = $7041; - break; - case 'Maybe.none': - var $7042 = Parser$Reply$error$($7038); - var $7039 = $7042; - break; - }; - var $7037 = $7039; - break; - case 'Parser.Reply.value': - var $7043 = self.pst; - var self = $7043; - switch (self._) { - case 'Parser.State.new': - var $7045 = self.err; - var $7046 = self.nam; - var $7047 = self.ini; - var $7048 = self.idx; - var $7049 = self.str; - var $7050 = ((console.log(("FALTANDO " + $7049)), (_$47 => { - var $7051 = ((console.log(("VALUE " + $7046)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7036, $7045), $7046, $7047, $7048, $7049); - var _term$50 = Kind$Term$ref$("Bool.not"); - var _term$51 = Kind$Term$app$(_term$50, $7026); - var $7052 = Parser$Reply$value$(_reply$pst$49, _term$51); - return $7052; - })())); - return $7051; - })())); - var $7044 = $7050; - break; - }; - var $7037 = $7044; - break; - }; - var $7035 = $7037; - break; - }; - return $7035; - })())); - return $7034; - })())); - var $7027 = $7033; - break; - }; - var $7019 = $7027; - break; - }; - var $7017 = $7019; - break; - }; - return $7017; - })())); - return $7016; - })())); - var $7009 = $7015; - break; - }; - var $7002 = $7009; - break; - }; - var $7000 = $7002; - break; - }; - return $7000; - })); - const Kind$Parser$left = Kind$Parser$block("left")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7054 = self.err; - var _reply$7 = Kind$Parser$text$("left(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7056 = self.err; - var self = $7054; - switch (self._) { - case 'Maybe.some': - var $7058 = self.value; - var $7059 = Parser$Reply$error$(Parser$Error$combine$($7058, $7056)); - var $7057 = $7059; - break; - case 'Maybe.none': - var $7060 = Parser$Reply$error$($7056); - var $7057 = $7060; - break; - }; - var $7055 = $7057; - break; - case 'Parser.Reply.value': - var $7061 = self.pst; - var self = $7061; - switch (self._) { - case 'Parser.State.new': - var $7063 = self.err; - var $7064 = self.nam; - var $7065 = self.ini; - var $7066 = self.idx; - var $7067 = self.str; - var $7068 = ((console.log(("FALTANDO " + $7067)), (_$15 => { - var $7069 = ((console.log(("VALUE " + $7064)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7054, $7063), $7064, $7065, $7066, $7067); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $7071 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $7073 = self.err; - var self = $7071; - switch (self._) { - case 'Maybe.some': - var $7075 = self.value; - var $7076 = Parser$Reply$error$(Parser$Error$combine$($7075, $7073)); - var $7074 = $7076; - break; - case 'Maybe.none': - var $7077 = Parser$Reply$error$($7073); - var $7074 = $7077; - break; - }; - var $7072 = $7074; - break; - case 'Parser.Reply.value': - var $7078 = self.pst; - var $7079 = self.val; - var self = $7078; - switch (self._) { - case 'Parser.State.new': - var $7081 = self.err; - var $7082 = self.nam; - var $7083 = self.ini; - var $7084 = self.idx; - var $7085 = self.str; - var $7086 = ((console.log(("FALTANDO " + $7085)), (_$31 => { - var $7087 = ((console.log(("VALUE " + $7082)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7071, $7081), $7082, $7083, $7084, $7085); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $7089 = self.err; - var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $7091 = self.err; - var self = $7089; - switch (self._) { - case 'Maybe.some': - var $7093 = self.value; - var $7094 = Parser$Reply$error$(Parser$Error$combine$($7093, $7091)); - var $7092 = $7094; - break; - case 'Maybe.none': - var $7095 = Parser$Reply$error$($7091); - var $7092 = $7095; - break; - }; - var $7090 = $7092; - break; - case 'Parser.Reply.value': - var $7096 = self.pst; - var self = $7096; - switch (self._) { - case 'Parser.State.new': - var $7098 = self.err; - var $7099 = self.nam; - var $7100 = self.ini; - var $7101 = self.idx; - var $7102 = self.str; - var $7103 = ((console.log(("FALTANDO " + $7102)), (_$47 => { - var $7104 = ((console.log(("VALUE " + $7099)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7089, $7098), $7099, $7100, $7101, $7102); - var _term$50 = Kind$Term$ref$("Either.left"); - var _term$51 = Kind$Term$app$(_term$50, Kind$Term$hol$(Bits$e)); - var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); - var _term$53 = Kind$Term$app$(_term$52, $7079); - var $7105 = Parser$Reply$value$(_reply$pst$49, _term$53); - return $7105; - })())); - return $7104; - })())); - var $7097 = $7103; - break; - }; - var $7090 = $7097; - break; - }; - var $7088 = $7090; - break; - }; - return $7088; - })())); - return $7087; - })())); - var $7080 = $7086; - break; - }; - var $7072 = $7080; - break; - }; - var $7070 = $7072; - break; - }; - return $7070; - })())); - return $7069; - })())); - var $7062 = $7068; - break; - }; - var $7055 = $7062; - break; - }; - var $7053 = $7055; - break; - }; - return $7053; - })); - const Kind$Parser$right = Kind$Parser$block("right")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7107 = self.err; - var _reply$7 = Kind$Parser$text$("right(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7109 = self.err; - var self = $7107; - switch (self._) { - case 'Maybe.some': - var $7111 = self.value; - var $7112 = Parser$Reply$error$(Parser$Error$combine$($7111, $7109)); - var $7110 = $7112; - break; - case 'Maybe.none': - var $7113 = Parser$Reply$error$($7109); - var $7110 = $7113; - break; - }; - var $7108 = $7110; - break; - case 'Parser.Reply.value': - var $7114 = self.pst; - var self = $7114; - switch (self._) { - case 'Parser.State.new': - var $7116 = self.err; - var $7117 = self.nam; - var $7118 = self.ini; - var $7119 = self.idx; - var $7120 = self.str; - var $7121 = ((console.log(("FALTANDO " + $7120)), (_$15 => { - var $7122 = ((console.log(("VALUE " + $7117)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7107, $7116), $7117, $7118, $7119, $7120); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $7124 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $7126 = self.err; - var self = $7124; - switch (self._) { - case 'Maybe.some': - var $7128 = self.value; - var $7129 = Parser$Reply$error$(Parser$Error$combine$($7128, $7126)); - var $7127 = $7129; - break; - case 'Maybe.none': - var $7130 = Parser$Reply$error$($7126); - var $7127 = $7130; - break; - }; - var $7125 = $7127; - break; - case 'Parser.Reply.value': - var $7131 = self.pst; - var $7132 = self.val; - var self = $7131; - switch (self._) { - case 'Parser.State.new': - var $7134 = self.err; - var $7135 = self.nam; - var $7136 = self.ini; - var $7137 = self.idx; - var $7138 = self.str; - var $7139 = ((console.log(("FALTANDO " + $7138)), (_$31 => { - var $7140 = ((console.log(("VALUE " + $7135)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7124, $7134), $7135, $7136, $7137, $7138); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $7142 = self.err; - var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $7144 = self.err; - var self = $7142; - switch (self._) { - case 'Maybe.some': - var $7146 = self.value; - var $7147 = Parser$Reply$error$(Parser$Error$combine$($7146, $7144)); - var $7145 = $7147; - break; - case 'Maybe.none': - var $7148 = Parser$Reply$error$($7144); - var $7145 = $7148; - break; - }; - var $7143 = $7145; - break; - case 'Parser.Reply.value': - var $7149 = self.pst; - var self = $7149; - switch (self._) { - case 'Parser.State.new': - var $7151 = self.err; - var $7152 = self.nam; - var $7153 = self.ini; - var $7154 = self.idx; - var $7155 = self.str; - var $7156 = ((console.log(("FALTANDO " + $7155)), (_$47 => { - var $7157 = ((console.log(("VALUE " + $7152)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7142, $7151), $7152, $7153, $7154, $7155); - var _term$50 = Kind$Term$ref$("Either.right"); - var _term$51 = Kind$Term$app$(_term$50, Kind$Term$hol$(Bits$e)); - var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); - var _term$53 = Kind$Term$app$(_term$52, $7132); - var $7158 = Parser$Reply$value$(_reply$pst$49, _term$53); - return $7158; - })())); - return $7157; - })())); - var $7150 = $7156; - break; - }; - var $7143 = $7150; - break; - }; - var $7141 = $7143; - break; - }; - return $7141; - })())); - return $7140; - })())); - var $7133 = $7139; - break; - }; - var $7125 = $7133; - break; - }; - var $7123 = $7125; - break; - }; - return $7123; - })())); - return $7122; - })())); - var $7115 = $7121; - break; - }; - var $7108 = $7115; - break; - }; - var $7106 = $7108; - break; - }; - return $7106; - })); - const Kind$Parser$apply = Kind$Parser$block("apply")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7160 = self.err; - var _reply$7 = Kind$Parser$text$("apply(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7162 = self.err; - var self = $7160; - switch (self._) { - case 'Maybe.some': - var $7164 = self.value; - var $7165 = Parser$Reply$error$(Parser$Error$combine$($7164, $7162)); - var $7163 = $7165; - break; - case 'Maybe.none': - var $7166 = Parser$Reply$error$($7162); - var $7163 = $7166; - break; - }; - var $7161 = $7163; - break; - case 'Parser.Reply.value': - var $7167 = self.pst; - var self = $7167; - switch (self._) { - case 'Parser.State.new': - var $7169 = self.err; - var $7170 = self.nam; - var $7171 = self.ini; - var $7172 = self.idx; - var $7173 = self.str; - var $7174 = ((console.log(("FALTANDO " + $7173)), (_$15 => { - var $7175 = ((console.log(("VALUE " + $7170)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7160, $7169), $7170, $7171, $7172, $7173); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $7177 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $7179 = self.err; - var self = $7177; - switch (self._) { - case 'Maybe.some': - var $7181 = self.value; - var $7182 = Parser$Reply$error$(Parser$Error$combine$($7181, $7179)); - var $7180 = $7182; - break; - case 'Maybe.none': - var $7183 = Parser$Reply$error$($7179); - var $7180 = $7183; - break; - }; - var $7178 = $7180; - break; - case 'Parser.Reply.value': - var $7184 = self.pst; - var $7185 = self.val; - var self = $7184; - switch (self._) { - case 'Parser.State.new': - var $7187 = self.err; - var $7188 = self.nam; - var $7189 = self.ini; - var $7190 = self.idx; - var $7191 = self.str; - var $7192 = ((console.log(("FALTANDO " + $7191)), (_$31 => { - var $7193 = ((console.log(("VALUE " + $7188)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7177, $7187), $7188, $7189, $7190, $7191); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $7195 = self.err; - var _reply$39 = Kind$Parser$text$(",", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $7197 = self.err; - var self = $7195; - switch (self._) { - case 'Maybe.some': - var $7199 = self.value; - var $7200 = Parser$Reply$error$(Parser$Error$combine$($7199, $7197)); - var $7198 = $7200; - break; - case 'Maybe.none': - var $7201 = Parser$Reply$error$($7197); - var $7198 = $7201; - break; - }; - var $7196 = $7198; - break; - case 'Parser.Reply.value': - var $7202 = self.pst; - var self = $7202; - switch (self._) { - case 'Parser.State.new': - var $7204 = self.err; - var $7205 = self.nam; - var $7206 = self.ini; - var $7207 = self.idx; - var $7208 = self.str; - var $7209 = ((console.log(("FALTANDO " + $7208)), (_$47 => { - var $7210 = ((console.log(("VALUE " + $7205)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7195, $7204), $7205, $7206, $7207, $7208); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $7212 = self.err; - var _reply$55 = Kind$Parser$term(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $7214 = self.err; - var self = $7212; - switch (self._) { - case 'Maybe.some': - var $7216 = self.value; - var $7217 = Parser$Reply$error$(Parser$Error$combine$($7216, $7214)); - var $7215 = $7217; - break; - case 'Maybe.none': - var $7218 = Parser$Reply$error$($7214); - var $7215 = $7218; - break; - }; - var $7213 = $7215; - break; - case 'Parser.Reply.value': - var $7219 = self.pst; - var $7220 = self.val; - var self = $7219; - switch (self._) { - case 'Parser.State.new': - var $7222 = self.err; - var $7223 = self.nam; - var $7224 = self.ini; - var $7225 = self.idx; - var $7226 = self.str; - var $7227 = ((console.log(("FALTANDO " + $7226)), (_$63 => { - var $7228 = ((console.log(("VALUE " + $7223)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($7212, $7222), $7223, $7224, $7225, $7226); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $7230 = self.err; - var _reply$71 = Kind$Parser$text$(")", _reply$pst$65); - var self = _reply$71; - switch (self._) { - case 'Parser.Reply.error': - var $7232 = self.err; - var self = $7230; - switch (self._) { - case 'Maybe.some': - var $7234 = self.value; - var $7235 = Parser$Reply$error$(Parser$Error$combine$($7234, $7232)); - var $7233 = $7235; - break; - case 'Maybe.none': - var $7236 = Parser$Reply$error$($7232); - var $7233 = $7236; - break; - }; - var $7231 = $7233; - break; - case 'Parser.Reply.value': - var $7237 = self.pst; - var self = $7237; - switch (self._) { - case 'Parser.State.new': - var $7239 = self.err; - var $7240 = self.nam; - var $7241 = self.ini; - var $7242 = self.idx; - var $7243 = self.str; - var $7244 = ((console.log(("FALTANDO " + $7243)), (_$79 => { - var $7245 = ((console.log(("VALUE " + $7240)), (_$80 => { - var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($7230, $7239), $7240, $7241, $7242, $7243); - var _term$82 = Kind$Term$ref$("Equal.apply"); - var _term$83 = Kind$Term$app$(_term$82, Kind$Term$hol$(Bits$e)); - var _term$84 = Kind$Term$app$(_term$83, Kind$Term$hol$(Bits$e)); - var _term$85 = Kind$Term$app$(_term$84, Kind$Term$hol$(Bits$e)); - var _term$86 = Kind$Term$app$(_term$85, Kind$Term$hol$(Bits$e)); - var _term$87 = Kind$Term$app$(_term$86, $7185); - var _term$88 = Kind$Term$app$(_term$87, $7220); - var $7246 = Parser$Reply$value$(_reply$pst$81, _term$88); - return $7246; - })())); - return $7245; - })())); - var $7238 = $7244; - break; - }; - var $7231 = $7238; - break; - }; - var $7229 = $7231; - break; - }; - return $7229; - })())); - return $7228; - })())); - var $7221 = $7227; - break; - }; - var $7213 = $7221; - break; - }; - var $7211 = $7213; - break; - }; - return $7211; - })())); - return $7210; - })())); - var $7203 = $7209; - break; - }; - var $7196 = $7203; - break; - }; - var $7194 = $7196; - break; - }; - return $7194; - })())); - return $7193; - })())); - var $7186 = $7192; - break; - }; - var $7178 = $7186; - break; - }; - var $7176 = $7178; - break; - }; - return $7176; - })())); - return $7175; - })())); - var $7168 = $7174; - break; - }; - var $7161 = $7168; - break; - }; - var $7159 = $7161; - break; - }; - return $7159; - })); - const Kind$Parser$chain = Kind$Parser$block("chain")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7248 = self.err; - var _reply$7 = Kind$Parser$text$("chain(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7250 = self.err; - var self = $7248; - switch (self._) { - case 'Maybe.some': - var $7252 = self.value; - var $7253 = Parser$Reply$error$(Parser$Error$combine$($7252, $7250)); - var $7251 = $7253; - break; - case 'Maybe.none': - var $7254 = Parser$Reply$error$($7250); - var $7251 = $7254; - break; - }; - var $7249 = $7251; - break; - case 'Parser.Reply.value': - var $7255 = self.pst; - var self = $7255; - switch (self._) { - case 'Parser.State.new': - var $7257 = self.err; - var $7258 = self.nam; - var $7259 = self.ini; - var $7260 = self.idx; - var $7261 = self.str; - var $7262 = ((console.log(("FALTANDO " + $7261)), (_$15 => { - var $7263 = ((console.log(("VALUE " + $7258)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7248, $7257), $7258, $7259, $7260, $7261); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $7265 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $7267 = self.err; - var self = $7265; - switch (self._) { - case 'Maybe.some': - var $7269 = self.value; - var $7270 = Parser$Reply$error$(Parser$Error$combine$($7269, $7267)); - var $7268 = $7270; - break; - case 'Maybe.none': - var $7271 = Parser$Reply$error$($7267); - var $7268 = $7271; - break; - }; - var $7266 = $7268; - break; - case 'Parser.Reply.value': - var $7272 = self.pst; - var $7273 = self.val; - var self = $7272; - switch (self._) { - case 'Parser.State.new': - var $7275 = self.err; - var $7276 = self.nam; - var $7277 = self.ini; - var $7278 = self.idx; - var $7279 = self.str; - var $7280 = ((console.log(("FALTANDO " + $7279)), (_$31 => { - var $7281 = ((console.log(("VALUE " + $7276)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7265, $7275), $7276, $7277, $7278, $7279); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $7283 = self.err; - var _reply$39 = Kind$Parser$text$(",", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $7285 = self.err; - var self = $7283; - switch (self._) { - case 'Maybe.some': - var $7287 = self.value; - var $7288 = Parser$Reply$error$(Parser$Error$combine$($7287, $7285)); - var $7286 = $7288; - break; - case 'Maybe.none': - var $7289 = Parser$Reply$error$($7285); - var $7286 = $7289; - break; - }; - var $7284 = $7286; - break; - case 'Parser.Reply.value': - var $7290 = self.pst; - var self = $7290; - switch (self._) { - case 'Parser.State.new': - var $7292 = self.err; - var $7293 = self.nam; - var $7294 = self.ini; - var $7295 = self.idx; - var $7296 = self.str; - var $7297 = ((console.log(("FALTANDO " + $7296)), (_$47 => { - var $7298 = ((console.log(("VALUE " + $7293)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7283, $7292), $7293, $7294, $7295, $7296); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $7300 = self.err; - var _reply$55 = Kind$Parser$term(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $7302 = self.err; - var self = $7300; - switch (self._) { - case 'Maybe.some': - var $7304 = self.value; - var $7305 = Parser$Reply$error$(Parser$Error$combine$($7304, $7302)); - var $7303 = $7305; - break; - case 'Maybe.none': - var $7306 = Parser$Reply$error$($7302); - var $7303 = $7306; - break; - }; - var $7301 = $7303; - break; - case 'Parser.Reply.value': - var $7307 = self.pst; - var $7308 = self.val; - var self = $7307; - switch (self._) { - case 'Parser.State.new': - var $7310 = self.err; - var $7311 = self.nam; - var $7312 = self.ini; - var $7313 = self.idx; - var $7314 = self.str; - var $7315 = ((console.log(("FALTANDO " + $7314)), (_$63 => { - var $7316 = ((console.log(("VALUE " + $7311)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($7300, $7310), $7311, $7312, $7313, $7314); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $7318 = self.err; - var _reply$71 = Kind$Parser$text$(")", _reply$pst$65); - var self = _reply$71; - switch (self._) { - case 'Parser.Reply.error': - var $7320 = self.err; - var self = $7318; - switch (self._) { - case 'Maybe.some': - var $7322 = self.value; - var $7323 = Parser$Reply$error$(Parser$Error$combine$($7322, $7320)); - var $7321 = $7323; - break; - case 'Maybe.none': - var $7324 = Parser$Reply$error$($7320); - var $7321 = $7324; - break; - }; - var $7319 = $7321; - break; - case 'Parser.Reply.value': - var $7325 = self.pst; - var self = $7325; - switch (self._) { - case 'Parser.State.new': - var $7327 = self.err; - var $7328 = self.nam; - var $7329 = self.ini; - var $7330 = self.idx; - var $7331 = self.str; - var $7332 = ((console.log(("FALTANDO " + $7331)), (_$79 => { - var $7333 = ((console.log(("VALUE " + $7328)), (_$80 => { - var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($7318, $7327), $7328, $7329, $7330, $7331); - var _term$82 = Kind$Term$ref$("Equal.chain"); - var _term$83 = Kind$Term$app$(_term$82, Kind$Term$hol$(Bits$e)); - var _term$84 = Kind$Term$app$(_term$83, Kind$Term$hol$(Bits$e)); - var _term$85 = Kind$Term$app$(_term$84, Kind$Term$hol$(Bits$e)); - var _term$86 = Kind$Term$app$(_term$85, Kind$Term$hol$(Bits$e)); - var _term$87 = Kind$Term$app$(_term$86, $7273); - var _term$88 = Kind$Term$app$(_term$87, $7308); - var $7334 = Parser$Reply$value$(_reply$pst$81, _term$88); - return $7334; - })())); - return $7333; - })())); - var $7326 = $7332; - break; - }; - var $7319 = $7326; - break; - }; - var $7317 = $7319; - break; - }; - return $7317; - })())); - return $7316; - })())); - var $7309 = $7315; - break; - }; - var $7301 = $7309; - break; - }; - var $7299 = $7301; - break; - }; - return $7299; - })())); - return $7298; - })())); - var $7291 = $7297; - break; - }; - var $7284 = $7291; - break; - }; - var $7282 = $7284; - break; - }; - return $7282; - })())); - return $7281; - })())); - var $7274 = $7280; - break; - }; - var $7266 = $7274; - break; - }; - var $7264 = $7266; - break; - }; - return $7264; - })())); - return $7263; - })())); - var $7256 = $7262; - break; - }; - var $7249 = $7256; - break; - }; - var $7247 = $7249; - break; - }; - return $7247; - })); - const Kind$Parser$mirror = Kind$Parser$block("mirror")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7336 = self.err; - var _reply$7 = Kind$Parser$text$("mirror(", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7338 = self.err; - var self = $7336; - switch (self._) { - case 'Maybe.some': - var $7340 = self.value; - var $7341 = Parser$Reply$error$(Parser$Error$combine$($7340, $7338)); - var $7339 = $7341; - break; - case 'Maybe.none': - var $7342 = Parser$Reply$error$($7338); - var $7339 = $7342; - break; - }; - var $7337 = $7339; - break; - case 'Parser.Reply.value': - var $7343 = self.pst; - var self = $7343; - switch (self._) { - case 'Parser.State.new': - var $7345 = self.err; - var $7346 = self.nam; - var $7347 = self.ini; - var $7348 = self.idx; - var $7349 = self.str; - var $7350 = ((console.log(("FALTANDO " + $7349)), (_$15 => { - var $7351 = ((console.log(("VALUE " + $7346)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7336, $7345), $7346, $7347, $7348, $7349); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $7353 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $7355 = self.err; - var self = $7353; - switch (self._) { - case 'Maybe.some': - var $7357 = self.value; - var $7358 = Parser$Reply$error$(Parser$Error$combine$($7357, $7355)); - var $7356 = $7358; - break; - case 'Maybe.none': - var $7359 = Parser$Reply$error$($7355); - var $7356 = $7359; - break; - }; - var $7354 = $7356; - break; - case 'Parser.Reply.value': - var $7360 = self.pst; - var $7361 = self.val; - var self = $7360; - switch (self._) { - case 'Parser.State.new': - var $7363 = self.err; - var $7364 = self.nam; - var $7365 = self.ini; - var $7366 = self.idx; - var $7367 = self.str; - var $7368 = ((console.log(("FALTANDO " + $7367)), (_$31 => { - var $7369 = ((console.log(("VALUE " + $7364)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7353, $7363), $7364, $7365, $7366, $7367); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $7371 = self.err; - var _reply$39 = Kind$Parser$text$(")", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $7373 = self.err; - var self = $7371; - switch (self._) { - case 'Maybe.some': - var $7375 = self.value; - var $7376 = Parser$Reply$error$(Parser$Error$combine$($7375, $7373)); - var $7374 = $7376; - break; - case 'Maybe.none': - var $7377 = Parser$Reply$error$($7373); - var $7374 = $7377; - break; - }; - var $7372 = $7374; - break; - case 'Parser.Reply.value': - var $7378 = self.pst; - var self = $7378; - switch (self._) { - case 'Parser.State.new': - var $7380 = self.err; - var $7381 = self.nam; - var $7382 = self.ini; - var $7383 = self.idx; - var $7384 = self.str; - var $7385 = ((console.log(("FALTANDO " + $7384)), (_$47 => { - var $7386 = ((console.log(("VALUE " + $7381)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7371, $7380), $7381, $7382, $7383, $7384); - var _term$50 = Kind$Term$ref$("Equal.mirror"); - var _term$51 = Kind$Term$app$(_term$50, Kind$Term$hol$(Bits$e)); - var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); - var _term$53 = Kind$Term$app$(_term$52, Kind$Term$hol$(Bits$e)); - var _term$54 = Kind$Term$app$(_term$53, $7361); - var $7387 = Parser$Reply$value$(_reply$pst$49, _term$54); - return $7387; - })())); - return $7386; - })())); - var $7379 = $7385; - break; - }; - var $7372 = $7379; - break; - }; - var $7370 = $7372; - break; - }; - return $7370; - })())); - return $7369; - })())); - var $7362 = $7368; - break; - }; - var $7354 = $7362; - break; - }; - var $7352 = $7354; - break; - }; - return $7352; - })())); - return $7351; - })())); - var $7344 = $7350; - break; - }; - var $7337 = $7344; - break; - }; - var $7335 = $7337; - break; - }; - return $7335; - })); - - function Kind$Parser$comprehension$and_all$(_a$1) { - var self = _a$1; - switch (self._) { - case 'List.cons': - var $7389 = self.head; - var $7390 = self.tail; - var _and$4 = Kind$Term$ref$("Bool.and"); - var _and$5 = Kind$Term$app$(_and$4, $7389); - var _and$6 = Kind$Term$app$(_and$5, Kind$Parser$comprehension$and_all$($7390)); - var $7391 = _and$6; - var $7388 = $7391; - break; - case 'List.nil': - var $7392 = Kind$Term$ref$("Bool.true"); - var $7388 = $7392; - break; - }; - return $7388; - }; - const Kind$Parser$comprehension$and_all = x0 => Kind$Parser$comprehension$and_all$(x0); - - function Kind$Parser$comprehension$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7394 = self.err; - var _reply$7 = Kind$Parser$text$("[", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7396 = self.err; - var self = $7394; - switch (self._) { - case 'Maybe.some': - var $7398 = self.value; - var $7399 = Parser$Reply$error$(Parser$Error$combine$($7398, $7396)); - var $7397 = $7399; - break; - case 'Maybe.none': - var $7400 = Parser$Reply$error$($7396); - var $7397 = $7400; - break; - }; - var $7395 = $7397; - break; - case 'Parser.Reply.value': - var $7401 = self.pst; - var self = $7401; - switch (self._) { - case 'Parser.State.new': - var $7403 = self.err; - var $7404 = self.nam; - var $7405 = self.ini; - var $7406 = self.idx; - var $7407 = self.str; - var $7408 = ((console.log(("FALTANDO " + $7407)), (_$15 => { - var $7409 = ((console.log(("VALUE " + $7404)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7394, $7403), $7404, $7405, $7406, $7407); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $7411 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $7413 = self.err; - var self = $7411; - switch (self._) { - case 'Maybe.some': - var $7415 = self.value; - var $7416 = Parser$Reply$error$(Parser$Error$combine$($7415, $7413)); - var $7414 = $7416; - break; - case 'Maybe.none': - var $7417 = Parser$Reply$error$($7413); - var $7414 = $7417; - break; - }; - var $7412 = $7414; - break; - case 'Parser.Reply.value': - var $7418 = self.pst; - var $7419 = self.val; - var self = $7418; - switch (self._) { - case 'Parser.State.new': - var $7421 = self.err; - var $7422 = self.nam; - var $7423 = self.ini; - var $7424 = self.idx; - var $7425 = self.str; - var $7426 = ((console.log(("FALTANDO " + $7425)), (_$31 => { - var $7427 = ((console.log(("VALUE " + $7422)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($7411, $7421), $7422, $7423, $7424, $7425); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $7429 = self.err; - var _reply$39 = Kind$Parser$text$("for", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $7431 = self.err; - var self = $7429; - switch (self._) { - case 'Maybe.some': - var $7433 = self.value; - var $7434 = Parser$Reply$error$(Parser$Error$combine$($7433, $7431)); - var $7432 = $7434; - break; - case 'Maybe.none': - var $7435 = Parser$Reply$error$($7431); - var $7432 = $7435; - break; - }; - var $7430 = $7432; - break; - case 'Parser.Reply.value': - var $7436 = self.pst; - var self = $7436; - switch (self._) { - case 'Parser.State.new': - var $7438 = self.err; - var $7439 = self.nam; - var $7440 = self.ini; - var $7441 = self.idx; - var $7442 = self.str; - var $7443 = ((console.log(("FALTANDO " + $7442)), (_$47 => { - var $7444 = ((console.log(("VALUE " + $7439)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($7429, $7438), $7439, $7440, $7441, $7442); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $7446 = self.err; - var _reply$55 = Kind$Parser$name1$(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $7448 = self.err; - var self = $7446; - switch (self._) { - case 'Maybe.some': - var $7450 = self.value; - var $7451 = Parser$Reply$error$(Parser$Error$combine$($7450, $7448)); - var $7449 = $7451; - break; - case 'Maybe.none': - var $7452 = Parser$Reply$error$($7448); - var $7449 = $7452; - break; - }; - var $7447 = $7449; - break; - case 'Parser.Reply.value': - var $7453 = self.pst; - var $7454 = self.val; - var self = $7453; - switch (self._) { - case 'Parser.State.new': - var $7456 = self.err; - var $7457 = self.nam; - var $7458 = self.ini; - var $7459 = self.idx; - var $7460 = self.str; - var $7461 = ((console.log(("FALTANDO " + $7460)), (_$63 => { - var $7462 = ((console.log(("VALUE " + $7457)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($7446, $7456), $7457, $7458, $7459, $7460); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $7464 = self.err; - var _reply$71 = Kind$Parser$text$("in", _reply$pst$65); - var self = _reply$71; - switch (self._) { - case 'Parser.Reply.error': - var $7466 = self.err; - var self = $7464; - switch (self._) { - case 'Maybe.some': - var $7468 = self.value; - var $7469 = Parser$Reply$error$(Parser$Error$combine$($7468, $7466)); - var $7467 = $7469; - break; - case 'Maybe.none': - var $7470 = Parser$Reply$error$($7466); - var $7467 = $7470; - break; - }; - var $7465 = $7467; - break; - case 'Parser.Reply.value': - var $7471 = self.pst; - var self = $7471; - switch (self._) { - case 'Parser.State.new': - var $7473 = self.err; - var $7474 = self.nam; - var $7475 = self.ini; - var $7476 = self.idx; - var $7477 = self.str; - var $7478 = ((console.log(("FALTANDO " + $7477)), (_$79 => { - var $7479 = ((console.log(("VALUE " + $7474)), (_$80 => { - var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($7464, $7473), $7474, $7475, $7476, $7477); - var self = _reply$pst$81; - switch (self._) { - case 'Parser.State.new': - var $7481 = self.err; - var _reply$87 = Kind$Parser$term(_reply$pst$81); - var self = _reply$87; - switch (self._) { - case 'Parser.Reply.error': - var $7483 = self.err; - var self = $7481; - switch (self._) { - case 'Maybe.some': - var $7485 = self.value; - var $7486 = Parser$Reply$error$(Parser$Error$combine$($7485, $7483)); - var $7484 = $7486; - break; - case 'Maybe.none': - var $7487 = Parser$Reply$error$($7483); - var $7484 = $7487; - break; - }; - var $7482 = $7484; - break; - case 'Parser.Reply.value': - var $7488 = self.pst; - var $7489 = self.val; - var self = $7488; - switch (self._) { - case 'Parser.State.new': - var $7491 = self.err; - var $7492 = self.nam; - var $7493 = self.ini; - var $7494 = self.idx; - var $7495 = self.str; - var $7496 = ((console.log(("FALTANDO " + $7495)), (_$95 => { - var $7497 = ((console.log(("VALUE " + $7492)), (_$96 => { - var _reply$pst$97 = Parser$State$new$(Parser$Error$maybe_combine$($7481, $7491), $7492, $7493, $7494, $7495); - var self = _reply$pst$97; - switch (self._) { - case 'Parser.State.new': - var $7499 = self.err; - var _reply$103 = Parser$maybe$(Kind$Parser$text("where"), _reply$pst$97); - var self = _reply$103; - switch (self._) { - case 'Parser.Reply.error': - var $7501 = self.err; - var self = $7499; - switch (self._) { - case 'Maybe.some': - var $7503 = self.value; - var $7504 = Parser$Reply$error$(Parser$Error$combine$($7503, $7501)); - var $7502 = $7504; - break; - case 'Maybe.none': - var $7505 = Parser$Reply$error$($7501); - var $7502 = $7505; - break; - }; - var $7500 = $7502; - break; - case 'Parser.Reply.value': - var $7506 = self.pst; - var self = $7506; - switch (self._) { - case 'Parser.State.new': - var $7508 = self.err; - var $7509 = self.nam; - var $7510 = self.ini; - var $7511 = self.idx; - var $7512 = self.str; - var $7513 = ((console.log(("FALTANDO " + $7512)), (_$111 => { - var $7514 = ((console.log(("VALUE " + $7509)), (_$112 => { - var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($7499, $7508), $7509, $7510, $7511, $7512); - var self = _reply$pst$113; - switch (self._) { - case 'Parser.State.new': - var $7516 = self.err; - var _reply$119 = Parser$until$(Kind$Parser$text("]"), (_pst$119 => { - var self = _pst$119; - switch (self._) { - case 'Parser.State.new': - var $7519 = self.err; - var _reply$125 = Kind$Parser$spaces(_pst$119); - var self = _reply$125; - switch (self._) { - case 'Parser.Reply.error': - var $7521 = self.err; - var self = $7519; - switch (self._) { - case 'Maybe.some': - var $7523 = self.value; - var $7524 = Parser$Reply$error$(Parser$Error$combine$($7523, $7521)); - var $7522 = $7524; - break; - case 'Maybe.none': - var $7525 = Parser$Reply$error$($7521); - var $7522 = $7525; - break; - }; - var $7520 = $7522; - break; - case 'Parser.Reply.value': - var $7526 = self.pst; - var self = $7526; - switch (self._) { - case 'Parser.State.new': - var $7528 = self.err; - var $7529 = self.nam; - var $7530 = self.ini; - var $7531 = self.idx; - var $7532 = self.str; - var $7533 = ((console.log(("FALTANDO " + $7532)), (_$133 => { - var $7534 = ((console.log(("VALUE " + $7529)), (_$134 => { - var _reply$pst$135 = Parser$State$new$(Parser$Error$maybe_combine$($7519, $7528), $7529, $7530, $7531, $7532); - var self = _reply$pst$135; - switch (self._) { - case 'Parser.State.new': - var $7536 = self.err; - var _reply$141 = Kind$Parser$term(_reply$pst$135); - var self = _reply$141; - switch (self._) { - case 'Parser.Reply.error': - var $7538 = self.err; - var self = $7536; - switch (self._) { - case 'Maybe.some': - var $7540 = self.value; - var $7541 = Parser$Reply$error$(Parser$Error$combine$($7540, $7538)); - var $7539 = $7541; - break; - case 'Maybe.none': - var $7542 = Parser$Reply$error$($7538); - var $7539 = $7542; - break; - }; - var $7537 = $7539; - break; - case 'Parser.Reply.value': - var $7543 = self.pst; - var $7544 = self.val; - var self = $7543; - switch (self._) { - case 'Parser.State.new': - var $7546 = self.err; - var $7547 = self.nam; - var $7548 = self.ini; - var $7549 = self.idx; - var $7550 = self.str; - var $7551 = ((console.log(("FALTANDO " + $7550)), (_$149 => { - var $7552 = ((console.log(("VALUE " + $7547)), (_$150 => { - var _reply$pst$151 = Parser$State$new$(Parser$Error$maybe_combine$($7536, $7546), $7547, $7548, $7549, $7550); - var self = _reply$pst$151; - switch (self._) { - case 'Parser.State.new': - var $7554 = self.err; - var _reply$157 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$151); - var self = _reply$157; - switch (self._) { - case 'Parser.Reply.error': - var $7556 = self.err; - var self = $7554; - switch (self._) { - case 'Maybe.some': - var $7558 = self.value; - var $7559 = Parser$Reply$error$(Parser$Error$combine$($7558, $7556)); - var $7557 = $7559; - break; - case 'Maybe.none': - var $7560 = Parser$Reply$error$($7556); - var $7557 = $7560; - break; - }; - var $7555 = $7557; - break; - case 'Parser.Reply.value': - var $7561 = self.pst; - var self = $7561; - switch (self._) { - case 'Parser.State.new': - var $7563 = self.err; - var $7564 = self.nam; - var $7565 = self.ini; - var $7566 = self.idx; - var $7567 = self.str; - var $7568 = ((console.log(("FALTANDO " + $7567)), (_$165 => { - var $7569 = ((console.log(("VALUE " + $7564)), (_$166 => { - var _reply$pst$167 = Parser$State$new$(Parser$Error$maybe_combine$($7554, $7563), $7564, $7565, $7566, $7567); - var $7570 = Parser$Reply$value$(_reply$pst$167, $7544); - return $7570; - })())); - return $7569; - })())); - var $7562 = $7568; - break; - }; - var $7555 = $7562; - break; - }; - var $7553 = $7555; - break; - }; - return $7553; - })())); - return $7552; - })())); - var $7545 = $7551; - break; - }; - var $7537 = $7545; - break; - }; - var $7535 = $7537; - break; - }; - return $7535; - })())); - return $7534; - })())); - var $7527 = $7533; - break; - }; - var $7520 = $7527; - break; - }; - var $7518 = $7520; - break; - }; - return $7518; - }))(_reply$pst$113); - var self = _reply$119; - switch (self._) { - case 'Parser.Reply.error': - var $7571 = self.err; - var self = $7516; - switch (self._) { - case 'Maybe.some': - var $7573 = self.value; - var $7574 = Parser$Reply$error$(Parser$Error$combine$($7573, $7571)); - var $7572 = $7574; - break; - case 'Maybe.none': - var $7575 = Parser$Reply$error$($7571); - var $7572 = $7575; - break; - }; - var $7517 = $7572; - break; - case 'Parser.Reply.value': - var $7576 = self.pst; - var $7577 = self.val; - var self = $7576; - switch (self._) { - case 'Parser.State.new': - var $7579 = self.err; - var $7580 = self.nam; - var $7581 = self.ini; - var $7582 = self.idx; - var $7583 = self.str; - var $7584 = ((console.log(("FALTANDO " + $7583)), (_$127 => { - var $7585 = ((console.log(("VALUE " + $7580)), (_$128 => { - var _reply$pst$129 = Parser$State$new$(Parser$Error$maybe_combine$($7516, $7579), $7580, $7581, $7582, $7583); - var _and$130 = Kind$Parser$comprehension$and_all$($7577); - var _filter_fun$131 = Kind$Term$ref$("List.filter"); - var _filter_fun$132 = Kind$Term$app$(_filter_fun$131, Kind$Term$hol$(Bits$e)); - var _lamb_filter$133 = Kind$Term$lam$($7454, (_i$133 => { - var $7587 = _and$130; - return $7587; - })); - var _filter_fun$134 = Kind$Term$app$(_filter_fun$132, _lamb_filter$133); - var _filter_fun$135 = Kind$Term$app$(_filter_fun$134, $7489); - var _term$136 = Kind$Term$ref$("List.map"); - var _term$137 = Kind$Term$app$(_term$136, Kind$Term$hol$(Bits$e)); - var _term$138 = Kind$Term$app$(_term$137, Kind$Term$hol$(Bits$e)); - var _lamb$139 = Kind$Term$lam$($7454, (_i$139 => { - var $7588 = $7419; - return $7588; - })); - var _term$140 = Kind$Term$app$(_term$138, _lamb$139); - var _term$141 = Kind$Term$app$(_term$140, _filter_fun$135); - var $7586 = Parser$Reply$value$(_reply$pst$129, _term$141); - return $7586; - })())); - return $7585; - })())); - var $7578 = $7584; - break; - }; - var $7517 = $7578; - break; - }; - var $7515 = $7517; - break; - }; - return $7515; - })())); - return $7514; - })())); - var $7507 = $7513; - break; - }; - var $7500 = $7507; - break; - }; - var $7498 = $7500; - break; - }; - return $7498; - })())); - return $7497; - })())); - var $7490 = $7496; - break; - }; - var $7482 = $7490; - break; - }; - var $7480 = $7482; - break; - }; - return $7480; - })())); - return $7479; - })())); - var $7472 = $7478; - break; - }; - var $7465 = $7472; - break; - }; - var $7463 = $7465; - break; - }; - return $7463; - })())); - return $7462; - })())); - var $7455 = $7461; - break; - }; - var $7447 = $7455; - break; - }; - var $7445 = $7447; - break; - }; - return $7445; - })())); - return $7444; - })())); - var $7437 = $7443; - break; - }; - var $7430 = $7437; - break; - }; - var $7428 = $7430; - break; - }; - return $7428; - })())); - return $7427; - })())); - var $7420 = $7426; - break; - }; - var $7412 = $7420; - break; - }; - var $7410 = $7412; - break; - }; - return $7410; - })())); - return $7409; - })())); - var $7402 = $7408; - break; - }; - var $7395 = $7402; - break; - }; - var $7393 = $7395; - break; - }; - return $7393; - }; - const Kind$Parser$comprehension = x0 => Kind$Parser$comprehension$(x0); - - function Kind$Parser$comprehension_range$go$(_typename$1) { - var $7589 = Kind$Parser$block("comprehension_range")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $7591 = self.err; - var _reply$8 = Kind$Parser$text$("[", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $7593 = self.err; - var self = $7591; - switch (self._) { - case 'Maybe.some': - var $7595 = self.value; - var $7596 = Parser$Reply$error$(Parser$Error$combine$($7595, $7593)); - var $7594 = $7596; - break; - case 'Maybe.none': - var $7597 = Parser$Reply$error$($7593); - var $7594 = $7597; - break; - }; - var $7592 = $7594; - break; - case 'Parser.Reply.value': - var $7598 = self.pst; - var self = $7598; - switch (self._) { - case 'Parser.State.new': - var $7600 = self.err; - var $7601 = self.nam; - var $7602 = self.ini; - var $7603 = self.idx; - var $7604 = self.str; - var $7605 = ((console.log(("FALTANDO " + $7604)), (_$16 => { - var $7606 = ((console.log(("VALUE " + $7601)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($7591, $7600), $7601, $7602, $7603, $7604); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $7608 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $7610 = self.err; - var self = $7608; - switch (self._) { - case 'Maybe.some': - var $7612 = self.value; - var $7613 = Parser$Reply$error$(Parser$Error$combine$($7612, $7610)); - var $7611 = $7613; - break; - case 'Maybe.none': - var $7614 = Parser$Reply$error$($7610); - var $7611 = $7614; - break; - }; - var $7609 = $7611; - break; - case 'Parser.Reply.value': - var $7615 = self.pst; - var $7616 = self.val; - var self = $7615; - switch (self._) { - case 'Parser.State.new': - var $7618 = self.err; - var $7619 = self.nam; - var $7620 = self.ini; - var $7621 = self.idx; - var $7622 = self.str; - var $7623 = ((console.log(("FALTANDO " + $7622)), (_$32 => { - var $7624 = ((console.log(("VALUE " + $7619)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($7608, $7618), $7619, $7620, $7621, $7622); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $7626 = self.err; - var _reply$40 = Kind$Parser$text$("to", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $7628 = self.err; - var self = $7626; - switch (self._) { - case 'Maybe.some': - var $7630 = self.value; - var $7631 = Parser$Reply$error$(Parser$Error$combine$($7630, $7628)); - var $7629 = $7631; - break; - case 'Maybe.none': - var $7632 = Parser$Reply$error$($7628); - var $7629 = $7632; - break; - }; - var $7627 = $7629; - break; - case 'Parser.Reply.value': - var $7633 = self.pst; - var self = $7633; - switch (self._) { - case 'Parser.State.new': - var $7635 = self.err; - var $7636 = self.nam; - var $7637 = self.ini; - var $7638 = self.idx; - var $7639 = self.str; - var $7640 = ((console.log(("FALTANDO " + $7639)), (_$48 => { - var $7641 = ((console.log(("VALUE " + $7636)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($7626, $7635), $7636, $7637, $7638, $7639); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $7643 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $7645 = self.err; - var self = $7643; - switch (self._) { - case 'Maybe.some': - var $7647 = self.value; - var $7648 = Parser$Reply$error$(Parser$Error$combine$($7647, $7645)); - var $7646 = $7648; - break; - case 'Maybe.none': - var $7649 = Parser$Reply$error$($7645); - var $7646 = $7649; - break; - }; - var $7644 = $7646; - break; - case 'Parser.Reply.value': - var $7650 = self.pst; - var $7651 = self.val; - var self = $7650; - switch (self._) { - case 'Parser.State.new': - var $7653 = self.err; - var $7654 = self.nam; - var $7655 = self.ini; - var $7656 = self.idx; - var $7657 = self.str; - var $7658 = ((console.log(("FALTANDO " + $7657)), (_$64 => { - var $7659 = ((console.log(("VALUE " + $7654)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($7643, $7653), $7654, $7655, $7656, $7657); - var _list$67 = (_x$67 => { - var _term$68 = Kind$Term$ref$((_x$67 + ".range")); - var _term$69 = Kind$Term$app$(_term$68, $7616); - var _term$70 = Kind$Term$app$(_term$69, $7651); - var $7661 = _term$70; - return $7661; - }); - var self = _typename$1; - switch (self._) { - case 'Maybe.some': - var $7662 = self.value; - var $7663 = (_pst$69 => { - var self = _pst$69; - switch (self._) { - case 'Parser.State.new': - var $7665 = self.err; - var _reply$75 = Kind$Parser$text$(":", _pst$69); - var self = _reply$75; - switch (self._) { - case 'Parser.Reply.error': - var $7667 = self.err; - var self = $7665; - switch (self._) { - case 'Maybe.some': - var $7669 = self.value; - var $7670 = Parser$Reply$error$(Parser$Error$combine$($7669, $7667)); - var $7668 = $7670; - break; - case 'Maybe.none': - var $7671 = Parser$Reply$error$($7667); - var $7668 = $7671; - break; - }; - var $7666 = $7668; - break; - case 'Parser.Reply.value': - var $7672 = self.pst; - var self = $7672; - switch (self._) { - case 'Parser.State.new': - var $7674 = self.err; - var $7675 = self.nam; - var $7676 = self.ini; - var $7677 = self.idx; - var $7678 = self.str; - var $7679 = ((console.log(("FALTANDO " + $7678)), (_$83 => { - var $7680 = ((console.log(("VALUE " + $7675)), (_$84 => { - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($7665, $7674), $7675, $7676, $7677, $7678); - var self = _reply$pst$85; - switch (self._) { - case 'Parser.State.new': - var $7682 = self.err; - var _reply$91 = Kind$Parser$text$($7662, _reply$pst$85); - var self = _reply$91; - switch (self._) { - case 'Parser.Reply.error': - var $7684 = self.err; - var self = $7682; - switch (self._) { - case 'Maybe.some': - var $7686 = self.value; - var $7687 = Parser$Reply$error$(Parser$Error$combine$($7686, $7684)); - var $7685 = $7687; - break; - case 'Maybe.none': - var $7688 = Parser$Reply$error$($7684); - var $7685 = $7688; - break; - }; - var $7683 = $7685; - break; - case 'Parser.Reply.value': - var $7689 = self.pst; - var self = $7689; - switch (self._) { - case 'Parser.State.new': - var $7691 = self.err; - var $7692 = self.nam; - var $7693 = self.ini; - var $7694 = self.idx; - var $7695 = self.str; - var $7696 = ((console.log(("FALTANDO " + $7695)), (_$99 => { - var $7697 = ((console.log(("VALUE " + $7692)), (_$100 => { - var _reply$pst$101 = Parser$State$new$(Parser$Error$maybe_combine$($7682, $7691), $7692, $7693, $7694, $7695); - var self = _reply$pst$101; - switch (self._) { - case 'Parser.State.new': - var $7699 = self.err; - var _reply$107 = Kind$Parser$text$("]", _reply$pst$101); - var self = _reply$107; - switch (self._) { - case 'Parser.Reply.error': - var $7701 = self.err; - var self = $7699; - switch (self._) { - case 'Maybe.some': - var $7703 = self.value; - var $7704 = Parser$Reply$error$(Parser$Error$combine$($7703, $7701)); - var $7702 = $7704; - break; - case 'Maybe.none': - var $7705 = Parser$Reply$error$($7701); - var $7702 = $7705; - break; - }; - var $7700 = $7702; - break; - case 'Parser.Reply.value': - var $7706 = self.pst; - var self = $7706; - switch (self._) { - case 'Parser.State.new': - var $7708 = self.err; - var $7709 = self.nam; - var $7710 = self.ini; - var $7711 = self.idx; - var $7712 = self.str; - var $7713 = ((console.log(("FALTANDO " + $7712)), (_$115 => { - var $7714 = ((console.log(("VALUE " + $7709)), (_$116 => { - var _reply$pst$117 = Parser$State$new$(Parser$Error$maybe_combine$($7699, $7708), $7709, $7710, $7711, $7712); - var $7715 = Parser$Reply$value$(_reply$pst$117, _list$67($7662)); - return $7715; - })())); - return $7714; - })())); - var $7707 = $7713; - break; - }; - var $7700 = $7707; - break; - }; - var $7698 = $7700; - break; - }; - return $7698; - })())); - return $7697; - })())); - var $7690 = $7696; - break; - }; - var $7683 = $7690; - break; - }; - var $7681 = $7683; - break; - }; - return $7681; - })())); - return $7680; - })())); - var $7673 = $7679; - break; - }; - var $7666 = $7673; - break; - }; - var $7664 = $7666; - break; - }; - return $7664; - }); - var $7660 = $7663; - break; - case 'Maybe.none': - var $7716 = (_pst$68 => { - var self = _pst$68; - switch (self._) { - case 'Parser.State.new': - var $7718 = self.err; - var _reply$74 = Parser$maybe$((_pst$74 => { - var self = _pst$74; - switch (self._) { - case 'Parser.State.new': - var $7721 = self.err; - var _reply$80 = Kind$Parser$text$(":", _pst$74); - var self = _reply$80; - switch (self._) { - case 'Parser.Reply.error': - var $7723 = self.err; - var self = $7721; - switch (self._) { - case 'Maybe.some': - var $7725 = self.value; - var $7726 = Parser$Reply$error$(Parser$Error$combine$($7725, $7723)); - var $7724 = $7726; - break; - case 'Maybe.none': - var $7727 = Parser$Reply$error$($7723); - var $7724 = $7727; - break; - }; - var $7722 = $7724; - break; - case 'Parser.Reply.value': - var $7728 = self.pst; - var self = $7728; - switch (self._) { - case 'Parser.State.new': - var $7730 = self.err; - var $7731 = self.nam; - var $7732 = self.ini; - var $7733 = self.idx; - var $7734 = self.str; - var $7735 = ((console.log(("FALTANDO " + $7734)), (_$88 => { - var $7736 = ((console.log(("VALUE " + $7731)), (_$89 => { - var _reply$pst$90 = Parser$State$new$(Parser$Error$maybe_combine$($7721, $7730), $7731, $7732, $7733, $7734); - var $7737 = Kind$Parser$text$("Nat", _reply$pst$90); - return $7737; - })())); - return $7736; - })())); - var $7729 = $7735; - break; - }; - var $7722 = $7729; - break; - }; - var $7720 = $7722; - break; - }; - return $7720; - }), _pst$68); - var self = _reply$74; - switch (self._) { - case 'Parser.Reply.error': - var $7738 = self.err; - var self = $7718; - switch (self._) { - case 'Maybe.some': - var $7740 = self.value; - var $7741 = Parser$Reply$error$(Parser$Error$combine$($7740, $7738)); - var $7739 = $7741; - break; - case 'Maybe.none': - var $7742 = Parser$Reply$error$($7738); - var $7739 = $7742; - break; - }; - var $7719 = $7739; - break; - case 'Parser.Reply.value': - var $7743 = self.pst; - var self = $7743; - switch (self._) { - case 'Parser.State.new': - var $7745 = self.err; - var $7746 = self.nam; - var $7747 = self.ini; - var $7748 = self.idx; - var $7749 = self.str; - var $7750 = ((console.log(("FALTANDO " + $7749)), (_$82 => { - var $7751 = ((console.log(("VALUE " + $7746)), (_$83 => { - var _reply$pst$84 = Parser$State$new$(Parser$Error$maybe_combine$($7718, $7745), $7746, $7747, $7748, $7749); - var self = _reply$pst$84; - switch (self._) { - case 'Parser.State.new': - var $7753 = self.err; - var _reply$90 = Kind$Parser$text$("]", _reply$pst$84); - var self = _reply$90; - switch (self._) { - case 'Parser.Reply.error': - var $7755 = self.err; - var self = $7753; - switch (self._) { - case 'Maybe.some': - var $7757 = self.value; - var $7758 = Parser$Reply$error$(Parser$Error$combine$($7757, $7755)); - var $7756 = $7758; - break; - case 'Maybe.none': - var $7759 = Parser$Reply$error$($7755); - var $7756 = $7759; - break; - }; - var $7754 = $7756; - break; - case 'Parser.Reply.value': - var $7760 = self.pst; - var self = $7760; - switch (self._) { - case 'Parser.State.new': - var $7762 = self.err; - var $7763 = self.nam; - var $7764 = self.ini; - var $7765 = self.idx; - var $7766 = self.str; - var $7767 = ((console.log(("FALTANDO " + $7766)), (_$98 => { - var $7768 = ((console.log(("VALUE " + $7763)), (_$99 => { - var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($7753, $7762), $7763, $7764, $7765, $7766); - var $7769 = Parser$Reply$value$(_reply$pst$100, _list$67("Nat")); - return $7769; - })())); - return $7768; - })())); - var $7761 = $7767; - break; - }; - var $7754 = $7761; - break; - }; - var $7752 = $7754; - break; - }; - return $7752; - })())); - return $7751; - })())); - var $7744 = $7750; - break; - }; - var $7719 = $7744; - break; - }; - var $7717 = $7719; - break; - }; - return $7717; - }); - var $7660 = $7716; - break; - }; - var $7660 = $7660(_reply$pst$66); - return $7660; - })())); - return $7659; - })())); - var $7652 = $7658; - break; - }; - var $7644 = $7652; - break; - }; - var $7642 = $7644; - break; - }; - return $7642; - })())); - return $7641; - })())); - var $7634 = $7640; - break; - }; - var $7627 = $7634; - break; - }; - var $7625 = $7627; - break; - }; - return $7625; - })())); - return $7624; - })())); - var $7617 = $7623; - break; - }; - var $7609 = $7617; - break; - }; - var $7607 = $7609; - break; - }; - return $7607; - })())); - return $7606; - })())); - var $7599 = $7605; - break; - }; - var $7592 = $7599; - break; - }; - var $7590 = $7592; - break; - }; - return $7590; - })); - return $7589; - }; - const Kind$Parser$comprehension_range$go = x0 => Kind$Parser$comprehension_range$go$(x0); - const Kind$Parser$comprehension_range = Parser$choice(List$cons$(Kind$Parser$comprehension_range$go$(Maybe$none), List$cons$(Kind$Parser$comprehension_range$go$(Maybe$some$("I32")), List$cons$(Kind$Parser$comprehension_range$go$(Maybe$some$("U32")), List$nil)))); - - function Kind$Name$read$(_str$1) { - var $7770 = _str$1; - return $7770; - }; - const Kind$Name$read = x0 => Kind$Name$read$(x0); - const Kind$Parser$list = Kind$Parser$block("list")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7772 = self.err; - var _reply$7 = Kind$Parser$items$("[", Kind$Parser$term, "]")(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7774 = self.err; - var self = $7772; - switch (self._) { - case 'Maybe.some': - var $7776 = self.value; - var $7777 = Parser$Reply$error$(Parser$Error$combine$($7776, $7774)); - var $7775 = $7777; - break; - case 'Maybe.none': - var $7778 = Parser$Reply$error$($7774); - var $7775 = $7778; - break; - }; - var $7773 = $7775; - break; - case 'Parser.Reply.value': - var $7779 = self.pst; - var $7780 = self.val; - var self = $7779; - switch (self._) { - case 'Parser.State.new': - var $7782 = self.err; - var $7783 = self.nam; - var $7784 = self.ini; - var $7785 = self.idx; - var $7786 = self.str; - var $7787 = ((console.log(("FALTANDO " + $7786)), (_$15 => { - var $7788 = ((console.log(("VALUE " + $7783)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7772, $7782), $7783, $7784, $7785, $7786); - var $7789 = Parser$Reply$value$(_reply$pst$17, List$fold$($7780, Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("List.nil")), Kind$Term$hol$(Bits$e)), (_x$18 => _xs$19 => { - var _term$20 = Kind$Term$ref$(Kind$Name$read$("List.cons")); - var _term$21 = Kind$Term$app$(_term$20, Kind$Term$hol$(Bits$e)); - var _term$22 = Kind$Term$app$(_term$21, _x$18); - var _term$23 = Kind$Term$app$(_term$22, _xs$19); - var $7790 = _term$23; - return $7790; - }))); - return $7789; - })())); - return $7788; - })())); - var $7781 = $7787; - break; - }; - var $7773 = $7781; - break; - }; - var $7771 = $7773; - break; - }; - return $7771; - })); - const Kind$Parser$map = Kind$Parser$block("map")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $7792 = self.err; - var _reply$7 = Kind$Parser$items$("{", (_pst$7 => { - var self = _pst$7; - switch (self._) { - case 'Parser.State.new': - var $7795 = self.err; - var _reply$13 = Kind$Parser$term(_pst$7); - var self = _reply$13; - switch (self._) { - case 'Parser.Reply.error': - var $7797 = self.err; - var self = $7795; - switch (self._) { - case 'Maybe.some': - var $7799 = self.value; - var $7800 = Parser$Reply$error$(Parser$Error$combine$($7799, $7797)); - var $7798 = $7800; - break; - case 'Maybe.none': - var $7801 = Parser$Reply$error$($7797); - var $7798 = $7801; - break; - }; - var $7796 = $7798; - break; - case 'Parser.Reply.value': - var $7802 = self.pst; - var $7803 = self.val; - var self = $7802; - switch (self._) { - case 'Parser.State.new': - var $7805 = self.err; - var $7806 = self.nam; - var $7807 = self.ini; - var $7808 = self.idx; - var $7809 = self.str; - var $7810 = ((console.log(("FALTANDO " + $7809)), (_$21 => { - var $7811 = ((console.log(("VALUE " + $7806)), (_$22 => { - var _reply$pst$23 = Parser$State$new$(Parser$Error$maybe_combine$($7795, $7805), $7806, $7807, $7808, $7809); - var self = _reply$pst$23; - switch (self._) { - case 'Parser.State.new': - var $7813 = self.err; - var _reply$29 = Kind$Parser$text$(":", _reply$pst$23); - var self = _reply$29; - switch (self._) { - case 'Parser.Reply.error': - var $7815 = self.err; - var self = $7813; - switch (self._) { - case 'Maybe.some': - var $7817 = self.value; - var $7818 = Parser$Reply$error$(Parser$Error$combine$($7817, $7815)); - var $7816 = $7818; - break; - case 'Maybe.none': - var $7819 = Parser$Reply$error$($7815); - var $7816 = $7819; - break; - }; - var $7814 = $7816; - break; - case 'Parser.Reply.value': - var $7820 = self.pst; - var self = $7820; - switch (self._) { - case 'Parser.State.new': - var $7822 = self.err; - var $7823 = self.nam; - var $7824 = self.ini; - var $7825 = self.idx; - var $7826 = self.str; - var $7827 = ((console.log(("FALTANDO " + $7826)), (_$37 => { - var $7828 = ((console.log(("VALUE " + $7823)), (_$38 => { - var _reply$pst$39 = Parser$State$new$(Parser$Error$maybe_combine$($7813, $7822), $7823, $7824, $7825, $7826); - var self = _reply$pst$39; - switch (self._) { - case 'Parser.State.new': - var $7830 = self.err; - var _reply$45 = Kind$Parser$term(_reply$pst$39); - var self = _reply$45; - switch (self._) { - case 'Parser.Reply.error': - var $7832 = self.err; - var self = $7830; - switch (self._) { - case 'Maybe.some': - var $7834 = self.value; - var $7835 = Parser$Reply$error$(Parser$Error$combine$($7834, $7832)); - var $7833 = $7835; - break; - case 'Maybe.none': - var $7836 = Parser$Reply$error$($7832); - var $7833 = $7836; - break; - }; - var $7831 = $7833; - break; - case 'Parser.Reply.value': - var $7837 = self.pst; - var $7838 = self.val; - var self = $7837; - switch (self._) { - case 'Parser.State.new': - var $7840 = self.err; - var $7841 = self.nam; - var $7842 = self.ini; - var $7843 = self.idx; - var $7844 = self.str; - var $7845 = ((console.log(("FALTANDO " + $7844)), (_$53 => { - var $7846 = ((console.log(("VALUE " + $7841)), (_$54 => { - var _reply$pst$55 = Parser$State$new$(Parser$Error$maybe_combine$($7830, $7840), $7841, $7842, $7843, $7844); - var $7847 = Parser$Reply$value$(_reply$pst$55, Pair$new$($7803, $7838)); - return $7847; - })())); - return $7846; - })())); - var $7839 = $7845; - break; - }; - var $7831 = $7839; - break; - }; - var $7829 = $7831; - break; - }; - return $7829; - })())); - return $7828; - })())); - var $7821 = $7827; - break; - }; - var $7814 = $7821; - break; - }; - var $7812 = $7814; - break; - }; - return $7812; - })())); - return $7811; - })())); - var $7804 = $7810; - break; - }; - var $7796 = $7804; - break; - }; - var $7794 = $7796; - break; - }; - return $7794; - }), "}")(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $7848 = self.err; - var self = $7792; - switch (self._) { - case 'Maybe.some': - var $7850 = self.value; - var $7851 = Parser$Reply$error$(Parser$Error$combine$($7850, $7848)); - var $7849 = $7851; - break; - case 'Maybe.none': - var $7852 = Parser$Reply$error$($7848); - var $7849 = $7852; - break; - }; - var $7793 = $7849; - break; - case 'Parser.Reply.value': - var $7853 = self.pst; - var $7854 = self.val; - var self = $7853; - switch (self._) { - case 'Parser.State.new': - var $7856 = self.err; - var $7857 = self.nam; - var $7858 = self.ini; - var $7859 = self.idx; - var $7860 = self.str; - var $7861 = ((console.log(("FALTANDO " + $7860)), (_$15 => { - var $7862 = ((console.log(("VALUE " + $7857)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($7792, $7856), $7857, $7858, $7859, $7860); - var _list$18 = List$fold$($7854, Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)), (_kv$18 => _xs$19 => { - var self = _kv$18; - switch (self._) { - case 'Pair.new': - var $7865 = self.fst; - var $7866 = self.snd; - var _pair$22 = Kind$Term$ref$("Pair.new"); - var _pair$23 = Kind$Term$app$(_pair$22, Kind$Term$hol$(Bits$e)); - var _pair$24 = Kind$Term$app$(_pair$23, Kind$Term$hol$(Bits$e)); - var _pair$25 = Kind$Term$app$(_pair$24, $7865); - var _pair$26 = Kind$Term$app$(_pair$25, $7866); - var _term$27 = Kind$Term$ref$("List.cons"); - var _term$28 = Kind$Term$app$(_term$27, Kind$Term$hol$(Bits$e)); - var _term$29 = Kind$Term$app$(_term$28, _pair$26); - var _term$30 = Kind$Term$app$(_term$29, _xs$19); - var $7867 = _term$30; - var $7864 = $7867; - break; - }; - return $7864; - })); - var _term$19 = Kind$Term$ref$("Map.from_list"); - var _term$20 = Kind$Term$app$(_term$19, Kind$Term$hol$(Bits$e)); - var _term$21 = Kind$Term$app$(_term$20, _list$18); - var $7863 = Parser$Reply$value$(_reply$pst$17, _term$21); - return $7863; - })())); - return $7862; - })())); - var $7855 = $7861; - break; - }; - var $7793 = $7855; - break; - }; - var $7791 = $7793; - break; - }; - return $7791; - })); - - function Kind$Parser$log$(_body$1) { - var $7868 = Kind$Parser$block("log")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $7870 = self.err; - var _reply$8 = Kind$Parser$text$("log(", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $7872 = self.err; - var self = $7870; - switch (self._) { - case 'Maybe.some': - var $7874 = self.value; - var $7875 = Parser$Reply$error$(Parser$Error$combine$($7874, $7872)); - var $7873 = $7875; - break; - case 'Maybe.none': - var $7876 = Parser$Reply$error$($7872); - var $7873 = $7876; - break; - }; - var $7871 = $7873; - break; - case 'Parser.Reply.value': - var $7877 = self.pst; - var self = $7877; - switch (self._) { - case 'Parser.State.new': - var $7879 = self.err; - var $7880 = self.nam; - var $7881 = self.ini; - var $7882 = self.idx; - var $7883 = self.str; - var $7884 = ((console.log(("FALTANDO " + $7883)), (_$16 => { - var $7885 = ((console.log(("VALUE " + $7880)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($7870, $7879), $7880, $7881, $7882, $7883); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $7887 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $7889 = self.err; - var self = $7887; - switch (self._) { - case 'Maybe.some': - var $7891 = self.value; - var $7892 = Parser$Reply$error$(Parser$Error$combine$($7891, $7889)); - var $7890 = $7892; - break; - case 'Maybe.none': - var $7893 = Parser$Reply$error$($7889); - var $7890 = $7893; - break; - }; - var $7888 = $7890; - break; - case 'Parser.Reply.value': - var $7894 = self.pst; - var $7895 = self.val; - var self = $7894; - switch (self._) { - case 'Parser.State.new': - var $7897 = self.err; - var $7898 = self.nam; - var $7899 = self.ini; - var $7900 = self.idx; - var $7901 = self.str; - var $7902 = ((console.log(("FALTANDO " + $7901)), (_$32 => { - var $7903 = ((console.log(("VALUE " + $7898)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($7887, $7897), $7898, $7899, $7900, $7901); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $7905 = self.err; - var _reply$40 = Kind$Parser$text$(")", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $7907 = self.err; - var self = $7905; - switch (self._) { - case 'Maybe.some': - var $7909 = self.value; - var $7910 = Parser$Reply$error$(Parser$Error$combine$($7909, $7907)); - var $7908 = $7910; - break; - case 'Maybe.none': - var $7911 = Parser$Reply$error$($7907); - var $7908 = $7911; - break; - }; - var $7906 = $7908; - break; - case 'Parser.Reply.value': - var $7912 = self.pst; - var self = $7912; - switch (self._) { - case 'Parser.State.new': - var $7914 = self.err; - var $7915 = self.nam; - var $7916 = self.ini; - var $7917 = self.idx; - var $7918 = self.str; - var $7919 = ((console.log(("FALTANDO " + $7918)), (_$48 => { - var $7920 = ((console.log(("VALUE " + $7915)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($7905, $7914), $7915, $7916, $7917, $7918); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $7922 = self.err; - var _reply$56 = _body$1(Unit$new)(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $7924 = self.err; - var self = $7922; - switch (self._) { - case 'Maybe.some': - var $7926 = self.value; - var $7927 = Parser$Reply$error$(Parser$Error$combine$($7926, $7924)); - var $7925 = $7927; - break; - case 'Maybe.none': - var $7928 = Parser$Reply$error$($7924); - var $7925 = $7928; - break; - }; - var $7923 = $7925; - break; - case 'Parser.Reply.value': - var $7929 = self.pst; - var $7930 = self.val; - var self = $7929; - switch (self._) { - case 'Parser.State.new': - var $7932 = self.err; - var $7933 = self.nam; - var $7934 = self.ini; - var $7935 = self.idx; - var $7936 = self.str; - var $7937 = ((console.log(("FALTANDO " + $7936)), (_$64 => { - var $7938 = ((console.log(("VALUE " + $7933)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($7922, $7932), $7933, $7934, $7935, $7936); - var _term$67 = Kind$Term$ref$("Debug.log"); - var _term$68 = Kind$Term$app$(_term$67, Kind$Term$hol$(Bits$e)); - var _term$69 = Kind$Term$app$(_term$68, $7895); - var _term$70 = Kind$Term$app$(_term$69, Kind$Term$lam$("", (_x$70 => { - var $7940 = $7930; - return $7940; - }))); - var $7939 = Parser$Reply$value$(_reply$pst$66, _term$70); - return $7939; - })())); - return $7938; - })())); - var $7931 = $7937; - break; - }; - var $7923 = $7931; - break; - }; - var $7921 = $7923; - break; - }; - return $7921; - })())); - return $7920; - })())); - var $7913 = $7919; - break; - }; - var $7906 = $7913; - break; - }; - var $7904 = $7906; - break; - }; - return $7904; - })())); - return $7903; - })())); - var $7896 = $7902; - break; - }; - var $7888 = $7896; - break; - }; - var $7886 = $7888; - break; - }; - return $7886; - })())); - return $7885; - })())); - var $7878 = $7884; - break; - }; - var $7871 = $7878; - break; - }; - var $7869 = $7871; - break; - }; - return $7869; - })); - return $7868; - }; - const Kind$Parser$log = x0 => Kind$Parser$log$(x0); - - function String$map$(_f$1, _as$2) { - var self = _as$2; - if (self.length === 0) { - var $7942 = String$nil; - var $7941 = $7942; - } else { - var $7943 = self.charCodeAt(0); - var $7944 = self.slice(1); - var $7945 = String$cons$(_f$1($7943), String$map$(_f$1, $7944)); - var $7941 = $7945; - }; - return $7941; - }; - const String$map = x0 => x1 => String$map$(x0, x1); - - function Char$to_upper$(_char$1) { - var self = ((_char$1 >= 97) && (_char$1 <= 122)); - if (self) { - var $7947 = ((_char$1 - 32) & 0xFFFF); - var $7946 = $7947; - } else { - var $7948 = _char$1; - var $7946 = $7948; - }; - return $7946; - }; - const Char$to_upper = x0 => Char$to_upper$(x0); - - function String$to_upper$(_str$1) { - var $7949 = String$map$(Char$to_upper, _str$1); - return $7949; - }; - const String$to_upper = x0 => String$to_upper$(x0); - - function String$is_upper$(_str$1) { - var $7950 = (String$to_upper$(_str$1) === _str$1); - return $7950; - }; - const String$is_upper = x0 => String$is_upper$(x0); - - function String$take$(_n$1, _xs$2) { - var self = _xs$2; - if (self.length === 0) { - var $7952 = String$nil; - var $7951 = $7952; - } else { - var $7953 = self.charCodeAt(0); - var $7954 = self.slice(1); - var self = _n$1; - if (self === 0n) { - var $7956 = String$nil; - var $7955 = $7956; - } else { - var $7957 = (self - 1n); - var $7958 = String$cons$($7953, String$take$($7957, $7954)); - var $7955 = $7958; - }; - var $7951 = $7955; - }; - return $7951; - }; - const String$take = x0 => x1 => String$take$(x0, x1); - const Nat$sub = a0 => a1 => (a0 - a1 <= 0n ? 0n : a0 - a1); - - function String$slice$(_i$1, _j$2, _xs$3) { - var $7959 = String$take$((_j$2 - _i$1 <= 0n ? 0n : _j$2 - _i$1), String$drop$(_i$1, _xs$3)); - return $7959; - }; - const String$slice = x0 => x1 => x2 => String$slice$(x0, x1, x2); - - function Kind$Term$unroll_nat$(_natx$1) { - var self = _natx$1; - if (self === 0n) { - var $7961 = Kind$Term$ref$(Kind$Name$read$("Nat.zero")); - var $7960 = $7961; - } else { - var $7962 = (self - 1n); - var _func$3 = Kind$Term$ref$(Kind$Name$read$("Nat.succ")); - var _argm$4 = Kind$Term$nat$($7962); - var $7963 = Kind$Term$app$(_func$3, _argm$4); - var $7960 = $7963; - }; - return $7960; - }; - const Kind$Term$unroll_nat = x0 => Kind$Term$unroll_nat$(x0); - const U16$to_bits = a0 => (u16_to_bits(a0)); - - function Kind$Term$unroll_chr$bits$(_bits$1) { - var self = _bits$1; - switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { - case 'o': - var $7965 = self.slice(0, -1); - var $7966 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.o")), Kind$Term$unroll_chr$bits$($7965)); - var $7964 = $7966; - break; - case 'i': - var $7967 = self.slice(0, -1); - var $7968 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("Bits.i")), Kind$Term$unroll_chr$bits$($7967)); - var $7964 = $7968; - break; - case 'e': - var $7969 = Kind$Term$ref$(Kind$Name$read$("Bits.e")); - var $7964 = $7969; - break; - }; - return $7964; - }; - const Kind$Term$unroll_chr$bits = x0 => Kind$Term$unroll_chr$bits$(x0); - - function Kind$Term$unroll_chr$(_chrx$1) { - var _bits$2 = (u16_to_bits(_chrx$1)); - var _term$3 = Kind$Term$ref$(Kind$Name$read$("Word.from_bits")); - var _term$4 = Kind$Term$app$(_term$3, Kind$Term$nat$(16n)); - var _term$5 = Kind$Term$app$(_term$4, Kind$Term$unroll_chr$bits$(_bits$2)); - var _term$6 = Kind$Term$app$(Kind$Term$ref$(Kind$Name$read$("U16.new")), _term$5); - var $7970 = _term$6; - return $7970; - }; - const Kind$Term$unroll_chr = x0 => Kind$Term$unroll_chr$(x0); - - function Kind$Term$unroll_str$(_strx$1) { - var self = _strx$1; - if (self.length === 0) { - var $7972 = Kind$Term$ref$(Kind$Name$read$("String.nil")); - var $7971 = $7972; - } else { - var $7973 = self.charCodeAt(0); - var $7974 = self.slice(1); - var _char$4 = Kind$Term$chr$($7973); - var _term$5 = Kind$Term$ref$(Kind$Name$read$("String.cons")); - var _term$6 = Kind$Term$app$(_term$5, _char$4); - var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$($7974)); - var $7975 = _term$7; - var $7971 = $7975; - }; - return $7971; - }; - const Kind$Term$unroll_str = x0 => Kind$Term$unroll_str$(x0); - - function Kind$Term$reduce$(_term$1, _defs$2) { - var self = _term$1; - switch (self._) { - case 'Kind.Term.ref': - var $7977 = self.name; - var self = Kind$Map$get$($7977, _defs$2); - switch (self._) { - case 'Maybe.some': - var $7979 = self.value; - var self = $7979; - switch (self._) { - case 'Kind.Def.new': - var $7981 = self.term; - var $7982 = Kind$Term$reduce$($7981, _defs$2); - var $7980 = $7982; - break; - }; - var $7978 = $7980; - break; - case 'Maybe.none': - var $7983 = Kind$Term$ref$($7977); - var $7978 = $7983; - break; - }; - var $7976 = $7978; - break; - case 'Kind.Term.app': - var $7984 = self.func; - var $7985 = self.argm; - var _func$5 = Kind$Term$reduce$($7984, _defs$2); - var self = _func$5; - switch (self._) { - case 'Kind.Term.lam': - var $7987 = self.body; - var $7988 = Kind$Term$reduce$($7987($7985), _defs$2); - var $7986 = $7988; - break; - case 'Kind.Term.var': - case 'Kind.Term.ref': - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.app': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - case 'Kind.Term.ori': - var $7989 = _term$1; - var $7986 = $7989; - break; - }; - var $7976 = $7986; - break; - case 'Kind.Term.let': - var $7990 = self.expr; - var $7991 = self.body; - var $7992 = Kind$Term$reduce$($7991($7990), _defs$2); - var $7976 = $7992; - break; - case 'Kind.Term.def': - var $7993 = self.expr; - var $7994 = self.body; - var $7995 = Kind$Term$reduce$($7994($7993), _defs$2); - var $7976 = $7995; - break; - case 'Kind.Term.ann': - var $7996 = self.term; - var $7997 = Kind$Term$reduce$($7996, _defs$2); - var $7976 = $7997; - break; - case 'Kind.Term.nat': - var $7998 = self.natx; - var $7999 = Kind$Term$reduce$(Kind$Term$unroll_nat$($7998), _defs$2); - var $7976 = $7999; - break; - case 'Kind.Term.chr': - var $8000 = self.chrx; - var $8001 = Kind$Term$reduce$(Kind$Term$unroll_chr$($8000), _defs$2); - var $7976 = $8001; - break; - case 'Kind.Term.str': - var $8002 = self.strx; - var $8003 = Kind$Term$reduce$(Kind$Term$unroll_str$($8002), _defs$2); - var $7976 = $8003; - break; - case 'Kind.Term.ori': - var $8004 = self.expr; - var $8005 = Kind$Term$reduce$($8004, _defs$2); - var $7976 = $8005; - break; - case 'Kind.Term.var': - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - var $8006 = _term$1; - var $7976 = $8006; - break; - }; - return $7976; - }; - const Kind$Term$reduce = x0 => x1 => Kind$Term$reduce$(x0, x1); - - function Kind$Parser$open$(_body$1) { - var $8007 = Kind$Parser$block("open")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $8009 = self.err; - var _reply$8 = Kind$Parser$text$("open ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $8011 = self.err; - var self = $8009; - switch (self._) { - case 'Maybe.some': - var $8013 = self.value; - var $8014 = Parser$Reply$error$(Parser$Error$combine$($8013, $8011)); - var $8012 = $8014; - break; - case 'Maybe.none': - var $8015 = Parser$Reply$error$($8011); - var $8012 = $8015; - break; - }; - var $8010 = $8012; - break; - case 'Parser.Reply.value': - var $8016 = self.pst; - var self = $8016; - switch (self._) { - case 'Parser.State.new': - var $8018 = self.err; - var $8019 = self.nam; - var $8020 = self.ini; - var $8021 = self.idx; - var $8022 = self.str; - var $8023 = ((console.log(("FALTANDO " + $8022)), (_$16 => { - var $8024 = ((console.log(("VALUE " + $8019)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8009, $8018), $8019, $8020, $8021, $8022); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $8026 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $8028 = self.err; - var self = $8026; - switch (self._) { - case 'Maybe.some': - var $8030 = self.value; - var $8031 = Parser$Reply$error$(Parser$Error$combine$($8030, $8028)); - var $8029 = $8031; - break; - case 'Maybe.none': - var $8032 = Parser$Reply$error$($8028); - var $8029 = $8032; - break; - }; - var $8027 = $8029; - break; - case 'Parser.Reply.value': - var $8033 = self.pst; - var $8034 = self.val; - var self = $8033; - switch (self._) { - case 'Parser.State.new': - var $8036 = self.err; - var $8037 = self.nam; - var $8038 = self.ini; - var $8039 = self.idx; - var $8040 = self.str; - var $8041 = ((console.log(("FALTANDO " + $8040)), (_$32 => { - var $8042 = ((console.log(("VALUE " + $8037)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8026, $8036), $8037, $8038, $8039, $8040); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $8044 = self.err; - var _reply$40 = Parser$maybe$((_pst$40 => { - var self = _pst$40; - switch (self._) { - case 'Parser.State.new': - var $8047 = self.err; - var _reply$46 = Kind$Parser$text$("as", _pst$40); - var self = _reply$46; - switch (self._) { - case 'Parser.Reply.error': - var $8049 = self.err; - var self = $8047; - switch (self._) { - case 'Maybe.some': - var $8051 = self.value; - var $8052 = Parser$Reply$error$(Parser$Error$combine$($8051, $8049)); - var $8050 = $8052; - break; - case 'Maybe.none': - var $8053 = Parser$Reply$error$($8049); - var $8050 = $8053; - break; - }; - var $8048 = $8050; - break; - case 'Parser.Reply.value': - var $8054 = self.pst; - var self = $8054; - switch (self._) { - case 'Parser.State.new': - var $8056 = self.err; - var $8057 = self.nam; - var $8058 = self.ini; - var $8059 = self.idx; - var $8060 = self.str; - var $8061 = ((console.log(("FALTANDO " + $8060)), (_$54 => { - var $8062 = ((console.log(("VALUE " + $8057)), (_$55 => { - var _reply$pst$56 = Parser$State$new$(Parser$Error$maybe_combine$($8047, $8056), $8057, $8058, $8059, $8060); - var $8063 = Kind$Parser$name1$(_reply$pst$56); - return $8063; - })())); - return $8062; - })())); - var $8055 = $8061; - break; - }; - var $8048 = $8055; - break; - }; - var $8046 = $8048; - break; - }; - return $8046; - }), _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $8064 = self.err; - var self = $8044; - switch (self._) { - case 'Maybe.some': - var $8066 = self.value; - var $8067 = Parser$Reply$error$(Parser$Error$combine$($8066, $8064)); - var $8065 = $8067; - break; - case 'Maybe.none': - var $8068 = Parser$Reply$error$($8064); - var $8065 = $8068; - break; - }; - var $8045 = $8065; - break; - case 'Parser.Reply.value': - var $8069 = self.pst; - var $8070 = self.val; - var self = $8069; - switch (self._) { - case 'Parser.State.new': - var $8072 = self.err; - var $8073 = self.nam; - var $8074 = self.ini; - var $8075 = self.idx; - var $8076 = self.str; - var $8077 = ((console.log(("FALTANDO " + $8076)), (_$48 => { - var $8078 = ((console.log(("VALUE " + $8073)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8044, $8072), $8073, $8074, $8075, $8076); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $8080 = self.err; - var _reply$56 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $8082 = self.err; - var self = $8080; - switch (self._) { - case 'Maybe.some': - var $8084 = self.value; - var $8085 = Parser$Reply$error$(Parser$Error$combine$($8084, $8082)); - var $8083 = $8085; - break; - case 'Maybe.none': - var $8086 = Parser$Reply$error$($8082); - var $8083 = $8086; - break; - }; - var $8081 = $8083; - break; - case 'Parser.Reply.value': - var $8087 = self.pst; - var self = $8087; - switch (self._) { - case 'Parser.State.new': - var $8089 = self.err; - var $8090 = self.nam; - var $8091 = self.ini; - var $8092 = self.idx; - var $8093 = self.str; - var $8094 = ((console.log(("FALTANDO " + $8093)), (_$64 => { - var $8095 = ((console.log(("VALUE " + $8090)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8080, $8089), $8090, $8091, $8092, $8093); - var self = $8070; - switch (self._) { - case 'Maybe.some': - var $8097 = self.value; - var $8098 = $8097; - var _name$67 = $8098; - break; - case 'Maybe.none': - var self = Kind$Term$reduce$($8034, Kind$Map$new); - switch (self._) { - case 'Kind.Term.var': - var $8100 = self.name; - var $8101 = $8100; - var $8099 = $8101; - break; - case 'Kind.Term.ref': - var $8102 = self.name; - var $8103 = $8102; - var $8099 = $8103; - break; - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.app': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - case 'Kind.Term.ori': - var $8104 = Kind$Name$read$("self"); - var $8099 = $8104; - break; - }; - var _name$67 = $8099; - break; - }; - var _wyth$68 = List$nil; - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $8105 = self.err; - var _reply$74 = _body$1(Unit$new)(_reply$pst$66); - var self = _reply$74; - switch (self._) { - case 'Parser.Reply.error': - var $8107 = self.err; - var self = $8105; - switch (self._) { - case 'Maybe.some': - var $8109 = self.value; - var $8110 = Parser$Reply$error$(Parser$Error$combine$($8109, $8107)); - var $8108 = $8110; - break; - case 'Maybe.none': - var $8111 = Parser$Reply$error$($8107); - var $8108 = $8111; - break; - }; - var $8106 = $8108; - break; - case 'Parser.Reply.value': - var $8112 = self.pst; - var $8113 = self.val; - var self = $8112; - switch (self._) { - case 'Parser.State.new': - var $8115 = self.err; - var $8116 = self.nam; - var $8117 = self.ini; - var $8118 = self.idx; - var $8119 = self.str; - var $8120 = ((console.log(("FALTANDO " + $8119)), (_$82 => { - var $8121 = ((console.log(("VALUE " + $8116)), (_$83 => { - var _reply$pst$84 = Parser$State$new$(Parser$Error$maybe_combine$($8105, $8115), $8116, $8117, $8118, $8119); - var _cses$85 = Kind$Map$set$("_", $8113, Kind$Map$new); - var _moti$86 = Maybe$some$(Kind$Term$hol$(Bits$e)); - var $8122 = Parser$Reply$value$(_reply$pst$84, Kind$Term$cse$(Bits$e, $8034, _name$67, _wyth$68, _cses$85, _moti$86)); - return $8122; - })())); - return $8121; - })())); - var $8114 = $8120; - break; - }; - var $8106 = $8114; - break; - }; - var $8096 = $8106; - break; - }; - return $8096; - })())); - return $8095; - })())); - var $8088 = $8094; - break; - }; - var $8081 = $8088; - break; - }; - var $8079 = $8081; - break; - }; - return $8079; - })())); - return $8078; - })())); - var $8071 = $8077; - break; - }; - var $8045 = $8071; - break; - }; - var $8043 = $8045; - break; - }; - return $8043; - })())); - return $8042; - })())); - var $8035 = $8041; - break; - }; - var $8027 = $8035; - break; - }; - var $8025 = $8027; - break; - }; - return $8025; - })())); - return $8024; - })())); - var $8017 = $8023; - break; - }; - var $8010 = $8017; - break; - }; - var $8008 = $8010; - break; - }; - return $8008; - })); - return $8007; - }; - const Kind$Parser$open = x0 => Kind$Parser$open$(x0); - - function Kind$Parser$do$statements$(_monad_name$1) { - var $8123 = Parser$choice(List$cons$(Kind$Parser$block("do-get")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $8125 = self.err; - var _reply$8 = Parser$choice$(List$cons$(Kind$Parser$text("var "), List$cons$(Kind$Parser$text("get "), List$nil)), _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $8127 = self.err; - var self = $8125; - switch (self._) { - case 'Maybe.some': - var $8129 = self.value; - var $8130 = Parser$Reply$error$(Parser$Error$combine$($8129, $8127)); - var $8128 = $8130; - break; - case 'Maybe.none': - var $8131 = Parser$Reply$error$($8127); - var $8128 = $8131; - break; - }; - var $8126 = $8128; - break; - case 'Parser.Reply.value': - var $8132 = self.pst; - var self = $8132; - switch (self._) { - case 'Parser.State.new': - var $8134 = self.err; - var $8135 = self.nam; - var $8136 = self.ini; - var $8137 = self.idx; - var $8138 = self.str; - var $8139 = ((console.log(("FALTANDO " + $8138)), (_$16 => { - var $8140 = ((console.log(("VALUE " + $8135)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8125, $8134), $8135, $8136, $8137, $8138); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $8142 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $8144 = self.err; - var self = $8142; - switch (self._) { - case 'Maybe.some': - var $8146 = self.value; - var $8147 = Parser$Reply$error$(Parser$Error$combine$($8146, $8144)); - var $8145 = $8147; - break; - case 'Maybe.none': - var $8148 = Parser$Reply$error$($8144); - var $8145 = $8148; - break; - }; - var $8143 = $8145; - break; - case 'Parser.Reply.value': - var $8149 = self.pst; - var $8150 = self.val; - var self = $8149; - switch (self._) { - case 'Parser.State.new': - var $8152 = self.err; - var $8153 = self.nam; - var $8154 = self.ini; - var $8155 = self.idx; - var $8156 = self.str; - var $8157 = ((console.log(("FALTANDO " + $8156)), (_$32 => { - var $8158 = ((console.log(("VALUE " + $8153)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8142, $8152), $8153, $8154, $8155, $8156); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $8160 = self.err; - var _reply$40 = Kind$Parser$text$("=", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $8162 = self.err; - var self = $8160; - switch (self._) { - case 'Maybe.some': - var $8164 = self.value; - var $8165 = Parser$Reply$error$(Parser$Error$combine$($8164, $8162)); - var $8163 = $8165; - break; - case 'Maybe.none': - var $8166 = Parser$Reply$error$($8162); - var $8163 = $8166; - break; - }; - var $8161 = $8163; - break; - case 'Parser.Reply.value': - var $8167 = self.pst; - var self = $8167; - switch (self._) { - case 'Parser.State.new': - var $8169 = self.err; - var $8170 = self.nam; - var $8171 = self.ini; - var $8172 = self.idx; - var $8173 = self.str; - var $8174 = ((console.log(("FALTANDO " + $8173)), (_$48 => { - var $8175 = ((console.log(("VALUE " + $8170)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8160, $8169), $8170, $8171, $8172, $8173); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $8177 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $8179 = self.err; - var self = $8177; - switch (self._) { - case 'Maybe.some': - var $8181 = self.value; - var $8182 = Parser$Reply$error$(Parser$Error$combine$($8181, $8179)); - var $8180 = $8182; - break; - case 'Maybe.none': - var $8183 = Parser$Reply$error$($8179); - var $8180 = $8183; - break; - }; - var $8178 = $8180; - break; - case 'Parser.Reply.value': - var $8184 = self.pst; - var $8185 = self.val; - var self = $8184; - switch (self._) { - case 'Parser.State.new': - var $8187 = self.err; - var $8188 = self.nam; - var $8189 = self.ini; - var $8190 = self.idx; - var $8191 = self.str; - var $8192 = ((console.log(("FALTANDO " + $8191)), (_$64 => { - var $8193 = ((console.log(("VALUE " + $8188)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8177, $8187), $8188, $8189, $8190, $8191); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $8195 = self.err; - var _reply$72 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $8197 = self.err; - var self = $8195; - switch (self._) { - case 'Maybe.some': - var $8199 = self.value; - var $8200 = Parser$Reply$error$(Parser$Error$combine$($8199, $8197)); - var $8198 = $8200; - break; - case 'Maybe.none': - var $8201 = Parser$Reply$error$($8197); - var $8198 = $8201; - break; - }; - var $8196 = $8198; - break; - case 'Parser.Reply.value': - var $8202 = self.pst; - var self = $8202; - switch (self._) { - case 'Parser.State.new': - var $8204 = self.err; - var $8205 = self.nam; - var $8206 = self.ini; - var $8207 = self.idx; - var $8208 = self.str; - var $8209 = ((console.log(("FALTANDO " + $8208)), (_$80 => { - var $8210 = ((console.log(("VALUE " + $8205)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($8195, $8204), $8205, $8206, $8207, $8208); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $8212 = self.err; - var _reply$88 = Kind$Parser$do$statements$(_monad_name$1)(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $8214 = self.err; - var self = $8212; - switch (self._) { - case 'Maybe.some': - var $8216 = self.value; - var $8217 = Parser$Reply$error$(Parser$Error$combine$($8216, $8214)); - var $8215 = $8217; - break; - case 'Maybe.none': - var $8218 = Parser$Reply$error$($8214); - var $8215 = $8218; - break; - }; - var $8213 = $8215; - break; - case 'Parser.Reply.value': - var $8219 = self.pst; - var $8220 = self.val; - var self = $8219; - switch (self._) { - case 'Parser.State.new': - var $8222 = self.err; - var $8223 = self.nam; - var $8224 = self.ini; - var $8225 = self.idx; - var $8226 = self.str; - var $8227 = ((console.log(("FALTANDO " + $8226)), (_$96 => { - var $8228 = ((console.log(("VALUE " + $8223)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($8212, $8222), $8223, $8224, $8225, $8226); - var _term$99 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); - var _term$100 = Kind$Term$app$(_term$99, Kind$Term$ref$((_monad_name$1 + ".monad"))); - var _term$101 = Kind$Term$app$(_term$100, Kind$Term$hol$(Bits$e)); - var _term$102 = Kind$Term$app$(_term$101, Kind$Term$hol$(Bits$e)); - var _term$103 = Kind$Term$app$(_term$102, $8185); - var _term$104 = Kind$Term$app$(_term$103, Kind$Term$lam$($8150, (_x$104 => { - var $8230 = $8220; - return $8230; - }))); - var $8229 = Parser$Reply$value$(_reply$pst$98, _term$104); - return $8229; - })())); - return $8228; - })())); - var $8221 = $8227; - break; - }; - var $8213 = $8221; - break; - }; - var $8211 = $8213; - break; - }; - return $8211; - })())); - return $8210; - })())); - var $8203 = $8209; - break; - }; - var $8196 = $8203; - break; - }; - var $8194 = $8196; - break; - }; - return $8194; - })())); - return $8193; - })())); - var $8186 = $8192; - break; - }; - var $8178 = $8186; - break; - }; - var $8176 = $8178; - break; - }; - return $8176; - })())); - return $8175; - })())); - var $8168 = $8174; - break; - }; - var $8161 = $8168; - break; - }; - var $8159 = $8161; - break; - }; - return $8159; - })())); - return $8158; - })())); - var $8151 = $8157; - break; - }; - var $8143 = $8151; - break; - }; - var $8141 = $8143; - break; - }; - return $8141; - })())); - return $8140; - })())); - var $8133 = $8139; - break; - }; - var $8126 = $8133; - break; - }; - var $8124 = $8126; - break; - }; - return $8124; - })), List$cons$(Kind$Parser$block("do-return")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $8232 = self.err; - var _reply$8 = Kind$Parser$text$("return ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $8234 = self.err; - var self = $8232; - switch (self._) { - case 'Maybe.some': - var $8236 = self.value; - var $8237 = Parser$Reply$error$(Parser$Error$combine$($8236, $8234)); - var $8235 = $8237; - break; - case 'Maybe.none': - var $8238 = Parser$Reply$error$($8234); - var $8235 = $8238; - break; - }; - var $8233 = $8235; - break; - case 'Parser.Reply.value': - var $8239 = self.pst; - var self = $8239; - switch (self._) { - case 'Parser.State.new': - var $8241 = self.err; - var $8242 = self.nam; - var $8243 = self.ini; - var $8244 = self.idx; - var $8245 = self.str; - var $8246 = ((console.log(("FALTANDO " + $8245)), (_$16 => { - var $8247 = ((console.log(("VALUE " + $8242)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8232, $8241), $8242, $8243, $8244, $8245); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $8249 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $8251 = self.err; - var self = $8249; - switch (self._) { - case 'Maybe.some': - var $8253 = self.value; - var $8254 = Parser$Reply$error$(Parser$Error$combine$($8253, $8251)); - var $8252 = $8254; - break; - case 'Maybe.none': - var $8255 = Parser$Reply$error$($8251); - var $8252 = $8255; - break; - }; - var $8250 = $8252; - break; - case 'Parser.Reply.value': - var $8256 = self.pst; - var $8257 = self.val; - var self = $8256; - switch (self._) { - case 'Parser.State.new': - var $8259 = self.err; - var $8260 = self.nam; - var $8261 = self.ini; - var $8262 = self.idx; - var $8263 = self.str; - var $8264 = ((console.log(("FALTANDO " + $8263)), (_$32 => { - var $8265 = ((console.log(("VALUE " + $8260)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8249, $8259), $8260, $8261, $8262, $8263); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $8267 = self.err; - var _reply$40 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $8269 = self.err; - var self = $8267; - switch (self._) { - case 'Maybe.some': - var $8271 = self.value; - var $8272 = Parser$Reply$error$(Parser$Error$combine$($8271, $8269)); - var $8270 = $8272; - break; - case 'Maybe.none': - var $8273 = Parser$Reply$error$($8269); - var $8270 = $8273; - break; - }; - var $8268 = $8270; - break; - case 'Parser.Reply.value': - var $8274 = self.pst; - var self = $8274; - switch (self._) { - case 'Parser.State.new': - var $8276 = self.err; - var $8277 = self.nam; - var $8278 = self.ini; - var $8279 = self.idx; - var $8280 = self.str; - var $8281 = ((console.log(("FALTANDO " + $8280)), (_$48 => { - var $8282 = ((console.log(("VALUE " + $8277)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8267, $8276), $8277, $8278, $8279, $8280); - var _term$51 = Kind$Term$app$(Kind$Term$ref$("Monad.pure"), Kind$Term$ref$(_monad_name$1)); - var _term$52 = Kind$Term$app$(_term$51, Kind$Term$ref$((_monad_name$1 + ".monad"))); - var _term$53 = Kind$Term$app$(_term$52, Kind$Term$hol$(Bits$e)); - var _term$54 = Kind$Term$app$(_term$53, $8257); - var $8283 = Parser$Reply$value$(_reply$pst$50, _term$54); - return $8283; - })())); - return $8282; - })())); - var $8275 = $8281; - break; - }; - var $8268 = $8275; - break; - }; - var $8266 = $8268; - break; - }; - return $8266; - })())); - return $8265; - })())); - var $8258 = $8264; - break; - }; - var $8250 = $8258; - break; - }; - var $8248 = $8250; - break; - }; - return $8248; - })())); - return $8247; - })())); - var $8240 = $8246; - break; - }; - var $8233 = $8240; - break; - }; - var $8231 = $8233; - break; - }; - return $8231; - })), List$cons$(Kind$Parser$block("do-for-range")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $8285 = self.err; - var _reply$8 = Kind$Parser$text$("for ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $8287 = self.err; - var self = $8285; - switch (self._) { - case 'Maybe.some': - var $8289 = self.value; - var $8290 = Parser$Reply$error$(Parser$Error$combine$($8289, $8287)); - var $8288 = $8290; - break; - case 'Maybe.none': - var $8291 = Parser$Reply$error$($8287); - var $8288 = $8291; - break; - }; - var $8286 = $8288; - break; - case 'Parser.Reply.value': - var $8292 = self.pst; - var self = $8292; - switch (self._) { - case 'Parser.State.new': - var $8294 = self.err; - var $8295 = self.nam; - var $8296 = self.ini; - var $8297 = self.idx; - var $8298 = self.str; - var $8299 = ((console.log(("FALTANDO " + $8298)), (_$16 => { - var $8300 = ((console.log(("VALUE " + $8295)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8285, $8294), $8295, $8296, $8297, $8298); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $8302 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $8304 = self.err; - var self = $8302; - switch (self._) { - case 'Maybe.some': - var $8306 = self.value; - var $8307 = Parser$Reply$error$(Parser$Error$combine$($8306, $8304)); - var $8305 = $8307; - break; - case 'Maybe.none': - var $8308 = Parser$Reply$error$($8304); - var $8305 = $8308; - break; - }; - var $8303 = $8305; - break; - case 'Parser.Reply.value': - var $8309 = self.pst; - var $8310 = self.val; - var self = $8309; - switch (self._) { - case 'Parser.State.new': - var $8312 = self.err; - var $8313 = self.nam; - var $8314 = self.ini; - var $8315 = self.idx; - var $8316 = self.str; - var $8317 = ((console.log(("FALTANDO " + $8316)), (_$32 => { - var $8318 = ((console.log(("VALUE " + $8313)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8302, $8312), $8313, $8314, $8315, $8316); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $8320 = self.err; - var _reply$40 = Kind$Parser$text$("from", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $8322 = self.err; - var self = $8320; - switch (self._) { - case 'Maybe.some': - var $8324 = self.value; - var $8325 = Parser$Reply$error$(Parser$Error$combine$($8324, $8322)); - var $8323 = $8325; - break; - case 'Maybe.none': - var $8326 = Parser$Reply$error$($8322); - var $8323 = $8326; - break; - }; - var $8321 = $8323; - break; - case 'Parser.Reply.value': - var $8327 = self.pst; - var self = $8327; - switch (self._) { - case 'Parser.State.new': - var $8329 = self.err; - var $8330 = self.nam; - var $8331 = self.ini; - var $8332 = self.idx; - var $8333 = self.str; - var $8334 = ((console.log(("FALTANDO " + $8333)), (_$48 => { - var $8335 = ((console.log(("VALUE " + $8330)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8320, $8329), $8330, $8331, $8332, $8333); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $8337 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $8339 = self.err; - var self = $8337; - switch (self._) { - case 'Maybe.some': - var $8341 = self.value; - var $8342 = Parser$Reply$error$(Parser$Error$combine$($8341, $8339)); - var $8340 = $8342; - break; - case 'Maybe.none': - var $8343 = Parser$Reply$error$($8339); - var $8340 = $8343; - break; - }; - var $8338 = $8340; - break; - case 'Parser.Reply.value': - var $8344 = self.pst; - var $8345 = self.val; - var self = $8344; - switch (self._) { - case 'Parser.State.new': - var $8347 = self.err; - var $8348 = self.nam; - var $8349 = self.ini; - var $8350 = self.idx; - var $8351 = self.str; - var $8352 = ((console.log(("FALTANDO " + $8351)), (_$64 => { - var $8353 = ((console.log(("VALUE " + $8348)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8337, $8347), $8348, $8349, $8350, $8351); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $8355 = self.err; - var _reply$72 = Kind$Parser$text$("to", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $8357 = self.err; - var self = $8355; - switch (self._) { - case 'Maybe.some': - var $8359 = self.value; - var $8360 = Parser$Reply$error$(Parser$Error$combine$($8359, $8357)); - var $8358 = $8360; - break; - case 'Maybe.none': - var $8361 = Parser$Reply$error$($8357); - var $8358 = $8361; - break; - }; - var $8356 = $8358; - break; - case 'Parser.Reply.value': - var $8362 = self.pst; - var self = $8362; - switch (self._) { - case 'Parser.State.new': - var $8364 = self.err; - var $8365 = self.nam; - var $8366 = self.ini; - var $8367 = self.idx; - var $8368 = self.str; - var $8369 = ((console.log(("FALTANDO " + $8368)), (_$80 => { - var $8370 = ((console.log(("VALUE " + $8365)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($8355, $8364), $8365, $8366, $8367, $8368); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $8372 = self.err; - var _reply$88 = Kind$Parser$term(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $8374 = self.err; - var self = $8372; - switch (self._) { - case 'Maybe.some': - var $8376 = self.value; - var $8377 = Parser$Reply$error$(Parser$Error$combine$($8376, $8374)); - var $8375 = $8377; - break; - case 'Maybe.none': - var $8378 = Parser$Reply$error$($8374); - var $8375 = $8378; - break; - }; - var $8373 = $8375; - break; - case 'Parser.Reply.value': - var $8379 = self.pst; - var $8380 = self.val; - var self = $8379; - switch (self._) { - case 'Parser.State.new': - var $8382 = self.err; - var $8383 = self.nam; - var $8384 = self.ini; - var $8385 = self.idx; - var $8386 = self.str; - var $8387 = ((console.log(("FALTANDO " + $8386)), (_$96 => { - var $8388 = ((console.log(("VALUE " + $8383)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($8372, $8382), $8383, $8384, $8385, $8386); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $8390 = self.err; - var _reply$104 = Kind$Parser$text$(":", _reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $8392 = self.err; - var self = $8390; - switch (self._) { - case 'Maybe.some': - var $8394 = self.value; - var $8395 = Parser$Reply$error$(Parser$Error$combine$($8394, $8392)); - var $8393 = $8395; - break; - case 'Maybe.none': - var $8396 = Parser$Reply$error$($8392); - var $8393 = $8396; - break; - }; - var $8391 = $8393; - break; - case 'Parser.Reply.value': - var $8397 = self.pst; - var self = $8397; - switch (self._) { - case 'Parser.State.new': - var $8399 = self.err; - var $8400 = self.nam; - var $8401 = self.ini; - var $8402 = self.idx; - var $8403 = self.str; - var $8404 = ((console.log(("FALTANDO " + $8403)), (_$112 => { - var $8405 = ((console.log(("VALUE " + $8400)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($8390, $8399), $8400, $8401, $8402, $8403); - var self = _reply$pst$114; - switch (self._) { - case 'Parser.State.new': - var $8407 = self.err; - var _reply$120 = Kind$Parser$term(_reply$pst$114); - var self = _reply$120; - switch (self._) { - case 'Parser.Reply.error': - var $8409 = self.err; - var self = $8407; - switch (self._) { - case 'Maybe.some': - var $8411 = self.value; - var $8412 = Parser$Reply$error$(Parser$Error$combine$($8411, $8409)); - var $8410 = $8412; - break; - case 'Maybe.none': - var $8413 = Parser$Reply$error$($8409); - var $8410 = $8413; - break; - }; - var $8408 = $8410; - break; - case 'Parser.Reply.value': - var $8414 = self.pst; - var $8415 = self.val; - var self = $8414; - switch (self._) { - case 'Parser.State.new': - var $8417 = self.err; - var $8418 = self.nam; - var $8419 = self.ini; - var $8420 = self.idx; - var $8421 = self.str; - var $8422 = ((console.log(("FALTANDO " + $8421)), (_$128 => { - var $8423 = ((console.log(("VALUE " + $8418)), (_$129 => { - var _reply$pst$130 = Parser$State$new$(Parser$Error$maybe_combine$($8407, $8417), $8418, $8419, $8420, $8421); - var self = _reply$pst$130; - switch (self._) { - case 'Parser.State.new': - var $8425 = self.err; - var _reply$136 = Parser$maybe$(Kind$Parser$do$statements$(_monad_name$1), _reply$pst$130); - var self = _reply$136; - switch (self._) { - case 'Parser.Reply.error': - var $8427 = self.err; - var self = $8425; - switch (self._) { - case 'Maybe.some': - var $8429 = self.value; - var $8430 = Parser$Reply$error$(Parser$Error$combine$($8429, $8427)); - var $8428 = $8430; - break; - case 'Maybe.none': - var $8431 = Parser$Reply$error$($8427); - var $8428 = $8431; - break; - }; - var $8426 = $8428; - break; - case 'Parser.Reply.value': - var $8432 = self.pst; - var $8433 = self.val; - var self = $8432; - switch (self._) { - case 'Parser.State.new': - var $8435 = self.err; - var $8436 = self.nam; - var $8437 = self.ini; - var $8438 = self.idx; - var $8439 = self.str; - var $8440 = ((console.log(("FALTANDO " + $8439)), (_$144 => { - var $8441 = ((console.log(("VALUE " + $8436)), (_$145 => { - var _reply$pst$146 = Parser$State$new$(Parser$Error$maybe_combine$($8425, $8435), $8436, $8437, $8438, $8439); - var _expr$147 = Kind$Term$ref$("Nat.for.io"); - var _expr$148 = Kind$Term$app$(_expr$147, $8345); - var _expr$149 = Kind$Term$app$(_expr$148, $8380); - var _expr$150 = Kind$Term$app$(_expr$149, Kind$Term$lam$($8310, (_x$150 => { - var $8443 = $8415; - return $8443; - }))); - var self = $8433; - switch (self._) { - case 'Maybe.some': - var $8444 = self.value; - var _term$152 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); - var _term$153 = Kind$Term$app$(_term$152, Kind$Term$ref$((_monad_name$1 + ".monad"))); - var _term$154 = Kind$Term$app$(_term$153, Kind$Term$hol$(Bits$e)); - var _term$155 = Kind$Term$app$(_term$154, Kind$Term$hol$(Bits$e)); - var _term$156 = Kind$Term$app$(_term$155, _expr$150); - var _term$157 = Kind$Term$app$(_term$156, Kind$Term$lam$("", (_x$157 => { - var $8446 = $8444; - return $8446; - }))); - var $8445 = (_pst$158 => { - var $8447 = Parser$Reply$value$(_pst$158, _term$157); - return $8447; - }); - var $8442 = $8445; - break; - case 'Maybe.none': - var $8448 = (_pst$151 => { - var $8449 = Parser$Reply$value$(_pst$151, _expr$150); - return $8449; - }); - var $8442 = $8448; - break; - }; - var $8442 = $8442(_reply$pst$146); - return $8442; - })())); - return $8441; - })())); - var $8434 = $8440; - break; - }; - var $8426 = $8434; - break; - }; - var $8424 = $8426; - break; - }; - return $8424; - })())); - return $8423; - })())); - var $8416 = $8422; - break; - }; - var $8408 = $8416; - break; - }; - var $8406 = $8408; - break; - }; - return $8406; - })())); - return $8405; - })())); - var $8398 = $8404; - break; - }; - var $8391 = $8398; - break; - }; - var $8389 = $8391; - break; - }; - return $8389; - })())); - return $8388; - })())); - var $8381 = $8387; - break; - }; - var $8373 = $8381; - break; - }; - var $8371 = $8373; - break; - }; - return $8371; - })())); - return $8370; - })())); - var $8363 = $8369; - break; - }; - var $8356 = $8363; - break; - }; - var $8354 = $8356; - break; - }; - return $8354; - })())); - return $8353; - })())); - var $8346 = $8352; - break; - }; - var $8338 = $8346; - break; - }; - var $8336 = $8338; - break; - }; - return $8336; - })())); - return $8335; - })())); - var $8328 = $8334; - break; - }; - var $8321 = $8328; - break; - }; - var $8319 = $8321; - break; - }; - return $8319; - })())); - return $8318; - })())); - var $8311 = $8317; - break; - }; - var $8303 = $8311; - break; - }; - var $8301 = $8303; - break; - }; - return $8301; - })())); - return $8300; - })())); - var $8293 = $8299; - break; - }; - var $8286 = $8293; - break; - }; - var $8284 = $8286; - break; - }; - return $8284; - })), List$cons$(Kind$Parser$block("do-for-in")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $8451 = self.err; - var _reply$8 = Kind$Parser$text$("for ", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $8453 = self.err; - var self = $8451; - switch (self._) { - case 'Maybe.some': - var $8455 = self.value; - var $8456 = Parser$Reply$error$(Parser$Error$combine$($8455, $8453)); - var $8454 = $8456; - break; - case 'Maybe.none': - var $8457 = Parser$Reply$error$($8453); - var $8454 = $8457; - break; - }; - var $8452 = $8454; - break; - case 'Parser.Reply.value': - var $8458 = self.pst; - var self = $8458; - switch (self._) { - case 'Parser.State.new': - var $8460 = self.err; - var $8461 = self.nam; - var $8462 = self.ini; - var $8463 = self.idx; - var $8464 = self.str; - var $8465 = ((console.log(("FALTANDO " + $8464)), (_$16 => { - var $8466 = ((console.log(("VALUE " + $8461)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8451, $8460), $8461, $8462, $8463, $8464); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $8468 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $8470 = self.err; - var self = $8468; - switch (self._) { - case 'Maybe.some': - var $8472 = self.value; - var $8473 = Parser$Reply$error$(Parser$Error$combine$($8472, $8470)); - var $8471 = $8473; - break; - case 'Maybe.none': - var $8474 = Parser$Reply$error$($8470); - var $8471 = $8474; - break; - }; - var $8469 = $8471; - break; - case 'Parser.Reply.value': - var $8475 = self.pst; - var $8476 = self.val; - var self = $8475; - switch (self._) { - case 'Parser.State.new': - var $8478 = self.err; - var $8479 = self.nam; - var $8480 = self.ini; - var $8481 = self.idx; - var $8482 = self.str; - var $8483 = ((console.log(("FALTANDO " + $8482)), (_$32 => { - var $8484 = ((console.log(("VALUE " + $8479)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8468, $8478), $8479, $8480, $8481, $8482); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $8486 = self.err; - var _reply$40 = Kind$Parser$text$("in", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $8488 = self.err; - var self = $8486; - switch (self._) { - case 'Maybe.some': - var $8490 = self.value; - var $8491 = Parser$Reply$error$(Parser$Error$combine$($8490, $8488)); - var $8489 = $8491; - break; - case 'Maybe.none': - var $8492 = Parser$Reply$error$($8488); - var $8489 = $8492; - break; - }; - var $8487 = $8489; - break; - case 'Parser.Reply.value': - var $8493 = self.pst; - var self = $8493; - switch (self._) { - case 'Parser.State.new': - var $8495 = self.err; - var $8496 = self.nam; - var $8497 = self.ini; - var $8498 = self.idx; - var $8499 = self.str; - var $8500 = ((console.log(("FALTANDO " + $8499)), (_$48 => { - var $8501 = ((console.log(("VALUE " + $8496)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8486, $8495), $8496, $8497, $8498, $8499); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $8503 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $8505 = self.err; - var self = $8503; - switch (self._) { - case 'Maybe.some': - var $8507 = self.value; - var $8508 = Parser$Reply$error$(Parser$Error$combine$($8507, $8505)); - var $8506 = $8508; - break; - case 'Maybe.none': - var $8509 = Parser$Reply$error$($8505); - var $8506 = $8509; - break; - }; - var $8504 = $8506; - break; - case 'Parser.Reply.value': - var $8510 = self.pst; - var $8511 = self.val; - var self = $8510; - switch (self._) { - case 'Parser.State.new': - var $8513 = self.err; - var $8514 = self.nam; - var $8515 = self.ini; - var $8516 = self.idx; - var $8517 = self.str; - var $8518 = ((console.log(("FALTANDO " + $8517)), (_$64 => { - var $8519 = ((console.log(("VALUE " + $8514)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8503, $8513), $8514, $8515, $8516, $8517); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $8521 = self.err; - var _reply$72 = Kind$Parser$text$(":", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $8523 = self.err; - var self = $8521; - switch (self._) { - case 'Maybe.some': - var $8525 = self.value; - var $8526 = Parser$Reply$error$(Parser$Error$combine$($8525, $8523)); - var $8524 = $8526; - break; - case 'Maybe.none': - var $8527 = Parser$Reply$error$($8523); - var $8524 = $8527; - break; - }; - var $8522 = $8524; - break; - case 'Parser.Reply.value': - var $8528 = self.pst; - var self = $8528; - switch (self._) { - case 'Parser.State.new': - var $8530 = self.err; - var $8531 = self.nam; - var $8532 = self.ini; - var $8533 = self.idx; - var $8534 = self.str; - var $8535 = ((console.log(("FALTANDO " + $8534)), (_$80 => { - var $8536 = ((console.log(("VALUE " + $8531)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($8521, $8530), $8531, $8532, $8533, $8534); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $8538 = self.err; - var _reply$88 = Kind$Parser$term(_reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $8540 = self.err; - var self = $8538; - switch (self._) { - case 'Maybe.some': - var $8542 = self.value; - var $8543 = Parser$Reply$error$(Parser$Error$combine$($8542, $8540)); - var $8541 = $8543; - break; - case 'Maybe.none': - var $8544 = Parser$Reply$error$($8540); - var $8541 = $8544; - break; - }; - var $8539 = $8541; - break; - case 'Parser.Reply.value': - var $8545 = self.pst; - var $8546 = self.val; - var self = $8545; - switch (self._) { - case 'Parser.State.new': - var $8548 = self.err; - var $8549 = self.nam; - var $8550 = self.ini; - var $8551 = self.idx; - var $8552 = self.str; - var $8553 = ((console.log(("FALTANDO " + $8552)), (_$96 => { - var $8554 = ((console.log(("VALUE " + $8549)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($8538, $8548), $8549, $8550, $8551, $8552); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $8556 = self.err; - var _reply$104 = Parser$maybe$(Kind$Parser$do$statements$(_monad_name$1), _reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $8558 = self.err; - var self = $8556; - switch (self._) { - case 'Maybe.some': - var $8560 = self.value; - var $8561 = Parser$Reply$error$(Parser$Error$combine$($8560, $8558)); - var $8559 = $8561; - break; - case 'Maybe.none': - var $8562 = Parser$Reply$error$($8558); - var $8559 = $8562; - break; - }; - var $8557 = $8559; - break; - case 'Parser.Reply.value': - var $8563 = self.pst; - var $8564 = self.val; - var self = $8563; - switch (self._) { - case 'Parser.State.new': - var $8566 = self.err; - var $8567 = self.nam; - var $8568 = self.ini; - var $8569 = self.idx; - var $8570 = self.str; - var $8571 = ((console.log(("FALTANDO " + $8570)), (_$112 => { - var $8572 = ((console.log(("VALUE " + $8567)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($8556, $8566), $8567, $8568, $8569, $8570); - var _expr$115 = Kind$Term$ref$("List.for.io"); - var _expr$116 = Kind$Term$app$(_expr$115, Kind$Term$hol$(Bits$e)); - var _expr$117 = Kind$Term$app$(_expr$116, $8511); - var _expr$118 = Kind$Term$app$(_expr$117, Kind$Term$lam$($8476, (_x$118 => { - var $8574 = $8546; - return $8574; - }))); - var self = $8564; - switch (self._) { - case 'Maybe.some': - var $8575 = self.value; - var _term$120 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); - var _term$121 = Kind$Term$app$(_term$120, Kind$Term$ref$((_monad_name$1 + ".monad"))); - var _term$122 = Kind$Term$app$(_term$121, Kind$Term$hol$(Bits$e)); - var _term$123 = Kind$Term$app$(_term$122, Kind$Term$hol$(Bits$e)); - var _term$124 = Kind$Term$app$(_term$123, _expr$118); - var _term$125 = Kind$Term$app$(_term$124, Kind$Term$lam$("", (_x$125 => { - var $8577 = $8575; - return $8577; - }))); - var $8576 = (_pst$126 => { - var $8578 = Parser$Reply$value$(_pst$126, _term$125); - return $8578; - }); - var $8573 = $8576; - break; - case 'Maybe.none': - var $8579 = (_pst$119 => { - var $8580 = Parser$Reply$value$(_pst$119, _expr$118); - return $8580; - }); - var $8573 = $8579; - break; - }; - var $8573 = $8573(_reply$pst$114); - return $8573; - })())); - return $8572; - })())); - var $8565 = $8571; - break; - }; - var $8557 = $8565; - break; - }; - var $8555 = $8557; - break; - }; - return $8555; - })())); - return $8554; - })())); - var $8547 = $8553; - break; - }; - var $8539 = $8547; - break; - }; - var $8537 = $8539; - break; - }; - return $8537; - })())); - return $8536; - })())); - var $8529 = $8535; - break; - }; - var $8522 = $8529; - break; - }; - var $8520 = $8522; - break; - }; - return $8520; - })())); - return $8519; - })())); - var $8512 = $8518; - break; - }; - var $8504 = $8512; - break; - }; - var $8502 = $8504; - break; - }; - return $8502; - })())); - return $8501; - })())); - var $8494 = $8500; - break; - }; - var $8487 = $8494; - break; - }; - var $8485 = $8487; - break; - }; - return $8485; - })())); - return $8484; - })())); - var $8477 = $8483; - break; - }; - var $8469 = $8477; - break; - }; - var $8467 = $8469; - break; - }; - return $8467; - })())); - return $8466; - })())); - var $8459 = $8465; - break; - }; - var $8452 = $8459; - break; - }; - var $8450 = $8452; - break; - }; - return $8450; - })), List$cons$(Kind$Parser$letforrange$u32$((_x$2 => { - var $8581 = Kind$Parser$do$statements$(_monad_name$1); - return $8581; - })), List$cons$(Kind$Parser$letforrange$u32$with$((_x$2 => { - var $8582 = Kind$Parser$do$statements$(_monad_name$1); - return $8582; - })), List$cons$(Kind$Parser$letforrange$nat$((_x$2 => { - var $8583 = Kind$Parser$do$statements$(_monad_name$1); - return $8583; - })), List$cons$(Kind$Parser$letforrange$nat$with$((_x$2 => { - var $8584 = Kind$Parser$do$statements$(_monad_name$1); - return $8584; - })), List$cons$(Kind$Parser$letforin$((_x$2 => { - var $8585 = Kind$Parser$do$statements$(_monad_name$1); - return $8585; - })), List$cons$(Kind$Parser$letforin$with$((_x$2 => { - var $8586 = Kind$Parser$do$statements$(_monad_name$1); - return $8586; - })), List$cons$(Kind$Parser$letwhile$((_x$2 => { - var $8587 = Kind$Parser$do$statements$(_monad_name$1); - return $8587; - })), List$cons$(Kind$Parser$letwhile$with$((_x$2 => { - var $8588 = Kind$Parser$do$statements$(_monad_name$1); - return $8588; - })), List$cons$(Kind$Parser$let$abort$((_x$2 => { - var $8589 = Kind$Parser$do$statements$(_monad_name$1); - return $8589; - })), List$cons$(Kind$Parser$let$((_x$2 => { - var $8590 = Kind$Parser$do$statements$(_monad_name$1); - return $8590; - })), List$cons$(Kind$Parser$getwhile$((_x$2 => { - var $8591 = Kind$Parser$do$statements$(_monad_name$1); - return $8591; - })), List$cons$(Kind$Parser$getwhile$with((_x$2 => { - var $8592 = Kind$Parser$do$statements$(_monad_name$1); - return $8592; - })), List$cons$(Kind$Parser$get$((_x$2 => { - var $8593 = Kind$Parser$do$statements$(_monad_name$1); - return $8593; - })), List$cons$(Kind$Parser$def$((_x$2 => { - var $8594 = Kind$Parser$do$statements$(_monad_name$1); - return $8594; - })), List$cons$(Kind$Parser$use$abort$((_x$2 => { - var $8595 = Kind$Parser$do$statements$(_monad_name$1); - return $8595; - })), List$cons$(Kind$Parser$use$((_x$2 => { - var $8596 = Kind$Parser$do$statements$(_monad_name$1); - return $8596; - })), List$cons$(Kind$Parser$log$((_x$2 => { - var $8597 = Kind$Parser$do$statements$(_monad_name$1); - return $8597; - })), List$cons$(Kind$Parser$open$((_x$2 => { - var $8598 = Kind$Parser$do$statements$(_monad_name$1); - return $8598; - })), List$cons$(Kind$Parser$block("do-statement")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $8600 = self.err; - var _reply$8 = Kind$Parser$term(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $8602 = self.err; - var self = $8600; - switch (self._) { - case 'Maybe.some': - var $8604 = self.value; - var $8605 = Parser$Reply$error$(Parser$Error$combine$($8604, $8602)); - var $8603 = $8605; - break; - case 'Maybe.none': - var $8606 = Parser$Reply$error$($8602); - var $8603 = $8606; - break; - }; - var $8601 = $8603; - break; - case 'Parser.Reply.value': - var $8607 = self.pst; - var $8608 = self.val; - var self = $8607; - switch (self._) { - case 'Parser.State.new': - var $8610 = self.err; - var $8611 = self.nam; - var $8612 = self.ini; - var $8613 = self.idx; - var $8614 = self.str; - var $8615 = ((console.log(("FALTANDO " + $8614)), (_$16 => { - var $8616 = ((console.log(("VALUE " + $8611)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8600, $8610), $8611, $8612, $8613, $8614); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $8618 = self.err; - var _reply$24 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $8620 = self.err; - var self = $8618; - switch (self._) { - case 'Maybe.some': - var $8622 = self.value; - var $8623 = Parser$Reply$error$(Parser$Error$combine$($8622, $8620)); - var $8621 = $8623; - break; - case 'Maybe.none': - var $8624 = Parser$Reply$error$($8620); - var $8621 = $8624; - break; - }; - var $8619 = $8621; - break; - case 'Parser.Reply.value': - var $8625 = self.pst; - var self = $8625; - switch (self._) { - case 'Parser.State.new': - var $8627 = self.err; - var $8628 = self.nam; - var $8629 = self.ini; - var $8630 = self.idx; - var $8631 = self.str; - var $8632 = ((console.log(("FALTANDO " + $8631)), (_$32 => { - var $8633 = ((console.log(("VALUE " + $8628)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8618, $8627), $8628, $8629, $8630, $8631); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $8635 = self.err; - var _reply$40 = Kind$Parser$do$statements$(_monad_name$1)(_reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $8637 = self.err; - var self = $8635; - switch (self._) { - case 'Maybe.some': - var $8639 = self.value; - var $8640 = Parser$Reply$error$(Parser$Error$combine$($8639, $8637)); - var $8638 = $8640; - break; - case 'Maybe.none': - var $8641 = Parser$Reply$error$($8637); - var $8638 = $8641; - break; - }; - var $8636 = $8638; - break; - case 'Parser.Reply.value': - var $8642 = self.pst; - var $8643 = self.val; - var self = $8642; - switch (self._) { - case 'Parser.State.new': - var $8645 = self.err; - var $8646 = self.nam; - var $8647 = self.ini; - var $8648 = self.idx; - var $8649 = self.str; - var $8650 = ((console.log(("FALTANDO " + $8649)), (_$48 => { - var $8651 = ((console.log(("VALUE " + $8646)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8635, $8645), $8646, $8647, $8648, $8649); - var _term$51 = Kind$Term$app$(Kind$Term$ref$("Monad.bind"), Kind$Term$ref$(_monad_name$1)); - var _term$52 = Kind$Term$app$(_term$51, Kind$Term$ref$((_monad_name$1 + ".monad"))); - var _term$53 = Kind$Term$app$(_term$52, Kind$Term$hol$(Bits$e)); - var _term$54 = Kind$Term$app$(_term$53, Kind$Term$hol$(Bits$e)); - var _term$55 = Kind$Term$app$(_term$54, $8608); - var _term$56 = Kind$Term$app$(_term$55, Kind$Term$lam$("", (_x$56 => { - var $8653 = $8643; - return $8653; - }))); - var $8652 = Parser$Reply$value$(_reply$pst$50, _term$56); - return $8652; - })())); - return $8651; - })())); - var $8644 = $8650; - break; - }; - var $8636 = $8644; - break; - }; - var $8634 = $8636; - break; - }; - return $8634; - })())); - return $8633; - })())); - var $8626 = $8632; - break; - }; - var $8619 = $8626; - break; - }; - var $8617 = $8619; - break; - }; - return $8617; - })())); - return $8616; - })())); - var $8609 = $8615; - break; - }; - var $8601 = $8609; - break; - }; - var $8599 = $8601; - break; - }; - return $8599; - })), List$cons$(Kind$Parser$block("do-end")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $8655 = self.err; - var _reply$8 = Kind$Parser$term(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $8657 = self.err; - var self = $8655; - switch (self._) { - case 'Maybe.some': - var $8659 = self.value; - var $8660 = Parser$Reply$error$(Parser$Error$combine$($8659, $8657)); - var $8658 = $8660; - break; - case 'Maybe.none': - var $8661 = Parser$Reply$error$($8657); - var $8658 = $8661; - break; - }; - var $8656 = $8658; - break; - case 'Parser.Reply.value': - var $8662 = self.pst; - var $8663 = self.val; - var self = $8662; - switch (self._) { - case 'Parser.State.new': - var $8665 = self.err; - var $8666 = self.nam; - var $8667 = self.ini; - var $8668 = self.idx; - var $8669 = self.str; - var $8670 = ((console.log(("FALTANDO " + $8669)), (_$16 => { - var $8671 = ((console.log(("VALUE " + $8666)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($8655, $8665), $8666, $8667, $8668, $8669); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $8673 = self.err; - var _reply$24 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $8675 = self.err; - var self = $8673; - switch (self._) { - case 'Maybe.some': - var $8677 = self.value; - var $8678 = Parser$Reply$error$(Parser$Error$combine$($8677, $8675)); - var $8676 = $8678; - break; - case 'Maybe.none': - var $8679 = Parser$Reply$error$($8675); - var $8676 = $8679; - break; - }; - var $8674 = $8676; - break; - case 'Parser.Reply.value': - var $8680 = self.pst; - var self = $8680; - switch (self._) { - case 'Parser.State.new': - var $8682 = self.err; - var $8683 = self.nam; - var $8684 = self.ini; - var $8685 = self.idx; - var $8686 = self.str; - var $8687 = ((console.log(("FALTANDO " + $8686)), (_$32 => { - var $8688 = ((console.log(("VALUE " + $8683)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8673, $8682), $8683, $8684, $8685, $8686); - var $8689 = Parser$Reply$value$(_reply$pst$34, $8663); - return $8689; - })())); - return $8688; - })())); - var $8681 = $8687; - break; - }; - var $8674 = $8681; - break; - }; - var $8672 = $8674; - break; - }; - return $8672; - })())); - return $8671; - })())); - var $8664 = $8670; - break; - }; - var $8656 = $8664; - break; - }; - var $8654 = $8656; - break; - }; - return $8654; - })), List$nil))))))))))))))))))))))))); - return $8123; - }; - const Kind$Parser$do$statements = x0 => Kind$Parser$do$statements$(x0); - const Kind$Parser$do = Kind$Parser$block("do")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8691 = self.err; - var _reply$7 = Parser$maybe$(Kind$Parser$text("do "), _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $8693 = self.err; - var self = $8691; - switch (self._) { - case 'Maybe.some': - var $8695 = self.value; - var $8696 = Parser$Reply$error$(Parser$Error$combine$($8695, $8693)); - var $8694 = $8696; - break; - case 'Maybe.none': - var $8697 = Parser$Reply$error$($8693); - var $8694 = $8697; - break; - }; - var $8692 = $8694; - break; - case 'Parser.Reply.value': - var $8698 = self.pst; - var self = $8698; - switch (self._) { - case 'Parser.State.new': - var $8700 = self.err; - var $8701 = self.nam; - var $8702 = self.ini; - var $8703 = self.idx; - var $8704 = self.str; - var $8705 = ((console.log(("FALTANDO " + $8704)), (_$15 => { - var $8706 = ((console.log(("VALUE " + $8701)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($8691, $8700), $8701, $8702, $8703, $8704); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $8708 = self.err; - var _reply$23 = Kind$Parser$name1$(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $8710 = self.err; - var self = $8708; - switch (self._) { - case 'Maybe.some': - var $8712 = self.value; - var $8713 = Parser$Reply$error$(Parser$Error$combine$($8712, $8710)); - var $8711 = $8713; - break; - case 'Maybe.none': - var $8714 = Parser$Reply$error$($8710); - var $8711 = $8714; - break; - }; - var $8709 = $8711; - break; - case 'Parser.Reply.value': - var $8715 = self.pst; - var $8716 = self.val; - var self = $8715; - switch (self._) { - case 'Parser.State.new': - var $8718 = self.err; - var $8719 = self.nam; - var $8720 = self.ini; - var $8721 = self.idx; - var $8722 = self.str; - var $8723 = ((console.log(("FALTANDO " + $8722)), (_$31 => { - var $8724 = ((console.log(("VALUE " + $8719)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($8708, $8718), $8719, $8720, $8721, $8722); - var self = String$is_upper$(String$slice$(0n, 1n, $8716)); - if (self) { - var $8726 = (_pst$34 => { - var self = _pst$34; - switch (self._) { - case 'Parser.State.new': - var $8728 = self.err; - var _reply$40 = Parser$text$(" {", _pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $8730 = self.err; - var self = $8728; - switch (self._) { - case 'Maybe.some': - var $8732 = self.value; - var $8733 = Parser$Reply$error$(Parser$Error$combine$($8732, $8730)); - var $8731 = $8733; - break; - case 'Maybe.none': - var $8734 = Parser$Reply$error$($8730); - var $8731 = $8734; - break; - }; - var $8729 = $8731; - break; - case 'Parser.Reply.value': - var $8735 = self.pst; - var self = $8735; - switch (self._) { - case 'Parser.State.new': - var $8737 = self.err; - var $8738 = self.nam; - var $8739 = self.ini; - var $8740 = self.idx; - var $8741 = self.str; - var $8742 = ((console.log(("FALTANDO " + $8741)), (_$48 => { - var $8743 = ((console.log(("VALUE " + $8738)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8728, $8737), $8738, $8739, $8740, $8741); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $8745 = self.err; - var _reply$56 = Kind$Parser$do$statements$($8716)(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $8747 = self.err; - var self = $8745; - switch (self._) { - case 'Maybe.some': - var $8749 = self.value; - var $8750 = Parser$Reply$error$(Parser$Error$combine$($8749, $8747)); - var $8748 = $8750; - break; - case 'Maybe.none': - var $8751 = Parser$Reply$error$($8747); - var $8748 = $8751; - break; - }; - var $8746 = $8748; - break; - case 'Parser.Reply.value': - var $8752 = self.pst; - var $8753 = self.val; - var self = $8752; - switch (self._) { - case 'Parser.State.new': - var $8755 = self.err; - var $8756 = self.nam; - var $8757 = self.ini; - var $8758 = self.idx; - var $8759 = self.str; - var $8760 = ((console.log(("FALTANDO " + $8759)), (_$64 => { - var $8761 = ((console.log(("VALUE " + $8756)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8745, $8755), $8756, $8757, $8758, $8759); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $8763 = self.err; - var _reply$72 = Kind$Parser$text$("}", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $8765 = self.err; - var self = $8763; - switch (self._) { - case 'Maybe.some': - var $8767 = self.value; - var $8768 = Parser$Reply$error$(Parser$Error$combine$($8767, $8765)); - var $8766 = $8768; - break; - case 'Maybe.none': - var $8769 = Parser$Reply$error$($8765); - var $8766 = $8769; - break; - }; - var $8764 = $8766; - break; - case 'Parser.Reply.value': - var $8770 = self.pst; - var self = $8770; - switch (self._) { - case 'Parser.State.new': - var $8772 = self.err; - var $8773 = self.nam; - var $8774 = self.ini; - var $8775 = self.idx; - var $8776 = self.str; - var $8777 = ((console.log(("FALTANDO " + $8776)), (_$80 => { - var $8778 = ((console.log(("VALUE " + $8773)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($8763, $8772), $8773, $8774, $8775, $8776); - var $8779 = Parser$Reply$value$(_reply$pst$82, $8753); - return $8779; - })())); - return $8778; - })())); - var $8771 = $8777; - break; - }; - var $8764 = $8771; - break; - }; - var $8762 = $8764; - break; - }; - return $8762; - })())); - return $8761; - })())); - var $8754 = $8760; - break; - }; - var $8746 = $8754; - break; - }; - var $8744 = $8746; - break; - }; - return $8744; - })())); - return $8743; - })())); - var $8736 = $8742; - break; - }; - var $8729 = $8736; - break; - }; - var $8727 = $8729; - break; - }; - return $8727; - }); - var $8725 = $8726; - } else { - var $8780 = Parser$fail("Not a do-block."); - var $8725 = $8780; - }; - var $8725 = $8725(_reply$pst$33); - return $8725; - })())); - return $8724; - })())); - var $8717 = $8723; - break; - }; - var $8709 = $8717; - break; - }; - var $8707 = $8709; - break; - }; - return $8707; - })())); - return $8706; - })())); - var $8699 = $8705; - break; - }; - var $8692 = $8699; - break; - }; - var $8690 = $8692; - break; - }; - return $8690; - })); - - function Kind$Term$extract_name$(_term$1) { - var _term$2 = Kind$Term$reduce$(_term$1, Kind$Map$new); - var self = _term$2; - switch (self._) { - case 'Kind.Term.var': - var $8782 = self.name; - var $8783 = $8782; - var $8781 = $8783; - break; - case 'Kind.Term.ref': - var $8784 = self.name; - var $8785 = $8784; - var $8781 = $8785; - break; - case 'Kind.Term.typ': - case 'Kind.Term.all': - case 'Kind.Term.lam': - case 'Kind.Term.app': - case 'Kind.Term.let': - case 'Kind.Term.def': - case 'Kind.Term.ann': - case 'Kind.Term.gol': - case 'Kind.Term.hol': - case 'Kind.Term.nat': - case 'Kind.Term.chr': - case 'Kind.Term.str': - case 'Kind.Term.num': - case 'Kind.Term.cse': - case 'Kind.Term.new': - case 'Kind.Term.get': - case 'Kind.Term.set': - case 'Kind.Term.ope': - case 'Kind.Term.ori': - var $8786 = "self"; - var $8781 = $8786; - break; - }; - return $8781; - }; - const Kind$Term$extract_name = x0 => Kind$Term$extract_name$(x0); - - function Kind$Ann$new$(_name$1, _term$2, _type$3) { - var $8787 = ({ - _: 'Kind.Ann.new', - 'name': _name$1, - 'term': _term$2, - 'type': _type$3 - }); - return $8787; - }; - const Kind$Ann$new = x0 => x1 => x2 => Kind$Ann$new$(x0, x1, x2); - const Kind$Parser$case$with = Parser$choice(List$cons$((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8789 = self.err; - var _reply$7 = Kind$Parser$text$("with ", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $8791 = self.err; - var self = $8789; - switch (self._) { - case 'Maybe.some': - var $8793 = self.value; - var $8794 = Parser$Reply$error$(Parser$Error$combine$($8793, $8791)); - var $8792 = $8794; - break; - case 'Maybe.none': - var $8795 = Parser$Reply$error$($8791); - var $8792 = $8795; - break; - }; - var $8790 = $8792; - break; - case 'Parser.Reply.value': - var $8796 = self.pst; - var self = $8796; - switch (self._) { - case 'Parser.State.new': - var $8798 = self.err; - var $8799 = self.nam; - var $8800 = self.ini; - var $8801 = self.idx; - var $8802 = self.str; - var $8803 = ((console.log(("FALTANDO " + $8802)), (_$15 => { - var $8804 = ((console.log(("VALUE " + $8799)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($8789, $8798), $8799, $8800, $8801, $8802); - var $8805 = Parser$many$((_pst$18 => { - var self = _pst$18; - switch (self._) { - case 'Parser.State.new': - var $8807 = self.err; - var _reply$24 = Kind$Parser$name1$(_pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $8809 = self.err; - var self = $8807; - switch (self._) { - case 'Maybe.some': - var $8811 = self.value; - var $8812 = Parser$Reply$error$(Parser$Error$combine$($8811, $8809)); - var $8810 = $8812; - break; - case 'Maybe.none': - var $8813 = Parser$Reply$error$($8809); - var $8810 = $8813; - break; - }; - var $8808 = $8810; - break; - case 'Parser.Reply.value': - var $8814 = self.pst; - var $8815 = self.val; - var self = $8814; - switch (self._) { - case 'Parser.State.new': - var $8817 = self.err; - var $8818 = self.nam; - var $8819 = self.ini; - var $8820 = self.idx; - var $8821 = self.str; - var $8822 = ((console.log(("FALTANDO " + $8821)), (_$32 => { - var $8823 = ((console.log(("VALUE " + $8818)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8807, $8817), $8818, $8819, $8820, $8821); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $8825 = self.err; - var _reply$40 = Parser$maybe$((_pst$40 => { - var self = _pst$40; - switch (self._) { - case 'Parser.State.new': - var $8828 = self.err; - var _reply$46 = Kind$Parser$text$(":", _pst$40); - var self = _reply$46; - switch (self._) { - case 'Parser.Reply.error': - var $8830 = self.err; - var self = $8828; - switch (self._) { - case 'Maybe.some': - var $8832 = self.value; - var $8833 = Parser$Reply$error$(Parser$Error$combine$($8832, $8830)); - var $8831 = $8833; - break; - case 'Maybe.none': - var $8834 = Parser$Reply$error$($8830); - var $8831 = $8834; - break; - }; - var $8829 = $8831; - break; - case 'Parser.Reply.value': - var $8835 = self.pst; - var self = $8835; - switch (self._) { - case 'Parser.State.new': - var $8837 = self.err; - var $8838 = self.nam; - var $8839 = self.ini; - var $8840 = self.idx; - var $8841 = self.str; - var $8842 = ((console.log(("FALTANDO " + $8841)), (_$54 => { - var $8843 = ((console.log(("VALUE " + $8838)), (_$55 => { - var _reply$pst$56 = Parser$State$new$(Parser$Error$maybe_combine$($8828, $8837), $8838, $8839, $8840, $8841); - var self = _reply$pst$56; - switch (self._) { - case 'Parser.State.new': - var $8845 = self.err; - var _reply$62 = Kind$Parser$term(_reply$pst$56); - var self = _reply$62; - switch (self._) { - case 'Parser.Reply.error': - var $8847 = self.err; - var self = $8845; - switch (self._) { - case 'Maybe.some': - var $8849 = self.value; - var $8850 = Parser$Reply$error$(Parser$Error$combine$($8849, $8847)); - var $8848 = $8850; - break; - case 'Maybe.none': - var $8851 = Parser$Reply$error$($8847); - var $8848 = $8851; - break; - }; - var $8846 = $8848; - break; - case 'Parser.Reply.value': - var $8852 = self.pst; - var $8853 = self.val; - var self = $8852; - switch (self._) { - case 'Parser.State.new': - var $8855 = self.err; - var $8856 = self.nam; - var $8857 = self.ini; - var $8858 = self.idx; - var $8859 = self.str; - var $8860 = ((console.log(("FALTANDO " + $8859)), (_$70 => { - var $8861 = ((console.log(("VALUE " + $8856)), (_$71 => { - var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($8845, $8855), $8856, $8857, $8858, $8859); - var self = _reply$pst$72; - switch (self._) { - case 'Parser.State.new': - var $8863 = self.err; - var _reply$78 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$72); - var self = _reply$78; - switch (self._) { - case 'Parser.Reply.error': - var $8865 = self.err; - var self = $8863; - switch (self._) { - case 'Maybe.some': - var $8867 = self.value; - var $8868 = Parser$Reply$error$(Parser$Error$combine$($8867, $8865)); - var $8866 = $8868; - break; - case 'Maybe.none': - var $8869 = Parser$Reply$error$($8865); - var $8866 = $8869; - break; - }; - var $8864 = $8866; - break; - case 'Parser.Reply.value': - var $8870 = self.pst; - var self = $8870; - switch (self._) { - case 'Parser.State.new': - var $8872 = self.err; - var $8873 = self.nam; - var $8874 = self.ini; - var $8875 = self.idx; - var $8876 = self.str; - var $8877 = ((console.log(("FALTANDO " + $8876)), (_$86 => { - var $8878 = ((console.log(("VALUE " + $8873)), (_$87 => { - var _reply$pst$88 = Parser$State$new$(Parser$Error$maybe_combine$($8863, $8872), $8873, $8874, $8875, $8876); - var $8879 = Parser$Reply$value$(_reply$pst$88, $8853); - return $8879; - })())); - return $8878; - })())); - var $8871 = $8877; - break; - }; - var $8864 = $8871; - break; - }; - var $8862 = $8864; - break; - }; - return $8862; - })())); - return $8861; - })())); - var $8854 = $8860; - break; - }; - var $8846 = $8854; - break; - }; - var $8844 = $8846; - break; - }; - return $8844; - })())); - return $8843; - })())); - var $8836 = $8842; - break; - }; - var $8829 = $8836; - break; - }; - var $8827 = $8829; - break; - }; - return $8827; - }), _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $8880 = self.err; - var self = $8825; - switch (self._) { - case 'Maybe.some': - var $8882 = self.value; - var $8883 = Parser$Reply$error$(Parser$Error$combine$($8882, $8880)); - var $8881 = $8883; - break; - case 'Maybe.none': - var $8884 = Parser$Reply$error$($8880); - var $8881 = $8884; - break; - }; - var $8826 = $8881; - break; - case 'Parser.Reply.value': - var $8885 = self.pst; - var $8886 = self.val; - var self = $8885; - switch (self._) { - case 'Parser.State.new': - var $8888 = self.err; - var $8889 = self.nam; - var $8890 = self.ini; - var $8891 = self.idx; - var $8892 = self.str; - var $8893 = ((console.log(("FALTANDO " + $8892)), (_$48 => { - var $8894 = ((console.log(("VALUE " + $8889)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8825, $8888), $8889, $8890, $8891, $8892); - var $8895 = Parser$Reply$value$(_reply$pst$50, Kind$Ann$new$($8815, Kind$Term$ref$($8815), $8886)); - return $8895; - })())); - return $8894; - })())); - var $8887 = $8893; - break; - }; - var $8826 = $8887; - break; - }; - var $8824 = $8826; - break; - }; - return $8824; - })())); - return $8823; - })())); - var $8816 = $8822; - break; - }; - var $8808 = $8816; - break; - }; - var $8806 = $8808; - break; - }; - return $8806; - }))(_reply$pst$17); - return $8805; - })())); - return $8804; - })())); - var $8797 = $8803; - break; - }; - var $8790 = $8797; - break; - }; - var $8788 = $8790; - break; - }; - return $8788; - }), List$cons$((_pst$1 => { - var $8896 = Parser$Reply$value$(_pst$1, List$nil); - return $8896; - }), List$nil))); - - function Kind$Parser$case$case$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $8898 = self.err; - var _reply$7 = Parser$try$(Kind$Parser$text(":"), _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $8900 = self.err; - var self = $8898; - switch (self._) { - case 'Maybe.some': - var $8902 = self.value; - var $8903 = Parser$Reply$error$(Parser$Error$combine$($8902, $8900)); - var $8901 = $8903; - break; - case 'Maybe.none': - var $8904 = Parser$Reply$error$($8900); - var $8901 = $8904; - break; - }; - var $8899 = $8901; - break; - case 'Parser.Reply.value': - var $8905 = self.pst; - var $8906 = self.val; - var self = $8905; - switch (self._) { - case 'Parser.State.new': - var $8908 = self.err; - var $8909 = self.nam; - var $8910 = self.ini; - var $8911 = self.idx; - var $8912 = self.str; - var $8913 = ((console.log(("FALTANDO " + $8912)), (_$15 => { - var $8914 = ((console.log(("VALUE " + $8909)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($8898, $8908), $8909, $8910, $8911, $8912); - var self = $8906; - if (self) { - var $8916 = (_pst$18 => { - var self = _pst$18; - switch (self._) { - case 'Parser.State.new': - var $8918 = self.err; - var _reply$24 = Kind$Parser$spaces(_pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $8920 = self.err; - var self = $8918; - switch (self._) { - case 'Maybe.some': - var $8922 = self.value; - var $8923 = Parser$Reply$error$(Parser$Error$combine$($8922, $8920)); - var $8921 = $8923; - break; - case 'Maybe.none': - var $8924 = Parser$Reply$error$($8920); - var $8921 = $8924; - break; - }; - var $8919 = $8921; - break; - case 'Parser.Reply.value': - var $8925 = self.pst; - var self = $8925; - switch (self._) { - case 'Parser.State.new': - var $8927 = self.err; - var $8928 = self.nam; - var $8929 = self.ini; - var $8930 = self.idx; - var $8931 = self.str; - var $8932 = ((console.log(("FALTANDO " + $8931)), (_$32 => { - var $8933 = ((console.log(("VALUE " + $8928)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8918, $8927), $8928, $8929, $8930, $8931); - var $8934 = Parser$fail$("Expected constructor names.", _reply$pst$34); - return $8934; - })())); - return $8933; - })())); - var $8926 = $8932; - break; - }; - var $8919 = $8926; - break; - }; - var $8917 = $8919; - break; - }; - return $8917; - }); - var $8915 = $8916; - } else { - var $8935 = (_pst$18 => { - var self = _pst$18; - switch (self._) { - case 'Parser.State.new': - var $8937 = self.err; - var _reply$24 = Parser$until$(Kind$Parser$text(":"), Kind$Parser$name1)(_pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $8939 = self.err; - var self = $8937; - switch (self._) { - case 'Maybe.some': - var $8941 = self.value; - var $8942 = Parser$Reply$error$(Parser$Error$combine$($8941, $8939)); - var $8940 = $8942; - break; - case 'Maybe.none': - var $8943 = Parser$Reply$error$($8939); - var $8940 = $8943; - break; - }; - var $8938 = $8940; - break; - case 'Parser.Reply.value': - var $8944 = self.pst; - var $8945 = self.val; - var self = $8944; - switch (self._) { - case 'Parser.State.new': - var $8947 = self.err; - var $8948 = self.nam; - var $8949 = self.ini; - var $8950 = self.idx; - var $8951 = self.str; - var $8952 = ((console.log(("FALTANDO " + $8951)), (_$32 => { - var $8953 = ((console.log(("VALUE " + $8948)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($8937, $8947), $8948, $8949, $8950, $8951); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $8955 = self.err; - var _reply$40 = Kind$Parser$term(_reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $8957 = self.err; - var self = $8955; - switch (self._) { - case 'Maybe.some': - var $8959 = self.value; - var $8960 = Parser$Reply$error$(Parser$Error$combine$($8959, $8957)); - var $8958 = $8960; - break; - case 'Maybe.none': - var $8961 = Parser$Reply$error$($8957); - var $8958 = $8961; - break; - }; - var $8956 = $8958; - break; - case 'Parser.Reply.value': - var $8962 = self.pst; - var $8963 = self.val; - var self = $8962; - switch (self._) { - case 'Parser.State.new': - var $8965 = self.err; - var $8966 = self.nam; - var $8967 = self.ini; - var $8968 = self.idx; - var $8969 = self.str; - var $8970 = ((console.log(("FALTANDO " + $8969)), (_$48 => { - var $8971 = ((console.log(("VALUE " + $8966)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($8955, $8965), $8966, $8967, $8968, $8969); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $8973 = self.err; - var _reply$56 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $8975 = self.err; - var self = $8973; - switch (self._) { - case 'Maybe.some': - var $8977 = self.value; - var $8978 = Parser$Reply$error$(Parser$Error$combine$($8977, $8975)); - var $8976 = $8978; - break; - case 'Maybe.none': - var $8979 = Parser$Reply$error$($8975); - var $8976 = $8979; - break; - }; - var $8974 = $8976; - break; - case 'Parser.Reply.value': - var $8980 = self.pst; - var self = $8980; - switch (self._) { - case 'Parser.State.new': - var $8982 = self.err; - var $8983 = self.nam; - var $8984 = self.ini; - var $8985 = self.idx; - var $8986 = self.str; - var $8987 = ((console.log(("FALTANDO " + $8986)), (_$64 => { - var $8988 = ((console.log(("VALUE " + $8983)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($8973, $8982), $8983, $8984, $8985, $8986); - var $8989 = Parser$Reply$value$(_reply$pst$66, Pair$new$($8945, $8963)); - return $8989; - })())); - return $8988; - })())); - var $8981 = $8987; - break; - }; - var $8974 = $8981; - break; - }; - var $8972 = $8974; - break; - }; - return $8972; - })())); - return $8971; - })())); - var $8964 = $8970; - break; - }; - var $8956 = $8964; - break; - }; - var $8954 = $8956; - break; - }; - return $8954; - })())); - return $8953; - })())); - var $8946 = $8952; - break; - }; - var $8938 = $8946; - break; - }; - var $8936 = $8938; - break; - }; - return $8936; - }); - var $8915 = $8935; - }; - var $8915 = $8915(_reply$pst$17); - return $8915; - })())); - return $8914; - })())); - var $8907 = $8913; - break; - }; - var $8899 = $8907; - break; - }; - var $8897 = $8899; - break; - }; - return $8897; - }; - const Kind$Parser$case$case = x0 => Kind$Parser$case$case$(x0); - - function Parser$append_error$(_parse$2, _msg$3, _pst$4) { - var _reply$5 = _parse$2(_pst$4); - var self = _reply$5; - switch (self._) { - case 'Parser.Reply.error': - var $8991 = self.err; - var self = $8991; - switch (self._) { - case 'Parser.Error.new': - var $8993 = self.nam; - var $8994 = self.ini; - var $8995 = self.idx; - var $8996 = self.msg; - var $8997 = Parser$Reply$fail$($8993, $8994, $8995, ($8996 + _msg$3)); - var $8992 = $8997; - break; - }; - var $8990 = $8992; - break; - case 'Parser.Reply.value': - var $8998 = _reply$5; - var $8990 = $8998; - break; - }; - return $8990; - }; - const Parser$append_error = x0 => x1 => x2 => Parser$append_error$(x0, x1, x2); - - function Kind$Parser$case$group$(_dflt$1, _cses$2) { - var self = _cses$2; - switch (self._) { - case 'List.cons': - var $9000 = self.head; - var $9001 = self.tail; - var _map$5 = Kind$Parser$case$group$(_dflt$1, $9001); - var self = $9000; - switch (self._) { - case 'Pair.new': - var $9003 = self.fst; - var $9004 = self.snd; - var self = $9003; - switch (self._) { - case 'List.cons': - var $9006 = self.head; - var $9007 = self.tail; - var _rest$10 = Maybe$default$(Kind$Map$get$($9006, _map$5), List$nil); - var $9008 = Kind$Map$set$($9006, List$cons$(Pair$new$($9007, $9004), _rest$10), _map$5); - var $9005 = $9008; - break; - case 'List.nil': - var $9009 = _map$5; - var $9005 = $9009; - break; - }; - var $9002 = $9005; - break; - }; - var $8999 = $9002; - break; - case 'List.nil': - var self = _dflt$1; - switch (self._) { - case 'Maybe.some': - var $9011 = self.value; - var $9012 = Kind$Map$set$("_", List$cons$(Pair$new$(List$nil, $9011), List$nil), Kind$Map$new); - var $9010 = $9012; - break; - case 'Maybe.none': - var $9013 = Kind$Map$new; - var $9010 = $9013; - break; - }; - var $8999 = $9010; - break; - }; - return $8999; - }; - const Kind$Parser$case$group = x0 => x1 => Kind$Parser$case$group$(x0, x1); - - function BitsMap$map$(_fn$3, _map$4) { - var self = _map$4; - switch (self._) { - case 'BitsMap.tie': - var $9015 = self.val; - var $9016 = self.lft; - var $9017 = self.rgt; - var self = $9015; - switch (self._) { - case 'Maybe.some': - var $9019 = self.value; - var $9020 = Maybe$some$(_fn$3($9019)); - var _val$8 = $9020; - break; - case 'Maybe.none': - var $9021 = Maybe$none; - var _val$8 = $9021; - break; - }; - var _lft$9 = BitsMap$map$(_fn$3, $9016); - var _rgt$10 = BitsMap$map$(_fn$3, $9017); - var $9018 = BitsMap$tie$(_val$8, _lft$9, _rgt$10); - var $9014 = $9018; - break; - case 'BitsMap.new': - var $9022 = BitsMap$new; - var $9014 = $9022; - break; - }; - return $9014; - }; - const BitsMap$map = x0 => x1 => BitsMap$map$(x0, x1); - - function Kind$Map$map$(_fn$3, _map$4) { - var $9023 = BitsMap$map$(_fn$3, _map$4); - return $9023; - }; - const Kind$Map$map = x0 => x1 => Kind$Map$map$(x0, x1); - - function Kind$Parser$case$build$(_vals$1, _wyth$2, _cses$3, _dflt$4, _moti$5) { - var self = _vals$1; - switch (self._) { - case 'List.cons': - var $9025 = self.head; - var $9026 = self.tail; - var _group$8 = Kind$Parser$case$group$(_dflt$4, _cses$3); - var _name$9 = Pair$fst$($9025); - var _expr$10 = Pair$snd$($9025); - var _cses$11 = Kind$Map$map$((_cses$11 => { - var $9028 = Kind$Parser$case$build$($9026, _wyth$2, _cses$11, _dflt$4, _moti$5); - return $9028; - }), _group$8); - var $9027 = Kind$Term$cse$(Bits$e, _expr$10, _name$9, _wyth$2, _cses$11, _moti$5); - var $9024 = $9027; - break; - case 'List.nil': - var self = _cses$3; - switch (self._) { - case 'List.cons': - var $9030 = self.head; - var $9031 = Pair$snd$($9030); - var $9029 = $9031; - break; - case 'List.nil': - var $9032 = Kind$Term$ref$("missing_case"); - var $9029 = $9032; - break; - }; - var $9024 = $9029; - break; - }; - return $9024; - }; - const Kind$Parser$case$build = x0 => x1 => x2 => x3 => x4 => Kind$Parser$case$build$(x0, x1, x2, x3, x4); - const Kind$Parser$case = Kind$Parser$block("case")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $9034 = self.err; - var _reply$7 = Kind$Parser$text$("case ", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $9036 = self.err; - var self = $9034; - switch (self._) { - case 'Maybe.some': - var $9038 = self.value; - var $9039 = Parser$Reply$error$(Parser$Error$combine$($9038, $9036)); - var $9037 = $9039; - break; - case 'Maybe.none': - var $9040 = Parser$Reply$error$($9036); - var $9037 = $9040; - break; - }; - var $9035 = $9037; - break; - case 'Parser.Reply.value': - var $9041 = self.pst; - var self = $9041; - switch (self._) { - case 'Parser.State.new': - var $9043 = self.err; - var $9044 = self.nam; - var $9045 = self.ini; - var $9046 = self.idx; - var $9047 = self.str; - var $9048 = ((console.log(("FALTANDO " + $9047)), (_$15 => { - var $9049 = ((console.log(("VALUE " + $9044)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9034, $9043), $9044, $9045, $9046, $9047); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $9051 = self.err; - var _reply$23 = Parser$many1$((_pst$23 => { - var self = _pst$23; - switch (self._) { - case 'Parser.State.new': - var $9054 = self.err; - var _reply$29 = Parser$avoiding$(Kind$Parser$text("{"), Kind$Parser$term, _pst$23); - var self = _reply$29; - switch (self._) { - case 'Parser.Reply.error': - var $9056 = self.err; - var self = $9054; - switch (self._) { - case 'Maybe.some': - var $9058 = self.value; - var $9059 = Parser$Reply$error$(Parser$Error$combine$($9058, $9056)); - var $9057 = $9059; - break; - case 'Maybe.none': - var $9060 = Parser$Reply$error$($9056); - var $9057 = $9060; - break; - }; - var $9055 = $9057; - break; - case 'Parser.Reply.value': - var $9061 = self.pst; - var $9062 = self.val; - var self = $9061; - switch (self._) { - case 'Parser.State.new': - var $9064 = self.err; - var $9065 = self.nam; - var $9066 = self.ini; - var $9067 = self.idx; - var $9068 = self.str; - var $9069 = ((console.log(("FALTANDO " + $9068)), (_$37 => { - var $9070 = ((console.log(("VALUE " + $9065)), (_$38 => { - var _reply$pst$39 = Parser$State$new$(Parser$Error$maybe_combine$($9054, $9064), $9065, $9066, $9067, $9068); - var self = _reply$pst$39; - switch (self._) { - case 'Parser.State.new': - var $9072 = self.err; - var _reply$45 = Parser$maybe$((_pst$45 => { - var self = _pst$45; - switch (self._) { - case 'Parser.State.new': - var $9075 = self.err; - var _reply$51 = Kind$Parser$text$("as", _pst$45); - var self = _reply$51; - switch (self._) { - case 'Parser.Reply.error': - var $9077 = self.err; - var self = $9075; - switch (self._) { - case 'Maybe.some': - var $9079 = self.value; - var $9080 = Parser$Reply$error$(Parser$Error$combine$($9079, $9077)); - var $9078 = $9080; - break; - case 'Maybe.none': - var $9081 = Parser$Reply$error$($9077); - var $9078 = $9081; - break; - }; - var $9076 = $9078; - break; - case 'Parser.Reply.value': - var $9082 = self.pst; - var self = $9082; - switch (self._) { - case 'Parser.State.new': - var $9084 = self.err; - var $9085 = self.nam; - var $9086 = self.ini; - var $9087 = self.idx; - var $9088 = self.str; - var $9089 = ((console.log(("FALTANDO " + $9088)), (_$59 => { - var $9090 = ((console.log(("VALUE " + $9085)), (_$60 => { - var _reply$pst$61 = Parser$State$new$(Parser$Error$maybe_combine$($9075, $9084), $9085, $9086, $9087, $9088); - var self = _reply$pst$61; - switch (self._) { - case 'Parser.State.new': - var $9092 = self.err; - var _reply$67 = Kind$Parser$name1$(_reply$pst$61); - var self = _reply$67; - switch (self._) { - case 'Parser.Reply.error': - var $9094 = self.err; - var self = $9092; - switch (self._) { - case 'Maybe.some': - var $9096 = self.value; - var $9097 = Parser$Reply$error$(Parser$Error$combine$($9096, $9094)); - var $9095 = $9097; - break; - case 'Maybe.none': - var $9098 = Parser$Reply$error$($9094); - var $9095 = $9098; - break; - }; - var $9093 = $9095; - break; - case 'Parser.Reply.value': - var $9099 = self.pst; - var $9100 = self.val; - var self = $9099; - switch (self._) { - case 'Parser.State.new': - var $9102 = self.err; - var $9103 = self.nam; - var $9104 = self.ini; - var $9105 = self.idx; - var $9106 = self.str; - var $9107 = ((console.log(("FALTANDO " + $9106)), (_$75 => { - var $9108 = ((console.log(("VALUE " + $9103)), (_$76 => { - var _reply$pst$77 = Parser$State$new$(Parser$Error$maybe_combine$($9092, $9102), $9103, $9104, $9105, $9106); - var self = _reply$pst$77; - switch (self._) { - case 'Parser.State.new': - var $9110 = self.err; - var _reply$83 = Parser$maybe$(Kind$Parser$text(";"), _reply$pst$77); - var self = _reply$83; - switch (self._) { - case 'Parser.Reply.error': - var $9112 = self.err; - var self = $9110; - switch (self._) { - case 'Maybe.some': - var $9114 = self.value; - var $9115 = Parser$Reply$error$(Parser$Error$combine$($9114, $9112)); - var $9113 = $9115; - break; - case 'Maybe.none': - var $9116 = Parser$Reply$error$($9112); - var $9113 = $9116; - break; - }; - var $9111 = $9113; - break; - case 'Parser.Reply.value': - var $9117 = self.pst; - var self = $9117; - switch (self._) { - case 'Parser.State.new': - var $9119 = self.err; - var $9120 = self.nam; - var $9121 = self.ini; - var $9122 = self.idx; - var $9123 = self.str; - var $9124 = ((console.log(("FALTANDO " + $9123)), (_$91 => { - var $9125 = ((console.log(("VALUE " + $9120)), (_$92 => { - var _reply$pst$93 = Parser$State$new$(Parser$Error$maybe_combine$($9110, $9119), $9120, $9121, $9122, $9123); - var $9126 = Parser$Reply$value$(_reply$pst$93, $9100); - return $9126; - })())); - return $9125; - })())); - var $9118 = $9124; - break; - }; - var $9111 = $9118; - break; - }; - var $9109 = $9111; - break; - }; - return $9109; - })())); - return $9108; - })())); - var $9101 = $9107; - break; - }; - var $9093 = $9101; - break; - }; - var $9091 = $9093; - break; - }; - return $9091; - })())); - return $9090; - })())); - var $9083 = $9089; - break; - }; - var $9076 = $9083; - break; - }; - var $9074 = $9076; - break; - }; - return $9074; - }), _reply$pst$39); - var self = _reply$45; - switch (self._) { - case 'Parser.Reply.error': - var $9127 = self.err; - var self = $9072; - switch (self._) { - case 'Maybe.some': - var $9129 = self.value; - var $9130 = Parser$Reply$error$(Parser$Error$combine$($9129, $9127)); - var $9128 = $9130; - break; - case 'Maybe.none': - var $9131 = Parser$Reply$error$($9127); - var $9128 = $9131; - break; - }; - var $9073 = $9128; - break; - case 'Parser.Reply.value': - var $9132 = self.pst; - var $9133 = self.val; - var self = $9132; - switch (self._) { - case 'Parser.State.new': - var $9135 = self.err; - var $9136 = self.nam; - var $9137 = self.ini; - var $9138 = self.idx; - var $9139 = self.str; - var $9140 = ((console.log(("FALTANDO " + $9139)), (_$53 => { - var $9141 = ((console.log(("VALUE " + $9136)), (_$54 => { - var _reply$pst$55 = Parser$State$new$(Parser$Error$maybe_combine$($9072, $9135), $9136, $9137, $9138, $9139); - var _name$56 = Maybe$default$($9133, Kind$Term$extract_name$($9062)); - var $9142 = Parser$Reply$value$(_reply$pst$55, Pair$new$(_name$56, $9062)); - return $9142; - })())); - return $9141; - })())); - var $9134 = $9140; - break; - }; - var $9073 = $9134; - break; - }; - var $9071 = $9073; - break; - }; - return $9071; - })())); - return $9070; - })())); - var $9063 = $9069; - break; - }; - var $9055 = $9063; - break; - }; - var $9053 = $9055; - break; - }; - return $9053; - }), _reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $9143 = self.err; - var self = $9051; - switch (self._) { - case 'Maybe.some': - var $9145 = self.value; - var $9146 = Parser$Reply$error$(Parser$Error$combine$($9145, $9143)); - var $9144 = $9146; - break; - case 'Maybe.none': - var $9147 = Parser$Reply$error$($9143); - var $9144 = $9147; - break; - }; - var $9052 = $9144; - break; - case 'Parser.Reply.value': - var $9148 = self.pst; - var $9149 = self.val; - var self = $9148; - switch (self._) { - case 'Parser.State.new': - var $9151 = self.err; - var $9152 = self.nam; - var $9153 = self.ini; - var $9154 = self.idx; - var $9155 = self.str; - var $9156 = ((console.log(("FALTANDO " + $9155)), (_$31 => { - var $9157 = ((console.log(("VALUE " + $9152)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9051, $9151), $9152, $9153, $9154, $9155); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $9159 = self.err; - var _reply$39 = Kind$Parser$case$with(_reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $9161 = self.err; - var self = $9159; - switch (self._) { - case 'Maybe.some': - var $9163 = self.value; - var $9164 = Parser$Reply$error$(Parser$Error$combine$($9163, $9161)); - var $9162 = $9164; - break; - case 'Maybe.none': - var $9165 = Parser$Reply$error$($9161); - var $9162 = $9165; - break; - }; - var $9160 = $9162; - break; - case 'Parser.Reply.value': - var $9166 = self.pst; - var $9167 = self.val; - var self = $9166; - switch (self._) { - case 'Parser.State.new': - var $9169 = self.err; - var $9170 = self.nam; - var $9171 = self.ini; - var $9172 = self.idx; - var $9173 = self.str; - var $9174 = ((console.log(("FALTANDO " + $9173)), (_$47 => { - var $9175 = ((console.log(("VALUE " + $9170)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9159, $9169), $9170, $9171, $9172, $9173); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $9177 = self.err; - var _reply$55 = Kind$Parser$items$("{", Kind$Parser$case$case, "}")(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $9179 = self.err; - var self = $9177; - switch (self._) { - case 'Maybe.some': - var $9181 = self.value; - var $9182 = Parser$Reply$error$(Parser$Error$combine$($9181, $9179)); - var $9180 = $9182; - break; - case 'Maybe.none': - var $9183 = Parser$Reply$error$($9179); - var $9180 = $9183; - break; - }; - var $9178 = $9180; - break; - case 'Parser.Reply.value': - var $9184 = self.pst; - var $9185 = self.val; - var self = $9184; - switch (self._) { - case 'Parser.State.new': - var $9187 = self.err; - var $9188 = self.nam; - var $9189 = self.ini; - var $9190 = self.idx; - var $9191 = self.str; - var $9192 = ((console.log(("FALTANDO " + $9191)), (_$63 => { - var $9193 = ((console.log(("VALUE " + $9188)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($9177, $9187), $9188, $9189, $9190, $9191); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $9195 = self.err; - var _reply$71 = Parser$maybe$(Kind$Parser$text("!"), _reply$pst$65); - var self = _reply$71; - switch (self._) { - case 'Parser.Reply.error': - var $9197 = self.err; - var self = $9195; - switch (self._) { - case 'Maybe.some': - var $9199 = self.value; - var $9200 = Parser$Reply$error$(Parser$Error$combine$($9199, $9197)); - var $9198 = $9200; - break; - case 'Maybe.none': - var $9201 = Parser$Reply$error$($9197); - var $9198 = $9201; - break; - }; - var $9196 = $9198; - break; - case 'Parser.Reply.value': - var $9202 = self.pst; - var $9203 = self.val; - var self = $9202; - switch (self._) { - case 'Parser.State.new': - var $9205 = self.err; - var $9206 = self.nam; - var $9207 = self.ini; - var $9208 = self.idx; - var $9209 = self.str; - var $9210 = ((console.log(("FALTANDO " + $9209)), (_$79 => { - var $9211 = ((console.log(("VALUE " + $9206)), (_$80 => { - var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($9195, $9205), $9206, $9207, $9208, $9209); - var self = _reply$pst$81; - switch (self._) { - case 'Parser.State.new': - var $9213 = self.err; - var _reply$87 = Parser$maybe$((_pst$87 => { - var self = _pst$87; - switch (self._) { - case 'Parser.State.new': - var $9216 = self.err; - var _reply$93 = Kind$Parser$text$("default", _pst$87); - var self = _reply$93; - switch (self._) { - case 'Parser.Reply.error': - var $9218 = self.err; - var self = $9216; - switch (self._) { - case 'Maybe.some': - var $9220 = self.value; - var $9221 = Parser$Reply$error$(Parser$Error$combine$($9220, $9218)); - var $9219 = $9221; - break; - case 'Maybe.none': - var $9222 = Parser$Reply$error$($9218); - var $9219 = $9222; - break; - }; - var $9217 = $9219; - break; - case 'Parser.Reply.value': - var $9223 = self.pst; - var self = $9223; - switch (self._) { - case 'Parser.State.new': - var $9225 = self.err; - var $9226 = self.nam; - var $9227 = self.ini; - var $9228 = self.idx; - var $9229 = self.str; - var $9230 = ((console.log(("FALTANDO " + $9229)), (_$101 => { - var $9231 = ((console.log(("VALUE " + $9226)), (_$102 => { - var _reply$pst$103 = Parser$State$new$(Parser$Error$maybe_combine$($9216, $9225), $9226, $9227, $9228, $9229); - var self = _reply$pst$103; - switch (self._) { - case 'Parser.State.new': - var $9233 = self.err; - var _reply$109 = Kind$Parser$term(_reply$pst$103); - var self = _reply$109; - switch (self._) { - case 'Parser.Reply.error': - var $9235 = self.err; - var self = $9233; - switch (self._) { - case 'Maybe.some': - var $9237 = self.value; - var $9238 = Parser$Reply$error$(Parser$Error$combine$($9237, $9235)); - var $9236 = $9238; - break; - case 'Maybe.none': - var $9239 = Parser$Reply$error$($9235); - var $9236 = $9239; - break; - }; - var $9234 = $9236; - break; - case 'Parser.Reply.value': - var $9240 = self.pst; - var $9241 = self.val; - var self = $9240; - switch (self._) { - case 'Parser.State.new': - var $9243 = self.err; - var $9244 = self.nam; - var $9245 = self.ini; - var $9246 = self.idx; - var $9247 = self.str; - var $9248 = ((console.log(("FALTANDO " + $9247)), (_$117 => { - var $9249 = ((console.log(("VALUE " + $9244)), (_$118 => { - var _reply$pst$119 = Parser$State$new$(Parser$Error$maybe_combine$($9233, $9243), $9244, $9245, $9246, $9247); - var $9250 = Parser$Reply$value$(_reply$pst$119, $9241); - return $9250; - })())); - return $9249; - })())); - var $9242 = $9248; - break; - }; - var $9234 = $9242; - break; - }; - var $9232 = $9234; - break; - }; - return $9232; - })())); - return $9231; - })())); - var $9224 = $9230; - break; - }; - var $9217 = $9224; - break; - }; - var $9215 = $9217; - break; - }; - return $9215; - }), _reply$pst$81); - var self = _reply$87; - switch (self._) { - case 'Parser.Reply.error': - var $9251 = self.err; - var self = $9213; - switch (self._) { - case 'Maybe.some': - var $9253 = self.value; - var $9254 = Parser$Reply$error$(Parser$Error$combine$($9253, $9251)); - var $9252 = $9254; - break; - case 'Maybe.none': - var $9255 = Parser$Reply$error$($9251); - var $9252 = $9255; - break; - }; - var $9214 = $9252; - break; - case 'Parser.Reply.value': - var $9256 = self.pst; - var $9257 = self.val; - var self = $9256; - switch (self._) { - case 'Parser.State.new': - var $9259 = self.err; - var $9260 = self.nam; - var $9261 = self.ini; - var $9262 = self.idx; - var $9263 = self.str; - var $9264 = ((console.log(("FALTANDO " + $9263)), (_$95 => { - var $9265 = ((console.log(("VALUE " + $9260)), (_$96 => { - var _reply$pst$97 = Parser$State$new$(Parser$Error$maybe_combine$($9213, $9259), $9260, $9261, $9262, $9263); - var self = _reply$pst$97; - switch (self._) { - case 'Parser.State.new': - var $9267 = self.err; - var _reply$103 = Parser$maybe$((_pst$103 => { - var self = _pst$103; - switch (self._) { - case 'Parser.State.new': - var $9270 = self.err; - var _reply$109 = Kind$Parser$text$(":", _pst$103); - var self = _reply$109; - switch (self._) { - case 'Parser.Reply.error': - var $9272 = self.err; - var self = $9270; - switch (self._) { - case 'Maybe.some': - var $9274 = self.value; - var $9275 = Parser$Reply$error$(Parser$Error$combine$($9274, $9272)); - var $9273 = $9275; - break; - case 'Maybe.none': - var $9276 = Parser$Reply$error$($9272); - var $9273 = $9276; - break; - }; - var $9271 = $9273; - break; - case 'Parser.Reply.value': - var $9277 = self.pst; - var self = $9277; - switch (self._) { - case 'Parser.State.new': - var $9279 = self.err; - var $9280 = self.nam; - var $9281 = self.ini; - var $9282 = self.idx; - var $9283 = self.str; - var $9284 = ((console.log(("FALTANDO " + $9283)), (_$117 => { - var $9285 = ((console.log(("VALUE " + $9280)), (_$118 => { - var _reply$pst$119 = Parser$State$new$(Parser$Error$maybe_combine$($9270, $9279), $9280, $9281, $9282, $9283); - var $9286 = Parser$append_error$(Kind$Parser$term, "\u{a}Inside motive.", _reply$pst$119); - return $9286; - })())); - return $9285; - })())); - var $9278 = $9284; - break; - }; - var $9271 = $9278; - break; - }; - var $9269 = $9271; - break; - }; - return $9269; - }), _reply$pst$97); - var self = _reply$103; - switch (self._) { - case 'Parser.Reply.error': - var $9287 = self.err; - var self = $9267; - switch (self._) { - case 'Maybe.some': - var $9289 = self.value; - var $9290 = Parser$Reply$error$(Parser$Error$combine$($9289, $9287)); - var $9288 = $9290; - break; - case 'Maybe.none': - var $9291 = Parser$Reply$error$($9287); - var $9288 = $9291; - break; - }; - var $9268 = $9288; - break; - case 'Parser.Reply.value': - var $9292 = self.pst; - var $9293 = self.val; - var self = $9292; - switch (self._) { - case 'Parser.State.new': - var $9295 = self.err; - var $9296 = self.nam; - var $9297 = self.ini; - var $9298 = self.idx; - var $9299 = self.str; - var $9300 = ((console.log(("FALTANDO " + $9299)), (_$111 => { - var $9301 = ((console.log(("VALUE " + $9296)), (_$112 => { - var _reply$pst$113 = Parser$State$new$(Parser$Error$maybe_combine$($9267, $9295), $9296, $9297, $9298, $9299); - var self = $9293; - switch (self._) { - case 'Maybe.some': - var $9303 = self.value; - var $9304 = Maybe$some$($9303); - var _moti$114 = $9304; - break; - case 'Maybe.none': - var self = $9203; - switch (self._) { - case 'Maybe.none': - var $9306 = Maybe$some$(Kind$Term$hol$(Bits$e)); - var $9305 = $9306; - break; - case 'Maybe.some': - var $9307 = Maybe$none; - var $9305 = $9307; - break; - }; - var _moti$114 = $9305; - break; - }; - var $9302 = Parser$Reply$value$(_reply$pst$113, Kind$Parser$case$build$($9149, $9167, $9185, $9257, _moti$114)); - return $9302; - })())); - return $9301; - })())); - var $9294 = $9300; - break; - }; - var $9268 = $9294; - break; - }; - var $9266 = $9268; - break; - }; - return $9266; - })())); - return $9265; - })())); - var $9258 = $9264; - break; - }; - var $9214 = $9258; - break; - }; - var $9212 = $9214; - break; - }; - return $9212; - })())); - return $9211; - })())); - var $9204 = $9210; - break; - }; - var $9196 = $9204; - break; - }; - var $9194 = $9196; - break; - }; - return $9194; - })())); - return $9193; - })())); - var $9186 = $9192; - break; - }; - var $9178 = $9186; - break; - }; - var $9176 = $9178; - break; - }; - return $9176; - })())); - return $9175; - })())); - var $9168 = $9174; - break; - }; - var $9160 = $9168; - break; - }; - var $9158 = $9160; - break; - }; - return $9158; - })())); - return $9157; - })())); - var $9150 = $9156; - break; - }; - var $9052 = $9150; - break; - }; - var $9050 = $9052; - break; - }; - return $9050; - })())); - return $9049; - })())); - var $9042 = $9048; - break; - }; - var $9035 = $9042; - break; - }; - var $9033 = $9035; - break; - }; - return $9033; - })); - const Kind$Parser$without = Kind$Parser$block("without")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $9309 = self.err; - var _reply$7 = Kind$Parser$text$("without ", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $9311 = self.err; - var self = $9309; - switch (self._) { - case 'Maybe.some': - var $9313 = self.value; - var $9314 = Parser$Reply$error$(Parser$Error$combine$($9313, $9311)); - var $9312 = $9314; - break; - case 'Maybe.none': - var $9315 = Parser$Reply$error$($9311); - var $9312 = $9315; - break; - }; - var $9310 = $9312; - break; - case 'Parser.Reply.value': - var $9316 = self.pst; - var self = $9316; - switch (self._) { - case 'Parser.State.new': - var $9318 = self.err; - var $9319 = self.nam; - var $9320 = self.ini; - var $9321 = self.idx; - var $9322 = self.str; - var $9323 = ((console.log(("FALTANDO " + $9322)), (_$15 => { - var $9324 = ((console.log(("VALUE " + $9319)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9309, $9318), $9319, $9320, $9321, $9322); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $9326 = self.err; - var _reply$23 = Kind$Parser$name1$(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $9328 = self.err; - var self = $9326; - switch (self._) { - case 'Maybe.some': - var $9330 = self.value; - var $9331 = Parser$Reply$error$(Parser$Error$combine$($9330, $9328)); - var $9329 = $9331; - break; - case 'Maybe.none': - var $9332 = Parser$Reply$error$($9328); - var $9329 = $9332; - break; - }; - var $9327 = $9329; - break; - case 'Parser.Reply.value': - var $9333 = self.pst; - var $9334 = self.val; - var self = $9333; - switch (self._) { - case 'Parser.State.new': - var $9336 = self.err; - var $9337 = self.nam; - var $9338 = self.ini; - var $9339 = self.idx; - var $9340 = self.str; - var $9341 = ((console.log(("FALTANDO " + $9340)), (_$31 => { - var $9342 = ((console.log(("VALUE " + $9337)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9326, $9336), $9337, $9338, $9339, $9340); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $9344 = self.err; - var _reply$39 = Kind$Parser$text$(":", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $9346 = self.err; - var self = $9344; - switch (self._) { - case 'Maybe.some': - var $9348 = self.value; - var $9349 = Parser$Reply$error$(Parser$Error$combine$($9348, $9346)); - var $9347 = $9349; - break; - case 'Maybe.none': - var $9350 = Parser$Reply$error$($9346); - var $9347 = $9350; - break; - }; - var $9345 = $9347; - break; - case 'Parser.Reply.value': - var $9351 = self.pst; - var self = $9351; - switch (self._) { - case 'Parser.State.new': - var $9353 = self.err; - var $9354 = self.nam; - var $9355 = self.ini; - var $9356 = self.idx; - var $9357 = self.str; - var $9358 = ((console.log(("FALTANDO " + $9357)), (_$47 => { - var $9359 = ((console.log(("VALUE " + $9354)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9344, $9353), $9354, $9355, $9356, $9357); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $9361 = self.err; - var _reply$55 = Kind$Parser$term(_reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $9363 = self.err; - var self = $9361; - switch (self._) { - case 'Maybe.some': - var $9365 = self.value; - var $9366 = Parser$Reply$error$(Parser$Error$combine$($9365, $9363)); - var $9364 = $9366; - break; - case 'Maybe.none': - var $9367 = Parser$Reply$error$($9363); - var $9364 = $9367; - break; - }; - var $9362 = $9364; - break; - case 'Parser.Reply.value': - var $9368 = self.pst; - var $9369 = self.val; - var self = $9368; - switch (self._) { - case 'Parser.State.new': - var $9371 = self.err; - var $9372 = self.nam; - var $9373 = self.ini; - var $9374 = self.idx; - var $9375 = self.str; - var $9376 = ((console.log(("FALTANDO " + $9375)), (_$63 => { - var $9377 = ((console.log(("VALUE " + $9372)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($9361, $9371), $9372, $9373, $9374, $9375); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $9379 = self.err; - var _reply$71 = Kind$Parser$term(_reply$pst$65); - var self = _reply$71; - switch (self._) { - case 'Parser.Reply.error': - var $9381 = self.err; - var self = $9379; - switch (self._) { - case 'Maybe.some': - var $9383 = self.value; - var $9384 = Parser$Reply$error$(Parser$Error$combine$($9383, $9381)); - var $9382 = $9384; - break; - case 'Maybe.none': - var $9385 = Parser$Reply$error$($9381); - var $9382 = $9385; - break; - }; - var $9380 = $9382; - break; - case 'Parser.Reply.value': - var $9386 = self.pst; - var $9387 = self.val; - var self = $9386; - switch (self._) { - case 'Parser.State.new': - var $9389 = self.err; - var $9390 = self.nam; - var $9391 = self.ini; - var $9392 = self.idx; - var $9393 = self.str; - var $9394 = ((console.log(("FALTANDO " + $9393)), (_$79 => { - var $9395 = ((console.log(("VALUE " + $9390)), (_$80 => { - var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($9379, $9389), $9390, $9391, $9392, $9393); - var _term$82 = Kind$Term$ref$($9334); - var _term$83 = Kind$Term$app$(_term$82, Kind$Term$lam$("", (_x$83 => { - var $9397 = Kind$Term$hol$(Bits$e); - return $9397; - }))); - var _term$84 = Kind$Term$app$(_term$83, $9369); - var _term$85 = Kind$Term$app$(_term$84, Kind$Term$lam$($9334, (_x$85 => { - var $9398 = $9387; - return $9398; - }))); - var $9396 = Parser$Reply$value$(_reply$pst$81, _term$85); - return $9396; - })())); - return $9395; - })())); - var $9388 = $9394; - break; - }; - var $9380 = $9388; - break; - }; - var $9378 = $9380; - break; - }; - return $9378; - })())); - return $9377; - })())); - var $9370 = $9376; - break; - }; - var $9362 = $9370; - break; - }; - var $9360 = $9362; - break; - }; - return $9360; - })())); - return $9359; - })())); - var $9352 = $9358; - break; - }; - var $9345 = $9352; - break; - }; - var $9343 = $9345; - break; - }; - return $9343; - })())); - return $9342; - })())); - var $9335 = $9341; - break; - }; - var $9327 = $9335; - break; - }; - var $9325 = $9327; - break; - }; - return $9325; - })())); - return $9324; - })())); - var $9317 = $9323; - break; - }; - var $9310 = $9317; - break; - }; - var $9308 = $9310; - break; - }; - return $9308; - })); - - function Kind$Parser$switch$case$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $9400 = self.err; - var _reply$7 = Kind$Parser$term(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $9402 = self.err; - var self = $9400; - switch (self._) { - case 'Maybe.some': - var $9404 = self.value; - var $9405 = Parser$Reply$error$(Parser$Error$combine$($9404, $9402)); - var $9403 = $9405; - break; - case 'Maybe.none': - var $9406 = Parser$Reply$error$($9402); - var $9403 = $9406; - break; - }; - var $9401 = $9403; - break; - case 'Parser.Reply.value': - var $9407 = self.pst; - var $9408 = self.val; - var self = $9407; - switch (self._) { - case 'Parser.State.new': - var $9410 = self.err; - var $9411 = self.nam; - var $9412 = self.ini; - var $9413 = self.idx; - var $9414 = self.str; - var $9415 = ((console.log(("FALTANDO " + $9414)), (_$15 => { - var $9416 = ((console.log(("VALUE " + $9411)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9400, $9410), $9411, $9412, $9413, $9414); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $9418 = self.err; - var _reply$23 = Kind$Parser$text$(":", _reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $9420 = self.err; - var self = $9418; - switch (self._) { - case 'Maybe.some': - var $9422 = self.value; - var $9423 = Parser$Reply$error$(Parser$Error$combine$($9422, $9420)); - var $9421 = $9423; - break; - case 'Maybe.none': - var $9424 = Parser$Reply$error$($9420); - var $9421 = $9424; - break; - }; - var $9419 = $9421; - break; - case 'Parser.Reply.value': - var $9425 = self.pst; - var self = $9425; - switch (self._) { - case 'Parser.State.new': - var $9427 = self.err; - var $9428 = self.nam; - var $9429 = self.ini; - var $9430 = self.idx; - var $9431 = self.str; - var $9432 = ((console.log(("FALTANDO " + $9431)), (_$31 => { - var $9433 = ((console.log(("VALUE " + $9428)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9418, $9427), $9428, $9429, $9430, $9431); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $9435 = self.err; - var _reply$39 = Kind$Parser$term(_reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $9437 = self.err; - var self = $9435; - switch (self._) { - case 'Maybe.some': - var $9439 = self.value; - var $9440 = Parser$Reply$error$(Parser$Error$combine$($9439, $9437)); - var $9438 = $9440; - break; - case 'Maybe.none': - var $9441 = Parser$Reply$error$($9437); - var $9438 = $9441; - break; - }; - var $9436 = $9438; - break; - case 'Parser.Reply.value': - var $9442 = self.pst; - var $9443 = self.val; - var self = $9442; - switch (self._) { - case 'Parser.State.new': - var $9445 = self.err; - var $9446 = self.nam; - var $9447 = self.ini; - var $9448 = self.idx; - var $9449 = self.str; - var $9450 = ((console.log(("FALTANDO " + $9449)), (_$47 => { - var $9451 = ((console.log(("VALUE " + $9446)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9435, $9445), $9446, $9447, $9448, $9449); - var $9452 = Parser$Reply$value$(_reply$pst$49, Pair$new$($9408, $9443)); - return $9452; - })())); - return $9451; - })())); - var $9444 = $9450; - break; - }; - var $9436 = $9444; - break; - }; - var $9434 = $9436; - break; - }; - return $9434; - })())); - return $9433; - })())); - var $9426 = $9432; - break; - }; - var $9419 = $9426; - break; - }; - var $9417 = $9419; - break; - }; - return $9417; - })())); - return $9416; - })())); - var $9409 = $9415; - break; - }; - var $9401 = $9409; - break; - }; - var $9399 = $9401; - break; - }; - return $9399; - }; - const Kind$Parser$switch$case = x0 => Kind$Parser$switch$case$(x0); - const Kind$Parser$switch = Kind$Parser$block("switch")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $9454 = self.err; - var _reply$7 = Kind$Parser$text$("switch", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $9456 = self.err; - var self = $9454; - switch (self._) { - case 'Maybe.some': - var $9458 = self.value; - var $9459 = Parser$Reply$error$(Parser$Error$combine$($9458, $9456)); - var $9457 = $9459; - break; - case 'Maybe.none': - var $9460 = Parser$Reply$error$($9456); - var $9457 = $9460; - break; - }; - var $9455 = $9457; - break; - case 'Parser.Reply.value': - var $9461 = self.pst; - var self = $9461; - switch (self._) { - case 'Parser.State.new': - var $9463 = self.err; - var $9464 = self.nam; - var $9465 = self.ini; - var $9466 = self.idx; - var $9467 = self.str; - var $9468 = ((console.log(("FALTANDO " + $9467)), (_$15 => { - var $9469 = ((console.log(("VALUE " + $9464)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9454, $9463), $9464, $9465, $9466, $9467); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $9471 = self.err; - var _reply$23 = Kind$Parser$term(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $9473 = self.err; - var self = $9471; - switch (self._) { - case 'Maybe.some': - var $9475 = self.value; - var $9476 = Parser$Reply$error$(Parser$Error$combine$($9475, $9473)); - var $9474 = $9476; - break; - case 'Maybe.none': - var $9477 = Parser$Reply$error$($9473); - var $9474 = $9477; - break; - }; - var $9472 = $9474; - break; - case 'Parser.Reply.value': - var $9478 = self.pst; - var $9479 = self.val; - var self = $9478; - switch (self._) { - case 'Parser.State.new': - var $9481 = self.err; - var $9482 = self.nam; - var $9483 = self.ini; - var $9484 = self.idx; - var $9485 = self.str; - var $9486 = ((console.log(("FALTANDO " + $9485)), (_$31 => { - var $9487 = ((console.log(("VALUE " + $9482)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9471, $9481), $9482, $9483, $9484, $9485); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $9489 = self.err; - var _reply$39 = Kind$Parser$items$("{", Kind$Parser$switch$case, "}")(_reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $9491 = self.err; - var self = $9489; - switch (self._) { - case 'Maybe.some': - var $9493 = self.value; - var $9494 = Parser$Reply$error$(Parser$Error$combine$($9493, $9491)); - var $9492 = $9494; - break; - case 'Maybe.none': - var $9495 = Parser$Reply$error$($9491); - var $9492 = $9495; - break; - }; - var $9490 = $9492; - break; - case 'Parser.Reply.value': - var $9496 = self.pst; - var $9497 = self.val; - var self = $9496; - switch (self._) { - case 'Parser.State.new': - var $9499 = self.err; - var $9500 = self.nam; - var $9501 = self.ini; - var $9502 = self.idx; - var $9503 = self.str; - var $9504 = ((console.log(("FALTANDO " + $9503)), (_$47 => { - var $9505 = ((console.log(("VALUE " + $9500)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9489, $9499), $9500, $9501, $9502, $9503); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $9507 = self.err; - var _reply$55 = Kind$Parser$text$("default", _reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $9509 = self.err; - var self = $9507; - switch (self._) { - case 'Maybe.some': - var $9511 = self.value; - var $9512 = Parser$Reply$error$(Parser$Error$combine$($9511, $9509)); - var $9510 = $9512; - break; - case 'Maybe.none': - var $9513 = Parser$Reply$error$($9509); - var $9510 = $9513; - break; - }; - var $9508 = $9510; - break; - case 'Parser.Reply.value': - var $9514 = self.pst; - var self = $9514; - switch (self._) { - case 'Parser.State.new': - var $9516 = self.err; - var $9517 = self.nam; - var $9518 = self.ini; - var $9519 = self.idx; - var $9520 = self.str; - var $9521 = ((console.log(("FALTANDO " + $9520)), (_$63 => { - var $9522 = ((console.log(("VALUE " + $9517)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($9507, $9516), $9517, $9518, $9519, $9520); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $9524 = self.err; - var _reply$71 = Kind$Parser$term(_reply$pst$65); - var self = _reply$71; - switch (self._) { - case 'Parser.Reply.error': - var $9526 = self.err; - var self = $9524; - switch (self._) { - case 'Maybe.some': - var $9528 = self.value; - var $9529 = Parser$Reply$error$(Parser$Error$combine$($9528, $9526)); - var $9527 = $9529; - break; - case 'Maybe.none': - var $9530 = Parser$Reply$error$($9526); - var $9527 = $9530; - break; - }; - var $9525 = $9527; - break; - case 'Parser.Reply.value': - var $9531 = self.pst; - var $9532 = self.val; - var self = $9531; - switch (self._) { - case 'Parser.State.new': - var $9534 = self.err; - var $9535 = self.nam; - var $9536 = self.ini; - var $9537 = self.idx; - var $9538 = self.str; - var $9539 = ((console.log(("FALTANDO " + $9538)), (_$79 => { - var $9540 = ((console.log(("VALUE " + $9535)), (_$80 => { - var _reply$pst$81 = Parser$State$new$(Parser$Error$maybe_combine$($9524, $9534), $9535, $9536, $9537, $9538); - var _term$82 = List$fold$($9497, $9532, (_cse$82 => _rest$83 => { - var self = _cse$82; - switch (self._) { - case 'Pair.new': - var $9543 = self.fst; - var $9544 = self.snd; - var _term$86 = Kind$Term$app$($9479, $9543); - var _term$87 = Kind$Term$app$(_term$86, Kind$Term$lam$("", (_x$87 => { - var $9546 = Kind$Term$hol$(Bits$e); - return $9546; - }))); - var _term$88 = Kind$Term$app$(_term$87, $9544); - var _term$89 = Kind$Term$app$(_term$88, _rest$83); - var $9545 = _term$89; - var $9542 = $9545; - break; - }; - return $9542; - })); - var $9541 = Parser$Reply$value$(_reply$pst$81, _term$82); - return $9541; - })())); - return $9540; - })())); - var $9533 = $9539; - break; - }; - var $9525 = $9533; - break; - }; - var $9523 = $9525; - break; - }; - return $9523; - })())); - return $9522; - })())); - var $9515 = $9521; - break; - }; - var $9508 = $9515; - break; - }; - var $9506 = $9508; - break; - }; - return $9506; - })())); - return $9505; - })())); - var $9498 = $9504; - break; - }; - var $9490 = $9498; - break; - }; - var $9488 = $9490; - break; - }; - return $9488; - })())); - return $9487; - })())); - var $9480 = $9486; - break; - }; - var $9472 = $9480; - break; - }; - var $9470 = $9472; - break; - }; - return $9470; - })())); - return $9469; - })())); - var $9462 = $9468; - break; - }; - var $9455 = $9462; - break; - }; - var $9453 = $9455; - break; - }; - return $9453; - })); - - function Bits$tail$(_a$1) { - var self = _a$1; - switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { - case 'o': - var $9548 = self.slice(0, -1); - var $9549 = $9548; - var $9547 = $9549; - break; - case 'i': - var $9550 = self.slice(0, -1); - var $9551 = $9550; - var $9547 = $9551; - break; - case 'e': - var $9552 = Bits$e; - var $9547 = $9552; - break; - }; - return $9547; - }; - const Bits$tail = x0 => Bits$tail$(x0); - - function Bits$inc$(_a$1) { - var self = _a$1; - switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { - case 'o': - var $9554 = self.slice(0, -1); - var $9555 = ($9554 + '1'); - var $9553 = $9555; - break; - case 'i': - var $9556 = self.slice(0, -1); - var $9557 = (Bits$inc$($9556) + '0'); - var $9553 = $9557; - break; - case 'e': - var $9558 = (Bits$e + '1'); - var $9553 = $9558; - break; - }; - return $9553; - }; - const Bits$inc = x0 => Bits$inc$(x0); - const Nat$to_bits = a0 => (nat_to_bits(a0)); - - function Maybe$is_some$(_m$2) { - var self = _m$2; - switch (self._) { - case 'Maybe.none': - var $9560 = Bool$false; - var $9559 = $9560; - break; - case 'Maybe.some': - var $9561 = Bool$true; - var $9559 = $9561; - break; - }; - return $9559; - }; - const Maybe$is_some = x0 => Maybe$is_some$(x0); - - function Kind$Term$gol$(_name$1, _dref$2, _verb$3) { - var $9562 = ({ - _: 'Kind.Term.gol', - 'name': _name$1, - 'dref': _dref$2, - 'verb': _verb$3 - }); - return $9562; - }; - const Kind$Term$gol = x0 => x1 => x2 => Kind$Term$gol$(x0, x1, x2); - const Kind$Parser$goal = Kind$Parser$block("goal")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $9564 = self.err; - var _reply$7 = Kind$Parser$text$("?", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $9566 = self.err; - var self = $9564; - switch (self._) { - case 'Maybe.some': - var $9568 = self.value; - var $9569 = Parser$Reply$error$(Parser$Error$combine$($9568, $9566)); - var $9567 = $9569; - break; - case 'Maybe.none': - var $9570 = Parser$Reply$error$($9566); - var $9567 = $9570; - break; - }; - var $9565 = $9567; - break; - case 'Parser.Reply.value': - var $9571 = self.pst; - var self = $9571; - switch (self._) { - case 'Parser.State.new': - var $9573 = self.err; - var $9574 = self.nam; - var $9575 = self.ini; - var $9576 = self.idx; - var $9577 = self.str; - var $9578 = ((console.log(("FALTANDO " + $9577)), (_$15 => { - var $9579 = ((console.log(("VALUE " + $9574)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9564, $9573), $9574, $9575, $9576, $9577); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $9581 = self.err; - var _reply$23 = Kind$Parser$name$(_reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $9583 = self.err; - var self = $9581; - switch (self._) { - case 'Maybe.some': - var $9585 = self.value; - var $9586 = Parser$Reply$error$(Parser$Error$combine$($9585, $9583)); - var $9584 = $9586; - break; - case 'Maybe.none': - var $9587 = Parser$Reply$error$($9583); - var $9584 = $9587; - break; - }; - var $9582 = $9584; - break; - case 'Parser.Reply.value': - var $9588 = self.pst; - var $9589 = self.val; - var self = $9588; - switch (self._) { - case 'Parser.State.new': - var $9591 = self.err; - var $9592 = self.nam; - var $9593 = self.ini; - var $9594 = self.idx; - var $9595 = self.str; - var $9596 = ((console.log(("FALTANDO " + $9595)), (_$31 => { - var $9597 = ((console.log(("VALUE " + $9592)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9581, $9591), $9592, $9593, $9594, $9595); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $9599 = self.err; - var _reply$39 = Parser$many$((_pst$39 => { - var self = _pst$39; - switch (self._) { - case 'Parser.State.new': - var $9602 = self.err; - var _reply$45 = Kind$Parser$text$("-", _pst$39); - var self = _reply$45; - switch (self._) { - case 'Parser.Reply.error': - var $9604 = self.err; - var self = $9602; - switch (self._) { - case 'Maybe.some': - var $9606 = self.value; - var $9607 = Parser$Reply$error$(Parser$Error$combine$($9606, $9604)); - var $9605 = $9607; - break; - case 'Maybe.none': - var $9608 = Parser$Reply$error$($9604); - var $9605 = $9608; - break; - }; - var $9603 = $9605; - break; - case 'Parser.Reply.value': - var $9609 = self.pst; - var self = $9609; - switch (self._) { - case 'Parser.State.new': - var $9611 = self.err; - var $9612 = self.nam; - var $9613 = self.ini; - var $9614 = self.idx; - var $9615 = self.str; - var $9616 = ((console.log(("FALTANDO " + $9615)), (_$53 => { - var $9617 = ((console.log(("VALUE " + $9612)), (_$54 => { - var _reply$pst$55 = Parser$State$new$(Parser$Error$maybe_combine$($9602, $9611), $9612, $9613, $9614, $9615); - var self = _reply$pst$55; - switch (self._) { - case 'Parser.State.new': - var $9619 = self.err; - var _reply$61 = Parser$nat$(_reply$pst$55); - var self = _reply$61; - switch (self._) { - case 'Parser.Reply.error': - var $9621 = self.err; - var self = $9619; - switch (self._) { - case 'Maybe.some': - var $9623 = self.value; - var $9624 = Parser$Reply$error$(Parser$Error$combine$($9623, $9621)); - var $9622 = $9624; - break; - case 'Maybe.none': - var $9625 = Parser$Reply$error$($9621); - var $9622 = $9625; - break; - }; - var $9620 = $9622; - break; - case 'Parser.Reply.value': - var $9626 = self.pst; - var $9627 = self.val; - var self = $9626; - switch (self._) { - case 'Parser.State.new': - var $9629 = self.err; - var $9630 = self.nam; - var $9631 = self.ini; - var $9632 = self.idx; - var $9633 = self.str; - var $9634 = ((console.log(("FALTANDO " + $9633)), (_$69 => { - var $9635 = ((console.log(("VALUE " + $9630)), (_$70 => { - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($9619, $9629), $9630, $9631, $9632, $9633); - var _bits$72 = Bits$reverse$(Bits$tail$(Bits$reverse$((nat_to_bits($9627))))); - var $9636 = Parser$Reply$value$(_reply$pst$71, _bits$72); - return $9636; - })())); - return $9635; - })())); - var $9628 = $9634; - break; - }; - var $9620 = $9628; - break; - }; - var $9618 = $9620; - break; - }; - return $9618; - })())); - return $9617; - })())); - var $9610 = $9616; - break; - }; - var $9603 = $9610; - break; - }; - var $9601 = $9603; - break; - }; - return $9601; - }))(_reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $9637 = self.err; - var self = $9599; - switch (self._) { - case 'Maybe.some': - var $9639 = self.value; - var $9640 = Parser$Reply$error$(Parser$Error$combine$($9639, $9637)); - var $9638 = $9640; - break; - case 'Maybe.none': - var $9641 = Parser$Reply$error$($9637); - var $9638 = $9641; - break; - }; - var $9600 = $9638; - break; - case 'Parser.Reply.value': - var $9642 = self.pst; - var $9643 = self.val; - var self = $9642; - switch (self._) { - case 'Parser.State.new': - var $9645 = self.err; - var $9646 = self.nam; - var $9647 = self.ini; - var $9648 = self.idx; - var $9649 = self.str; - var $9650 = ((console.log(("FALTANDO " + $9649)), (_$47 => { - var $9651 = ((console.log(("VALUE " + $9646)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($9599, $9645), $9646, $9647, $9648, $9649); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $9653 = self.err; - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $9655 = self.err; - var _reply$60 = Parser$maybe$(Parser$text("-"), _reply$pst$49); - var self = _reply$60; - switch (self._) { - case 'Parser.Reply.error': - var $9657 = self.err; - var self = $9655; - switch (self._) { - case 'Maybe.some': - var $9659 = self.value; - var $9660 = Parser$Reply$error$(Parser$Error$combine$($9659, $9657)); - var $9658 = $9660; - break; - case 'Maybe.none': - var $9661 = Parser$Reply$error$($9657); - var $9658 = $9661; - break; - }; - var $9656 = $9658; - break; - case 'Parser.Reply.value': - var $9662 = self.pst; - var $9663 = self.val; - var self = $9662; - switch (self._) { - case 'Parser.State.new': - var $9665 = self.err; - var $9666 = self.nam; - var $9667 = self.ini; - var $9668 = self.idx; - var $9669 = self.str; - var $9670 = ((console.log(("FALTANDO " + $9669)), (_$68 => { - var $9671 = ((console.log(("VALUE " + $9666)), (_$69 => { - var _reply$pst$70 = Parser$State$new$(Parser$Error$maybe_combine$($9655, $9665), $9666, $9667, $9668, $9669); - var $9672 = Parser$Reply$value$(_reply$pst$70, Maybe$is_some$($9663)); - return $9672; - })())); - return $9671; - })())); - var $9664 = $9670; - break; - }; - var $9656 = $9664; - break; - }; - var _reply$55 = $9656; - break; - }; - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $9673 = self.err; - var self = $9653; - switch (self._) { - case 'Maybe.some': - var $9675 = self.value; - var $9676 = Parser$Reply$error$(Parser$Error$combine$($9675, $9673)); - var $9674 = $9676; - break; - case 'Maybe.none': - var $9677 = Parser$Reply$error$($9673); - var $9674 = $9677; - break; - }; - var $9654 = $9674; - break; - case 'Parser.Reply.value': - var $9678 = self.pst; - var $9679 = self.val; - var self = $9678; - switch (self._) { - case 'Parser.State.new': - var $9681 = self.err; - var $9682 = self.nam; - var $9683 = self.ini; - var $9684 = self.idx; - var $9685 = self.str; - var $9686 = ((console.log(("FALTANDO " + $9685)), (_$63 => { - var $9687 = ((console.log(("VALUE " + $9682)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($9653, $9681), $9682, $9683, $9684, $9685); - var $9688 = Parser$Reply$value$(_reply$pst$65, Kind$Term$gol$($9589, $9643, $9679)); - return $9688; - })())); - return $9687; - })())); - var $9680 = $9686; - break; - }; - var $9654 = $9680; - break; - }; - var $9652 = $9654; - break; - }; - return $9652; - })())); - return $9651; - })())); - var $9644 = $9650; - break; - }; - var $9600 = $9644; - break; - }; - var $9598 = $9600; - break; - }; - return $9598; - })())); - return $9597; - })())); - var $9590 = $9596; - break; - }; - var $9582 = $9590; - break; - }; - var $9580 = $9582; - break; - }; - return $9580; - })())); - return $9579; - })())); - var $9572 = $9578; - break; - }; - var $9565 = $9572; - break; - }; - var $9563 = $9565; - break; - }; - return $9563; - })); - const Kind$Parser$hole = Kind$Parser$block("hole")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $9690 = self.err; - var _reply$7 = Kind$Parser$text$("_", _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $9692 = self.err; - var self = $9690; - switch (self._) { - case 'Maybe.some': - var $9694 = self.value; - var $9695 = Parser$Reply$error$(Parser$Error$combine$($9694, $9692)); - var $9693 = $9695; - break; - case 'Maybe.none': - var $9696 = Parser$Reply$error$($9692); - var $9693 = $9696; - break; - }; - var $9691 = $9693; - break; - case 'Parser.Reply.value': - var $9697 = self.pst; - var self = $9697; - switch (self._) { - case 'Parser.State.new': - var $9699 = self.err; - var $9700 = self.nam; - var $9701 = self.ini; - var $9702 = self.idx; - var $9703 = self.str; - var $9704 = ((console.log(("FALTANDO " + $9703)), (_$15 => { - var $9705 = ((console.log(("VALUE " + $9700)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9690, $9699), $9700, $9701, $9702, $9703); - var $9706 = Parser$Reply$value$(_reply$pst$17, Kind$Term$hol$(Bits$e)); - return $9706; - })())); - return $9705; - })())); - var $9698 = $9704; - break; - }; - var $9691 = $9698; - break; - }; - var $9689 = $9691; - break; - }; - return $9689; - })); - - function Kind$Parser$float$sign$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $9708 = self.nam; - var $9709 = self.ini; - var $9710 = self.idx; - var $9711 = self.str; - var self = $9711; - if (self.length === 0) { - var $9713 = Parser$Reply$fail$($9708, $9709, $9710, "Expected \'+\' or \'-\'."); - var $9712 = $9713; - } else { - var $9714 = self.charCodeAt(0); - var $9715 = self.slice(1); - var self = (($9714 === 43) || ($9714 === 45)); - if (self) { - var $9717 = Parser$Reply$value$(_pst$1, $9714); - var $9716 = $9717; - } else { - var $9718 = Parser$Reply$fail$($9708, $9709, $9710, "Expected \'+\' ou \'-\'."); - var $9716 = $9718; - }; - var $9712 = $9716; - }; - var $9707 = $9712; - break; - }; - return $9707; - }; - const Kind$Parser$float$sign = x0 => Kind$Parser$float$sign$(x0); - - function List$any$(_cond$2, _list$3) { - var List$any$ = (_cond$2, _list$3) => ({ - ctr: 'TCO', - arg: [_cond$2, _list$3] - }); - var List$any = _cond$2 => _list$3 => List$any$(_cond$2, _list$3); - var arg = [_cond$2, _list$3]; - while (true) { - let [_cond$2, _list$3] = arg; - var R = (() => { - var self = _list$3; - switch (self._) { - case 'List.cons': - var $9719 = self.head; - var $9720 = self.tail; - var self = _cond$2($9719); - if (self) { - var $9722 = Bool$true; - var $9721 = $9722; - } else { - var $9723 = List$any$(_cond$2, $9720); - var $9721 = $9723; - }; - return $9721; - case 'List.nil': - var $9724 = Bool$false; - return $9724; - }; - })(); - if (R.ctr === 'TCO') arg = R.arg; - else return R; - } - }; - const List$any = x0 => x1 => List$any$(x0, x1); - - function Kind$Parser$float$str_digit$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $9726 = self.err; - var $9727 = self.nam; - var $9728 = self.ini; - var $9729 = self.idx; - var $9730 = self.str; - var self = $9730; - if (self.length === 0) { - var $9732 = Parser$Reply$fail$($9727, $9728, $9729, "Not a digit."); - var $9731 = $9732; - } else { - var $9733 = self.charCodeAt(0); - var $9734 = self.slice(1); - var _digits$9 = List$cons$(48, List$cons$(49, List$cons$(50, List$cons$(51, List$cons$(52, List$cons$(52, List$cons$(53, List$cons$(54, List$cons$(55, List$cons$(56, List$cons$(57, List$nil))))))))))); - var _pst$10 = Parser$State$new$($9726, $9727, $9728, Nat$succ$($9729), $9734); - var self = List$any$(a1 => ($9733 === a1), _digits$9); - if (self) { - var $9736 = Parser$Reply$value$(_pst$10, $9733); - var $9735 = $9736; - } else { - var $9737 = Parser$Reply$fail$($9727, $9728, $9729, "Not a digit."); - var $9735 = $9737; - }; - var $9731 = $9735; - }; - var $9725 = $9731; - break; - }; - return $9725; - }; - const Kind$Parser$float$str_digit = x0 => Kind$Parser$float$str_digit$(x0); - - function String$from_list$(_xs$1) { - var self = _xs$1; - switch (self._) { - case 'List.cons': - var $9739 = self.head; - var $9740 = self.tail; - var $9741 = String$cons$($9739, String$from_list$($9740)); - var $9738 = $9741; - break; - case 'List.nil': - var $9742 = String$nil; - var $9738 = $9742; - break; - }; - return $9738; - }; - const String$from_list = x0 => String$from_list$(x0); - const Kind$Parser$float$64 = Kind$Parser$block("float")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $9744 = self.err; - var _reply$7 = Parser$maybe$(Kind$Parser$float$sign, _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $9746 = self.err; - var self = $9744; - switch (self._) { - case 'Maybe.some': - var $9748 = self.value; - var $9749 = Parser$Reply$error$(Parser$Error$combine$($9748, $9746)); - var $9747 = $9749; - break; - case 'Maybe.none': - var $9750 = Parser$Reply$error$($9746); - var $9747 = $9750; - break; - }; - var $9745 = $9747; - break; - case 'Parser.Reply.value': - var $9751 = self.pst; - var $9752 = self.val; - var self = $9751; - switch (self._) { - case 'Parser.State.new': - var $9754 = self.err; - var $9755 = self.nam; - var $9756 = self.ini; - var $9757 = self.idx; - var $9758 = self.str; - var $9759 = ((console.log(("FALTANDO " + $9758)), (_$15 => { - var $9760 = ((console.log(("VALUE " + $9755)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9744, $9754), $9755, $9756, $9757, $9758); - var _sign$18 = Maybe$default$($9752, 43); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $9762 = self.err; - var _reply$24 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$17); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $9764 = self.err; - var self = $9762; - switch (self._) { - case 'Maybe.some': - var $9766 = self.value; - var $9767 = Parser$Reply$error$(Parser$Error$combine$($9766, $9764)); - var $9765 = $9767; - break; - case 'Maybe.none': - var $9768 = Parser$Reply$error$($9764); - var $9765 = $9768; - break; - }; - var $9763 = $9765; - break; - case 'Parser.Reply.value': - var $9769 = self.pst; - var $9770 = self.val; - var self = $9769; - switch (self._) { - case 'Parser.State.new': - var $9772 = self.err; - var $9773 = self.nam; - var $9774 = self.ini; - var $9775 = self.idx; - var $9776 = self.str; - var $9777 = ((console.log(("FALTANDO " + $9776)), (_$32 => { - var $9778 = ((console.log(("VALUE " + $9773)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($9762, $9772), $9773, $9774, $9775, $9776); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $9780 = self.err; - var _reply$40 = Parser$text$(".", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $9782 = self.err; - var self = $9780; - switch (self._) { - case 'Maybe.some': - var $9784 = self.value; - var $9785 = Parser$Reply$error$(Parser$Error$combine$($9784, $9782)); - var $9783 = $9785; - break; - case 'Maybe.none': - var $9786 = Parser$Reply$error$($9782); - var $9783 = $9786; - break; - }; - var $9781 = $9783; - break; - case 'Parser.Reply.value': - var $9787 = self.pst; - var self = $9787; - switch (self._) { - case 'Parser.State.new': - var $9789 = self.err; - var $9790 = self.nam; - var $9791 = self.ini; - var $9792 = self.idx; - var $9793 = self.str; - var $9794 = ((console.log(("FALTANDO " + $9793)), (_$48 => { - var $9795 = ((console.log(("VALUE " + $9790)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($9780, $9789), $9790, $9791, $9792, $9793); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $9797 = self.err; - var _reply$56 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $9799 = self.err; - var self = $9797; - switch (self._) { - case 'Maybe.some': - var $9801 = self.value; - var $9802 = Parser$Reply$error$(Parser$Error$combine$($9801, $9799)); - var $9800 = $9802; - break; - case 'Maybe.none': - var $9803 = Parser$Reply$error$($9799); - var $9800 = $9803; - break; - }; - var $9798 = $9800; - break; - case 'Parser.Reply.value': - var $9804 = self.pst; - var $9805 = self.val; - var self = $9804; - switch (self._) { - case 'Parser.State.new': - var $9807 = self.err; - var $9808 = self.nam; - var $9809 = self.ini; - var $9810 = self.idx; - var $9811 = self.str; - var $9812 = ((console.log(("FALTANDO " + $9811)), (_$64 => { - var $9813 = ((console.log(("VALUE " + $9808)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($9797, $9807), $9808, $9809, $9810, $9811); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $9815 = self.err; - var _reply$72 = Parser$text$("#64", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $9817 = self.err; - var self = $9815; - switch (self._) { - case 'Maybe.some': - var $9819 = self.value; - var $9820 = Parser$Reply$error$(Parser$Error$combine$($9819, $9817)); - var $9818 = $9820; - break; - case 'Maybe.none': - var $9821 = Parser$Reply$error$($9817); - var $9818 = $9821; - break; - }; - var $9816 = $9818; - break; - case 'Parser.Reply.value': - var $9822 = self.pst; - var self = $9822; - switch (self._) { - case 'Parser.State.new': - var $9824 = self.err; - var $9825 = self.nam; - var $9826 = self.ini; - var $9827 = self.idx; - var $9828 = self.str; - var $9829 = ((console.log(("FALTANDO " + $9828)), (_$80 => { - var $9830 = ((console.log(("VALUE " + $9825)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($9815, $9824), $9825, $9826, $9827, $9828); - var _float_str$83 = Kind$Term$str$((String$cons$(_sign$18, String$from_list$($9770)) + ("." + String$from_list$($9805)))); - var _conv$84 = Kind$Term$ref$("F64.parse"); - var _term$85 = Kind$Term$app$(_conv$84, _float_str$83); - var $9831 = Parser$Reply$value$(_reply$pst$82, _term$85); - return $9831; - })())); - return $9830; - })())); - var $9823 = $9829; - break; - }; - var $9816 = $9823; - break; - }; - var $9814 = $9816; - break; - }; - return $9814; - })())); - return $9813; - })())); - var $9806 = $9812; - break; - }; - var $9798 = $9806; - break; - }; - var $9796 = $9798; - break; - }; - return $9796; - })())); - return $9795; - })())); - var $9788 = $9794; - break; - }; - var $9781 = $9788; - break; - }; - var $9779 = $9781; - break; - }; - return $9779; - })())); - return $9778; - })())); - var $9771 = $9777; - break; - }; - var $9763 = $9771; - break; - }; - var $9761 = $9763; - break; - }; - return $9761; - })())); - return $9760; - })())); - var $9753 = $9759; - break; - }; - var $9745 = $9753; - break; - }; - var $9743 = $9745; - break; - }; - return $9743; - })); - const Kind$Parser$float$32 = Kind$Parser$block("float")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $9833 = self.err; - var _reply$7 = Parser$maybe$(Kind$Parser$float$sign, _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $9835 = self.err; - var self = $9833; - switch (self._) { - case 'Maybe.some': - var $9837 = self.value; - var $9838 = Parser$Reply$error$(Parser$Error$combine$($9837, $9835)); - var $9836 = $9838; - break; - case 'Maybe.none': - var $9839 = Parser$Reply$error$($9835); - var $9836 = $9839; - break; - }; - var $9834 = $9836; - break; - case 'Parser.Reply.value': - var $9840 = self.pst; - var $9841 = self.val; - var self = $9840; - switch (self._) { - case 'Parser.State.new': - var $9843 = self.err; - var $9844 = self.nam; - var $9845 = self.ini; - var $9846 = self.idx; - var $9847 = self.str; - var $9848 = ((console.log(("FALTANDO " + $9847)), (_$15 => { - var $9849 = ((console.log(("VALUE " + $9844)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9833, $9843), $9844, $9845, $9846, $9847); - var _sign$18 = Maybe$default$($9841, 43); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $9851 = self.err; - var _reply$24 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$17); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $9853 = self.err; - var self = $9851; - switch (self._) { - case 'Maybe.some': - var $9855 = self.value; - var $9856 = Parser$Reply$error$(Parser$Error$combine$($9855, $9853)); - var $9854 = $9856; - break; - case 'Maybe.none': - var $9857 = Parser$Reply$error$($9853); - var $9854 = $9857; - break; - }; - var $9852 = $9854; - break; - case 'Parser.Reply.value': - var $9858 = self.pst; - var $9859 = self.val; - var self = $9858; - switch (self._) { - case 'Parser.State.new': - var $9861 = self.err; - var $9862 = self.nam; - var $9863 = self.ini; - var $9864 = self.idx; - var $9865 = self.str; - var $9866 = ((console.log(("FALTANDO " + $9865)), (_$32 => { - var $9867 = ((console.log(("VALUE " + $9862)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($9851, $9861), $9862, $9863, $9864, $9865); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $9869 = self.err; - var _reply$40 = Parser$text$(".", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $9871 = self.err; - var self = $9869; - switch (self._) { - case 'Maybe.some': - var $9873 = self.value; - var $9874 = Parser$Reply$error$(Parser$Error$combine$($9873, $9871)); - var $9872 = $9874; - break; - case 'Maybe.none': - var $9875 = Parser$Reply$error$($9871); - var $9872 = $9875; - break; - }; - var $9870 = $9872; - break; - case 'Parser.Reply.value': - var $9876 = self.pst; - var self = $9876; - switch (self._) { - case 'Parser.State.new': - var $9878 = self.err; - var $9879 = self.nam; - var $9880 = self.ini; - var $9881 = self.idx; - var $9882 = self.str; - var $9883 = ((console.log(("FALTANDO " + $9882)), (_$48 => { - var $9884 = ((console.log(("VALUE " + $9879)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($9869, $9878), $9879, $9880, $9881, $9882); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $9886 = self.err; - var _reply$56 = Parser$many1$(Kind$Parser$float$str_digit, _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $9888 = self.err; - var self = $9886; - switch (self._) { - case 'Maybe.some': - var $9890 = self.value; - var $9891 = Parser$Reply$error$(Parser$Error$combine$($9890, $9888)); - var $9889 = $9891; - break; - case 'Maybe.none': - var $9892 = Parser$Reply$error$($9888); - var $9889 = $9892; - break; - }; - var $9887 = $9889; - break; - case 'Parser.Reply.value': - var $9893 = self.pst; - var $9894 = self.val; - var self = $9893; - switch (self._) { - case 'Parser.State.new': - var $9896 = self.err; - var $9897 = self.nam; - var $9898 = self.ini; - var $9899 = self.idx; - var $9900 = self.str; - var $9901 = ((console.log(("FALTANDO " + $9900)), (_$64 => { - var $9902 = ((console.log(("VALUE " + $9897)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($9886, $9896), $9897, $9898, $9899, $9900); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $9904 = self.err; - var _reply$72 = Parser$text$("#32", _reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $9906 = self.err; - var self = $9904; - switch (self._) { - case 'Maybe.some': - var $9908 = self.value; - var $9909 = Parser$Reply$error$(Parser$Error$combine$($9908, $9906)); - var $9907 = $9909; - break; - case 'Maybe.none': - var $9910 = Parser$Reply$error$($9906); - var $9907 = $9910; - break; - }; - var $9905 = $9907; - break; - case 'Parser.Reply.value': - var $9911 = self.pst; - var self = $9911; - switch (self._) { - case 'Parser.State.new': - var $9913 = self.err; - var $9914 = self.nam; - var $9915 = self.ini; - var $9916 = self.idx; - var $9917 = self.str; - var $9918 = ((console.log(("FALTANDO " + $9917)), (_$80 => { - var $9919 = ((console.log(("VALUE " + $9914)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($9904, $9913), $9914, $9915, $9916, $9917); - var _float_str$83 = Kind$Term$str$((String$cons$(_sign$18, String$from_list$($9859)) + ("." + String$from_list$($9894)))); - var _conv$84 = Kind$Term$ref$("F32.parse"); - var _term$85 = Kind$Term$app$(_conv$84, _float_str$83); - var $9920 = Parser$Reply$value$(_reply$pst$82, _term$85); - return $9920; - })())); - return $9919; - })())); - var $9912 = $9918; - break; - }; - var $9905 = $9912; - break; - }; - var $9903 = $9905; - break; - }; - return $9903; - })())); - return $9902; - })())); - var $9895 = $9901; - break; - }; - var $9887 = $9895; - break; - }; - var $9885 = $9887; - break; - }; - return $9885; - })())); - return $9884; - })())); - var $9877 = $9883; - break; - }; - var $9870 = $9877; - break; - }; - var $9868 = $9870; - break; - }; - return $9868; - })())); - return $9867; - })())); - var $9860 = $9866; - break; - }; - var $9852 = $9860; - break; - }; - var $9850 = $9852; - break; - }; - return $9850; - })())); - return $9849; - })())); - var $9842 = $9848; - break; - }; - var $9834 = $9842; - break; - }; - var $9832 = $9834; - break; - }; - return $9832; - })); - function Kind$Parser$int_pos$(_pst$1) { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9922 = self.err; + var $8859 = self.err; var _reply$7 = Parser$text$("+", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9924 = self.err; - var self = $9922; + var $8861 = self.err; + var self = $8859; switch (self._) { case 'Maybe.some': - var $9926 = self.value; - var $9927 = Parser$Reply$error$(Parser$Error$combine$($9926, $9924)); - var $9925 = $9927; + var $8863 = self.value; + var $8864 = Parser$Reply$error$(Parser$Error$combine$($8863, $8861)); + var $8862 = $8864; break; case 'Maybe.none': - var $9928 = Parser$Reply$error$($9924); - var $9925 = $9928; + var $8865 = Parser$Reply$error$($8861); + var $8862 = $8865; break; }; - var $9923 = $9925; + var $8860 = $8862; break; case 'Parser.Reply.value': - var $9929 = self.pst; - var self = $9929; + var $8866 = self.pst; + var self = $8866; switch (self._) { case 'Parser.State.new': - var $9931 = self.err; - var $9932 = self.nam; - var $9933 = self.ini; - var $9934 = self.idx; - var $9935 = self.str; - var $9936 = ((console.log(("FALTANDO " + $9935)), (_$15 => { - var $9937 = ((console.log(("VALUE " + $9932)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9922, $9931), $9932, $9933, $9934, $9935); - var self = _reply$pst$17; + var $8868 = self.err; + var $8869 = self.nam; + var $8870 = self.ini; + var $8871 = self.idx; + var $8872 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8859, $8868), $8869, $8870, $8871, $8872); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $8874 = self.err; + var _reply$21 = Parser$many1$(Parser$digit, _reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $9939 = self.err; - var _reply$23 = Parser$many1$(Parser$digit, _reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $8876 = self.err; + var self = $8874; switch (self._) { - case 'Parser.Reply.error': - var $9941 = self.err; - var self = $9939; - switch (self._) { - case 'Maybe.some': - var $9943 = self.value; - var $9944 = Parser$Reply$error$(Parser$Error$combine$($9943, $9941)); - var $9942 = $9944; - break; - case 'Maybe.none': - var $9945 = Parser$Reply$error$($9941); - var $9942 = $9945; - break; - }; - var $9940 = $9942; + case 'Maybe.some': + var $8878 = self.value; + var $8879 = Parser$Reply$error$(Parser$Error$combine$($8878, $8876)); + var $8877 = $8879; break; - case 'Parser.Reply.value': - var $9946 = self.pst; - var $9947 = self.val; - var self = $9946; - switch (self._) { - case 'Parser.State.new': - var $9949 = self.err; - var $9950 = self.nam; - var $9951 = self.ini; - var $9952 = self.idx; - var $9953 = self.str; - var $9954 = ((console.log(("FALTANDO " + $9953)), (_$31 => { - var $9955 = ((console.log(("VALUE " + $9950)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9939, $9949), $9950, $9951, $9952, $9953); - var $9956 = Parser$Reply$value$(_reply$pst$33, Pair$new$(Bool$true, Nat$from_base$(10n, $9947))); - return $9956; - })())); - return $9955; - })())); - var $9948 = $9954; - break; - }; - var $9940 = $9948; + case 'Maybe.none': + var $8880 = Parser$Reply$error$($8876); + var $8877 = $8880; break; }; - var $9938 = $9940; + var $8875 = $8877; + break; + case 'Parser.Reply.value': + var $8881 = self.pst; + var $8882 = self.val; + var self = $8881; + switch (self._) { + case 'Parser.State.new': + var $8884 = self.err; + var $8885 = self.nam; + var $8886 = self.ini; + var $8887 = self.idx; + var $8888 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8874, $8884), $8885, $8886, $8887, $8888); + var $8889 = Parser$Reply$value$(_reply$pst$29, Pair$new$(Bool$true, Nat$from_base$(10n, $8882))); + var $8883 = $8889; + break; + }; + var $8875 = $8883; break; }; - return $9938; - })())); - return $9937; - })())); - var $9930 = $9936; + var $8873 = $8875; + break; + }; + var $8867 = $8873; break; }; - var $9923 = $9930; + var $8860 = $8867; break; }; - var $9921 = $9923; + var $8858 = $8860; break; }; - return $9921; + return $8858; }; const Kind$Parser$int_pos = x0 => Kind$Parser$int_pos$(x0); @@ -31380,284 +27968,254 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $9958 = self.err; + var $8891 = self.err; var _reply$7 = Parser$text$("-", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $9960 = self.err; - var self = $9958; + var $8893 = self.err; + var self = $8891; switch (self._) { case 'Maybe.some': - var $9962 = self.value; - var $9963 = Parser$Reply$error$(Parser$Error$combine$($9962, $9960)); - var $9961 = $9963; + var $8895 = self.value; + var $8896 = Parser$Reply$error$(Parser$Error$combine$($8895, $8893)); + var $8894 = $8896; break; case 'Maybe.none': - var $9964 = Parser$Reply$error$($9960); - var $9961 = $9964; + var $8897 = Parser$Reply$error$($8893); + var $8894 = $8897; break; }; - var $9959 = $9961; + var $8892 = $8894; break; case 'Parser.Reply.value': - var $9965 = self.pst; - var self = $9965; + var $8898 = self.pst; + var self = $8898; switch (self._) { case 'Parser.State.new': - var $9967 = self.err; - var $9968 = self.nam; - var $9969 = self.ini; - var $9970 = self.idx; - var $9971 = self.str; - var $9972 = ((console.log(("FALTANDO " + $9971)), (_$15 => { - var $9973 = ((console.log(("VALUE " + $9968)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9958, $9967), $9968, $9969, $9970, $9971); - var self = _reply$pst$17; + var $8900 = self.err; + var $8901 = self.nam; + var $8902 = self.ini; + var $8903 = self.idx; + var $8904 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($8891, $8900), $8901, $8902, $8903, $8904); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $8906 = self.err; + var _reply$21 = Parser$many1$(Parser$digit, _reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $9975 = self.err; - var _reply$23 = Parser$many1$(Parser$digit, _reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $8908 = self.err; + var self = $8906; switch (self._) { - case 'Parser.Reply.error': - var $9977 = self.err; - var self = $9975; - switch (self._) { - case 'Maybe.some': - var $9979 = self.value; - var $9980 = Parser$Reply$error$(Parser$Error$combine$($9979, $9977)); - var $9978 = $9980; - break; - case 'Maybe.none': - var $9981 = Parser$Reply$error$($9977); - var $9978 = $9981; - break; - }; - var $9976 = $9978; + case 'Maybe.some': + var $8910 = self.value; + var $8911 = Parser$Reply$error$(Parser$Error$combine$($8910, $8908)); + var $8909 = $8911; break; - case 'Parser.Reply.value': - var $9982 = self.pst; - var $9983 = self.val; - var self = $9982; - switch (self._) { - case 'Parser.State.new': - var $9985 = self.err; - var $9986 = self.nam; - var $9987 = self.ini; - var $9988 = self.idx; - var $9989 = self.str; - var $9990 = ((console.log(("FALTANDO " + $9989)), (_$31 => { - var $9991 = ((console.log(("VALUE " + $9986)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9975, $9985), $9986, $9987, $9988, $9989); - var $9992 = Parser$Reply$value$(_reply$pst$33, Pair$new$(Bool$false, Nat$from_base$(10n, $9983))); - return $9992; - })())); - return $9991; - })())); - var $9984 = $9990; - break; - }; - var $9976 = $9984; + case 'Maybe.none': + var $8912 = Parser$Reply$error$($8908); + var $8909 = $8912; break; }; - var $9974 = $9976; + var $8907 = $8909; + break; + case 'Parser.Reply.value': + var $8913 = self.pst; + var $8914 = self.val; + var self = $8913; + switch (self._) { + case 'Parser.State.new': + var $8916 = self.err; + var $8917 = self.nam; + var $8918 = self.ini; + var $8919 = self.idx; + var $8920 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($8906, $8916), $8917, $8918, $8919, $8920); + var $8921 = Parser$Reply$value$(_reply$pst$29, Pair$new$(Bool$false, Nat$from_base$(10n, $8914))); + var $8915 = $8921; + break; + }; + var $8907 = $8915; break; }; - return $9974; - })())); - return $9973; - })())); - var $9966 = $9972; + var $8905 = $8907; + break; + }; + var $8899 = $8905; break; }; - var $9959 = $9966; + var $8892 = $8899; break; }; - var $9957 = $9959; + var $8890 = $8892; break; }; - return $9957; + return $8890; }; const Kind$Parser$int_neg = x0 => Kind$Parser$int_neg$(x0); function Kind$Parser$machine_integer$signed$(_size$1) { - var $9993 = Kind$Parser$block("int")((() => { + var $8922 = Kind$Parser$block("int")((() => { var _size_str$2 = Nat$show$(_size$1); - var $9994 = (_pst$3 => { + var $8923 = (_pst$3 => { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $9996 = self.err; + var $8925 = self.err; var _reply$9 = Kind$Parser$spaces(_pst$3); var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $9998 = self.err; - var self = $9996; + var $8927 = self.err; + var self = $8925; switch (self._) { case 'Maybe.some': - var $10000 = self.value; - var $10001 = Parser$Reply$error$(Parser$Error$combine$($10000, $9998)); - var $9999 = $10001; + var $8929 = self.value; + var $8930 = Parser$Reply$error$(Parser$Error$combine$($8929, $8927)); + var $8928 = $8930; break; case 'Maybe.none': - var $10002 = Parser$Reply$error$($9998); - var $9999 = $10002; + var $8931 = Parser$Reply$error$($8927); + var $8928 = $8931; break; }; - var $9997 = $9999; + var $8926 = $8928; break; case 'Parser.Reply.value': - var $10003 = self.pst; - var self = $10003; + var $8932 = self.pst; + var self = $8932; switch (self._) { case 'Parser.State.new': - var $10005 = self.err; - var $10006 = self.nam; - var $10007 = self.ini; - var $10008 = self.idx; - var $10009 = self.str; - var $10010 = ((console.log(("FALTANDO " + $10009)), (_$17 => { - var $10011 = ((console.log(("VALUE " + $10006)), (_$18 => { - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($9996, $10005), $10006, $10007, $10008, $10009); - var self = _reply$pst$19; + var $8934 = self.err; + var $8935 = self.nam; + var $8936 = self.ini; + var $8937 = self.idx; + var $8938 = self.str; + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($8925, $8934), $8935, $8936, $8937, $8938); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $8940 = self.err; + var _reply$23 = Parser$choice$(List$cons$(Kind$Parser$int_pos, List$cons$(Kind$Parser$int_neg, List$nil)), _reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Parser.State.new': - var $10013 = self.err; - var _reply$25 = Parser$choice$(List$cons$(Kind$Parser$int_pos, List$cons$(Kind$Parser$int_neg, List$nil)), _reply$pst$19); - var self = _reply$25; + case 'Parser.Reply.error': + var $8942 = self.err; + var self = $8940; switch (self._) { - case 'Parser.Reply.error': - var $10015 = self.err; - var self = $10013; - switch (self._) { - case 'Maybe.some': - var $10017 = self.value; - var $10018 = Parser$Reply$error$(Parser$Error$combine$($10017, $10015)); - var $10016 = $10018; - break; - case 'Maybe.none': - var $10019 = Parser$Reply$error$($10015); - var $10016 = $10019; - break; - }; - var $10014 = $10016; + case 'Maybe.some': + var $8944 = self.value; + var $8945 = Parser$Reply$error$(Parser$Error$combine$($8944, $8942)); + var $8943 = $8945; break; - case 'Parser.Reply.value': - var $10020 = self.pst; - var $10021 = self.val; - var self = $10020; - switch (self._) { - case 'Parser.State.new': - var $10023 = self.err; - var $10024 = self.nam; - var $10025 = self.ini; - var $10026 = self.idx; - var $10027 = self.str; - var $10028 = ((console.log(("FALTANDO " + $10027)), (_$33 => { - var $10029 = ((console.log(("VALUE " + $10024)), (_$34 => { - var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($10013, $10023), $10024, $10025, $10026, $10027); - var self = _reply$pst$35; - switch (self._) { - case 'Parser.State.new': - var $10031 = self.err; - var _reply$41 = Parser$text$(("#" + _size_str$2), _reply$pst$35); - var self = _reply$41; - switch (self._) { - case 'Parser.Reply.error': - var $10033 = self.err; - var self = $10031; - switch (self._) { - case 'Maybe.some': - var $10035 = self.value; - var $10036 = Parser$Reply$error$(Parser$Error$combine$($10035, $10033)); - var $10034 = $10036; - break; - case 'Maybe.none': - var $10037 = Parser$Reply$error$($10033); - var $10034 = $10037; - break; - }; - var $10032 = $10034; - break; - case 'Parser.Reply.value': - var $10038 = self.pst; - var self = $10038; - switch (self._) { - case 'Parser.State.new': - var $10040 = self.err; - var $10041 = self.nam; - var $10042 = self.ini; - var $10043 = self.idx; - var $10044 = self.str; - var $10045 = ((console.log(("FALTANDO " + $10044)), (_$49 => { - var $10046 = ((console.log(("VALUE " + $10041)), (_$50 => { - var _reply$pst$51 = Parser$State$new$(Parser$Error$maybe_combine$($10031, $10040), $10041, $10042, $10043, $10044); - var $10047 = Parser$Reply$value$(_reply$pst$51, (() => { - var self = $10021; - switch (self._) { - case 'Pair.new': - var $10048 = self.fst; - var $10049 = self.snd; - var _term$54 = Kind$Term$ref$(("I" + (_size_str$2 + ".from_nat"))); - var _term$55 = Kind$Term$app$(_term$54, Kind$Term$nat$($10049)); - var self = $10048; - if (self) { - var $10051 = _term$55; - var _term$56 = $10051; - } else { - var $10052 = Kind$Term$app$(Kind$Term$ref$(("I" + (_size_str$2 + ".neg"))), _term$55); - var _term$56 = $10052; - }; - var $10050 = _term$56; - return $10050; - }; - })()); - return $10047; - })())); - return $10046; - })())); - var $10039 = $10045; - break; - }; - var $10032 = $10039; - break; - }; - var $10030 = $10032; - break; - }; - return $10030; - })())); - return $10029; - })())); - var $10022 = $10028; - break; - }; - var $10014 = $10022; + case 'Maybe.none': + var $8946 = Parser$Reply$error$($8942); + var $8943 = $8946; break; }; - var $10012 = $10014; + var $8941 = $8943; + break; + case 'Parser.Reply.value': + var $8947 = self.pst; + var $8948 = self.val; + var self = $8947; + switch (self._) { + case 'Parser.State.new': + var $8950 = self.err; + var $8951 = self.nam; + var $8952 = self.ini; + var $8953 = self.idx; + var $8954 = self.str; + var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($8940, $8950), $8951, $8952, $8953, $8954); + var self = _reply$pst$31; + switch (self._) { + case 'Parser.State.new': + var $8956 = self.err; + var _reply$37 = Parser$text$(("#" + _size_str$2), _reply$pst$31); + var self = _reply$37; + switch (self._) { + case 'Parser.Reply.error': + var $8958 = self.err; + var self = $8956; + switch (self._) { + case 'Maybe.some': + var $8960 = self.value; + var $8961 = Parser$Reply$error$(Parser$Error$combine$($8960, $8958)); + var $8959 = $8961; + break; + case 'Maybe.none': + var $8962 = Parser$Reply$error$($8958); + var $8959 = $8962; + break; + }; + var $8957 = $8959; + break; + case 'Parser.Reply.value': + var $8963 = self.pst; + var self = $8963; + switch (self._) { + case 'Parser.State.new': + var $8965 = self.err; + var $8966 = self.nam; + var $8967 = self.ini; + var $8968 = self.idx; + var $8969 = self.str; + var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($8956, $8965), $8966, $8967, $8968, $8969); + var $8970 = Parser$Reply$value$(_reply$pst$45, (() => { + var self = $8948; + switch (self._) { + case 'Pair.new': + var $8971 = self.fst; + var $8972 = self.snd; + var _term$48 = Kind$Term$ref$(("I" + (_size_str$2 + ".from_nat"))); + var _term$49 = Kind$Term$app$(_term$48, Kind$Term$nat$($8972)); + var self = $8971; + if (self) { + var $8974 = _term$49; + var _term$50 = $8974; + } else { + var $8975 = Kind$Term$app$(Kind$Term$ref$(("I" + (_size_str$2 + ".neg"))), _term$49); + var _term$50 = $8975; + }; + var $8973 = _term$50; + return $8973; + }; + })()); + var $8964 = $8970; + break; + }; + var $8957 = $8964; + break; + }; + var $8955 = $8957; + break; + }; + var $8949 = $8955; + break; + }; + var $8941 = $8949; break; }; - return $10012; - })())); - return $10011; - })())); - var $10004 = $10010; + var $8939 = $8941; + break; + }; + var $8933 = $8939; break; }; - var $9997 = $10004; + var $8926 = $8933; break; }; - var $9995 = $9997; + var $8924 = $8926; break; }; - return $9995; + return $8924; }); - return $9994; + return $8923; })()); - return $9993; + return $8922; }; const Kind$Parser$machine_integer$signed = x0 => Kind$Parser$machine_integer$signed$(x0); @@ -31665,180 +28223,180 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10054 = self.err; - var $10055 = self.nam; - var $10056 = self.ini; - var $10057 = self.idx; - var $10058 = self.str; - var self = $10058; + var $8977 = self.err; + var $8978 = self.nam; + var $8979 = self.ini; + var $8980 = self.idx; + var $8981 = self.str; + var self = $8981; if (self.length === 0) { - var $10060 = Parser$Reply$fail$($10055, $10056, $10057, "Not a digit."); - var $10059 = $10060; + var $8983 = Parser$Reply$fail$($8978, $8979, $8980, "Not a digit."); + var $8982 = $8983; } else { - var $10061 = self.charCodeAt(0); - var $10062 = self.slice(1); - var _pst$9 = Parser$State$new$($10054, $10055, $10056, Nat$succ$($10057), $10062); - var self = ($10061 === 48); + var $8984 = self.charCodeAt(0); + var $8985 = self.slice(1); + var _pst$9 = Parser$State$new$($8977, $8978, $8979, Nat$succ$($8980), $8985); + var self = ($8984 === 48); if (self) { - var $10064 = Parser$Reply$value$(_pst$9, 0n); - var $10063 = $10064; + var $8987 = Parser$Reply$value$(_pst$9, 0n); + var $8986 = $8987; } else { - var self = ($10061 === 49); + var self = ($8984 === 49); if (self) { - var $10066 = Parser$Reply$value$(_pst$9, 1n); - var $10065 = $10066; + var $8989 = Parser$Reply$value$(_pst$9, 1n); + var $8988 = $8989; } else { - var self = ($10061 === 50); + var self = ($8984 === 50); if (self) { - var $10068 = Parser$Reply$value$(_pst$9, 2n); - var $10067 = $10068; + var $8991 = Parser$Reply$value$(_pst$9, 2n); + var $8990 = $8991; } else { - var self = ($10061 === 51); + var self = ($8984 === 51); if (self) { - var $10070 = Parser$Reply$value$(_pst$9, 3n); - var $10069 = $10070; + var $8993 = Parser$Reply$value$(_pst$9, 3n); + var $8992 = $8993; } else { - var self = ($10061 === 52); + var self = ($8984 === 52); if (self) { - var $10072 = Parser$Reply$value$(_pst$9, 4n); - var $10071 = $10072; + var $8995 = Parser$Reply$value$(_pst$9, 4n); + var $8994 = $8995; } else { - var self = ($10061 === 53); + var self = ($8984 === 53); if (self) { - var $10074 = Parser$Reply$value$(_pst$9, 5n); - var $10073 = $10074; + var $8997 = Parser$Reply$value$(_pst$9, 5n); + var $8996 = $8997; } else { - var self = ($10061 === 54); + var self = ($8984 === 54); if (self) { - var $10076 = Parser$Reply$value$(_pst$9, 6n); - var $10075 = $10076; + var $8999 = Parser$Reply$value$(_pst$9, 6n); + var $8998 = $8999; } else { - var self = ($10061 === 55); + var self = ($8984 === 55); if (self) { - var $10078 = Parser$Reply$value$(_pst$9, 7n); - var $10077 = $10078; + var $9001 = Parser$Reply$value$(_pst$9, 7n); + var $9000 = $9001; } else { - var self = ($10061 === 56); + var self = ($8984 === 56); if (self) { - var $10080 = Parser$Reply$value$(_pst$9, 8n); - var $10079 = $10080; + var $9003 = Parser$Reply$value$(_pst$9, 8n); + var $9002 = $9003; } else { - var self = ($10061 === 57); + var self = ($8984 === 57); if (self) { - var $10082 = Parser$Reply$value$(_pst$9, 9n); - var $10081 = $10082; + var $9005 = Parser$Reply$value$(_pst$9, 9n); + var $9004 = $9005; } else { - var self = ($10061 === 97); + var self = ($8984 === 97); if (self) { - var $10084 = Parser$Reply$value$(_pst$9, 10n); - var $10083 = $10084; + var $9007 = Parser$Reply$value$(_pst$9, 10n); + var $9006 = $9007; } else { - var self = ($10061 === 98); + var self = ($8984 === 98); if (self) { - var $10086 = Parser$Reply$value$(_pst$9, 11n); - var $10085 = $10086; + var $9009 = Parser$Reply$value$(_pst$9, 11n); + var $9008 = $9009; } else { - var self = ($10061 === 99); + var self = ($8984 === 99); if (self) { - var $10088 = Parser$Reply$value$(_pst$9, 12n); - var $10087 = $10088; + var $9011 = Parser$Reply$value$(_pst$9, 12n); + var $9010 = $9011; } else { - var self = ($10061 === 100); + var self = ($8984 === 100); if (self) { - var $10090 = Parser$Reply$value$(_pst$9, 13n); - var $10089 = $10090; + var $9013 = Parser$Reply$value$(_pst$9, 13n); + var $9012 = $9013; } else { - var self = ($10061 === 101); + var self = ($8984 === 101); if (self) { - var $10092 = Parser$Reply$value$(_pst$9, 14n); - var $10091 = $10092; + var $9015 = Parser$Reply$value$(_pst$9, 14n); + var $9014 = $9015; } else { - var self = ($10061 === 102); + var self = ($8984 === 102); if (self) { - var $10094 = Parser$Reply$value$(_pst$9, 15n); - var $10093 = $10094; + var $9017 = Parser$Reply$value$(_pst$9, 15n); + var $9016 = $9017; } else { - var self = ($10061 === 65); + var self = ($8984 === 65); if (self) { - var $10096 = Parser$Reply$value$(_pst$9, 10n); - var $10095 = $10096; + var $9019 = Parser$Reply$value$(_pst$9, 10n); + var $9018 = $9019; } else { - var self = ($10061 === 66); + var self = ($8984 === 66); if (self) { - var $10098 = Parser$Reply$value$(_pst$9, 11n); - var $10097 = $10098; + var $9021 = Parser$Reply$value$(_pst$9, 11n); + var $9020 = $9021; } else { - var self = ($10061 === 67); + var self = ($8984 === 67); if (self) { - var $10100 = Parser$Reply$value$(_pst$9, 12n); - var $10099 = $10100; + var $9023 = Parser$Reply$value$(_pst$9, 12n); + var $9022 = $9023; } else { - var self = ($10061 === 68); + var self = ($8984 === 68); if (self) { - var $10102 = Parser$Reply$value$(_pst$9, 13n); - var $10101 = $10102; + var $9025 = Parser$Reply$value$(_pst$9, 13n); + var $9024 = $9025; } else { - var self = ($10061 === 69); + var self = ($8984 === 69); if (self) { - var $10104 = Parser$Reply$value$(_pst$9, 14n); - var $10103 = $10104; + var $9027 = Parser$Reply$value$(_pst$9, 14n); + var $9026 = $9027; } else { - var self = ($10061 === 70); + var self = ($8984 === 70); if (self) { - var $10106 = Parser$Reply$value$(_pst$9, 15n); - var $10105 = $10106; + var $9029 = Parser$Reply$value$(_pst$9, 15n); + var $9028 = $9029; } else { - var $10107 = Parser$Reply$fail$($10055, $10056, $10057, "Not a digit."); - var $10105 = $10107; + var $9030 = Parser$Reply$fail$($8978, $8979, $8980, "Not a digit."); + var $9028 = $9030; }; - var $10103 = $10105; + var $9026 = $9028; }; - var $10101 = $10103; + var $9024 = $9026; }; - var $10099 = $10101; + var $9022 = $9024; }; - var $10097 = $10099; + var $9020 = $9022; }; - var $10095 = $10097; + var $9018 = $9020; }; - var $10093 = $10095; + var $9016 = $9018; }; - var $10091 = $10093; + var $9014 = $9016; }; - var $10089 = $10091; + var $9012 = $9014; }; - var $10087 = $10089; + var $9010 = $9012; }; - var $10085 = $10087; + var $9008 = $9010; }; - var $10083 = $10085; + var $9006 = $9008; }; - var $10081 = $10083; + var $9004 = $9006; }; - var $10079 = $10081; + var $9002 = $9004; }; - var $10077 = $10079; + var $9000 = $9002; }; - var $10075 = $10077; + var $8998 = $9000; }; - var $10073 = $10075; + var $8996 = $8998; }; - var $10071 = $10073; + var $8994 = $8996; }; - var $10069 = $10071; + var $8992 = $8994; }; - var $10067 = $10069; + var $8990 = $8992; }; - var $10065 = $10067; + var $8988 = $8990; }; - var $10063 = $10065; + var $8986 = $8988; }; - var $10059 = $10063; + var $8982 = $8986; }; - var $10053 = $10059; + var $8976 = $8982; break; }; - return $10053; + return $8976; }; const Parser$hex_digit = x0 => Parser$hex_digit$(x0); @@ -31846,841 +28404,4083 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10109 = self.err; + var $9032 = self.err; var _reply$7 = Parser$text$("0x", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10111 = self.err; - var self = $10109; + var $9034 = self.err; + var self = $9032; switch (self._) { case 'Maybe.some': - var $10113 = self.value; - var $10114 = Parser$Reply$error$(Parser$Error$combine$($10113, $10111)); - var $10112 = $10114; + var $9036 = self.value; + var $9037 = Parser$Reply$error$(Parser$Error$combine$($9036, $9034)); + var $9035 = $9037; break; case 'Maybe.none': - var $10115 = Parser$Reply$error$($10111); - var $10112 = $10115; + var $9038 = Parser$Reply$error$($9034); + var $9035 = $9038; break; }; - var $10110 = $10112; + var $9033 = $9035; break; case 'Parser.Reply.value': - var $10116 = self.pst; - var self = $10116; + var $9039 = self.pst; + var self = $9039; switch (self._) { case 'Parser.State.new': - var $10118 = self.err; - var $10119 = self.nam; - var $10120 = self.ini; - var $10121 = self.idx; - var $10122 = self.str; - var $10123 = ((console.log(("FALTANDO " + $10122)), (_$15 => { - var $10124 = ((console.log(("VALUE " + $10119)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10109, $10118), $10119, $10120, $10121, $10122); - var self = _reply$pst$17; + var $9041 = self.err; + var $9042 = self.nam; + var $9043 = self.ini; + var $9044 = self.idx; + var $9045 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9032, $9041), $9042, $9043, $9044, $9045); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $9047 = self.err; + var _reply$21 = Parser$many1$(Parser$hex_digit, _reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $10126 = self.err; - var _reply$23 = Parser$many1$(Parser$hex_digit, _reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $9049 = self.err; + var self = $9047; switch (self._) { - case 'Parser.Reply.error': - var $10128 = self.err; - var self = $10126; - switch (self._) { - case 'Maybe.some': - var $10130 = self.value; - var $10131 = Parser$Reply$error$(Parser$Error$combine$($10130, $10128)); - var $10129 = $10131; - break; - case 'Maybe.none': - var $10132 = Parser$Reply$error$($10128); - var $10129 = $10132; - break; - }; - var $10127 = $10129; + case 'Maybe.some': + var $9051 = self.value; + var $9052 = Parser$Reply$error$(Parser$Error$combine$($9051, $9049)); + var $9050 = $9052; break; - case 'Parser.Reply.value': - var $10133 = self.pst; - var $10134 = self.val; - var self = $10133; - switch (self._) { - case 'Parser.State.new': - var $10136 = self.err; - var $10137 = self.nam; - var $10138 = self.ini; - var $10139 = self.idx; - var $10140 = self.str; - var $10141 = ((console.log(("FALTANDO " + $10140)), (_$31 => { - var $10142 = ((console.log(("VALUE " + $10137)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10126, $10136), $10137, $10138, $10139, $10140); - var $10143 = Parser$Reply$value$(_reply$pst$33, Nat$from_base$(16n, $10134)); - return $10143; - })())); - return $10142; - })())); - var $10135 = $10141; - break; - }; - var $10127 = $10135; + case 'Maybe.none': + var $9053 = Parser$Reply$error$($9049); + var $9050 = $9053; break; }; - var $10125 = $10127; + var $9048 = $9050; + break; + case 'Parser.Reply.value': + var $9054 = self.pst; + var $9055 = self.val; + var self = $9054; + switch (self._) { + case 'Parser.State.new': + var $9057 = self.err; + var $9058 = self.nam; + var $9059 = self.ini; + var $9060 = self.idx; + var $9061 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9047, $9057), $9058, $9059, $9060, $9061); + var $9062 = Parser$Reply$value$(_reply$pst$29, Nat$from_base$(16n, $9055)); + var $9056 = $9062; + break; + }; + var $9048 = $9056; break; }; - return $10125; - })())); - return $10124; - })())); - var $10117 = $10123; + var $9046 = $9048; + break; + }; + var $9040 = $9046; break; }; - var $10110 = $10117; + var $9033 = $9040; break; }; - var $10108 = $10110; + var $9031 = $9033; break; }; - return $10108; + return $9031; }; const Parser$hex_nat = x0 => Parser$hex_nat$(x0); const Kind$Parser$nat = Kind$Parser$block("nat")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10145 = self.err; + var $9064 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10147 = self.err; - var self = $10145; + var $9066 = self.err; + var self = $9064; switch (self._) { case 'Maybe.some': - var $10149 = self.value; - var $10150 = Parser$Reply$error$(Parser$Error$combine$($10149, $10147)); - var $10148 = $10150; + var $9068 = self.value; + var $9069 = Parser$Reply$error$(Parser$Error$combine$($9068, $9066)); + var $9067 = $9069; break; case 'Maybe.none': - var $10151 = Parser$Reply$error$($10147); - var $10148 = $10151; + var $9070 = Parser$Reply$error$($9066); + var $9067 = $9070; break; }; - var $10146 = $10148; + var $9065 = $9067; break; case 'Parser.Reply.value': - var $10152 = self.pst; - var self = $10152; + var $9071 = self.pst; + var self = $9071; switch (self._) { case 'Parser.State.new': - var $10154 = self.err; - var $10155 = self.nam; - var $10156 = self.ini; - var $10157 = self.idx; - var $10158 = self.str; - var $10159 = ((console.log(("FALTANDO " + $10158)), (_$15 => { - var $10160 = ((console.log(("VALUE " + $10155)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10145, $10154), $10155, $10156, $10157, $10158); - var self = _reply$pst$17; + var $9073 = self.err; + var $9074 = self.nam; + var $9075 = self.ini; + var $9076 = self.idx; + var $9077 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9064, $9073), $9074, $9075, $9076, $9077); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $9079 = self.err; + var _reply$21 = Parser$choice$(List$cons$(Parser$hex_nat, List$cons$(Parser$nat, List$nil)), _reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $10162 = self.err; - var _reply$23 = Parser$choice$(List$cons$(Parser$hex_nat, List$cons$(Parser$nat, List$nil)), _reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $9081 = self.err; + var self = $9079; switch (self._) { - case 'Parser.Reply.error': - var $10164 = self.err; - var self = $10162; - switch (self._) { - case 'Maybe.some': - var $10166 = self.value; - var $10167 = Parser$Reply$error$(Parser$Error$combine$($10166, $10164)); - var $10165 = $10167; - break; - case 'Maybe.none': - var $10168 = Parser$Reply$error$($10164); - var $10165 = $10168; - break; - }; - var $10163 = $10165; + case 'Maybe.some': + var $9083 = self.value; + var $9084 = Parser$Reply$error$(Parser$Error$combine$($9083, $9081)); + var $9082 = $9084; break; - case 'Parser.Reply.value': - var $10169 = self.pst; - var $10170 = self.val; - var self = $10169; - switch (self._) { - case 'Parser.State.new': - var $10172 = self.err; - var $10173 = self.nam; - var $10174 = self.ini; - var $10175 = self.idx; - var $10176 = self.str; - var $10177 = ((console.log(("FALTANDO " + $10176)), (_$31 => { - var $10178 = ((console.log(("VALUE " + $10173)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10162, $10172), $10173, $10174, $10175, $10176); - var $10179 = Parser$Reply$value$(_reply$pst$33, Kind$Term$nat$($10170)); - return $10179; - })())); - return $10178; - })())); - var $10171 = $10177; - break; - }; - var $10163 = $10171; + case 'Maybe.none': + var $9085 = Parser$Reply$error$($9081); + var $9082 = $9085; break; }; - var $10161 = $10163; + var $9080 = $9082; + break; + case 'Parser.Reply.value': + var $9086 = self.pst; + var $9087 = self.val; + var self = $9086; + switch (self._) { + case 'Parser.State.new': + var $9089 = self.err; + var $9090 = self.nam; + var $9091 = self.ini; + var $9092 = self.idx; + var $9093 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9079, $9089), $9090, $9091, $9092, $9093); + var $9094 = Parser$Reply$value$(_reply$pst$29, Kind$Term$nat$($9087)); + var $9088 = $9094; + break; + }; + var $9080 = $9088; break; }; - return $10161; - })())); - return $10160; - })())); - var $10153 = $10159; + var $9078 = $9080; + break; + }; + var $9072 = $9078; break; }; - var $10146 = $10153; + var $9065 = $9072; break; }; - var $10144 = $10146; + var $9063 = $9065; break; }; - return $10144; + return $9063; })); function Kind$Parser$machine_integer$unsigned$(_size$1) { - var $10180 = Kind$Parser$block("int")((() => { + var $9095 = Kind$Parser$block("int")((() => { var _size_str$2 = Nat$show$(_size$1); - var $10181 = (_pst$3 => { + var $9096 = (_pst$3 => { var self = _pst$3; switch (self._) { case 'Parser.State.new': - var $10183 = self.err; + var $9098 = self.err; var _reply$9 = Kind$Parser$spaces(_pst$3); var self = _reply$9; switch (self._) { case 'Parser.Reply.error': - var $10185 = self.err; - var self = $10183; + var $9100 = self.err; + var self = $9098; switch (self._) { case 'Maybe.some': - var $10187 = self.value; - var $10188 = Parser$Reply$error$(Parser$Error$combine$($10187, $10185)); - var $10186 = $10188; + var $9102 = self.value; + var $9103 = Parser$Reply$error$(Parser$Error$combine$($9102, $9100)); + var $9101 = $9103; break; case 'Maybe.none': - var $10189 = Parser$Reply$error$($10185); - var $10186 = $10189; + var $9104 = Parser$Reply$error$($9100); + var $9101 = $9104; break; }; - var $10184 = $10186; + var $9099 = $9101; break; case 'Parser.Reply.value': - var $10190 = self.pst; - var self = $10190; + var $9105 = self.pst; + var self = $9105; switch (self._) { case 'Parser.State.new': - var $10192 = self.err; - var $10193 = self.nam; - var $10194 = self.ini; - var $10195 = self.idx; - var $10196 = self.str; - var $10197 = ((console.log(("FALTANDO " + $10196)), (_$17 => { - var $10198 = ((console.log(("VALUE " + $10193)), (_$18 => { - var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($10183, $10192), $10193, $10194, $10195, $10196); - var self = _reply$pst$19; + var $9107 = self.err; + var $9108 = self.nam; + var $9109 = self.ini; + var $9110 = self.idx; + var $9111 = self.str; + var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($9098, $9107), $9108, $9109, $9110, $9111); + var self = _reply$pst$17; + switch (self._) { + case 'Parser.State.new': + var $9113 = self.err; + var _reply$23 = Kind$Parser$nat(_reply$pst$17); + var self = _reply$23; switch (self._) { - case 'Parser.State.new': - var $10200 = self.err; - var _reply$25 = Kind$Parser$nat(_reply$pst$19); - var self = _reply$25; + case 'Parser.Reply.error': + var $9115 = self.err; + var self = $9113; switch (self._) { - case 'Parser.Reply.error': - var $10202 = self.err; - var self = $10200; - switch (self._) { - case 'Maybe.some': - var $10204 = self.value; - var $10205 = Parser$Reply$error$(Parser$Error$combine$($10204, $10202)); - var $10203 = $10205; - break; - case 'Maybe.none': - var $10206 = Parser$Reply$error$($10202); - var $10203 = $10206; - break; - }; - var $10201 = $10203; + case 'Maybe.some': + var $9117 = self.value; + var $9118 = Parser$Reply$error$(Parser$Error$combine$($9117, $9115)); + var $9116 = $9118; break; - case 'Parser.Reply.value': - var $10207 = self.pst; - var $10208 = self.val; - var self = $10207; - switch (self._) { - case 'Parser.State.new': - var $10210 = self.err; - var $10211 = self.nam; - var $10212 = self.ini; - var $10213 = self.idx; - var $10214 = self.str; - var $10215 = ((console.log(("FALTANDO " + $10214)), (_$33 => { - var $10216 = ((console.log(("VALUE " + $10211)), (_$34 => { - var _reply$pst$35 = Parser$State$new$(Parser$Error$maybe_combine$($10200, $10210), $10211, $10212, $10213, $10214); - var self = _reply$pst$35; - switch (self._) { - case 'Parser.State.new': - var $10218 = self.err; - var _reply$41 = Parser$text$(("#" + Nat$show$(_size$1)), _reply$pst$35); - var self = _reply$41; - switch (self._) { - case 'Parser.Reply.error': - var $10220 = self.err; - var self = $10218; - switch (self._) { - case 'Maybe.some': - var $10222 = self.value; - var $10223 = Parser$Reply$error$(Parser$Error$combine$($10222, $10220)); - var $10221 = $10223; - break; - case 'Maybe.none': - var $10224 = Parser$Reply$error$($10220); - var $10221 = $10224; - break; - }; - var $10219 = $10221; - break; - case 'Parser.Reply.value': - var $10225 = self.pst; - var self = $10225; - switch (self._) { - case 'Parser.State.new': - var $10227 = self.err; - var $10228 = self.nam; - var $10229 = self.ini; - var $10230 = self.idx; - var $10231 = self.str; - var $10232 = ((console.log(("FALTANDO " + $10231)), (_$49 => { - var $10233 = ((console.log(("VALUE " + $10228)), (_$50 => { - var _reply$pst$51 = Parser$State$new$(Parser$Error$maybe_combine$($10218, $10227), $10228, $10229, $10230, $10231); - var _term$52 = Kind$Term$ref$(("Nat.to_u" + Nat$show$(_size$1))); - var _term$53 = Kind$Term$app$(_term$52, $10208); - var $10234 = Parser$Reply$value$(_reply$pst$51, _term$53); - return $10234; - })())); - return $10233; - })())); - var $10226 = $10232; - break; - }; - var $10219 = $10226; - break; - }; - var $10217 = $10219; - break; - }; - return $10217; - })())); - return $10216; - })())); - var $10209 = $10215; - break; - }; - var $10201 = $10209; + case 'Maybe.none': + var $9119 = Parser$Reply$error$($9115); + var $9116 = $9119; break; }; - var $10199 = $10201; + var $9114 = $9116; + break; + case 'Parser.Reply.value': + var $9120 = self.pst; + var $9121 = self.val; + var self = $9120; + switch (self._) { + case 'Parser.State.new': + var $9123 = self.err; + var $9124 = self.nam; + var $9125 = self.ini; + var $9126 = self.idx; + var $9127 = self.str; + var _reply$pst$31 = Parser$State$new$(Parser$Error$maybe_combine$($9113, $9123), $9124, $9125, $9126, $9127); + var self = _reply$pst$31; + switch (self._) { + case 'Parser.State.new': + var $9129 = self.err; + var _reply$37 = Parser$text$(("#" + Nat$show$(_size$1)), _reply$pst$31); + var self = _reply$37; + switch (self._) { + case 'Parser.Reply.error': + var $9131 = self.err; + var self = $9129; + switch (self._) { + case 'Maybe.some': + var $9133 = self.value; + var $9134 = Parser$Reply$error$(Parser$Error$combine$($9133, $9131)); + var $9132 = $9134; + break; + case 'Maybe.none': + var $9135 = Parser$Reply$error$($9131); + var $9132 = $9135; + break; + }; + var $9130 = $9132; + break; + case 'Parser.Reply.value': + var $9136 = self.pst; + var self = $9136; + switch (self._) { + case 'Parser.State.new': + var $9138 = self.err; + var $9139 = self.nam; + var $9140 = self.ini; + var $9141 = self.idx; + var $9142 = self.str; + var _reply$pst$45 = Parser$State$new$(Parser$Error$maybe_combine$($9129, $9138), $9139, $9140, $9141, $9142); + var _term$46 = Kind$Term$ref$(("Nat.to_u" + Nat$show$(_size$1))); + var _term$47 = Kind$Term$app$(_term$46, $9121); + var $9143 = Parser$Reply$value$(_reply$pst$45, _term$47); + var $9137 = $9143; + break; + }; + var $9130 = $9137; + break; + }; + var $9128 = $9130; + break; + }; + var $9122 = $9128; + break; + }; + var $9114 = $9122; break; }; - return $10199; - })())); - return $10198; - })())); - var $10191 = $10197; + var $9112 = $9114; + break; + }; + var $9106 = $9112; break; }; - var $10184 = $10191; + var $9099 = $9106; break; }; - var $10182 = $10184; + var $9097 = $9099; break; }; - return $10182; + return $9097; }); - return $10181; + return $9096; })()); - return $10180; + return $9095; }; const Kind$Parser$machine_integer$unsigned = x0 => Kind$Parser$machine_integer$unsigned$(x0); const Kind$Parser$u64 = Kind$Parser$block("u64")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10236 = self.err; + var $9145 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10238 = self.err; - var self = $10236; + var $9147 = self.err; + var self = $9145; switch (self._) { case 'Maybe.some': - var $10240 = self.value; - var $10241 = Parser$Reply$error$(Parser$Error$combine$($10240, $10238)); - var $10239 = $10241; + var $9149 = self.value; + var $9150 = Parser$Reply$error$(Parser$Error$combine$($9149, $9147)); + var $9148 = $9150; break; case 'Maybe.none': - var $10242 = Parser$Reply$error$($10238); - var $10239 = $10242; + var $9151 = Parser$Reply$error$($9147); + var $9148 = $9151; break; }; - var $10237 = $10239; + var $9146 = $9148; break; case 'Parser.Reply.value': - var $10243 = self.pst; - var self = $10243; + var $9152 = self.pst; + var self = $9152; switch (self._) { case 'Parser.State.new': - var $10245 = self.err; - var $10246 = self.nam; - var $10247 = self.ini; - var $10248 = self.idx; - var $10249 = self.str; - var $10250 = ((console.log(("FALTANDO " + $10249)), (_$15 => { - var $10251 = ((console.log(("VALUE " + $10246)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10236, $10245), $10246, $10247, $10248, $10249); - var self = _reply$pst$17; + var $9154 = self.err; + var $9155 = self.nam; + var $9156 = self.ini; + var $9157 = self.idx; + var $9158 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9145, $9154), $9155, $9156, $9157, $9158); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $9160 = self.err; + var _reply$21 = Parser$nat$(_reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $10253 = self.err; - var _reply$23 = Parser$nat$(_reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $9162 = self.err; + var self = $9160; switch (self._) { - case 'Parser.Reply.error': - var $10255 = self.err; - var self = $10253; - switch (self._) { - case 'Maybe.some': - var $10257 = self.value; - var $10258 = Parser$Reply$error$(Parser$Error$combine$($10257, $10255)); - var $10256 = $10258; - break; - case 'Maybe.none': - var $10259 = Parser$Reply$error$($10255); - var $10256 = $10259; - break; - }; - var $10254 = $10256; + case 'Maybe.some': + var $9164 = self.value; + var $9165 = Parser$Reply$error$(Parser$Error$combine$($9164, $9162)); + var $9163 = $9165; break; - case 'Parser.Reply.value': - var $10260 = self.pst; - var $10261 = self.val; - var self = $10260; - switch (self._) { - case 'Parser.State.new': - var $10263 = self.err; - var $10264 = self.nam; - var $10265 = self.ini; - var $10266 = self.idx; - var $10267 = self.str; - var $10268 = ((console.log(("FALTANDO " + $10267)), (_$31 => { - var $10269 = ((console.log(("VALUE " + $10264)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10253, $10263), $10264, $10265, $10266, $10267); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $10271 = self.err; - var _reply$39 = Parser$text$("l", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $10273 = self.err; - var self = $10271; - switch (self._) { - case 'Maybe.some': - var $10275 = self.value; - var $10276 = Parser$Reply$error$(Parser$Error$combine$($10275, $10273)); - var $10274 = $10276; - break; - case 'Maybe.none': - var $10277 = Parser$Reply$error$($10273); - var $10274 = $10277; - break; - }; - var $10272 = $10274; - break; - case 'Parser.Reply.value': - var $10278 = self.pst; - var self = $10278; - switch (self._) { - case 'Parser.State.new': - var $10280 = self.err; - var $10281 = self.nam; - var $10282 = self.ini; - var $10283 = self.idx; - var $10284 = self.str; - var $10285 = ((console.log(("FALTANDO " + $10284)), (_$47 => { - var $10286 = ((console.log(("VALUE " + $10281)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($10271, $10280), $10281, $10282, $10283, $10284); - var _term$50 = Kind$Term$ref$("U64.from_nat"); - var _term$51 = Kind$Term$app$(_term$50, Kind$Term$nat$($10261)); - var $10287 = Parser$Reply$value$(_reply$pst$49, _term$51); - return $10287; - })())); - return $10286; - })())); - var $10279 = $10285; - break; - }; - var $10272 = $10279; - break; - }; - var $10270 = $10272; - break; - }; - return $10270; - })())); - return $10269; - })())); - var $10262 = $10268; - break; - }; - var $10254 = $10262; + case 'Maybe.none': + var $9166 = Parser$Reply$error$($9162); + var $9163 = $9166; break; }; - var $10252 = $10254; + var $9161 = $9163; + break; + case 'Parser.Reply.value': + var $9167 = self.pst; + var $9168 = self.val; + var self = $9167; + switch (self._) { + case 'Parser.State.new': + var $9170 = self.err; + var $9171 = self.nam; + var $9172 = self.ini; + var $9173 = self.idx; + var $9174 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9160, $9170), $9171, $9172, $9173, $9174); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $9176 = self.err; + var _reply$35 = Parser$text$("l", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $9178 = self.err; + var self = $9176; + switch (self._) { + case 'Maybe.some': + var $9180 = self.value; + var $9181 = Parser$Reply$error$(Parser$Error$combine$($9180, $9178)); + var $9179 = $9181; + break; + case 'Maybe.none': + var $9182 = Parser$Reply$error$($9178); + var $9179 = $9182; + break; + }; + var $9177 = $9179; + break; + case 'Parser.Reply.value': + var $9183 = self.pst; + var self = $9183; + switch (self._) { + case 'Parser.State.new': + var $9185 = self.err; + var $9186 = self.nam; + var $9187 = self.ini; + var $9188 = self.idx; + var $9189 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9176, $9185), $9186, $9187, $9188, $9189); + var _term$44 = Kind$Term$ref$("U64.from_nat"); + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($9168)); + var $9190 = Parser$Reply$value$(_reply$pst$43, _term$45); + var $9184 = $9190; + break; + }; + var $9177 = $9184; + break; + }; + var $9175 = $9177; + break; + }; + var $9169 = $9175; + break; + }; + var $9161 = $9169; break; }; - return $10252; - })())); - return $10251; - })())); - var $10244 = $10250; + var $9159 = $9161; + break; + }; + var $9153 = $9159; break; }; - var $10237 = $10244; + var $9146 = $9153; break; }; - var $10235 = $10237; + var $9144 = $9146; break; }; - return $10235; + return $9144; })); const Kind$Parser$u32 = Kind$Parser$block("u32")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10289 = self.err; + var $9192 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10291 = self.err; - var self = $10289; + var $9194 = self.err; + var self = $9192; switch (self._) { case 'Maybe.some': - var $10293 = self.value; - var $10294 = Parser$Reply$error$(Parser$Error$combine$($10293, $10291)); - var $10292 = $10294; + var $9196 = self.value; + var $9197 = Parser$Reply$error$(Parser$Error$combine$($9196, $9194)); + var $9195 = $9197; break; case 'Maybe.none': - var $10295 = Parser$Reply$error$($10291); - var $10292 = $10295; + var $9198 = Parser$Reply$error$($9194); + var $9195 = $9198; break; }; - var $10290 = $10292; + var $9193 = $9195; break; case 'Parser.Reply.value': - var $10296 = self.pst; - var self = $10296; + var $9199 = self.pst; + var self = $9199; switch (self._) { case 'Parser.State.new': - var $10298 = self.err; - var $10299 = self.nam; - var $10300 = self.ini; - var $10301 = self.idx; - var $10302 = self.str; - var $10303 = ((console.log(("FALTANDO " + $10302)), (_$15 => { - var $10304 = ((console.log(("VALUE " + $10299)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10289, $10298), $10299, $10300, $10301, $10302); - var self = _reply$pst$17; + var $9201 = self.err; + var $9202 = self.nam; + var $9203 = self.ini; + var $9204 = self.idx; + var $9205 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9192, $9201), $9202, $9203, $9204, $9205); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $9207 = self.err; + var _reply$21 = Parser$nat$(_reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $10306 = self.err; - var _reply$23 = Parser$nat$(_reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $9209 = self.err; + var self = $9207; switch (self._) { - case 'Parser.Reply.error': - var $10308 = self.err; - var self = $10306; - switch (self._) { - case 'Maybe.some': - var $10310 = self.value; - var $10311 = Parser$Reply$error$(Parser$Error$combine$($10310, $10308)); - var $10309 = $10311; - break; - case 'Maybe.none': - var $10312 = Parser$Reply$error$($10308); - var $10309 = $10312; - break; - }; - var $10307 = $10309; + case 'Maybe.some': + var $9211 = self.value; + var $9212 = Parser$Reply$error$(Parser$Error$combine$($9211, $9209)); + var $9210 = $9212; break; - case 'Parser.Reply.value': - var $10313 = self.pst; - var $10314 = self.val; - var self = $10313; - switch (self._) { - case 'Parser.State.new': - var $10316 = self.err; - var $10317 = self.nam; - var $10318 = self.ini; - var $10319 = self.idx; - var $10320 = self.str; - var $10321 = ((console.log(("FALTANDO " + $10320)), (_$31 => { - var $10322 = ((console.log(("VALUE " + $10317)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10306, $10316), $10317, $10318, $10319, $10320); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $10324 = self.err; - var _reply$39 = Parser$text$("u", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $10326 = self.err; - var self = $10324; - switch (self._) { - case 'Maybe.some': - var $10328 = self.value; - var $10329 = Parser$Reply$error$(Parser$Error$combine$($10328, $10326)); - var $10327 = $10329; - break; - case 'Maybe.none': - var $10330 = Parser$Reply$error$($10326); - var $10327 = $10330; - break; - }; - var $10325 = $10327; - break; - case 'Parser.Reply.value': - var $10331 = self.pst; - var self = $10331; - switch (self._) { - case 'Parser.State.new': - var $10333 = self.err; - var $10334 = self.nam; - var $10335 = self.ini; - var $10336 = self.idx; - var $10337 = self.str; - var $10338 = ((console.log(("FALTANDO " + $10337)), (_$47 => { - var $10339 = ((console.log(("VALUE " + $10334)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($10324, $10333), $10334, $10335, $10336, $10337); - var _term$50 = Kind$Term$ref$("U32.from_nat"); - var _term$51 = Kind$Term$app$(_term$50, Kind$Term$nat$($10314)); - var $10340 = Parser$Reply$value$(_reply$pst$49, _term$51); - return $10340; - })())); - return $10339; - })())); - var $10332 = $10338; - break; - }; - var $10325 = $10332; - break; - }; - var $10323 = $10325; - break; - }; - return $10323; - })())); - return $10322; - })())); - var $10315 = $10321; - break; - }; - var $10307 = $10315; + case 'Maybe.none': + var $9213 = Parser$Reply$error$($9209); + var $9210 = $9213; break; }; - var $10305 = $10307; + var $9208 = $9210; + break; + case 'Parser.Reply.value': + var $9214 = self.pst; + var $9215 = self.val; + var self = $9214; + switch (self._) { + case 'Parser.State.new': + var $9217 = self.err; + var $9218 = self.nam; + var $9219 = self.ini; + var $9220 = self.idx; + var $9221 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9207, $9217), $9218, $9219, $9220, $9221); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $9223 = self.err; + var _reply$35 = Parser$text$("u", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $9225 = self.err; + var self = $9223; + switch (self._) { + case 'Maybe.some': + var $9227 = self.value; + var $9228 = Parser$Reply$error$(Parser$Error$combine$($9227, $9225)); + var $9226 = $9228; + break; + case 'Maybe.none': + var $9229 = Parser$Reply$error$($9225); + var $9226 = $9229; + break; + }; + var $9224 = $9226; + break; + case 'Parser.Reply.value': + var $9230 = self.pst; + var self = $9230; + switch (self._) { + case 'Parser.State.new': + var $9232 = self.err; + var $9233 = self.nam; + var $9234 = self.ini; + var $9235 = self.idx; + var $9236 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9223, $9232), $9233, $9234, $9235, $9236); + var _term$44 = Kind$Term$ref$("U32.from_nat"); + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($9215)); + var $9237 = Parser$Reply$value$(_reply$pst$43, _term$45); + var $9231 = $9237; + break; + }; + var $9224 = $9231; + break; + }; + var $9222 = $9224; + break; + }; + var $9216 = $9222; + break; + }; + var $9208 = $9216; break; }; - return $10305; - })())); - return $10304; - })())); - var $10297 = $10303; + var $9206 = $9208; + break; + }; + var $9200 = $9206; break; }; - var $10290 = $10297; + var $9193 = $9200; break; }; - var $10288 = $10290; + var $9191 = $9193; break; }; - return $10288; + return $9191; })); const Kind$Parser$u16 = Kind$Parser$block("u16")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10342 = self.err; + var $9239 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $10344 = self.err; - var self = $10342; + var $9241 = self.err; + var self = $9239; switch (self._) { case 'Maybe.some': - var $10346 = self.value; - var $10347 = Parser$Reply$error$(Parser$Error$combine$($10346, $10344)); - var $10345 = $10347; + var $9243 = self.value; + var $9244 = Parser$Reply$error$(Parser$Error$combine$($9243, $9241)); + var $9242 = $9244; break; case 'Maybe.none': - var $10348 = Parser$Reply$error$($10344); - var $10345 = $10348; + var $9245 = Parser$Reply$error$($9241); + var $9242 = $9245; break; }; - var $10343 = $10345; + var $9240 = $9242; break; case 'Parser.Reply.value': - var $10349 = self.pst; - var self = $10349; + var $9246 = self.pst; + var self = $9246; switch (self._) { case 'Parser.State.new': - var $10351 = self.err; - var $10352 = self.nam; - var $10353 = self.ini; - var $10354 = self.idx; - var $10355 = self.str; - var $10356 = ((console.log(("FALTANDO " + $10355)), (_$15 => { - var $10357 = ((console.log(("VALUE " + $10352)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10342, $10351), $10352, $10353, $10354, $10355); - var self = _reply$pst$17; + var $9248 = self.err; + var $9249 = self.nam; + var $9250 = self.ini; + var $9251 = self.idx; + var $9252 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9239, $9248), $9249, $9250, $9251, $9252); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $9254 = self.err; + var _reply$21 = Parser$nat$(_reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $10359 = self.err; - var _reply$23 = Parser$nat$(_reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $9256 = self.err; + var self = $9254; switch (self._) { - case 'Parser.Reply.error': - var $10361 = self.err; - var self = $10359; - switch (self._) { - case 'Maybe.some': - var $10363 = self.value; - var $10364 = Parser$Reply$error$(Parser$Error$combine$($10363, $10361)); - var $10362 = $10364; - break; - case 'Maybe.none': - var $10365 = Parser$Reply$error$($10361); - var $10362 = $10365; - break; - }; - var $10360 = $10362; + case 'Maybe.some': + var $9258 = self.value; + var $9259 = Parser$Reply$error$(Parser$Error$combine$($9258, $9256)); + var $9257 = $9259; break; - case 'Parser.Reply.value': - var $10366 = self.pst; - var $10367 = self.val; - var self = $10366; - switch (self._) { - case 'Parser.State.new': - var $10369 = self.err; - var $10370 = self.nam; - var $10371 = self.ini; - var $10372 = self.idx; - var $10373 = self.str; - var $10374 = ((console.log(("FALTANDO " + $10373)), (_$31 => { - var $10375 = ((console.log(("VALUE " + $10370)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10359, $10369), $10370, $10371, $10372, $10373); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $10377 = self.err; - var _reply$39 = Parser$text$("s", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $10379 = self.err; - var self = $10377; - switch (self._) { - case 'Maybe.some': - var $10381 = self.value; - var $10382 = Parser$Reply$error$(Parser$Error$combine$($10381, $10379)); - var $10380 = $10382; - break; - case 'Maybe.none': - var $10383 = Parser$Reply$error$($10379); - var $10380 = $10383; - break; - }; - var $10378 = $10380; - break; - case 'Parser.Reply.value': - var $10384 = self.pst; - var self = $10384; - switch (self._) { - case 'Parser.State.new': - var $10386 = self.err; - var $10387 = self.nam; - var $10388 = self.ini; - var $10389 = self.idx; - var $10390 = self.str; - var $10391 = ((console.log(("FALTANDO " + $10390)), (_$47 => { - var $10392 = ((console.log(("VALUE " + $10387)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($10377, $10386), $10387, $10388, $10389, $10390); - var _term$50 = Kind$Term$ref$("U16.from_nat"); - var _term$51 = Kind$Term$app$(_term$50, Kind$Term$nat$($10367)); - var $10393 = Parser$Reply$value$(_reply$pst$49, _term$51); - return $10393; - })())); - return $10392; - })())); - var $10385 = $10391; - break; - }; - var $10378 = $10385; - break; - }; - var $10376 = $10378; - break; - }; - return $10376; - })())); - return $10375; - })())); - var $10368 = $10374; - break; - }; - var $10360 = $10368; + case 'Maybe.none': + var $9260 = Parser$Reply$error$($9256); + var $9257 = $9260; break; }; - var $10358 = $10360; + var $9255 = $9257; + break; + case 'Parser.Reply.value': + var $9261 = self.pst; + var $9262 = self.val; + var self = $9261; + switch (self._) { + case 'Parser.State.new': + var $9264 = self.err; + var $9265 = self.nam; + var $9266 = self.ini; + var $9267 = self.idx; + var $9268 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9254, $9264), $9265, $9266, $9267, $9268); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $9270 = self.err; + var _reply$35 = Parser$text$("s", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $9272 = self.err; + var self = $9270; + switch (self._) { + case 'Maybe.some': + var $9274 = self.value; + var $9275 = Parser$Reply$error$(Parser$Error$combine$($9274, $9272)); + var $9273 = $9275; + break; + case 'Maybe.none': + var $9276 = Parser$Reply$error$($9272); + var $9273 = $9276; + break; + }; + var $9271 = $9273; + break; + case 'Parser.Reply.value': + var $9277 = self.pst; + var self = $9277; + switch (self._) { + case 'Parser.State.new': + var $9279 = self.err; + var $9280 = self.nam; + var $9281 = self.ini; + var $9282 = self.idx; + var $9283 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9270, $9279), $9280, $9281, $9282, $9283); + var _term$44 = Kind$Term$ref$("U16.from_nat"); + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($9262)); + var $9284 = Parser$Reply$value$(_reply$pst$43, _term$45); + var $9278 = $9284; + break; + }; + var $9271 = $9278; + break; + }; + var $9269 = $9271; + break; + }; + var $9263 = $9269; + break; + }; + var $9255 = $9263; break; }; - return $10358; - })())); - return $10357; - })())); - var $10350 = $10356; + var $9253 = $9255; + break; + }; + var $9247 = $9253; break; }; - var $10343 = $10350; + var $9240 = $9247; break; }; - var $10341 = $10343; + var $9238 = $9240; break; }; - return $10341; + return $9238; })); const Kind$Parser$u8 = Kind$Parser$block("u8")((_pst$1 => { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $10395 = self.err; + var $9286 = self.err; var _reply$7 = Kind$Parser$spaces(_pst$1); var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9288 = self.err; + var self = $9286; + switch (self._) { + case 'Maybe.some': + var $9290 = self.value; + var $9291 = Parser$Reply$error$(Parser$Error$combine$($9290, $9288)); + var $9289 = $9291; + break; + case 'Maybe.none': + var $9292 = Parser$Reply$error$($9288); + var $9289 = $9292; + break; + }; + var $9287 = $9289; + break; + case 'Parser.Reply.value': + var $9293 = self.pst; + var self = $9293; + switch (self._) { + case 'Parser.State.new': + var $9295 = self.err; + var $9296 = self.nam; + var $9297 = self.ini; + var $9298 = self.idx; + var $9299 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9286, $9295), $9296, $9297, $9298, $9299); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $9301 = self.err; + var _reply$21 = Parser$nat$(_reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $9303 = self.err; + var self = $9301; + switch (self._) { + case 'Maybe.some': + var $9305 = self.value; + var $9306 = Parser$Reply$error$(Parser$Error$combine$($9305, $9303)); + var $9304 = $9306; + break; + case 'Maybe.none': + var $9307 = Parser$Reply$error$($9303); + var $9304 = $9307; + break; + }; + var $9302 = $9304; + break; + case 'Parser.Reply.value': + var $9308 = self.pst; + var $9309 = self.val; + var self = $9308; + switch (self._) { + case 'Parser.State.new': + var $9311 = self.err; + var $9312 = self.nam; + var $9313 = self.ini; + var $9314 = self.idx; + var $9315 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9301, $9311), $9312, $9313, $9314, $9315); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $9317 = self.err; + var _reply$35 = Parser$text$("b", _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $9319 = self.err; + var self = $9317; + switch (self._) { + case 'Maybe.some': + var $9321 = self.value; + var $9322 = Parser$Reply$error$(Parser$Error$combine$($9321, $9319)); + var $9320 = $9322; + break; + case 'Maybe.none': + var $9323 = Parser$Reply$error$($9319); + var $9320 = $9323; + break; + }; + var $9318 = $9320; + break; + case 'Parser.Reply.value': + var $9324 = self.pst; + var self = $9324; + switch (self._) { + case 'Parser.State.new': + var $9326 = self.err; + var $9327 = self.nam; + var $9328 = self.ini; + var $9329 = self.idx; + var $9330 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9317, $9326), $9327, $9328, $9329, $9330); + var _term$44 = Kind$Term$ref$("U8.from_nat"); + var _term$45 = Kind$Term$app$(_term$44, Kind$Term$nat$($9309)); + var $9331 = Parser$Reply$value$(_reply$pst$43, _term$45); + var $9325 = $9331; + break; + }; + var $9318 = $9325; + break; + }; + var $9316 = $9318; + break; + }; + var $9310 = $9316; + break; + }; + var $9302 = $9310; + break; + }; + var $9300 = $9302; + break; + }; + var $9294 = $9300; + break; + }; + var $9287 = $9294; + break; + }; + var $9285 = $9287; + break; + }; + return $9285; + })); + + function Parser$Number$new$(_sign$1, _numb$2, _frac$3) { + var $9332 = ({ + _: 'Parser.Number.new', + 'sign': _sign$1, + 'numb': _numb$2, + 'frac': _frac$3 + }); + return $9332; + }; + const Parser$Number$new = x0 => x1 => x2 => Parser$Number$new$(x0, x1, x2); + + function Parser$num$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9334 = self.err; + var _reply$7 = Parser$choice$(List$cons$((_pst$7 => { + var self = _pst$7; + switch (self._) { + case 'Parser.State.new': + var $9337 = self.err; + var _reply$13 = Parser$text$("+", _pst$7); + var self = _reply$13; + switch (self._) { + case 'Parser.Reply.error': + var $9339 = self.err; + var self = $9337; + switch (self._) { + case 'Maybe.some': + var $9341 = self.value; + var $9342 = Parser$Reply$error$(Parser$Error$combine$($9341, $9339)); + var $9340 = $9342; + break; + case 'Maybe.none': + var $9343 = Parser$Reply$error$($9339); + var $9340 = $9343; + break; + }; + var $9338 = $9340; + break; + case 'Parser.Reply.value': + var $9344 = self.pst; + var self = $9344; + switch (self._) { + case 'Parser.State.new': + var $9346 = self.err; + var $9347 = self.nam; + var $9348 = self.ini; + var $9349 = self.idx; + var $9350 = self.str; + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($9337, $9346), $9347, $9348, $9349, $9350); + var $9351 = Parser$Reply$value$(_reply$pst$21, Maybe$some$(Bool$true)); + var $9345 = $9351; + break; + }; + var $9338 = $9345; + break; + }; + var $9336 = $9338; + break; + }; + return $9336; + }), List$cons$((_pst$7 => { + var self = _pst$7; + switch (self._) { + case 'Parser.State.new': + var $9353 = self.err; + var _reply$13 = Parser$text$("-", _pst$7); + var self = _reply$13; + switch (self._) { + case 'Parser.Reply.error': + var $9355 = self.err; + var self = $9353; + switch (self._) { + case 'Maybe.some': + var $9357 = self.value; + var $9358 = Parser$Reply$error$(Parser$Error$combine$($9357, $9355)); + var $9356 = $9358; + break; + case 'Maybe.none': + var $9359 = Parser$Reply$error$($9355); + var $9356 = $9359; + break; + }; + var $9354 = $9356; + break; + case 'Parser.Reply.value': + var $9360 = self.pst; + var self = $9360; + switch (self._) { + case 'Parser.State.new': + var $9362 = self.err; + var $9363 = self.nam; + var $9364 = self.ini; + var $9365 = self.idx; + var $9366 = self.str; + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($9353, $9362), $9363, $9364, $9365, $9366); + var $9367 = Parser$Reply$value$(_reply$pst$21, Maybe$some$(Bool$false)); + var $9361 = $9367; + break; + }; + var $9354 = $9361; + break; + }; + var $9352 = $9354; + break; + }; + return $9352; + }), List$cons$((_pst$7 => { + var $9368 = Parser$Reply$value$(_pst$7, Maybe$none); + return $9368; + }), List$nil))), _pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9369 = self.err; + var self = $9334; + switch (self._) { + case 'Maybe.some': + var $9371 = self.value; + var $9372 = Parser$Reply$error$(Parser$Error$combine$($9371, $9369)); + var $9370 = $9372; + break; + case 'Maybe.none': + var $9373 = Parser$Reply$error$($9369); + var $9370 = $9373; + break; + }; + var $9335 = $9370; + break; + case 'Parser.Reply.value': + var $9374 = self.pst; + var $9375 = self.val; + var self = $9374; + switch (self._) { + case 'Parser.State.new': + var $9377 = self.err; + var $9378 = self.nam; + var $9379 = self.ini; + var $9380 = self.idx; + var $9381 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9334, $9377), $9378, $9379, $9380, $9381); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $9383 = self.err; + var _reply$21 = Parser$choice$(List$cons$(Parser$hex_nat, List$cons$(Parser$nat, List$nil)), _reply$pst$15); + var self = _reply$21; + switch (self._) { + case 'Parser.Reply.error': + var $9385 = self.err; + var self = $9383; + switch (self._) { + case 'Maybe.some': + var $9387 = self.value; + var $9388 = Parser$Reply$error$(Parser$Error$combine$($9387, $9385)); + var $9386 = $9388; + break; + case 'Maybe.none': + var $9389 = Parser$Reply$error$($9385); + var $9386 = $9389; + break; + }; + var $9384 = $9386; + break; + case 'Parser.Reply.value': + var $9390 = self.pst; + var $9391 = self.val; + var self = $9390; + switch (self._) { + case 'Parser.State.new': + var $9393 = self.err; + var $9394 = self.nam; + var $9395 = self.ini; + var $9396 = self.idx; + var $9397 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($9383, $9393), $9394, $9395, $9396, $9397); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $9399 = self.err; + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $9401 = self.err; + var _reply$40 = Parser$maybe$(Parser$text("."), _reply$pst$29); + var self = _reply$40; + switch (self._) { + case 'Parser.Reply.error': + var $9403 = self.err; + var self = $9401; + switch (self._) { + case 'Maybe.some': + var $9405 = self.value; + var $9406 = Parser$Reply$error$(Parser$Error$combine$($9405, $9403)); + var $9404 = $9406; + break; + case 'Maybe.none': + var $9407 = Parser$Reply$error$($9403); + var $9404 = $9407; + break; + }; + var $9402 = $9404; + break; + case 'Parser.Reply.value': + var $9408 = self.pst; + var self = $9408; + switch (self._) { + case 'Parser.State.new': + var $9410 = self.err; + var $9411 = self.nam; + var $9412 = self.ini; + var $9413 = self.idx; + var $9414 = self.str; + var _reply$pst$48 = Parser$State$new$(Parser$Error$maybe_combine$($9401, $9410), $9411, $9412, $9413, $9414); + var self = _reply$pst$48; + switch (self._) { + case 'Parser.State.new': + var $9416 = self.err; + var _reply$54 = Parser$maybe$(Parser$nat, _reply$pst$48); + var self = _reply$54; + switch (self._) { + case 'Parser.Reply.error': + var $9418 = self.err; + var self = $9416; + switch (self._) { + case 'Maybe.some': + var $9420 = self.value; + var $9421 = Parser$Reply$error$(Parser$Error$combine$($9420, $9418)); + var $9419 = $9421; + break; + case 'Maybe.none': + var $9422 = Parser$Reply$error$($9418); + var $9419 = $9422; + break; + }; + var $9417 = $9419; + break; + case 'Parser.Reply.value': + var $9423 = self.pst; + var $9424 = self.val; + var self = $9423; + switch (self._) { + case 'Parser.State.new': + var $9426 = self.err; + var $9427 = self.nam; + var $9428 = self.ini; + var $9429 = self.idx; + var $9430 = self.str; + var _reply$pst$62 = Parser$State$new$(Parser$Error$maybe_combine$($9416, $9426), $9427, $9428, $9429, $9430); + var $9431 = Parser$Reply$value$(_reply$pst$62, $9424); + var $9425 = $9431; + break; + }; + var $9417 = $9425; + break; + }; + var $9415 = $9417; + break; + }; + var $9409 = $9415; + break; + }; + var $9402 = $9409; + break; + }; + var _reply$35 = $9402; + break; + }; + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $9432 = self.err; + var self = $9399; + switch (self._) { + case 'Maybe.some': + var $9434 = self.value; + var $9435 = Parser$Reply$error$(Parser$Error$combine$($9434, $9432)); + var $9433 = $9435; + break; + case 'Maybe.none': + var $9436 = Parser$Reply$error$($9432); + var $9433 = $9436; + break; + }; + var $9400 = $9433; + break; + case 'Parser.Reply.value': + var $9437 = self.pst; + var $9438 = self.val; + var self = $9437; + switch (self._) { + case 'Parser.State.new': + var $9440 = self.err; + var $9441 = self.nam; + var $9442 = self.ini; + var $9443 = self.idx; + var $9444 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($9399, $9440), $9441, $9442, $9443, $9444); + var $9445 = Parser$Reply$value$(_reply$pst$43, Parser$Number$new$($9375, $9391, $9438)); + var $9439 = $9445; + break; + }; + var $9400 = $9439; + break; + }; + var $9398 = $9400; + break; + }; + var $9392 = $9398; + break; + }; + var $9384 = $9392; + break; + }; + var $9382 = $9384; + break; + }; + var $9376 = $9382; + break; + }; + var $9335 = $9376; + break; + }; + var $9333 = $9335; + break; + }; + return $9333; + }; + const Parser$num = x0 => Parser$num$(x0); + + function Kind$Term$num$(_sign$1, _numb$2, _frac$3) { + var $9446 = ({ + _: 'Kind.Term.num', + 'sign': _sign$1, + 'numb': _numb$2, + 'frac': _frac$3 + }); + return $9446; + }; + const Kind$Term$num = x0 => x1 => x2 => Kind$Term$num$(x0, x1, x2); + + function Kind$Parser$num$(_pst$1) { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9448 = self.err; + var _reply$7 = Parser$num$(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9450 = self.err; + var self = $9448; + switch (self._) { + case 'Maybe.some': + var $9452 = self.value; + var $9453 = Parser$Reply$error$(Parser$Error$combine$($9452, $9450)); + var $9451 = $9453; + break; + case 'Maybe.none': + var $9454 = Parser$Reply$error$($9450); + var $9451 = $9454; + break; + }; + var $9449 = $9451; + break; + case 'Parser.Reply.value': + var $9455 = self.pst; + var $9456 = self.val; + var self = $9455; + switch (self._) { + case 'Parser.State.new': + var $9458 = self.err; + var $9459 = self.nam; + var $9460 = self.ini; + var $9461 = self.idx; + var $9462 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9448, $9458), $9459, $9460, $9461, $9462); + var self = $9456; + switch (self._) { + case 'Parser.Number.new': + var $9464 = self.sign; + var $9465 = self.numb; + var $9466 = self.frac; + var self = $9464; + switch (self._) { + case 'Maybe.none': + var self = $9466; + switch (self._) { + case 'Maybe.none': + var $9469 = (_pst$19 => { + var $9470 = Parser$Reply$value$(_pst$19, Kind$Term$nat$($9465)); + return $9470; + }); + var $9468 = $9469; + break; + case 'Maybe.some': + var $9471 = (_pst$20 => { + var $9472 = Parser$Reply$value$(_pst$20, Kind$Term$num$($9464, $9465, $9466)); + return $9472; + }); + var $9468 = $9471; + break; + }; + var $9467 = $9468; + break; + case 'Maybe.some': + var $9473 = (_pst$20 => { + var $9474 = Parser$Reply$value$(_pst$20, Kind$Term$num$($9464, $9465, $9466)); + return $9474; + }); + var $9467 = $9473; + break; + }; + var $9463 = $9467; + break; + }; + var $9463 = $9463(_reply$pst$15); + var $9457 = $9463; + break; + }; + var $9449 = $9457; + break; + }; + var $9447 = $9449; + break; + }; + return $9447; + }; + const Kind$Parser$num = x0 => Kind$Parser$num$(x0); + const Kind$Parser$reference = Kind$Parser$block("reference")((_pst$1 => { + var self = _pst$1; + switch (self._) { + case 'Parser.State.new': + var $9476 = self.err; + var _reply$7 = Kind$Parser$name1$(_pst$1); + var self = _reply$7; + switch (self._) { + case 'Parser.Reply.error': + var $9478 = self.err; + var self = $9476; + switch (self._) { + case 'Maybe.some': + var $9480 = self.value; + var $9481 = Parser$Reply$error$(Parser$Error$combine$($9480, $9478)); + var $9479 = $9481; + break; + case 'Maybe.none': + var $9482 = Parser$Reply$error$($9478); + var $9479 = $9482; + break; + }; + var $9477 = $9479; + break; + case 'Parser.Reply.value': + var $9483 = self.pst; + var $9484 = self.val; + var self = $9483; + switch (self._) { + case 'Parser.State.new': + var $9486 = self.err; + var $9487 = self.nam; + var $9488 = self.ini; + var $9489 = self.idx; + var $9490 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($9476, $9486), $9487, $9488, $9489, $9490); + var self = ($9484 === "Type"); + if (self) { + var $9492 = (_pst$16 => { + var $9493 = Parser$Reply$value$(_pst$16, Kind$Term$typ); + return $9493; + }); + var $9491 = $9492; + } else { + var self = ($9484 === "true"); + if (self) { + var $9495 = (_pst$16 => { + var $9496 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Bool.true")); + return $9496; + }); + var $9494 = $9495; + } else { + var self = ($9484 === "false"); + if (self) { + var $9498 = (_pst$16 => { + var $9499 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Bool.false")); + return $9499; + }); + var $9497 = $9498; + } else { + var self = ($9484 === "unit"); + if (self) { + var $9501 = (_pst$16 => { + var $9502 = Parser$Reply$value$(_pst$16, Kind$Term$ref$("Unit.new")); + return $9502; + }); + var $9500 = $9501; + } else { + var self = ($9484 === "none"); + if (self) { + var _term$16 = Kind$Term$ref$("Maybe.none"); + var _term$17 = Kind$Term$app$(_term$16, Kind$Term$hol$(Bits$e)); + var $9504 = (_pst$18 => { + var $9505 = Parser$Reply$value$(_pst$18, _term$17); + return $9505; + }); + var $9503 = $9504; + } else { + var self = ($9484 === "refl"); + if (self) { + var _term$16 = Kind$Term$ref$("Equal.refl"); + var _term$17 = Kind$Term$app$(_term$16, Kind$Term$hol$(Bits$e)); + var _term$18 = Kind$Term$app$(_term$17, Kind$Term$hol$(Bits$e)); + var $9507 = (_pst$19 => { + var $9508 = Parser$Reply$value$(_pst$19, _term$18); + return $9508; + }); + var $9506 = $9507; + } else { + var $9509 = (_pst$16 => { + var $9510 = Parser$Reply$value$(_pst$16, Kind$Term$ref$($9484)); + return $9510; + }); + var $9506 = $9509; + }; + var $9503 = $9506; + }; + var $9500 = $9503; + }; + var $9497 = $9500; + }; + var $9494 = $9497; + }; + var $9491 = $9494; + }; + var $9491 = $9491(_reply$pst$15); + var $9485 = $9491; + break; + }; + var $9477 = $9485; + break; + }; + var $9475 = $9477; + break; + }; + return $9475; + })); + + function Kind$Parser$items_now$(_ini$2, _parser$3, _end$4) { + var $9511 = Parser$wrap1(Kind$Parser$text_now$(_ini$2))((_pst$5 => { + var self = _pst$5; + switch (self._) { + case 'Parser.State.new': + var $9513 = self.err; + var _reply$11 = Kind$Parser$spaces(_pst$5); + var self = _reply$11; + switch (self._) { + case 'Parser.Reply.error': + var $9515 = self.err; + var self = $9513; + switch (self._) { + case 'Maybe.some': + var $9517 = self.value; + var $9518 = Parser$Reply$error$(Parser$Error$combine$($9517, $9515)); + var $9516 = $9518; + break; + case 'Maybe.none': + var $9519 = Parser$Reply$error$($9515); + var $9516 = $9519; + break; + }; + var $9514 = $9516; + break; + case 'Parser.Reply.value': + var $9520 = self.pst; + var self = $9520; + switch (self._) { + case 'Parser.State.new': + var $9522 = self.err; + var $9523 = self.nam; + var $9524 = self.ini; + var $9525 = self.idx; + var $9526 = self.str; + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($9513, $9522), $9523, $9524, $9525, $9526); + var self = _reply$pst$19; + switch (self._) { + case 'Parser.State.new': + var $9528 = self.err; + var _reply$25 = _parser$3(_reply$pst$19); + var self = _reply$25; + switch (self._) { + case 'Parser.Reply.error': + var $9530 = self.err; + var self = $9528; + switch (self._) { + case 'Maybe.some': + var $9532 = self.value; + var $9533 = Parser$Reply$error$(Parser$Error$combine$($9532, $9530)); + var $9531 = $9533; + break; + case 'Maybe.none': + var $9534 = Parser$Reply$error$($9530); + var $9531 = $9534; + break; + }; + var $9529 = $9531; + break; + case 'Parser.Reply.value': + var $9535 = self.pst; + var $9536 = self.val; + var self = $9535; + switch (self._) { + case 'Parser.State.new': + var $9538 = self.err; + var $9539 = self.nam; + var $9540 = self.ini; + var $9541 = self.idx; + var $9542 = self.str; + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($9528, $9538), $9539, $9540, $9541, $9542); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $9544 = self.err; + var _reply$39 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $9546 = self.err; + var self = $9544; + switch (self._) { + case 'Maybe.some': + var $9548 = self.value; + var $9549 = Parser$Reply$error$(Parser$Error$combine$($9548, $9546)); + var $9547 = $9549; + break; + case 'Maybe.none': + var $9550 = Parser$Reply$error$($9546); + var $9547 = $9550; + break; + }; + var $9545 = $9547; + break; + case 'Parser.Reply.value': + var $9551 = self.pst; + var self = $9551; + switch (self._) { + case 'Parser.State.new': + var $9553 = self.err; + var $9554 = self.nam; + var $9555 = self.ini; + var $9556 = self.idx; + var $9557 = self.str; + var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($9544, $9553), $9554, $9555, $9556, $9557); + var $9558 = Parser$Reply$value$(_reply$pst$47, $9536); + var $9552 = $9558; + break; + }; + var $9545 = $9552; + break; + }; + var $9543 = $9545; + break; + }; + var $9537 = $9543; + break; + }; + var $9529 = $9537; + break; + }; + var $9527 = $9529; + break; + }; + var $9521 = $9527; + break; + }; + var $9514 = $9521; + break; + }; + var $9512 = $9514; + break; + }; + return $9512; + }))(Kind$Parser$text(_end$4)); + return $9511; + }; + const Kind$Parser$items_now = x0 => x1 => x2 => Kind$Parser$items_now$(x0, x1, x2); + const List$for = a0 => a1 => a2 => (list_for(a0)(a1)(a2)); + + function Kind$Parser$application$(_func$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $9560 = self.err; + var _reply$8 = Kind$Parser$items_now$("(", Kind$Parser$term, ")")(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $9562 = self.err; + var self = $9560; + switch (self._) { + case 'Maybe.some': + var $9564 = self.value; + var $9565 = Parser$Reply$error$(Parser$Error$combine$($9564, $9562)); + var $9563 = $9565; + break; + case 'Maybe.none': + var $9566 = Parser$Reply$error$($9562); + var $9563 = $9566; + break; + }; + var $9561 = $9563; + break; + case 'Parser.Reply.value': + var $9567 = self.pst; + var $9568 = self.val; + var self = $9567; + switch (self._) { + case 'Parser.State.new': + var $9570 = self.err; + var $9571 = self.nam; + var $9572 = self.ini; + var $9573 = self.idx; + var $9574 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9560, $9570), $9571, $9572, $9573, $9574); + var _expr$17 = (() => { + var $9577 = _func$1; + var $9578 = $9568; + let _f$18 = $9577; + let _x$17; + while ($9578._ === 'List.cons') { + _x$17 = $9578.head; + var $9577 = Kind$Term$app$(_f$18, _x$17); + _f$18 = $9577; + $9578 = $9578.tail; + } + return _f$18; + })(); + var $9575 = Parser$Reply$value$(_reply$pst$16, _expr$17); + var $9569 = $9575; + break; + }; + var $9561 = $9569; + break; + }; + var $9559 = $9561; + break; + }; + return $9559; + }; + const Kind$Parser$application = x0 => x1 => Kind$Parser$application$(x0, x1); + + function Kind$Parser$application$erased$(_func$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $9580 = self.err; + var _reply$8 = Kind$Parser$items_now$("<", Kind$Parser$term, ">")(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $9582 = self.err; + var self = $9580; + switch (self._) { + case 'Maybe.some': + var $9584 = self.value; + var $9585 = Parser$Reply$error$(Parser$Error$combine$($9584, $9582)); + var $9583 = $9585; + break; + case 'Maybe.none': + var $9586 = Parser$Reply$error$($9582); + var $9583 = $9586; + break; + }; + var $9581 = $9583; + break; + case 'Parser.Reply.value': + var $9587 = self.pst; + var $9588 = self.val; + var self = $9587; + switch (self._) { + case 'Parser.State.new': + var $9590 = self.err; + var $9591 = self.nam; + var $9592 = self.ini; + var $9593 = self.idx; + var $9594 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9580, $9590), $9591, $9592, $9593, $9594); + var _expr$17 = (() => { + var $9597 = _func$1; + var $9598 = $9588; + let _f$18 = $9597; + let _x$17; + while ($9598._ === 'List.cons') { + _x$17 = $9598.head; + var $9597 = Kind$Term$app$(_f$18, _x$17); + _f$18 = $9597; + $9598 = $9598.tail; + } + return _f$18; + })(); + var $9595 = Parser$Reply$value$(_reply$pst$16, _expr$17); + var $9589 = $9595; + break; + }; + var $9581 = $9589; + break; + }; + var $9579 = $9581; + break; + }; + return $9579; + }; + const Kind$Parser$application$erased = x0 => x1 => Kind$Parser$application$erased$(x0, x1); + + function Kind$Parser$list_set$(_list$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $9600 = self.err; + var _reply$8 = Kind$Parser$text_now$("[")(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $9602 = self.err; + var self = $9600; + switch (self._) { + case 'Maybe.some': + var $9604 = self.value; + var $9605 = Parser$Reply$error$(Parser$Error$combine$($9604, $9602)); + var $9603 = $9605; + break; + case 'Maybe.none': + var $9606 = Parser$Reply$error$($9602); + var $9603 = $9606; + break; + }; + var $9601 = $9603; + break; + case 'Parser.Reply.value': + var $9607 = self.pst; + var self = $9607; + switch (self._) { + case 'Parser.State.new': + var $9609 = self.err; + var $9610 = self.nam; + var $9611 = self.ini; + var $9612 = self.idx; + var $9613 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9600, $9609), $9610, $9611, $9612, $9613); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $9615 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $9617 = self.err; + var self = $9615; + switch (self._) { + case 'Maybe.some': + var $9619 = self.value; + var $9620 = Parser$Reply$error$(Parser$Error$combine$($9619, $9617)); + var $9618 = $9620; + break; + case 'Maybe.none': + var $9621 = Parser$Reply$error$($9617); + var $9618 = $9621; + break; + }; + var $9616 = $9618; + break; + case 'Parser.Reply.value': + var $9622 = self.pst; + var $9623 = self.val; + var self = $9622; + switch (self._) { + case 'Parser.State.new': + var $9625 = self.err; + var $9626 = self.nam; + var $9627 = self.ini; + var $9628 = self.idx; + var $9629 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9615, $9625), $9626, $9627, $9628, $9629); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $9631 = self.err; + var _reply$36 = Kind$Parser$text$("]", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $9633 = self.err; + var self = $9631; + switch (self._) { + case 'Maybe.some': + var $9635 = self.value; + var $9636 = Parser$Reply$error$(Parser$Error$combine$($9635, $9633)); + var $9634 = $9636; + break; + case 'Maybe.none': + var $9637 = Parser$Reply$error$($9633); + var $9634 = $9637; + break; + }; + var $9632 = $9634; + break; + case 'Parser.Reply.value': + var $9638 = self.pst; + var self = $9638; + switch (self._) { + case 'Parser.State.new': + var $9640 = self.err; + var $9641 = self.nam; + var $9642 = self.ini; + var $9643 = self.idx; + var $9644 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9631, $9640), $9641, $9642, $9643, $9644); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $9646 = self.err; + var _reply$50 = Kind$Parser$text$("<-", _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $9648 = self.err; + var self = $9646; + switch (self._) { + case 'Maybe.some': + var $9650 = self.value; + var $9651 = Parser$Reply$error$(Parser$Error$combine$($9650, $9648)); + var $9649 = $9651; + break; + case 'Maybe.none': + var $9652 = Parser$Reply$error$($9648); + var $9649 = $9652; + break; + }; + var $9647 = $9649; + break; + case 'Parser.Reply.value': + var $9653 = self.pst; + var self = $9653; + switch (self._) { + case 'Parser.State.new': + var $9655 = self.err; + var $9656 = self.nam; + var $9657 = self.ini; + var $9658 = self.idx; + var $9659 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($9646, $9655), $9656, $9657, $9658, $9659); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $9661 = self.err; + var _reply$64 = Kind$Parser$term(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $9663 = self.err; + var self = $9661; + switch (self._) { + case 'Maybe.some': + var $9665 = self.value; + var $9666 = Parser$Reply$error$(Parser$Error$combine$($9665, $9663)); + var $9664 = $9666; + break; + case 'Maybe.none': + var $9667 = Parser$Reply$error$($9663); + var $9664 = $9667; + break; + }; + var $9662 = $9664; + break; + case 'Parser.Reply.value': + var $9668 = self.pst; + var $9669 = self.val; + var self = $9668; + switch (self._) { + case 'Parser.State.new': + var $9671 = self.err; + var $9672 = self.nam; + var $9673 = self.ini; + var $9674 = self.idx; + var $9675 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($9661, $9671), $9672, $9673, $9674, $9675); + var _term$73 = Kind$Term$ref$("List.set"); + var _term$74 = Kind$Term$app$(_term$73, Kind$Term$hol$(Bits$e)); + var _term$75 = Kind$Term$app$(_term$74, $9623); + var _term$76 = Kind$Term$app$(_term$75, $9669); + var _term$77 = Kind$Term$app$(_term$76, _list$1); + var $9676 = Parser$Reply$value$(_reply$pst$72, _term$77); + var $9670 = $9676; + break; + }; + var $9662 = $9670; + break; + }; + var $9660 = $9662; + break; + }; + var $9654 = $9660; + break; + }; + var $9647 = $9654; + break; + }; + var $9645 = $9647; + break; + }; + var $9639 = $9645; + break; + }; + var $9632 = $9639; + break; + }; + var $9630 = $9632; + break; + }; + var $9624 = $9630; + break; + }; + var $9616 = $9624; + break; + }; + var $9614 = $9616; + break; + }; + var $9608 = $9614; + break; + }; + var $9601 = $9608; + break; + }; + var $9599 = $9601; + break; + }; + return $9599; + }; + const Kind$Parser$list_set = x0 => x1 => Kind$Parser$list_set$(x0, x1); + + function Kind$Parser$list_get$(_list$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $9678 = self.err; + var _reply$8 = Kind$Parser$text_now$("[")(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $9680 = self.err; + var self = $9678; + switch (self._) { + case 'Maybe.some': + var $9682 = self.value; + var $9683 = Parser$Reply$error$(Parser$Error$combine$($9682, $9680)); + var $9681 = $9683; + break; + case 'Maybe.none': + var $9684 = Parser$Reply$error$($9680); + var $9681 = $9684; + break; + }; + var $9679 = $9681; + break; + case 'Parser.Reply.value': + var $9685 = self.pst; + var self = $9685; + switch (self._) { + case 'Parser.State.new': + var $9687 = self.err; + var $9688 = self.nam; + var $9689 = self.ini; + var $9690 = self.idx; + var $9691 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9678, $9687), $9688, $9689, $9690, $9691); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $9693 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $9695 = self.err; + var self = $9693; + switch (self._) { + case 'Maybe.some': + var $9697 = self.value; + var $9698 = Parser$Reply$error$(Parser$Error$combine$($9697, $9695)); + var $9696 = $9698; + break; + case 'Maybe.none': + var $9699 = Parser$Reply$error$($9695); + var $9696 = $9699; + break; + }; + var $9694 = $9696; + break; + case 'Parser.Reply.value': + var $9700 = self.pst; + var $9701 = self.val; + var self = $9700; + switch (self._) { + case 'Parser.State.new': + var $9703 = self.err; + var $9704 = self.nam; + var $9705 = self.ini; + var $9706 = self.idx; + var $9707 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9693, $9703), $9704, $9705, $9706, $9707); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $9709 = self.err; + var _reply$36 = Kind$Parser$text$("]", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $9711 = self.err; + var self = $9709; + switch (self._) { + case 'Maybe.some': + var $9713 = self.value; + var $9714 = Parser$Reply$error$(Parser$Error$combine$($9713, $9711)); + var $9712 = $9714; + break; + case 'Maybe.none': + var $9715 = Parser$Reply$error$($9711); + var $9712 = $9715; + break; + }; + var $9710 = $9712; + break; + case 'Parser.Reply.value': + var $9716 = self.pst; + var self = $9716; + switch (self._) { + case 'Parser.State.new': + var $9718 = self.err; + var $9719 = self.nam; + var $9720 = self.ini; + var $9721 = self.idx; + var $9722 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9709, $9718), $9719, $9720, $9721, $9722); + var _term$45 = Kind$Term$ref$("List.get"); + var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); + var _term$47 = Kind$Term$app$(_term$46, $9701); + var _term$48 = Kind$Term$app$(_term$47, _list$1); + var $9723 = Parser$Reply$value$(_reply$pst$44, _term$48); + var $9717 = $9723; + break; + }; + var $9710 = $9717; + break; + }; + var $9708 = $9710; + break; + }; + var $9702 = $9708; + break; + }; + var $9694 = $9702; + break; + }; + var $9692 = $9694; + break; + }; + var $9686 = $9692; + break; + }; + var $9679 = $9686; + break; + }; + var $9677 = $9679; + break; + }; + return $9677; + }; + const Kind$Parser$list_get = x0 => x1 => Kind$Parser$list_get$(x0, x1); + + function Kind$Parser$map_set$(_map$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $9725 = self.err; + var _reply$8 = Kind$Parser$text_now$("{")(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $9727 = self.err; + var self = $9725; + switch (self._) { + case 'Maybe.some': + var $9729 = self.value; + var $9730 = Parser$Reply$error$(Parser$Error$combine$($9729, $9727)); + var $9728 = $9730; + break; + case 'Maybe.none': + var $9731 = Parser$Reply$error$($9727); + var $9728 = $9731; + break; + }; + var $9726 = $9728; + break; + case 'Parser.Reply.value': + var $9732 = self.pst; + var self = $9732; + switch (self._) { + case 'Parser.State.new': + var $9734 = self.err; + var $9735 = self.nam; + var $9736 = self.ini; + var $9737 = self.idx; + var $9738 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9725, $9734), $9735, $9736, $9737, $9738); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $9740 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $9742 = self.err; + var self = $9740; + switch (self._) { + case 'Maybe.some': + var $9744 = self.value; + var $9745 = Parser$Reply$error$(Parser$Error$combine$($9744, $9742)); + var $9743 = $9745; + break; + case 'Maybe.none': + var $9746 = Parser$Reply$error$($9742); + var $9743 = $9746; + break; + }; + var $9741 = $9743; + break; + case 'Parser.Reply.value': + var $9747 = self.pst; + var $9748 = self.val; + var self = $9747; + switch (self._) { + case 'Parser.State.new': + var $9750 = self.err; + var $9751 = self.nam; + var $9752 = self.ini; + var $9753 = self.idx; + var $9754 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9740, $9750), $9751, $9752, $9753, $9754); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $9756 = self.err; + var _reply$36 = Kind$Parser$text$("}", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $9758 = self.err; + var self = $9756; + switch (self._) { + case 'Maybe.some': + var $9760 = self.value; + var $9761 = Parser$Reply$error$(Parser$Error$combine$($9760, $9758)); + var $9759 = $9761; + break; + case 'Maybe.none': + var $9762 = Parser$Reply$error$($9758); + var $9759 = $9762; + break; + }; + var $9757 = $9759; + break; + case 'Parser.Reply.value': + var $9763 = self.pst; + var self = $9763; + switch (self._) { + case 'Parser.State.new': + var $9765 = self.err; + var $9766 = self.nam; + var $9767 = self.ini; + var $9768 = self.idx; + var $9769 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9756, $9765), $9766, $9767, $9768, $9769); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $9771 = self.err; + var _reply$50 = Kind$Parser$text$("<-", _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $9773 = self.err; + var self = $9771; + switch (self._) { + case 'Maybe.some': + var $9775 = self.value; + var $9776 = Parser$Reply$error$(Parser$Error$combine$($9775, $9773)); + var $9774 = $9776; + break; + case 'Maybe.none': + var $9777 = Parser$Reply$error$($9773); + var $9774 = $9777; + break; + }; + var $9772 = $9774; + break; + case 'Parser.Reply.value': + var $9778 = self.pst; + var self = $9778; + switch (self._) { + case 'Parser.State.new': + var $9780 = self.err; + var $9781 = self.nam; + var $9782 = self.ini; + var $9783 = self.idx; + var $9784 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($9771, $9780), $9781, $9782, $9783, $9784); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $9786 = self.err; + var _reply$64 = Kind$Parser$term(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $9788 = self.err; + var self = $9786; + switch (self._) { + case 'Maybe.some': + var $9790 = self.value; + var $9791 = Parser$Reply$error$(Parser$Error$combine$($9790, $9788)); + var $9789 = $9791; + break; + case 'Maybe.none': + var $9792 = Parser$Reply$error$($9788); + var $9789 = $9792; + break; + }; + var $9787 = $9789; + break; + case 'Parser.Reply.value': + var $9793 = self.pst; + var $9794 = self.val; + var self = $9793; + switch (self._) { + case 'Parser.State.new': + var $9796 = self.err; + var $9797 = self.nam; + var $9798 = self.ini; + var $9799 = self.idx; + var $9800 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($9786, $9796), $9797, $9798, $9799, $9800); + var _term$73 = Kind$Term$ref$("Map.set"); + var _term$74 = Kind$Term$app$(_term$73, Kind$Term$hol$(Bits$e)); + var _term$75 = Kind$Term$app$(_term$74, $9748); + var _term$76 = Kind$Term$app$(_term$75, $9794); + var _term$77 = Kind$Term$app$(_term$76, _map$1); + var $9801 = Parser$Reply$value$(_reply$pst$72, _term$77); + var $9795 = $9801; + break; + }; + var $9787 = $9795; + break; + }; + var $9785 = $9787; + break; + }; + var $9779 = $9785; + break; + }; + var $9772 = $9779; + break; + }; + var $9770 = $9772; + break; + }; + var $9764 = $9770; + break; + }; + var $9757 = $9764; + break; + }; + var $9755 = $9757; + break; + }; + var $9749 = $9755; + break; + }; + var $9741 = $9749; + break; + }; + var $9739 = $9741; + break; + }; + var $9733 = $9739; + break; + }; + var $9726 = $9733; + break; + }; + var $9724 = $9726; + break; + }; + return $9724; + }; + const Kind$Parser$map_set = x0 => x1 => Kind$Parser$map_set$(x0, x1); + + function Kind$Parser$map_get$(_map$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $9803 = self.err; + var _reply$8 = Kind$Parser$text_now$("{")(_pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $9805 = self.err; + var self = $9803; + switch (self._) { + case 'Maybe.some': + var $9807 = self.value; + var $9808 = Parser$Reply$error$(Parser$Error$combine$($9807, $9805)); + var $9806 = $9808; + break; + case 'Maybe.none': + var $9809 = Parser$Reply$error$($9805); + var $9806 = $9809; + break; + }; + var $9804 = $9806; + break; + case 'Parser.Reply.value': + var $9810 = self.pst; + var self = $9810; + switch (self._) { + case 'Parser.State.new': + var $9812 = self.err; + var $9813 = self.nam; + var $9814 = self.ini; + var $9815 = self.idx; + var $9816 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9803, $9812), $9813, $9814, $9815, $9816); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $9818 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $9820 = self.err; + var self = $9818; + switch (self._) { + case 'Maybe.some': + var $9822 = self.value; + var $9823 = Parser$Reply$error$(Parser$Error$combine$($9822, $9820)); + var $9821 = $9823; + break; + case 'Maybe.none': + var $9824 = Parser$Reply$error$($9820); + var $9821 = $9824; + break; + }; + var $9819 = $9821; + break; + case 'Parser.Reply.value': + var $9825 = self.pst; + var $9826 = self.val; + var self = $9825; + switch (self._) { + case 'Parser.State.new': + var $9828 = self.err; + var $9829 = self.nam; + var $9830 = self.ini; + var $9831 = self.idx; + var $9832 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9818, $9828), $9829, $9830, $9831, $9832); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $9834 = self.err; + var _reply$36 = Kind$Parser$text$("}", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $9836 = self.err; + var self = $9834; + switch (self._) { + case 'Maybe.some': + var $9838 = self.value; + var $9839 = Parser$Reply$error$(Parser$Error$combine$($9838, $9836)); + var $9837 = $9839; + break; + case 'Maybe.none': + var $9840 = Parser$Reply$error$($9836); + var $9837 = $9840; + break; + }; + var $9835 = $9837; + break; + case 'Parser.Reply.value': + var $9841 = self.pst; + var self = $9841; + switch (self._) { + case 'Parser.State.new': + var $9843 = self.err; + var $9844 = self.nam; + var $9845 = self.ini; + var $9846 = self.idx; + var $9847 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9834, $9843), $9844, $9845, $9846, $9847); + var _term$45 = Kind$Term$ref$("Map.get"); + var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); + var _term$47 = Kind$Term$app$(_term$46, $9826); + var _term$48 = Kind$Term$app$(_term$47, _map$1); + var $9848 = Parser$Reply$value$(_reply$pst$44, _term$48); + var $9842 = $9848; + break; + }; + var $9835 = $9842; + break; + }; + var $9833 = $9835; + break; + }; + var $9827 = $9833; + break; + }; + var $9819 = $9827; + break; + }; + var $9817 = $9819; + break; + }; + var $9811 = $9817; + break; + }; + var $9804 = $9811; + break; + }; + var $9802 = $9804; + break; + }; + return $9802; + }; + const Kind$Parser$map_get = x0 => x1 => Kind$Parser$map_get$(x0, x1); + + function Kind$Term$set$(_expr$1, _fkey$2, _fval$3) { + var $9849 = ({ + _: 'Kind.Term.set', + 'expr': _expr$1, + 'fkey': _fkey$2, + 'fval': _fval$3 + }); + return $9849; + }; + const Kind$Term$set = x0 => x1 => x2 => Kind$Term$set$(x0, x1, x2); + + function Kind$Parser$field_set$(_term$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $9851 = self.err; + var _reply$8 = Kind$Parser$text$("@", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $9853 = self.err; + var self = $9851; + switch (self._) { + case 'Maybe.some': + var $9855 = self.value; + var $9856 = Parser$Reply$error$(Parser$Error$combine$($9855, $9853)); + var $9854 = $9856; + break; + case 'Maybe.none': + var $9857 = Parser$Reply$error$($9853); + var $9854 = $9857; + break; + }; + var $9852 = $9854; + break; + case 'Parser.Reply.value': + var $9858 = self.pst; + var self = $9858; + switch (self._) { + case 'Parser.State.new': + var $9860 = self.err; + var $9861 = self.nam; + var $9862 = self.ini; + var $9863 = self.idx; + var $9864 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9851, $9860), $9861, $9862, $9863, $9864); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $9866 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $9868 = self.err; + var self = $9866; + switch (self._) { + case 'Maybe.some': + var $9870 = self.value; + var $9871 = Parser$Reply$error$(Parser$Error$combine$($9870, $9868)); + var $9869 = $9871; + break; + case 'Maybe.none': + var $9872 = Parser$Reply$error$($9868); + var $9869 = $9872; + break; + }; + var $9867 = $9869; + break; + case 'Parser.Reply.value': + var $9873 = self.pst; + var $9874 = self.val; + var self = $9873; + switch (self._) { + case 'Parser.State.new': + var $9876 = self.err; + var $9877 = self.nam; + var $9878 = self.ini; + var $9879 = self.idx; + var $9880 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9866, $9876), $9877, $9878, $9879, $9880); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $9882 = self.err; + var _reply$36 = Kind$Parser$text$("<-", _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $9884 = self.err; + var self = $9882; + switch (self._) { + case 'Maybe.some': + var $9886 = self.value; + var $9887 = Parser$Reply$error$(Parser$Error$combine$($9886, $9884)); + var $9885 = $9887; + break; + case 'Maybe.none': + var $9888 = Parser$Reply$error$($9884); + var $9885 = $9888; + break; + }; + var $9883 = $9885; + break; + case 'Parser.Reply.value': + var $9889 = self.pst; + var self = $9889; + switch (self._) { + case 'Parser.State.new': + var $9891 = self.err; + var $9892 = self.nam; + var $9893 = self.ini; + var $9894 = self.idx; + var $9895 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($9882, $9891), $9892, $9893, $9894, $9895); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $9897 = self.err; + var _reply$50 = Kind$Parser$term(_reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $9899 = self.err; + var self = $9897; + switch (self._) { + case 'Maybe.some': + var $9901 = self.value; + var $9902 = Parser$Reply$error$(Parser$Error$combine$($9901, $9899)); + var $9900 = $9902; + break; + case 'Maybe.none': + var $9903 = Parser$Reply$error$($9899); + var $9900 = $9903; + break; + }; + var $9898 = $9900; + break; + case 'Parser.Reply.value': + var $9904 = self.pst; + var $9905 = self.val; + var self = $9904; + switch (self._) { + case 'Parser.State.new': + var $9907 = self.err; + var $9908 = self.nam; + var $9909 = self.ini; + var $9910 = self.idx; + var $9911 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($9897, $9907), $9908, $9909, $9910, $9911); + var $9912 = Parser$Reply$value$(_reply$pst$58, Kind$Term$set$(_term$1, $9874, $9905)); + var $9906 = $9912; + break; + }; + var $9898 = $9906; + break; + }; + var $9896 = $9898; + break; + }; + var $9890 = $9896; + break; + }; + var $9883 = $9890; + break; + }; + var $9881 = $9883; + break; + }; + var $9875 = $9881; + break; + }; + var $9867 = $9875; + break; + }; + var $9865 = $9867; + break; + }; + var $9859 = $9865; + break; + }; + var $9852 = $9859; + break; + }; + var $9850 = $9852; + break; + }; + return $9850; + }; + const Kind$Parser$field_set = x0 => x1 => Kind$Parser$field_set$(x0, x1); + + function Kind$Term$get$(_expr$1, _fkey$2) { + var $9913 = ({ + _: 'Kind.Term.get', + 'expr': _expr$1, + 'fkey': _fkey$2 + }); + return $9913; + }; + const Kind$Term$get = x0 => x1 => Kind$Term$get$(x0, x1); + + function Kind$Parser$field_get$(_term$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $9915 = self.err; + var _reply$8 = Kind$Parser$text$("@", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $9917 = self.err; + var self = $9915; + switch (self._) { + case 'Maybe.some': + var $9919 = self.value; + var $9920 = Parser$Reply$error$(Parser$Error$combine$($9919, $9917)); + var $9918 = $9920; + break; + case 'Maybe.none': + var $9921 = Parser$Reply$error$($9917); + var $9918 = $9921; + break; + }; + var $9916 = $9918; + break; + case 'Parser.Reply.value': + var $9922 = self.pst; + var self = $9922; + switch (self._) { + case 'Parser.State.new': + var $9924 = self.err; + var $9925 = self.nam; + var $9926 = self.ini; + var $9927 = self.idx; + var $9928 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9915, $9924), $9925, $9926, $9927, $9928); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $9930 = self.err; + var _reply$22 = Kind$Parser$name1$(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $9932 = self.err; + var self = $9930; + switch (self._) { + case 'Maybe.some': + var $9934 = self.value; + var $9935 = Parser$Reply$error$(Parser$Error$combine$($9934, $9932)); + var $9933 = $9935; + break; + case 'Maybe.none': + var $9936 = Parser$Reply$error$($9932); + var $9933 = $9936; + break; + }; + var $9931 = $9933; + break; + case 'Parser.Reply.value': + var $9937 = self.pst; + var $9938 = self.val; + var self = $9937; + switch (self._) { + case 'Parser.State.new': + var $9940 = self.err; + var $9941 = self.nam; + var $9942 = self.ini; + var $9943 = self.idx; + var $9944 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9930, $9940), $9941, $9942, $9943, $9944); + var $9945 = Parser$Reply$value$(_reply$pst$30, Kind$Term$get$(_term$1, $9938)); + var $9939 = $9945; + break; + }; + var $9931 = $9939; + break; + }; + var $9929 = $9931; + break; + }; + var $9923 = $9929; + break; + }; + var $9916 = $9923; + break; + }; + var $9914 = $9916; + break; + }; + return $9914; + }; + const Kind$Parser$field_get = x0 => x1 => Kind$Parser$field_get$(x0, x1); + + function Kind$Parser$arrow$(_xtyp$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $9947 = self.err; + var _reply$8 = Kind$Parser$text$("->", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $9949 = self.err; + var self = $9947; + switch (self._) { + case 'Maybe.some': + var $9951 = self.value; + var $9952 = Parser$Reply$error$(Parser$Error$combine$($9951, $9949)); + var $9950 = $9952; + break; + case 'Maybe.none': + var $9953 = Parser$Reply$error$($9949); + var $9950 = $9953; + break; + }; + var $9948 = $9950; + break; + case 'Parser.Reply.value': + var $9954 = self.pst; + var self = $9954; + switch (self._) { + case 'Parser.State.new': + var $9956 = self.err; + var $9957 = self.nam; + var $9958 = self.ini; + var $9959 = self.idx; + var $9960 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9947, $9956), $9957, $9958, $9959, $9960); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $9962 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $9964 = self.err; + var self = $9962; + switch (self._) { + case 'Maybe.some': + var $9966 = self.value; + var $9967 = Parser$Reply$error$(Parser$Error$combine$($9966, $9964)); + var $9965 = $9967; + break; + case 'Maybe.none': + var $9968 = Parser$Reply$error$($9964); + var $9965 = $9968; + break; + }; + var $9963 = $9965; + break; + case 'Parser.Reply.value': + var $9969 = self.pst; + var $9970 = self.val; + var self = $9969; + switch (self._) { + case 'Parser.State.new': + var $9972 = self.err; + var $9973 = self.nam; + var $9974 = self.ini; + var $9975 = self.idx; + var $9976 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9962, $9972), $9973, $9974, $9975, $9976); + var $9977 = Parser$Reply$value$(_reply$pst$30, Kind$Term$all$(Bool$false, "", "", _xtyp$1, (_s$31 => _x$32 => { + var $9978 = $9970; + return $9978; + }))); + var $9971 = $9977; + break; + }; + var $9963 = $9971; + break; + }; + var $9961 = $9963; + break; + }; + var $9955 = $9961; + break; + }; + var $9948 = $9955; + break; + }; + var $9946 = $9948; + break; + }; + return $9946; + }; + const Kind$Parser$arrow = x0 => x1 => Kind$Parser$arrow$(x0, x1); + + function Kind$Parser$concat$(_lst0$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $9980 = self.err; + var _reply$8 = Kind$Parser$text$("++", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $9982 = self.err; + var self = $9980; + switch (self._) { + case 'Maybe.some': + var $9984 = self.value; + var $9985 = Parser$Reply$error$(Parser$Error$combine$($9984, $9982)); + var $9983 = $9985; + break; + case 'Maybe.none': + var $9986 = Parser$Reply$error$($9982); + var $9983 = $9986; + break; + }; + var $9981 = $9983; + break; + case 'Parser.Reply.value': + var $9987 = self.pst; + var self = $9987; + switch (self._) { + case 'Parser.State.new': + var $9989 = self.err; + var $9990 = self.nam; + var $9991 = self.ini; + var $9992 = self.idx; + var $9993 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($9980, $9989), $9990, $9991, $9992, $9993); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $9995 = self.err; + var _reply$22 = Parser$text$(" ", _reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $9997 = self.err; + var self = $9995; + switch (self._) { + case 'Maybe.some': + var $9999 = self.value; + var $10000 = Parser$Reply$error$(Parser$Error$combine$($9999, $9997)); + var $9998 = $10000; + break; + case 'Maybe.none': + var $10001 = Parser$Reply$error$($9997); + var $9998 = $10001; + break; + }; + var $9996 = $9998; + break; + case 'Parser.Reply.value': + var $10002 = self.pst; + var self = $10002; + switch (self._) { + case 'Parser.State.new': + var $10004 = self.err; + var $10005 = self.nam; + var $10006 = self.ini; + var $10007 = self.idx; + var $10008 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($9995, $10004), $10005, $10006, $10007, $10008); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $10010 = self.err; + var _reply$36 = Kind$Parser$term(_reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $10012 = self.err; + var self = $10010; + switch (self._) { + case 'Maybe.some': + var $10014 = self.value; + var $10015 = Parser$Reply$error$(Parser$Error$combine$($10014, $10012)); + var $10013 = $10015; + break; + case 'Maybe.none': + var $10016 = Parser$Reply$error$($10012); + var $10013 = $10016; + break; + }; + var $10011 = $10013; + break; + case 'Parser.Reply.value': + var $10017 = self.pst; + var $10018 = self.val; + var self = $10017; + switch (self._) { + case 'Parser.State.new': + var $10020 = self.err; + var $10021 = self.nam; + var $10022 = self.ini; + var $10023 = self.idx; + var $10024 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($10010, $10020), $10021, $10022, $10023, $10024); + var _term$45 = Kind$Term$ref$("List.concat"); + var _term$46 = Kind$Term$app$(_term$45, Kind$Term$hol$(Bits$e)); + var _term$47 = Kind$Term$app$(_term$46, _lst0$1); + var _term$48 = Kind$Term$app$(_term$47, $10018); + var $10025 = Parser$Reply$value$(_reply$pst$44, _term$48); + var $10019 = $10025; + break; + }; + var $10011 = $10019; + break; + }; + var $10009 = $10011; + break; + }; + var $10003 = $10009; + break; + }; + var $9996 = $10003; + break; + }; + var $9994 = $9996; + break; + }; + var $9988 = $9994; + break; + }; + var $9981 = $9988; + break; + }; + var $9979 = $9981; + break; + }; + return $9979; + }; + const Kind$Parser$concat = x0 => x1 => Kind$Parser$concat$(x0, x1); + + function Kind$Parser$equality$(_val0$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $10027 = self.err; + var _reply$8 = Kind$Parser$text$("==", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $10029 = self.err; + var self = $10027; + switch (self._) { + case 'Maybe.some': + var $10031 = self.value; + var $10032 = Parser$Reply$error$(Parser$Error$combine$($10031, $10029)); + var $10030 = $10032; + break; + case 'Maybe.none': + var $10033 = Parser$Reply$error$($10029); + var $10030 = $10033; + break; + }; + var $10028 = $10030; + break; + case 'Parser.Reply.value': + var $10034 = self.pst; + var self = $10034; + switch (self._) { + case 'Parser.State.new': + var $10036 = self.err; + var $10037 = self.nam; + var $10038 = self.ini; + var $10039 = self.idx; + var $10040 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10027, $10036), $10037, $10038, $10039, $10040); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10042 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $10044 = self.err; + var self = $10042; + switch (self._) { + case 'Maybe.some': + var $10046 = self.value; + var $10047 = Parser$Reply$error$(Parser$Error$combine$($10046, $10044)); + var $10045 = $10047; + break; + case 'Maybe.none': + var $10048 = Parser$Reply$error$($10044); + var $10045 = $10048; + break; + }; + var $10043 = $10045; + break; + case 'Parser.Reply.value': + var $10049 = self.pst; + var $10050 = self.val; + var self = $10049; + switch (self._) { + case 'Parser.State.new': + var $10052 = self.err; + var $10053 = self.nam; + var $10054 = self.ini; + var $10055 = self.idx; + var $10056 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10042, $10052), $10053, $10054, $10055, $10056); + var _term$31 = Kind$Term$ref$("Equal"); + var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); + var _term$33 = Kind$Term$app$(_term$32, _val0$1); + var _term$34 = Kind$Term$app$(_term$33, $10050); + var $10057 = Parser$Reply$value$(_reply$pst$30, _term$34); + var $10051 = $10057; + break; + }; + var $10043 = $10051; + break; + }; + var $10041 = $10043; + break; + }; + var $10035 = $10041; + break; + }; + var $10028 = $10035; + break; + }; + var $10026 = $10028; + break; + }; + return $10026; + }; + const Kind$Parser$equality = x0 => x1 => Kind$Parser$equality$(x0, x1); + + function Kind$Term$ope$(_name$1, _arg0$2, _arg1$3) { + var $10058 = ({ + _: 'Kind.Term.ope', + 'name': _name$1, + 'arg0': _arg0$2, + 'arg1': _arg1$3 + }); + return $10058; + }; + const Kind$Term$ope = x0 => x1 => x2 => Kind$Term$ope$(x0, x1, x2); + + function Kind$Parser$op$(_sym$1, _ref$2, _val0$3, _pst$4) { + var self = _pst$4; + switch (self._) { + case 'Parser.State.new': + var $10060 = self.err; + var _reply$10 = Kind$Parser$text$(_sym$1, _pst$4); + var self = _reply$10; + switch (self._) { + case 'Parser.Reply.error': + var $10062 = self.err; + var self = $10060; + switch (self._) { + case 'Maybe.some': + var $10064 = self.value; + var $10065 = Parser$Reply$error$(Parser$Error$combine$($10064, $10062)); + var $10063 = $10065; + break; + case 'Maybe.none': + var $10066 = Parser$Reply$error$($10062); + var $10063 = $10066; + break; + }; + var $10061 = $10063; + break; + case 'Parser.Reply.value': + var $10067 = self.pst; + var self = $10067; + switch (self._) { + case 'Parser.State.new': + var $10069 = self.err; + var $10070 = self.nam; + var $10071 = self.ini; + var $10072 = self.idx; + var $10073 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10060, $10069), $10070, $10071, $10072, $10073); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $10075 = self.err; + var _reply$24 = Kind$Parser$term(_reply$pst$18); + var self = _reply$24; + switch (self._) { + case 'Parser.Reply.error': + var $10077 = self.err; + var self = $10075; + switch (self._) { + case 'Maybe.some': + var $10079 = self.value; + var $10080 = Parser$Reply$error$(Parser$Error$combine$($10079, $10077)); + var $10078 = $10080; + break; + case 'Maybe.none': + var $10081 = Parser$Reply$error$($10077); + var $10078 = $10081; + break; + }; + var $10076 = $10078; + break; + case 'Parser.Reply.value': + var $10082 = self.pst; + var $10083 = self.val; + var self = $10082; + switch (self._) { + case 'Parser.State.new': + var $10085 = self.err; + var $10086 = self.nam; + var $10087 = self.ini; + var $10088 = self.idx; + var $10089 = self.str; + var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($10075, $10085), $10086, $10087, $10088, $10089); + var $10090 = Parser$Reply$value$(_reply$pst$32, Kind$Term$ope$(_sym$1, _val0$3, $10083)); + var $10084 = $10090; + break; + }; + var $10076 = $10084; + break; + }; + var $10074 = $10076; + break; + }; + var $10068 = $10074; + break; + }; + var $10061 = $10068; + break; + }; + var $10059 = $10061; + break; + }; + return $10059; + }; + const Kind$Parser$op = x0 => x1 => x2 => x3 => Kind$Parser$op$(x0, x1, x2, x3); + const Kind$Parser$add = Kind$Parser$op("+")("Nat.add"); + const Kind$Parser$sub = Kind$Parser$op("-")("Nat.sub"); + const Kind$Parser$mul = Kind$Parser$op("*")("Nat.mul"); + const Kind$Parser$div = Kind$Parser$op("/")("Nat.div"); + const Kind$Parser$mod = Kind$Parser$op("%")("Nat.mod"); + const Kind$Parser$ltn = Kind$Parser$op("=?")("Nat.gte"); + const Kind$Parser$gtn = Kind$Parser$op(">?")("Nat.gtn"); + const Kind$Parser$and = Kind$Parser$op("&&")("Bool.and"); + const Kind$Parser$or = Kind$Parser$op("||")("Bool.or"); + + function Kind$Parser$composition$(_val0$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $10092 = self.err; + var _reply$8 = Kind$Parser$text$(".", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $10094 = self.err; + var self = $10092; + switch (self._) { + case 'Maybe.some': + var $10096 = self.value; + var $10097 = Parser$Reply$error$(Parser$Error$combine$($10096, $10094)); + var $10095 = $10097; + break; + case 'Maybe.none': + var $10098 = Parser$Reply$error$($10094); + var $10095 = $10098; + break; + }; + var $10093 = $10095; + break; + case 'Parser.Reply.value': + var $10099 = self.pst; + var self = $10099; + switch (self._) { + case 'Parser.State.new': + var $10101 = self.err; + var $10102 = self.nam; + var $10103 = self.ini; + var $10104 = self.idx; + var $10105 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10092, $10101), $10102, $10103, $10104, $10105); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10107 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $10109 = self.err; + var self = $10107; + switch (self._) { + case 'Maybe.some': + var $10111 = self.value; + var $10112 = Parser$Reply$error$(Parser$Error$combine$($10111, $10109)); + var $10110 = $10112; + break; + case 'Maybe.none': + var $10113 = Parser$Reply$error$($10109); + var $10110 = $10113; + break; + }; + var $10108 = $10110; + break; + case 'Parser.Reply.value': + var $10114 = self.pst; + var $10115 = self.val; + var self = $10114; + switch (self._) { + case 'Parser.State.new': + var $10117 = self.err; + var $10118 = self.nam; + var $10119 = self.ini; + var $10120 = self.idx; + var $10121 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10107, $10117), $10118, $10119, $10120, $10121); + var _term$31 = Kind$Term$ref$("Function.comp"); + var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); + var _term$33 = Kind$Term$app$(_term$32, Kind$Term$hol$(Bits$e)); + var _term$34 = Kind$Term$app$(_term$33, Kind$Term$hol$(Bits$e)); + var _term$35 = Kind$Term$app$(_term$34, _val0$1); + var _term$36 = Kind$Term$app$(_term$35, $10115); + var $10122 = Parser$Reply$value$(_reply$pst$30, _term$36); + var $10116 = $10122; + break; + }; + var $10108 = $10116; + break; + }; + var $10106 = $10108; + break; + }; + var $10100 = $10106; + break; + }; + var $10093 = $10100; + break; + }; + var $10091 = $10093; + break; + }; + return $10091; + }; + const Kind$Parser$composition = x0 => x1 => Kind$Parser$composition$(x0, x1); + + function Kind$Parser$default$(_val0$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $10124 = self.err; + var _reply$8 = Kind$Parser$text$("<>", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $10126 = self.err; + var self = $10124; + switch (self._) { + case 'Maybe.some': + var $10128 = self.value; + var $10129 = Parser$Reply$error$(Parser$Error$combine$($10128, $10126)); + var $10127 = $10129; + break; + case 'Maybe.none': + var $10130 = Parser$Reply$error$($10126); + var $10127 = $10130; + break; + }; + var $10125 = $10127; + break; + case 'Parser.Reply.value': + var $10131 = self.pst; + var self = $10131; + switch (self._) { + case 'Parser.State.new': + var $10133 = self.err; + var $10134 = self.nam; + var $10135 = self.ini; + var $10136 = self.idx; + var $10137 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10124, $10133), $10134, $10135, $10136, $10137); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10139 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $10141 = self.err; + var self = $10139; + switch (self._) { + case 'Maybe.some': + var $10143 = self.value; + var $10144 = Parser$Reply$error$(Parser$Error$combine$($10143, $10141)); + var $10142 = $10144; + break; + case 'Maybe.none': + var $10145 = Parser$Reply$error$($10141); + var $10142 = $10145; + break; + }; + var $10140 = $10142; + break; + case 'Parser.Reply.value': + var $10146 = self.pst; + var $10147 = self.val; + var self = $10146; + switch (self._) { + case 'Parser.State.new': + var $10149 = self.err; + var $10150 = self.nam; + var $10151 = self.ini; + var $10152 = self.idx; + var $10153 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10139, $10149), $10150, $10151, $10152, $10153); + var _term$31 = Kind$Term$ref$("Maybe.default"); + var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); + var _term$33 = Kind$Term$app$(_term$32, _val0$1); + var _term$34 = Kind$Term$app$(_term$33, $10147); + var $10154 = Parser$Reply$value$(_reply$pst$30, _term$34); + var $10148 = $10154; + break; + }; + var $10140 = $10148; + break; + }; + var $10138 = $10140; + break; + }; + var $10132 = $10138; + break; + }; + var $10125 = $10132; + break; + }; + var $10123 = $10125; + break; + }; + return $10123; + }; + const Kind$Parser$default = x0 => x1 => Kind$Parser$default$(x0, x1); + + function Kind$Parser$cons$(_head$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $10156 = self.err; + var _reply$8 = Kind$Parser$text$("&", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $10158 = self.err; + var self = $10156; + switch (self._) { + case 'Maybe.some': + var $10160 = self.value; + var $10161 = Parser$Reply$error$(Parser$Error$combine$($10160, $10158)); + var $10159 = $10161; + break; + case 'Maybe.none': + var $10162 = Parser$Reply$error$($10158); + var $10159 = $10162; + break; + }; + var $10157 = $10159; + break; + case 'Parser.Reply.value': + var $10163 = self.pst; + var self = $10163; + switch (self._) { + case 'Parser.State.new': + var $10165 = self.err; + var $10166 = self.nam; + var $10167 = self.ini; + var $10168 = self.idx; + var $10169 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10156, $10165), $10166, $10167, $10168, $10169); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10171 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $10173 = self.err; + var self = $10171; + switch (self._) { + case 'Maybe.some': + var $10175 = self.value; + var $10176 = Parser$Reply$error$(Parser$Error$combine$($10175, $10173)); + var $10174 = $10176; + break; + case 'Maybe.none': + var $10177 = Parser$Reply$error$($10173); + var $10174 = $10177; + break; + }; + var $10172 = $10174; + break; + case 'Parser.Reply.value': + var $10178 = self.pst; + var $10179 = self.val; + var self = $10178; + switch (self._) { + case 'Parser.State.new': + var $10181 = self.err; + var $10182 = self.nam; + var $10183 = self.ini; + var $10184 = self.idx; + var $10185 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10171, $10181), $10182, $10183, $10184, $10185); + var _term$31 = Kind$Term$ref$("List.cons"); + var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); + var _term$33 = Kind$Term$app$(_term$32, _head$1); + var _term$34 = Kind$Term$app$(_term$33, $10179); + var $10186 = Parser$Reply$value$(_reply$pst$30, _term$34); + var $10180 = $10186; + break; + }; + var $10172 = $10180; + break; + }; + var $10170 = $10172; + break; + }; + var $10164 = $10170; + break; + }; + var $10157 = $10164; + break; + }; + var $10155 = $10157; + break; + }; + return $10155; + }; + const Kind$Parser$cons = x0 => x1 => Kind$Parser$cons$(x0, x1); + + function Kind$Parser$string_concat$(_str0$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $10188 = self.err; + var _reply$8 = Kind$Parser$text$("|", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $10190 = self.err; + var self = $10188; + switch (self._) { + case 'Maybe.some': + var $10192 = self.value; + var $10193 = Parser$Reply$error$(Parser$Error$combine$($10192, $10190)); + var $10191 = $10193; + break; + case 'Maybe.none': + var $10194 = Parser$Reply$error$($10190); + var $10191 = $10194; + break; + }; + var $10189 = $10191; + break; + case 'Parser.Reply.value': + var $10195 = self.pst; + var self = $10195; + switch (self._) { + case 'Parser.State.new': + var $10197 = self.err; + var $10198 = self.nam; + var $10199 = self.ini; + var $10200 = self.idx; + var $10201 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10188, $10197), $10198, $10199, $10200, $10201); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10203 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $10205 = self.err; + var self = $10203; + switch (self._) { + case 'Maybe.some': + var $10207 = self.value; + var $10208 = Parser$Reply$error$(Parser$Error$combine$($10207, $10205)); + var $10206 = $10208; + break; + case 'Maybe.none': + var $10209 = Parser$Reply$error$($10205); + var $10206 = $10209; + break; + }; + var $10204 = $10206; + break; + case 'Parser.Reply.value': + var $10210 = self.pst; + var $10211 = self.val; + var self = $10210; + switch (self._) { + case 'Parser.State.new': + var $10213 = self.err; + var $10214 = self.nam; + var $10215 = self.ini; + var $10216 = self.idx; + var $10217 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10203, $10213), $10214, $10215, $10216, $10217); + var _term$31 = Kind$Term$ref$("String.concat"); + var _term$32 = Kind$Term$app$(_term$31, _str0$1); + var _term$33 = Kind$Term$app$(_term$32, $10211); + var $10218 = Parser$Reply$value$(_reply$pst$30, _term$33); + var $10212 = $10218; + break; + }; + var $10204 = $10212; + break; + }; + var $10202 = $10204; + break; + }; + var $10196 = $10202; + break; + }; + var $10189 = $10196; + break; + }; + var $10187 = $10189; + break; + }; + return $10187; + }; + const Kind$Parser$string_concat = x0 => x1 => Kind$Parser$string_concat$(x0, x1); + + function Kind$Parser$sigma$(_val0$1) { + var $10219 = Kind$Parser$block("sigma")((_pst$2 => { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $10221 = self.err; + var _reply$8 = Kind$Parser$text$("~", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $10223 = self.err; + var self = $10221; + switch (self._) { + case 'Maybe.some': + var $10225 = self.value; + var $10226 = Parser$Reply$error$(Parser$Error$combine$($10225, $10223)); + var $10224 = $10226; + break; + case 'Maybe.none': + var $10227 = Parser$Reply$error$($10223); + var $10224 = $10227; + break; + }; + var $10222 = $10224; + break; + case 'Parser.Reply.value': + var $10228 = self.pst; + var self = $10228; + switch (self._) { + case 'Parser.State.new': + var $10230 = self.err; + var $10231 = self.nam; + var $10232 = self.ini; + var $10233 = self.idx; + var $10234 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10221, $10230), $10231, $10232, $10233, $10234); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10236 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $10238 = self.err; + var self = $10236; + switch (self._) { + case 'Maybe.some': + var $10240 = self.value; + var $10241 = Parser$Reply$error$(Parser$Error$combine$($10240, $10238)); + var $10239 = $10241; + break; + case 'Maybe.none': + var $10242 = Parser$Reply$error$($10238); + var $10239 = $10242; + break; + }; + var $10237 = $10239; + break; + case 'Parser.Reply.value': + var $10243 = self.pst; + var $10244 = self.val; + var self = $10243; + switch (self._) { + case 'Parser.State.new': + var $10246 = self.err; + var $10247 = self.nam; + var $10248 = self.ini; + var $10249 = self.idx; + var $10250 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10236, $10246), $10247, $10248, $10249, $10250); + var _term$31 = Kind$Term$ref$("Sigma.new"); + var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); + var _term$33 = Kind$Term$app$(_term$32, Kind$Term$hol$(Bits$e)); + var _term$34 = Kind$Term$app$(_term$33, _val0$1); + var _term$35 = Kind$Term$app$(_term$34, $10244); + var $10251 = Parser$Reply$value$(_reply$pst$30, _term$35); + var $10245 = $10251; + break; + }; + var $10237 = $10245; + break; + }; + var $10235 = $10237; + break; + }; + var $10229 = $10235; + break; + }; + var $10222 = $10229; + break; + }; + var $10220 = $10222; + break; + }; + return $10220; + })); + return $10219; + }; + const Kind$Parser$sigma = x0 => Kind$Parser$sigma$(x0); + + function Kind$Parser$inequality$(_val0$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $10253 = self.err; + var _reply$8 = Kind$Parser$text$("!=", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $10255 = self.err; + var self = $10253; + switch (self._) { + case 'Maybe.some': + var $10257 = self.value; + var $10258 = Parser$Reply$error$(Parser$Error$combine$($10257, $10255)); + var $10256 = $10258; + break; + case 'Maybe.none': + var $10259 = Parser$Reply$error$($10255); + var $10256 = $10259; + break; + }; + var $10254 = $10256; + break; + case 'Parser.Reply.value': + var $10260 = self.pst; + var self = $10260; + switch (self._) { + case 'Parser.State.new': + var $10262 = self.err; + var $10263 = self.nam; + var $10264 = self.ini; + var $10265 = self.idx; + var $10266 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10253, $10262), $10263, $10264, $10265, $10266); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10268 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $10270 = self.err; + var self = $10268; + switch (self._) { + case 'Maybe.some': + var $10272 = self.value; + var $10273 = Parser$Reply$error$(Parser$Error$combine$($10272, $10270)); + var $10271 = $10273; + break; + case 'Maybe.none': + var $10274 = Parser$Reply$error$($10270); + var $10271 = $10274; + break; + }; + var $10269 = $10271; + break; + case 'Parser.Reply.value': + var $10275 = self.pst; + var $10276 = self.val; + var self = $10275; + switch (self._) { + case 'Parser.State.new': + var $10278 = self.err; + var $10279 = self.nam; + var $10280 = self.ini; + var $10281 = self.idx; + var $10282 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10268, $10278), $10279, $10280, $10281, $10282); + var _term$31 = Kind$Term$ref$("Equal"); + var _term$32 = Kind$Term$app$(_term$31, Kind$Term$hol$(Bits$e)); + var _term$33 = Kind$Term$app$(_term$32, _val0$1); + var _term$34 = Kind$Term$app$(_term$33, $10276); + var _term$35 = Kind$Term$app$(Kind$Term$ref$("Not"), _term$34); + var $10283 = Parser$Reply$value$(_reply$pst$30, _term$35); + var $10277 = $10283; + break; + }; + var $10269 = $10277; + break; + }; + var $10267 = $10269; + break; + }; + var $10261 = $10267; + break; + }; + var $10254 = $10261; + break; + }; + var $10252 = $10254; + break; + }; + return $10252; + }; + const Kind$Parser$inequality = x0 => x1 => Kind$Parser$inequality$(x0, x1); + + function Kind$Parser$rewrite$(_subt$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $10285 = self.err; + var _reply$8 = Kind$Parser$text$("::", _pst$2); + var self = _reply$8; + switch (self._) { + case 'Parser.Reply.error': + var $10287 = self.err; + var self = $10285; + switch (self._) { + case 'Maybe.some': + var $10289 = self.value; + var $10290 = Parser$Reply$error$(Parser$Error$combine$($10289, $10287)); + var $10288 = $10290; + break; + case 'Maybe.none': + var $10291 = Parser$Reply$error$($10287); + var $10288 = $10291; + break; + }; + var $10286 = $10288; + break; + case 'Parser.Reply.value': + var $10292 = self.pst; + var self = $10292; + switch (self._) { + case 'Parser.State.new': + var $10294 = self.err; + var $10295 = self.nam; + var $10296 = self.ini; + var $10297 = self.idx; + var $10298 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10285, $10294), $10295, $10296, $10297, $10298); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10300 = self.err; + var _reply$22 = Kind$Parser$text$("rewrite", _reply$pst$16); + var self = _reply$22; + switch (self._) { + case 'Parser.Reply.error': + var $10302 = self.err; + var self = $10300; + switch (self._) { + case 'Maybe.some': + var $10304 = self.value; + var $10305 = Parser$Reply$error$(Parser$Error$combine$($10304, $10302)); + var $10303 = $10305; + break; + case 'Maybe.none': + var $10306 = Parser$Reply$error$($10302); + var $10303 = $10306; + break; + }; + var $10301 = $10303; + break; + case 'Parser.Reply.value': + var $10307 = self.pst; + var self = $10307; + switch (self._) { + case 'Parser.State.new': + var $10309 = self.err; + var $10310 = self.nam; + var $10311 = self.ini; + var $10312 = self.idx; + var $10313 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10300, $10309), $10310, $10311, $10312, $10313); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $10315 = self.err; + var _reply$36 = Kind$Parser$name1$(_reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $10317 = self.err; + var self = $10315; + switch (self._) { + case 'Maybe.some': + var $10319 = self.value; + var $10320 = Parser$Reply$error$(Parser$Error$combine$($10319, $10317)); + var $10318 = $10320; + break; + case 'Maybe.none': + var $10321 = Parser$Reply$error$($10317); + var $10318 = $10321; + break; + }; + var $10316 = $10318; + break; + case 'Parser.Reply.value': + var $10322 = self.pst; + var $10323 = self.val; + var self = $10322; + switch (self._) { + case 'Parser.State.new': + var $10325 = self.err; + var $10326 = self.nam; + var $10327 = self.ini; + var $10328 = self.idx; + var $10329 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($10315, $10325), $10326, $10327, $10328, $10329); + var self = _reply$pst$44; + switch (self._) { + case 'Parser.State.new': + var $10331 = self.err; + var _reply$50 = Kind$Parser$text$("in", _reply$pst$44); + var self = _reply$50; + switch (self._) { + case 'Parser.Reply.error': + var $10333 = self.err; + var self = $10331; + switch (self._) { + case 'Maybe.some': + var $10335 = self.value; + var $10336 = Parser$Reply$error$(Parser$Error$combine$($10335, $10333)); + var $10334 = $10336; + break; + case 'Maybe.none': + var $10337 = Parser$Reply$error$($10333); + var $10334 = $10337; + break; + }; + var $10332 = $10334; + break; + case 'Parser.Reply.value': + var $10338 = self.pst; + var self = $10338; + switch (self._) { + case 'Parser.State.new': + var $10340 = self.err; + var $10341 = self.nam; + var $10342 = self.ini; + var $10343 = self.idx; + var $10344 = self.str; + var _reply$pst$58 = Parser$State$new$(Parser$Error$maybe_combine$($10331, $10340), $10341, $10342, $10343, $10344); + var self = _reply$pst$58; + switch (self._) { + case 'Parser.State.new': + var $10346 = self.err; + var _reply$64 = Kind$Parser$term(_reply$pst$58); + var self = _reply$64; + switch (self._) { + case 'Parser.Reply.error': + var $10348 = self.err; + var self = $10346; + switch (self._) { + case 'Maybe.some': + var $10350 = self.value; + var $10351 = Parser$Reply$error$(Parser$Error$combine$($10350, $10348)); + var $10349 = $10351; + break; + case 'Maybe.none': + var $10352 = Parser$Reply$error$($10348); + var $10349 = $10352; + break; + }; + var $10347 = $10349; + break; + case 'Parser.Reply.value': + var $10353 = self.pst; + var $10354 = self.val; + var self = $10353; + switch (self._) { + case 'Parser.State.new': + var $10356 = self.err; + var $10357 = self.nam; + var $10358 = self.ini; + var $10359 = self.idx; + var $10360 = self.str; + var _reply$pst$72 = Parser$State$new$(Parser$Error$maybe_combine$($10346, $10356), $10357, $10358, $10359, $10360); + var self = _reply$pst$72; + switch (self._) { + case 'Parser.State.new': + var $10362 = self.err; + var _reply$78 = Kind$Parser$text$("with", _reply$pst$72); + var self = _reply$78; + switch (self._) { + case 'Parser.Reply.error': + var $10364 = self.err; + var self = $10362; + switch (self._) { + case 'Maybe.some': + var $10366 = self.value; + var $10367 = Parser$Reply$error$(Parser$Error$combine$($10366, $10364)); + var $10365 = $10367; + break; + case 'Maybe.none': + var $10368 = Parser$Reply$error$($10364); + var $10365 = $10368; + break; + }; + var $10363 = $10365; + break; + case 'Parser.Reply.value': + var $10369 = self.pst; + var self = $10369; + switch (self._) { + case 'Parser.State.new': + var $10371 = self.err; + var $10372 = self.nam; + var $10373 = self.ini; + var $10374 = self.idx; + var $10375 = self.str; + var _reply$pst$86 = Parser$State$new$(Parser$Error$maybe_combine$($10362, $10371), $10372, $10373, $10374, $10375); + var self = _reply$pst$86; + switch (self._) { + case 'Parser.State.new': + var $10377 = self.err; + var _reply$92 = Kind$Parser$term(_reply$pst$86); + var self = _reply$92; + switch (self._) { + case 'Parser.Reply.error': + var $10379 = self.err; + var self = $10377; + switch (self._) { + case 'Maybe.some': + var $10381 = self.value; + var $10382 = Parser$Reply$error$(Parser$Error$combine$($10381, $10379)); + var $10380 = $10382; + break; + case 'Maybe.none': + var $10383 = Parser$Reply$error$($10379); + var $10380 = $10383; + break; + }; + var $10378 = $10380; + break; + case 'Parser.Reply.value': + var $10384 = self.pst; + var $10385 = self.val; + var self = $10384; + switch (self._) { + case 'Parser.State.new': + var $10387 = self.err; + var $10388 = self.nam; + var $10389 = self.ini; + var $10390 = self.idx; + var $10391 = self.str; + var _reply$pst$100 = Parser$State$new$(Parser$Error$maybe_combine$($10377, $10387), $10388, $10389, $10390, $10391); + var _term$101 = Kind$Term$ref$("Equal.rewrite"); + var _term$102 = Kind$Term$app$(_term$101, Kind$Term$hol$(Bits$e)); + var _term$103 = Kind$Term$app$(_term$102, Kind$Term$hol$(Bits$e)); + var _term$104 = Kind$Term$app$(_term$103, Kind$Term$hol$(Bits$e)); + var _term$105 = Kind$Term$app$(_term$104, $10385); + var _term$106 = Kind$Term$app$(_term$105, Kind$Term$lam$($10323, (_x$106 => { + var $10393 = $10354; + return $10393; + }))); + var _term$107 = Kind$Term$app$(_term$106, _subt$1); + var $10392 = Parser$Reply$value$(_reply$pst$100, _term$107); + var $10386 = $10392; + break; + }; + var $10378 = $10386; + break; + }; + var $10376 = $10378; + break; + }; + var $10370 = $10376; + break; + }; + var $10363 = $10370; + break; + }; + var $10361 = $10363; + break; + }; + var $10355 = $10361; + break; + }; + var $10347 = $10355; + break; + }; + var $10345 = $10347; + break; + }; + var $10339 = $10345; + break; + }; + var $10332 = $10339; + break; + }; + var $10330 = $10332; + break; + }; + var $10324 = $10330; + break; + }; + var $10316 = $10324; + break; + }; + var $10314 = $10316; + break; + }; + var $10308 = $10314; + break; + }; + var $10301 = $10308; + break; + }; + var $10299 = $10301; + break; + }; + var $10293 = $10299; + break; + }; + var $10286 = $10293; + break; + }; + var $10284 = $10286; + break; + }; + return $10284; + }; + const Kind$Parser$rewrite = x0 => x1 => Kind$Parser$rewrite$(x0, x1); + + function Kind$Parser$annotation$(_term$1, _pst$2) { + var self = _pst$2; + switch (self._) { + case 'Parser.State.new': + var $10395 = self.err; + var _reply$8 = Kind$Parser$text$("::", _pst$2); + var self = _reply$8; switch (self._) { case 'Parser.Reply.error': var $10397 = self.err; @@ -32708,115 +32508,52 @@ module.exports = (function() { var $10406 = self.ini; var $10407 = self.idx; var $10408 = self.str; - var $10409 = ((console.log(("FALTANDO " + $10408)), (_$15 => { - var $10410 = ((console.log(("VALUE " + $10405)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10395, $10404), $10405, $10406, $10407, $10408); - var self = _reply$pst$17; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10395, $10404), $10405, $10406, $10407, $10408); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10410 = self.err; + var _reply$22 = Kind$Parser$term(_reply$pst$16); + var self = _reply$22; switch (self._) { - case 'Parser.State.new': + case 'Parser.Reply.error': var $10412 = self.err; - var _reply$23 = Parser$nat$(_reply$pst$17); - var self = _reply$23; + var self = $10410; switch (self._) { - case 'Parser.Reply.error': - var $10414 = self.err; - var self = $10412; - switch (self._) { - case 'Maybe.some': - var $10416 = self.value; - var $10417 = Parser$Reply$error$(Parser$Error$combine$($10416, $10414)); - var $10415 = $10417; - break; - case 'Maybe.none': - var $10418 = Parser$Reply$error$($10414); - var $10415 = $10418; - break; - }; + case 'Maybe.some': + var $10414 = self.value; + var $10415 = Parser$Reply$error$(Parser$Error$combine$($10414, $10412)); var $10413 = $10415; break; - case 'Parser.Reply.value': - var $10419 = self.pst; - var $10420 = self.val; - var self = $10419; - switch (self._) { - case 'Parser.State.new': - var $10422 = self.err; - var $10423 = self.nam; - var $10424 = self.ini; - var $10425 = self.idx; - var $10426 = self.str; - var $10427 = ((console.log(("FALTANDO " + $10426)), (_$31 => { - var $10428 = ((console.log(("VALUE " + $10423)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10412, $10422), $10423, $10424, $10425, $10426); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $10430 = self.err; - var _reply$39 = Parser$text$("b", _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $10432 = self.err; - var self = $10430; - switch (self._) { - case 'Maybe.some': - var $10434 = self.value; - var $10435 = Parser$Reply$error$(Parser$Error$combine$($10434, $10432)); - var $10433 = $10435; - break; - case 'Maybe.none': - var $10436 = Parser$Reply$error$($10432); - var $10433 = $10436; - break; - }; - var $10431 = $10433; - break; - case 'Parser.Reply.value': - var $10437 = self.pst; - var self = $10437; - switch (self._) { - case 'Parser.State.new': - var $10439 = self.err; - var $10440 = self.nam; - var $10441 = self.ini; - var $10442 = self.idx; - var $10443 = self.str; - var $10444 = ((console.log(("FALTANDO " + $10443)), (_$47 => { - var $10445 = ((console.log(("VALUE " + $10440)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($10430, $10439), $10440, $10441, $10442, $10443); - var _term$50 = Kind$Term$ref$("U8.from_nat"); - var _term$51 = Kind$Term$app$(_term$50, Kind$Term$nat$($10420)); - var $10446 = Parser$Reply$value$(_reply$pst$49, _term$51); - return $10446; - })())); - return $10445; - })())); - var $10438 = $10444; - break; - }; - var $10431 = $10438; - break; - }; - var $10429 = $10431; - break; - }; - return $10429; - })())); - return $10428; - })())); - var $10421 = $10427; - break; - }; - var $10413 = $10421; + case 'Maybe.none': + var $10416 = Parser$Reply$error$($10412); + var $10413 = $10416; break; }; var $10411 = $10413; break; + case 'Parser.Reply.value': + var $10417 = self.pst; + var $10418 = self.val; + var self = $10417; + switch (self._) { + case 'Parser.State.new': + var $10420 = self.err; + var $10421 = self.nam; + var $10422 = self.ini; + var $10423 = self.idx; + var $10424 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10410, $10420), $10421, $10422, $10423, $10424); + var $10425 = Parser$Reply$value$(_reply$pst$30, Kind$Term$ann$(Bool$false, _term$1, $10418)); + var $10419 = $10425; + break; + }; + var $10411 = $10419; + break; }; - return $10411; - })())); - return $10410; - })())); + var $10409 = $10411; + break; + }; var $10403 = $10409; break; }; @@ -32827,3695 +32564,6 @@ module.exports = (function() { break; }; return $10394; - })); - - function Parser$Number$new$(_sign$1, _numb$2, _frac$3) { - var $10447 = ({ - _: 'Parser.Number.new', - 'sign': _sign$1, - 'numb': _numb$2, - 'frac': _frac$3 - }); - return $10447; - }; - const Parser$Number$new = x0 => x1 => x2 => Parser$Number$new$(x0, x1, x2); - - function Parser$num$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $10449 = self.err; - var _reply$7 = Parser$choice$(List$cons$((_pst$7 => { - var self = _pst$7; - switch (self._) { - case 'Parser.State.new': - var $10452 = self.err; - var _reply$13 = Parser$text$("+", _pst$7); - var self = _reply$13; - switch (self._) { - case 'Parser.Reply.error': - var $10454 = self.err; - var self = $10452; - switch (self._) { - case 'Maybe.some': - var $10456 = self.value; - var $10457 = Parser$Reply$error$(Parser$Error$combine$($10456, $10454)); - var $10455 = $10457; - break; - case 'Maybe.none': - var $10458 = Parser$Reply$error$($10454); - var $10455 = $10458; - break; - }; - var $10453 = $10455; - break; - case 'Parser.Reply.value': - var $10459 = self.pst; - var self = $10459; - switch (self._) { - case 'Parser.State.new': - var $10461 = self.err; - var $10462 = self.nam; - var $10463 = self.ini; - var $10464 = self.idx; - var $10465 = self.str; - var $10466 = ((console.log(("FALTANDO " + $10465)), (_$21 => { - var $10467 = ((console.log(("VALUE " + $10462)), (_$22 => { - var _reply$pst$23 = Parser$State$new$(Parser$Error$maybe_combine$($10452, $10461), $10462, $10463, $10464, $10465); - var $10468 = Parser$Reply$value$(_reply$pst$23, Maybe$some$(Bool$true)); - return $10468; - })())); - return $10467; - })())); - var $10460 = $10466; - break; - }; - var $10453 = $10460; - break; - }; - var $10451 = $10453; - break; - }; - return $10451; - }), List$cons$((_pst$7 => { - var self = _pst$7; - switch (self._) { - case 'Parser.State.new': - var $10470 = self.err; - var _reply$13 = Parser$text$("-", _pst$7); - var self = _reply$13; - switch (self._) { - case 'Parser.Reply.error': - var $10472 = self.err; - var self = $10470; - switch (self._) { - case 'Maybe.some': - var $10474 = self.value; - var $10475 = Parser$Reply$error$(Parser$Error$combine$($10474, $10472)); - var $10473 = $10475; - break; - case 'Maybe.none': - var $10476 = Parser$Reply$error$($10472); - var $10473 = $10476; - break; - }; - var $10471 = $10473; - break; - case 'Parser.Reply.value': - var $10477 = self.pst; - var self = $10477; - switch (self._) { - case 'Parser.State.new': - var $10479 = self.err; - var $10480 = self.nam; - var $10481 = self.ini; - var $10482 = self.idx; - var $10483 = self.str; - var $10484 = ((console.log(("FALTANDO " + $10483)), (_$21 => { - var $10485 = ((console.log(("VALUE " + $10480)), (_$22 => { - var _reply$pst$23 = Parser$State$new$(Parser$Error$maybe_combine$($10470, $10479), $10480, $10481, $10482, $10483); - var $10486 = Parser$Reply$value$(_reply$pst$23, Maybe$some$(Bool$false)); - return $10486; - })())); - return $10485; - })())); - var $10478 = $10484; - break; - }; - var $10471 = $10478; - break; - }; - var $10469 = $10471; - break; - }; - return $10469; - }), List$cons$((_pst$7 => { - var $10487 = Parser$Reply$value$(_pst$7, Maybe$none); - return $10487; - }), List$nil))), _pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $10488 = self.err; - var self = $10449; - switch (self._) { - case 'Maybe.some': - var $10490 = self.value; - var $10491 = Parser$Reply$error$(Parser$Error$combine$($10490, $10488)); - var $10489 = $10491; - break; - case 'Maybe.none': - var $10492 = Parser$Reply$error$($10488); - var $10489 = $10492; - break; - }; - var $10450 = $10489; - break; - case 'Parser.Reply.value': - var $10493 = self.pst; - var $10494 = self.val; - var self = $10493; - switch (self._) { - case 'Parser.State.new': - var $10496 = self.err; - var $10497 = self.nam; - var $10498 = self.ini; - var $10499 = self.idx; - var $10500 = self.str; - var $10501 = ((console.log(("FALTANDO " + $10500)), (_$15 => { - var $10502 = ((console.log(("VALUE " + $10497)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10449, $10496), $10497, $10498, $10499, $10500); - var self = _reply$pst$17; - switch (self._) { - case 'Parser.State.new': - var $10504 = self.err; - var _reply$23 = Parser$choice$(List$cons$(Parser$hex_nat, List$cons$(Parser$nat, List$nil)), _reply$pst$17); - var self = _reply$23; - switch (self._) { - case 'Parser.Reply.error': - var $10506 = self.err; - var self = $10504; - switch (self._) { - case 'Maybe.some': - var $10508 = self.value; - var $10509 = Parser$Reply$error$(Parser$Error$combine$($10508, $10506)); - var $10507 = $10509; - break; - case 'Maybe.none': - var $10510 = Parser$Reply$error$($10506); - var $10507 = $10510; - break; - }; - var $10505 = $10507; - break; - case 'Parser.Reply.value': - var $10511 = self.pst; - var $10512 = self.val; - var self = $10511; - switch (self._) { - case 'Parser.State.new': - var $10514 = self.err; - var $10515 = self.nam; - var $10516 = self.ini; - var $10517 = self.idx; - var $10518 = self.str; - var $10519 = ((console.log(("FALTANDO " + $10518)), (_$31 => { - var $10520 = ((console.log(("VALUE " + $10515)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($10504, $10514), $10515, $10516, $10517, $10518); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $10522 = self.err; - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $10524 = self.err; - var _reply$44 = Parser$maybe$(Parser$text("."), _reply$pst$33); - var self = _reply$44; - switch (self._) { - case 'Parser.Reply.error': - var $10526 = self.err; - var self = $10524; - switch (self._) { - case 'Maybe.some': - var $10528 = self.value; - var $10529 = Parser$Reply$error$(Parser$Error$combine$($10528, $10526)); - var $10527 = $10529; - break; - case 'Maybe.none': - var $10530 = Parser$Reply$error$($10526); - var $10527 = $10530; - break; - }; - var $10525 = $10527; - break; - case 'Parser.Reply.value': - var $10531 = self.pst; - var self = $10531; - switch (self._) { - case 'Parser.State.new': - var $10533 = self.err; - var $10534 = self.nam; - var $10535 = self.ini; - var $10536 = self.idx; - var $10537 = self.str; - var $10538 = ((console.log(("FALTANDO " + $10537)), (_$52 => { - var $10539 = ((console.log(("VALUE " + $10534)), (_$53 => { - var _reply$pst$54 = Parser$State$new$(Parser$Error$maybe_combine$($10524, $10533), $10534, $10535, $10536, $10537); - var self = _reply$pst$54; - switch (self._) { - case 'Parser.State.new': - var $10541 = self.err; - var _reply$60 = Parser$maybe$(Parser$nat, _reply$pst$54); - var self = _reply$60; - switch (self._) { - case 'Parser.Reply.error': - var $10543 = self.err; - var self = $10541; - switch (self._) { - case 'Maybe.some': - var $10545 = self.value; - var $10546 = Parser$Reply$error$(Parser$Error$combine$($10545, $10543)); - var $10544 = $10546; - break; - case 'Maybe.none': - var $10547 = Parser$Reply$error$($10543); - var $10544 = $10547; - break; - }; - var $10542 = $10544; - break; - case 'Parser.Reply.value': - var $10548 = self.pst; - var $10549 = self.val; - var self = $10548; - switch (self._) { - case 'Parser.State.new': - var $10551 = self.err; - var $10552 = self.nam; - var $10553 = self.ini; - var $10554 = self.idx; - var $10555 = self.str; - var $10556 = ((console.log(("FALTANDO " + $10555)), (_$68 => { - var $10557 = ((console.log(("VALUE " + $10552)), (_$69 => { - var _reply$pst$70 = Parser$State$new$(Parser$Error$maybe_combine$($10541, $10551), $10552, $10553, $10554, $10555); - var $10558 = Parser$Reply$value$(_reply$pst$70, $10549); - return $10558; - })())); - return $10557; - })())); - var $10550 = $10556; - break; - }; - var $10542 = $10550; - break; - }; - var $10540 = $10542; - break; - }; - return $10540; - })())); - return $10539; - })())); - var $10532 = $10538; - break; - }; - var $10525 = $10532; - break; - }; - var _reply$39 = $10525; - break; - }; - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $10559 = self.err; - var self = $10522; - switch (self._) { - case 'Maybe.some': - var $10561 = self.value; - var $10562 = Parser$Reply$error$(Parser$Error$combine$($10561, $10559)); - var $10560 = $10562; - break; - case 'Maybe.none': - var $10563 = Parser$Reply$error$($10559); - var $10560 = $10563; - break; - }; - var $10523 = $10560; - break; - case 'Parser.Reply.value': - var $10564 = self.pst; - var $10565 = self.val; - var self = $10564; - switch (self._) { - case 'Parser.State.new': - var $10567 = self.err; - var $10568 = self.nam; - var $10569 = self.ini; - var $10570 = self.idx; - var $10571 = self.str; - var $10572 = ((console.log(("FALTANDO " + $10571)), (_$47 => { - var $10573 = ((console.log(("VALUE " + $10568)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($10522, $10567), $10568, $10569, $10570, $10571); - var $10574 = Parser$Reply$value$(_reply$pst$49, Parser$Number$new$($10494, $10512, $10565)); - return $10574; - })())); - return $10573; - })())); - var $10566 = $10572; - break; - }; - var $10523 = $10566; - break; - }; - var $10521 = $10523; - break; - }; - return $10521; - })())); - return $10520; - })())); - var $10513 = $10519; - break; - }; - var $10505 = $10513; - break; - }; - var $10503 = $10505; - break; - }; - return $10503; - })())); - return $10502; - })())); - var $10495 = $10501; - break; - }; - var $10450 = $10495; - break; - }; - var $10448 = $10450; - break; - }; - return $10448; - }; - const Parser$num = x0 => Parser$num$(x0); - - function Kind$Term$num$(_sign$1, _numb$2, _frac$3) { - var $10575 = ({ - _: 'Kind.Term.num', - 'sign': _sign$1, - 'numb': _numb$2, - 'frac': _frac$3 - }); - return $10575; - }; - const Kind$Term$num = x0 => x1 => x2 => Kind$Term$num$(x0, x1, x2); - - function Kind$Parser$num$(_pst$1) { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $10577 = self.err; - var _reply$7 = Parser$num$(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $10579 = self.err; - var self = $10577; - switch (self._) { - case 'Maybe.some': - var $10581 = self.value; - var $10582 = Parser$Reply$error$(Parser$Error$combine$($10581, $10579)); - var $10580 = $10582; - break; - case 'Maybe.none': - var $10583 = Parser$Reply$error$($10579); - var $10580 = $10583; - break; - }; - var $10578 = $10580; - break; - case 'Parser.Reply.value': - var $10584 = self.pst; - var $10585 = self.val; - var self = $10584; - switch (self._) { - case 'Parser.State.new': - var $10587 = self.err; - var $10588 = self.nam; - var $10589 = self.ini; - var $10590 = self.idx; - var $10591 = self.str; - var $10592 = ((console.log(("FALTANDO " + $10591)), (_$15 => { - var $10593 = ((console.log(("VALUE " + $10588)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10577, $10587), $10588, $10589, $10590, $10591); - var self = $10585; - switch (self._) { - case 'Parser.Number.new': - var $10595 = self.sign; - var $10596 = self.numb; - var $10597 = self.frac; - var self = $10595; - switch (self._) { - case 'Maybe.none': - var self = $10597; - switch (self._) { - case 'Maybe.none': - var $10600 = (_pst$21 => { - var $10601 = Parser$Reply$value$(_pst$21, Kind$Term$nat$($10596)); - return $10601; - }); - var $10599 = $10600; - break; - case 'Maybe.some': - var $10602 = (_pst$22 => { - var $10603 = Parser$Reply$value$(_pst$22, Kind$Term$num$($10595, $10596, $10597)); - return $10603; - }); - var $10599 = $10602; - break; - }; - var $10598 = $10599; - break; - case 'Maybe.some': - var $10604 = (_pst$22 => { - var $10605 = Parser$Reply$value$(_pst$22, Kind$Term$num$($10595, $10596, $10597)); - return $10605; - }); - var $10598 = $10604; - break; - }; - var $10594 = $10598; - break; - }; - var $10594 = $10594(_reply$pst$17); - return $10594; - })())); - return $10593; - })())); - var $10586 = $10592; - break; - }; - var $10578 = $10586; - break; - }; - var $10576 = $10578; - break; - }; - return $10576; - }; - const Kind$Parser$num = x0 => Kind$Parser$num$(x0); - const Kind$Parser$reference = Kind$Parser$block("reference")((_pst$1 => { - var self = _pst$1; - switch (self._) { - case 'Parser.State.new': - var $10607 = self.err; - var _reply$7 = Kind$Parser$name1$(_pst$1); - var self = _reply$7; - switch (self._) { - case 'Parser.Reply.error': - var $10609 = self.err; - var self = $10607; - switch (self._) { - case 'Maybe.some': - var $10611 = self.value; - var $10612 = Parser$Reply$error$(Parser$Error$combine$($10611, $10609)); - var $10610 = $10612; - break; - case 'Maybe.none': - var $10613 = Parser$Reply$error$($10609); - var $10610 = $10613; - break; - }; - var $10608 = $10610; - break; - case 'Parser.Reply.value': - var $10614 = self.pst; - var $10615 = self.val; - var self = $10614; - switch (self._) { - case 'Parser.State.new': - var $10617 = self.err; - var $10618 = self.nam; - var $10619 = self.ini; - var $10620 = self.idx; - var $10621 = self.str; - var $10622 = ((console.log(("FALTANDO " + $10621)), (_$15 => { - var $10623 = ((console.log(("VALUE " + $10618)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($10607, $10617), $10618, $10619, $10620, $10621); - var self = ($10615 === "Type"); - if (self) { - var $10625 = (_pst$18 => { - var $10626 = Parser$Reply$value$(_pst$18, Kind$Term$typ); - return $10626; - }); - var $10624 = $10625; - } else { - var self = ($10615 === "true"); - if (self) { - var $10628 = (_pst$18 => { - var $10629 = Parser$Reply$value$(_pst$18, Kind$Term$ref$("Bool.true")); - return $10629; - }); - var $10627 = $10628; - } else { - var self = ($10615 === "false"); - if (self) { - var $10631 = (_pst$18 => { - var $10632 = Parser$Reply$value$(_pst$18, Kind$Term$ref$("Bool.false")); - return $10632; - }); - var $10630 = $10631; - } else { - var self = ($10615 === "unit"); - if (self) { - var $10634 = (_pst$18 => { - var $10635 = Parser$Reply$value$(_pst$18, Kind$Term$ref$("Unit.new")); - return $10635; - }); - var $10633 = $10634; - } else { - var self = ($10615 === "none"); - if (self) { - var _term$18 = Kind$Term$ref$("Maybe.none"); - var _term$19 = Kind$Term$app$(_term$18, Kind$Term$hol$(Bits$e)); - var $10637 = (_pst$20 => { - var $10638 = Parser$Reply$value$(_pst$20, _term$19); - return $10638; - }); - var $10636 = $10637; - } else { - var self = ($10615 === "refl"); - if (self) { - var _term$18 = Kind$Term$ref$("Equal.refl"); - var _term$19 = Kind$Term$app$(_term$18, Kind$Term$hol$(Bits$e)); - var _term$20 = Kind$Term$app$(_term$19, Kind$Term$hol$(Bits$e)); - var $10640 = (_pst$21 => { - var $10641 = Parser$Reply$value$(_pst$21, _term$20); - return $10641; - }); - var $10639 = $10640; - } else { - var $10642 = (_pst$18 => { - var $10643 = Parser$Reply$value$(_pst$18, Kind$Term$ref$($10615)); - return $10643; - }); - var $10639 = $10642; - }; - var $10636 = $10639; - }; - var $10633 = $10636; - }; - var $10630 = $10633; - }; - var $10627 = $10630; - }; - var $10624 = $10627; - }; - var $10624 = $10624(_reply$pst$17); - return $10624; - })())); - return $10623; - })())); - var $10616 = $10622; - break; - }; - var $10608 = $10616; - break; - }; - var $10606 = $10608; - break; - }; - return $10606; - })); - - function Kind$Parser$items_now$(_ini$2, _parser$3, _end$4) { - var $10644 = Parser$wrap1(Kind$Parser$text_now$(_ini$2))((_pst$5 => { - var self = _pst$5; - switch (self._) { - case 'Parser.State.new': - var $10646 = self.err; - var _reply$11 = Kind$Parser$spaces(_pst$5); - var self = _reply$11; - switch (self._) { - case 'Parser.Reply.error': - var $10648 = self.err; - var self = $10646; - switch (self._) { - case 'Maybe.some': - var $10650 = self.value; - var $10651 = Parser$Reply$error$(Parser$Error$combine$($10650, $10648)); - var $10649 = $10651; - break; - case 'Maybe.none': - var $10652 = Parser$Reply$error$($10648); - var $10649 = $10652; - break; - }; - var $10647 = $10649; - break; - case 'Parser.Reply.value': - var $10653 = self.pst; - var self = $10653; - switch (self._) { - case 'Parser.State.new': - var $10655 = self.err; - var $10656 = self.nam; - var $10657 = self.ini; - var $10658 = self.idx; - var $10659 = self.str; - var $10660 = ((console.log(("FALTANDO " + $10659)), (_$19 => { - var $10661 = ((console.log(("VALUE " + $10656)), (_$20 => { - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($10646, $10655), $10656, $10657, $10658, $10659); - var self = _reply$pst$21; - switch (self._) { - case 'Parser.State.new': - var $10663 = self.err; - var _reply$27 = _parser$3(_reply$pst$21); - var self = _reply$27; - switch (self._) { - case 'Parser.Reply.error': - var $10665 = self.err; - var self = $10663; - switch (self._) { - case 'Maybe.some': - var $10667 = self.value; - var $10668 = Parser$Reply$error$(Parser$Error$combine$($10667, $10665)); - var $10666 = $10668; - break; - case 'Maybe.none': - var $10669 = Parser$Reply$error$($10665); - var $10666 = $10669; - break; - }; - var $10664 = $10666; - break; - case 'Parser.Reply.value': - var $10670 = self.pst; - var $10671 = self.val; - var self = $10670; - switch (self._) { - case 'Parser.State.new': - var $10673 = self.err; - var $10674 = self.nam; - var $10675 = self.ini; - var $10676 = self.idx; - var $10677 = self.str; - var $10678 = ((console.log(("FALTANDO " + $10677)), (_$35 => { - var $10679 = ((console.log(("VALUE " + $10674)), (_$36 => { - var _reply$pst$37 = Parser$State$new$(Parser$Error$maybe_combine$($10663, $10673), $10674, $10675, $10676, $10677); - var self = _reply$pst$37; - switch (self._) { - case 'Parser.State.new': - var $10681 = self.err; - var _reply$43 = Parser$maybe$(Kind$Parser$text(","), _reply$pst$37); - var self = _reply$43; - switch (self._) { - case 'Parser.Reply.error': - var $10683 = self.err; - var self = $10681; - switch (self._) { - case 'Maybe.some': - var $10685 = self.value; - var $10686 = Parser$Reply$error$(Parser$Error$combine$($10685, $10683)); - var $10684 = $10686; - break; - case 'Maybe.none': - var $10687 = Parser$Reply$error$($10683); - var $10684 = $10687; - break; - }; - var $10682 = $10684; - break; - case 'Parser.Reply.value': - var $10688 = self.pst; - var self = $10688; - switch (self._) { - case 'Parser.State.new': - var $10690 = self.err; - var $10691 = self.nam; - var $10692 = self.ini; - var $10693 = self.idx; - var $10694 = self.str; - var $10695 = ((console.log(("FALTANDO " + $10694)), (_$51 => { - var $10696 = ((console.log(("VALUE " + $10691)), (_$52 => { - var _reply$pst$53 = Parser$State$new$(Parser$Error$maybe_combine$($10681, $10690), $10691, $10692, $10693, $10694); - var $10697 = Parser$Reply$value$(_reply$pst$53, $10671); - return $10697; - })())); - return $10696; - })())); - var $10689 = $10695; - break; - }; - var $10682 = $10689; - break; - }; - var $10680 = $10682; - break; - }; - return $10680; - })())); - return $10679; - })())); - var $10672 = $10678; - break; - }; - var $10664 = $10672; - break; - }; - var $10662 = $10664; - break; - }; - return $10662; - })())); - return $10661; - })())); - var $10654 = $10660; - break; - }; - var $10647 = $10654; - break; - }; - var $10645 = $10647; - break; - }; - return $10645; - }))(Kind$Parser$text(_end$4)); - return $10644; - }; - const Kind$Parser$items_now = x0 => x1 => x2 => Kind$Parser$items_now$(x0, x1, x2); - const List$for = a0 => a1 => a2 => (list_for(a0)(a1)(a2)); - - function Kind$Parser$application$(_func$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $10699 = self.err; - var _reply$8 = Kind$Parser$items_now$("(", Kind$Parser$term, ")")(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $10701 = self.err; - var self = $10699; - switch (self._) { - case 'Maybe.some': - var $10703 = self.value; - var $10704 = Parser$Reply$error$(Parser$Error$combine$($10703, $10701)); - var $10702 = $10704; - break; - case 'Maybe.none': - var $10705 = Parser$Reply$error$($10701); - var $10702 = $10705; - break; - }; - var $10700 = $10702; - break; - case 'Parser.Reply.value': - var $10706 = self.pst; - var $10707 = self.val; - var self = $10706; - switch (self._) { - case 'Parser.State.new': - var $10709 = self.err; - var $10710 = self.nam; - var $10711 = self.ini; - var $10712 = self.idx; - var $10713 = self.str; - var $10714 = ((console.log(("FALTANDO " + $10713)), (_$16 => { - var $10715 = ((console.log(("VALUE " + $10710)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10699, $10709), $10710, $10711, $10712, $10713); - var _expr$19 = (() => { - var $10718 = _func$1; - var $10719 = $10707; - let _f$20 = $10718; - let _x$19; - while ($10719._ === 'List.cons') { - _x$19 = $10719.head; - var $10718 = Kind$Term$app$(_f$20, _x$19); - _f$20 = $10718; - $10719 = $10719.tail; - } - return _f$20; - })(); - var $10716 = Parser$Reply$value$(_reply$pst$18, _expr$19); - return $10716; - })())); - return $10715; - })())); - var $10708 = $10714; - break; - }; - var $10700 = $10708; - break; - }; - var $10698 = $10700; - break; - }; - return $10698; - }; - const Kind$Parser$application = x0 => x1 => Kind$Parser$application$(x0, x1); - - function Kind$Parser$application$erased$(_func$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $10721 = self.err; - var _reply$8 = Kind$Parser$items_now$("<", Kind$Parser$term, ">")(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $10723 = self.err; - var self = $10721; - switch (self._) { - case 'Maybe.some': - var $10725 = self.value; - var $10726 = Parser$Reply$error$(Parser$Error$combine$($10725, $10723)); - var $10724 = $10726; - break; - case 'Maybe.none': - var $10727 = Parser$Reply$error$($10723); - var $10724 = $10727; - break; - }; - var $10722 = $10724; - break; - case 'Parser.Reply.value': - var $10728 = self.pst; - var $10729 = self.val; - var self = $10728; - switch (self._) { - case 'Parser.State.new': - var $10731 = self.err; - var $10732 = self.nam; - var $10733 = self.ini; - var $10734 = self.idx; - var $10735 = self.str; - var $10736 = ((console.log(("FALTANDO " + $10735)), (_$16 => { - var $10737 = ((console.log(("VALUE " + $10732)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10721, $10731), $10732, $10733, $10734, $10735); - var _expr$19 = (() => { - var $10740 = _func$1; - var $10741 = $10729; - let _f$20 = $10740; - let _x$19; - while ($10741._ === 'List.cons') { - _x$19 = $10741.head; - var $10740 = Kind$Term$app$(_f$20, _x$19); - _f$20 = $10740; - $10741 = $10741.tail; - } - return _f$20; - })(); - var $10738 = Parser$Reply$value$(_reply$pst$18, _expr$19); - return $10738; - })())); - return $10737; - })())); - var $10730 = $10736; - break; - }; - var $10722 = $10730; - break; - }; - var $10720 = $10722; - break; - }; - return $10720; - }; - const Kind$Parser$application$erased = x0 => x1 => Kind$Parser$application$erased$(x0, x1); - - function Kind$Parser$list_set$(_list$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $10743 = self.err; - var _reply$8 = Kind$Parser$text_now$("[")(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $10745 = self.err; - var self = $10743; - switch (self._) { - case 'Maybe.some': - var $10747 = self.value; - var $10748 = Parser$Reply$error$(Parser$Error$combine$($10747, $10745)); - var $10746 = $10748; - break; - case 'Maybe.none': - var $10749 = Parser$Reply$error$($10745); - var $10746 = $10749; - break; - }; - var $10744 = $10746; - break; - case 'Parser.Reply.value': - var $10750 = self.pst; - var self = $10750; - switch (self._) { - case 'Parser.State.new': - var $10752 = self.err; - var $10753 = self.nam; - var $10754 = self.ini; - var $10755 = self.idx; - var $10756 = self.str; - var $10757 = ((console.log(("FALTANDO " + $10756)), (_$16 => { - var $10758 = ((console.log(("VALUE " + $10753)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10743, $10752), $10753, $10754, $10755, $10756); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $10760 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $10762 = self.err; - var self = $10760; - switch (self._) { - case 'Maybe.some': - var $10764 = self.value; - var $10765 = Parser$Reply$error$(Parser$Error$combine$($10764, $10762)); - var $10763 = $10765; - break; - case 'Maybe.none': - var $10766 = Parser$Reply$error$($10762); - var $10763 = $10766; - break; - }; - var $10761 = $10763; - break; - case 'Parser.Reply.value': - var $10767 = self.pst; - var $10768 = self.val; - var self = $10767; - switch (self._) { - case 'Parser.State.new': - var $10770 = self.err; - var $10771 = self.nam; - var $10772 = self.ini; - var $10773 = self.idx; - var $10774 = self.str; - var $10775 = ((console.log(("FALTANDO " + $10774)), (_$32 => { - var $10776 = ((console.log(("VALUE " + $10771)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($10760, $10770), $10771, $10772, $10773, $10774); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $10778 = self.err; - var _reply$40 = Kind$Parser$text$("]", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $10780 = self.err; - var self = $10778; - switch (self._) { - case 'Maybe.some': - var $10782 = self.value; - var $10783 = Parser$Reply$error$(Parser$Error$combine$($10782, $10780)); - var $10781 = $10783; - break; - case 'Maybe.none': - var $10784 = Parser$Reply$error$($10780); - var $10781 = $10784; - break; - }; - var $10779 = $10781; - break; - case 'Parser.Reply.value': - var $10785 = self.pst; - var self = $10785; - switch (self._) { - case 'Parser.State.new': - var $10787 = self.err; - var $10788 = self.nam; - var $10789 = self.ini; - var $10790 = self.idx; - var $10791 = self.str; - var $10792 = ((console.log(("FALTANDO " + $10791)), (_$48 => { - var $10793 = ((console.log(("VALUE " + $10788)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($10778, $10787), $10788, $10789, $10790, $10791); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $10795 = self.err; - var _reply$56 = Kind$Parser$text$("<-", _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $10797 = self.err; - var self = $10795; - switch (self._) { - case 'Maybe.some': - var $10799 = self.value; - var $10800 = Parser$Reply$error$(Parser$Error$combine$($10799, $10797)); - var $10798 = $10800; - break; - case 'Maybe.none': - var $10801 = Parser$Reply$error$($10797); - var $10798 = $10801; - break; - }; - var $10796 = $10798; - break; - case 'Parser.Reply.value': - var $10802 = self.pst; - var self = $10802; - switch (self._) { - case 'Parser.State.new': - var $10804 = self.err; - var $10805 = self.nam; - var $10806 = self.ini; - var $10807 = self.idx; - var $10808 = self.str; - var $10809 = ((console.log(("FALTANDO " + $10808)), (_$64 => { - var $10810 = ((console.log(("VALUE " + $10805)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($10795, $10804), $10805, $10806, $10807, $10808); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $10812 = self.err; - var _reply$72 = Kind$Parser$term(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $10814 = self.err; - var self = $10812; - switch (self._) { - case 'Maybe.some': - var $10816 = self.value; - var $10817 = Parser$Reply$error$(Parser$Error$combine$($10816, $10814)); - var $10815 = $10817; - break; - case 'Maybe.none': - var $10818 = Parser$Reply$error$($10814); - var $10815 = $10818; - break; - }; - var $10813 = $10815; - break; - case 'Parser.Reply.value': - var $10819 = self.pst; - var $10820 = self.val; - var self = $10819; - switch (self._) { - case 'Parser.State.new': - var $10822 = self.err; - var $10823 = self.nam; - var $10824 = self.ini; - var $10825 = self.idx; - var $10826 = self.str; - var $10827 = ((console.log(("FALTANDO " + $10826)), (_$80 => { - var $10828 = ((console.log(("VALUE " + $10823)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($10812, $10822), $10823, $10824, $10825, $10826); - var _term$83 = Kind$Term$ref$("List.set"); - var _term$84 = Kind$Term$app$(_term$83, Kind$Term$hol$(Bits$e)); - var _term$85 = Kind$Term$app$(_term$84, $10768); - var _term$86 = Kind$Term$app$(_term$85, $10820); - var _term$87 = Kind$Term$app$(_term$86, _list$1); - var $10829 = Parser$Reply$value$(_reply$pst$82, _term$87); - return $10829; - })())); - return $10828; - })())); - var $10821 = $10827; - break; - }; - var $10813 = $10821; - break; - }; - var $10811 = $10813; - break; - }; - return $10811; - })())); - return $10810; - })())); - var $10803 = $10809; - break; - }; - var $10796 = $10803; - break; - }; - var $10794 = $10796; - break; - }; - return $10794; - })())); - return $10793; - })())); - var $10786 = $10792; - break; - }; - var $10779 = $10786; - break; - }; - var $10777 = $10779; - break; - }; - return $10777; - })())); - return $10776; - })())); - var $10769 = $10775; - break; - }; - var $10761 = $10769; - break; - }; - var $10759 = $10761; - break; - }; - return $10759; - })())); - return $10758; - })())); - var $10751 = $10757; - break; - }; - var $10744 = $10751; - break; - }; - var $10742 = $10744; - break; - }; - return $10742; - }; - const Kind$Parser$list_set = x0 => x1 => Kind$Parser$list_set$(x0, x1); - - function Kind$Parser$list_get$(_list$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $10831 = self.err; - var _reply$8 = Kind$Parser$text_now$("[")(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $10833 = self.err; - var self = $10831; - switch (self._) { - case 'Maybe.some': - var $10835 = self.value; - var $10836 = Parser$Reply$error$(Parser$Error$combine$($10835, $10833)); - var $10834 = $10836; - break; - case 'Maybe.none': - var $10837 = Parser$Reply$error$($10833); - var $10834 = $10837; - break; - }; - var $10832 = $10834; - break; - case 'Parser.Reply.value': - var $10838 = self.pst; - var self = $10838; - switch (self._) { - case 'Parser.State.new': - var $10840 = self.err; - var $10841 = self.nam; - var $10842 = self.ini; - var $10843 = self.idx; - var $10844 = self.str; - var $10845 = ((console.log(("FALTANDO " + $10844)), (_$16 => { - var $10846 = ((console.log(("VALUE " + $10841)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10831, $10840), $10841, $10842, $10843, $10844); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $10848 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $10850 = self.err; - var self = $10848; - switch (self._) { - case 'Maybe.some': - var $10852 = self.value; - var $10853 = Parser$Reply$error$(Parser$Error$combine$($10852, $10850)); - var $10851 = $10853; - break; - case 'Maybe.none': - var $10854 = Parser$Reply$error$($10850); - var $10851 = $10854; - break; - }; - var $10849 = $10851; - break; - case 'Parser.Reply.value': - var $10855 = self.pst; - var $10856 = self.val; - var self = $10855; - switch (self._) { - case 'Parser.State.new': - var $10858 = self.err; - var $10859 = self.nam; - var $10860 = self.ini; - var $10861 = self.idx; - var $10862 = self.str; - var $10863 = ((console.log(("FALTANDO " + $10862)), (_$32 => { - var $10864 = ((console.log(("VALUE " + $10859)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($10848, $10858), $10859, $10860, $10861, $10862); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $10866 = self.err; - var _reply$40 = Kind$Parser$text$("]", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $10868 = self.err; - var self = $10866; - switch (self._) { - case 'Maybe.some': - var $10870 = self.value; - var $10871 = Parser$Reply$error$(Parser$Error$combine$($10870, $10868)); - var $10869 = $10871; - break; - case 'Maybe.none': - var $10872 = Parser$Reply$error$($10868); - var $10869 = $10872; - break; - }; - var $10867 = $10869; - break; - case 'Parser.Reply.value': - var $10873 = self.pst; - var self = $10873; - switch (self._) { - case 'Parser.State.new': - var $10875 = self.err; - var $10876 = self.nam; - var $10877 = self.ini; - var $10878 = self.idx; - var $10879 = self.str; - var $10880 = ((console.log(("FALTANDO " + $10879)), (_$48 => { - var $10881 = ((console.log(("VALUE " + $10876)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($10866, $10875), $10876, $10877, $10878, $10879); - var _term$51 = Kind$Term$ref$("List.get"); - var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); - var _term$53 = Kind$Term$app$(_term$52, $10856); - var _term$54 = Kind$Term$app$(_term$53, _list$1); - var $10882 = Parser$Reply$value$(_reply$pst$50, _term$54); - return $10882; - })())); - return $10881; - })())); - var $10874 = $10880; - break; - }; - var $10867 = $10874; - break; - }; - var $10865 = $10867; - break; - }; - return $10865; - })())); - return $10864; - })())); - var $10857 = $10863; - break; - }; - var $10849 = $10857; - break; - }; - var $10847 = $10849; - break; - }; - return $10847; - })())); - return $10846; - })())); - var $10839 = $10845; - break; - }; - var $10832 = $10839; - break; - }; - var $10830 = $10832; - break; - }; - return $10830; - }; - const Kind$Parser$list_get = x0 => x1 => Kind$Parser$list_get$(x0, x1); - - function Kind$Parser$map_set$(_map$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $10884 = self.err; - var _reply$8 = Kind$Parser$text_now$("{")(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $10886 = self.err; - var self = $10884; - switch (self._) { - case 'Maybe.some': - var $10888 = self.value; - var $10889 = Parser$Reply$error$(Parser$Error$combine$($10888, $10886)); - var $10887 = $10889; - break; - case 'Maybe.none': - var $10890 = Parser$Reply$error$($10886); - var $10887 = $10890; - break; - }; - var $10885 = $10887; - break; - case 'Parser.Reply.value': - var $10891 = self.pst; - var self = $10891; - switch (self._) { - case 'Parser.State.new': - var $10893 = self.err; - var $10894 = self.nam; - var $10895 = self.ini; - var $10896 = self.idx; - var $10897 = self.str; - var $10898 = ((console.log(("FALTANDO " + $10897)), (_$16 => { - var $10899 = ((console.log(("VALUE " + $10894)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10884, $10893), $10894, $10895, $10896, $10897); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $10901 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $10903 = self.err; - var self = $10901; - switch (self._) { - case 'Maybe.some': - var $10905 = self.value; - var $10906 = Parser$Reply$error$(Parser$Error$combine$($10905, $10903)); - var $10904 = $10906; - break; - case 'Maybe.none': - var $10907 = Parser$Reply$error$($10903); - var $10904 = $10907; - break; - }; - var $10902 = $10904; - break; - case 'Parser.Reply.value': - var $10908 = self.pst; - var $10909 = self.val; - var self = $10908; - switch (self._) { - case 'Parser.State.new': - var $10911 = self.err; - var $10912 = self.nam; - var $10913 = self.ini; - var $10914 = self.idx; - var $10915 = self.str; - var $10916 = ((console.log(("FALTANDO " + $10915)), (_$32 => { - var $10917 = ((console.log(("VALUE " + $10912)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($10901, $10911), $10912, $10913, $10914, $10915); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $10919 = self.err; - var _reply$40 = Kind$Parser$text$("}", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $10921 = self.err; - var self = $10919; - switch (self._) { - case 'Maybe.some': - var $10923 = self.value; - var $10924 = Parser$Reply$error$(Parser$Error$combine$($10923, $10921)); - var $10922 = $10924; - break; - case 'Maybe.none': - var $10925 = Parser$Reply$error$($10921); - var $10922 = $10925; - break; - }; - var $10920 = $10922; - break; - case 'Parser.Reply.value': - var $10926 = self.pst; - var self = $10926; - switch (self._) { - case 'Parser.State.new': - var $10928 = self.err; - var $10929 = self.nam; - var $10930 = self.ini; - var $10931 = self.idx; - var $10932 = self.str; - var $10933 = ((console.log(("FALTANDO " + $10932)), (_$48 => { - var $10934 = ((console.log(("VALUE " + $10929)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($10919, $10928), $10929, $10930, $10931, $10932); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $10936 = self.err; - var _reply$56 = Kind$Parser$text$("<-", _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $10938 = self.err; - var self = $10936; - switch (self._) { - case 'Maybe.some': - var $10940 = self.value; - var $10941 = Parser$Reply$error$(Parser$Error$combine$($10940, $10938)); - var $10939 = $10941; - break; - case 'Maybe.none': - var $10942 = Parser$Reply$error$($10938); - var $10939 = $10942; - break; - }; - var $10937 = $10939; - break; - case 'Parser.Reply.value': - var $10943 = self.pst; - var self = $10943; - switch (self._) { - case 'Parser.State.new': - var $10945 = self.err; - var $10946 = self.nam; - var $10947 = self.ini; - var $10948 = self.idx; - var $10949 = self.str; - var $10950 = ((console.log(("FALTANDO " + $10949)), (_$64 => { - var $10951 = ((console.log(("VALUE " + $10946)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($10936, $10945), $10946, $10947, $10948, $10949); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $10953 = self.err; - var _reply$72 = Kind$Parser$term(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $10955 = self.err; - var self = $10953; - switch (self._) { - case 'Maybe.some': - var $10957 = self.value; - var $10958 = Parser$Reply$error$(Parser$Error$combine$($10957, $10955)); - var $10956 = $10958; - break; - case 'Maybe.none': - var $10959 = Parser$Reply$error$($10955); - var $10956 = $10959; - break; - }; - var $10954 = $10956; - break; - case 'Parser.Reply.value': - var $10960 = self.pst; - var $10961 = self.val; - var self = $10960; - switch (self._) { - case 'Parser.State.new': - var $10963 = self.err; - var $10964 = self.nam; - var $10965 = self.ini; - var $10966 = self.idx; - var $10967 = self.str; - var $10968 = ((console.log(("FALTANDO " + $10967)), (_$80 => { - var $10969 = ((console.log(("VALUE " + $10964)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($10953, $10963), $10964, $10965, $10966, $10967); - var _term$83 = Kind$Term$ref$("Map.set"); - var _term$84 = Kind$Term$app$(_term$83, Kind$Term$hol$(Bits$e)); - var _term$85 = Kind$Term$app$(_term$84, $10909); - var _term$86 = Kind$Term$app$(_term$85, $10961); - var _term$87 = Kind$Term$app$(_term$86, _map$1); - var $10970 = Parser$Reply$value$(_reply$pst$82, _term$87); - return $10970; - })())); - return $10969; - })())); - var $10962 = $10968; - break; - }; - var $10954 = $10962; - break; - }; - var $10952 = $10954; - break; - }; - return $10952; - })())); - return $10951; - })())); - var $10944 = $10950; - break; - }; - var $10937 = $10944; - break; - }; - var $10935 = $10937; - break; - }; - return $10935; - })())); - return $10934; - })())); - var $10927 = $10933; - break; - }; - var $10920 = $10927; - break; - }; - var $10918 = $10920; - break; - }; - return $10918; - })())); - return $10917; - })())); - var $10910 = $10916; - break; - }; - var $10902 = $10910; - break; - }; - var $10900 = $10902; - break; - }; - return $10900; - })())); - return $10899; - })())); - var $10892 = $10898; - break; - }; - var $10885 = $10892; - break; - }; - var $10883 = $10885; - break; - }; - return $10883; - }; - const Kind$Parser$map_set = x0 => x1 => Kind$Parser$map_set$(x0, x1); - - function Kind$Parser$map_get$(_map$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $10972 = self.err; - var _reply$8 = Kind$Parser$text_now$("{")(_pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $10974 = self.err; - var self = $10972; - switch (self._) { - case 'Maybe.some': - var $10976 = self.value; - var $10977 = Parser$Reply$error$(Parser$Error$combine$($10976, $10974)); - var $10975 = $10977; - break; - case 'Maybe.none': - var $10978 = Parser$Reply$error$($10974); - var $10975 = $10978; - break; - }; - var $10973 = $10975; - break; - case 'Parser.Reply.value': - var $10979 = self.pst; - var self = $10979; - switch (self._) { - case 'Parser.State.new': - var $10981 = self.err; - var $10982 = self.nam; - var $10983 = self.ini; - var $10984 = self.idx; - var $10985 = self.str; - var $10986 = ((console.log(("FALTANDO " + $10985)), (_$16 => { - var $10987 = ((console.log(("VALUE " + $10982)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10972, $10981), $10982, $10983, $10984, $10985); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $10989 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $10991 = self.err; - var self = $10989; - switch (self._) { - case 'Maybe.some': - var $10993 = self.value; - var $10994 = Parser$Reply$error$(Parser$Error$combine$($10993, $10991)); - var $10992 = $10994; - break; - case 'Maybe.none': - var $10995 = Parser$Reply$error$($10991); - var $10992 = $10995; - break; - }; - var $10990 = $10992; - break; - case 'Parser.Reply.value': - var $10996 = self.pst; - var $10997 = self.val; - var self = $10996; - switch (self._) { - case 'Parser.State.new': - var $10999 = self.err; - var $11000 = self.nam; - var $11001 = self.ini; - var $11002 = self.idx; - var $11003 = self.str; - var $11004 = ((console.log(("FALTANDO " + $11003)), (_$32 => { - var $11005 = ((console.log(("VALUE " + $11000)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($10989, $10999), $11000, $11001, $11002, $11003); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $11007 = self.err; - var _reply$40 = Kind$Parser$text$("}", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $11009 = self.err; - var self = $11007; - switch (self._) { - case 'Maybe.some': - var $11011 = self.value; - var $11012 = Parser$Reply$error$(Parser$Error$combine$($11011, $11009)); - var $11010 = $11012; - break; - case 'Maybe.none': - var $11013 = Parser$Reply$error$($11009); - var $11010 = $11013; - break; - }; - var $11008 = $11010; - break; - case 'Parser.Reply.value': - var $11014 = self.pst; - var self = $11014; - switch (self._) { - case 'Parser.State.new': - var $11016 = self.err; - var $11017 = self.nam; - var $11018 = self.ini; - var $11019 = self.idx; - var $11020 = self.str; - var $11021 = ((console.log(("FALTANDO " + $11020)), (_$48 => { - var $11022 = ((console.log(("VALUE " + $11017)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11007, $11016), $11017, $11018, $11019, $11020); - var _term$51 = Kind$Term$ref$("Map.get"); - var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); - var _term$53 = Kind$Term$app$(_term$52, $10997); - var _term$54 = Kind$Term$app$(_term$53, _map$1); - var $11023 = Parser$Reply$value$(_reply$pst$50, _term$54); - return $11023; - })())); - return $11022; - })())); - var $11015 = $11021; - break; - }; - var $11008 = $11015; - break; - }; - var $11006 = $11008; - break; - }; - return $11006; - })())); - return $11005; - })())); - var $10998 = $11004; - break; - }; - var $10990 = $10998; - break; - }; - var $10988 = $10990; - break; - }; - return $10988; - })())); - return $10987; - })())); - var $10980 = $10986; - break; - }; - var $10973 = $10980; - break; - }; - var $10971 = $10973; - break; - }; - return $10971; - }; - const Kind$Parser$map_get = x0 => x1 => Kind$Parser$map_get$(x0, x1); - - function Kind$Term$set$(_expr$1, _fkey$2, _fval$3) { - var $11024 = ({ - _: 'Kind.Term.set', - 'expr': _expr$1, - 'fkey': _fkey$2, - 'fval': _fval$3 - }); - return $11024; - }; - const Kind$Term$set = x0 => x1 => x2 => Kind$Term$set$(x0, x1, x2); - - function Kind$Parser$field_set$(_term$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11026 = self.err; - var _reply$8 = Kind$Parser$text$("@", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11028 = self.err; - var self = $11026; - switch (self._) { - case 'Maybe.some': - var $11030 = self.value; - var $11031 = Parser$Reply$error$(Parser$Error$combine$($11030, $11028)); - var $11029 = $11031; - break; - case 'Maybe.none': - var $11032 = Parser$Reply$error$($11028); - var $11029 = $11032; - break; - }; - var $11027 = $11029; - break; - case 'Parser.Reply.value': - var $11033 = self.pst; - var self = $11033; - switch (self._) { - case 'Parser.State.new': - var $11035 = self.err; - var $11036 = self.nam; - var $11037 = self.ini; - var $11038 = self.idx; - var $11039 = self.str; - var $11040 = ((console.log(("FALTANDO " + $11039)), (_$16 => { - var $11041 = ((console.log(("VALUE " + $11036)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11026, $11035), $11036, $11037, $11038, $11039); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11043 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11045 = self.err; - var self = $11043; - switch (self._) { - case 'Maybe.some': - var $11047 = self.value; - var $11048 = Parser$Reply$error$(Parser$Error$combine$($11047, $11045)); - var $11046 = $11048; - break; - case 'Maybe.none': - var $11049 = Parser$Reply$error$($11045); - var $11046 = $11049; - break; - }; - var $11044 = $11046; - break; - case 'Parser.Reply.value': - var $11050 = self.pst; - var $11051 = self.val; - var self = $11050; - switch (self._) { - case 'Parser.State.new': - var $11053 = self.err; - var $11054 = self.nam; - var $11055 = self.ini; - var $11056 = self.idx; - var $11057 = self.str; - var $11058 = ((console.log(("FALTANDO " + $11057)), (_$32 => { - var $11059 = ((console.log(("VALUE " + $11054)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11043, $11053), $11054, $11055, $11056, $11057); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $11061 = self.err; - var _reply$40 = Kind$Parser$text$("<-", _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $11063 = self.err; - var self = $11061; - switch (self._) { - case 'Maybe.some': - var $11065 = self.value; - var $11066 = Parser$Reply$error$(Parser$Error$combine$($11065, $11063)); - var $11064 = $11066; - break; - case 'Maybe.none': - var $11067 = Parser$Reply$error$($11063); - var $11064 = $11067; - break; - }; - var $11062 = $11064; - break; - case 'Parser.Reply.value': - var $11068 = self.pst; - var self = $11068; - switch (self._) { - case 'Parser.State.new': - var $11070 = self.err; - var $11071 = self.nam; - var $11072 = self.ini; - var $11073 = self.idx; - var $11074 = self.str; - var $11075 = ((console.log(("FALTANDO " + $11074)), (_$48 => { - var $11076 = ((console.log(("VALUE " + $11071)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11061, $11070), $11071, $11072, $11073, $11074); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $11078 = self.err; - var _reply$56 = Kind$Parser$term(_reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $11080 = self.err; - var self = $11078; - switch (self._) { - case 'Maybe.some': - var $11082 = self.value; - var $11083 = Parser$Reply$error$(Parser$Error$combine$($11082, $11080)); - var $11081 = $11083; - break; - case 'Maybe.none': - var $11084 = Parser$Reply$error$($11080); - var $11081 = $11084; - break; - }; - var $11079 = $11081; - break; - case 'Parser.Reply.value': - var $11085 = self.pst; - var $11086 = self.val; - var self = $11085; - switch (self._) { - case 'Parser.State.new': - var $11088 = self.err; - var $11089 = self.nam; - var $11090 = self.ini; - var $11091 = self.idx; - var $11092 = self.str; - var $11093 = ((console.log(("FALTANDO " + $11092)), (_$64 => { - var $11094 = ((console.log(("VALUE " + $11089)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($11078, $11088), $11089, $11090, $11091, $11092); - var $11095 = Parser$Reply$value$(_reply$pst$66, Kind$Term$set$(_term$1, $11051, $11086)); - return $11095; - })())); - return $11094; - })())); - var $11087 = $11093; - break; - }; - var $11079 = $11087; - break; - }; - var $11077 = $11079; - break; - }; - return $11077; - })())); - return $11076; - })())); - var $11069 = $11075; - break; - }; - var $11062 = $11069; - break; - }; - var $11060 = $11062; - break; - }; - return $11060; - })())); - return $11059; - })())); - var $11052 = $11058; - break; - }; - var $11044 = $11052; - break; - }; - var $11042 = $11044; - break; - }; - return $11042; - })())); - return $11041; - })())); - var $11034 = $11040; - break; - }; - var $11027 = $11034; - break; - }; - var $11025 = $11027; - break; - }; - return $11025; - }; - const Kind$Parser$field_set = x0 => x1 => Kind$Parser$field_set$(x0, x1); - - function Kind$Term$get$(_expr$1, _fkey$2) { - var $11096 = ({ - _: 'Kind.Term.get', - 'expr': _expr$1, - 'fkey': _fkey$2 - }); - return $11096; - }; - const Kind$Term$get = x0 => x1 => Kind$Term$get$(x0, x1); - - function Kind$Parser$field_get$(_term$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11098 = self.err; - var _reply$8 = Kind$Parser$text$("@", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11100 = self.err; - var self = $11098; - switch (self._) { - case 'Maybe.some': - var $11102 = self.value; - var $11103 = Parser$Reply$error$(Parser$Error$combine$($11102, $11100)); - var $11101 = $11103; - break; - case 'Maybe.none': - var $11104 = Parser$Reply$error$($11100); - var $11101 = $11104; - break; - }; - var $11099 = $11101; - break; - case 'Parser.Reply.value': - var $11105 = self.pst; - var self = $11105; - switch (self._) { - case 'Parser.State.new': - var $11107 = self.err; - var $11108 = self.nam; - var $11109 = self.ini; - var $11110 = self.idx; - var $11111 = self.str; - var $11112 = ((console.log(("FALTANDO " + $11111)), (_$16 => { - var $11113 = ((console.log(("VALUE " + $11108)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11098, $11107), $11108, $11109, $11110, $11111); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11115 = self.err; - var _reply$24 = Kind$Parser$name1$(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11117 = self.err; - var self = $11115; - switch (self._) { - case 'Maybe.some': - var $11119 = self.value; - var $11120 = Parser$Reply$error$(Parser$Error$combine$($11119, $11117)); - var $11118 = $11120; - break; - case 'Maybe.none': - var $11121 = Parser$Reply$error$($11117); - var $11118 = $11121; - break; - }; - var $11116 = $11118; - break; - case 'Parser.Reply.value': - var $11122 = self.pst; - var $11123 = self.val; - var self = $11122; - switch (self._) { - case 'Parser.State.new': - var $11125 = self.err; - var $11126 = self.nam; - var $11127 = self.ini; - var $11128 = self.idx; - var $11129 = self.str; - var $11130 = ((console.log(("FALTANDO " + $11129)), (_$32 => { - var $11131 = ((console.log(("VALUE " + $11126)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11115, $11125), $11126, $11127, $11128, $11129); - var $11132 = Parser$Reply$value$(_reply$pst$34, Kind$Term$get$(_term$1, $11123)); - return $11132; - })())); - return $11131; - })())); - var $11124 = $11130; - break; - }; - var $11116 = $11124; - break; - }; - var $11114 = $11116; - break; - }; - return $11114; - })())); - return $11113; - })())); - var $11106 = $11112; - break; - }; - var $11099 = $11106; - break; - }; - var $11097 = $11099; - break; - }; - return $11097; - }; - const Kind$Parser$field_get = x0 => x1 => Kind$Parser$field_get$(x0, x1); - - function Kind$Parser$arrow$(_xtyp$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11134 = self.err; - var _reply$8 = Kind$Parser$text$("->", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11136 = self.err; - var self = $11134; - switch (self._) { - case 'Maybe.some': - var $11138 = self.value; - var $11139 = Parser$Reply$error$(Parser$Error$combine$($11138, $11136)); - var $11137 = $11139; - break; - case 'Maybe.none': - var $11140 = Parser$Reply$error$($11136); - var $11137 = $11140; - break; - }; - var $11135 = $11137; - break; - case 'Parser.Reply.value': - var $11141 = self.pst; - var self = $11141; - switch (self._) { - case 'Parser.State.new': - var $11143 = self.err; - var $11144 = self.nam; - var $11145 = self.ini; - var $11146 = self.idx; - var $11147 = self.str; - var $11148 = ((console.log(("FALTANDO " + $11147)), (_$16 => { - var $11149 = ((console.log(("VALUE " + $11144)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11134, $11143), $11144, $11145, $11146, $11147); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11151 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11153 = self.err; - var self = $11151; - switch (self._) { - case 'Maybe.some': - var $11155 = self.value; - var $11156 = Parser$Reply$error$(Parser$Error$combine$($11155, $11153)); - var $11154 = $11156; - break; - case 'Maybe.none': - var $11157 = Parser$Reply$error$($11153); - var $11154 = $11157; - break; - }; - var $11152 = $11154; - break; - case 'Parser.Reply.value': - var $11158 = self.pst; - var $11159 = self.val; - var self = $11158; - switch (self._) { - case 'Parser.State.new': - var $11161 = self.err; - var $11162 = self.nam; - var $11163 = self.ini; - var $11164 = self.idx; - var $11165 = self.str; - var $11166 = ((console.log(("FALTANDO " + $11165)), (_$32 => { - var $11167 = ((console.log(("VALUE " + $11162)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11151, $11161), $11162, $11163, $11164, $11165); - var $11168 = Parser$Reply$value$(_reply$pst$34, Kind$Term$all$(Bool$false, "", "", _xtyp$1, (_s$35 => _x$36 => { - var $11169 = $11159; - return $11169; - }))); - return $11168; - })())); - return $11167; - })())); - var $11160 = $11166; - break; - }; - var $11152 = $11160; - break; - }; - var $11150 = $11152; - break; - }; - return $11150; - })())); - return $11149; - })())); - var $11142 = $11148; - break; - }; - var $11135 = $11142; - break; - }; - var $11133 = $11135; - break; - }; - return $11133; - }; - const Kind$Parser$arrow = x0 => x1 => Kind$Parser$arrow$(x0, x1); - - function Kind$Parser$concat$(_lst0$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11171 = self.err; - var _reply$8 = Kind$Parser$text$("++", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11173 = self.err; - var self = $11171; - switch (self._) { - case 'Maybe.some': - var $11175 = self.value; - var $11176 = Parser$Reply$error$(Parser$Error$combine$($11175, $11173)); - var $11174 = $11176; - break; - case 'Maybe.none': - var $11177 = Parser$Reply$error$($11173); - var $11174 = $11177; - break; - }; - var $11172 = $11174; - break; - case 'Parser.Reply.value': - var $11178 = self.pst; - var self = $11178; - switch (self._) { - case 'Parser.State.new': - var $11180 = self.err; - var $11181 = self.nam; - var $11182 = self.ini; - var $11183 = self.idx; - var $11184 = self.str; - var $11185 = ((console.log(("FALTANDO " + $11184)), (_$16 => { - var $11186 = ((console.log(("VALUE " + $11181)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11171, $11180), $11181, $11182, $11183, $11184); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11188 = self.err; - var _reply$24 = Parser$text$(" ", _reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11190 = self.err; - var self = $11188; - switch (self._) { - case 'Maybe.some': - var $11192 = self.value; - var $11193 = Parser$Reply$error$(Parser$Error$combine$($11192, $11190)); - var $11191 = $11193; - break; - case 'Maybe.none': - var $11194 = Parser$Reply$error$($11190); - var $11191 = $11194; - break; - }; - var $11189 = $11191; - break; - case 'Parser.Reply.value': - var $11195 = self.pst; - var self = $11195; - switch (self._) { - case 'Parser.State.new': - var $11197 = self.err; - var $11198 = self.nam; - var $11199 = self.ini; - var $11200 = self.idx; - var $11201 = self.str; - var $11202 = ((console.log(("FALTANDO " + $11201)), (_$32 => { - var $11203 = ((console.log(("VALUE " + $11198)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11188, $11197), $11198, $11199, $11200, $11201); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $11205 = self.err; - var _reply$40 = Kind$Parser$term(_reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $11207 = self.err; - var self = $11205; - switch (self._) { - case 'Maybe.some': - var $11209 = self.value; - var $11210 = Parser$Reply$error$(Parser$Error$combine$($11209, $11207)); - var $11208 = $11210; - break; - case 'Maybe.none': - var $11211 = Parser$Reply$error$($11207); - var $11208 = $11211; - break; - }; - var $11206 = $11208; - break; - case 'Parser.Reply.value': - var $11212 = self.pst; - var $11213 = self.val; - var self = $11212; - switch (self._) { - case 'Parser.State.new': - var $11215 = self.err; - var $11216 = self.nam; - var $11217 = self.ini; - var $11218 = self.idx; - var $11219 = self.str; - var $11220 = ((console.log(("FALTANDO " + $11219)), (_$48 => { - var $11221 = ((console.log(("VALUE " + $11216)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11205, $11215), $11216, $11217, $11218, $11219); - var _term$51 = Kind$Term$ref$("List.concat"); - var _term$52 = Kind$Term$app$(_term$51, Kind$Term$hol$(Bits$e)); - var _term$53 = Kind$Term$app$(_term$52, _lst0$1); - var _term$54 = Kind$Term$app$(_term$53, $11213); - var $11222 = Parser$Reply$value$(_reply$pst$50, _term$54); - return $11222; - })())); - return $11221; - })())); - var $11214 = $11220; - break; - }; - var $11206 = $11214; - break; - }; - var $11204 = $11206; - break; - }; - return $11204; - })())); - return $11203; - })())); - var $11196 = $11202; - break; - }; - var $11189 = $11196; - break; - }; - var $11187 = $11189; - break; - }; - return $11187; - })())); - return $11186; - })())); - var $11179 = $11185; - break; - }; - var $11172 = $11179; - break; - }; - var $11170 = $11172; - break; - }; - return $11170; - }; - const Kind$Parser$concat = x0 => x1 => Kind$Parser$concat$(x0, x1); - - function Kind$Parser$equality$(_val0$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11224 = self.err; - var _reply$8 = Kind$Parser$text$("==", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11226 = self.err; - var self = $11224; - switch (self._) { - case 'Maybe.some': - var $11228 = self.value; - var $11229 = Parser$Reply$error$(Parser$Error$combine$($11228, $11226)); - var $11227 = $11229; - break; - case 'Maybe.none': - var $11230 = Parser$Reply$error$($11226); - var $11227 = $11230; - break; - }; - var $11225 = $11227; - break; - case 'Parser.Reply.value': - var $11231 = self.pst; - var self = $11231; - switch (self._) { - case 'Parser.State.new': - var $11233 = self.err; - var $11234 = self.nam; - var $11235 = self.ini; - var $11236 = self.idx; - var $11237 = self.str; - var $11238 = ((console.log(("FALTANDO " + $11237)), (_$16 => { - var $11239 = ((console.log(("VALUE " + $11234)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11224, $11233), $11234, $11235, $11236, $11237); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11241 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11243 = self.err; - var self = $11241; - switch (self._) { - case 'Maybe.some': - var $11245 = self.value; - var $11246 = Parser$Reply$error$(Parser$Error$combine$($11245, $11243)); - var $11244 = $11246; - break; - case 'Maybe.none': - var $11247 = Parser$Reply$error$($11243); - var $11244 = $11247; - break; - }; - var $11242 = $11244; - break; - case 'Parser.Reply.value': - var $11248 = self.pst; - var $11249 = self.val; - var self = $11248; - switch (self._) { - case 'Parser.State.new': - var $11251 = self.err; - var $11252 = self.nam; - var $11253 = self.ini; - var $11254 = self.idx; - var $11255 = self.str; - var $11256 = ((console.log(("FALTANDO " + $11255)), (_$32 => { - var $11257 = ((console.log(("VALUE " + $11252)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11241, $11251), $11252, $11253, $11254, $11255); - var _term$35 = Kind$Term$ref$("Equal"); - var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); - var _term$37 = Kind$Term$app$(_term$36, _val0$1); - var _term$38 = Kind$Term$app$(_term$37, $11249); - var $11258 = Parser$Reply$value$(_reply$pst$34, _term$38); - return $11258; - })())); - return $11257; - })())); - var $11250 = $11256; - break; - }; - var $11242 = $11250; - break; - }; - var $11240 = $11242; - break; - }; - return $11240; - })())); - return $11239; - })())); - var $11232 = $11238; - break; - }; - var $11225 = $11232; - break; - }; - var $11223 = $11225; - break; - }; - return $11223; - }; - const Kind$Parser$equality = x0 => x1 => Kind$Parser$equality$(x0, x1); - - function Kind$Term$ope$(_name$1, _arg0$2, _arg1$3) { - var $11259 = ({ - _: 'Kind.Term.ope', - 'name': _name$1, - 'arg0': _arg0$2, - 'arg1': _arg1$3 - }); - return $11259; - }; - const Kind$Term$ope = x0 => x1 => x2 => Kind$Term$ope$(x0, x1, x2); - - function Kind$Parser$op$(_sym$1, _ref$2, _val0$3, _pst$4) { - var self = _pst$4; - switch (self._) { - case 'Parser.State.new': - var $11261 = self.err; - var _reply$10 = Kind$Parser$text$(_sym$1, _pst$4); - var self = _reply$10; - switch (self._) { - case 'Parser.Reply.error': - var $11263 = self.err; - var self = $11261; - switch (self._) { - case 'Maybe.some': - var $11265 = self.value; - var $11266 = Parser$Reply$error$(Parser$Error$combine$($11265, $11263)); - var $11264 = $11266; - break; - case 'Maybe.none': - var $11267 = Parser$Reply$error$($11263); - var $11264 = $11267; - break; - }; - var $11262 = $11264; - break; - case 'Parser.Reply.value': - var $11268 = self.pst; - var self = $11268; - switch (self._) { - case 'Parser.State.new': - var $11270 = self.err; - var $11271 = self.nam; - var $11272 = self.ini; - var $11273 = self.idx; - var $11274 = self.str; - var $11275 = ((console.log(("FALTANDO " + $11274)), (_$18 => { - var $11276 = ((console.log(("VALUE " + $11271)), (_$19 => { - var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($11261, $11270), $11271, $11272, $11273, $11274); - var self = _reply$pst$20; - switch (self._) { - case 'Parser.State.new': - var $11278 = self.err; - var _reply$26 = Kind$Parser$term(_reply$pst$20); - var self = _reply$26; - switch (self._) { - case 'Parser.Reply.error': - var $11280 = self.err; - var self = $11278; - switch (self._) { - case 'Maybe.some': - var $11282 = self.value; - var $11283 = Parser$Reply$error$(Parser$Error$combine$($11282, $11280)); - var $11281 = $11283; - break; - case 'Maybe.none': - var $11284 = Parser$Reply$error$($11280); - var $11281 = $11284; - break; - }; - var $11279 = $11281; - break; - case 'Parser.Reply.value': - var $11285 = self.pst; - var $11286 = self.val; - var self = $11285; - switch (self._) { - case 'Parser.State.new': - var $11288 = self.err; - var $11289 = self.nam; - var $11290 = self.ini; - var $11291 = self.idx; - var $11292 = self.str; - var $11293 = ((console.log(("FALTANDO " + $11292)), (_$34 => { - var $11294 = ((console.log(("VALUE " + $11289)), (_$35 => { - var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($11278, $11288), $11289, $11290, $11291, $11292); - var $11295 = Parser$Reply$value$(_reply$pst$36, Kind$Term$ope$(_sym$1, _val0$3, $11286)); - return $11295; - })())); - return $11294; - })())); - var $11287 = $11293; - break; - }; - var $11279 = $11287; - break; - }; - var $11277 = $11279; - break; - }; - return $11277; - })())); - return $11276; - })())); - var $11269 = $11275; - break; - }; - var $11262 = $11269; - break; - }; - var $11260 = $11262; - break; - }; - return $11260; - }; - const Kind$Parser$op = x0 => x1 => x2 => x3 => Kind$Parser$op$(x0, x1, x2, x3); - const Kind$Parser$add = Kind$Parser$op("+")("Nat.add"); - const Kind$Parser$sub = Kind$Parser$op("-")("Nat.sub"); - const Kind$Parser$mul = Kind$Parser$op("*")("Nat.mul"); - const Kind$Parser$div = Kind$Parser$op("/")("Nat.div"); - const Kind$Parser$mod = Kind$Parser$op("%")("Nat.mod"); - const Kind$Parser$ltn = Kind$Parser$op("=?")("Nat.gte"); - const Kind$Parser$gtn = Kind$Parser$op(">?")("Nat.gtn"); - const Kind$Parser$and = Kind$Parser$op("&&")("Bool.and"); - const Kind$Parser$or = Kind$Parser$op("||")("Bool.or"); - - function Kind$Parser$composition$(_val0$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11297 = self.err; - var _reply$8 = Kind$Parser$text$(".", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11299 = self.err; - var self = $11297; - switch (self._) { - case 'Maybe.some': - var $11301 = self.value; - var $11302 = Parser$Reply$error$(Parser$Error$combine$($11301, $11299)); - var $11300 = $11302; - break; - case 'Maybe.none': - var $11303 = Parser$Reply$error$($11299); - var $11300 = $11303; - break; - }; - var $11298 = $11300; - break; - case 'Parser.Reply.value': - var $11304 = self.pst; - var self = $11304; - switch (self._) { - case 'Parser.State.new': - var $11306 = self.err; - var $11307 = self.nam; - var $11308 = self.ini; - var $11309 = self.idx; - var $11310 = self.str; - var $11311 = ((console.log(("FALTANDO " + $11310)), (_$16 => { - var $11312 = ((console.log(("VALUE " + $11307)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11297, $11306), $11307, $11308, $11309, $11310); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11314 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11316 = self.err; - var self = $11314; - switch (self._) { - case 'Maybe.some': - var $11318 = self.value; - var $11319 = Parser$Reply$error$(Parser$Error$combine$($11318, $11316)); - var $11317 = $11319; - break; - case 'Maybe.none': - var $11320 = Parser$Reply$error$($11316); - var $11317 = $11320; - break; - }; - var $11315 = $11317; - break; - case 'Parser.Reply.value': - var $11321 = self.pst; - var $11322 = self.val; - var self = $11321; - switch (self._) { - case 'Parser.State.new': - var $11324 = self.err; - var $11325 = self.nam; - var $11326 = self.ini; - var $11327 = self.idx; - var $11328 = self.str; - var $11329 = ((console.log(("FALTANDO " + $11328)), (_$32 => { - var $11330 = ((console.log(("VALUE " + $11325)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11314, $11324), $11325, $11326, $11327, $11328); - var _term$35 = Kind$Term$ref$("Function.comp"); - var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); - var _term$37 = Kind$Term$app$(_term$36, Kind$Term$hol$(Bits$e)); - var _term$38 = Kind$Term$app$(_term$37, Kind$Term$hol$(Bits$e)); - var _term$39 = Kind$Term$app$(_term$38, _val0$1); - var _term$40 = Kind$Term$app$(_term$39, $11322); - var $11331 = Parser$Reply$value$(_reply$pst$34, _term$40); - return $11331; - })())); - return $11330; - })())); - var $11323 = $11329; - break; - }; - var $11315 = $11323; - break; - }; - var $11313 = $11315; - break; - }; - return $11313; - })())); - return $11312; - })())); - var $11305 = $11311; - break; - }; - var $11298 = $11305; - break; - }; - var $11296 = $11298; - break; - }; - return $11296; - }; - const Kind$Parser$composition = x0 => x1 => Kind$Parser$composition$(x0, x1); - - function Kind$Parser$default$(_val0$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11333 = self.err; - var _reply$8 = Kind$Parser$text$("<>", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11335 = self.err; - var self = $11333; - switch (self._) { - case 'Maybe.some': - var $11337 = self.value; - var $11338 = Parser$Reply$error$(Parser$Error$combine$($11337, $11335)); - var $11336 = $11338; - break; - case 'Maybe.none': - var $11339 = Parser$Reply$error$($11335); - var $11336 = $11339; - break; - }; - var $11334 = $11336; - break; - case 'Parser.Reply.value': - var $11340 = self.pst; - var self = $11340; - switch (self._) { - case 'Parser.State.new': - var $11342 = self.err; - var $11343 = self.nam; - var $11344 = self.ini; - var $11345 = self.idx; - var $11346 = self.str; - var $11347 = ((console.log(("FALTANDO " + $11346)), (_$16 => { - var $11348 = ((console.log(("VALUE " + $11343)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11333, $11342), $11343, $11344, $11345, $11346); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11350 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11352 = self.err; - var self = $11350; - switch (self._) { - case 'Maybe.some': - var $11354 = self.value; - var $11355 = Parser$Reply$error$(Parser$Error$combine$($11354, $11352)); - var $11353 = $11355; - break; - case 'Maybe.none': - var $11356 = Parser$Reply$error$($11352); - var $11353 = $11356; - break; - }; - var $11351 = $11353; - break; - case 'Parser.Reply.value': - var $11357 = self.pst; - var $11358 = self.val; - var self = $11357; - switch (self._) { - case 'Parser.State.new': - var $11360 = self.err; - var $11361 = self.nam; - var $11362 = self.ini; - var $11363 = self.idx; - var $11364 = self.str; - var $11365 = ((console.log(("FALTANDO " + $11364)), (_$32 => { - var $11366 = ((console.log(("VALUE " + $11361)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11350, $11360), $11361, $11362, $11363, $11364); - var _term$35 = Kind$Term$ref$("Maybe.default"); - var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); - var _term$37 = Kind$Term$app$(_term$36, _val0$1); - var _term$38 = Kind$Term$app$(_term$37, $11358); - var $11367 = Parser$Reply$value$(_reply$pst$34, _term$38); - return $11367; - })())); - return $11366; - })())); - var $11359 = $11365; - break; - }; - var $11351 = $11359; - break; - }; - var $11349 = $11351; - break; - }; - return $11349; - })())); - return $11348; - })())); - var $11341 = $11347; - break; - }; - var $11334 = $11341; - break; - }; - var $11332 = $11334; - break; - }; - return $11332; - }; - const Kind$Parser$default = x0 => x1 => Kind$Parser$default$(x0, x1); - - function Kind$Parser$cons$(_head$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11369 = self.err; - var _reply$8 = Kind$Parser$text$("&", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11371 = self.err; - var self = $11369; - switch (self._) { - case 'Maybe.some': - var $11373 = self.value; - var $11374 = Parser$Reply$error$(Parser$Error$combine$($11373, $11371)); - var $11372 = $11374; - break; - case 'Maybe.none': - var $11375 = Parser$Reply$error$($11371); - var $11372 = $11375; - break; - }; - var $11370 = $11372; - break; - case 'Parser.Reply.value': - var $11376 = self.pst; - var self = $11376; - switch (self._) { - case 'Parser.State.new': - var $11378 = self.err; - var $11379 = self.nam; - var $11380 = self.ini; - var $11381 = self.idx; - var $11382 = self.str; - var $11383 = ((console.log(("FALTANDO " + $11382)), (_$16 => { - var $11384 = ((console.log(("VALUE " + $11379)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11369, $11378), $11379, $11380, $11381, $11382); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11386 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11388 = self.err; - var self = $11386; - switch (self._) { - case 'Maybe.some': - var $11390 = self.value; - var $11391 = Parser$Reply$error$(Parser$Error$combine$($11390, $11388)); - var $11389 = $11391; - break; - case 'Maybe.none': - var $11392 = Parser$Reply$error$($11388); - var $11389 = $11392; - break; - }; - var $11387 = $11389; - break; - case 'Parser.Reply.value': - var $11393 = self.pst; - var $11394 = self.val; - var self = $11393; - switch (self._) { - case 'Parser.State.new': - var $11396 = self.err; - var $11397 = self.nam; - var $11398 = self.ini; - var $11399 = self.idx; - var $11400 = self.str; - var $11401 = ((console.log(("FALTANDO " + $11400)), (_$32 => { - var $11402 = ((console.log(("VALUE " + $11397)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11386, $11396), $11397, $11398, $11399, $11400); - var _term$35 = Kind$Term$ref$("List.cons"); - var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); - var _term$37 = Kind$Term$app$(_term$36, _head$1); - var _term$38 = Kind$Term$app$(_term$37, $11394); - var $11403 = Parser$Reply$value$(_reply$pst$34, _term$38); - return $11403; - })())); - return $11402; - })())); - var $11395 = $11401; - break; - }; - var $11387 = $11395; - break; - }; - var $11385 = $11387; - break; - }; - return $11385; - })())); - return $11384; - })())); - var $11377 = $11383; - break; - }; - var $11370 = $11377; - break; - }; - var $11368 = $11370; - break; - }; - return $11368; - }; - const Kind$Parser$cons = x0 => x1 => Kind$Parser$cons$(x0, x1); - - function Kind$Parser$string_concat$(_str0$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11405 = self.err; - var _reply$8 = Kind$Parser$text$("|", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11407 = self.err; - var self = $11405; - switch (self._) { - case 'Maybe.some': - var $11409 = self.value; - var $11410 = Parser$Reply$error$(Parser$Error$combine$($11409, $11407)); - var $11408 = $11410; - break; - case 'Maybe.none': - var $11411 = Parser$Reply$error$($11407); - var $11408 = $11411; - break; - }; - var $11406 = $11408; - break; - case 'Parser.Reply.value': - var $11412 = self.pst; - var self = $11412; - switch (self._) { - case 'Parser.State.new': - var $11414 = self.err; - var $11415 = self.nam; - var $11416 = self.ini; - var $11417 = self.idx; - var $11418 = self.str; - var $11419 = ((console.log(("FALTANDO " + $11418)), (_$16 => { - var $11420 = ((console.log(("VALUE " + $11415)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11405, $11414), $11415, $11416, $11417, $11418); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11422 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11424 = self.err; - var self = $11422; - switch (self._) { - case 'Maybe.some': - var $11426 = self.value; - var $11427 = Parser$Reply$error$(Parser$Error$combine$($11426, $11424)); - var $11425 = $11427; - break; - case 'Maybe.none': - var $11428 = Parser$Reply$error$($11424); - var $11425 = $11428; - break; - }; - var $11423 = $11425; - break; - case 'Parser.Reply.value': - var $11429 = self.pst; - var $11430 = self.val; - var self = $11429; - switch (self._) { - case 'Parser.State.new': - var $11432 = self.err; - var $11433 = self.nam; - var $11434 = self.ini; - var $11435 = self.idx; - var $11436 = self.str; - var $11437 = ((console.log(("FALTANDO " + $11436)), (_$32 => { - var $11438 = ((console.log(("VALUE " + $11433)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11422, $11432), $11433, $11434, $11435, $11436); - var _term$35 = Kind$Term$ref$("String.concat"); - var _term$36 = Kind$Term$app$(_term$35, _str0$1); - var _term$37 = Kind$Term$app$(_term$36, $11430); - var $11439 = Parser$Reply$value$(_reply$pst$34, _term$37); - return $11439; - })())); - return $11438; - })())); - var $11431 = $11437; - break; - }; - var $11423 = $11431; - break; - }; - var $11421 = $11423; - break; - }; - return $11421; - })())); - return $11420; - })())); - var $11413 = $11419; - break; - }; - var $11406 = $11413; - break; - }; - var $11404 = $11406; - break; - }; - return $11404; - }; - const Kind$Parser$string_concat = x0 => x1 => Kind$Parser$string_concat$(x0, x1); - - function Kind$Parser$sigma$(_val0$1) { - var $11440 = Kind$Parser$block("sigma")((_pst$2 => { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11442 = self.err; - var _reply$8 = Kind$Parser$text$("~", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11444 = self.err; - var self = $11442; - switch (self._) { - case 'Maybe.some': - var $11446 = self.value; - var $11447 = Parser$Reply$error$(Parser$Error$combine$($11446, $11444)); - var $11445 = $11447; - break; - case 'Maybe.none': - var $11448 = Parser$Reply$error$($11444); - var $11445 = $11448; - break; - }; - var $11443 = $11445; - break; - case 'Parser.Reply.value': - var $11449 = self.pst; - var self = $11449; - switch (self._) { - case 'Parser.State.new': - var $11451 = self.err; - var $11452 = self.nam; - var $11453 = self.ini; - var $11454 = self.idx; - var $11455 = self.str; - var $11456 = ((console.log(("FALTANDO " + $11455)), (_$16 => { - var $11457 = ((console.log(("VALUE " + $11452)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11442, $11451), $11452, $11453, $11454, $11455); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11459 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11461 = self.err; - var self = $11459; - switch (self._) { - case 'Maybe.some': - var $11463 = self.value; - var $11464 = Parser$Reply$error$(Parser$Error$combine$($11463, $11461)); - var $11462 = $11464; - break; - case 'Maybe.none': - var $11465 = Parser$Reply$error$($11461); - var $11462 = $11465; - break; - }; - var $11460 = $11462; - break; - case 'Parser.Reply.value': - var $11466 = self.pst; - var $11467 = self.val; - var self = $11466; - switch (self._) { - case 'Parser.State.new': - var $11469 = self.err; - var $11470 = self.nam; - var $11471 = self.ini; - var $11472 = self.idx; - var $11473 = self.str; - var $11474 = ((console.log(("FALTANDO " + $11473)), (_$32 => { - var $11475 = ((console.log(("VALUE " + $11470)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11459, $11469), $11470, $11471, $11472, $11473); - var _term$35 = Kind$Term$ref$("Sigma.new"); - var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); - var _term$37 = Kind$Term$app$(_term$36, Kind$Term$hol$(Bits$e)); - var _term$38 = Kind$Term$app$(_term$37, _val0$1); - var _term$39 = Kind$Term$app$(_term$38, $11467); - var $11476 = Parser$Reply$value$(_reply$pst$34, _term$39); - return $11476; - })())); - return $11475; - })())); - var $11468 = $11474; - break; - }; - var $11460 = $11468; - break; - }; - var $11458 = $11460; - break; - }; - return $11458; - })())); - return $11457; - })())); - var $11450 = $11456; - break; - }; - var $11443 = $11450; - break; - }; - var $11441 = $11443; - break; - }; - return $11441; - })); - return $11440; - }; - const Kind$Parser$sigma = x0 => Kind$Parser$sigma$(x0); - - function Kind$Parser$inequality$(_val0$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11478 = self.err; - var _reply$8 = Kind$Parser$text$("!=", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11480 = self.err; - var self = $11478; - switch (self._) { - case 'Maybe.some': - var $11482 = self.value; - var $11483 = Parser$Reply$error$(Parser$Error$combine$($11482, $11480)); - var $11481 = $11483; - break; - case 'Maybe.none': - var $11484 = Parser$Reply$error$($11480); - var $11481 = $11484; - break; - }; - var $11479 = $11481; - break; - case 'Parser.Reply.value': - var $11485 = self.pst; - var self = $11485; - switch (self._) { - case 'Parser.State.new': - var $11487 = self.err; - var $11488 = self.nam; - var $11489 = self.ini; - var $11490 = self.idx; - var $11491 = self.str; - var $11492 = ((console.log(("FALTANDO " + $11491)), (_$16 => { - var $11493 = ((console.log(("VALUE " + $11488)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11478, $11487), $11488, $11489, $11490, $11491); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11495 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11497 = self.err; - var self = $11495; - switch (self._) { - case 'Maybe.some': - var $11499 = self.value; - var $11500 = Parser$Reply$error$(Parser$Error$combine$($11499, $11497)); - var $11498 = $11500; - break; - case 'Maybe.none': - var $11501 = Parser$Reply$error$($11497); - var $11498 = $11501; - break; - }; - var $11496 = $11498; - break; - case 'Parser.Reply.value': - var $11502 = self.pst; - var $11503 = self.val; - var self = $11502; - switch (self._) { - case 'Parser.State.new': - var $11505 = self.err; - var $11506 = self.nam; - var $11507 = self.ini; - var $11508 = self.idx; - var $11509 = self.str; - var $11510 = ((console.log(("FALTANDO " + $11509)), (_$32 => { - var $11511 = ((console.log(("VALUE " + $11506)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11495, $11505), $11506, $11507, $11508, $11509); - var _term$35 = Kind$Term$ref$("Equal"); - var _term$36 = Kind$Term$app$(_term$35, Kind$Term$hol$(Bits$e)); - var _term$37 = Kind$Term$app$(_term$36, _val0$1); - var _term$38 = Kind$Term$app$(_term$37, $11503); - var _term$39 = Kind$Term$app$(Kind$Term$ref$("Not"), _term$38); - var $11512 = Parser$Reply$value$(_reply$pst$34, _term$39); - return $11512; - })())); - return $11511; - })())); - var $11504 = $11510; - break; - }; - var $11496 = $11504; - break; - }; - var $11494 = $11496; - break; - }; - return $11494; - })())); - return $11493; - })())); - var $11486 = $11492; - break; - }; - var $11479 = $11486; - break; - }; - var $11477 = $11479; - break; - }; - return $11477; - }; - const Kind$Parser$inequality = x0 => x1 => Kind$Parser$inequality$(x0, x1); - - function Kind$Parser$rewrite$(_subt$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11514 = self.err; - var _reply$8 = Kind$Parser$text$("::", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11516 = self.err; - var self = $11514; - switch (self._) { - case 'Maybe.some': - var $11518 = self.value; - var $11519 = Parser$Reply$error$(Parser$Error$combine$($11518, $11516)); - var $11517 = $11519; - break; - case 'Maybe.none': - var $11520 = Parser$Reply$error$($11516); - var $11517 = $11520; - break; - }; - var $11515 = $11517; - break; - case 'Parser.Reply.value': - var $11521 = self.pst; - var self = $11521; - switch (self._) { - case 'Parser.State.new': - var $11523 = self.err; - var $11524 = self.nam; - var $11525 = self.ini; - var $11526 = self.idx; - var $11527 = self.str; - var $11528 = ((console.log(("FALTANDO " + $11527)), (_$16 => { - var $11529 = ((console.log(("VALUE " + $11524)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11514, $11523), $11524, $11525, $11526, $11527); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11531 = self.err; - var _reply$24 = Kind$Parser$text$("rewrite", _reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11533 = self.err; - var self = $11531; - switch (self._) { - case 'Maybe.some': - var $11535 = self.value; - var $11536 = Parser$Reply$error$(Parser$Error$combine$($11535, $11533)); - var $11534 = $11536; - break; - case 'Maybe.none': - var $11537 = Parser$Reply$error$($11533); - var $11534 = $11537; - break; - }; - var $11532 = $11534; - break; - case 'Parser.Reply.value': - var $11538 = self.pst; - var self = $11538; - switch (self._) { - case 'Parser.State.new': - var $11540 = self.err; - var $11541 = self.nam; - var $11542 = self.ini; - var $11543 = self.idx; - var $11544 = self.str; - var $11545 = ((console.log(("FALTANDO " + $11544)), (_$32 => { - var $11546 = ((console.log(("VALUE " + $11541)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11531, $11540), $11541, $11542, $11543, $11544); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $11548 = self.err; - var _reply$40 = Kind$Parser$name1$(_reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $11550 = self.err; - var self = $11548; - switch (self._) { - case 'Maybe.some': - var $11552 = self.value; - var $11553 = Parser$Reply$error$(Parser$Error$combine$($11552, $11550)); - var $11551 = $11553; - break; - case 'Maybe.none': - var $11554 = Parser$Reply$error$($11550); - var $11551 = $11554; - break; - }; - var $11549 = $11551; - break; - case 'Parser.Reply.value': - var $11555 = self.pst; - var $11556 = self.val; - var self = $11555; - switch (self._) { - case 'Parser.State.new': - var $11558 = self.err; - var $11559 = self.nam; - var $11560 = self.ini; - var $11561 = self.idx; - var $11562 = self.str; - var $11563 = ((console.log(("FALTANDO " + $11562)), (_$48 => { - var $11564 = ((console.log(("VALUE " + $11559)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11548, $11558), $11559, $11560, $11561, $11562); - var self = _reply$pst$50; - switch (self._) { - case 'Parser.State.new': - var $11566 = self.err; - var _reply$56 = Kind$Parser$text$("in", _reply$pst$50); - var self = _reply$56; - switch (self._) { - case 'Parser.Reply.error': - var $11568 = self.err; - var self = $11566; - switch (self._) { - case 'Maybe.some': - var $11570 = self.value; - var $11571 = Parser$Reply$error$(Parser$Error$combine$($11570, $11568)); - var $11569 = $11571; - break; - case 'Maybe.none': - var $11572 = Parser$Reply$error$($11568); - var $11569 = $11572; - break; - }; - var $11567 = $11569; - break; - case 'Parser.Reply.value': - var $11573 = self.pst; - var self = $11573; - switch (self._) { - case 'Parser.State.new': - var $11575 = self.err; - var $11576 = self.nam; - var $11577 = self.ini; - var $11578 = self.idx; - var $11579 = self.str; - var $11580 = ((console.log(("FALTANDO " + $11579)), (_$64 => { - var $11581 = ((console.log(("VALUE " + $11576)), (_$65 => { - var _reply$pst$66 = Parser$State$new$(Parser$Error$maybe_combine$($11566, $11575), $11576, $11577, $11578, $11579); - var self = _reply$pst$66; - switch (self._) { - case 'Parser.State.new': - var $11583 = self.err; - var _reply$72 = Kind$Parser$term(_reply$pst$66); - var self = _reply$72; - switch (self._) { - case 'Parser.Reply.error': - var $11585 = self.err; - var self = $11583; - switch (self._) { - case 'Maybe.some': - var $11587 = self.value; - var $11588 = Parser$Reply$error$(Parser$Error$combine$($11587, $11585)); - var $11586 = $11588; - break; - case 'Maybe.none': - var $11589 = Parser$Reply$error$($11585); - var $11586 = $11589; - break; - }; - var $11584 = $11586; - break; - case 'Parser.Reply.value': - var $11590 = self.pst; - var $11591 = self.val; - var self = $11590; - switch (self._) { - case 'Parser.State.new': - var $11593 = self.err; - var $11594 = self.nam; - var $11595 = self.ini; - var $11596 = self.idx; - var $11597 = self.str; - var $11598 = ((console.log(("FALTANDO " + $11597)), (_$80 => { - var $11599 = ((console.log(("VALUE " + $11594)), (_$81 => { - var _reply$pst$82 = Parser$State$new$(Parser$Error$maybe_combine$($11583, $11593), $11594, $11595, $11596, $11597); - var self = _reply$pst$82; - switch (self._) { - case 'Parser.State.new': - var $11601 = self.err; - var _reply$88 = Kind$Parser$text$("with", _reply$pst$82); - var self = _reply$88; - switch (self._) { - case 'Parser.Reply.error': - var $11603 = self.err; - var self = $11601; - switch (self._) { - case 'Maybe.some': - var $11605 = self.value; - var $11606 = Parser$Reply$error$(Parser$Error$combine$($11605, $11603)); - var $11604 = $11606; - break; - case 'Maybe.none': - var $11607 = Parser$Reply$error$($11603); - var $11604 = $11607; - break; - }; - var $11602 = $11604; - break; - case 'Parser.Reply.value': - var $11608 = self.pst; - var self = $11608; - switch (self._) { - case 'Parser.State.new': - var $11610 = self.err; - var $11611 = self.nam; - var $11612 = self.ini; - var $11613 = self.idx; - var $11614 = self.str; - var $11615 = ((console.log(("FALTANDO " + $11614)), (_$96 => { - var $11616 = ((console.log(("VALUE " + $11611)), (_$97 => { - var _reply$pst$98 = Parser$State$new$(Parser$Error$maybe_combine$($11601, $11610), $11611, $11612, $11613, $11614); - var self = _reply$pst$98; - switch (self._) { - case 'Parser.State.new': - var $11618 = self.err; - var _reply$104 = Kind$Parser$term(_reply$pst$98); - var self = _reply$104; - switch (self._) { - case 'Parser.Reply.error': - var $11620 = self.err; - var self = $11618; - switch (self._) { - case 'Maybe.some': - var $11622 = self.value; - var $11623 = Parser$Reply$error$(Parser$Error$combine$($11622, $11620)); - var $11621 = $11623; - break; - case 'Maybe.none': - var $11624 = Parser$Reply$error$($11620); - var $11621 = $11624; - break; - }; - var $11619 = $11621; - break; - case 'Parser.Reply.value': - var $11625 = self.pst; - var $11626 = self.val; - var self = $11625; - switch (self._) { - case 'Parser.State.new': - var $11628 = self.err; - var $11629 = self.nam; - var $11630 = self.ini; - var $11631 = self.idx; - var $11632 = self.str; - var $11633 = ((console.log(("FALTANDO " + $11632)), (_$112 => { - var $11634 = ((console.log(("VALUE " + $11629)), (_$113 => { - var _reply$pst$114 = Parser$State$new$(Parser$Error$maybe_combine$($11618, $11628), $11629, $11630, $11631, $11632); - var _term$115 = Kind$Term$ref$("Equal.rewrite"); - var _term$116 = Kind$Term$app$(_term$115, Kind$Term$hol$(Bits$e)); - var _term$117 = Kind$Term$app$(_term$116, Kind$Term$hol$(Bits$e)); - var _term$118 = Kind$Term$app$(_term$117, Kind$Term$hol$(Bits$e)); - var _term$119 = Kind$Term$app$(_term$118, $11626); - var _term$120 = Kind$Term$app$(_term$119, Kind$Term$lam$($11556, (_x$120 => { - var $11636 = $11591; - return $11636; - }))); - var _term$121 = Kind$Term$app$(_term$120, _subt$1); - var $11635 = Parser$Reply$value$(_reply$pst$114, _term$121); - return $11635; - })())); - return $11634; - })())); - var $11627 = $11633; - break; - }; - var $11619 = $11627; - break; - }; - var $11617 = $11619; - break; - }; - return $11617; - })())); - return $11616; - })())); - var $11609 = $11615; - break; - }; - var $11602 = $11609; - break; - }; - var $11600 = $11602; - break; - }; - return $11600; - })())); - return $11599; - })())); - var $11592 = $11598; - break; - }; - var $11584 = $11592; - break; - }; - var $11582 = $11584; - break; - }; - return $11582; - })())); - return $11581; - })())); - var $11574 = $11580; - break; - }; - var $11567 = $11574; - break; - }; - var $11565 = $11567; - break; - }; - return $11565; - })())); - return $11564; - })())); - var $11557 = $11563; - break; - }; - var $11549 = $11557; - break; - }; - var $11547 = $11549; - break; - }; - return $11547; - })())); - return $11546; - })())); - var $11539 = $11545; - break; - }; - var $11532 = $11539; - break; - }; - var $11530 = $11532; - break; - }; - return $11530; - })())); - return $11529; - })())); - var $11522 = $11528; - break; - }; - var $11515 = $11522; - break; - }; - var $11513 = $11515; - break; - }; - return $11513; - }; - const Kind$Parser$rewrite = x0 => x1 => Kind$Parser$rewrite$(x0, x1); - - function Kind$Parser$annotation$(_term$1, _pst$2) { - var self = _pst$2; - switch (self._) { - case 'Parser.State.new': - var $11638 = self.err; - var _reply$8 = Kind$Parser$text$("::", _pst$2); - var self = _reply$8; - switch (self._) { - case 'Parser.Reply.error': - var $11640 = self.err; - var self = $11638; - switch (self._) { - case 'Maybe.some': - var $11642 = self.value; - var $11643 = Parser$Reply$error$(Parser$Error$combine$($11642, $11640)); - var $11641 = $11643; - break; - case 'Maybe.none': - var $11644 = Parser$Reply$error$($11640); - var $11641 = $11644; - break; - }; - var $11639 = $11641; - break; - case 'Parser.Reply.value': - var $11645 = self.pst; - var self = $11645; - switch (self._) { - case 'Parser.State.new': - var $11647 = self.err; - var $11648 = self.nam; - var $11649 = self.ini; - var $11650 = self.idx; - var $11651 = self.str; - var $11652 = ((console.log(("FALTANDO " + $11651)), (_$16 => { - var $11653 = ((console.log(("VALUE " + $11648)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11638, $11647), $11648, $11649, $11650, $11651); - var self = _reply$pst$18; - switch (self._) { - case 'Parser.State.new': - var $11655 = self.err; - var _reply$24 = Kind$Parser$term(_reply$pst$18); - var self = _reply$24; - switch (self._) { - case 'Parser.Reply.error': - var $11657 = self.err; - var self = $11655; - switch (self._) { - case 'Maybe.some': - var $11659 = self.value; - var $11660 = Parser$Reply$error$(Parser$Error$combine$($11659, $11657)); - var $11658 = $11660; - break; - case 'Maybe.none': - var $11661 = Parser$Reply$error$($11657); - var $11658 = $11661; - break; - }; - var $11656 = $11658; - break; - case 'Parser.Reply.value': - var $11662 = self.pst; - var $11663 = self.val; - var self = $11662; - switch (self._) { - case 'Parser.State.new': - var $11665 = self.err; - var $11666 = self.nam; - var $11667 = self.ini; - var $11668 = self.idx; - var $11669 = self.str; - var $11670 = ((console.log(("FALTANDO " + $11669)), (_$32 => { - var $11671 = ((console.log(("VALUE " + $11666)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11655, $11665), $11666, $11667, $11668, $11669); - var $11672 = Parser$Reply$value$(_reply$pst$34, Kind$Term$ann$(Bool$false, _term$1, $11663)); - return $11672; - })())); - return $11671; - })())); - var $11664 = $11670; - break; - }; - var $11656 = $11664; - break; - }; - var $11654 = $11656; - break; - }; - return $11654; - })())); - return $11653; - })())); - var $11646 = $11652; - break; - }; - var $11639 = $11646; - break; - }; - var $11637 = $11639; - break; - }; - return $11637; }; const Kind$Parser$annotation = x0 => x1 => Kind$Parser$annotation$(x0, x1); @@ -36523,54 +32571,48 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $11674 = self.err; + var $10427 = self.err; var _reply$8 = Kind$Parser$text_now$("!")(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $11676 = self.err; - var self = $11674; + var $10429 = self.err; + var self = $10427; switch (self._) { case 'Maybe.some': - var $11678 = self.value; - var $11679 = Parser$Reply$error$(Parser$Error$combine$($11678, $11676)); - var $11677 = $11679; + var $10431 = self.value; + var $10432 = Parser$Reply$error$(Parser$Error$combine$($10431, $10429)); + var $10430 = $10432; break; case 'Maybe.none': - var $11680 = Parser$Reply$error$($11676); - var $11677 = $11680; + var $10433 = Parser$Reply$error$($10429); + var $10430 = $10433; break; }; - var $11675 = $11677; + var $10428 = $10430; break; case 'Parser.Reply.value': - var $11681 = self.pst; - var self = $11681; + var $10434 = self.pst; + var self = $10434; switch (self._) { case 'Parser.State.new': - var $11683 = self.err; - var $11684 = self.nam; - var $11685 = self.ini; - var $11686 = self.idx; - var $11687 = self.str; - var $11688 = ((console.log(("FALTANDO " + $11687)), (_$16 => { - var $11689 = ((console.log(("VALUE " + $11684)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11674, $11683), $11684, $11685, $11686, $11687); - var $11690 = Parser$Reply$value$(_reply$pst$18, Kind$Term$app$(_term$1, Kind$Term$hol$(Bits$e))); - return $11690; - })())); - return $11689; - })())); - var $11682 = $11688; + var $10436 = self.err; + var $10437 = self.nam; + var $10438 = self.ini; + var $10439 = self.idx; + var $10440 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10427, $10436), $10437, $10438, $10439, $10440); + var $10441 = Parser$Reply$value$(_reply$pst$16, Kind$Term$app$(_term$1, Kind$Term$hol$(Bits$e))); + var $10435 = $10441; break; }; - var $11675 = $11682; + var $10428 = $10435; break; }; - var $11673 = $11675; + var $10426 = $10428; break; }; - return $11673; + return $10426; }; const Kind$Parser$application$hole = x0 => x1 => Kind$Parser$application$hole$(x0, x1); @@ -36587,35 +32629,35 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $11691 = self.err; - var $11692 = self.nam; - var $11693 = self.ini; - var $11694 = self.idx; - var $11695 = self.str; + var $10442 = self.err; + var $10443 = self.nam; + var $10444 = self.ini; + var $10445 = self.idx; + var $10446 = self.str; var _suffix_parser$8 = Parser$choice(List$cons$(Kind$Parser$application(_term$1), List$cons$(Kind$Parser$application$erased(_term$1), List$cons$(Kind$Parser$list_set(_term$1), List$cons$(Kind$Parser$list_get(_term$1), List$cons$(Kind$Parser$map_set(_term$1), List$cons$(Kind$Parser$map_get(_term$1), List$cons$(Kind$Parser$field_set(_term$1), List$cons$(Kind$Parser$field_get(_term$1), List$cons$(Kind$Parser$arrow(_term$1), List$cons$(Kind$Parser$concat(_term$1), List$cons$(Kind$Parser$equality(_term$1), List$cons$(Kind$Parser$add(_term$1), List$cons$(Kind$Parser$sub(_term$1), List$cons$(Kind$Parser$mul(_term$1), List$cons$(Kind$Parser$div(_term$1), List$cons$(Kind$Parser$mod(_term$1), List$cons$(Kind$Parser$ltn(_term$1), List$cons$(Kind$Parser$lte(_term$1), List$cons$(Kind$Parser$eql(_term$1), List$cons$(Kind$Parser$gte(_term$1), List$cons$(Kind$Parser$gtn(_term$1), List$cons$(Kind$Parser$and(_term$1), List$cons$(Kind$Parser$or(_term$1), List$cons$(Kind$Parser$composition(_term$1), List$cons$(Kind$Parser$default(_term$1), List$cons$(Kind$Parser$cons(_term$1), List$cons$(Kind$Parser$string_concat(_term$1), List$cons$(Kind$Parser$sigma$(_term$1), List$cons$(Kind$Parser$inequality(_term$1), List$cons$(Kind$Parser$rewrite(_term$1), List$cons$(Kind$Parser$annotation(_term$1), List$cons$(Kind$Parser$application$hole(_term$1), List$nil))))))))))))))))))))))))))))))))); var self = _suffix_parser$8(_pst$2); switch (self._) { case 'Parser.Reply.error': - var $11697 = self.err; - var self = $11697; + var $10448 = self.err; + var self = $10448; switch (self._) { case 'Parser.Error.new': - var _err$14 = Parser$Error$maybe_combine$($11691, Maybe$some$($11697)); - var _pst$15 = Parser$State$new$(_err$14, $11692, $11693, $11694, $11695); - var $11699 = Parser$Reply$value$(_pst$15, _term$1); - var $11698 = $11699; + var _err$14 = Parser$Error$maybe_combine$($10442, Maybe$some$($10448)); + var _pst$15 = Parser$State$new$(_err$14, $10443, $10444, $10445, $10446); + var $10450 = Parser$Reply$value$(_pst$15, _term$1); + var $10449 = $10450; break; }; - var $11696 = $11698; + var $10447 = $10449; break; case 'Parser.Reply.value': - var $11700 = self.pst; - var $11701 = self.val; - var $11702 = Kind$Parser$term$suffix$($11701, $11700); - var $11696 = $11702; + var $10451 = self.pst; + var $10452 = self.val; + var $10453 = Kind$Parser$term$suffix$($10452, $10451); + var $10447 = $10453; break; }; - return $11696; + return $10447; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -36627,480 +32669,438 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $11704 = self.err; + var $10455 = self.err; var _reply$7 = Parser$choice$(List$cons$(Kind$Parser$dom, List$cons$(Kind$Parser$forall, List$cons$(Kind$Parser$lambda, List$cons$(Kind$Parser$lambda$erased, List$cons$(Kind$Parser$parenthesis, List$cons$(Kind$Parser$letforrange$u32$((_x$7 => { - var $11706 = Kind$Parser$term; - return $11706; + var $10457 = Kind$Parser$term; + return $10457; })), List$cons$(Kind$Parser$letforrange$u32$with$((_x$7 => { - var $11707 = Kind$Parser$term; - return $11707; + var $10458 = Kind$Parser$term; + return $10458; })), List$cons$(Kind$Parser$letforrange$i32$((_x$7 => { - var $11708 = Kind$Parser$term; - return $11708; + var $10459 = Kind$Parser$term; + return $10459; })), List$cons$(Kind$Parser$letforrange$i32$with$((_x$7 => { - var $11709 = Kind$Parser$term; - return $11709; + var $10460 = Kind$Parser$term; + return $10460; })), List$cons$(Kind$Parser$letforrange$nat$((_x$7 => { - var $11710 = Kind$Parser$term; - return $11710; + var $10461 = Kind$Parser$term; + return $10461; })), List$cons$(Kind$Parser$letforrange$nat$with$((_x$7 => { - var $11711 = Kind$Parser$term; - return $11711; + var $10462 = Kind$Parser$term; + return $10462; })), List$cons$(Kind$Parser$letforin$((_x$7 => { - var $11712 = Kind$Parser$term; - return $11712; + var $10463 = Kind$Parser$term; + return $10463; })), List$cons$(Kind$Parser$letforin$with$((_x$7 => { - var $11713 = Kind$Parser$term; - return $11713; + var $10464 = Kind$Parser$term; + return $10464; })), List$cons$(Kind$Parser$letforinmap$((_x$7 => { - var $11714 = Kind$Parser$term; - return $11714; + var $10465 = Kind$Parser$term; + return $10465; })), List$cons$(Kind$Parser$letforinmap$with$((_x$7 => { - var $11715 = Kind$Parser$term; - return $11715; + var $10466 = Kind$Parser$term; + return $10466; })), List$cons$(Kind$Parser$letwhile$((_x$7 => { - var $11716 = Kind$Parser$term; - return $11716; + var $10467 = Kind$Parser$term; + return $10467; })), List$cons$(Kind$Parser$letwhile$with$((_x$7 => { - var $11717 = Kind$Parser$term; - return $11717; + var $10468 = Kind$Parser$term; + return $10468; })), List$cons$(Kind$Parser$let$abort$((_x$7 => { - var $11718 = Kind$Parser$term; - return $11718; + var $10469 = Kind$Parser$term; + return $10469; })), List$cons$(Kind$Parser$let$((_x$7 => { - var $11719 = Kind$Parser$term; - return $11719; + var $10470 = Kind$Parser$term; + return $10470; })), List$cons$(Kind$Parser$let$omit$((_x$7 => { - var $11720 = Kind$Parser$term; - return $11720; + var $10471 = Kind$Parser$term; + return $10471; })), List$cons$(Kind$Parser$getwhile$((_x$7 => { - var $11721 = Kind$Parser$term; - return $11721; + var $10472 = Kind$Parser$term; + return $10472; })), List$cons$(Kind$Parser$getwhile$with((_x$7 => { - var $11722 = Kind$Parser$term; - return $11722; + var $10473 = Kind$Parser$term; + return $10473; })), List$cons$(Kind$Parser$get$((_x$7 => { - var $11723 = Kind$Parser$term; - return $11723; + var $10474 = Kind$Parser$term; + return $10474; })), List$cons$(Kind$Parser$get$omit$((_x$7 => { - var $11724 = Kind$Parser$term; - return $11724; + var $10475 = Kind$Parser$term; + return $10475; })), List$cons$(Kind$Parser$def$((_x$7 => { - var $11725 = Kind$Parser$term; - return $11725; + var $10476 = Kind$Parser$term; + return $10476; })), List$cons$(Kind$Parser$use$abort$((_x$7 => { - var $11726 = Kind$Parser$term; - return $11726; + var $10477 = Kind$Parser$term; + return $10477; })), List$cons$(Kind$Parser$use$((_x$7 => { - var $11727 = Kind$Parser$term; - return $11727; + var $10478 = Kind$Parser$term; + return $10478; })), List$cons$(Kind$Parser$goal_rewrite, List$cons$(Kind$Parser$if, List$cons$(Kind$Parser$char, List$cons$(Kind$Parser$string$(34), List$cons$(Kind$Parser$string$(96), List$cons$(Kind$Parser$new, List$cons$(Kind$Parser$sigma$type, List$cons$(Kind$Parser$some, List$cons$(Kind$Parser$not, List$cons$(Kind$Parser$left, List$cons$(Kind$Parser$right, List$cons$(Kind$Parser$apply, List$cons$(Kind$Parser$chain, List$cons$(Kind$Parser$mirror, List$cons$(Kind$Parser$comprehension, List$cons$(Kind$Parser$comprehension_range, List$cons$(Kind$Parser$list, List$cons$(Kind$Parser$map, List$cons$(Kind$Parser$log$((_x$7 => { - var $11728 = Kind$Parser$term; - return $11728; + var $10479 = Kind$Parser$term; + return $10479; })), List$cons$(Kind$Parser$do, List$cons$(Kind$Parser$case, List$cons$(Kind$Parser$open$((_x$7 => { - var $11729 = Kind$Parser$term; - return $11729; + var $10480 = Kind$Parser$term; + return $10480; })), List$cons$(Kind$Parser$without, List$cons$(Kind$Parser$switch, List$cons$(Kind$Parser$goal, List$cons$(Kind$Parser$hole, List$cons$(Kind$Parser$float$64, List$cons$(Kind$Parser$float$32, List$cons$(Kind$Parser$machine_integer$signed$(256n), List$cons$(Kind$Parser$machine_integer$signed$(128n), List$cons$(Kind$Parser$machine_integer$signed$(64n), List$cons$(Kind$Parser$machine_integer$signed$(32n), List$cons$(Kind$Parser$machine_integer$signed$(16n), List$cons$(Kind$Parser$machine_integer$signed$(8n), List$cons$(Kind$Parser$machine_integer$unsigned$(256n), List$cons$(Kind$Parser$machine_integer$unsigned$(128n), List$cons$(Kind$Parser$machine_integer$unsigned$(64n), List$cons$(Kind$Parser$machine_integer$unsigned$(32n), List$cons$(Kind$Parser$machine_integer$unsigned$(16n), List$cons$(Kind$Parser$machine_integer$unsigned$(8n), List$cons$(Kind$Parser$u64, List$cons$(Kind$Parser$u32, List$cons$(Kind$Parser$u16, List$cons$(Kind$Parser$u8, List$cons$(Kind$Parser$num, List$cons$(Kind$Parser$reference, List$cons$((_pst$7 => { var self = _pst$7; switch (self._) { case 'Parser.State.new': - var $11731 = self.err; + var $10482 = self.err; var _reply$13 = Kind$Parser$spaces(_pst$7); var self = _reply$13; switch (self._) { case 'Parser.Reply.error': - var $11733 = self.err; - var self = $11731; + var $10484 = self.err; + var self = $10482; switch (self._) { case 'Maybe.some': - var $11735 = self.value; - var $11736 = Parser$Reply$error$(Parser$Error$combine$($11735, $11733)); - var $11734 = $11736; + var $10486 = self.value; + var $10487 = Parser$Reply$error$(Parser$Error$combine$($10486, $10484)); + var $10485 = $10487; break; case 'Maybe.none': - var $11737 = Parser$Reply$error$($11733); - var $11734 = $11737; + var $10488 = Parser$Reply$error$($10484); + var $10485 = $10488; break; }; - var $11732 = $11734; + var $10483 = $10485; break; case 'Parser.Reply.value': - var $11738 = self.pst; - var self = $11738; + var $10489 = self.pst; + var self = $10489; switch (self._) { case 'Parser.State.new': - var $11740 = self.err; - var $11741 = self.nam; - var $11742 = self.ini; - var $11743 = self.idx; - var $11744 = self.str; - var $11745 = ((console.log(("FALTANDO " + $11744)), (_$21 => { - var $11746 = ((console.log(("VALUE " + $11741)), (_$22 => { - var _reply$pst$23 = Parser$State$new$(Parser$Error$maybe_combine$($11731, $11740), $11741, $11742, $11743, $11744); - var $11747 = Parser$fail$("Expected a term.", _reply$pst$23); - return $11747; - })())); - return $11746; - })())); - var $11739 = $11745; + var $10491 = self.err; + var $10492 = self.nam; + var $10493 = self.ini; + var $10494 = self.idx; + var $10495 = self.str; + var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($10482, $10491), $10492, $10493, $10494, $10495); + var $10496 = Parser$fail$("Expected a term.", _reply$pst$21); + var $10490 = $10496; break; }; - var $11732 = $11739; + var $10483 = $10490; break; }; - var $11730 = $11732; + var $10481 = $10483; break; }; - return $11730; + return $10481; }), List$nil)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))), _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $11748 = self.err; - var self = $11704; + var $10497 = self.err; + var self = $10455; switch (self._) { case 'Maybe.some': - var $11750 = self.value; - var $11751 = Parser$Reply$error$(Parser$Error$combine$($11750, $11748)); - var $11749 = $11751; + var $10499 = self.value; + var $10500 = Parser$Reply$error$(Parser$Error$combine$($10499, $10497)); + var $10498 = $10500; break; case 'Maybe.none': - var $11752 = Parser$Reply$error$($11748); - var $11749 = $11752; + var $10501 = Parser$Reply$error$($10497); + var $10498 = $10501; break; }; - var $11705 = $11749; + var $10456 = $10498; break; case 'Parser.Reply.value': - var $11753 = self.pst; - var $11754 = self.val; - var self = $11753; + var $10502 = self.pst; + var $10503 = self.val; + var self = $10502; switch (self._) { case 'Parser.State.new': - var $11756 = self.err; - var $11757 = self.nam; - var $11758 = self.ini; - var $11759 = self.idx; - var $11760 = self.str; - var $11761 = ((console.log(("FALTANDO " + $11760)), (_$15 => { - var $11762 = ((console.log(("VALUE " + $11757)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($11704, $11756), $11757, $11758, $11759, $11760); - var self = _reply$pst$17; + var $10505 = self.err; + var $10506 = self.nam; + var $10507 = self.ini; + var $10508 = self.idx; + var $10509 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($10455, $10505), $10506, $10507, $10508, $10509); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $10511 = self.err; + var _reply$21 = Kind$Parser$term$suffix$($10503, _reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $11764 = self.err; - var _reply$23 = Kind$Parser$term$suffix$($11754, _reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $10513 = self.err; + var self = $10511; switch (self._) { - case 'Parser.Reply.error': - var $11766 = self.err; - var self = $11764; - switch (self._) { - case 'Maybe.some': - var $11768 = self.value; - var $11769 = Parser$Reply$error$(Parser$Error$combine$($11768, $11766)); - var $11767 = $11769; - break; - case 'Maybe.none': - var $11770 = Parser$Reply$error$($11766); - var $11767 = $11770; - break; - }; - var $11765 = $11767; + case 'Maybe.some': + var $10515 = self.value; + var $10516 = Parser$Reply$error$(Parser$Error$combine$($10515, $10513)); + var $10514 = $10516; break; - case 'Parser.Reply.value': - var $11771 = self.pst; - var $11772 = self.val; - var self = $11771; - switch (self._) { - case 'Parser.State.new': - var $11774 = self.err; - var $11775 = self.nam; - var $11776 = self.ini; - var $11777 = self.idx; - var $11778 = self.str; - var $11779 = ((console.log(("FALTANDO " + $11778)), (_$31 => { - var $11780 = ((console.log(("VALUE " + $11775)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($11764, $11774), $11775, $11776, $11777, $11778); - var $11781 = Parser$Reply$value$(_reply$pst$33, $11772); - return $11781; - })())); - return $11780; - })())); - var $11773 = $11779; - break; - }; - var $11765 = $11773; + case 'Maybe.none': + var $10517 = Parser$Reply$error$($10513); + var $10514 = $10517; break; }; - var $11763 = $11765; + var $10512 = $10514; + break; + case 'Parser.Reply.value': + var $10518 = self.pst; + var $10519 = self.val; + var self = $10518; + switch (self._) { + case 'Parser.State.new': + var $10521 = self.err; + var $10522 = self.nam; + var $10523 = self.ini; + var $10524 = self.idx; + var $10525 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($10511, $10521), $10522, $10523, $10524, $10525); + var $10526 = Parser$Reply$value$(_reply$pst$29, $10519); + var $10520 = $10526; + break; + }; + var $10512 = $10520; break; }; - return $11763; - })())); - return $11762; - })())); - var $11755 = $11761; + var $10510 = $10512; + break; + }; + var $10504 = $10510; break; }; - var $11705 = $11755; + var $10456 = $10504; break; }; - var $11703 = $11705; + var $10454 = $10456; break; }; - return $11703; + return $10454; })); function Kind$Parser$name_term$(_sep$1, _pst$2) { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $11783 = self.err; + var $10528 = self.err; var _reply$8 = Kind$Parser$name$(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $11785 = self.err; - var self = $11783; + var $10530 = self.err; + var self = $10528; switch (self._) { case 'Maybe.some': - var $11787 = self.value; - var $11788 = Parser$Reply$error$(Parser$Error$combine$($11787, $11785)); - var $11786 = $11788; + var $10532 = self.value; + var $10533 = Parser$Reply$error$(Parser$Error$combine$($10532, $10530)); + var $10531 = $10533; break; case 'Maybe.none': - var $11789 = Parser$Reply$error$($11785); - var $11786 = $11789; + var $10534 = Parser$Reply$error$($10530); + var $10531 = $10534; break; }; - var $11784 = $11786; + var $10529 = $10531; break; case 'Parser.Reply.value': - var $11790 = self.pst; - var $11791 = self.val; - var self = $11790; + var $10535 = self.pst; + var $10536 = self.val; + var self = $10535; switch (self._) { case 'Parser.State.new': - var $11793 = self.err; - var $11794 = self.nam; - var $11795 = self.ini; - var $11796 = self.idx; - var $11797 = self.str; - var $11798 = ((console.log(("FALTANDO " + $11797)), (_$16 => { - var $11799 = ((console.log(("VALUE " + $11794)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11783, $11793), $11794, $11795, $11796, $11797); - var self = _reply$pst$18; + var $10538 = self.err; + var $10539 = self.nam; + var $10540 = self.ini; + var $10541 = self.idx; + var $10542 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10528, $10538), $10539, $10540, $10541, $10542); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10544 = self.err; + var _reply$22 = Kind$Parser$text$(_sep$1, _reply$pst$16); + var self = _reply$22; switch (self._) { - case 'Parser.State.new': - var $11801 = self.err; - var _reply$24 = Kind$Parser$text$(_sep$1, _reply$pst$18); - var self = _reply$24; + case 'Parser.Reply.error': + var $10546 = self.err; + var self = $10544; switch (self._) { - case 'Parser.Reply.error': - var $11803 = self.err; - var self = $11801; - switch (self._) { - case 'Maybe.some': - var $11805 = self.value; - var $11806 = Parser$Reply$error$(Parser$Error$combine$($11805, $11803)); - var $11804 = $11806; - break; - case 'Maybe.none': - var $11807 = Parser$Reply$error$($11803); - var $11804 = $11807; - break; - }; - var $11802 = $11804; + case 'Maybe.some': + var $10548 = self.value; + var $10549 = Parser$Reply$error$(Parser$Error$combine$($10548, $10546)); + var $10547 = $10549; break; - case 'Parser.Reply.value': - var $11808 = self.pst; - var self = $11808; - switch (self._) { - case 'Parser.State.new': - var $11810 = self.err; - var $11811 = self.nam; - var $11812 = self.ini; - var $11813 = self.idx; - var $11814 = self.str; - var $11815 = ((console.log(("FALTANDO " + $11814)), (_$32 => { - var $11816 = ((console.log(("VALUE " + $11811)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($11801, $11810), $11811, $11812, $11813, $11814); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $11818 = self.err; - var _reply$40 = Kind$Parser$term(_reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $11820 = self.err; - var self = $11818; - switch (self._) { - case 'Maybe.some': - var $11822 = self.value; - var $11823 = Parser$Reply$error$(Parser$Error$combine$($11822, $11820)); - var $11821 = $11823; - break; - case 'Maybe.none': - var $11824 = Parser$Reply$error$($11820); - var $11821 = $11824; - break; - }; - var $11819 = $11821; - break; - case 'Parser.Reply.value': - var $11825 = self.pst; - var $11826 = self.val; - var self = $11825; - switch (self._) { - case 'Parser.State.new': - var $11828 = self.err; - var $11829 = self.nam; - var $11830 = self.ini; - var $11831 = self.idx; - var $11832 = self.str; - var $11833 = ((console.log(("FALTANDO " + $11832)), (_$48 => { - var $11834 = ((console.log(("VALUE " + $11829)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($11818, $11828), $11829, $11830, $11831, $11832); - var $11835 = Parser$Reply$value$(_reply$pst$50, Pair$new$($11791, $11826)); - return $11835; - })())); - return $11834; - })())); - var $11827 = $11833; - break; - }; - var $11819 = $11827; - break; - }; - var $11817 = $11819; - break; - }; - return $11817; - })())); - return $11816; - })())); - var $11809 = $11815; - break; - }; - var $11802 = $11809; + case 'Maybe.none': + var $10550 = Parser$Reply$error$($10546); + var $10547 = $10550; break; }; - var $11800 = $11802; + var $10545 = $10547; + break; + case 'Parser.Reply.value': + var $10551 = self.pst; + var self = $10551; + switch (self._) { + case 'Parser.State.new': + var $10553 = self.err; + var $10554 = self.nam; + var $10555 = self.ini; + var $10556 = self.idx; + var $10557 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10544, $10553), $10554, $10555, $10556, $10557); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $10559 = self.err; + var _reply$36 = Kind$Parser$term(_reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $10561 = self.err; + var self = $10559; + switch (self._) { + case 'Maybe.some': + var $10563 = self.value; + var $10564 = Parser$Reply$error$(Parser$Error$combine$($10563, $10561)); + var $10562 = $10564; + break; + case 'Maybe.none': + var $10565 = Parser$Reply$error$($10561); + var $10562 = $10565; + break; + }; + var $10560 = $10562; + break; + case 'Parser.Reply.value': + var $10566 = self.pst; + var $10567 = self.val; + var self = $10566; + switch (self._) { + case 'Parser.State.new': + var $10569 = self.err; + var $10570 = self.nam; + var $10571 = self.ini; + var $10572 = self.idx; + var $10573 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($10559, $10569), $10570, $10571, $10572, $10573); + var $10574 = Parser$Reply$value$(_reply$pst$44, Pair$new$($10536, $10567)); + var $10568 = $10574; + break; + }; + var $10560 = $10568; + break; + }; + var $10558 = $10560; + break; + }; + var $10552 = $10558; + break; + }; + var $10545 = $10552; break; }; - return $11800; - })())); - return $11799; - })())); - var $11792 = $11798; + var $10543 = $10545; + break; + }; + var $10537 = $10543; break; }; - var $11784 = $11792; + var $10529 = $10537; break; }; - var $11782 = $11784; + var $10527 = $10529; break; }; - return $11782; + return $10527; }; const Kind$Parser$name_term = x0 => x1 => Kind$Parser$name_term$(x0, x1); function Kind$Binder$new$(_eras$1, _name$2, _term$3) { - var $11836 = ({ + var $10575 = ({ _: 'Kind.Binder.new', 'eras': _eras$1, 'name': _name$2, 'term': _term$3 }); - return $11836; + return $10575; }; const Kind$Binder$new = x0 => x1 => x2 => Kind$Binder$new$(x0, x1, x2); function Kind$Parser$binder$homo$(_sep$1, _eras$2) { var self = _eras$2; if (self) { - var $11838 = "<"; - var _open$3 = $11838; + var $10577 = "<"; + var _open$3 = $10577; } else { - var $11839 = "("; - var _open$3 = $11839; + var $10578 = "("; + var _open$3 = $10578; }; var self = _eras$2; if (self) { - var $11840 = ">"; - var _clos$4 = $11840; + var $10579 = ">"; + var _clos$4 = $10579; } else { - var $11841 = ")"; - var _clos$4 = $11841; + var $10580 = ")"; + var _clos$4 = $10580; }; - var $11837 = (_pst$5 => { + var $10576 = (_pst$5 => { var self = _pst$5; switch (self._) { case 'Parser.State.new': - var $11843 = self.err; + var $10582 = self.err; var _reply$11 = Kind$Parser$items1$(_open$3, Kind$Parser$name_term(_sep$1), _clos$4)(_pst$5); var self = _reply$11; switch (self._) { case 'Parser.Reply.error': - var $11845 = self.err; - var self = $11843; + var $10584 = self.err; + var self = $10582; switch (self._) { case 'Maybe.some': - var $11847 = self.value; - var $11848 = Parser$Reply$error$(Parser$Error$combine$($11847, $11845)); - var $11846 = $11848; + var $10586 = self.value; + var $10587 = Parser$Reply$error$(Parser$Error$combine$($10586, $10584)); + var $10585 = $10587; break; case 'Maybe.none': - var $11849 = Parser$Reply$error$($11845); - var $11846 = $11849; + var $10588 = Parser$Reply$error$($10584); + var $10585 = $10588; break; }; - var $11844 = $11846; + var $10583 = $10585; break; case 'Parser.Reply.value': - var $11850 = self.pst; - var $11851 = self.val; - var self = $11850; + var $10589 = self.pst; + var $10590 = self.val; + var self = $10589; switch (self._) { case 'Parser.State.new': - var $11853 = self.err; - var $11854 = self.nam; - var $11855 = self.ini; - var $11856 = self.idx; - var $11857 = self.str; - var $11858 = ((console.log(("FALTANDO " + $11857)), (_$19 => { - var $11859 = ((console.log(("VALUE " + $11854)), (_$20 => { - var _reply$pst$21 = Parser$State$new$(Parser$Error$maybe_combine$($11843, $11853), $11854, $11855, $11856, $11857); - var $11860 = Parser$Reply$value$(_reply$pst$21, List$mapped$($11851, (_pair$22 => { - var self = _pair$22; - switch (self._) { - case 'Pair.new': - var $11862 = self.fst; - var $11863 = self.snd; - var $11864 = Kind$Binder$new$(_eras$2, $11862, $11863); - var $11861 = $11864; - break; - }; - return $11861; - }))); - return $11860; - })())); - return $11859; - })())); - var $11852 = $11858; + var $10592 = self.err; + var $10593 = self.nam; + var $10594 = self.ini; + var $10595 = self.idx; + var $10596 = self.str; + var _reply$pst$19 = Parser$State$new$(Parser$Error$maybe_combine$($10582, $10592), $10593, $10594, $10595, $10596); + var $10597 = Parser$Reply$value$(_reply$pst$19, List$mapped$($10590, (_pair$20 => { + var self = _pair$20; + switch (self._) { + case 'Pair.new': + var $10599 = self.fst; + var $10600 = self.snd; + var $10601 = Kind$Binder$new$(_eras$2, $10599, $10600); + var $10598 = $10601; + break; + }; + return $10598; + }))); + var $10591 = $10597; break; }; - var $11844 = $11852; + var $10583 = $10591; break; }; - var $11842 = $11844; + var $10581 = $10583; break; }; - return $11842; + return $10581; }); - return $11837; + return $10576; }; const Kind$Parser$binder$homo = x0 => x1 => Kind$Parser$binder$homo$(x0, x1); @@ -37108,17 +33108,17 @@ module.exports = (function() { var self = _as$2; switch (self._) { case 'List.cons': - var $11866 = self.head; - var $11867 = self.tail; - var $11868 = List$cons$($11866, List$concat$($11867, _bs$3)); - var $11865 = $11868; + var $10603 = self.head; + var $10604 = self.tail; + var $10605 = List$cons$($10603, List$concat$($10604, _bs$3)); + var $10602 = $10605; break; case 'List.nil': - var $11869 = _bs$3; - var $11865 = $11869; + var $10606 = _bs$3; + var $10602 = $10606; break; }; - return $11865; + return $10602; }; const List$concat = x0 => x1 => List$concat$(x0, x1); @@ -37126,17 +33126,17 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $11871 = self.head; - var $11872 = self.tail; - var $11873 = List$concat$($11871, List$flatten$($11872)); - var $11870 = $11873; + var $10608 = self.head; + var $10609 = self.tail; + var $10610 = List$concat$($10608, List$flatten$($10609)); + var $10607 = $10610; break; case 'List.nil': - var $11874 = List$nil; - var $11870 = $11874; + var $10611 = List$nil; + var $10607 = $10611; break; }; - return $11870; + return $10607; }; const List$flatten = x0 => List$flatten$(x0); @@ -37144,128 +33144,133 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $11876 = self.err; + var $10613 = self.err; var _reply$8 = Parser$many1$(Parser$choice(List$cons$(Kind$Parser$binder$homo$(_sep$1, Bool$true), List$cons$(Kind$Parser$binder$homo$(_sep$1, Bool$false), List$nil))), _pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $11878 = self.err; - var self = $11876; + var $10615 = self.err; + var self = $10613; switch (self._) { case 'Maybe.some': - var $11880 = self.value; - var $11881 = Parser$Reply$error$(Parser$Error$combine$($11880, $11878)); - var $11879 = $11881; + var $10617 = self.value; + var $10618 = Parser$Reply$error$(Parser$Error$combine$($10617, $10615)); + var $10616 = $10618; break; case 'Maybe.none': - var $11882 = Parser$Reply$error$($11878); - var $11879 = $11882; + var $10619 = Parser$Reply$error$($10615); + var $10616 = $10619; break; }; - var $11877 = $11879; + var $10614 = $10616; break; case 'Parser.Reply.value': - var $11883 = self.pst; - var $11884 = self.val; - var self = $11883; + var $10620 = self.pst; + var $10621 = self.val; + var self = $10620; switch (self._) { case 'Parser.State.new': - var $11886 = self.err; - var $11887 = self.nam; - var $11888 = self.ini; - var $11889 = self.idx; - var $11890 = self.str; - var $11891 = ((console.log(("FALTANDO " + $11890)), (_$16 => { - var $11892 = ((console.log(("VALUE " + $11887)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11876, $11886), $11887, $11888, $11889, $11890); - var $11893 = Parser$Reply$value$(_reply$pst$18, List$flatten$($11884)); - return $11893; - })())); - return $11892; - })())); - var $11885 = $11891; + var $10623 = self.err; + var $10624 = self.nam; + var $10625 = self.ini; + var $10626 = self.idx; + var $10627 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10613, $10623), $10624, $10625, $10626, $10627); + var $10628 = Parser$Reply$value$(_reply$pst$16, List$flatten$($10621)); + var $10622 = $10628; break; }; - var $11877 = $11885; + var $10614 = $10622; break; }; - var $11875 = $11877; + var $10612 = $10614; break; }; - return $11875; + return $10612; }; const Kind$Parser$binder = x0 => x1 => Kind$Parser$binder$(x0, x1); + const List$length = a0 => (list_length(a0)); function Kind$Parser$forall$make$(_binds$1, _body$2) { var self = _binds$1; switch (self._) { case 'List.cons': - var $11895 = self.head; - var $11896 = self.tail; - var self = $11895; + var $10630 = self.head; + var $10631 = self.tail; + var self = $10630; switch (self._) { case 'Kind.Binder.new': - var $11898 = self.eras; - var $11899 = self.name; - var $11900 = self.term; - var $11901 = Kind$Term$all$($11898, "", $11899, $11900, (_s$8 => _x$9 => { - var $11902 = Kind$Parser$forall$make$($11896, _body$2); - return $11902; + var $10633 = self.eras; + var $10634 = self.name; + var $10635 = self.term; + var $10636 = Kind$Term$all$($10633, "", $10634, $10635, (_s$8 => _x$9 => { + var $10637 = Kind$Parser$forall$make$($10631, _body$2); + return $10637; })); - var $11897 = $11901; + var $10632 = $10636; break; }; - var $11894 = $11897; + var $10629 = $10632; break; case 'List.nil': - var $11903 = _body$2; - var $11894 = $11903; + var $10638 = _body$2; + var $10629 = $10638; break; }; - return $11894; + return $10629; }; const Kind$Parser$forall$make = x0 => x1 => Kind$Parser$forall$make$(x0, x1); function List$at_last$(_index$2, _list$3) { - var $11904 = List$at$(_index$2, List$reverse$(_list$3)); - return $11904; + var $10639 = List$at$(_index$2, List$reverse$(_list$3)); + return $10639; }; const List$at_last = x0 => x1 => List$at_last$(x0, x1); + function Kind$Term$var$(_name$1, _indx$2) { + var $10640 = ({ + _: 'Kind.Term.var', + 'name': _name$1, + 'indx': _indx$2 + }); + return $10640; + }; + const Kind$Term$var = x0 => x1 => Kind$Term$var$(x0, x1); + function Kind$Context$get_name_skips$(_name$1) { var self = _name$1; if (self.length === 0) { - var $11906 = Pair$new$("", 0n); - var $11905 = $11906; + var $10642 = Pair$new$("", 0n); + var $10641 = $10642; } else { - var $11907 = self.charCodeAt(0); - var $11908 = self.slice(1); - var _name_skips$4 = Kind$Context$get_name_skips$($11908); + var $10643 = self.charCodeAt(0); + var $10644 = self.slice(1); + var _name_skips$4 = Kind$Context$get_name_skips$($10644); var self = _name_skips$4; switch (self._) { case 'Pair.new': - var $11910 = self.fst; - var $11911 = self.snd; - var self = ($11907 === 94); + var $10646 = self.fst; + var $10647 = self.snd; + var self = ($10643 === 94); if (self) { - var $11913 = Pair$new$($11910, Nat$succ$($11911)); - var $11912 = $11913; + var $10649 = Pair$new$($10646, Nat$succ$($10647)); + var $10648 = $10649; } else { - var $11914 = Pair$new$(String$cons$($11907, $11910), $11911); - var $11912 = $11914; + var $10650 = Pair$new$(String$cons$($10643, $10646), $10647); + var $10648 = $10650; }; - var $11909 = $11912; + var $10645 = $10648; break; }; - var $11905 = $11909; + var $10641 = $10645; }; - return $11905; + return $10641; }; const Kind$Context$get_name_skips = x0 => Kind$Context$get_name_skips$(x0); function Kind$Name$eql$(_a$1, _b$2) { - var $11915 = (_a$1 === _b$2); - return $11915; + var $10651 = (_a$1 === _b$2); + return $10651; }; const Kind$Name$eql = x0 => x1 => Kind$Name$eql$(x0, x1); @@ -37282,36 +33287,36 @@ module.exports = (function() { var self = _ctx$3; switch (self._) { case 'List.cons': - var $11916 = self.head; - var $11917 = self.tail; - var self = $11916; + var $10652 = self.head; + var $10653 = self.tail; + var self = $10652; switch (self._) { case 'Pair.new': - var $11919 = self.fst; - var $11920 = self.snd; - var self = Kind$Name$eql$(_name$1, $11919); + var $10655 = self.fst; + var $10656 = self.snd; + var self = Kind$Name$eql$(_name$1, $10655); if (self) { var self = _skip$2; if (self === 0n) { - var $11923 = Maybe$some$($11920); - var $11922 = $11923; + var $10659 = Maybe$some$($10656); + var $10658 = $10659; } else { - var $11924 = (self - 1n); - var $11925 = Kind$Context$find$go$(_name$1, $11924, $11917); - var $11922 = $11925; + var $10660 = (self - 1n); + var $10661 = Kind$Context$find$go$(_name$1, $10660, $10653); + var $10658 = $10661; }; - var $11921 = $11922; + var $10657 = $10658; } else { - var $11926 = Kind$Context$find$go$(_name$1, _skip$2, $11917); - var $11921 = $11926; + var $10662 = Kind$Context$find$go$(_name$1, _skip$2, $10653); + var $10657 = $10662; }; - var $11918 = $11921; + var $10654 = $10657; break; }; - return $11918; + return $10654; case 'List.nil': - var $11927 = Maybe$none; - return $11927; + var $10663 = Maybe$none; + return $10663; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -37324,48 +33329,66 @@ module.exports = (function() { var self = Kind$Context$get_name_skips$(_name$1); switch (self._) { case 'Pair.new': - var $11929 = self.fst; - var $11930 = self.snd; - var $11931 = Kind$Context$find$go$($11929, $11930, _ctx$2); - var $11928 = $11931; + var $10665 = self.fst; + var $10666 = self.snd; + var $10667 = Kind$Context$find$go$($10665, $10666, _ctx$2); + var $10664 = $10667; break; }; - return $11928; + return $10664; }; const Kind$Context$find = x0 => x1 => Kind$Context$find$(x0, x1); + function Kind$Path$Builder$o$(_path$1, _x$2) { + var $10668 = _path$1((_x$2 + '0')); + return $10668; + }; + const Kind$Path$Builder$o = x0 => x1 => Kind$Path$Builder$o$(x0, x1); + + function Kind$Path$Builder$i$(_path$1, _x$2) { + var $10669 = _path$1((_x$2 + '1')); + return $10669; + }; + const Kind$Path$Builder$i = x0 => x1 => Kind$Path$Builder$i$(x0, x1); + + function Kind$Path$Builder$to_bits$(_path$1) { + var $10670 = _path$1(Bits$e); + return $10670; + }; + const Kind$Path$Builder$to_bits = x0 => Kind$Path$Builder$to_bits$(x0); + function List$imapped$(_as$2, _f$4) { var self = _as$2; switch (self._) { case 'List.cons': - var $11933 = self.head; - var $11934 = self.tail; - var $11935 = List$cons$(_f$4(0n)($11933), List$imapped$($11934, (_n$7 => { - var $11936 = _f$4(Nat$succ$(_n$7)); - return $11936; + var $10672 = self.head; + var $10673 = self.tail; + var $10674 = List$cons$(_f$4(0n)($10672), List$imapped$($10673, (_n$7 => { + var $10675 = _f$4(Nat$succ$(_n$7)); + return $10675; }))); - var $11932 = $11935; + var $10671 = $10674; break; case 'List.nil': - var $11937 = List$nil; - var $11932 = $11937; + var $10676 = List$nil; + var $10671 = $10676; break; }; - return $11932; + return $10671; }; const List$imapped = x0 => x1 => List$imapped$(x0, x1); function Kind$Path$Builder$nat$(_n$1, _b$2) { var self = _n$1; if (self === 0n) { - var $11939 = Kind$Path$Builder$o(_b$2); - var $11938 = $11939; + var $10678 = Kind$Path$Builder$o(_b$2); + var $10677 = $10678; } else { - var $11940 = (self - 1n); - var $11941 = Kind$Path$Builder$i(Kind$Path$Builder$nat$($11940, _b$2)); - var $11938 = $11941; + var $10679 = (self - 1n); + var $10680 = Kind$Path$Builder$i(Kind$Path$Builder$nat$($10679, _b$2)); + var $10677 = $10680; }; - return $11938; + return $10677; }; const Kind$Path$Builder$nat = x0 => x1 => Kind$Path$Builder$nat$(x0, x1); @@ -37373,214 +33396,214 @@ module.exports = (function() { var self = _term$3; switch (self._) { case 'Kind.Term.var': - var $11943 = self.name; - var $11944 = self.indx; - var self = List$at_last$($11944, _vars$1); + var $10682 = self.name; + var $10683 = self.indx; + var self = List$at_last$($10683, _vars$1); switch (self._) { case 'Maybe.some': - var $11946 = self.value; - var $11947 = Pair$snd$($11946); - var $11945 = $11947; + var $10685 = self.value; + var $10686 = Pair$snd$($10685); + var $10684 = $10686; break; case 'Maybe.none': - var $11948 = Kind$Term$var$($11943, $11944); - var $11945 = $11948; + var $10687 = Kind$Term$var$($10682, $10683); + var $10684 = $10687; break; }; - var $11942 = $11945; + var $10681 = $10684; break; case 'Kind.Term.ref': - var $11949 = self.name; - var self = Kind$Context$find$($11949, _vars$1); + var $10688 = self.name; + var self = Kind$Context$find$($10688, _vars$1); switch (self._) { case 'Maybe.some': - var $11951 = self.value; - var $11952 = $11951; - var $11950 = $11952; + var $10690 = self.value; + var $10691 = $10690; + var $10689 = $10691; break; case 'Maybe.none': - var $11953 = Kind$Term$ref$($11949); - var $11950 = $11953; + var $10692 = Kind$Term$ref$($10688); + var $10689 = $10692; break; }; - var $11942 = $11950; + var $10681 = $10689; break; case 'Kind.Term.all': - var $11954 = self.eras; - var $11955 = self.self; - var $11956 = self.name; - var $11957 = self.xtyp; - var $11958 = self.body; + var $10693 = self.eras; + var $10694 = self.self; + var $10695 = self.name; + var $10696 = self.xtyp; + var $10697 = self.body; var _vlen$9 = (list_length(_vars$1)); - var $11959 = Kind$Term$all$($11954, $11955, $11956, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11957), (_s$10 => _x$11 => { - var $11960 = Kind$Term$bind$(List$cons$(Pair$new$($11956, _x$11), List$cons$(Pair$new$($11955, _s$10), _vars$1)), Kind$Path$Builder$i(_path$2), $11958(Kind$Term$var$($11955, _vlen$9))(Kind$Term$var$($11956, Nat$succ$(_vlen$9)))); - return $11960; + var $10698 = Kind$Term$all$($10693, $10694, $10695, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10696), (_s$10 => _x$11 => { + var $10699 = Kind$Term$bind$(List$cons$(Pair$new$($10695, _x$11), List$cons$(Pair$new$($10694, _s$10), _vars$1)), Kind$Path$Builder$i(_path$2), $10697(Kind$Term$var$($10694, _vlen$9))(Kind$Term$var$($10695, Nat$succ$(_vlen$9)))); + return $10699; })); - var $11942 = $11959; + var $10681 = $10698; break; case 'Kind.Term.lam': - var $11961 = self.name; - var $11962 = self.body; + var $10700 = self.name; + var $10701 = self.body; var _vlen$6 = (list_length(_vars$1)); - var $11963 = Kind$Term$lam$($11961, (_x$7 => { - var $11964 = Kind$Term$bind$(List$cons$(Pair$new$($11961, _x$7), _vars$1), Kind$Path$Builder$o(_path$2), $11962(Kind$Term$var$($11961, _vlen$6))); - return $11964; + var $10702 = Kind$Term$lam$($10700, (_x$7 => { + var $10703 = Kind$Term$bind$(List$cons$(Pair$new$($10700, _x$7), _vars$1), Kind$Path$Builder$o(_path$2), $10701(Kind$Term$var$($10700, _vlen$6))); + return $10703; })); - var $11942 = $11963; + var $10681 = $10702; break; case 'Kind.Term.app': - var $11965 = self.func; - var $11966 = self.argm; - var $11967 = Kind$Term$app$(Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11965), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11966)); - var $11942 = $11967; + var $10704 = self.func; + var $10705 = self.argm; + var $10706 = Kind$Term$app$(Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10704), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $10705)); + var $10681 = $10706; break; case 'Kind.Term.let': - var $11968 = self.name; - var $11969 = self.expr; - var $11970 = self.body; + var $10707 = self.name; + var $10708 = self.expr; + var $10709 = self.body; var _vlen$7 = (list_length(_vars$1)); - var $11971 = Kind$Term$let$($11968, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11969), (_x$8 => { - var $11972 = Kind$Term$bind$(List$cons$(Pair$new$($11968, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $11970(Kind$Term$var$($11968, _vlen$7))); - return $11972; + var $10710 = Kind$Term$let$($10707, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10708), (_x$8 => { + var $10711 = Kind$Term$bind$(List$cons$(Pair$new$($10707, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $10709(Kind$Term$var$($10707, _vlen$7))); + return $10711; })); - var $11942 = $11971; + var $10681 = $10710; break; case 'Kind.Term.def': - var $11973 = self.name; - var $11974 = self.expr; - var $11975 = self.body; + var $10712 = self.name; + var $10713 = self.expr; + var $10714 = self.body; var _vlen$7 = (list_length(_vars$1)); - var $11976 = Kind$Term$def$($11973, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11974), (_x$8 => { - var $11977 = Kind$Term$bind$(List$cons$(Pair$new$($11973, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $11975(Kind$Term$var$($11973, _vlen$7))); - return $11977; + var $10715 = Kind$Term$def$($10712, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10713), (_x$8 => { + var $10716 = Kind$Term$bind$(List$cons$(Pair$new$($10712, _x$8), _vars$1), Kind$Path$Builder$i(_path$2), $10714(Kind$Term$var$($10712, _vlen$7))); + return $10716; })); - var $11942 = $11976; + var $10681 = $10715; break; case 'Kind.Term.ann': - var $11978 = self.done; - var $11979 = self.term; - var $11980 = self.type; - var $11981 = Kind$Term$ann$($11978, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11979), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $11980)); - var $11942 = $11981; + var $10717 = self.done; + var $10718 = self.term; + var $10719 = self.type; + var $10720 = Kind$Term$ann$($10717, Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10718), Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $10719)); + var $10681 = $10720; break; case 'Kind.Term.gol': - var $11982 = self.name; - var $11983 = self.dref; - var $11984 = self.verb; - var $11985 = Kind$Term$gol$($11982, $11983, $11984); - var $11942 = $11985; + var $10721 = self.name; + var $10722 = self.dref; + var $10723 = self.verb; + var $10724 = Kind$Term$gol$($10721, $10722, $10723); + var $10681 = $10724; break; case 'Kind.Term.nat': - var $11986 = self.natx; - var $11987 = Kind$Term$nat$($11986); - var $11942 = $11987; + var $10725 = self.natx; + var $10726 = Kind$Term$nat$($10725); + var $10681 = $10726; break; case 'Kind.Term.chr': - var $11988 = self.chrx; - var $11989 = Kind$Term$chr$($11988); - var $11942 = $11989; + var $10727 = self.chrx; + var $10728 = Kind$Term$chr$($10727); + var $10681 = $10728; break; case 'Kind.Term.str': - var $11990 = self.strx; - var $11991 = Kind$Term$str$($11990); - var $11942 = $11991; + var $10729 = self.strx; + var $10730 = Kind$Term$str$($10729); + var $10681 = $10730; break; case 'Kind.Term.num': - var $11992 = self.sign; - var $11993 = self.numb; - var $11994 = self.frac; - var $11995 = Kind$Term$num$($11992, $11993, $11994); - var $11942 = $11995; + var $10731 = self.sign; + var $10732 = self.numb; + var $10733 = self.frac; + var $10734 = Kind$Term$num$($10731, $10732, $10733); + var $10681 = $10734; break; case 'Kind.Term.cse': - var $11996 = self.expr; - var $11997 = self.name; - var $11998 = self.with; - var $11999 = self.cses; - var $12000 = self.moti; - var _expr$10 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $11996); - var _name$11 = $11997; - var _wyth$12 = List$mapped$($11998, (_with_var$12 => { + var $10735 = self.expr; + var $10736 = self.name; + var $10737 = self.with; + var $10738 = self.cses; + var $10739 = self.moti; + var _expr$10 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10735); + var _name$11 = $10736; + var _wyth$12 = List$mapped$($10737, (_with_var$12 => { var self = _with_var$12; switch (self._) { case 'Kind.Ann.new': - var $12003 = self.name; - var $12004 = self.term; - var $12005 = self.type; - var _with_var_term$16 = Kind$Term$bind$(_vars$1, _path$2, $12004); - var self = $12005; + var $10742 = self.name; + var $10743 = self.term; + var $10744 = self.type; + var _with_var_term$16 = Kind$Term$bind$(_vars$1, _path$2, $10743); + var self = $10744; switch (self._) { case 'Maybe.some': - var $12007 = self.value; - var $12008 = Maybe$some$(Kind$Term$bind$(_vars$1, _path$2, $12007)); - var _with_var_type$17 = $12008; + var $10746 = self.value; + var $10747 = Maybe$some$(Kind$Term$bind$(_vars$1, _path$2, $10746)); + var _with_var_type$17 = $10747; break; case 'Maybe.none': - var $12009 = Maybe$none; - var _with_var_type$17 = $12009; + var $10748 = Maybe$none; + var _with_var_type$17 = $10748; break; }; - var $12006 = Kind$Ann$new$($12003, _with_var_term$16, _with_var_type$17); - var $12002 = $12006; + var $10745 = Kind$Ann$new$($10742, _with_var_term$16, _with_var_type$17); + var $10741 = $10745; break; }; - return $12002; + return $10741; })); - var _cses$13 = $11999; - var _moti$14 = $12000; - var $12001 = Kind$Term$cse$(Kind$Path$Builder$to_bits$(_path$2), _expr$10, _name$11, _wyth$12, _cses$13, _moti$14); - var $11942 = $12001; + var _cses$13 = $10738; + var _moti$14 = $10739; + var $10740 = Kind$Term$cse$(Kind$Path$Builder$to_bits$(_path$2), _expr$10, _name$11, _wyth$12, _cses$13, _moti$14); + var $10681 = $10740; break; case 'Kind.Term.new': - var $12010 = self.args; - var _args$5 = List$imapped$($12010, (_idx$5 => _arg$6 => { - var $12012 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$nat$(_idx$5, _path$2), _arg$6); - return $12012; + var $10749 = self.args; + var _args$5 = List$imapped$($10749, (_idx$5 => _arg$6 => { + var $10751 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$nat$(_idx$5, _path$2), _arg$6); + return $10751; })); - var $12011 = Kind$Term$new$(_args$5); - var $11942 = $12011; + var $10750 = Kind$Term$new$(_args$5); + var $10681 = $10750; break; case 'Kind.Term.get': - var $12013 = self.expr; - var $12014 = self.fkey; - var _expr$6 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $12013); - var $12015 = Kind$Term$get$(_expr$6, $12014); - var $11942 = $12015; + var $10752 = self.expr; + var $10753 = self.fkey; + var _expr$6 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10752); + var $10754 = Kind$Term$get$(_expr$6, $10753); + var $10681 = $10754; break; case 'Kind.Term.set': - var $12016 = self.expr; - var $12017 = self.fkey; - var $12018 = self.fval; - var _expr$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $12016); - var _fval$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $12018); - var $12019 = Kind$Term$set$(_expr$7, $12017, _fval$8); - var $11942 = $12019; + var $10755 = self.expr; + var $10756 = self.fkey; + var $10757 = self.fval; + var _expr$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10755); + var _fval$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $10757); + var $10758 = Kind$Term$set$(_expr$7, $10756, _fval$8); + var $10681 = $10758; break; case 'Kind.Term.ope': - var $12020 = self.name; - var $12021 = self.arg0; - var $12022 = self.arg1; - var _arg0$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $12021); - var _arg1$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $12022); - var $12023 = Kind$Term$ope$($12020, _arg0$7, _arg1$8); - var $11942 = $12023; + var $10759 = self.name; + var $10760 = self.arg0; + var $10761 = self.arg1; + var _arg0$7 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$o(_path$2), $10760); + var _arg1$8 = Kind$Term$bind$(_vars$1, Kind$Path$Builder$i(_path$2), $10761); + var $10762 = Kind$Term$ope$($10759, _arg0$7, _arg1$8); + var $10681 = $10762; break; case 'Kind.Term.ori': - var $12024 = self.orig; - var $12025 = self.expr; - var $12026 = Kind$Term$ori$($12024, Kind$Term$bind$(_vars$1, _path$2, $12025)); - var $11942 = $12026; + var $10763 = self.orig; + var $10764 = self.expr; + var $10765 = Kind$Term$ori$($10763, Kind$Term$bind$(_vars$1, _path$2, $10764)); + var $10681 = $10765; break; case 'Kind.Term.typ': - var $12027 = Kind$Term$typ; - var $11942 = $12027; + var $10766 = Kind$Term$typ; + var $10681 = $10766; break; case 'Kind.Term.hol': - var $12028 = Kind$Term$hol$(Kind$Path$Builder$to_bits$(_path$2)); - var $11942 = $12028; + var $10767 = Kind$Term$hol$(Kind$Path$Builder$to_bits$(_path$2)); + var $10681 = $10767; break; }; - return $11942; + return $10681; }; const Kind$Term$bind = x0 => x1 => x2 => Kind$Term$bind$(x0, x1, x2); @@ -37597,13 +33620,13 @@ module.exports = (function() { var self = _t$2; switch (self._) { case 'Trampoline.done': - var $12029 = self.value; - var $12030 = $12029; - return $12030; + var $10768 = self.value; + var $10769 = $10768; + return $10769; case 'Trampoline.wrap': - var $12031 = self.value; - var $12032 = Trampoline$call$($12031(Unit$new)); - return $12032; + var $10770 = self.value; + var $10771 = Trampoline$call$($10770(Unit$new)); + return $10771; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -37613,17 +33636,17 @@ module.exports = (function() { const Trampoline$call = x0 => Trampoline$call$(x0); function Trampoline$(_A$1) { - var $12033 = null; - return $12033; + var $10772 = null; + return $10772; }; const Trampoline = x0 => Trampoline$(x0); function Trampoline$wrap$(_value$2) { - var $12034 = ({ + var $10773 = ({ _: 'Trampoline.wrap', 'value': _value$2 }); - return $12034; + return $10773; }; const Trampoline$wrap = x0 => Trampoline$wrap$(x0); @@ -37640,90 +33663,90 @@ module.exports = (function() { var self = _bits$2; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $12035 = self.slice(0, -1); + var $10774 = self.slice(0, -1); var self = _map$4; switch (self._) { case 'BitsMap.tie': - var $12037 = self.val; - var $12038 = self.lft; - var $12039 = self.rgt; - var $12040 = BitsMap$set_if_empty$cps$go$($12035, _val$3, $12038, (_lft$10 => { - var $12041 = Trampoline$wrap$((_$11 => { - var $12042 = _cont$5(BitsMap$tie$($12037, _lft$10, $12039)); - return $12042; + var $10776 = self.val; + var $10777 = self.lft; + var $10778 = self.rgt; + var $10779 = BitsMap$set_if_empty$cps$go$($10774, _val$3, $10777, (_lft$10 => { + var $10780 = Trampoline$wrap$((_$11 => { + var $10781 = _cont$5(BitsMap$tie$($10776, _lft$10, $10778)); + return $10781; })); - return $12041; + return $10780; })); - var $12036 = $12040; + var $10775 = $10779; break; case 'BitsMap.new': - var $12043 = BitsMap$set_if_empty$cps$go$($12035, _val$3, BitsMap$new, (_lft$7 => { - var $12044 = Trampoline$wrap$((_$8 => { - var $12045 = _cont$5(BitsMap$tie$(Maybe$none, _lft$7, BitsMap$new)); - return $12045; + var $10782 = BitsMap$set_if_empty$cps$go$($10774, _val$3, BitsMap$new, (_lft$7 => { + var $10783 = Trampoline$wrap$((_$8 => { + var $10784 = _cont$5(BitsMap$tie$(Maybe$none, _lft$7, BitsMap$new)); + return $10784; })); - return $12044; + return $10783; })); - var $12036 = $12043; + var $10775 = $10782; break; }; - return $12036; + return $10775; case 'i': - var $12046 = self.slice(0, -1); + var $10785 = self.slice(0, -1); var self = _map$4; switch (self._) { case 'BitsMap.tie': - var $12048 = self.val; - var $12049 = self.lft; - var $12050 = self.rgt; - var $12051 = BitsMap$set_if_empty$cps$go$($12046, _val$3, $12050, (_rgt$10 => { - var $12052 = Trampoline$wrap$((_$11 => { - var $12053 = _cont$5(BitsMap$tie$($12048, $12049, _rgt$10)); - return $12053; + var $10787 = self.val; + var $10788 = self.lft; + var $10789 = self.rgt; + var $10790 = BitsMap$set_if_empty$cps$go$($10785, _val$3, $10789, (_rgt$10 => { + var $10791 = Trampoline$wrap$((_$11 => { + var $10792 = _cont$5(BitsMap$tie$($10787, $10788, _rgt$10)); + return $10792; })); - return $12052; + return $10791; })); - var $12047 = $12051; + var $10786 = $10790; break; case 'BitsMap.new': - var $12054 = BitsMap$set_if_empty$cps$go$($12046, _val$3, BitsMap$new, (_rgt$7 => { - var $12055 = Trampoline$wrap$((_$8 => { - var $12056 = _cont$5(BitsMap$tie$(Maybe$none, BitsMap$new, _rgt$7)); - return $12056; + var $10793 = BitsMap$set_if_empty$cps$go$($10785, _val$3, BitsMap$new, (_rgt$7 => { + var $10794 = Trampoline$wrap$((_$8 => { + var $10795 = _cont$5(BitsMap$tie$(Maybe$none, BitsMap$new, _rgt$7)); + return $10795; })); - return $12055; + return $10794; })); - var $12047 = $12054; + var $10786 = $10793; break; }; - return $12047; + return $10786; case 'e': var self = _map$4; switch (self._) { case 'BitsMap.tie': - var $12058 = self.val; - var $12059 = self.lft; - var $12060 = self.rgt; - var $12061 = _cont$5(BitsMap$tie$((() => { - var self = $12058; + var $10797 = self.val; + var $10798 = self.lft; + var $10799 = self.rgt; + var $10800 = _cont$5(BitsMap$tie$((() => { + var self = $10797; switch (self._) { case 'Maybe.some': - var $12062 = self.value; - var $12063 = Maybe$some$($12062); - return $12063; + var $10801 = self.value; + var $10802 = Maybe$some$($10801); + return $10802; case 'Maybe.none': - var $12064 = Maybe$some$(_val$3); - return $12064; + var $10803 = Maybe$some$(_val$3); + return $10803; }; - })(), $12059, $12060)); - var $12057 = $12061; + })(), $10798, $10799)); + var $10796 = $10800; break; case 'BitsMap.new': - var $12065 = _cont$5(BitsMap$tie$(Maybe$some$(_val$3), BitsMap$new, BitsMap$new)); - var $12057 = $12065; + var $10804 = _cont$5(BitsMap$tie$(Maybe$some$(_val$3), BitsMap$new, BitsMap$new)); + var $10796 = $10804; break; }; - return $12057; + return $10796; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -37733,29 +33756,29 @@ module.exports = (function() { const BitsMap$set_if_empty$cps$go = x0 => x1 => x2 => x3 => BitsMap$set_if_empty$cps$go$(x0, x1, x2, x3); function Trampoline$done$(_value$2) { - var $12066 = ({ + var $10805 = ({ _: 'Trampoline.done', 'value': _value$2 }); - return $12066; + return $10805; }; const Trampoline$done = x0 => Trampoline$done$(x0); function BitsMap$set_if_empty$cps$(_bits$2, _val$3, _map$4) { - var $12067 = Trampoline$call$(BitsMap$set_if_empty$cps$go$(_bits$2, _val$3, _map$4, Trampoline$done)); - return $12067; + var $10806 = Trampoline$call$(BitsMap$set_if_empty$cps$go$(_bits$2, _val$3, _map$4, Trampoline$done)); + return $10806; }; const BitsMap$set_if_empty$cps = x0 => x1 => x2 => BitsMap$set_if_empty$cps$(x0, x1, x2); function BitsMap$set_if_empty$(_bits$2, _val$3, _map$4) { - var $12068 = BitsMap$set_if_empty$cps$(_bits$2, _val$3, _map$4); - return $12068; + var $10807 = BitsMap$set_if_empty$cps$(_bits$2, _val$3, _map$4); + return $10807; }; const BitsMap$set_if_empty = x0 => x1 => x2 => BitsMap$set_if_empty$(x0, x1, x2); function Kind$Map$set_if_empty$(_name$2, _val$3, _map$4) { - var $12069 = BitsMap$set_if_empty$((kind_name_to_bits(_name$2)), _val$3, _map$4); - return $12069; + var $10808 = BitsMap$set_if_empty$((kind_name_to_bits(_name$2)), _val$3, _map$4); + return $10808; }; const Kind$Map$set_if_empty = x0 => x1 => x2 => Kind$Map$set_if_empty$(x0, x1, x2); const Kind$Status$init = ({ @@ -37766,13 +33789,13 @@ module.exports = (function() { var _defn$11 = Kind$Def$new(_file$1)(_code$2)(_orig$3)(_name$4)(_term$5)(_type$6)(_isct$7)(_arit$8); var self = _done$9; if (self) { - var $12071 = Kind$Map$set$(_name$4, _defn$11(Kind$Status$done$(Bool$false)), _defs$10); - var $12070 = $12071; + var $10810 = Kind$Map$set$(_name$4, _defn$11(Kind$Status$done$(Bool$false)), _defs$10); + var $10809 = $10810; } else { - var $12072 = Kind$Map$set_if_empty$(_name$4, _defn$11(Kind$Status$init), _defs$10); - var $12070 = $12072; + var $10811 = Kind$Map$set_if_empty$(_name$4, _defn$11(Kind$Status$init), _defs$10); + var $10809 = $10811; }; - return $12070; + return $10809; }; const Kind$Map$def = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => x9 => Kind$Map$def$(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9); @@ -37780,438 +33803,390 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $12074 = self.err; + var $10813 = self.err; var _reply$10 = Kind$Parser$spaces(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $12076 = self.err; - var self = $12074; + var $10815 = self.err; + var self = $10813; switch (self._) { case 'Maybe.some': - var $12078 = self.value; - var $12079 = Parser$Reply$error$(Parser$Error$combine$($12078, $12076)); - var $12077 = $12079; + var $10817 = self.value; + var $10818 = Parser$Reply$error$(Parser$Error$combine$($10817, $10815)); + var $10816 = $10818; break; case 'Maybe.none': - var $12080 = Parser$Reply$error$($12076); - var $12077 = $12080; + var $10819 = Parser$Reply$error$($10815); + var $10816 = $10819; break; }; - var $12075 = $12077; + var $10814 = $10816; break; case 'Parser.Reply.value': - var $12081 = self.pst; - var self = $12081; + var $10820 = self.pst; + var self = $10820; switch (self._) { case 'Parser.State.new': - var $12083 = self.err; - var $12084 = self.nam; - var $12085 = self.ini; - var $12086 = self.idx; - var $12087 = self.str; - var $12088 = ((console.log(("FALTANDO " + $12087)), (_$18 => { - var $12089 = ((console.log(("VALUE " + $12084)), (_$19 => { - var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($12074, $12083), $12084, $12085, $12086, $12087); - var self = _reply$pst$20; + var $10822 = self.err; + var $10823 = self.nam; + var $10824 = self.ini; + var $10825 = self.idx; + var $10826 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($10813, $10822), $10823, $10824, $10825, $10826); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $10828 = self.err; + var _reply$24 = Parser$get_idx$(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Parser.State.new': - var $12091 = self.err; - var _reply$26 = Parser$get_idx$(_reply$pst$20); - var self = _reply$26; + case 'Parser.Reply.error': + var $10830 = self.err; + var self = $10828; switch (self._) { - case 'Parser.Reply.error': - var $12093 = self.err; - var self = $12091; - switch (self._) { - case 'Maybe.some': - var $12095 = self.value; - var $12096 = Parser$Reply$error$(Parser$Error$combine$($12095, $12093)); - var $12094 = $12096; - break; - case 'Maybe.none': - var $12097 = Parser$Reply$error$($12093); - var $12094 = $12097; - break; - }; - var $12092 = $12094; + case 'Maybe.some': + var $10832 = self.value; + var $10833 = Parser$Reply$error$(Parser$Error$combine$($10832, $10830)); + var $10831 = $10833; break; - case 'Parser.Reply.value': - var $12098 = self.pst; - var $12099 = self.val; - var self = $12098; - switch (self._) { - case 'Parser.State.new': - var $12101 = self.err; - var $12102 = self.nam; - var $12103 = self.ini; - var $12104 = self.idx; - var $12105 = self.str; - var $12106 = ((console.log(("FALTANDO " + $12105)), (_$34 => { - var $12107 = ((console.log(("VALUE " + $12102)), (_$35 => { - var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($12091, $12101), $12102, $12103, $12104, $12105); - var self = _reply$pst$36; - switch (self._) { - case 'Parser.State.new': - var $12109 = self.err; - var _reply$42 = Kind$Parser$name1$(_reply$pst$36); - var self = _reply$42; - switch (self._) { - case 'Parser.Reply.error': - var $12111 = self.err; - var self = $12109; - switch (self._) { - case 'Maybe.some': - var $12113 = self.value; - var $12114 = Parser$Reply$error$(Parser$Error$combine$($12113, $12111)); - var $12112 = $12114; - break; - case 'Maybe.none': - var $12115 = Parser$Reply$error$($12111); - var $12112 = $12115; - break; - }; - var $12110 = $12112; - break; - case 'Parser.Reply.value': - var $12116 = self.pst; - var $12117 = self.val; - var self = $12116; - switch (self._) { - case 'Parser.State.new': - var $12119 = self.err; - var $12120 = self.nam; - var $12121 = self.ini; - var $12122 = self.idx; - var $12123 = self.str; - var $12124 = ((console.log(("FALTANDO " + $12123)), (_$50 => { - var $12125 = ((console.log(("VALUE " + $12120)), (_$51 => { - var _reply$pst$52 = Parser$State$new$(Parser$Error$maybe_combine$($12109, $12119), $12120, $12121, $12122, $12123); - var self = _reply$pst$52; - switch (self._) { - case 'Parser.State.new': - var $12127 = self.err; - var _reply$58 = Parser$many$(Kind$Parser$binder(":"))(_reply$pst$52); - var self = _reply$58; - switch (self._) { - case 'Parser.Reply.error': - var $12129 = self.err; - var self = $12127; - switch (self._) { - case 'Maybe.some': - var $12131 = self.value; - var $12132 = Parser$Reply$error$(Parser$Error$combine$($12131, $12129)); - var $12130 = $12132; - break; - case 'Maybe.none': - var $12133 = Parser$Reply$error$($12129); - var $12130 = $12133; - break; - }; - var $12128 = $12130; - break; - case 'Parser.Reply.value': - var $12134 = self.pst; - var $12135 = self.val; - var self = $12134; - switch (self._) { - case 'Parser.State.new': - var $12137 = self.err; - var $12138 = self.nam; - var $12139 = self.ini; - var $12140 = self.idx; - var $12141 = self.str; - var $12142 = ((console.log(("FALTANDO " + $12141)), (_$66 => { - var $12143 = ((console.log(("VALUE " + $12138)), (_$67 => { - var _reply$pst$68 = Parser$State$new$(Parser$Error$maybe_combine$($12127, $12137), $12138, $12139, $12140, $12141); - var _args$69 = List$flatten$($12135); - var self = _reply$pst$68; - switch (self._) { - case 'Parser.State.new': - var $12145 = self.err; - var _reply$75 = Kind$Parser$text$(":", _reply$pst$68); - var self = _reply$75; - switch (self._) { - case 'Parser.Reply.error': - var $12147 = self.err; - var self = $12145; - switch (self._) { - case 'Maybe.some': - var $12149 = self.value; - var $12150 = Parser$Reply$error$(Parser$Error$combine$($12149, $12147)); - var $12148 = $12150; - break; - case 'Maybe.none': - var $12151 = Parser$Reply$error$($12147); - var $12148 = $12151; - break; - }; - var $12146 = $12148; - break; - case 'Parser.Reply.value': - var $12152 = self.pst; - var self = $12152; - switch (self._) { - case 'Parser.State.new': - var $12154 = self.err; - var $12155 = self.nam; - var $12156 = self.ini; - var $12157 = self.idx; - var $12158 = self.str; - var $12159 = ((console.log(("FALTANDO " + $12158)), (_$83 => { - var $12160 = ((console.log(("VALUE " + $12155)), (_$84 => { - var _reply$pst$85 = Parser$State$new$(Parser$Error$maybe_combine$($12145, $12154), $12155, $12156, $12157, $12158); - var self = _reply$pst$85; - switch (self._) { - case 'Parser.State.new': - var $12162 = self.err; - var _reply$91 = Kind$Parser$term(_reply$pst$85); - var self = _reply$91; - switch (self._) { - case 'Parser.Reply.error': - var $12164 = self.err; - var self = $12162; - switch (self._) { - case 'Maybe.some': - var $12166 = self.value; - var $12167 = Parser$Reply$error$(Parser$Error$combine$($12166, $12164)); - var $12165 = $12167; - break; - case 'Maybe.none': - var $12168 = Parser$Reply$error$($12164); - var $12165 = $12168; - break; - }; - var $12163 = $12165; - break; - case 'Parser.Reply.value': - var $12169 = self.pst; - var $12170 = self.val; - var self = $12169; - switch (self._) { - case 'Parser.State.new': - var $12172 = self.err; - var $12173 = self.nam; - var $12174 = self.ini; - var $12175 = self.idx; - var $12176 = self.str; - var $12177 = ((console.log(("FALTANDO " + $12176)), (_$99 => { - var $12178 = ((console.log(("VALUE " + $12173)), (_$100 => { - var _reply$pst$101 = Parser$State$new$(Parser$Error$maybe_combine$($12162, $12172), $12173, $12174, $12175, $12176); - var self = _reply$pst$101; - switch (self._) { - case 'Parser.State.new': - var $12180 = self.err; - var _reply$107 = Kind$Parser$term(_reply$pst$101); - var self = _reply$107; - switch (self._) { - case 'Parser.Reply.error': - var $12182 = self.err; - var self = $12180; - switch (self._) { - case 'Maybe.some': - var $12184 = self.value; - var $12185 = Parser$Reply$error$(Parser$Error$combine$($12184, $12182)); - var $12183 = $12185; - break; - case 'Maybe.none': - var $12186 = Parser$Reply$error$($12182); - var $12183 = $12186; - break; - }; - var $12181 = $12183; - break; - case 'Parser.Reply.value': - var $12187 = self.pst; - var $12188 = self.val; - var self = $12187; - switch (self._) { - case 'Parser.State.new': - var $12190 = self.err; - var $12191 = self.nam; - var $12192 = self.ini; - var $12193 = self.idx; - var $12194 = self.str; - var $12195 = ((console.log(("FALTANDO " + $12194)), (_$115 => { - var $12196 = ((console.log(("VALUE " + $12191)), (_$116 => { - var _reply$pst$117 = Parser$State$new$(Parser$Error$maybe_combine$($12180, $12190), $12191, $12192, $12193, $12194); - var self = _reply$pst$117; - switch (self._) { - case 'Parser.State.new': - var $12198 = self.err; - var _reply$123 = Parser$get_idx$(_reply$pst$117); - var self = _reply$123; - switch (self._) { - case 'Parser.Reply.error': - var $12200 = self.err; - var self = $12198; - switch (self._) { - case 'Maybe.some': - var $12202 = self.value; - var $12203 = Parser$Reply$error$(Parser$Error$combine$($12202, $12200)); - var $12201 = $12203; - break; - case 'Maybe.none': - var $12204 = Parser$Reply$error$($12200); - var $12201 = $12204; - break; - }; - var $12199 = $12201; - break; - case 'Parser.Reply.value': - var $12205 = self.pst; - var $12206 = self.val; - var self = $12205; - switch (self._) { - case 'Parser.State.new': - var $12208 = self.err; - var $12209 = self.nam; - var $12210 = self.ini; - var $12211 = self.idx; - var $12212 = self.str; - var $12213 = ((console.log(("FALTANDO " + $12212)), (_$131 => { - var $12214 = ((console.log(("VALUE " + $12209)), (_$132 => { - var _reply$pst$133 = Parser$State$new$(Parser$Error$maybe_combine$($12198, $12208), $12209, $12210, $12211, $12212); - var _orig$134 = Pair$new$($12099, $12206); - var _arit$135 = (list_length(_args$69)); - var _type$136 = Kind$Parser$forall$make$(_args$69, $12170); - var _term$137 = Kind$Parser$lambda$make$(List$mapped$(_args$69, (_x$137 => { - var self = _x$137; - switch (self._) { - case 'Kind.Binder.new': - var $12217 = self.name; - var $12218 = $12217; - var $12216 = $12218; - break; - }; - return $12216; - })), $12188); - var _type$138 = Kind$Term$bind$(List$nil, (_x$138 => { - var $12219 = (_x$138 + '1'); - return $12219; - }), _type$136); - var _term$139 = Kind$Term$bind$(List$nil, (_x$139 => { - var $12220 = (_x$139 + '0'); - return $12220; - }), _term$137); - var _defs$140 = Kind$Map$def$(_file$1, _code$2, _orig$134, $12117, _term$139, _type$138, Bool$false, _arit$135, Bool$false, _defs$3); - var $12215 = Parser$Reply$value$(_reply$pst$133, _defs$140); - return $12215; - })())); - return $12214; - })())); - var $12207 = $12213; - break; - }; - var $12199 = $12207; - break; - }; - var $12197 = $12199; - break; - }; - return $12197; - })())); - return $12196; - })())); - var $12189 = $12195; - break; - }; - var $12181 = $12189; - break; - }; - var $12179 = $12181; - break; - }; - return $12179; - })())); - return $12178; - })())); - var $12171 = $12177; - break; - }; - var $12163 = $12171; - break; - }; - var $12161 = $12163; - break; - }; - return $12161; - })())); - return $12160; - })())); - var $12153 = $12159; - break; - }; - var $12146 = $12153; - break; - }; - var $12144 = $12146; - break; - }; - return $12144; - })())); - return $12143; - })())); - var $12136 = $12142; - break; - }; - var $12128 = $12136; - break; - }; - var $12126 = $12128; - break; - }; - return $12126; - })())); - return $12125; - })())); - var $12118 = $12124; - break; - }; - var $12110 = $12118; - break; - }; - var $12108 = $12110; - break; - }; - return $12108; - })())); - return $12107; - })())); - var $12100 = $12106; - break; - }; - var $12092 = $12100; + case 'Maybe.none': + var $10834 = Parser$Reply$error$($10830); + var $10831 = $10834; break; }; - var $12090 = $12092; + var $10829 = $10831; + break; + case 'Parser.Reply.value': + var $10835 = self.pst; + var $10836 = self.val; + var self = $10835; + switch (self._) { + case 'Parser.State.new': + var $10838 = self.err; + var $10839 = self.nam; + var $10840 = self.ini; + var $10841 = self.idx; + var $10842 = self.str; + var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($10828, $10838), $10839, $10840, $10841, $10842); + var self = _reply$pst$32; + switch (self._) { + case 'Parser.State.new': + var $10844 = self.err; + var _reply$38 = Kind$Parser$name1$(_reply$pst$32); + var self = _reply$38; + switch (self._) { + case 'Parser.Reply.error': + var $10846 = self.err; + var self = $10844; + switch (self._) { + case 'Maybe.some': + var $10848 = self.value; + var $10849 = Parser$Reply$error$(Parser$Error$combine$($10848, $10846)); + var $10847 = $10849; + break; + case 'Maybe.none': + var $10850 = Parser$Reply$error$($10846); + var $10847 = $10850; + break; + }; + var $10845 = $10847; + break; + case 'Parser.Reply.value': + var $10851 = self.pst; + var $10852 = self.val; + var self = $10851; + switch (self._) { + case 'Parser.State.new': + var $10854 = self.err; + var $10855 = self.nam; + var $10856 = self.ini; + var $10857 = self.idx; + var $10858 = self.str; + var _reply$pst$46 = Parser$State$new$(Parser$Error$maybe_combine$($10844, $10854), $10855, $10856, $10857, $10858); + var self = _reply$pst$46; + switch (self._) { + case 'Parser.State.new': + var $10860 = self.err; + var _reply$52 = Parser$many$(Kind$Parser$binder(":"))(_reply$pst$46); + var self = _reply$52; + switch (self._) { + case 'Parser.Reply.error': + var $10862 = self.err; + var self = $10860; + switch (self._) { + case 'Maybe.some': + var $10864 = self.value; + var $10865 = Parser$Reply$error$(Parser$Error$combine$($10864, $10862)); + var $10863 = $10865; + break; + case 'Maybe.none': + var $10866 = Parser$Reply$error$($10862); + var $10863 = $10866; + break; + }; + var $10861 = $10863; + break; + case 'Parser.Reply.value': + var $10867 = self.pst; + var $10868 = self.val; + var self = $10867; + switch (self._) { + case 'Parser.State.new': + var $10870 = self.err; + var $10871 = self.nam; + var $10872 = self.ini; + var $10873 = self.idx; + var $10874 = self.str; + var _reply$pst$60 = Parser$State$new$(Parser$Error$maybe_combine$($10860, $10870), $10871, $10872, $10873, $10874); + var _args$61 = List$flatten$($10868); + var self = _reply$pst$60; + switch (self._) { + case 'Parser.State.new': + var $10876 = self.err; + var _reply$67 = Kind$Parser$text$(":", _reply$pst$60); + var self = _reply$67; + switch (self._) { + case 'Parser.Reply.error': + var $10878 = self.err; + var self = $10876; + switch (self._) { + case 'Maybe.some': + var $10880 = self.value; + var $10881 = Parser$Reply$error$(Parser$Error$combine$($10880, $10878)); + var $10879 = $10881; + break; + case 'Maybe.none': + var $10882 = Parser$Reply$error$($10878); + var $10879 = $10882; + break; + }; + var $10877 = $10879; + break; + case 'Parser.Reply.value': + var $10883 = self.pst; + var self = $10883; + switch (self._) { + case 'Parser.State.new': + var $10885 = self.err; + var $10886 = self.nam; + var $10887 = self.ini; + var $10888 = self.idx; + var $10889 = self.str; + var _reply$pst$75 = Parser$State$new$(Parser$Error$maybe_combine$($10876, $10885), $10886, $10887, $10888, $10889); + var self = _reply$pst$75; + switch (self._) { + case 'Parser.State.new': + var $10891 = self.err; + var _reply$81 = Kind$Parser$term(_reply$pst$75); + var self = _reply$81; + switch (self._) { + case 'Parser.Reply.error': + var $10893 = self.err; + var self = $10891; + switch (self._) { + case 'Maybe.some': + var $10895 = self.value; + var $10896 = Parser$Reply$error$(Parser$Error$combine$($10895, $10893)); + var $10894 = $10896; + break; + case 'Maybe.none': + var $10897 = Parser$Reply$error$($10893); + var $10894 = $10897; + break; + }; + var $10892 = $10894; + break; + case 'Parser.Reply.value': + var $10898 = self.pst; + var $10899 = self.val; + var self = $10898; + switch (self._) { + case 'Parser.State.new': + var $10901 = self.err; + var $10902 = self.nam; + var $10903 = self.ini; + var $10904 = self.idx; + var $10905 = self.str; + var _reply$pst$89 = Parser$State$new$(Parser$Error$maybe_combine$($10891, $10901), $10902, $10903, $10904, $10905); + var self = _reply$pst$89; + switch (self._) { + case 'Parser.State.new': + var $10907 = self.err; + var _reply$95 = Kind$Parser$term(_reply$pst$89); + var self = _reply$95; + switch (self._) { + case 'Parser.Reply.error': + var $10909 = self.err; + var self = $10907; + switch (self._) { + case 'Maybe.some': + var $10911 = self.value; + var $10912 = Parser$Reply$error$(Parser$Error$combine$($10911, $10909)); + var $10910 = $10912; + break; + case 'Maybe.none': + var $10913 = Parser$Reply$error$($10909); + var $10910 = $10913; + break; + }; + var $10908 = $10910; + break; + case 'Parser.Reply.value': + var $10914 = self.pst; + var $10915 = self.val; + var self = $10914; + switch (self._) { + case 'Parser.State.new': + var $10917 = self.err; + var $10918 = self.nam; + var $10919 = self.ini; + var $10920 = self.idx; + var $10921 = self.str; + var _reply$pst$103 = Parser$State$new$(Parser$Error$maybe_combine$($10907, $10917), $10918, $10919, $10920, $10921); + var self = _reply$pst$103; + switch (self._) { + case 'Parser.State.new': + var $10923 = self.err; + var _reply$109 = Parser$get_idx$(_reply$pst$103); + var self = _reply$109; + switch (self._) { + case 'Parser.Reply.error': + var $10925 = self.err; + var self = $10923; + switch (self._) { + case 'Maybe.some': + var $10927 = self.value; + var $10928 = Parser$Reply$error$(Parser$Error$combine$($10927, $10925)); + var $10926 = $10928; + break; + case 'Maybe.none': + var $10929 = Parser$Reply$error$($10925); + var $10926 = $10929; + break; + }; + var $10924 = $10926; + break; + case 'Parser.Reply.value': + var $10930 = self.pst; + var $10931 = self.val; + var self = $10930; + switch (self._) { + case 'Parser.State.new': + var $10933 = self.err; + var $10934 = self.nam; + var $10935 = self.ini; + var $10936 = self.idx; + var $10937 = self.str; + var _reply$pst$117 = Parser$State$new$(Parser$Error$maybe_combine$($10923, $10933), $10934, $10935, $10936, $10937); + var _orig$118 = Pair$new$($10836, $10931); + var _arit$119 = (list_length(_args$61)); + var _type$120 = Kind$Parser$forall$make$(_args$61, $10899); + var _term$121 = Kind$Parser$lambda$make$(List$mapped$(_args$61, (_x$121 => { + var self = _x$121; + switch (self._) { + case 'Kind.Binder.new': + var $10940 = self.name; + var $10941 = $10940; + var $10939 = $10941; + break; + }; + return $10939; + })), $10915); + var _type$122 = Kind$Term$bind$(List$nil, (_x$122 => { + var $10942 = (_x$122 + '1'); + return $10942; + }), _type$120); + var _term$123 = Kind$Term$bind$(List$nil, (_x$123 => { + var $10943 = (_x$123 + '0'); + return $10943; + }), _term$121); + var _defs$124 = Kind$Map$def$(_file$1, _code$2, _orig$118, $10852, _term$123, _type$122, Bool$false, _arit$119, Bool$false, _defs$3); + var $10938 = Parser$Reply$value$(_reply$pst$117, _defs$124); + var $10932 = $10938; + break; + }; + var $10924 = $10932; + break; + }; + var $10922 = $10924; + break; + }; + var $10916 = $10922; + break; + }; + var $10908 = $10916; + break; + }; + var $10906 = $10908; + break; + }; + var $10900 = $10906; + break; + }; + var $10892 = $10900; + break; + }; + var $10890 = $10892; + break; + }; + var $10884 = $10890; + break; + }; + var $10877 = $10884; + break; + }; + var $10875 = $10877; + break; + }; + var $10869 = $10875; + break; + }; + var $10861 = $10869; + break; + }; + var $10859 = $10861; + break; + }; + var $10853 = $10859; + break; + }; + var $10845 = $10853; + break; + }; + var $10843 = $10845; + break; + }; + var $10837 = $10843; + break; + }; + var $10829 = $10837; break; }; - return $12090; - })())); - return $12089; - })())); - var $12082 = $12088; + var $10827 = $10829; + break; + }; + var $10821 = $10827; break; }; - var $12075 = $12082; + var $10814 = $10821; break; }; - var $12073 = $12075; + var $10812 = $10814; break; }; - return $12073; + return $10812; }; const Kind$Parser$file$def = x0 => x1 => x2 => x3 => Kind$Parser$file$def$(x0, x1, x2, x3); function Kind$Parser$ADT$Constructor$new$(_name$1, _args$2, _inds$3) { - var $12221 = ({ + var $10944 = ({ _: 'Kind.Parser.ADT.Constructor.new', 'name': _name$1, 'args': _args$2, 'inds': _inds$3 }); - return $12221; + return $10944; }; const Kind$Parser$ADT$Constructor$new = x0 => x1 => x2 => Kind$Parser$ADT$Constructor$new$(x0, x1, x2); @@ -38219,214 +34194,190 @@ module.exports = (function() { var self = _pst$2; switch (self._) { case 'Parser.State.new': - var $12223 = self.err; + var $10946 = self.err; var _reply$8 = Kind$Parser$name1$(_pst$2); var self = _reply$8; switch (self._) { case 'Parser.Reply.error': - var $12225 = self.err; - var self = $12223; + var $10948 = self.err; + var self = $10946; switch (self._) { case 'Maybe.some': - var $12227 = self.value; - var $12228 = Parser$Reply$error$(Parser$Error$combine$($12227, $12225)); - var $12226 = $12228; + var $10950 = self.value; + var $10951 = Parser$Reply$error$(Parser$Error$combine$($10950, $10948)); + var $10949 = $10951; break; case 'Maybe.none': - var $12229 = Parser$Reply$error$($12225); - var $12226 = $12229; + var $10952 = Parser$Reply$error$($10948); + var $10949 = $10952; break; }; - var $12224 = $12226; + var $10947 = $10949; break; case 'Parser.Reply.value': - var $12230 = self.pst; - var $12231 = self.val; - var self = $12230; + var $10953 = self.pst; + var $10954 = self.val; + var self = $10953; switch (self._) { case 'Parser.State.new': - var $12233 = self.err; - var $12234 = self.nam; - var $12235 = self.ini; - var $12236 = self.idx; - var $12237 = self.str; - var $12238 = ((console.log(("FALTANDO " + $12237)), (_$16 => { - var $12239 = ((console.log(("VALUE " + $12234)), (_$17 => { - var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($12223, $12233), $12234, $12235, $12236, $12237); - var self = _reply$pst$18; + var $10956 = self.err; + var $10957 = self.nam; + var $10958 = self.ini; + var $10959 = self.idx; + var $10960 = self.str; + var _reply$pst$16 = Parser$State$new$(Parser$Error$maybe_combine$($10946, $10956), $10957, $10958, $10959, $10960); + var self = _reply$pst$16; + switch (self._) { + case 'Parser.State.new': + var $10962 = self.err; + var _reply$22 = Parser$maybe$(Kind$Parser$binder(":"), _reply$pst$16); + var self = _reply$22; switch (self._) { - case 'Parser.State.new': - var $12241 = self.err; - var _reply$24 = Parser$maybe$(Kind$Parser$binder(":"), _reply$pst$18); - var self = _reply$24; + case 'Parser.Reply.error': + var $10964 = self.err; + var self = $10962; switch (self._) { - case 'Parser.Reply.error': - var $12243 = self.err; - var self = $12241; - switch (self._) { - case 'Maybe.some': - var $12245 = self.value; - var $12246 = Parser$Reply$error$(Parser$Error$combine$($12245, $12243)); - var $12244 = $12246; - break; - case 'Maybe.none': - var $12247 = Parser$Reply$error$($12243); - var $12244 = $12247; - break; - }; - var $12242 = $12244; + case 'Maybe.some': + var $10966 = self.value; + var $10967 = Parser$Reply$error$(Parser$Error$combine$($10966, $10964)); + var $10965 = $10967; break; - case 'Parser.Reply.value': - var $12248 = self.pst; - var $12249 = self.val; - var self = $12248; - switch (self._) { - case 'Parser.State.new': - var $12251 = self.err; - var $12252 = self.nam; - var $12253 = self.ini; - var $12254 = self.idx; - var $12255 = self.str; - var $12256 = ((console.log(("FALTANDO " + $12255)), (_$32 => { - var $12257 = ((console.log(("VALUE " + $12252)), (_$33 => { - var _reply$pst$34 = Parser$State$new$(Parser$Error$maybe_combine$($12241, $12251), $12252, $12253, $12254, $12255); - var self = _reply$pst$34; - switch (self._) { - case 'Parser.State.new': - var $12259 = self.err; - var _reply$40 = Parser$maybe$((_pst$40 => { - var self = _pst$40; - switch (self._) { - case 'Parser.State.new': - var $12262 = self.err; - var _reply$46 = Kind$Parser$text$("~", _pst$40); - var self = _reply$46; - switch (self._) { - case 'Parser.Reply.error': - var $12264 = self.err; - var self = $12262; - switch (self._) { - case 'Maybe.some': - var $12266 = self.value; - var $12267 = Parser$Reply$error$(Parser$Error$combine$($12266, $12264)); - var $12265 = $12267; - break; - case 'Maybe.none': - var $12268 = Parser$Reply$error$($12264); - var $12265 = $12268; - break; - }; - var $12263 = $12265; - break; - case 'Parser.Reply.value': - var $12269 = self.pst; - var self = $12269; - switch (self._) { - case 'Parser.State.new': - var $12271 = self.err; - var $12272 = self.nam; - var $12273 = self.ini; - var $12274 = self.idx; - var $12275 = self.str; - var $12276 = ((console.log(("FALTANDO " + $12275)), (_$54 => { - var $12277 = ((console.log(("VALUE " + $12272)), (_$55 => { - var _reply$pst$56 = Parser$State$new$(Parser$Error$maybe_combine$($12262, $12271), $12272, $12273, $12274, $12275); - var $12278 = Kind$Parser$binder$("=", _reply$pst$56); - return $12278; - })())); - return $12277; - })())); - var $12270 = $12276; - break; - }; - var $12263 = $12270; - break; - }; - var $12261 = $12263; - break; - }; - return $12261; - }), _reply$pst$34); - var self = _reply$40; - switch (self._) { - case 'Parser.Reply.error': - var $12279 = self.err; - var self = $12259; - switch (self._) { - case 'Maybe.some': - var $12281 = self.value; - var $12282 = Parser$Reply$error$(Parser$Error$combine$($12281, $12279)); - var $12280 = $12282; - break; - case 'Maybe.none': - var $12283 = Parser$Reply$error$($12279); - var $12280 = $12283; - break; - }; - var $12260 = $12280; - break; - case 'Parser.Reply.value': - var $12284 = self.pst; - var $12285 = self.val; - var self = $12284; - switch (self._) { - case 'Parser.State.new': - var $12287 = self.err; - var $12288 = self.nam; - var $12289 = self.ini; - var $12290 = self.idx; - var $12291 = self.str; - var $12292 = ((console.log(("FALTANDO " + $12291)), (_$48 => { - var $12293 = ((console.log(("VALUE " + $12288)), (_$49 => { - var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($12259, $12287), $12288, $12289, $12290, $12291); - var _args$51 = Maybe$default$($12249, List$nil); - var _inds$52 = Maybe$default$($12285, List$nil); - var $12294 = Parser$Reply$value$(_reply$pst$50, Kind$Parser$ADT$Constructor$new$($12231, _args$51, _inds$52)); - return $12294; - })())); - return $12293; - })())); - var $12286 = $12292; - break; - }; - var $12260 = $12286; - break; - }; - var $12258 = $12260; - break; - }; - return $12258; - })())); - return $12257; - })())); - var $12250 = $12256; - break; - }; - var $12242 = $12250; + case 'Maybe.none': + var $10968 = Parser$Reply$error$($10964); + var $10965 = $10968; break; }; - var $12240 = $12242; + var $10963 = $10965; + break; + case 'Parser.Reply.value': + var $10969 = self.pst; + var $10970 = self.val; + var self = $10969; + switch (self._) { + case 'Parser.State.new': + var $10972 = self.err; + var $10973 = self.nam; + var $10974 = self.ini; + var $10975 = self.idx; + var $10976 = self.str; + var _reply$pst$30 = Parser$State$new$(Parser$Error$maybe_combine$($10962, $10972), $10973, $10974, $10975, $10976); + var self = _reply$pst$30; + switch (self._) { + case 'Parser.State.new': + var $10978 = self.err; + var _reply$36 = Parser$maybe$((_pst$36 => { + var self = _pst$36; + switch (self._) { + case 'Parser.State.new': + var $10981 = self.err; + var _reply$42 = Kind$Parser$text$("~", _pst$36); + var self = _reply$42; + switch (self._) { + case 'Parser.Reply.error': + var $10983 = self.err; + var self = $10981; + switch (self._) { + case 'Maybe.some': + var $10985 = self.value; + var $10986 = Parser$Reply$error$(Parser$Error$combine$($10985, $10983)); + var $10984 = $10986; + break; + case 'Maybe.none': + var $10987 = Parser$Reply$error$($10983); + var $10984 = $10987; + break; + }; + var $10982 = $10984; + break; + case 'Parser.Reply.value': + var $10988 = self.pst; + var self = $10988; + switch (self._) { + case 'Parser.State.new': + var $10990 = self.err; + var $10991 = self.nam; + var $10992 = self.ini; + var $10993 = self.idx; + var $10994 = self.str; + var _reply$pst$50 = Parser$State$new$(Parser$Error$maybe_combine$($10981, $10990), $10991, $10992, $10993, $10994); + var $10995 = Kind$Parser$binder$("=", _reply$pst$50); + var $10989 = $10995; + break; + }; + var $10982 = $10989; + break; + }; + var $10980 = $10982; + break; + }; + return $10980; + }), _reply$pst$30); + var self = _reply$36; + switch (self._) { + case 'Parser.Reply.error': + var $10996 = self.err; + var self = $10978; + switch (self._) { + case 'Maybe.some': + var $10998 = self.value; + var $10999 = Parser$Reply$error$(Parser$Error$combine$($10998, $10996)); + var $10997 = $10999; + break; + case 'Maybe.none': + var $11000 = Parser$Reply$error$($10996); + var $10997 = $11000; + break; + }; + var $10979 = $10997; + break; + case 'Parser.Reply.value': + var $11001 = self.pst; + var $11002 = self.val; + var self = $11001; + switch (self._) { + case 'Parser.State.new': + var $11004 = self.err; + var $11005 = self.nam; + var $11006 = self.ini; + var $11007 = self.idx; + var $11008 = self.str; + var _reply$pst$44 = Parser$State$new$(Parser$Error$maybe_combine$($10978, $11004), $11005, $11006, $11007, $11008); + var _args$45 = Maybe$default$($10970, List$nil); + var _inds$46 = Maybe$default$($11002, List$nil); + var $11009 = Parser$Reply$value$(_reply$pst$44, Kind$Parser$ADT$Constructor$new$($10954, _args$45, _inds$46)); + var $11003 = $11009; + break; + }; + var $10979 = $11003; + break; + }; + var $10977 = $10979; + break; + }; + var $10971 = $10977; + break; + }; + var $10963 = $10971; break; }; - return $12240; - })())); - return $12239; - })())); - var $12232 = $12238; + var $10961 = $10963; + break; + }; + var $10955 = $10961; break; }; - var $12224 = $12232; + var $10947 = $10955; break; }; - var $12222 = $12224; + var $10945 = $10947; break; }; - return $12222; + return $10945; }; const Kind$Parser$ADT$ctor = x0 => x1 => Kind$Parser$ADT$ctor$(x0, x1); function Kind$Parser$ADT$Datatype$new$(_name$1, _pars$2, _inds$3, _ctrs$4, _deri$5) { - var $12295 = ({ + var $11010 = ({ _: 'Kind.Parser.ADT.Datatype.new', 'name': _name$1, 'pars': _pars$2, @@ -38434,7 +34385,7 @@ module.exports = (function() { 'ctrs': _ctrs$4, 'deri': _deri$5 }); - return $12295; + return $11010; }; const Kind$Parser$ADT$Datatype$new = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Datatype$new$(x0, x1, x2, x3, x4); @@ -38442,422 +34393,374 @@ module.exports = (function() { var self = _pst$1; switch (self._) { case 'Parser.State.new': - var $12297 = self.err; + var $11012 = self.err; var _reply$7 = Kind$Parser$text$("type ", _pst$1); var self = _reply$7; switch (self._) { case 'Parser.Reply.error': - var $12299 = self.err; - var self = $12297; + var $11014 = self.err; + var self = $11012; switch (self._) { case 'Maybe.some': - var $12301 = self.value; - var $12302 = Parser$Reply$error$(Parser$Error$combine$($12301, $12299)); - var $12300 = $12302; + var $11016 = self.value; + var $11017 = Parser$Reply$error$(Parser$Error$combine$($11016, $11014)); + var $11015 = $11017; break; case 'Maybe.none': - var $12303 = Parser$Reply$error$($12299); - var $12300 = $12303; + var $11018 = Parser$Reply$error$($11014); + var $11015 = $11018; break; }; - var $12298 = $12300; + var $11013 = $11015; break; case 'Parser.Reply.value': - var $12304 = self.pst; - var self = $12304; + var $11019 = self.pst; + var self = $11019; switch (self._) { case 'Parser.State.new': - var $12306 = self.err; - var $12307 = self.nam; - var $12308 = self.ini; - var $12309 = self.idx; - var $12310 = self.str; - var $12311 = ((console.log(("FALTANDO " + $12310)), (_$15 => { - var $12312 = ((console.log(("VALUE " + $12307)), (_$16 => { - var _reply$pst$17 = Parser$State$new$(Parser$Error$maybe_combine$($12297, $12306), $12307, $12308, $12309, $12310); - var self = _reply$pst$17; + var $11021 = self.err; + var $11022 = self.nam; + var $11023 = self.ini; + var $11024 = self.idx; + var $11025 = self.str; + var _reply$pst$15 = Parser$State$new$(Parser$Error$maybe_combine$($11012, $11021), $11022, $11023, $11024, $11025); + var self = _reply$pst$15; + switch (self._) { + case 'Parser.State.new': + var $11027 = self.err; + var _reply$21 = Kind$Parser$name1$(_reply$pst$15); + var self = _reply$21; switch (self._) { - case 'Parser.State.new': - var $12314 = self.err; - var _reply$23 = Kind$Parser$name1$(_reply$pst$17); - var self = _reply$23; + case 'Parser.Reply.error': + var $11029 = self.err; + var self = $11027; switch (self._) { - case 'Parser.Reply.error': - var $12316 = self.err; - var self = $12314; - switch (self._) { - case 'Maybe.some': - var $12318 = self.value; - var $12319 = Parser$Reply$error$(Parser$Error$combine$($12318, $12316)); - var $12317 = $12319; - break; - case 'Maybe.none': - var $12320 = Parser$Reply$error$($12316); - var $12317 = $12320; - break; - }; - var $12315 = $12317; + case 'Maybe.some': + var $11031 = self.value; + var $11032 = Parser$Reply$error$(Parser$Error$combine$($11031, $11029)); + var $11030 = $11032; break; - case 'Parser.Reply.value': - var $12321 = self.pst; - var $12322 = self.val; - var self = $12321; - switch (self._) { - case 'Parser.State.new': - var $12324 = self.err; - var $12325 = self.nam; - var $12326 = self.ini; - var $12327 = self.idx; - var $12328 = self.str; - var $12329 = ((console.log(("FALTANDO " + $12328)), (_$31 => { - var $12330 = ((console.log(("VALUE " + $12325)), (_$32 => { - var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($12314, $12324), $12325, $12326, $12327, $12328); - var self = _reply$pst$33; - switch (self._) { - case 'Parser.State.new': - var $12332 = self.err; - var _reply$39 = Parser$maybe$(Kind$Parser$binder(":"), _reply$pst$33); - var self = _reply$39; - switch (self._) { - case 'Parser.Reply.error': - var $12334 = self.err; - var self = $12332; - switch (self._) { - case 'Maybe.some': - var $12336 = self.value; - var $12337 = Parser$Reply$error$(Parser$Error$combine$($12336, $12334)); - var $12335 = $12337; - break; - case 'Maybe.none': - var $12338 = Parser$Reply$error$($12334); - var $12335 = $12338; - break; - }; - var $12333 = $12335; - break; - case 'Parser.Reply.value': - var $12339 = self.pst; - var $12340 = self.val; - var self = $12339; - switch (self._) { - case 'Parser.State.new': - var $12342 = self.err; - var $12343 = self.nam; - var $12344 = self.ini; - var $12345 = self.idx; - var $12346 = self.str; - var $12347 = ((console.log(("FALTANDO " + $12346)), (_$47 => { - var $12348 = ((console.log(("VALUE " + $12343)), (_$48 => { - var _reply$pst$49 = Parser$State$new$(Parser$Error$maybe_combine$($12332, $12342), $12343, $12344, $12345, $12346); - var self = _reply$pst$49; - switch (self._) { - case 'Parser.State.new': - var $12350 = self.err; - var _reply$55 = Parser$maybe$((_pst$55 => { - var self = _pst$55; - switch (self._) { - case 'Parser.State.new': - var $12353 = self.err; - var _reply$61 = Kind$Parser$text$("~", _pst$55); - var self = _reply$61; - switch (self._) { - case 'Parser.Reply.error': - var $12355 = self.err; - var self = $12353; - switch (self._) { - case 'Maybe.some': - var $12357 = self.value; - var $12358 = Parser$Reply$error$(Parser$Error$combine$($12357, $12355)); - var $12356 = $12358; - break; - case 'Maybe.none': - var $12359 = Parser$Reply$error$($12355); - var $12356 = $12359; - break; - }; - var $12354 = $12356; - break; - case 'Parser.Reply.value': - var $12360 = self.pst; - var self = $12360; - switch (self._) { - case 'Parser.State.new': - var $12362 = self.err; - var $12363 = self.nam; - var $12364 = self.ini; - var $12365 = self.idx; - var $12366 = self.str; - var $12367 = ((console.log(("FALTANDO " + $12366)), (_$69 => { - var $12368 = ((console.log(("VALUE " + $12363)), (_$70 => { - var _reply$pst$71 = Parser$State$new$(Parser$Error$maybe_combine$($12353, $12362), $12363, $12364, $12365, $12366); - var $12369 = Kind$Parser$binder$(":", _reply$pst$71); - return $12369; - })())); - return $12368; - })())); - var $12361 = $12367; - break; - }; - var $12354 = $12361; - break; - }; - var $12352 = $12354; - break; - }; - return $12352; - }), _reply$pst$49); - var self = _reply$55; - switch (self._) { - case 'Parser.Reply.error': - var $12370 = self.err; - var self = $12350; - switch (self._) { - case 'Maybe.some': - var $12372 = self.value; - var $12373 = Parser$Reply$error$(Parser$Error$combine$($12372, $12370)); - var $12371 = $12373; - break; - case 'Maybe.none': - var $12374 = Parser$Reply$error$($12370); - var $12371 = $12374; - break; - }; - var $12351 = $12371; - break; - case 'Parser.Reply.value': - var $12375 = self.pst; - var $12376 = self.val; - var self = $12375; - switch (self._) { - case 'Parser.State.new': - var $12378 = self.err; - var $12379 = self.nam; - var $12380 = self.ini; - var $12381 = self.idx; - var $12382 = self.str; - var $12383 = ((console.log(("FALTANDO " + $12382)), (_$63 => { - var $12384 = ((console.log(("VALUE " + $12379)), (_$64 => { - var _reply$pst$65 = Parser$State$new$(Parser$Error$maybe_combine$($12350, $12378), $12379, $12380, $12381, $12382); - var _pars$66 = Maybe$default$($12340, List$nil); - var _inds$67 = Maybe$default$($12376, List$nil); - var self = _reply$pst$65; - switch (self._) { - case 'Parser.State.new': - var $12386 = self.err; - var _reply$73 = Kind$Parser$items$("{", Kind$Parser$ADT$ctor($12322), "}")(_reply$pst$65); - var self = _reply$73; - switch (self._) { - case 'Parser.Reply.error': - var $12388 = self.err; - var self = $12386; - switch (self._) { - case 'Maybe.some': - var $12390 = self.value; - var $12391 = Parser$Reply$error$(Parser$Error$combine$($12390, $12388)); - var $12389 = $12391; - break; - case 'Maybe.none': - var $12392 = Parser$Reply$error$($12388); - var $12389 = $12392; - break; - }; - var $12387 = $12389; - break; - case 'Parser.Reply.value': - var $12393 = self.pst; - var $12394 = self.val; - var self = $12393; - switch (self._) { - case 'Parser.State.new': - var $12396 = self.err; - var $12397 = self.nam; - var $12398 = self.ini; - var $12399 = self.idx; - var $12400 = self.str; - var $12401 = ((console.log(("FALTANDO " + $12400)), (_$81 => { - var $12402 = ((console.log(("VALUE " + $12397)), (_$82 => { - var _reply$pst$83 = Parser$State$new$(Parser$Error$maybe_combine$($12386, $12396), $12397, $12398, $12399, $12400); - var self = _reply$pst$83; - switch (self._) { - case 'Parser.State.new': - var $12404 = self.err; - var _reply$89 = Parser$maybe$((_pst$89 => { - var self = _pst$89; - switch (self._) { - case 'Parser.State.new': - var $12407 = self.err; - var _reply$95 = Kind$Parser$text$("deriving", _pst$89); - var self = _reply$95; - switch (self._) { - case 'Parser.Reply.error': - var $12409 = self.err; - var self = $12407; - switch (self._) { - case 'Maybe.some': - var $12411 = self.value; - var $12412 = Parser$Reply$error$(Parser$Error$combine$($12411, $12409)); - var $12410 = $12412; - break; - case 'Maybe.none': - var $12413 = Parser$Reply$error$($12409); - var $12410 = $12413; - break; - }; - var $12408 = $12410; - break; - case 'Parser.Reply.value': - var $12414 = self.pst; - var self = $12414; - switch (self._) { - case 'Parser.State.new': - var $12416 = self.err; - var $12417 = self.nam; - var $12418 = self.ini; - var $12419 = self.idx; - var $12420 = self.str; - var $12421 = ((console.log(("FALTANDO " + $12420)), (_$103 => { - var $12422 = ((console.log(("VALUE " + $12417)), (_$104 => { - var _reply$pst$105 = Parser$State$new$(Parser$Error$maybe_combine$($12407, $12416), $12417, $12418, $12419, $12420); - var $12423 = Kind$Parser$items$("(", Kind$Parser$name1, ")")(_reply$pst$105); - return $12423; - })())); - return $12422; - })())); - var $12415 = $12421; - break; - }; - var $12408 = $12415; - break; - }; - var $12406 = $12408; - break; - }; - return $12406; - }), _reply$pst$83); - var self = _reply$89; - switch (self._) { - case 'Parser.Reply.error': - var $12424 = self.err; - var self = $12404; - switch (self._) { - case 'Maybe.some': - var $12426 = self.value; - var $12427 = Parser$Reply$error$(Parser$Error$combine$($12426, $12424)); - var $12425 = $12427; - break; - case 'Maybe.none': - var $12428 = Parser$Reply$error$($12424); - var $12425 = $12428; - break; - }; - var $12405 = $12425; - break; - case 'Parser.Reply.value': - var $12429 = self.pst; - var $12430 = self.val; - var self = $12429; - switch (self._) { - case 'Parser.State.new': - var $12432 = self.err; - var $12433 = self.nam; - var $12434 = self.ini; - var $12435 = self.idx; - var $12436 = self.str; - var $12437 = ((console.log(("FALTANDO " + $12436)), (_$97 => { - var $12438 = ((console.log(("VALUE " + $12433)), (_$98 => { - var _reply$pst$99 = Parser$State$new$(Parser$Error$maybe_combine$($12404, $12432), $12433, $12434, $12435, $12436); - var self = $12430; - switch (self._) { - case 'Maybe.some': - var $12440 = self.value; - var $12441 = $12440; - var _deri$100 = $12441; - break; - case 'Maybe.none': - var $12442 = List$nil; - var _deri$100 = $12442; - break; - }; - var $12439 = Parser$Reply$value$(_reply$pst$99, Kind$Parser$ADT$Datatype$new$($12322, _pars$66, _inds$67, $12394, _deri$100)); - return $12439; - })())); - return $12438; - })())); - var $12431 = $12437; - break; - }; - var $12405 = $12431; - break; - }; - var $12403 = $12405; - break; - }; - return $12403; - })())); - return $12402; - })())); - var $12395 = $12401; - break; - }; - var $12387 = $12395; - break; - }; - var $12385 = $12387; - break; - }; - return $12385; - })())); - return $12384; - })())); - var $12377 = $12383; - break; - }; - var $12351 = $12377; - break; - }; - var $12349 = $12351; - break; - }; - return $12349; - })())); - return $12348; - })())); - var $12341 = $12347; - break; - }; - var $12333 = $12341; - break; - }; - var $12331 = $12333; - break; - }; - return $12331; - })())); - return $12330; - })())); - var $12323 = $12329; - break; - }; - var $12315 = $12323; + case 'Maybe.none': + var $11033 = Parser$Reply$error$($11029); + var $11030 = $11033; break; }; - var $12313 = $12315; + var $11028 = $11030; + break; + case 'Parser.Reply.value': + var $11034 = self.pst; + var $11035 = self.val; + var self = $11034; + switch (self._) { + case 'Parser.State.new': + var $11037 = self.err; + var $11038 = self.nam; + var $11039 = self.ini; + var $11040 = self.idx; + var $11041 = self.str; + var _reply$pst$29 = Parser$State$new$(Parser$Error$maybe_combine$($11027, $11037), $11038, $11039, $11040, $11041); + var self = _reply$pst$29; + switch (self._) { + case 'Parser.State.new': + var $11043 = self.err; + var _reply$35 = Parser$maybe$(Kind$Parser$binder(":"), _reply$pst$29); + var self = _reply$35; + switch (self._) { + case 'Parser.Reply.error': + var $11045 = self.err; + var self = $11043; + switch (self._) { + case 'Maybe.some': + var $11047 = self.value; + var $11048 = Parser$Reply$error$(Parser$Error$combine$($11047, $11045)); + var $11046 = $11048; + break; + case 'Maybe.none': + var $11049 = Parser$Reply$error$($11045); + var $11046 = $11049; + break; + }; + var $11044 = $11046; + break; + case 'Parser.Reply.value': + var $11050 = self.pst; + var $11051 = self.val; + var self = $11050; + switch (self._) { + case 'Parser.State.new': + var $11053 = self.err; + var $11054 = self.nam; + var $11055 = self.ini; + var $11056 = self.idx; + var $11057 = self.str; + var _reply$pst$43 = Parser$State$new$(Parser$Error$maybe_combine$($11043, $11053), $11054, $11055, $11056, $11057); + var self = _reply$pst$43; + switch (self._) { + case 'Parser.State.new': + var $11059 = self.err; + var _reply$49 = Parser$maybe$((_pst$49 => { + var self = _pst$49; + switch (self._) { + case 'Parser.State.new': + var $11062 = self.err; + var _reply$55 = Kind$Parser$text$("~", _pst$49); + var self = _reply$55; + switch (self._) { + case 'Parser.Reply.error': + var $11064 = self.err; + var self = $11062; + switch (self._) { + case 'Maybe.some': + var $11066 = self.value; + var $11067 = Parser$Reply$error$(Parser$Error$combine$($11066, $11064)); + var $11065 = $11067; + break; + case 'Maybe.none': + var $11068 = Parser$Reply$error$($11064); + var $11065 = $11068; + break; + }; + var $11063 = $11065; + break; + case 'Parser.Reply.value': + var $11069 = self.pst; + var self = $11069; + switch (self._) { + case 'Parser.State.new': + var $11071 = self.err; + var $11072 = self.nam; + var $11073 = self.ini; + var $11074 = self.idx; + var $11075 = self.str; + var _reply$pst$63 = Parser$State$new$(Parser$Error$maybe_combine$($11062, $11071), $11072, $11073, $11074, $11075); + var $11076 = Kind$Parser$binder$(":", _reply$pst$63); + var $11070 = $11076; + break; + }; + var $11063 = $11070; + break; + }; + var $11061 = $11063; + break; + }; + return $11061; + }), _reply$pst$43); + var self = _reply$49; + switch (self._) { + case 'Parser.Reply.error': + var $11077 = self.err; + var self = $11059; + switch (self._) { + case 'Maybe.some': + var $11079 = self.value; + var $11080 = Parser$Reply$error$(Parser$Error$combine$($11079, $11077)); + var $11078 = $11080; + break; + case 'Maybe.none': + var $11081 = Parser$Reply$error$($11077); + var $11078 = $11081; + break; + }; + var $11060 = $11078; + break; + case 'Parser.Reply.value': + var $11082 = self.pst; + var $11083 = self.val; + var self = $11082; + switch (self._) { + case 'Parser.State.new': + var $11085 = self.err; + var $11086 = self.nam; + var $11087 = self.ini; + var $11088 = self.idx; + var $11089 = self.str; + var _reply$pst$57 = Parser$State$new$(Parser$Error$maybe_combine$($11059, $11085), $11086, $11087, $11088, $11089); + var _pars$58 = Maybe$default$($11051, List$nil); + var _inds$59 = Maybe$default$($11083, List$nil); + var self = _reply$pst$57; + switch (self._) { + case 'Parser.State.new': + var $11091 = self.err; + var _reply$65 = Kind$Parser$items$("{", Kind$Parser$ADT$ctor($11035), "}")(_reply$pst$57); + var self = _reply$65; + switch (self._) { + case 'Parser.Reply.error': + var $11093 = self.err; + var self = $11091; + switch (self._) { + case 'Maybe.some': + var $11095 = self.value; + var $11096 = Parser$Reply$error$(Parser$Error$combine$($11095, $11093)); + var $11094 = $11096; + break; + case 'Maybe.none': + var $11097 = Parser$Reply$error$($11093); + var $11094 = $11097; + break; + }; + var $11092 = $11094; + break; + case 'Parser.Reply.value': + var $11098 = self.pst; + var $11099 = self.val; + var self = $11098; + switch (self._) { + case 'Parser.State.new': + var $11101 = self.err; + var $11102 = self.nam; + var $11103 = self.ini; + var $11104 = self.idx; + var $11105 = self.str; + var _reply$pst$73 = Parser$State$new$(Parser$Error$maybe_combine$($11091, $11101), $11102, $11103, $11104, $11105); + var self = _reply$pst$73; + switch (self._) { + case 'Parser.State.new': + var $11107 = self.err; + var _reply$79 = Parser$maybe$((_pst$79 => { + var self = _pst$79; + switch (self._) { + case 'Parser.State.new': + var $11110 = self.err; + var _reply$85 = Kind$Parser$text$("deriving", _pst$79); + var self = _reply$85; + switch (self._) { + case 'Parser.Reply.error': + var $11112 = self.err; + var self = $11110; + switch (self._) { + case 'Maybe.some': + var $11114 = self.value; + var $11115 = Parser$Reply$error$(Parser$Error$combine$($11114, $11112)); + var $11113 = $11115; + break; + case 'Maybe.none': + var $11116 = Parser$Reply$error$($11112); + var $11113 = $11116; + break; + }; + var $11111 = $11113; + break; + case 'Parser.Reply.value': + var $11117 = self.pst; + var self = $11117; + switch (self._) { + case 'Parser.State.new': + var $11119 = self.err; + var $11120 = self.nam; + var $11121 = self.ini; + var $11122 = self.idx; + var $11123 = self.str; + var _reply$pst$93 = Parser$State$new$(Parser$Error$maybe_combine$($11110, $11119), $11120, $11121, $11122, $11123); + var $11124 = Kind$Parser$items$("(", Kind$Parser$name1, ")")(_reply$pst$93); + var $11118 = $11124; + break; + }; + var $11111 = $11118; + break; + }; + var $11109 = $11111; + break; + }; + return $11109; + }), _reply$pst$73); + var self = _reply$79; + switch (self._) { + case 'Parser.Reply.error': + var $11125 = self.err; + var self = $11107; + switch (self._) { + case 'Maybe.some': + var $11127 = self.value; + var $11128 = Parser$Reply$error$(Parser$Error$combine$($11127, $11125)); + var $11126 = $11128; + break; + case 'Maybe.none': + var $11129 = Parser$Reply$error$($11125); + var $11126 = $11129; + break; + }; + var $11108 = $11126; + break; + case 'Parser.Reply.value': + var $11130 = self.pst; + var $11131 = self.val; + var self = $11130; + switch (self._) { + case 'Parser.State.new': + var $11133 = self.err; + var $11134 = self.nam; + var $11135 = self.ini; + var $11136 = self.idx; + var $11137 = self.str; + var _reply$pst$87 = Parser$State$new$(Parser$Error$maybe_combine$($11107, $11133), $11134, $11135, $11136, $11137); + var self = $11131; + switch (self._) { + case 'Maybe.some': + var $11139 = self.value; + var $11140 = $11139; + var _deri$88 = $11140; + break; + case 'Maybe.none': + var $11141 = List$nil; + var _deri$88 = $11141; + break; + }; + var $11138 = Parser$Reply$value$(_reply$pst$87, Kind$Parser$ADT$Datatype$new$($11035, _pars$58, _inds$59, $11099, _deri$88)); + var $11132 = $11138; + break; + }; + var $11108 = $11132; + break; + }; + var $11106 = $11108; + break; + }; + var $11100 = $11106; + break; + }; + var $11092 = $11100; + break; + }; + var $11090 = $11092; + break; + }; + var $11084 = $11090; + break; + }; + var $11060 = $11084; + break; + }; + var $11058 = $11060; + break; + }; + var $11052 = $11058; + break; + }; + var $11044 = $11052; + break; + }; + var $11042 = $11044; + break; + }; + var $11036 = $11042; + break; + }; + var $11028 = $11036; break; }; - return $12313; - })())); - return $12312; - })())); - var $12305 = $12311; + var $11026 = $11028; + break; + }; + var $11020 = $11026; break; }; - var $12298 = $12305; + var $11013 = $11020; break; }; - var $12296 = $12298; + var $11011 = $11013; break; }; - return $12296; + return $11011; }; const Kind$Parser$ADT$adt = x0 => Kind$Parser$ADT$adt$(x0); @@ -38865,83 +34768,83 @@ module.exports = (function() { var self = _inds$3; switch (self._) { case 'List.cons': - var $12444 = self.head; - var $12445 = self.tail; - var self = $12444; + var $11143 = self.head; + var $11144 = self.tail; + var self = $11143; switch (self._) { case 'Kind.Binder.new': - var $12447 = self.eras; - var $12448 = self.name; - var $12449 = self.term; - var $12450 = Kind$Term$all$($12447, "", $12448, $12449, (_s$9 => _x$10 => { - var $12451 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, _name$2, $12445); - return $12451; + var $11146 = self.eras; + var $11147 = self.name; + var $11148 = self.term; + var $11149 = Kind$Term$all$($11146, "", $11147, $11148, (_s$9 => _x$10 => { + var $11150 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, _name$2, $11144); + return $11150; })); - var $12446 = $12450; + var $11145 = $11149; break; }; - var $12443 = $12446; + var $11142 = $11145; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12453 = self.pars; - var $12454 = self.inds; + var $11152 = self.pars; + var $11153 = self.inds; var _slf$9 = Kind$Term$ref$(_name$2); var _slf$10 = (() => { - var $12457 = _slf$9; - var $12458 = $12453; - let _slf$11 = $12457; + var $11156 = _slf$9; + var $11157 = $11152; + let _slf$11 = $11156; let _v$10; - while ($12458._ === 'List.cons') { - _v$10 = $12458.head; - var $12457 = Kind$Term$app$(_slf$11, Kind$Term$ref$((() => { + while ($11157._ === 'List.cons') { + _v$10 = $11157.head; + var $11156 = Kind$Term$app$(_slf$11, Kind$Term$ref$((() => { var self = _v$10; switch (self._) { case 'Kind.Binder.new': - var $12459 = self.name; - var $12460 = $12459; - return $12460; + var $11158 = self.name; + var $11159 = $11158; + return $11159; }; })())); - _slf$11 = $12457; - $12458 = $12458.tail; + _slf$11 = $11156; + $11157 = $11157.tail; } return _slf$11; })(); var _slf$11 = (() => { - var $12462 = _slf$10; - var $12463 = $12454; - let _slf$12 = $12462; + var $11161 = _slf$10; + var $11162 = $11153; + let _slf$12 = $11161; let _v$11; - while ($12463._ === 'List.cons') { - _v$11 = $12463.head; - var $12462 = Kind$Term$app$(_slf$12, Kind$Term$ref$((() => { + while ($11162._ === 'List.cons') { + _v$11 = $11162.head; + var $11161 = Kind$Term$app$(_slf$12, Kind$Term$ref$((() => { var self = _v$11; switch (self._) { case 'Kind.Binder.new': - var $12464 = self.name; - var $12465 = $12464; - return $12465; + var $11163 = self.name; + var $11164 = $11163; + return $11164; }; })())); - _slf$12 = $12462; - $12463 = $12463.tail; + _slf$12 = $11161; + $11162 = $11162.tail; } return _slf$12; })(); - var $12455 = Kind$Term$all$(Bool$false, "", "", _slf$11, (_s$12 => _x$13 => { - var $12466 = Kind$Term$typ; - return $12466; + var $11154 = Kind$Term$all$(Bool$false, "", "", _slf$11, (_s$12 => _x$13 => { + var $11165 = Kind$Term$typ; + return $11165; })); - var $12452 = $12455; + var $11151 = $11154; break; }; - var $12443 = $12452; + var $11142 = $11151; break; }; - return $12443; + return $11142; }; const Kind$Parser$ADT$Datatype$build_term$motive$go = x0 => x1 => x2 => Kind$Parser$ADT$Datatype$build_term$motive$go$(x0, x1, x2); @@ -38949,130 +34852,164 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12468 = self.name; - var $12469 = self.inds; - var $12470 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, $12468, $12469); - var $12467 = $12470; + var $11167 = self.name; + var $11168 = self.inds; + var $11169 = Kind$Parser$ADT$Datatype$build_term$motive$go$(_type$1, $11167, $11168); + var $11166 = $11169; break; }; - return $12467; + return $11166; }; const Kind$Parser$ADT$Datatype$build_term$motive = x0 => Kind$Parser$ADT$Datatype$build_term$motive$(x0); + function String$flatten$go$(_xs$1, _res$2) { + var String$flatten$go$ = (_xs$1, _res$2) => ({ + ctr: 'TCO', + arg: [_xs$1, _res$2] + }); + var String$flatten$go = _xs$1 => _res$2 => String$flatten$go$(_xs$1, _res$2); + var arg = [_xs$1, _res$2]; + while (true) { + let [_xs$1, _res$2] = arg; + var R = (() => { + var self = _xs$1; + switch (self._) { + case 'List.cons': + var $11170 = self.head; + var $11171 = self.tail; + var $11172 = String$flatten$go$($11171, (_res$2 + $11170)); + return $11172; + case 'List.nil': + var $11173 = _res$2; + return $11173; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const String$flatten$go = x0 => x1 => String$flatten$go$(x0, x1); + + function String$flatten$(_xs$1) { + var $11174 = String$flatten$go$(_xs$1, ""); + return $11174; + }; + const String$flatten = x0 => String$flatten$(x0); + function Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, _args$3) { var self = _args$3; switch (self._) { case 'List.cons': - var $12472 = self.head; - var $12473 = self.tail; - var self = $12472; + var $11176 = self.head; + var $11177 = self.tail; + var self = $11176; switch (self._) { case 'Kind.Binder.new': - var $12475 = self.eras; - var $12476 = self.name; - var $12477 = self.term; - var _eras$9 = $12475; - var _name$10 = $12476; - var _xtyp$11 = $12477; - var _body$12 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $12473); - var $12478 = Kind$Term$all$(_eras$9, "", _name$10, _xtyp$11, (_s$13 => _x$14 => { - var $12479 = _body$12; - return $12479; + var $11179 = self.eras; + var $11180 = self.name; + var $11181 = self.term; + var _eras$9 = $11179; + var _name$10 = $11180; + var _xtyp$11 = $11181; + var _body$12 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $11177); + var $11182 = Kind$Term$all$(_eras$9, "", _name$10, _xtyp$11, (_s$13 => _x$14 => { + var $11183 = _body$12; + return $11183; })); - var $12474 = $12478; + var $11178 = $11182; break; }; - var $12471 = $12474; + var $11175 = $11178; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12481 = self.name; - var $12482 = self.pars; + var $11185 = self.name; + var $11186 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12484 = self.name; - var $12485 = self.args; - var $12486 = self.inds; + var $11188 = self.name; + var $11189 = self.args; + var $11190 = self.inds; var _ret$12 = Kind$Term$ref$(Kind$Name$read$("P")); var _ret$13 = (() => { - var $12489 = _ret$12; - var $12490 = $12486; - let _ret$14 = $12489; + var $11193 = _ret$12; + var $11194 = $11190; + let _ret$14 = $11193; let _v$13; - while ($12490._ === 'List.cons') { - _v$13 = $12490.head; - var $12489 = Kind$Term$app$(_ret$14, (() => { + while ($11194._ === 'List.cons') { + _v$13 = $11194.head; + var $11193 = Kind$Term$app$(_ret$14, (() => { var self = _v$13; switch (self._) { case 'Kind.Binder.new': - var $12491 = self.term; - var $12492 = $12491; - return $12492; + var $11195 = self.term; + var $11196 = $11195; + return $11196; }; })()); - _ret$14 = $12489; - $12490 = $12490.tail; + _ret$14 = $11193; + $11194 = $11194.tail; } return _ret$14; })(); - var _ctr$14 = String$flatten$(List$cons$($12481, List$cons$(Kind$Name$read$("."), List$cons$($12484, List$nil)))); + var _ctr$14 = String$flatten$(List$cons$($11185, List$cons$(Kind$Name$read$("."), List$cons$($11188, List$nil)))); var _slf$15 = Kind$Term$ref$(_ctr$14); var _slf$16 = (() => { - var $12494 = _slf$15; - var $12495 = $12482; - let _slf$17 = $12494; + var $11198 = _slf$15; + var $11199 = $11186; + let _slf$17 = $11198; let _v$16; - while ($12495._ === 'List.cons') { - _v$16 = $12495.head; - var $12494 = Kind$Term$app$(_slf$17, Kind$Term$ref$((() => { + while ($11199._ === 'List.cons') { + _v$16 = $11199.head; + var $11198 = Kind$Term$app$(_slf$17, Kind$Term$ref$((() => { var self = _v$16; switch (self._) { case 'Kind.Binder.new': - var $12496 = self.name; - var $12497 = $12496; - return $12497; + var $11200 = self.name; + var $11201 = $11200; + return $11201; }; })())); - _slf$17 = $12494; - $12495 = $12495.tail; + _slf$17 = $11198; + $11199 = $11199.tail; } return _slf$17; })(); var _slf$17 = (() => { - var $12499 = _slf$16; - var $12500 = $12485; - let _slf$18 = $12499; + var $11203 = _slf$16; + var $11204 = $11189; + let _slf$18 = $11203; let _v$17; - while ($12500._ === 'List.cons') { - _v$17 = $12500.head; - var $12499 = Kind$Term$app$(_slf$18, Kind$Term$ref$((() => { + while ($11204._ === 'List.cons') { + _v$17 = $11204.head; + var $11203 = Kind$Term$app$(_slf$18, Kind$Term$ref$((() => { var self = _v$17; switch (self._) { case 'Kind.Binder.new': - var $12501 = self.name; - var $12502 = $12501; - return $12502; + var $11205 = self.name; + var $11206 = $11205; + return $11206; }; })())); - _slf$18 = $12499; - $12500 = $12500.tail; + _slf$18 = $11203; + $11204 = $11204.tail; } return _slf$18; })(); - var $12487 = Kind$Term$app$(_ret$13, _slf$17); - var $12483 = $12487; + var $11191 = Kind$Term$app$(_ret$13, _slf$17); + var $11187 = $11191; break; }; - var $12480 = $12483; + var $11184 = $11187; break; }; - var $12471 = $12480; + var $11175 = $11184; break; }; - return $12471; + return $11175; }; const Kind$Parser$ADT$Datatype$build_term$constructor$go = x0 => x1 => x2 => Kind$Parser$ADT$Datatype$build_term$constructor$go$(x0, x1, x2); @@ -39080,12 +35017,12 @@ module.exports = (function() { var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12504 = self.args; - var $12505 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $12504); - var $12503 = $12505; + var $11208 = self.args; + var $11209 = Kind$Parser$ADT$Datatype$build_term$constructor$go$(_type$1, _ctor$2, $11208); + var $11207 = $11209; break; }; - return $12503; + return $11207; }; const Kind$Parser$ADT$Datatype$build_term$constructor = x0 => x1 => Kind$Parser$ADT$Datatype$build_term$constructor$(x0, x1); @@ -39093,56 +35030,56 @@ module.exports = (function() { var self = _ctrs$3; switch (self._) { case 'List.cons': - var $12507 = self.head; - var $12508 = self.tail; - var self = $12507; + var $11211 = self.head; + var $11212 = self.tail; + var self = $11211; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12510 = self.name; - var $12511 = Kind$Term$all$(Bool$false, "", $12510, Kind$Parser$ADT$Datatype$build_term$constructor$(_type$1, $12507), (_s$9 => _x$10 => { - var $12512 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, _name$2, $12508); - return $12512; + var $11214 = self.name; + var $11215 = Kind$Term$all$(Bool$false, "", $11214, Kind$Parser$ADT$Datatype$build_term$constructor$(_type$1, $11211), (_s$9 => _x$10 => { + var $11216 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, _name$2, $11212); + return $11216; })); - var $12509 = $12511; + var $11213 = $11215; break; }; - var $12506 = $12509; + var $11210 = $11213; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12514 = self.inds; + var $11218 = self.inds; var _ret$9 = Kind$Term$ref$(Kind$Name$read$("P")); var _ret$10 = (() => { - var $12517 = _ret$9; - var $12518 = $12514; - let _ret$11 = $12517; + var $11221 = _ret$9; + var $11222 = $11218; + let _ret$11 = $11221; let _v$10; - while ($12518._ === 'List.cons') { - _v$10 = $12518.head; - var $12517 = Kind$Term$app$(_ret$11, Kind$Term$ref$((() => { + while ($11222._ === 'List.cons') { + _v$10 = $11222.head; + var $11221 = Kind$Term$app$(_ret$11, Kind$Term$ref$((() => { var self = _v$10; switch (self._) { case 'Kind.Binder.new': - var $12519 = self.name; - var $12520 = $12519; - return $12520; + var $11223 = self.name; + var $11224 = $11223; + return $11224; }; })())); - _ret$11 = $12517; - $12518 = $12518.tail; + _ret$11 = $11221; + $11222 = $11222.tail; } return _ret$11; })(); - var $12515 = Kind$Term$app$(_ret$10, Kind$Term$ref$((_name$2 + ".Self"))); - var $12513 = $12515; + var $11219 = Kind$Term$app$(_ret$10, Kind$Term$ref$((_name$2 + ".Self"))); + var $11217 = $11219; break; }; - var $12506 = $12513; + var $11210 = $11217; break; }; - return $12506; + return $11210; }; const Kind$Parser$ADT$Datatype$build_term$constructors$go = x0 => x1 => x2 => Kind$Parser$ADT$Datatype$build_term$constructors$go$(x0, x1, x2); @@ -39150,13 +35087,13 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12522 = self.name; - var $12523 = self.ctrs; - var $12524 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, $12522, $12523); - var $12521 = $12524; + var $11226 = self.name; + var $11227 = self.ctrs; + var $11228 = Kind$Parser$ADT$Datatype$build_term$constructors$go$(_type$1, $11226, $11227); + var $11225 = $11228; break; }; - return $12521; + return $11225; }; const Kind$Parser$ADT$Datatype$build_term$constructors = x0 => Kind$Parser$ADT$Datatype$build_term$constructors$(x0); @@ -39164,52 +35101,52 @@ module.exports = (function() { var self = _pars$3; switch (self._) { case 'List.cons': - var $12526 = self.head; - var $12527 = self.tail; - var self = $12526; + var $11230 = self.head; + var $11231 = self.tail; + var self = $11230; switch (self._) { case 'Kind.Binder.new': - var $12529 = self.name; - var $12530 = Kind$Term$lam$($12529, (_x$10 => { - var $12531 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, $12527, _inds$4); - return $12531; + var $11233 = self.name; + var $11234 = Kind$Term$lam$($11233, (_x$10 => { + var $11235 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, $11231, _inds$4); + return $11235; })); - var $12528 = $12530; + var $11232 = $11234; break; }; - var $12525 = $12528; + var $11229 = $11232; break; case 'List.nil': var self = _inds$4; switch (self._) { case 'List.cons': - var $12533 = self.head; - var $12534 = self.tail; - var self = $12533; + var $11237 = self.head; + var $11238 = self.tail; + var self = $11237; switch (self._) { case 'Kind.Binder.new': - var $12536 = self.name; - var $12537 = Kind$Term$lam$($12536, (_x$10 => { - var $12538 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, _pars$3, $12534); - return $12538; + var $11240 = self.name; + var $11241 = Kind$Term$lam$($11240, (_x$10 => { + var $11242 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, _name$2, _pars$3, $11238); + return $11242; })); - var $12535 = $12537; + var $11239 = $11241; break; }; - var $12532 = $12535; + var $11236 = $11239; break; case 'List.nil': - var $12539 = Kind$Term$all$(Bool$true, (_name$2 + ".Self"), Kind$Name$read$("P"), Kind$Parser$ADT$Datatype$build_term$motive$(_type$1), (_s$5 => _x$6 => { - var $12540 = Kind$Parser$ADT$Datatype$build_term$constructors$(_type$1); - return $12540; + var $11243 = Kind$Term$all$(Bool$true, (_name$2 + ".Self"), Kind$Name$read$("P"), Kind$Parser$ADT$Datatype$build_term$motive$(_type$1), (_s$5 => _x$6 => { + var $11244 = Kind$Parser$ADT$Datatype$build_term$constructors$(_type$1); + return $11244; })); - var $12532 = $12539; + var $11236 = $11243; break; }; - var $12525 = $12532; + var $11229 = $11236; break; }; - return $12525; + return $11229; }; const Kind$Parser$ADT$Datatype$build_term$go = x0 => x1 => x2 => x3 => Kind$Parser$ADT$Datatype$build_term$go$(x0, x1, x2, x3); @@ -39217,14 +35154,14 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12542 = self.name; - var $12543 = self.pars; - var $12544 = self.inds; - var $12545 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, $12542, $12543, $12544); - var $12541 = $12545; + var $11246 = self.name; + var $11247 = self.pars; + var $11248 = self.inds; + var $11249 = Kind$Parser$ADT$Datatype$build_term$go$(_type$1, $11246, $11247, $11248); + var $11245 = $11249; break; }; - return $12541; + return $11245; }; const Kind$Parser$ADT$Datatype$build_term = x0 => Kind$Parser$ADT$Datatype$build_term$(x0); @@ -39232,51 +35169,51 @@ module.exports = (function() { var self = _pars$3; switch (self._) { case 'List.cons': - var $12547 = self.head; - var $12548 = self.tail; - var self = $12547; + var $11251 = self.head; + var $11252 = self.tail; + var self = $11251; switch (self._) { case 'Kind.Binder.new': - var $12550 = self.name; - var $12551 = self.term; - var $12552 = Kind$Term$all$(Bool$false, "", $12550, $12551, (_s$10 => _x$11 => { - var $12553 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, $12548, _inds$4); - return $12553; + var $11254 = self.name; + var $11255 = self.term; + var $11256 = Kind$Term$all$(Bool$false, "", $11254, $11255, (_s$10 => _x$11 => { + var $11257 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, $11252, _inds$4); + return $11257; })); - var $12549 = $12552; + var $11253 = $11256; break; }; - var $12546 = $12549; + var $11250 = $11253; break; case 'List.nil': var self = _inds$4; switch (self._) { case 'List.cons': - var $12555 = self.head; - var $12556 = self.tail; - var self = $12555; + var $11259 = self.head; + var $11260 = self.tail; + var self = $11259; switch (self._) { case 'Kind.Binder.new': - var $12558 = self.name; - var $12559 = self.term; - var $12560 = Kind$Term$all$(Bool$false, "", $12558, $12559, (_s$10 => _x$11 => { - var $12561 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, _pars$3, $12556); - return $12561; + var $11262 = self.name; + var $11263 = self.term; + var $11264 = Kind$Term$all$(Bool$false, "", $11262, $11263, (_s$10 => _x$11 => { + var $11265 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, _name$2, _pars$3, $11260); + return $11265; })); - var $12557 = $12560; + var $11261 = $11264; break; }; - var $12554 = $12557; + var $11258 = $11261; break; case 'List.nil': - var $12562 = Kind$Term$typ; - var $12554 = $12562; + var $11266 = Kind$Term$typ; + var $11258 = $11266; break; }; - var $12546 = $12554; + var $11250 = $11258; break; }; - return $12546; + return $11250; }; const Kind$Parser$ADT$Datatype$build_type$go = x0 => x1 => x2 => x3 => Kind$Parser$ADT$Datatype$build_type$go$(x0, x1, x2, x3); @@ -39284,14 +35221,14 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12564 = self.name; - var $12565 = self.pars; - var $12566 = self.inds; - var $12567 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, $12564, $12565, $12566); - var $12563 = $12567; + var $11268 = self.name; + var $11269 = self.pars; + var $11270 = self.inds; + var $11271 = Kind$Parser$ADT$Datatype$build_type$go$(_type$1, $11268, $11269, $11270); + var $11267 = $11271; break; }; - return $12563; + return $11267; }; const Kind$Parser$ADT$Datatype$build_type = x0 => Kind$Parser$ADT$Datatype$build_type$(x0); @@ -39299,57 +35236,57 @@ module.exports = (function() { var self = _ctrs$3; switch (self._) { case 'List.cons': - var $12569 = self.head; - var $12570 = self.tail; - var self = $12569; + var $11273 = self.head; + var $11274 = self.tail; + var self = $11273; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12572 = self.name; - var $12573 = Kind$Term$lam$($12572, (_x$9 => { - var $12574 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $12570); - return $12574; + var $11276 = self.name; + var $11277 = Kind$Term$lam$($11276, (_x$9 => { + var $11278 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $11274); + return $11278; })); - var $12571 = $12573; + var $11275 = $11277; break; }; - var $12568 = $12571; + var $11272 = $11275; break; case 'List.nil': var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12576 = self.name; - var $12577 = self.args; - var _ret$7 = Kind$Term$ref$($12576); + var $11280 = self.name; + var $11281 = self.args; + var _ret$7 = Kind$Term$ref$($11280); var _ret$8 = (() => { - var $12580 = _ret$7; - var $12581 = $12577; - let _ret$9 = $12580; + var $11284 = _ret$7; + var $11285 = $11281; + let _ret$9 = $11284; let _arg$8; - while ($12581._ === 'List.cons') { - _arg$8 = $12581.head; - var $12580 = Kind$Term$app$(_ret$9, Kind$Term$ref$((() => { + while ($11285._ === 'List.cons') { + _arg$8 = $11285.head; + var $11284 = Kind$Term$app$(_ret$9, Kind$Term$ref$((() => { var self = _arg$8; switch (self._) { case 'Kind.Binder.new': - var $12582 = self.name; - var $12583 = $12582; - return $12583; + var $11286 = self.name; + var $11287 = $11286; + return $11287; }; })())); - _ret$9 = $12580; - $12581 = $12581.tail; + _ret$9 = $11284; + $11285 = $11285.tail; } return _ret$9; })(); - var $12578 = _ret$8; - var $12575 = $12578; + var $11282 = _ret$8; + var $11279 = $11282; break; }; - var $12568 = $12575; + var $11272 = $11279; break; }; - return $12568; + return $11272; }; const Kind$Parser$ADT$Constructor$build_term$opt$go = x0 => x1 => x2 => Kind$Parser$ADT$Constructor$build_term$opt$go$(x0, x1, x2); @@ -39357,12 +35294,12 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12585 = self.ctrs; - var $12586 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $12585); - var $12584 = $12586; + var $11289 = self.ctrs; + var $11290 = Kind$Parser$ADT$Constructor$build_term$opt$go$(_type$1, _ctor$2, $11289); + var $11288 = $11290; break; }; - return $12584; + return $11288; }; const Kind$Parser$ADT$Constructor$build_term$opt = x0 => x1 => Kind$Parser$ADT$Constructor$build_term$opt$(x0, x1); @@ -39370,52 +35307,52 @@ module.exports = (function() { var self = _pars$4; switch (self._) { case 'List.cons': - var $12588 = self.head; - var $12589 = self.tail; - var self = $12588; + var $11292 = self.head; + var $11293 = self.tail; + var self = $11292; switch (self._) { case 'Kind.Binder.new': - var $12591 = self.name; - var $12592 = Kind$Term$lam$($12591, (_x$11 => { - var $12593 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, $12589, _args$5); - return $12593; + var $11295 = self.name; + var $11296 = Kind$Term$lam$($11295, (_x$11 => { + var $11297 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, $11293, _args$5); + return $11297; })); - var $12590 = $12592; + var $11294 = $11296; break; }; - var $12587 = $12590; + var $11291 = $11294; break; case 'List.nil': var self = _args$5; switch (self._) { case 'List.cons': - var $12595 = self.head; - var $12596 = self.tail; - var self = $12595; + var $11299 = self.head; + var $11300 = self.tail; + var self = $11299; switch (self._) { case 'Kind.Binder.new': - var $12598 = self.name; - var $12599 = Kind$Term$lam$($12598, (_x$11 => { - var $12600 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, _pars$4, $12596); - return $12600; + var $11302 = self.name; + var $11303 = Kind$Term$lam$($11302, (_x$11 => { + var $11304 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, _name$3, _pars$4, $11300); + return $11304; })); - var $12597 = $12599; + var $11301 = $11303; break; }; - var $12594 = $12597; + var $11298 = $11301; break; case 'List.nil': - var $12601 = Kind$Term$lam$(Kind$Name$read$("P"), (_x$6 => { - var $12602 = Kind$Parser$ADT$Constructor$build_term$opt$(_type$1, _ctor$2); - return $12602; + var $11305 = Kind$Term$lam$(Kind$Name$read$("P"), (_x$6 => { + var $11306 = Kind$Parser$ADT$Constructor$build_term$opt$(_type$1, _ctor$2); + return $11306; })); - var $12594 = $12601; + var $11298 = $11305; break; }; - var $12587 = $12594; + var $11291 = $11298; break; }; - return $12587; + return $11291; }; const Kind$Parser$ADT$Constructor$build_term$go = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Constructor$build_term$go$(x0, x1, x2, x3, x4); @@ -39423,20 +35360,20 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12604 = self.name; - var $12605 = self.pars; + var $11308 = self.name; + var $11309 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12607 = self.args; - var $12608 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, $12604, $12605, $12607); - var $12606 = $12608; + var $11311 = self.args; + var $11312 = Kind$Parser$ADT$Constructor$build_term$go$(_type$1, _ctor$2, $11308, $11309, $11311); + var $11310 = $11312; break; }; - var $12603 = $12606; + var $11307 = $11310; break; }; - return $12603; + return $11307; }; const Kind$Parser$ADT$Constructor$build_term = x0 => x1 => Kind$Parser$ADT$Constructor$build_term$(x0, x1); @@ -39444,110 +35381,110 @@ module.exports = (function() { var self = _pars$4; switch (self._) { case 'List.cons': - var $12610 = self.head; - var $12611 = self.tail; - var self = $12610; + var $11314 = self.head; + var $11315 = self.tail; + var self = $11314; switch (self._) { case 'Kind.Binder.new': - var $12613 = self.eras; - var $12614 = self.name; - var $12615 = self.term; - var $12616 = Kind$Term$all$($12613, "", $12614, $12615, (_s$11 => _x$12 => { - var $12617 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, $12611, _args$5); - return $12617; + var $11317 = self.eras; + var $11318 = self.name; + var $11319 = self.term; + var $11320 = Kind$Term$all$($11317, "", $11318, $11319, (_s$11 => _x$12 => { + var $11321 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, $11315, _args$5); + return $11321; })); - var $12612 = $12616; + var $11316 = $11320; break; }; - var $12609 = $12612; + var $11313 = $11316; break; case 'List.nil': var self = _args$5; switch (self._) { case 'List.cons': - var $12619 = self.head; - var $12620 = self.tail; - var self = $12619; + var $11323 = self.head; + var $11324 = self.tail; + var self = $11323; switch (self._) { case 'Kind.Binder.new': - var $12622 = self.eras; - var $12623 = self.name; - var $12624 = self.term; - var $12625 = Kind$Term$all$($12622, "", $12623, $12624, (_s$11 => _x$12 => { - var $12626 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, _pars$4, $12620); - return $12626; + var $11326 = self.eras; + var $11327 = self.name; + var $11328 = self.term; + var $11329 = Kind$Term$all$($11326, "", $11327, $11328, (_s$11 => _x$12 => { + var $11330 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, _name$3, _pars$4, $11324); + return $11330; })); - var $12621 = $12625; + var $11325 = $11329; break; }; - var $12618 = $12621; + var $11322 = $11325; break; case 'List.nil': var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12628 = self.pars; + var $11332 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12630 = self.inds; + var $11334 = self.inds; var _type$14 = Kind$Term$ref$(_name$3); var _type$15 = (() => { - var $12633 = _type$14; - var $12634 = $12628; - let _type$16 = $12633; + var $11337 = _type$14; + var $11338 = $11332; + let _type$16 = $11337; let _v$15; - while ($12634._ === 'List.cons') { - _v$15 = $12634.head; - var $12633 = Kind$Term$app$(_type$16, Kind$Term$ref$((() => { + while ($11338._ === 'List.cons') { + _v$15 = $11338.head; + var $11337 = Kind$Term$app$(_type$16, Kind$Term$ref$((() => { var self = _v$15; switch (self._) { case 'Kind.Binder.new': - var $12635 = self.name; - var $12636 = $12635; - return $12636; + var $11339 = self.name; + var $11340 = $11339; + return $11340; }; })())); - _type$16 = $12633; - $12634 = $12634.tail; + _type$16 = $11337; + $11338 = $11338.tail; } return _type$16; })(); var _type$16 = (() => { - var $12638 = _type$15; - var $12639 = $12630; - let _type$17 = $12638; + var $11342 = _type$15; + var $11343 = $11334; + let _type$17 = $11342; let _v$16; - while ($12639._ === 'List.cons') { - _v$16 = $12639.head; - var $12638 = Kind$Term$app$(_type$17, (() => { + while ($11343._ === 'List.cons') { + _v$16 = $11343.head; + var $11342 = Kind$Term$app$(_type$17, (() => { var self = _v$16; switch (self._) { case 'Kind.Binder.new': - var $12640 = self.term; - var $12641 = $12640; - return $12641; + var $11344 = self.term; + var $11345 = $11344; + return $11345; }; })()); - _type$17 = $12638; - $12639 = $12639.tail; + _type$17 = $11342; + $11343 = $11343.tail; } return _type$17; })(); - var $12631 = _type$16; - var $12629 = $12631; + var $11335 = _type$16; + var $11333 = $11335; break; }; - var $12627 = $12629; + var $11331 = $11333; break; }; - var $12618 = $12627; + var $11322 = $11331; break; }; - var $12609 = $12618; + var $11313 = $11322; break; }; - return $12609; + return $11313; }; const Kind$Parser$ADT$Constructor$build_type$go = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Constructor$build_type$go$(x0, x1, x2, x3, x4); @@ -39555,20 +35492,20 @@ module.exports = (function() { var self = _type$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12643 = self.name; - var $12644 = self.pars; + var $11347 = self.name; + var $11348 = self.pars; var self = _ctor$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12646 = self.args; - var $12647 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, $12643, $12644, $12646); - var $12645 = $12647; + var $11350 = self.args; + var $11351 = Kind$Parser$ADT$Constructor$build_type$go$(_type$1, _ctor$2, $11347, $11348, $11350); + var $11349 = $11351; break; }; - var $12642 = $12645; + var $11346 = $11349; break; }; - return $12642; + return $11346; }; const Kind$Parser$ADT$Constructor$build_type = x0 => x1 => Kind$Parser$ADT$Constructor$build_type$(x0, x1); @@ -39576,15 +35513,15 @@ module.exports = (function() { var self = _list$2; switch (self._) { case 'List.nil': - var $12649 = Bool$true; - var $12648 = $12649; + var $11353 = Bool$true; + var $11352 = $11353; break; case 'List.cons': - var $12650 = Bool$false; - var $12648 = $12650; + var $11354 = Bool$false; + var $11352 = $11354; break; }; - return $12648; + return $11352; }; const List$is_empty = x0 => List$is_empty$(x0); @@ -39601,14 +35538,14 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.app': - var $12651 = self.func; - var $12652 = self.argm; - var $12653 = Kind$Term$get_args$go$($12651, List$cons$($12652, _args$2)); - return $12653; + var $11355 = self.func; + var $11356 = self.argm; + var $11357 = Kind$Term$get_args$go$($11355, List$cons$($11356, _args$2)); + return $11357; case 'Kind.Term.ori': - var $12654 = self.expr; - var $12655 = Kind$Term$get_args$go$($12654, _args$2); - return $12655; + var $11358 = self.expr; + var $11359 = Kind$Term$get_args$go$($11358, _args$2); + return $11359; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -39628,8 +35565,8 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $12656 = Pair$new$(_term$1, _args$2); - return $12656; + var $11360 = Pair$new$(_term$1, _args$2); + return $11360; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -39639,8 +35576,8 @@ module.exports = (function() { const Kind$Term$get_args$go = x0 => x1 => Kind$Term$get_args$go$(x0, x1); function Kind$Term$get_args$(_term$1) { - var $12657 = Kind$Term$get_args$go$(_term$1, List$nil); - return $12657; + var $11361 = Kind$Term$get_args$go$(_term$1, List$nil); + return $11361; }; const Kind$Term$get_args = x0 => Kind$Term$get_args$(x0); @@ -39648,61 +35585,61 @@ module.exports = (function() { var self = Kind$Term$get_args$(_call$1); switch (self._) { case 'Pair.new': - var $12659 = self.fst; - var $12660 = self.snd; - var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($12659) + ".stringifier")); + var $11363 = self.fst; + var $11364 = self.snd; + var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($11363) + ".stringifier")); var _term$6 = (() => { - var $12663 = _term$5; - var $12664 = $12660; - let _term$7 = $12663; + var $11367 = _term$5; + var $11368 = $11364; + let _term$7 = $11367; let _par$6; - while ($12664._ === 'List.cons') { - _par$6 = $12664.head; - var $12663 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); - _term$7 = $12663; - $12664 = $12664.tail; + while ($11368._ === 'List.cons') { + _par$6 = $11368.head; + var $11367 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); + _term$7 = $11367; + $11368 = $11368.tail; } return _term$7; })(); var _term$7 = (() => { - var $12666 = _term$6; - var $12667 = $12660; - let _term$8 = $12666; + var $11370 = _term$6; + var $11371 = $11364; + let _term$8 = $11370; let _par$7; - while ($12667._ === 'List.cons') { - _par$7 = $12667.head; - var $12666 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$stringifier$term$cont$(_par$7, Maybe$none)); - _term$8 = $12666; - $12667 = $12667.tail; + while ($11371._ === 'List.cons') { + _par$7 = $11371.head; + var $11370 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$stringifier$term$cont$(_par$7, Maybe$none)); + _term$8 = $11370; + $11371 = $11371.tail; } return _term$8; })(); var self = _rest$2; switch (self._) { case 'Maybe.some': - var $12668 = self.value; - var self = $12668; + var $11372 = self.value; + var self = $11372; switch (self._) { case 'Pair.new': - var $12670 = self.fst; - var $12671 = self.snd; - var _term$11 = Kind$Term$app$(_term$7, Kind$Term$ref$($12670)); - var _term$12 = Kind$Term$app$(_term$11, $12671); - var $12672 = _term$12; - var $12669 = $12672; + var $11374 = self.fst; + var $11375 = self.snd; + var _term$11 = Kind$Term$app$(_term$7, Kind$Term$ref$($11374)); + var _term$12 = Kind$Term$app$(_term$11, $11375); + var $11376 = _term$12; + var $11373 = $11376; break; }; - var $12661 = $12669; + var $11365 = $11373; break; case 'Maybe.none': - var $12673 = _term$7; - var $12661 = $12673; + var $11377 = _term$7; + var $11365 = $11377; break; }; - var $12658 = $12661; + var $11362 = $11365; break; }; - return $12658; + return $11362; }; const Kind$Parser$ADT$Derive$stringifier$term$cont = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$cont$(x0, x1); @@ -39710,52 +35647,52 @@ module.exports = (function() { var self = _args$1; switch (self._) { case 'List.cons': - var $12675 = self.head; - var $12676 = self.tail; - var self = $12675; + var $11379 = self.head; + var $11380 = self.tail; + var self = $11379; switch (self._) { case 'Kind.Binder.new': - var $12678 = self.name; - var $12679 = self.term; - var self = Kind$Term$get_args$($12679); + var $11382 = self.name; + var $11383 = self.term; + var self = Kind$Term$get_args$($11383); switch (self._) { case 'Pair.new': - var _rest$10 = Kind$Parser$ADT$Derive$stringifier$term$args$($12676, Bool$false); - var _term$11 = Kind$Parser$ADT$Derive$stringifier$term$cont$($12679, Maybe$some$(Pair$new$(("x." + $12678), _rest$10))); + var _rest$10 = Kind$Parser$ADT$Derive$stringifier$term$args$($11380, Bool$false); + var _term$11 = Kind$Parser$ADT$Derive$stringifier$term$cont$($11383, Maybe$some$(Pair$new$(("x." + $11382), _rest$10))); var _term$12 = Kind$Term$app$(Kind$Term$app$(Kind$Term$ref$("Stringifier.text"), Kind$Term$str$((() => { var self = _fst$2; if (self) { - var $12682 = "("; - return $12682; + var $11386 = "("; + return $11386; } else { - var $12683 = ","; - return $12683; + var $11387 = ","; + return $11387; }; })())), _term$11); - var $12681 = _term$12; - var $12680 = $12681; + var $11385 = _term$12; + var $11384 = $11385; break; }; - var $12677 = $12680; + var $11381 = $11384; break; }; - var $12674 = $12677; + var $11378 = $11381; break; case 'List.nil': var _term$3 = Kind$Term$ref$("str"); var self = _fst$2; if (self) { - var $12685 = _term$3; - var _term$4 = $12685; + var $11389 = _term$3; + var _term$4 = $11389; } else { - var $12686 = Kind$Term$app$(Kind$Term$app$(Kind$Term$ref$("Stringifier.text"), Kind$Term$str$(")")), _term$3); - var _term$4 = $12686; + var $11390 = Kind$Term$app$(Kind$Term$app$(Kind$Term$ref$("Stringifier.text"), Kind$Term$str$(")")), _term$3); + var _term$4 = $11390; }; - var $12684 = _term$4; - var $12674 = $12684; + var $11388 = _term$4; + var $11378 = $11388; break; }; - return $12674; + return $11378; }; const Kind$Parser$ADT$Derive$stringifier$term$args = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$args$(x0, x1); @@ -39763,16 +35700,16 @@ module.exports = (function() { var self = _ctr$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12688 = self.name; - var $12689 = self.args; + var $11392 = self.name; + var $11393 = self.args; var _term$6 = Kind$Term$ref$("Stringifier.text"); - var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$((_adt_name$1 + ("." + $12688)))); - var _term$8 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$stringifier$term$args$($12689, Bool$true)); - var $12690 = Pair$new$($12688, _term$8); - var $12687 = $12690; + var _term$7 = Kind$Term$app$(_term$6, Kind$Term$str$((_adt_name$1 + ("." + $11392)))); + var _term$8 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$stringifier$term$args$($11393, Bool$true)); + var $11394 = Pair$new$($11392, _term$8); + var $11391 = $11394; break; }; - return $12687; + return $11391; }; const Kind$Parser$ADT$Derive$stringifier$ctr = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$ctr$(x0, x1); @@ -39780,17 +35717,17 @@ module.exports = (function() { var self = _ctrs$2; switch (self._) { case 'List.cons': - var $12692 = self.head; - var $12693 = self.tail; - var $12694 = List$cons$(Kind$Parser$ADT$Derive$stringifier$ctr$(_adt_name$1, $12692), Kind$Parser$ADT$Derive$stringifier$term$ctrs$(_adt_name$1, $12693)); - var $12691 = $12694; + var $11396 = self.head; + var $11397 = self.tail; + var $11398 = List$cons$(Kind$Parser$ADT$Derive$stringifier$ctr$(_adt_name$1, $11396), Kind$Parser$ADT$Derive$stringifier$term$ctrs$(_adt_name$1, $11397)); + var $11395 = $11398; break; case 'List.nil': - var $12695 = List$nil; - var $12691 = $12695; + var $11399 = List$nil; + var $11395 = $11399; break; }; - return $12691; + return $11395; }; const Kind$Parser$ADT$Derive$stringifier$term$ctrs = x0 => x1 => Kind$Parser$ADT$Derive$stringifier$term$ctrs$(x0, x1); @@ -39798,52 +35735,52 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12697 = self.name; - var $12698 = self.pars; - var $12699 = self.inds; - var $12700 = self.ctrs; - var self = (List$is_empty$($12698) && List$is_empty$($12699)); + var $11401 = self.name; + var $11402 = self.pars; + var $11403 = self.inds; + var $11404 = self.ctrs; + var self = (List$is_empty$($11402) && List$is_empty$($11403)); if (self) { var _term$7 = Kind$Term$lam$("x", (_x$7 => { - var $12703 = Kind$Term$lam$("str", (_str$8 => { - var _ctrs$9 = Kind$Parser$ADT$Derive$stringifier$term$ctrs$($12697, $12700); + var $11407 = Kind$Term$lam$("str", (_str$8 => { + var _ctrs$9 = Kind$Parser$ADT$Derive$stringifier$term$ctrs$($11401, $11404); var _cses$10 = Kind$Map$new; var _cses$11 = (() => { - var $12706 = _cses$10; - var $12707 = _ctrs$9; - let _cses$12 = $12706; + var $11410 = _cses$10; + var $11411 = _ctrs$9; + let _cses$12 = $11410; let _ctr$11; - while ($12707._ === 'List.cons') { - _ctr$11 = $12707.head; + while ($11411._ === 'List.cons') { + _ctr$11 = $11411.head; var self = _ctr$11; switch (self._) { case 'Pair.new': - var $12708 = self.fst; - var $12709 = self.snd; - var $12710 = Kind$Map$set$($12708, $12709, _cses$12); - var $12706 = $12710; + var $11412 = self.fst; + var $11413 = self.snd; + var $11414 = Kind$Map$set$($11412, $11413, _cses$12); + var $11410 = $11414; break; }; - _cses$12 = $12706; - $12707 = $12707.tail; + _cses$12 = $11410; + $11411 = $11411.tail; } return _cses$12; })(); - var $12704 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); - return $12704; + var $11408 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); + return $11408; })); - return $12703; + return $11407; })); - var $12702 = Maybe$some$(_term$7); - var $12701 = $12702; + var $11406 = Maybe$some$(_term$7); + var $11405 = $11406; } else { - var $12711 = Maybe$none; - var $12701 = $12711; + var $11415 = Maybe$none; + var $11405 = $11415; }; - var $12696 = $12701; + var $11400 = $11405; break; }; - return $12696; + return $11400; }; const Kind$Parser$ADT$Derive$stringifier$term = x0 => Kind$Parser$ADT$Derive$stringifier$term$(x0); @@ -39851,33 +35788,33 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12713 = self.name; - var $12714 = self.pars; - var $12715 = self.inds; - var self = (List$is_empty$($12714) && List$is_empty$($12715)); + var $11417 = self.name; + var $11418 = self.pars; + var $11419 = self.inds; + var self = (List$is_empty$($11418) && List$is_empty$($11419)); if (self) { - var $12717 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Stringifier"), Kind$Term$ref$($12713))); - var $12716 = $12717; + var $11421 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Stringifier"), Kind$Term$ref$($11417))); + var $11420 = $11421; } else { - var $12718 = Maybe$none; - var $12716 = $12718; + var $11422 = Maybe$none; + var $11420 = $11422; }; - var $12712 = $12716; + var $11416 = $11420; break; }; - return $12712; + return $11416; }; const Kind$Parser$ADT$Derive$stringifier$type = x0 => Kind$Parser$ADT$Derive$stringifier$type$(x0); function Kind$Parser$ADT$Derived$new$(_name$1, _arit$2, _term$3, _type$4) { - var $12719 = ({ + var $11423 = ({ _: 'Kind.Parser.ADT.Derived.new', 'name': _name$1, 'arit': _arit$2, 'term': _term$3, 'type': _type$4 }); - return $12719; + return $11423; }; const Kind$Parser$ADT$Derived$new = x0 => x1 => x2 => x3 => Kind$Parser$ADT$Derived$new$(x0, x1, x2, x3); @@ -39885,40 +35822,40 @@ module.exports = (function() { var self = Kind$Term$get_args$(_call$1); switch (self._) { case 'Pair.new': - var $12721 = self.fst; - var $12722 = self.snd; - var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($12721) + ".parser")); + var $11425 = self.fst; + var $11426 = self.snd; + var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($11425) + ".parser")); var _term$5 = (() => { - var $12725 = _term$4; - var $12726 = $12722; - let _term$6 = $12725; + var $11429 = _term$4; + var $11430 = $11426; + let _term$6 = $11429; let _par$5; - while ($12726._ === 'List.cons') { - _par$5 = $12726.head; - var $12725 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); - _term$6 = $12725; - $12726 = $12726.tail; + while ($11430._ === 'List.cons') { + _par$5 = $11430.head; + var $11429 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); + _term$6 = $11429; + $11430 = $11430.tail; } return _term$6; })(); var _term$6 = (() => { - var $12728 = _term$5; - var $12729 = $12722; - let _term$7 = $12728; + var $11432 = _term$5; + var $11433 = $11426; + let _term$7 = $11432; let _par$6; - while ($12729._ === 'List.cons') { - _par$6 = $12729.head; - var $12728 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$parser$term$cont$(_par$6)); - _term$7 = $12728; - $12729 = $12729.tail; + while ($11433._ === 'List.cons') { + _par$6 = $11433.head; + var $11432 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$parser$term$cont$(_par$6)); + _term$7 = $11432; + $11433 = $11433.tail; } return _term$7; })(); - var $12723 = _term$6; - var $12720 = $12723; + var $11427 = _term$6; + var $11424 = $11427; break; }; - return $12720; + return $11424; }; const Kind$Parser$ADT$Derive$parser$term$cont = x0 => Kind$Parser$ADT$Derive$parser$term$cont$(x0); @@ -39926,13 +35863,13 @@ module.exports = (function() { var self = _args$3; switch (self._) { case 'List.cons': - var $12731 = self.head; - var $12732 = self.tail; - var self = $12731; + var $11435 = self.head; + var $11436 = self.tail; + var self = $11435; switch (self._) { case 'Kind.Binder.new': - var $12734 = self.name; - var $12735 = self.term; + var $11438 = self.name; + var $11439 = self.term; var _term$11 = Kind$Term$ref$("Parser.bind"); var _term$12 = Kind$Term$app$(_term$11, Kind$Term$hol$(Bits$e)); var _term$13 = Kind$Term$app$(_term$12, Kind$Term$hol$(Bits$e)); @@ -39941,54 +35878,54 @@ module.exports = (function() { var _cont$16 = Kind$Term$app$(_cont$15, Kind$Term$str$((() => { var self = _fst$5; if (self) { - var $12737 = "("; - return $12737; + var $11441 = "("; + return $11441; } else { - var $12738 = ","; - return $12738; + var $11442 = ","; + return $11442; }; })())); - var _cont$17 = Kind$Term$app$(_cont$16, Kind$Parser$ADT$Derive$parser$term$cont$($12735)); + var _cont$17 = Kind$Term$app$(_cont$16, Kind$Parser$ADT$Derive$parser$term$cont$($11439)); var _term$18 = Kind$Term$app$(_term$13, _cont$17); - var _term$19 = Kind$Term$app$(_term$18, Kind$Term$lam$($12734, (_x$19 => { - var $12739 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$2, $12732, List$cons$(_x$19, _vars$4), Bool$false); - return $12739; + var _term$19 = Kind$Term$app$(_term$18, Kind$Term$lam$($11438, (_x$19 => { + var $11443 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$2, $11436, List$cons$(_x$19, _vars$4), Bool$false); + return $11443; }))); - var $12736 = _term$19; - var $12733 = $12736; + var $11440 = _term$19; + var $11437 = $11440; break; }; - var $12730 = $12733; + var $11434 = $11437; break; case 'List.nil': var _body$6 = Kind$Term$ref$("Parser.pure"); var _body$7 = Kind$Term$app$(_body$6, Kind$Term$hol$(Bits$e)); var _func$8 = Kind$Term$ref$(_cnam$2); var _func$9 = List$fold$(_vars$4, _func$8, (_var$9 => _func$10 => { - var $12741 = Kind$Term$app$(_func$10, _var$9); - return $12741; + var $11445 = Kind$Term$app$(_func$10, _var$9); + return $11445; })); var _body$10 = Kind$Term$app$(_body$7, _func$9); var self = _fst$5; if (self) { - var $12742 = _body$10; - var $12740 = $12742; + var $11446 = _body$10; + var $11444 = $11446; } else { var _term$11 = Kind$Term$ref$("Parser.bind"); var _term$12 = Kind$Term$app$(_term$11, Kind$Term$hol$(Bits$e)); var _term$13 = Kind$Term$app$(_term$12, Kind$Term$hol$(Bits$e)); var _term$14 = Kind$Term$app$(_term$13, Kind$Term$app$(Kind$Term$ref$("Parser.text"), Kind$Term$str$(")"))); var _term$15 = Kind$Term$app$(_term$14, Kind$Term$lam$("", (_x$15 => { - var $12744 = _body$10; - return $12744; + var $11448 = _body$10; + return $11448; }))); - var $12743 = _term$15; - var $12740 = $12743; + var $11447 = _term$15; + var $11444 = $11447; }; - var $12730 = $12740; + var $11434 = $11444; break; }; - return $12730; + return $11434; }; const Kind$Parser$ADT$Derive$parser$term$args = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Derive$parser$term$args$(x0, x1, x2, x3, x4); @@ -39996,35 +35933,35 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12746 = self.name; + var $11450 = self.name; var self = _cses$2; switch (self._) { case 'List.cons': - var $12748 = self.head; - var $12749 = self.tail; - var self = $12748; + var $11452 = self.head; + var $11453 = self.tail; + var self = $11452; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12751 = self.name; - var $12752 = self.args; - var _cnam$13 = ($12746 + ("." + $12751)); + var $11455 = self.name; + var $11456 = self.args; + var _cnam$13 = ($11450 + ("." + $11455)); var _term$14 = Kind$Term$ref$("Parser.bind"); var _term$15 = Kind$Term$app$(_term$14, Kind$Term$hol$(Bits$e)); var _term$16 = Kind$Term$app$(_term$15, Kind$Term$hol$(Bits$e)); var _term$17 = Kind$Term$app$(_term$16, Kind$Term$app$(Kind$Term$ref$("Parser.text"), Kind$Term$str$(_cnam$13))); var _term$18 = Kind$Term$app$(_term$17, Kind$Term$lam$("", (_x$18 => { - var $12754 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$13, $12752, List$nil, Bool$true); - return $12754; + var $11458 = Kind$Parser$ADT$Derive$parser$term$args$(_adt$1, _cnam$13, $11456, List$nil, Bool$true); + return $11458; }))); var _list$19 = Kind$Term$ref$("List.cons"); var _list$20 = Kind$Term$app$(_list$19, Kind$Term$hol$(Bits$e)); var _list$21 = Kind$Term$app$(_list$20, _term$18); - var _list$22 = Kind$Term$app$(_list$21, Kind$Parser$ADT$Derive$parser$term$cses$(_adt$1, $12749)); - var $12753 = _list$22; - var $12750 = $12753; + var _list$22 = Kind$Term$app$(_list$21, Kind$Parser$ADT$Derive$parser$term$cses$(_adt$1, $11453)); + var $11457 = _list$22; + var $11454 = $11457; break; }; - var $12747 = $12750; + var $11451 = $11454; break; case 'List.nil': var _fail$8 = Kind$Term$ref$("Parser.fail"); @@ -40034,14 +35971,14 @@ module.exports = (function() { var _term$12 = Kind$Term$app$(_term$11, Kind$Term$hol$(Bits$e)); var _term$13 = Kind$Term$app$(_term$12, _fail$10); var _term$14 = Kind$Term$app$(_term$13, Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e))); - var $12755 = _term$14; - var $12747 = $12755; + var $11459 = _term$14; + var $11451 = $11459; break; }; - var $12745 = $12747; + var $11449 = $11451; break; }; - return $12745; + return $11449; }; const Kind$Parser$ADT$Derive$parser$term$cses = x0 => x1 => Kind$Parser$ADT$Derive$parser$term$cses$(x0, x1); @@ -40049,24 +35986,24 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12757 = self.pars; - var $12758 = self.inds; - var $12759 = self.ctrs; - var self = (List$is_empty$($12757) && List$is_empty$($12758)); + var $11461 = self.pars; + var $11462 = self.inds; + var $11463 = self.ctrs; + var self = (List$is_empty$($11461) && List$is_empty$($11462)); if (self) { var _term$7 = Kind$Term$ref$("Parser.choice"); var _term$8 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); - var _term$9 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$parser$term$cses$(_adt$1, $12759)); - var $12761 = Maybe$some$(_term$9); - var $12760 = $12761; + var _term$9 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$parser$term$cses$(_adt$1, $11463)); + var $11465 = Maybe$some$(_term$9); + var $11464 = $11465; } else { - var $12762 = Maybe$none; - var $12760 = $12762; + var $11466 = Maybe$none; + var $11464 = $11466; }; - var $12756 = $12760; + var $11460 = $11464; break; }; - return $12756; + return $11460; }; const Kind$Parser$ADT$Derive$parser$term = x0 => Kind$Parser$ADT$Derive$parser$term$(x0); @@ -40074,21 +36011,21 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12764 = self.name; - var $12765 = self.pars; - var $12766 = self.inds; - var self = (List$is_empty$($12765) && List$is_empty$($12766)); + var $11468 = self.name; + var $11469 = self.pars; + var $11470 = self.inds; + var self = (List$is_empty$($11469) && List$is_empty$($11470)); if (self) { - var $12768 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Parser"), Kind$Term$ref$($12764))); - var $12767 = $12768; + var $11472 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Parser"), Kind$Term$ref$($11468))); + var $11471 = $11472; } else { - var $12769 = Maybe$none; - var $12767 = $12769; + var $11473 = Maybe$none; + var $11471 = $11473; }; - var $12763 = $12767; + var $11467 = $11471; break; }; - return $12763; + return $11467; }; const Kind$Parser$ADT$Derive$parser$type = x0 => Kind$Parser$ADT$Derive$parser$type$(x0); @@ -40096,61 +36033,61 @@ module.exports = (function() { var self = Kind$Term$get_args$(_call$1); switch (self._) { case 'Pair.new': - var $12771 = self.fst; - var $12772 = self.snd; - var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($12771) + ".serializer")); + var $11475 = self.fst; + var $11476 = self.snd; + var _term$5 = Kind$Term$ref$((Kind$Term$extract_name$($11475) + ".serializer")); var _term$6 = (() => { - var $12775 = _term$5; - var $12776 = $12772; - let _term$7 = $12775; + var $11479 = _term$5; + var $11480 = $11476; + let _term$7 = $11479; let _par$6; - while ($12776._ === 'List.cons') { - _par$6 = $12776.head; - var $12775 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); - _term$7 = $12775; - $12776 = $12776.tail; + while ($11480._ === 'List.cons') { + _par$6 = $11480.head; + var $11479 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); + _term$7 = $11479; + $11480 = $11480.tail; } return _term$7; })(); var _term$7 = (() => { - var $12778 = _term$6; - var $12779 = $12772; - let _term$8 = $12778; + var $11482 = _term$6; + var $11483 = $11476; + let _term$8 = $11482; let _par$7; - while ($12779._ === 'List.cons') { - _par$7 = $12779.head; - var $12778 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$serializer$term$cont$(_par$7, Maybe$none)); - _term$8 = $12778; - $12779 = $12779.tail; + while ($11483._ === 'List.cons') { + _par$7 = $11483.head; + var $11482 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$serializer$term$cont$(_par$7, Maybe$none)); + _term$8 = $11482; + $11483 = $11483.tail; } return _term$8; })(); var self = _rest$2; switch (self._) { case 'Maybe.some': - var $12780 = self.value; - var self = $12780; + var $11484 = self.value; + var self = $11484; switch (self._) { case 'Pair.new': - var $12782 = self.fst; - var $12783 = self.snd; - var _term$11 = Kind$Term$app$(_term$7, Kind$Term$ref$($12782)); - var _term$12 = Kind$Term$app$(_term$11, $12783); - var $12784 = _term$12; - var $12781 = $12784; + var $11486 = self.fst; + var $11487 = self.snd; + var _term$11 = Kind$Term$app$(_term$7, Kind$Term$ref$($11486)); + var _term$12 = Kind$Term$app$(_term$11, $11487); + var $11488 = _term$12; + var $11485 = $11488; break; }; - var $12773 = $12781; + var $11477 = $11485; break; case 'Maybe.none': - var $12785 = _term$7; - var $12773 = $12785; + var $11489 = _term$7; + var $11477 = $11489; break; }; - var $12770 = $12773; + var $11474 = $11477; break; }; - return $12770; + return $11474; }; const Kind$Parser$ADT$Derive$serializer$term$cont = x0 => x1 => Kind$Parser$ADT$Derive$serializer$term$cont$(x0, x1); @@ -40158,33 +36095,33 @@ module.exports = (function() { var self = _args$1; switch (self._) { case 'List.cons': - var $12787 = self.head; - var $12788 = self.tail; - var self = $12787; + var $11491 = self.head; + var $11492 = self.tail; + var self = $11491; switch (self._) { case 'Kind.Binder.new': - var $12790 = self.name; - var $12791 = self.term; - var self = Kind$Term$get_args$($12791); + var $11494 = self.name; + var $11495 = self.term; + var self = Kind$Term$get_args$($11495); switch (self._) { case 'Pair.new': - var _rest$9 = Kind$Parser$ADT$Derive$serializer$term$args$($12788); - var _term$10 = Kind$Parser$ADT$Derive$serializer$term$cont$($12791, Maybe$some$(Pair$new$(("x." + $12790), _rest$9))); - var $12793 = _term$10; - var $12792 = $12793; + var _rest$9 = Kind$Parser$ADT$Derive$serializer$term$args$($11492); + var _term$10 = Kind$Parser$ADT$Derive$serializer$term$cont$($11495, Maybe$some$(Pair$new$(("x." + $11494), _rest$9))); + var $11497 = _term$10; + var $11496 = $11497; break; }; - var $12789 = $12792; + var $11493 = $11496; break; }; - var $12786 = $12789; + var $11490 = $11493; break; case 'List.nil': - var $12794 = Kind$Term$ref$("bs"); - var $12786 = $12794; + var $11498 = Kind$Term$ref$("bs"); + var $11490 = $11498; break; }; - return $12786; + return $11490; }; const Kind$Parser$ADT$Derive$serializer$term$args = x0 => Kind$Parser$ADT$Derive$serializer$term$args$(x0); @@ -40192,21 +36129,21 @@ module.exports = (function() { var self = _bs$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $12796 = self.slice(0, -1); - var $12797 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($12796, _rest$2)); - var $12795 = $12797; + var $11500 = self.slice(0, -1); + var $11501 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($11500, _rest$2)); + var $11499 = $11501; break; case 'i': - var $12798 = self.slice(0, -1); - var $12799 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($12798, _rest$2)); - var $12795 = $12799; + var $11502 = self.slice(0, -1); + var $11503 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$ctr$bits$($11502, _rest$2)); + var $11499 = $11503; break; case 'e': - var $12800 = _rest$2; - var $12795 = $12800; + var $11504 = _rest$2; + var $11499 = $11504; break; }; - return $12795; + return $11499; }; const Kind$Parser$ADT$Derive$serializer$ctr$bits = x0 => x1 => Kind$Parser$ADT$Derive$serializer$ctr$bits$(x0, x1); @@ -40214,15 +36151,15 @@ module.exports = (function() { var self = _ctr$2; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12802 = self.name; - var $12803 = self.args; - var _term$7 = Kind$Parser$ADT$Derive$serializer$term$args$($12803); + var $11506 = self.name; + var $11507 = self.args; + var _term$7 = Kind$Parser$ADT$Derive$serializer$term$args$($11507); var _term$8 = Kind$Parser$ADT$Derive$serializer$ctr$bits$(_header$3, _term$7); - var $12804 = Pair$new$($12802, _term$8); - var $12801 = $12804; + var $11508 = Pair$new$($11506, _term$8); + var $11505 = $11508; break; }; - return $12801; + return $11505; }; const Kind$Parser$ADT$Derive$serializer$ctr = x0 => x1 => x2 => Kind$Parser$ADT$Derive$serializer$ctr$(x0, x1, x2); @@ -40230,31 +36167,31 @@ module.exports = (function() { var self = _ctrs$2; switch (self._) { case 'List.cons': - var $12806 = self.head; - var $12807 = self.tail; - var $12808 = List$cons$(Kind$Parser$ADT$Derive$serializer$ctr$(_adt_name$1, $12806, _header$3), Kind$Parser$ADT$Derive$serializer$term$ctrs$(_adt_name$1, $12807, Bits$inc$(_header$3))); - var $12805 = $12808; + var $11510 = self.head; + var $11511 = self.tail; + var $11512 = List$cons$(Kind$Parser$ADT$Derive$serializer$ctr$(_adt_name$1, $11510, _header$3), Kind$Parser$ADT$Derive$serializer$term$ctrs$(_adt_name$1, $11511, Bits$inc$(_header$3))); + var $11509 = $11512; break; case 'List.nil': - var $12809 = List$nil; - var $12805 = $12809; + var $11513 = List$nil; + var $11509 = $11513; break; }; - return $12805; + return $11509; }; const Kind$Parser$ADT$Derive$serializer$term$ctrs = x0 => x1 => x2 => Kind$Parser$ADT$Derive$serializer$term$ctrs$(x0, x1, x2); function Bits$zeros$(_n$1) { var self = _n$1; if (self === 0n) { - var $12811 = Bits$e; - var $12810 = $12811; + var $11515 = Bits$e; + var $11514 = $11515; } else { - var $12812 = (self - 1n); - var $12813 = (Bits$zeros$($12812) + '0'); - var $12810 = $12813; + var $11516 = (self - 1n); + var $11517 = (Bits$zeros$($11516) + '0'); + var $11514 = $11517; }; - return $12810; + return $11514; }; const Bits$zeros = x0 => Bits$zeros$(x0); const Nat$div = a0 => a1 => (a0 / a1); @@ -40262,14 +36199,14 @@ module.exports = (function() { function Nat$bitlen$(_n$1) { var self = _n$1; if (self === 0n) { - var $12815 = 0n; - var $12814 = $12815; + var $11519 = 0n; + var $11518 = $11519; } else { - var $12816 = (self - 1n); - var $12817 = Nat$succ$(Nat$bitlen$((_n$1 / 2n))); - var $12814 = $12817; + var $11520 = (self - 1n); + var $11521 = Nat$succ$(Nat$bitlen$((_n$1 / 2n))); + var $11518 = $11521; }; - return $12814; + return $11518; }; const Nat$bitlen = x0 => Nat$bitlen$(x0); @@ -40277,52 +36214,52 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12819 = self.name; - var $12820 = self.pars; - var $12821 = self.inds; - var $12822 = self.ctrs; - var self = (List$is_empty$($12820) && List$is_empty$($12821)); + var $11523 = self.name; + var $11524 = self.pars; + var $11525 = self.inds; + var $11526 = self.ctrs; + var self = (List$is_empty$($11524) && List$is_empty$($11525)); if (self) { var _term$7 = Kind$Term$lam$("x", (_x$7 => { - var $12825 = Kind$Term$lam$("bs", (_bs$8 => { - var _ctrs$9 = Kind$Parser$ADT$Derive$serializer$term$ctrs$($12819, $12822, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($12822)))))); + var $11529 = Kind$Term$lam$("bs", (_bs$8 => { + var _ctrs$9 = Kind$Parser$ADT$Derive$serializer$term$ctrs$($11523, $11526, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($11526)))))); var _cses$10 = Kind$Map$new; var _cses$11 = (() => { - var $12828 = _cses$10; - var $12829 = _ctrs$9; - let _cses$12 = $12828; + var $11532 = _cses$10; + var $11533 = _ctrs$9; + let _cses$12 = $11532; let _ctr$11; - while ($12829._ === 'List.cons') { - _ctr$11 = $12829.head; + while ($11533._ === 'List.cons') { + _ctr$11 = $11533.head; var self = _ctr$11; switch (self._) { case 'Pair.new': - var $12830 = self.fst; - var $12831 = self.snd; - var $12832 = Kind$Map$set$($12830, $12831, _cses$12); - var $12828 = $12832; + var $11534 = self.fst; + var $11535 = self.snd; + var $11536 = Kind$Map$set$($11534, $11535, _cses$12); + var $11532 = $11536; break; }; - _cses$12 = $12828; - $12829 = $12829.tail; + _cses$12 = $11532; + $11533 = $11533.tail; } return _cses$12; })(); - var $12826 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); - return $12826; + var $11530 = Kind$Term$cse$(Bits$e, _x$7, "x", List$nil, _cses$11, Maybe$none); + return $11530; })); - return $12825; + return $11529; })); - var $12824 = Maybe$some$(_term$7); - var $12823 = $12824; + var $11528 = Maybe$some$(_term$7); + var $11527 = $11528; } else { - var $12833 = Maybe$none; - var $12823 = $12833; + var $11537 = Maybe$none; + var $11527 = $11537; }; - var $12818 = $12823; + var $11522 = $11527; break; }; - return $12818; + return $11522; }; const Kind$Parser$ADT$Derive$serializer$term = x0 => Kind$Parser$ADT$Derive$serializer$term$(x0); @@ -40330,21 +36267,21 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12835 = self.name; - var $12836 = self.pars; - var $12837 = self.inds; - var self = (List$is_empty$($12836) && List$is_empty$($12837)); + var $11539 = self.name; + var $11540 = self.pars; + var $11541 = self.inds; + var self = (List$is_empty$($11540) && List$is_empty$($11541)); if (self) { - var $12839 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Serializer"), Kind$Term$ref$($12835))); - var $12838 = $12839; + var $11543 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Serializer"), Kind$Term$ref$($11539))); + var $11542 = $11543; } else { - var $12840 = Maybe$none; - var $12838 = $12840; + var $11544 = Maybe$none; + var $11542 = $11544; }; - var $12834 = $12838; + var $11538 = $11542; break; }; - return $12834; + return $11538; }; const Kind$Parser$ADT$Derive$serializer$type = x0 => Kind$Parser$ADT$Derive$serializer$type$(x0); @@ -40352,21 +36289,21 @@ module.exports = (function() { var self = _bits$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $12842 = self.slice(0, -1); - var $12843 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$term$bits$($12842)); - var $12841 = $12843; + var $11546 = self.slice(0, -1); + var $11547 = Kind$Term$app$(Kind$Term$ref$("Bits.o"), Kind$Parser$ADT$Derive$serializer$term$bits$($11546)); + var $11545 = $11547; break; case 'i': - var $12844 = self.slice(0, -1); - var $12845 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$term$bits$($12844)); - var $12841 = $12845; + var $11548 = self.slice(0, -1); + var $11549 = Kind$Term$app$(Kind$Term$ref$("Bits.i"), Kind$Parser$ADT$Derive$serializer$term$bits$($11548)); + var $11545 = $11549; break; case 'e': - var $12846 = Kind$Term$ref$("Bits.e"); - var $12841 = $12846; + var $11550 = Kind$Term$ref$("Bits.e"); + var $11545 = $11550; break; }; - return $12841; + return $11545; }; const Kind$Parser$ADT$Derive$serializer$term$bits = x0 => Kind$Parser$ADT$Derive$serializer$term$bits$(x0); @@ -40374,40 +36311,40 @@ module.exports = (function() { var self = Kind$Term$get_args$(_call$1); switch (self._) { case 'Pair.new': - var $12848 = self.fst; - var $12849 = self.snd; - var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($12848) + ".deserializer")); + var $11552 = self.fst; + var $11553 = self.snd; + var _term$4 = Kind$Term$ref$((Kind$Term$extract_name$($11552) + ".deserializer")); var _term$5 = (() => { - var $12852 = _term$4; - var $12853 = $12849; - let _term$6 = $12852; + var $11556 = _term$4; + var $11557 = $11553; + let _term$6 = $11556; let _par$5; - while ($12853._ === 'List.cons') { - _par$5 = $12853.head; - var $12852 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); - _term$6 = $12852; - $12853 = $12853.tail; + while ($11557._ === 'List.cons') { + _par$5 = $11557.head; + var $11556 = Kind$Term$app$(_term$6, Kind$Term$hol$(Bits$e)); + _term$6 = $11556; + $11557 = $11557.tail; } return _term$6; })(); var _term$6 = (() => { - var $12855 = _term$5; - var $12856 = $12849; - let _term$7 = $12855; + var $11559 = _term$5; + var $11560 = $11553; + let _term$7 = $11559; let _par$6; - while ($12856._ === 'List.cons') { - _par$6 = $12856.head; - var $12855 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$deserializer$term$cont$(_par$6)); - _term$7 = $12855; - $12856 = $12856.tail; + while ($11560._ === 'List.cons') { + _par$6 = $11560.head; + var $11559 = Kind$Term$app$(_term$7, Kind$Parser$ADT$Derive$deserializer$term$cont$(_par$6)); + _term$7 = $11559; + $11560 = $11560.tail; } return _term$7; })(); - var $12850 = _term$6; - var $12847 = $12850; + var $11554 = _term$6; + var $11551 = $11554; break; }; - return $12847; + return $11551; }; const Kind$Parser$ADT$Derive$deserializer$term$cont = x0 => Kind$Parser$ADT$Derive$deserializer$term$cont$(x0); @@ -40415,41 +36352,41 @@ module.exports = (function() { var self = _args$3; switch (self._) { case 'List.cons': - var $12858 = self.head; - var $12859 = self.tail; - var self = $12858; + var $11562 = self.head; + var $11563 = self.tail; + var self = $11562; switch (self._) { case 'Kind.Binder.new': - var $12861 = self.name; - var $12862 = self.term; + var $11565 = self.name; + var $11566 = self.term; var _term$11 = Kind$Term$ref$("Deserializer.bind"); var _term$12 = Kind$Term$app$(_term$11, Kind$Term$hol$(Bits$e)); var _term$13 = Kind$Term$app$(_term$12, Kind$Term$hol$(Bits$e)); - var _term$14 = Kind$Term$app$(_term$13, Kind$Parser$ADT$Derive$deserializer$term$cont$($12862)); - var _term$15 = Kind$Term$app$(_term$14, Kind$Term$lam$($12861, (_x$15 => { - var $12864 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$2, $12859, List$cons$(_x$15, _vars$4), Bool$false); - return $12864; + var _term$14 = Kind$Term$app$(_term$13, Kind$Parser$ADT$Derive$deserializer$term$cont$($11566)); + var _term$15 = Kind$Term$app$(_term$14, Kind$Term$lam$($11565, (_x$15 => { + var $11568 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$2, $11563, List$cons$(_x$15, _vars$4), Bool$false); + return $11568; }))); - var $12863 = _term$15; - var $12860 = $12863; + var $11567 = _term$15; + var $11564 = $11567; break; }; - var $12857 = $12860; + var $11561 = $11564; break; case 'List.nil': var _body$6 = Kind$Term$ref$("Deserializer.pure"); var _body$7 = Kind$Term$app$(_body$6, Kind$Term$hol$(Bits$e)); var _func$8 = Kind$Term$ref$(_cnam$2); var _func$9 = List$fold$(_vars$4, _func$8, (_var$9 => _func$10 => { - var $12866 = Kind$Term$app$(_func$10, _var$9); - return $12866; + var $11570 = Kind$Term$app$(_func$10, _var$9); + return $11570; })); var _body$10 = Kind$Term$app$(_body$7, _func$9); - var $12865 = _body$10; - var $12857 = $12865; + var $11569 = _body$10; + var $11561 = $11569; break; }; - return $12857; + return $11561; }; const Kind$Parser$ADT$Derive$deserializer$term$args = x0 => x1 => x2 => x3 => x4 => Kind$Parser$ADT$Derive$deserializer$term$args$(x0, x1, x2, x3, x4); @@ -40457,45 +36394,45 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12868 = self.name; + var $11572 = self.name; var self = _cses$2; switch (self._) { case 'List.cons': - var $12870 = self.head; - var $12871 = self.tail; - var self = $12870; + var $11574 = self.head; + var $11575 = self.tail; + var self = $11574; switch (self._) { case 'Kind.Parser.ADT.Constructor.new': - var $12873 = self.name; - var $12874 = self.args; - var _cnam$14 = ($12868 + ("." + $12873)); + var $11577 = self.name; + var $11578 = self.args; + var _cnam$14 = ($11572 + ("." + $11577)); var _term$15 = Kind$Term$ref$("Deserializer.bind"); var _term$16 = Kind$Term$app$(_term$15, Kind$Term$hol$(Bits$e)); var _term$17 = Kind$Term$app$(_term$16, Kind$Term$hol$(Bits$e)); var _term$18 = Kind$Term$app$(_term$17, Kind$Term$app$(Kind$Term$ref$("Deserializer.bits"), Kind$Parser$ADT$Derive$serializer$term$bits$(_header$3))); var _term$19 = Kind$Term$app$(_term$18, Kind$Term$lam$("", (_x$19 => { - var $12876 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$14, $12874, List$nil, Bool$true); - return $12876; + var $11580 = Kind$Parser$ADT$Derive$deserializer$term$args$(_adt$1, _cnam$14, $11578, List$nil, Bool$true); + return $11580; }))); var _list$20 = Kind$Term$ref$("List.cons"); var _list$21 = Kind$Term$app$(_list$20, Kind$Term$hol$(Bits$e)); var _list$22 = Kind$Term$app$(_list$21, _term$19); - var _list$23 = Kind$Term$app$(_list$22, Kind$Parser$ADT$Derive$deserializer$term$cses$(_adt$1, $12871, Bits$inc$(_header$3))); - var $12875 = _list$23; - var $12872 = $12875; + var _list$23 = Kind$Term$app$(_list$22, Kind$Parser$ADT$Derive$deserializer$term$cses$(_adt$1, $11575, Bits$inc$(_header$3))); + var $11579 = _list$23; + var $11576 = $11579; break; }; - var $12869 = $12872; + var $11573 = $11576; break; case 'List.nil': - var $12877 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); - var $12869 = $12877; + var $11581 = Kind$Term$app$(Kind$Term$ref$("List.nil"), Kind$Term$hol$(Bits$e)); + var $11573 = $11581; break; }; - var $12867 = $12869; + var $11571 = $11573; break; }; - return $12867; + return $11571; }; const Kind$Parser$ADT$Derive$deserializer$term$cses = x0 => x1 => x2 => Kind$Parser$ADT$Derive$deserializer$term$cses$(x0, x1, x2); @@ -40503,24 +36440,24 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12879 = self.pars; - var $12880 = self.inds; - var $12881 = self.ctrs; - var self = (List$is_empty$($12879) && List$is_empty$($12880)); + var $11583 = self.pars; + var $11584 = self.inds; + var $11585 = self.ctrs; + var self = (List$is_empty$($11583) && List$is_empty$($11584)); if (self) { var _term$7 = Kind$Term$ref$("Deserializer.choice"); var _term$8 = Kind$Term$app$(_term$7, Kind$Term$hol$(Bits$e)); - var _term$9 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$deserializer$term$cses$(_adt$1, $12881, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($12881))))))); - var $12883 = Maybe$some$(_term$9); - var $12882 = $12883; + var _term$9 = Kind$Term$app$(_term$8, Kind$Parser$ADT$Derive$deserializer$term$cses$(_adt$1, $11585, Bits$zeros$(Nat$bitlen$(Nat$pred$((list_length($11585))))))); + var $11587 = Maybe$some$(_term$9); + var $11586 = $11587; } else { - var $12884 = Maybe$none; - var $12882 = $12884; + var $11588 = Maybe$none; + var $11586 = $11588; }; - var $12878 = $12882; + var $11582 = $11586; break; }; - return $12878; + return $11582; }; const Kind$Parser$ADT$Derive$deserializer$term = x0 => Kind$Parser$ADT$Derive$deserializer$term$(x0); @@ -40528,21 +36465,21 @@ module.exports = (function() { var self = _adt$1; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12886 = self.name; - var $12887 = self.pars; - var $12888 = self.inds; - var self = (List$is_empty$($12887) && List$is_empty$($12888)); + var $11590 = self.name; + var $11591 = self.pars; + var $11592 = self.inds; + var self = (List$is_empty$($11591) && List$is_empty$($11592)); if (self) { - var $12890 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Deserializer"), Kind$Term$ref$($12886))); - var $12889 = $12890; + var $11594 = Maybe$some$(Kind$Term$app$(Kind$Term$ref$("Deserializer"), Kind$Term$ref$($11590))); + var $11593 = $11594; } else { - var $12891 = Maybe$none; - var $12889 = $12891; + var $11595 = Maybe$none; + var $11593 = $11595; }; - var $12885 = $12889; + var $11589 = $11593; break; }; - return $12885; + return $11589; }; const Kind$Parser$ADT$Derive$deserializer$type = x0 => Kind$Parser$ADT$Derive$deserializer$type$(x0); @@ -40550,104 +36487,104 @@ module.exports = (function() { var self = _adt$2; switch (self._) { case 'Kind.Parser.ADT.Datatype.new': - var $12893 = self.name; + var $11597 = self.name; var self = (_deri$1 === "stringifier"); if (self) { - var _name$8 = ($12893 + ("." + _deri$1)); - var $12895 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $12896 = _m$bind$9; - return $12896; + var _name$8 = ($11597 + ("." + _deri$1)); + var $11599 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $11600 = _m$bind$9; + return $11600; }))(Kind$Parser$ADT$Derive$stringifier$term$(_adt$2))((_term$9 => { - var $12897 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $12898 = _m$bind$10; - return $12898; + var $11601 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $11602 = _m$bind$10; + return $11602; }))(Kind$Parser$ADT$Derive$stringifier$type$(_adt$2))((_type$10 => { - var $12899 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $12900 = _m$pure$12; - return $12900; + var $11603 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $11604 = _m$pure$12; + return $11604; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $12899; + return $11603; })); - return $12897; + return $11601; })); - var $12894 = $12895; + var $11598 = $11599; } else { var self = (_deri$1 === "parser"); if (self) { - var _name$8 = ($12893 + ("." + _deri$1)); - var $12902 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $12903 = _m$bind$9; - return $12903; + var _name$8 = ($11597 + ("." + _deri$1)); + var $11606 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $11607 = _m$bind$9; + return $11607; }))(Kind$Parser$ADT$Derive$parser$term$(_adt$2))((_term$9 => { - var $12904 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $12905 = _m$bind$10; - return $12905; + var $11608 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $11609 = _m$bind$10; + return $11609; }))(Kind$Parser$ADT$Derive$parser$type$(_adt$2))((_type$10 => { - var $12906 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $12907 = _m$pure$12; - return $12907; + var $11610 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $11611 = _m$pure$12; + return $11611; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $12906; + return $11610; })); - return $12904; + return $11608; })); - var $12901 = $12902; + var $11605 = $11606; } else { var self = (_deri$1 === "serializer"); if (self) { - var _name$8 = ($12893 + ("." + _deri$1)); - var $12909 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $12910 = _m$bind$9; - return $12910; + var _name$8 = ($11597 + ("." + _deri$1)); + var $11613 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $11614 = _m$bind$9; + return $11614; }))(Kind$Parser$ADT$Derive$serializer$term$(_adt$2))((_term$9 => { - var $12911 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $12912 = _m$bind$10; - return $12912; + var $11615 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $11616 = _m$bind$10; + return $11616; }))(Kind$Parser$ADT$Derive$serializer$type$(_adt$2))((_type$10 => { - var $12913 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $12914 = _m$pure$12; - return $12914; + var $11617 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $11618 = _m$pure$12; + return $11618; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $12913; + return $11617; })); - return $12911; + return $11615; })); - var $12908 = $12909; + var $11612 = $11613; } else { var self = (_deri$1 === "deserializer"); if (self) { - var _name$8 = ($12893 + ("." + _deri$1)); - var $12916 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { - var $12917 = _m$bind$9; - return $12917; + var _name$8 = ($11597 + ("." + _deri$1)); + var $11620 = Maybe$monad$((_m$bind$9 => _m$pure$10 => { + var $11621 = _m$bind$9; + return $11621; }))(Kind$Parser$ADT$Derive$deserializer$term$(_adt$2))((_term$9 => { - var $12918 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { - var $12919 = _m$bind$10; - return $12919; + var $11622 = Maybe$monad$((_m$bind$10 => _m$pure$11 => { + var $11623 = _m$bind$10; + return $11623; }))(Kind$Parser$ADT$Derive$deserializer$type$(_adt$2))((_type$10 => { - var $12920 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { - var $12921 = _m$pure$12; - return $12921; + var $11624 = Maybe$monad$((_m$bind$11 => _m$pure$12 => { + var $11625 = _m$pure$12; + return $11625; }))(Kind$Parser$ADT$Derived$new$(_name$8, 0n, _term$9, _type$10)); - return $12920; + return $11624; })); - return $12918; + return $11622; })); - var $12915 = $12916; + var $11619 = $11620; } else { - var $12922 = Maybe$none; - var $12915 = $12922; + var $11626 = Maybe$none; + var $11619 = $11626; }; - var $12908 = $12915; + var $11612 = $11619; }; - var $12901 = $12908; + var $11605 = $11612; }; - var $12894 = $12901; + var $11598 = $11605; }; - var $12892 = $12894; + var $11596 = $11598; break; }; - return $12892; + return $11596; }; const Kind$Parser$ADT$Derive$by_name = x0 => x1 => Kind$Parser$ADT$Derive$by_name$(x0, x1); @@ -40655,326 +36592,302 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $12924 = self.err; + var $11628 = self.err; var _reply$10 = Kind$Parser$spaces(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $12926 = self.err; - var self = $12924; + var $11630 = self.err; + var self = $11628; switch (self._) { case 'Maybe.some': - var $12928 = self.value; - var $12929 = Parser$Reply$error$(Parser$Error$combine$($12928, $12926)); - var $12927 = $12929; + var $11632 = self.value; + var $11633 = Parser$Reply$error$(Parser$Error$combine$($11632, $11630)); + var $11631 = $11633; break; case 'Maybe.none': - var $12930 = Parser$Reply$error$($12926); - var $12927 = $12930; + var $11634 = Parser$Reply$error$($11630); + var $11631 = $11634; break; }; - var $12925 = $12927; + var $11629 = $11631; break; case 'Parser.Reply.value': - var $12931 = self.pst; - var self = $12931; + var $11635 = self.pst; + var self = $11635; switch (self._) { case 'Parser.State.new': - var $12933 = self.err; - var $12934 = self.nam; - var $12935 = self.ini; - var $12936 = self.idx; - var $12937 = self.str; - var $12938 = ((console.log(("FALTANDO " + $12937)), (_$18 => { - var $12939 = ((console.log(("VALUE " + $12934)), (_$19 => { - var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($12924, $12933), $12934, $12935, $12936, $12937); - var self = _reply$pst$20; + var $11637 = self.err; + var $11638 = self.nam; + var $11639 = self.ini; + var $11640 = self.idx; + var $11641 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11628, $11637), $11638, $11639, $11640, $11641); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $11643 = self.err; + var _reply$24 = Parser$get_idx$(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Parser.State.new': - var $12941 = self.err; - var _reply$26 = Parser$get_idx$(_reply$pst$20); - var self = _reply$26; + case 'Parser.Reply.error': + var $11645 = self.err; + var self = $11643; switch (self._) { - case 'Parser.Reply.error': - var $12943 = self.err; - var self = $12941; - switch (self._) { - case 'Maybe.some': - var $12945 = self.value; - var $12946 = Parser$Reply$error$(Parser$Error$combine$($12945, $12943)); - var $12944 = $12946; - break; - case 'Maybe.none': - var $12947 = Parser$Reply$error$($12943); - var $12944 = $12947; - break; - }; - var $12942 = $12944; + case 'Maybe.some': + var $11647 = self.value; + var $11648 = Parser$Reply$error$(Parser$Error$combine$($11647, $11645)); + var $11646 = $11648; break; - case 'Parser.Reply.value': - var $12948 = self.pst; - var $12949 = self.val; - var self = $12948; - switch (self._) { - case 'Parser.State.new': - var $12951 = self.err; - var $12952 = self.nam; - var $12953 = self.ini; - var $12954 = self.idx; - var $12955 = self.str; - var $12956 = ((console.log(("FALTANDO " + $12955)), (_$34 => { - var $12957 = ((console.log(("VALUE " + $12952)), (_$35 => { - var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($12941, $12951), $12952, $12953, $12954, $12955); - var self = _reply$pst$36; - switch (self._) { - case 'Parser.State.new': - var $12959 = self.err; - var _reply$42 = Kind$Parser$ADT$adt$(_reply$pst$36); - var self = _reply$42; - switch (self._) { - case 'Parser.Reply.error': - var $12961 = self.err; - var self = $12959; - switch (self._) { - case 'Maybe.some': - var $12963 = self.value; - var $12964 = Parser$Reply$error$(Parser$Error$combine$($12963, $12961)); - var $12962 = $12964; - break; - case 'Maybe.none': - var $12965 = Parser$Reply$error$($12961); - var $12962 = $12965; - break; - }; - var $12960 = $12962; - break; - case 'Parser.Reply.value': - var $12966 = self.pst; - var $12967 = self.val; - var self = $12966; - switch (self._) { - case 'Parser.State.new': - var $12969 = self.err; - var $12970 = self.nam; - var $12971 = self.ini; - var $12972 = self.idx; - var $12973 = self.str; - var $12974 = ((console.log(("FALTANDO " + $12973)), (_$50 => { - var $12975 = ((console.log(("VALUE " + $12970)), (_$51 => { - var _reply$pst$52 = Parser$State$new$(Parser$Error$maybe_combine$($12959, $12969), $12970, $12971, $12972, $12973); - var self = _reply$pst$52; - switch (self._) { - case 'Parser.State.new': - var $12977 = self.err; - var _reply$58 = Parser$get_idx$(_reply$pst$52); - var self = _reply$58; - switch (self._) { - case 'Parser.Reply.error': - var $12979 = self.err; - var self = $12977; - switch (self._) { - case 'Maybe.some': - var $12981 = self.value; - var $12982 = Parser$Reply$error$(Parser$Error$combine$($12981, $12979)); - var $12980 = $12982; - break; - case 'Maybe.none': - var $12983 = Parser$Reply$error$($12979); - var $12980 = $12983; - break; - }; - var $12978 = $12980; - break; - case 'Parser.Reply.value': - var $12984 = self.pst; - var $12985 = self.val; - var self = $12984; - switch (self._) { - case 'Parser.State.new': - var $12987 = self.err; - var $12988 = self.nam; - var $12989 = self.ini; - var $12990 = self.idx; - var $12991 = self.str; - var $12992 = ((console.log(("FALTANDO " + $12991)), (_$66 => { - var $12993 = ((console.log(("VALUE " + $12988)), (_$67 => { - var _reply$pst$68 = Parser$State$new$(Parser$Error$maybe_combine$($12977, $12987), $12988, $12989, $12990, $12991); - var _orig$69 = Pair$new$($12949, $12985); - var self = $12967; - switch (self._) { - case 'Kind.Parser.ADT.Datatype.new': - var $12995 = self.name; - var $12996 = self.pars; - var $12997 = self.inds; - var $12998 = self.ctrs; - var $12999 = self.deri; - var _term$75 = Kind$Parser$ADT$Datatype$build_term$($12967); - var _term$76 = Kind$Term$bind$(List$nil, (_x$76 => { - var $13001 = (_x$76 + '1'); - return $13001; - }), _term$75); - var _type$77 = Kind$Parser$ADT$Datatype$build_type$($12967); - var _type$78 = Kind$Term$bind$(List$nil, (_x$78 => { - var $13002 = (_x$78 + '0'); - return $13002; - }), _type$77); - var _arit$79 = ((list_length($12996)) + (list_length($12997))); - var _defs$80 = Kind$Map$def$(_file$1, _code$2, _orig$69, $12995, _term$76, _type$78, Bool$false, _arit$79, Bool$false, _defs$3); - var _defs$81 = List$fold$($12998, _defs$80, (_ctr$81 => _defs$82 => { - var _typ_name$83 = $12995; - var _ctr_arit$84 = (_arit$79 + (list_length((() => { - var self = _ctr$81; - switch (self._) { - case 'Kind.Parser.ADT.Constructor.new': - var $13004 = self.args; - var $13005 = $13004; - return $13005; - }; - })()))); - var _ctr_name$85 = String$flatten$(List$cons$(_typ_name$83, List$cons$(Kind$Name$read$("."), List$cons$((() => { - var self = _ctr$81; - switch (self._) { - case 'Kind.Parser.ADT.Constructor.new': - var $13006 = self.name; - var $13007 = $13006; - return $13007; - }; - })(), List$nil)))); - var _ctr_term$86 = Kind$Parser$ADT$Constructor$build_term$($12967, _ctr$81); - var _ctr_term$87 = Kind$Term$bind$(List$nil, (_x$87 => { - var $13008 = (_x$87 + '1'); - return $13008; - }), _ctr_term$86); - var _ctr_type$88 = Kind$Parser$ADT$Constructor$build_type$($12967, _ctr$81); - var _ctr_type$89 = Kind$Term$bind$(List$nil, (_x$89 => { - var $13009 = (_x$89 + '0'); - return $13009; - }), _ctr_type$88); - var $13003 = Kind$Map$def$(_file$1, _code$2, _orig$69, _ctr_name$85, _ctr_term$87, _ctr_type$89, Bool$true, _ctr_arit$84, Bool$false, _defs$82); - return $13003; - })); - var _defs$82 = List$fold$($12999, Either$right$(_defs$81), (_deri$82 => _defs$83 => { - var self = _defs$83; - switch (self._) { - case 'Either.left': - var $13011 = self.value; - var $13012 = Either$left$($13011); - var $13010 = $13012; - break; - case 'Either.right': - var $13013 = self.value; - var self = Kind$Parser$ADT$Derive$by_name$(_deri$82, $12967); - switch (self._) { - case 'Maybe.some': - var $13015 = self.value; - var self = $13015; - switch (self._) { - case 'Kind.Parser.ADT.Derived.new': - var $13017 = self.name; - var $13018 = self.arit; - var $13019 = self.term; - var $13020 = self.type; - var _name$90 = $13017; - var _term$91 = $13019; - var _term$92 = Kind$Term$bind$(List$nil, (_x$92 => { - var $13022 = (_x$92 + '1'); - return $13022; - }), _term$91); - var _type$93 = $13020; - var _type$94 = Kind$Term$bind$(List$nil, (_x$94 => { - var $13023 = (_x$94 + '0'); - return $13023; - }), _type$93); - var _arit$95 = $13018; - var $13021 = Either$right$(Kind$Map$def$(_file$1, _code$2, _orig$69, _name$90, _term$92, _type$94, Bool$false, _arit$95, Bool$false, $13013)); - var $13016 = $13021; - break; - }; - var $13014 = $13016; - break; - case 'Maybe.none': - var $13024 = Either$left$(("Can\'t derive \'" + (_deri$82 + ("\' for \'" + ($12995 + "\' type."))))); - var $13014 = $13024; - break; - }; - var $13010 = $13014; - break; - }; - return $13010; - })); - var self = _defs$82; - switch (self._) { - case 'Either.left': - var $13025 = self.value; - var $13026 = Parser$fail($13025); - var $13000 = $13026; - break; - case 'Either.right': - var $13027 = self.value; - var $13028 = (_pst$84 => { - var $13029 = Parser$Reply$value$(_pst$84, $13027); - return $13029; - }); - var $13000 = $13028; - break; - }; - var $12994 = $13000; - break; - }; - var $12994 = $12994(_reply$pst$68); - return $12994; - })())); - return $12993; - })())); - var $12986 = $12992; - break; - }; - var $12978 = $12986; - break; - }; - var $12976 = $12978; - break; - }; - return $12976; - })())); - return $12975; - })())); - var $12968 = $12974; - break; - }; - var $12960 = $12968; - break; - }; - var $12958 = $12960; - break; - }; - return $12958; - })())); - return $12957; - })())); - var $12950 = $12956; - break; - }; - var $12942 = $12950; + case 'Maybe.none': + var $11649 = Parser$Reply$error$($11645); + var $11646 = $11649; break; }; - var $12940 = $12942; + var $11644 = $11646; + break; + case 'Parser.Reply.value': + var $11650 = self.pst; + var $11651 = self.val; + var self = $11650; + switch (self._) { + case 'Parser.State.new': + var $11653 = self.err; + var $11654 = self.nam; + var $11655 = self.ini; + var $11656 = self.idx; + var $11657 = self.str; + var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($11643, $11653), $11654, $11655, $11656, $11657); + var self = _reply$pst$32; + switch (self._) { + case 'Parser.State.new': + var $11659 = self.err; + var _reply$38 = Kind$Parser$ADT$adt$(_reply$pst$32); + var self = _reply$38; + switch (self._) { + case 'Parser.Reply.error': + var $11661 = self.err; + var self = $11659; + switch (self._) { + case 'Maybe.some': + var $11663 = self.value; + var $11664 = Parser$Reply$error$(Parser$Error$combine$($11663, $11661)); + var $11662 = $11664; + break; + case 'Maybe.none': + var $11665 = Parser$Reply$error$($11661); + var $11662 = $11665; + break; + }; + var $11660 = $11662; + break; + case 'Parser.Reply.value': + var $11666 = self.pst; + var $11667 = self.val; + var self = $11666; + switch (self._) { + case 'Parser.State.new': + var $11669 = self.err; + var $11670 = self.nam; + var $11671 = self.ini; + var $11672 = self.idx; + var $11673 = self.str; + var _reply$pst$46 = Parser$State$new$(Parser$Error$maybe_combine$($11659, $11669), $11670, $11671, $11672, $11673); + var self = _reply$pst$46; + switch (self._) { + case 'Parser.State.new': + var $11675 = self.err; + var _reply$52 = Parser$get_idx$(_reply$pst$46); + var self = _reply$52; + switch (self._) { + case 'Parser.Reply.error': + var $11677 = self.err; + var self = $11675; + switch (self._) { + case 'Maybe.some': + var $11679 = self.value; + var $11680 = Parser$Reply$error$(Parser$Error$combine$($11679, $11677)); + var $11678 = $11680; + break; + case 'Maybe.none': + var $11681 = Parser$Reply$error$($11677); + var $11678 = $11681; + break; + }; + var $11676 = $11678; + break; + case 'Parser.Reply.value': + var $11682 = self.pst; + var $11683 = self.val; + var self = $11682; + switch (self._) { + case 'Parser.State.new': + var $11685 = self.err; + var $11686 = self.nam; + var $11687 = self.ini; + var $11688 = self.idx; + var $11689 = self.str; + var _reply$pst$60 = Parser$State$new$(Parser$Error$maybe_combine$($11675, $11685), $11686, $11687, $11688, $11689); + var _orig$61 = Pair$new$($11651, $11683); + var self = $11667; + switch (self._) { + case 'Kind.Parser.ADT.Datatype.new': + var $11691 = self.name; + var $11692 = self.pars; + var $11693 = self.inds; + var $11694 = self.ctrs; + var $11695 = self.deri; + var _term$67 = Kind$Parser$ADT$Datatype$build_term$($11667); + var _term$68 = Kind$Term$bind$(List$nil, (_x$68 => { + var $11697 = (_x$68 + '1'); + return $11697; + }), _term$67); + var _type$69 = Kind$Parser$ADT$Datatype$build_type$($11667); + var _type$70 = Kind$Term$bind$(List$nil, (_x$70 => { + var $11698 = (_x$70 + '0'); + return $11698; + }), _type$69); + var _arit$71 = ((list_length($11692)) + (list_length($11693))); + var _defs$72 = Kind$Map$def$(_file$1, _code$2, _orig$61, $11691, _term$68, _type$70, Bool$false, _arit$71, Bool$false, _defs$3); + var _defs$73 = List$fold$($11694, _defs$72, (_ctr$73 => _defs$74 => { + var _typ_name$75 = $11691; + var _ctr_arit$76 = (_arit$71 + (list_length((() => { + var self = _ctr$73; + switch (self._) { + case 'Kind.Parser.ADT.Constructor.new': + var $11700 = self.args; + var $11701 = $11700; + return $11701; + }; + })()))); + var _ctr_name$77 = String$flatten$(List$cons$(_typ_name$75, List$cons$(Kind$Name$read$("."), List$cons$((() => { + var self = _ctr$73; + switch (self._) { + case 'Kind.Parser.ADT.Constructor.new': + var $11702 = self.name; + var $11703 = $11702; + return $11703; + }; + })(), List$nil)))); + var _ctr_term$78 = Kind$Parser$ADT$Constructor$build_term$($11667, _ctr$73); + var _ctr_term$79 = Kind$Term$bind$(List$nil, (_x$79 => { + var $11704 = (_x$79 + '1'); + return $11704; + }), _ctr_term$78); + var _ctr_type$80 = Kind$Parser$ADT$Constructor$build_type$($11667, _ctr$73); + var _ctr_type$81 = Kind$Term$bind$(List$nil, (_x$81 => { + var $11705 = (_x$81 + '0'); + return $11705; + }), _ctr_type$80); + var $11699 = Kind$Map$def$(_file$1, _code$2, _orig$61, _ctr_name$77, _ctr_term$79, _ctr_type$81, Bool$true, _ctr_arit$76, Bool$false, _defs$74); + return $11699; + })); + var _defs$74 = List$fold$($11695, Either$right$(_defs$73), (_deri$74 => _defs$75 => { + var self = _defs$75; + switch (self._) { + case 'Either.left': + var $11707 = self.value; + var $11708 = Either$left$($11707); + var $11706 = $11708; + break; + case 'Either.right': + var $11709 = self.value; + var self = Kind$Parser$ADT$Derive$by_name$(_deri$74, $11667); + switch (self._) { + case 'Maybe.some': + var $11711 = self.value; + var self = $11711; + switch (self._) { + case 'Kind.Parser.ADT.Derived.new': + var $11713 = self.name; + var $11714 = self.arit; + var $11715 = self.term; + var $11716 = self.type; + var _name$82 = $11713; + var _term$83 = $11715; + var _term$84 = Kind$Term$bind$(List$nil, (_x$84 => { + var $11718 = (_x$84 + '1'); + return $11718; + }), _term$83); + var _type$85 = $11716; + var _type$86 = Kind$Term$bind$(List$nil, (_x$86 => { + var $11719 = (_x$86 + '0'); + return $11719; + }), _type$85); + var _arit$87 = $11714; + var $11717 = Either$right$(Kind$Map$def$(_file$1, _code$2, _orig$61, _name$82, _term$84, _type$86, Bool$false, _arit$87, Bool$false, $11709)); + var $11712 = $11717; + break; + }; + var $11710 = $11712; + break; + case 'Maybe.none': + var $11720 = Either$left$(("Can\'t derive \'" + (_deri$74 + ("\' for \'" + ($11691 + "\' type."))))); + var $11710 = $11720; + break; + }; + var $11706 = $11710; + break; + }; + return $11706; + })); + var self = _defs$74; + switch (self._) { + case 'Either.left': + var $11721 = self.value; + var $11722 = Parser$fail($11721); + var $11696 = $11722; + break; + case 'Either.right': + var $11723 = self.value; + var $11724 = (_pst$76 => { + var $11725 = Parser$Reply$value$(_pst$76, $11723); + return $11725; + }); + var $11696 = $11724; + break; + }; + var $11690 = $11696; + break; + }; + var $11690 = $11690(_reply$pst$60); + var $11684 = $11690; + break; + }; + var $11676 = $11684; + break; + }; + var $11674 = $11676; + break; + }; + var $11668 = $11674; + break; + }; + var $11660 = $11668; + break; + }; + var $11658 = $11660; + break; + }; + var $11652 = $11658; + break; + }; + var $11644 = $11652; break; }; - return $12940; - })())); - return $12939; - })())); - var $12932 = $12938; + var $11642 = $11644; + break; + }; + var $11636 = $11642; break; }; - var $12925 = $12932; + var $11629 = $11636; break; }; - var $12923 = $12925; + var $11627 = $11629; break; }; - return $12923; + return $11627; }; const Kind$Parser$file$adt = x0 => x1 => x2 => x3 => Kind$Parser$file$adt$(x0, x1, x2, x3); @@ -40982,103 +36895,91 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $13031 = self.err; + var $11727 = self.err; var _reply$10 = Kind$Parser$spaces(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $13033 = self.err; - var self = $13031; + var $11729 = self.err; + var self = $11727; switch (self._) { case 'Maybe.some': - var $13035 = self.value; - var $13036 = Parser$Reply$error$(Parser$Error$combine$($13035, $13033)); - var $13034 = $13036; + var $11731 = self.value; + var $11732 = Parser$Reply$error$(Parser$Error$combine$($11731, $11729)); + var $11730 = $11732; break; case 'Maybe.none': - var $13037 = Parser$Reply$error$($13033); - var $13034 = $13037; + var $11733 = Parser$Reply$error$($11729); + var $11730 = $11733; break; }; - var $13032 = $13034; + var $11728 = $11730; break; case 'Parser.Reply.value': - var $13038 = self.pst; - var self = $13038; + var $11734 = self.pst; + var self = $11734; switch (self._) { case 'Parser.State.new': - var $13040 = self.err; - var $13041 = self.nam; - var $13042 = self.ini; - var $13043 = self.idx; - var $13044 = self.str; - var $13045 = ((console.log(("FALTANDO " + $13044)), (_$18 => { - var $13046 = ((console.log(("VALUE " + $13041)), (_$19 => { - var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($13031, $13040), $13041, $13042, $13043, $13044); - var self = _reply$pst$20; + var $11736 = self.err; + var $11737 = self.nam; + var $11738 = self.ini; + var $11739 = self.idx; + var $11740 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11727, $11736), $11737, $11738, $11739, $11740); + var self = _reply$pst$18; + switch (self._) { + case 'Parser.State.new': + var $11742 = self.err; + var _reply$24 = Parser$eof$(_reply$pst$18); + var self = _reply$24; switch (self._) { - case 'Parser.State.new': - var $13048 = self.err; - var _reply$26 = Parser$eof$(_reply$pst$20); - var self = _reply$26; + case 'Parser.Reply.error': + var $11744 = self.err; + var self = $11742; switch (self._) { - case 'Parser.Reply.error': - var $13050 = self.err; - var self = $13048; - switch (self._) { - case 'Maybe.some': - var $13052 = self.value; - var $13053 = Parser$Reply$error$(Parser$Error$combine$($13052, $13050)); - var $13051 = $13053; - break; - case 'Maybe.none': - var $13054 = Parser$Reply$error$($13050); - var $13051 = $13054; - break; - }; - var $13049 = $13051; + case 'Maybe.some': + var $11746 = self.value; + var $11747 = Parser$Reply$error$(Parser$Error$combine$($11746, $11744)); + var $11745 = $11747; break; - case 'Parser.Reply.value': - var $13055 = self.pst; - var self = $13055; - switch (self._) { - case 'Parser.State.new': - var $13057 = self.err; - var $13058 = self.nam; - var $13059 = self.ini; - var $13060 = self.idx; - var $13061 = self.str; - var $13062 = ((console.log(("FALTANDO " + $13061)), (_$34 => { - var $13063 = ((console.log(("VALUE " + $13058)), (_$35 => { - var _reply$pst$36 = Parser$State$new$(Parser$Error$maybe_combine$($13048, $13057), $13058, $13059, $13060, $13061); - var $13064 = Parser$Reply$value$(_reply$pst$36, _defs$3); - return $13064; - })())); - return $13063; - })())); - var $13056 = $13062; - break; - }; - var $13049 = $13056; + case 'Maybe.none': + var $11748 = Parser$Reply$error$($11744); + var $11745 = $11748; break; }; - var $13047 = $13049; + var $11743 = $11745; + break; + case 'Parser.Reply.value': + var $11749 = self.pst; + var self = $11749; + switch (self._) { + case 'Parser.State.new': + var $11751 = self.err; + var $11752 = self.nam; + var $11753 = self.ini; + var $11754 = self.idx; + var $11755 = self.str; + var _reply$pst$32 = Parser$State$new$(Parser$Error$maybe_combine$($11742, $11751), $11752, $11753, $11754, $11755); + var $11756 = Parser$Reply$value$(_reply$pst$32, _defs$3); + var $11750 = $11756; + break; + }; + var $11743 = $11750; break; }; - return $13047; - })())); - return $13046; - })())); - var $13039 = $13045; + var $11741 = $11743; + break; + }; + var $11735 = $11741; break; }; - var $13032 = $13039; + var $11728 = $11735; break; }; - var $13030 = $13032; + var $11726 = $11728; break; }; - return $13030; + return $11726; }; const Kind$Parser$file$end = x0 => x1 => x2 => x3 => Kind$Parser$file$end$(x0, x1, x2, x3); @@ -41086,175 +36987,190 @@ module.exports = (function() { var self = _pst$4; switch (self._) { case 'Parser.State.new': - var $13066 = self.err; + var $11758 = self.err; var _reply$10 = Parser$is_eof$(_pst$4); var self = _reply$10; switch (self._) { case 'Parser.Reply.error': - var $13068 = self.err; - var self = $13066; + var $11760 = self.err; + var self = $11758; switch (self._) { case 'Maybe.some': - var $13070 = self.value; - var $13071 = Parser$Reply$error$(Parser$Error$combine$($13070, $13068)); - var $13069 = $13071; + var $11762 = self.value; + var $11763 = Parser$Reply$error$(Parser$Error$combine$($11762, $11760)); + var $11761 = $11763; break; case 'Maybe.none': - var $13072 = Parser$Reply$error$($13068); - var $13069 = $13072; + var $11764 = Parser$Reply$error$($11760); + var $11761 = $11764; break; }; - var $13067 = $13069; + var $11759 = $11761; break; case 'Parser.Reply.value': - var $13073 = self.pst; - var $13074 = self.val; - var self = $13073; + var $11765 = self.pst; + var $11766 = self.val; + var self = $11765; switch (self._) { case 'Parser.State.new': - var $13076 = self.err; - var $13077 = self.nam; - var $13078 = self.ini; - var $13079 = self.idx; - var $13080 = self.str; - var $13081 = ((console.log(("FALTANDO " + $13080)), (_$18 => { - var $13082 = ((console.log(("VALUE " + $13077)), (_$19 => { - var _reply$pst$20 = Parser$State$new$(Parser$Error$maybe_combine$($13066, $13076), $13077, $13078, $13079, $13080); - var self = $13074; - if (self) { - var $13084 = (_pst$21 => { - var $13085 = Parser$Reply$value$(_pst$21, _defs$3); - return $13085; - }); - var $13083 = $13084; - } else { - var $13086 = (_pst$21 => { - var self = _pst$21; + var $11768 = self.err; + var $11769 = self.nam; + var $11770 = self.ini; + var $11771 = self.idx; + var $11772 = self.str; + var _reply$pst$18 = Parser$State$new$(Parser$Error$maybe_combine$($11758, $11768), $11769, $11770, $11771, $11772); + var self = $11766; + if (self) { + var $11774 = (_pst$19 => { + var $11775 = Parser$Reply$value$(_pst$19, _defs$3); + return $11775; + }); + var $11773 = $11774; + } else { + var $11776 = (_pst$19 => { + var self = _pst$19; + switch (self._) { + case 'Parser.State.new': + var $11778 = self.err; + var _reply$25 = Parser$choice$(List$cons$(Kind$Parser$file$def(_file$1)(_code$2)(_defs$3), List$cons$(Kind$Parser$file$adt(_file$1)(_code$2)(_defs$3), List$cons$(Kind$Parser$file$end(_file$1)(_code$2)(_defs$3), List$cons$(Parser$fail("Expected a top-level definition or a type declaration."), List$nil)))), _pst$19); + var self = _reply$25; switch (self._) { - case 'Parser.State.new': - var $13088 = self.err; - var _reply$27 = Parser$choice$(List$cons$(Kind$Parser$file$def(_file$1)(_code$2)(_defs$3), List$cons$(Kind$Parser$file$adt(_file$1)(_code$2)(_defs$3), List$cons$(Kind$Parser$file$end(_file$1)(_code$2)(_defs$3), List$cons$(Parser$fail("Expected a top-level definition or a type declaration."), List$nil)))), _pst$21); - var self = _reply$27; + case 'Parser.Reply.error': + var $11780 = self.err; + var self = $11778; switch (self._) { - case 'Parser.Reply.error': - var $13090 = self.err; - var self = $13088; - switch (self._) { - case 'Maybe.some': - var $13092 = self.value; - var $13093 = Parser$Reply$error$(Parser$Error$combine$($13092, $13090)); - var $13091 = $13093; - break; - case 'Maybe.none': - var $13094 = Parser$Reply$error$($13090); - var $13091 = $13094; - break; - }; - var $13089 = $13091; + case 'Maybe.some': + var $11782 = self.value; + var $11783 = Parser$Reply$error$(Parser$Error$combine$($11782, $11780)); + var $11781 = $11783; break; - case 'Parser.Reply.value': - var $13095 = self.pst; - var $13096 = self.val; - var self = $13095; - switch (self._) { - case 'Parser.State.new': - var $13098 = self.err; - var $13099 = self.nam; - var $13100 = self.ini; - var $13101 = self.idx; - var $13102 = self.str; - var $13103 = ((console.log(("FALTANDO " + $13102)), (_$35 => { - var $13104 = ((console.log(("VALUE " + $13099)), (_$36 => { - var _reply$pst$37 = Parser$State$new$(Parser$Error$maybe_combine$($13088, $13098), $13099, $13100, $13101, $13102); - var self = _reply$pst$37; - switch (self._) { - case 'Parser.State.new': - var $13106 = self.err; - var _reply$43 = Kind$Parser$file$(_file$1, _code$2, $13096, _reply$pst$37); - var self = _reply$43; - switch (self._) { - case 'Parser.Reply.error': - var $13108 = self.err; - var self = $13106; - switch (self._) { - case 'Maybe.some': - var $13110 = self.value; - var $13111 = Parser$Reply$error$(Parser$Error$combine$($13110, $13108)); - var $13109 = $13111; - break; - case 'Maybe.none': - var $13112 = Parser$Reply$error$($13108); - var $13109 = $13112; - break; - }; - var $13107 = $13109; - break; - case 'Parser.Reply.value': - var $13113 = self.pst; - var $13114 = self.val; - var self = $13113; - switch (self._) { - case 'Parser.State.new': - var $13116 = self.err; - var $13117 = self.nam; - var $13118 = self.ini; - var $13119 = self.idx; - var $13120 = self.str; - var $13121 = ((console.log(("FALTANDO " + $13120)), (_$51 => { - var $13122 = ((console.log(("VALUE " + $13117)), (_$52 => { - var _reply$pst$53 = Parser$State$new$(Parser$Error$maybe_combine$($13106, $13116), $13117, $13118, $13119, $13120); - var $13123 = Parser$Reply$value$(_reply$pst$53, $13114); - return $13123; - })())); - return $13122; - })())); - var $13115 = $13121; - break; - }; - var $13107 = $13115; - break; - }; - var $13105 = $13107; - break; - }; - return $13105; - })())); - return $13104; - })())); - var $13097 = $13103; - break; - }; - var $13089 = $13097; + case 'Maybe.none': + var $11784 = Parser$Reply$error$($11780); + var $11781 = $11784; break; }; - var $13087 = $13089; + var $11779 = $11781; + break; + case 'Parser.Reply.value': + var $11785 = self.pst; + var $11786 = self.val; + var self = $11785; + switch (self._) { + case 'Parser.State.new': + var $11788 = self.err; + var $11789 = self.nam; + var $11790 = self.ini; + var $11791 = self.idx; + var $11792 = self.str; + var _reply$pst$33 = Parser$State$new$(Parser$Error$maybe_combine$($11778, $11788), $11789, $11790, $11791, $11792); + var self = _reply$pst$33; + switch (self._) { + case 'Parser.State.new': + var $11794 = self.err; + var _reply$39 = Kind$Parser$file$(_file$1, _code$2, $11786, _reply$pst$33); + var self = _reply$39; + switch (self._) { + case 'Parser.Reply.error': + var $11796 = self.err; + var self = $11794; + switch (self._) { + case 'Maybe.some': + var $11798 = self.value; + var $11799 = Parser$Reply$error$(Parser$Error$combine$($11798, $11796)); + var $11797 = $11799; + break; + case 'Maybe.none': + var $11800 = Parser$Reply$error$($11796); + var $11797 = $11800; + break; + }; + var $11795 = $11797; + break; + case 'Parser.Reply.value': + var $11801 = self.pst; + var $11802 = self.val; + var self = $11801; + switch (self._) { + case 'Parser.State.new': + var $11804 = self.err; + var $11805 = self.nam; + var $11806 = self.ini; + var $11807 = self.idx; + var $11808 = self.str; + var _reply$pst$47 = Parser$State$new$(Parser$Error$maybe_combine$($11794, $11804), $11805, $11806, $11807, $11808); + var $11809 = Parser$Reply$value$(_reply$pst$47, $11802); + var $11803 = $11809; + break; + }; + var $11795 = $11803; + break; + }; + var $11793 = $11795; + break; + }; + var $11787 = $11793; + break; + }; + var $11779 = $11787; break; }; - return $13087; - }); - var $13083 = $13086; + var $11777 = $11779; + break; }; - var $13083 = $13083(_reply$pst$20); - return $13083; - })())); - return $13082; - })())); - var $13075 = $13081; + return $11777; + }); + var $11773 = $11776; + }; + var $11773 = $11773(_reply$pst$18); + var $11767 = $11773; break; }; - var $13067 = $13075; + var $11759 = $11767; break; }; - var $13065 = $13067; + var $11757 = $11759; break; }; - return $13065; + return $11757; }; const Kind$Parser$file = x0 => x1 => x2 => x3 => Kind$Parser$file$(x0, x1, x2, x3); + function String$join$go$(_sep$1, _list$2, _fst$3) { + var self = _list$2; + switch (self._) { + case 'List.cons': + var $11811 = self.head; + var $11812 = self.tail; + var $11813 = String$flatten$(List$cons$((() => { + var self = _fst$3; + if (self) { + var $11814 = ""; + return $11814; + } else { + var $11815 = _sep$1; + return $11815; + }; + })(), List$cons$($11811, List$cons$(String$join$go$(_sep$1, $11812, Bool$false), List$nil)))); + var $11810 = $11813; + break; + case 'List.nil': + var $11816 = ""; + var $11810 = $11816; + break; + }; + return $11810; + }; + const String$join$go = x0 => x1 => x2 => String$join$go$(x0, x1, x2); + + function String$join$(_sep$1, _list$2) { + var $11817 = String$join$go$(_sep$1, _list$2, Bool$true); + return $11817; + }; + const String$join = x0 => x1 => String$join$(x0, x1); + function Kind$Code$highlight$end$(_col$1, _row$2, _res$3) { - var $13124 = String$join$("\u{a}", _res$3); - return $13124; + var $11818 = String$join$("\u{a}", _res$3); + return $11818; }; const Kind$Code$highlight$end = x0 => x1 => x2 => Kind$Code$highlight$end$(x0, x1, x2); @@ -41262,99 +37178,105 @@ module.exports = (function() { var self = _m$2; switch (self._) { case 'Maybe.some': - var $13126 = self.value; - var $13127 = _f$5($13126); - var $13125 = $13127; + var $11820 = self.value; + var $11821 = _f$5($11820); + var $11819 = $11821; break; case 'Maybe.none': - var $13128 = _a$4; - var $13125 = $13128; + var $11822 = _a$4; + var $11819 = $11822; break; }; - return $13125; + return $11819; }; const Maybe$extract = x0 => x1 => x2 => Maybe$extract$(x0, x1, x2); function Nat$is_zero$(_n$1) { var self = _n$1; if (self === 0n) { - var $13130 = Bool$true; - var $13129 = $13130; + var $11824 = Bool$true; + var $11823 = $11824; } else { - var $13131 = (self - 1n); - var $13132 = Bool$false; - var $13129 = $13132; + var $11825 = (self - 1n); + var $11826 = Bool$false; + var $11823 = $11826; }; - return $13129; + return $11823; }; const Nat$is_zero = x0 => Nat$is_zero$(x0); function Nat$double$(_n$1) { var self = _n$1; if (self === 0n) { - var $13134 = Nat$zero; - var $13133 = $13134; + var $11828 = Nat$zero; + var $11827 = $11828; } else { - var $13135 = (self - 1n); - var $13136 = Nat$succ$(Nat$succ$(Nat$double$($13135))); - var $13133 = $13136; + var $11829 = (self - 1n); + var $11830 = Nat$succ$(Nat$succ$(Nat$double$($11829))); + var $11827 = $11830; }; - return $13133; + return $11827; }; const Nat$double = x0 => Nat$double$(x0); function String$pad_right$(_size$1, _chr$2, _str$3) { var self = _size$1; if (self === 0n) { - var $13138 = _str$3; - var $13137 = $13138; + var $11832 = _str$3; + var $11831 = $11832; } else { - var $13139 = (self - 1n); + var $11833 = (self - 1n); var self = _str$3; if (self.length === 0) { - var $13141 = String$cons$(_chr$2, String$pad_right$($13139, _chr$2, "")); - var $13140 = $13141; + var $11835 = String$cons$(_chr$2, String$pad_right$($11833, _chr$2, "")); + var $11834 = $11835; } else { - var $13142 = self.charCodeAt(0); - var $13143 = self.slice(1); - var $13144 = String$cons$($13142, String$pad_right$($13139, _chr$2, $13143)); - var $13140 = $13144; + var $11836 = self.charCodeAt(0); + var $11837 = self.slice(1); + var $11838 = String$cons$($11836, String$pad_right$($11833, _chr$2, $11837)); + var $11834 = $11838; }; - var $13137 = $13140; + var $11831 = $11834; }; - return $13137; + return $11831; }; const String$pad_right = x0 => x1 => x2 => String$pad_right$(x0, x1, x2); function String$pad_left$(_size$1, _chr$2, _str$3) { - var $13145 = String$reverse$(String$pad_right$(_size$1, _chr$2, String$reverse$(_str$3))); - return $13145; + var $11839 = String$reverse$(String$pad_right$(_size$1, _chr$2, String$reverse$(_str$3))); + return $11839; }; const String$pad_left = x0 => x1 => x2 => String$pad_left$(x0, x1, x2); + function Kind$Code$color$(_col$1, _str$2) { + var $11840 = String$cons$(27, ("[" + (_col$1 + ("m" + (_str$2 + String$cons$(27, "[0m")))))); + return $11840; + }; + const Kind$Code$color = x0 => x1 => Kind$Code$color$(x0, x1); + function List$take$(_n$2, _xs$3) { var self = _xs$3; switch (self._) { case 'List.cons': - var $13147 = self.head; - var $13148 = self.tail; + var $11842 = self.head; + var $11843 = self.tail; var self = _n$2; if (self === 0n) { - var $13150 = List$nil; - var $13149 = $13150; + var $11845 = List$nil; + var $11844 = $11845; } else { - var $13151 = (self - 1n); - var $13152 = List$cons$($13147, List$take$($13151, $13148)); - var $13149 = $13152; + var $11846 = (self - 1n); + var $11847 = List$cons$($11842, List$take$($11846, $11843)); + var $11844 = $11847; }; - var $13146 = $13149; + var $11841 = $11844; break; case 'List.nil': - var $13153 = List$nil; - var $13146 = $13153; + var $11848 = List$nil; + var $11841 = $11848; break; }; - return $13146; + return $11841; }; const List$take = x0 => x1 => List$take$(x0, x1); @@ -41371,18 +37293,18 @@ module.exports = (function() { var _spa$10 = 3n; var self = _code$1; if (self.length === 0) { - var $13155 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); - var $13154 = $13155; + var $11850 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); + var $11849 = $11850; } else { - var $13156 = self.charCodeAt(0); - var $13157 = self.slice(1); - var self = ($13156 === 10); + var $11851 = self.charCodeAt(0); + var $11852 = self.slice(1); + var self = ($11851 === 10); if (self) { var _stp$13 = Maybe$extract$(_lft$7, Bool$false, Nat$is_zero); var self = _stp$13; if (self) { - var $13160 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); - var $13159 = $13160; + var $11855 = Kind$Code$highlight$end$(_col$5, _row$6, List$reverse$(_res$9)); + var $11854 = $11855; } else { var _siz$14 = Nat$succ$(Nat$double$(_spa$10)); var self = _ix1$4; @@ -41390,20 +37312,20 @@ module.exports = (function() { var self = _lft$7; switch (self._) { case 'Maybe.some': - var $13163 = self.value; - var $13164 = Maybe$some$(Nat$pred$($13163)); - var $13162 = $13164; + var $11858 = self.value; + var $11859 = Maybe$some$(Nat$pred$($11858)); + var $11857 = $11859; break; case 'Maybe.none': - var $13165 = Maybe$some$(_spa$10); - var $13162 = $13165; + var $11860 = Maybe$some$(_spa$10); + var $11857 = $11860; break; }; - var _lft$15 = $13162; + var _lft$15 = $11857; } else { - var $13166 = (self - 1n); - var $13167 = _lft$7; - var _lft$15 = $13167; + var $11861 = (self - 1n); + var $11862 = _lft$7; + var _lft$15 = $11862; }; var _ixi$16 = Nat$pred$(_ixi$2); var _ix0$17 = Nat$pred$(_ix0$3); @@ -41412,46 +37334,46 @@ module.exports = (function() { var _row$20 = Nat$succ$(_row$6); var _res$21 = List$cons$(String$reverse$(_lin$8), _res$9); var _lin$22 = String$reverse$(String$flatten$(List$cons$(String$pad_left$(4n, 32, Nat$show$(_row$20)), List$cons$(" | ", List$nil)))); - var $13161 = Kind$Code$highlight$go$($13157, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$20, _lft$15, _lin$22, _res$21); - var $13159 = $13161; + var $11856 = Kind$Code$highlight$go$($11852, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$20, _lft$15, _lin$22, _res$21); + var $11854 = $11856; }; - var $13158 = $13159; + var $11853 = $11854; } else { - var _chr$13 = String$cons$($13156, String$nil); + var _chr$13 = String$cons$($11851, String$nil); var self = (Nat$is_zero$(_ix0$3) && (!Nat$is_zero$(_ix1$4))); if (self) { - var $13169 = String$reverse$(Kind$Code$color$("41", Kind$Code$color$("37", _chr$13))); - var _chr$14 = $13169; + var $11864 = String$reverse$(Kind$Code$color$("41", Kind$Code$color$("37", _chr$13))); + var _chr$14 = $11864; } else { var self = (Nat$is_zero$(_ixi$2) && (!Nat$is_zero$(_ix1$4))); if (self) { - var $13171 = String$reverse$(Kind$Code$color$("31", Kind$Code$color$("4", _chr$13))); - var $13170 = $13171; + var $11866 = String$reverse$(Kind$Code$color$("31", Kind$Code$color$("4", _chr$13))); + var $11865 = $11866; } else { - var $13172 = _chr$13; - var $13170 = $13172; + var $11867 = _chr$13; + var $11865 = $11867; }; - var _chr$14 = $13170; + var _chr$14 = $11865; }; var self = (_ix0$3 === 1n); if (self) { - var $13173 = List$take$(_spa$10, _res$9); - var _res$15 = $13173; + var $11868 = List$take$(_spa$10, _res$9); + var _res$15 = $11868; } else { - var $13174 = _res$9; - var _res$15 = $13174; + var $11869 = _res$9; + var _res$15 = $11869; }; var _ixi$16 = Nat$pred$(_ixi$2); var _ix0$17 = Nat$pred$(_ix0$3); var _ix1$18 = Nat$pred$(_ix1$4); var _col$19 = Nat$succ$(_col$5); var _lin$20 = String$flatten$(List$cons$(_chr$14, List$cons$(_lin$8, List$nil))); - var $13168 = Kind$Code$highlight$go$($13157, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$6, _lft$7, _lin$20, _res$15); - var $13158 = $13168; + var $11863 = Kind$Code$highlight$go$($11852, _ixi$16, _ix0$17, _ix1$18, _col$19, _row$6, _lft$7, _lin$20, _res$15); + var $11853 = $11863; }; - var $13154 = $13158; + var $11849 = $11853; }; - return $13154; + return $11849; })(); if (R.ctr === 'TCO') arg = R.arg; else return R; @@ -41460,8 +37382,8 @@ module.exports = (function() { const Kind$Code$highlight$go = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => Kind$Code$highlight$go$(x0, x1, x2, x3, x4, x5, x6, x7, x8); function Kind$Code$highlight$(_code$1, _init$2, _idx0$3, _idx1$4) { - var $13175 = Kind$Code$highlight$go$((_code$1 + " \u{a}"), _init$2, _idx0$3, _idx1$4, 0n, 1n, Maybe$none, String$reverse$(" 1 | "), List$nil); - return $13175; + var $11870 = Kind$Code$highlight$go$((_code$1 + " \u{a}"), _init$2, _idx0$3, _idx1$4, 0n, 1n, Maybe$none, String$reverse$(" 1 | "), List$nil); + return $11870; }; const Kind$Code$highlight = x0 => x1 => x2 => x3 => Kind$Code$highlight$(x0, x1, x2, x3); @@ -41469,41 +37391,41 @@ module.exports = (function() { var self = Kind$Parser$file$(_file$1, _code$2, _defs$3, Parser$State$new$(Maybe$none, "", 0n, 0n, _code$2)); switch (self._) { case 'Parser.Reply.error': - var $13177 = self.err; - var self = $13177; + var $11872 = self.err; + var self = $11872; switch (self._) { case 'Parser.Error.new': - var $13179 = self.nam; - var $13180 = self.ini; - var $13181 = self.idx; - var $13182 = self.msg; - var _err$9 = ($13182 + (() => { - var self = $13179; + var $11874 = self.nam; + var $11875 = self.ini; + var $11876 = self.idx; + var $11877 = self.msg; + var _err$9 = ($11877 + (() => { + var self = $11874; if (self.length === 0) { - var $13184 = ""; - return $13184; + var $11879 = ""; + return $11879; } else { - var $13185 = self.charCodeAt(0); - var $13186 = self.slice(1); - var $13187 = (" Inside " + ($13179 + ":")); - return $13187; + var $11880 = self.charCodeAt(0); + var $11881 = self.slice(1); + var $11882 = (" Inside " + ($11874 + ":")); + return $11882; }; })()); - var _hig$10 = Kind$Code$highlight$(_code$2, $13180, $13181, Nat$succ$($13181)); + var _hig$10 = Kind$Code$highlight$(_code$2, $11875, $11876, Nat$succ$($11876)); var _str$11 = String$flatten$(List$cons$(_err$9, List$cons$("\u{a}", List$cons$(_hig$10, List$nil)))); - var $13183 = Either$left$(_str$11); - var $13178 = $13183; + var $11878 = Either$left$(_str$11); + var $11873 = $11878; break; }; - var $13176 = $13178; + var $11871 = $11873; break; case 'Parser.Reply.value': - var $13188 = self.val; - var $13189 = Either$right$($13188); - var $13176 = $13189; + var $11883 = self.val; + var $11884 = Either$right$($11883); + var $11871 = $11884; break; }; - return $13176; + return $11871; }; const Kind$Defs$read = x0 => x1 => x2 => Kind$Defs$read$(x0, x1, x2); @@ -41511,52 +37433,52 @@ module.exports = (function() { var self = _files$2; switch (self._) { case 'List.cons': - var $13191 = self.head; - var $13192 = self.tail; - var $13193 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $13194 = _m$bind$6; - return $13194; - }))(Kind$Synth$get_kind_code$($13191))((_code$6 => { - var _read$7 = Kind$Defs$read$($13191, _code$6, _defs$3); + var $11886 = self.head; + var $11887 = self.tail; + var $11888 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $11889 = _m$bind$6; + return $11889; + }))(Kind$Synth$get_kind_code$($11886))((_code$6 => { + var _read$7 = Kind$Defs$read$($11886, _code$6, _defs$3); var self = _read$7; switch (self._) { case 'Either.right': - var $13196 = self.value; - var _defs$9 = $13196; + var $11891 = self.value; + var _defs$9 = $11891; var self = Kind$Map$get$(_name$1, _defs$9); switch (self._) { case 'Maybe.none': - var $13198 = Kind$Synth$load$go$(_name$1, $13192, _defs$9); - var $13197 = $13198; + var $11893 = Kind$Synth$load$go$(_name$1, $11887, _defs$9); + var $11892 = $11893; break; case 'Maybe.some': - var $13199 = IO$monad$((_m$bind$11 => _m$pure$12 => { - var $13200 = _m$pure$12; - return $13200; + var $11894 = IO$monad$((_m$bind$11 => _m$pure$12 => { + var $11895 = _m$pure$12; + return $11895; }))(Maybe$some$(_defs$9)); - var $13197 = $13199; + var $11892 = $11894; break; }; - var $13195 = $13197; + var $11890 = $11892; break; case 'Either.left': - var $13201 = Kind$Synth$load$go$(_name$1, $13192, _defs$3); - var $13195 = $13201; + var $11896 = Kind$Synth$load$go$(_name$1, $11887, _defs$3); + var $11890 = $11896; break; }; - return $13195; + return $11890; })); - var $13190 = $13193; + var $11885 = $11888; break; case 'List.nil': - var $13202 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $13203 = _m$pure$5; - return $13203; + var $11897 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $11898 = _m$pure$5; + return $11898; }))(Maybe$none); - var $13190 = $13202; + var $11885 = $11897; break; }; - return $13190; + return $11885; }; const Kind$Synth$load$go = x0 => x1 => x2 => Kind$Synth$load$go$(x0, x1, x2); @@ -41564,19 +37486,19 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.cons': - var $13205 = self.head; - var $13206 = self.tail; - var _head$5 = (_last$2 + ($13205 + ".kind")); - var _tail$6 = Kind$Synth$files_of$make$($13206, (_last$2 + ($13205 + "/"))); - var $13207 = List$cons$(_head$5, _tail$6); - var $13204 = $13207; + var $11900 = self.head; + var $11901 = self.tail; + var _head$5 = (_last$2 + ($11900 + ".kind")); + var _tail$6 = Kind$Synth$files_of$make$($11901, (_last$2 + ($11900 + "/"))); + var $11902 = List$cons$(_head$5, _tail$6); + var $11899 = $11902; break; case 'List.nil': - var $13208 = List$nil; - var $13204 = $13208; + var $11903 = List$nil; + var $11899 = $11903; break; }; - return $13204; + return $11899; }; const Kind$Synth$files_of$make = x0 => x1 => Kind$Synth$files_of$make$(x0, x1); @@ -41592,13 +37514,13 @@ module.exports = (function() { var R = (() => { var self = _xs$1; if (self.length === 0) { - var $13209 = _n$2; - return $13209; + var $11904 = _n$2; + return $11904; } else { - var $13210 = self.charCodeAt(0); - var $13211 = self.slice(1); - var $13212 = String$length$go$($13211, Nat$succ$(_n$2)); - return $13212; + var $11905 = self.charCodeAt(0); + var $11906 = self.slice(1); + var $11907 = String$length$go$($11906, Nat$succ$(_n$2)); + return $11907; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -41608,70 +37530,70 @@ module.exports = (function() { const String$length$go = x0 => x1 => String$length$go$(x0, x1); function String$length$(_xs$1) { - var $13213 = String$length$go$(_xs$1, 0n); - return $13213; + var $11908 = String$length$go$(_xs$1, 0n); + return $11908; }; const String$length = x0 => String$length$(x0); function String$split$go$(_xs$1, _match$2, _last$3) { var self = _xs$1; if (self.length === 0) { - var $13215 = List$cons$(_last$3, List$nil); - var $13214 = $13215; + var $11910 = List$cons$(_last$3, List$nil); + var $11909 = $11910; } else { - var $13216 = self.charCodeAt(0); - var $13217 = self.slice(1); + var $11911 = self.charCodeAt(0); + var $11912 = self.slice(1); var self = String$starts_with$(_xs$1, _match$2); if (self) { var _rest$6 = String$drop$(String$length$(_match$2), _xs$1); - var $13219 = List$cons$(_last$3, String$split$go$(_rest$6, _match$2, "")); - var $13218 = $13219; + var $11914 = List$cons$(_last$3, String$split$go$(_rest$6, _match$2, "")); + var $11913 = $11914; } else { - var _next$6 = String$cons$($13216, String$nil); - var $13220 = String$split$go$($13217, _match$2, (_last$3 + _next$6)); - var $13218 = $13220; + var _next$6 = String$cons$($11911, String$nil); + var $11915 = String$split$go$($11912, _match$2, (_last$3 + _next$6)); + var $11913 = $11915; }; - var $13214 = $13218; + var $11909 = $11913; }; - return $13214; + return $11909; }; const String$split$go = x0 => x1 => x2 => String$split$go$(x0, x1, x2); function String$split$(_xs$1, _match$2) { - var $13221 = String$split$go$(_xs$1, _match$2, ""); - return $13221; + var $11916 = String$split$go$(_xs$1, _match$2, ""); + return $11916; }; const String$split = x0 => x1 => String$split$(x0, x1); function Kind$Synth$files_of$(_name$1) { - var $13222 = List$reverse$(Kind$Synth$files_of$make$(String$split$(_name$1, "."), "")); - return $13222; + var $11917 = List$reverse$(Kind$Synth$files_of$make$(String$split$(_name$1, "."), "")); + return $11917; }; const Kind$Synth$files_of = x0 => Kind$Synth$files_of$(x0); function Kind$Synth$load$(_name$1, _defs$2) { - var $13223 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $13224 = _m$bind$3; - return $13224; + var $11918 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $11919 = _m$bind$3; + return $11919; }))(Kind$Synth$load$cached$(List$cons$(_name$1, List$nil), _defs$2))((_cached_defs$3 => { var self = _cached_defs$3; switch (self._) { case 'Maybe.some': - var $13226 = self.value; - var $13227 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $13228 = _m$pure$6; - return $13228; - }))(Maybe$some$($13226)); - var $13225 = $13227; + var $11921 = self.value; + var $11922 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $11923 = _m$pure$6; + return $11923; + }))(Maybe$some$($11921)); + var $11920 = $11922; break; case 'Maybe.none': - var $13229 = Kind$Synth$load$go$(_name$1, Kind$Synth$files_of$(_name$1), _defs$2); - var $13225 = $13229; + var $11924 = Kind$Synth$load$go$(_name$1, Kind$Synth$files_of$(_name$1), _defs$2); + var $11920 = $11924; break; }; - return $13225; + return $11920; })); - return $13223; + return $11918; }; const Kind$Synth$load = x0 => x1 => Kind$Synth$load$(x0, x1); const Kind$Status$wait = ({ @@ -41679,56 +37601,85 @@ module.exports = (function() { }); function Kind$Check$(_V$1) { - var $13230 = null; - return $13230; + var $11925 = null; + return $11925; }; const Kind$Check = x0 => Kind$Check$(x0); function Kind$Check$result$(_value$2, _errors$3) { - var $13231 = ({ + var $11926 = ({ _: 'Kind.Check.result', 'value': _value$2, 'errors': _errors$3 }); - return $13231; + return $11926; }; const Kind$Check$result = x0 => x1 => Kind$Check$result$(x0, x1); function Kind$Error$undefined_reference$(_origin$1, _name$2) { - var $13232 = ({ + var $11927 = ({ _: 'Kind.Error.undefined_reference', 'origin': _origin$1, 'name': _name$2 }); - return $13232; + return $11927; }; const Kind$Error$undefined_reference = x0 => x1 => Kind$Error$undefined_reference$(x0, x1); function Kind$Error$waiting$(_name$1) { - var $13233 = ({ + var $11928 = ({ _: 'Kind.Error.waiting', 'name': _name$1 }); - return $13233; + return $11928; }; const Kind$Error$waiting = x0 => Kind$Error$waiting$(x0); function Kind$Error$indirect$(_name$1) { - var $13234 = ({ + var $11929 = ({ _: 'Kind.Error.indirect', 'name': _name$1 }); - return $13234; + return $11929; }; const Kind$Error$indirect = x0 => Kind$Error$indirect$(x0); + function Maybe$mapped$(_m$2, _f$4) { + var self = _m$2; + switch (self._) { + case 'Maybe.some': + var $11931 = self.value; + var $11932 = Maybe$some$(_f$4($11931)); + var $11930 = $11932; + break; + case 'Maybe.none': + var $11933 = Maybe$none; + var $11930 = $11933; + break; + }; + return $11930; + }; + const Maybe$mapped = x0 => x1 => Maybe$mapped$(x0, x1); + + function Kind$Path$Maybe$Builder$o$(_path$1) { + var $11934 = Maybe$mapped$(_path$1, Kind$Path$Builder$o); + return $11934; + }; + const Kind$Path$Maybe$Builder$o = x0 => Kind$Path$Maybe$Builder$o$(x0); + + function Kind$Path$Maybe$Builder$i$(_path$1) { + var $11935 = Maybe$mapped$(_path$1, Kind$Path$Builder$i); + return $11935; + }; + const Kind$Path$Maybe$Builder$i = x0 => Kind$Path$Maybe$Builder$i$(x0); + function Kind$Error$patch$(_path$1, _term$2) { - var $13235 = ({ + var $11936 = ({ _: 'Kind.Error.patch', 'path': _path$1, 'term': _term$2 }); - return $13235; + return $11936; }; const Kind$Error$patch = x0 => x1 => Kind$Error$patch$(x0, x1); @@ -41736,39 +37687,39 @@ module.exports = (function() { var self = _path$1; switch (self._) { case 'Maybe.some': - var $13237 = self.value; - var $13238 = $13237(Bits$e); - var $13236 = $13238; + var $11938 = self.value; + var $11939 = $11938(Bits$e); + var $11937 = $11939; break; case 'Maybe.none': - var $13239 = Bits$e; - var $13236 = $13239; + var $11940 = Bits$e; + var $11937 = $11940; break; }; - return $13236; + return $11937; }; const Kind$Path$Maybe$Builder$to_bits = x0 => Kind$Path$Maybe$Builder$to_bits$(x0); function Kind$Term$check$patch$(_term$1, _type$2, _path$3) { - var $13240 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$patch$(Kind$Path$Maybe$Builder$to_bits$(_path$3), _term$1), List$nil)); - return $13240; + var $11941 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$patch$(Kind$Path$Maybe$Builder$to_bits$(_path$3), _term$1), List$nil)); + return $11941; }; const Kind$Term$check$patch = x0 => x1 => x2 => Kind$Term$check$patch$(x0, x1, x2); function Kind$Error$type_mismatch$(_origin$1, _expected$2, _detected$3, _context$4) { - var $13241 = ({ + var $11942 = ({ _: 'Kind.Error.type_mismatch', 'origin': _origin$1, 'expected': _expected$2, 'detected': _detected$3, 'context': _context$4 }); - return $13241; + return $11942; }; const Kind$Error$type_mismatch = x0 => x1 => x2 => x3 => Kind$Error$type_mismatch$(x0, x1, x2, x3); function Kind$Error$show_goal$(_name$1, _dref$2, _verb$3, _goal$4, _context$5) { - var $13242 = ({ + var $11943 = ({ _: 'Kind.Error.show_goal', 'name': _name$1, 'dref': _dref$2, @@ -41776,13 +37727,13 @@ module.exports = (function() { 'goal': _goal$4, 'context': _context$5 }); - return $13242; + return $11943; }; const Kind$Error$show_goal = x0 => x1 => x2 => x3 => x4 => Kind$Error$show_goal$(x0, x1, x2, x3, x4); function Kind$Path$Builder$nil$(_x$1) { - var $13243 = _x$1; - return $13243; + var $11944 = _x$1; + return $11944; }; const Kind$Path$Builder$nil = x0 => Kind$Path$Builder$nil$(x0); const Kind$Path$Maybe$Builder$nil = Maybe$some$(Kind$Path$Builder$nil); @@ -41791,31 +37742,31 @@ module.exports = (function() { var self = Kind$Term$check$(_term$1, Maybe$none, _defs$2, List$nil, Kind$Path$Maybe$Builder$nil, Maybe$none); switch (self._) { case 'Kind.Check.result': - var $13245 = self.value; - var $13246 = self.errors; - var self = $13245; + var $11946 = self.value; + var $11947 = self.errors; + var self = $11946; switch (self._) { case 'Maybe.none': - var $13248 = Kind$Check$result$(Maybe$none, $13246); - var $13247 = $13248; + var $11949 = Kind$Check$result$(Maybe$none, $11947); + var $11948 = $11949; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(_term$1), List$nil); switch (self._) { case 'Kind.Check.result': - var $13250 = self.value; - var $13251 = self.errors; - var $13252 = Kind$Check$result$($13250, List$concat$($13246, $13251)); - var $13249 = $13252; + var $11951 = self.value; + var $11952 = self.errors; + var $11953 = Kind$Check$result$($11951, List$concat$($11947, $11952)); + var $11950 = $11953; break; }; - var $13247 = $13249; + var $11948 = $11950; break; }; - var $13244 = $13247; + var $11945 = $11948; break; }; - return $13244; + return $11945; }; const Kind$Term$check$direct = x0 => x1 => Kind$Term$check$direct$(x0, x1); @@ -41825,13 +37776,13 @@ module.exports = (function() { var _end$4 = String$slice$((_len$2 - 5n <= 0n ? 0n : _len$2 - 5n), _len$2, _self$1); var self = (_end$4 === ".Self"); if (self) { - var $13254 = Maybe$some$(_ini$3); - var $13253 = $13254; + var $11955 = Maybe$some$(_ini$3); + var $11954 = $11955; } else { - var $13255 = Maybe$none; - var $13253 = $13255; + var $11956 = Maybe$none; + var $11954 = $11956; }; - return $13253; + return $11954; }; const Kind$Term$check$get_name_of_self_type$slice = x0 => Kind$Term$check$get_name_of_self_type$slice$(x0); @@ -41839,9 +37790,9 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, Kind$Map$new); switch (self._) { case 'Kind.Term.ref': - var $13257 = self.name; - var $13258 = Maybe$some$($13257); - var $13256 = $13258; + var $11958 = self.name; + var $11959 = Maybe$some$($11958); + var $11957 = $11959; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -41851,14 +37802,14 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $13260 = self.name; - var $13261 = Maybe$some$($13260); - var $13259 = $13261; + var $11961 = self.name; + var $11962 = Maybe$some$($11961); + var $11960 = $11962; break; case 'Kind.Term.all': - var $13262 = self.self; - var $13263 = Kind$Term$check$get_name_of_self_type$slice$($13262); - var $13259 = $13263; + var $11963 = self.self; + var $11964 = Kind$Term$check$get_name_of_self_type$slice$($11963); + var $11960 = $11964; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -41879,24 +37830,24 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13264 = Maybe$none; - var $13259 = $13264; + var $11965 = Maybe$none; + var $11960 = $11965; break; }; - var $13256 = $13259; + var $11957 = $11960; break; case 'Kind.Term.typ': var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $13266 = self.name; - var $13267 = Maybe$some$($13266); - var $13265 = $13267; + var $11967 = self.name; + var $11968 = Maybe$some$($11967); + var $11966 = $11968; break; case 'Kind.Term.all': - var $13268 = self.self; - var $13269 = Kind$Term$check$get_name_of_self_type$slice$($13268); - var $13265 = $13269; + var $11969 = self.self; + var $11970 = Kind$Term$check$get_name_of_self_type$slice$($11969); + var $11966 = $11970; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -41917,24 +37868,24 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13270 = Maybe$none; - var $13265 = $13270; + var $11971 = Maybe$none; + var $11966 = $11971; break; }; - var $13256 = $13265; + var $11957 = $11966; break; case 'Kind.Term.all': var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $13272 = self.name; - var $13273 = Maybe$some$($13272); - var $13271 = $13273; + var $11973 = self.name; + var $11974 = Maybe$some$($11973); + var $11972 = $11974; break; case 'Kind.Term.all': - var $13274 = self.self; - var $13275 = Kind$Term$check$get_name_of_self_type$slice$($13274); - var $13271 = $13275; + var $11975 = self.self; + var $11976 = Kind$Term$check$get_name_of_self_type$slice$($11975); + var $11972 = $11976; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -41955,11 +37906,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13276 = Maybe$none; - var $13271 = $13276; + var $11977 = Maybe$none; + var $11972 = $11977; break; }; - var $13256 = $13271; + var $11957 = $11972; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -41971,14 +37922,14 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $13278 = self.name; - var $13279 = Maybe$some$($13278); - var $13277 = $13279; + var $11979 = self.name; + var $11980 = Maybe$some$($11979); + var $11978 = $11980; break; case 'Kind.Term.all': - var $13280 = self.self; - var $13281 = Kind$Term$check$get_name_of_self_type$slice$($13280); - var $13277 = $13281; + var $11981 = self.self; + var $11982 = Kind$Term$check$get_name_of_self_type$slice$($11981); + var $11978 = $11982; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -41999,11 +37950,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13282 = Maybe$none; - var $13277 = $13282; + var $11983 = Maybe$none; + var $11978 = $11983; break; }; - var $13256 = $13277; + var $11957 = $11978; break; case 'Kind.Term.hol': case 'Kind.Term.nat': @@ -42013,14 +37964,14 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $13284 = self.name; - var $13285 = Maybe$some$($13284); - var $13283 = $13285; + var $11985 = self.name; + var $11986 = Maybe$some$($11985); + var $11984 = $11986; break; case 'Kind.Term.all': - var $13286 = self.self; - var $13287 = Kind$Term$check$get_name_of_self_type$slice$($13286); - var $13283 = $13287; + var $11987 = self.self; + var $11988 = Kind$Term$check$get_name_of_self_type$slice$($11987); + var $11984 = $11988; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -42041,24 +37992,24 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13288 = Maybe$none; - var $13283 = $13288; + var $11989 = Maybe$none; + var $11984 = $11989; break; }; - var $13256 = $13283; + var $11957 = $11984; break; case 'Kind.Term.cse': var self = Kind$Term$reduce$(_type$1, _defs$2); switch (self._) { case 'Kind.Term.ref': - var $13290 = self.name; - var $13291 = Maybe$some$($13290); - var $13289 = $13291; + var $11991 = self.name; + var $11992 = Maybe$some$($11991); + var $11990 = $11992; break; case 'Kind.Term.all': - var $13292 = self.self; - var $13293 = Kind$Term$check$get_name_of_self_type$slice$($13292); - var $13289 = $13293; + var $11993 = self.self; + var $11994 = Kind$Term$check$get_name_of_self_type$slice$($11993); + var $11990 = $11994; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -42079,20 +38030,20 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13294 = Maybe$none; - var $13289 = $13294; + var $11995 = Maybe$none; + var $11990 = $11995; break; }; - var $13256 = $13289; + var $11957 = $11990; break; }; - return $13256; + return $11957; }; const Kind$Term$check$get_name_of_self_type = x0 => x1 => Kind$Term$check$get_name_of_self_type$(x0, x1); function Kind$Term$check$expand$num$nat$(_numb$1) { - var $13295 = Kind$Term$nat$(_numb$1); - return $13295; + var $11996 = Kind$Term$nat$(_numb$1); + return $11996; }; const Kind$Term$check$expand$num$nat = x0 => Kind$Term$check$expand$num$nat$(x0); @@ -42102,24 +38053,24 @@ module.exports = (function() { var self = _sign$1; switch (self._) { case 'Maybe.some': - var $13297 = self.value; - var self = $13297; + var $11998 = self.value; + var self = $11998; if (self) { - var $13299 = _term$4; - var $13298 = $13299; + var $12000 = _term$4; + var $11999 = $12000; } else { - var $13300 = Kind$Term$app$(Kind$Term$ref$("Int.neg"), _term$4); - var $13298 = $13300; + var $12001 = Kind$Term$app$(Kind$Term$ref$("Int.neg"), _term$4); + var $11999 = $12001; }; - var _term$5 = $13298; + var _term$5 = $11999; break; case 'Maybe.none': - var $13301 = _term$4; - var _term$5 = $13301; + var $12002 = _term$4; + var _term$5 = $12002; break; }; - var $13296 = _term$5; - return $13296; + var $11997 = _term$5; + return $11997; }; const Kind$Term$check$expand$num$int = x0 => x1 => Kind$Term$check$expand$num$int$(x0, x1); @@ -42127,20 +38078,20 @@ module.exports = (function() { var self = _sign$2; switch (self._) { case 'Maybe.some': - var $13303 = self.value; - var self = $13303; + var $12004 = self.value; + var self = $12004; if (self) { - var $13305 = "+"; - var $13304 = $13305; + var $12006 = "+"; + var $12005 = $12006; } else { - var $13306 = "-"; - var $13304 = $13306; + var $12007 = "-"; + var $12005 = $12007; }; - var _text$5 = $13304; + var _text$5 = $12005; break; case 'Maybe.none': - var $13307 = ""; - var _text$5 = $13307; + var $12008 = ""; + var _text$5 = $12008; break; }; var _text$6 = (_text$5 + Nat$show$(_numb$3)); @@ -42148,16 +38099,16 @@ module.exports = (function() { var self = _frac$4; switch (self._) { case 'Maybe.some': - var $13308 = self.value; - var $13309 = ("." + Nat$show$($13308)); - return $13309; + var $12009 = self.value; + var $12010 = ("." + Nat$show$($12009)); + return $12010; case 'Maybe.none': - var $13310 = ""; - return $13310; + var $12011 = ""; + return $12011; }; })()); - var $13302 = Kind$Term$app$(Kind$Term$ref$((_name$1 + ".read")), Kind$Term$str$(_text$7)); - return $13302; + var $12003 = Kind$Term$app$(Kind$Term$ref$((_name$1 + ".read")), Kind$Term$str$(_text$7)); + return $12003; }; const Kind$Term$check$expand$num$other = x0 => x1 => x2 => x3 => Kind$Term$check$expand$num$other$(x0, x1, x2, x3); @@ -42165,46 +38116,46 @@ module.exports = (function() { var self = _type$4; switch (self._) { case 'Maybe.some': - var $13312 = self.value; - var self = Kind$Term$check$get_name_of_self_type$($13312, _defs$5); + var $12013 = self.value; + var self = Kind$Term$check$get_name_of_self_type$($12013, _defs$5); switch (self._) { case 'Maybe.some': - var $13314 = self.value; - var self = ($13314 === "Nat"); + var $12015 = self.value; + var self = ($12015 === "Nat"); if (self) { - var $13316 = Maybe$some$(Kind$Term$check$expand$num$nat$(_numb$2)); - var $13315 = $13316; + var $12017 = Maybe$some$(Kind$Term$check$expand$num$nat$(_numb$2)); + var $12016 = $12017; } else { - var self = ($13314 === "Int"); + var self = ($12015 === "Int"); if (self) { - var $13318 = Maybe$some$(Kind$Term$check$expand$num$int$(_sign$1, _numb$2)); - var $13317 = $13318; + var $12019 = Maybe$some$(Kind$Term$check$expand$num$int$(_sign$1, _numb$2)); + var $12018 = $12019; } else { - var $13319 = Maybe$some$(Kind$Term$check$expand$num$other$($13314, _sign$1, _numb$2, _frac$3)); - var $13317 = $13319; + var $12020 = Maybe$some$(Kind$Term$check$expand$num$other$($12015, _sign$1, _numb$2, _frac$3)); + var $12018 = $12020; }; - var $13315 = $13317; + var $12016 = $12018; }; - var $13313 = $13315; + var $12014 = $12016; break; case 'Maybe.none': - var $13320 = Maybe$none; - var $13313 = $13320; + var $12021 = Maybe$none; + var $12014 = $12021; break; }; - var _got$6 = $13313; + var _got$6 = $12014; break; case 'Maybe.none': - var $13321 = Maybe$none; - var _got$6 = $13321; + var $12022 = Maybe$none; + var _got$6 = $12022; break; }; var self = _got$6; switch (self._) { case 'Maybe.some': - var $13322 = self.value; - var $13323 = $13322; - var $13311 = $13323; + var $12023 = self.value; + var $12024 = $12023; + var $12012 = $12024; break; case 'Maybe.none': var self = _frac$3; @@ -42213,25 +38164,25 @@ module.exports = (function() { var self = _sign$1; switch (self._) { case 'Maybe.none': - var $13326 = Kind$Term$check$expand$num$nat$(_numb$2); - var $13325 = $13326; + var $12027 = Kind$Term$check$expand$num$nat$(_numb$2); + var $12026 = $12027; break; case 'Maybe.some': - var $13327 = Kind$Term$check$expand$num$int$(_sign$1, _numb$2); - var $13325 = $13327; + var $12028 = Kind$Term$check$expand$num$int$(_sign$1, _numb$2); + var $12026 = $12028; break; }; - var $13324 = $13325; + var $12025 = $12026; break; case 'Maybe.some': - var $13328 = Kind$Term$check$expand$num$other$("F64", _sign$1, _numb$2, _frac$3); - var $13324 = $13328; + var $12029 = Kind$Term$check$expand$num$other$("F64", _sign$1, _numb$2, _frac$3); + var $12025 = $12029; break; }; - var $13311 = $13324; + var $12012 = $12025; break; }; - return $13311; + return $12012; }; const Kind$Term$check$expand$num = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$num$(x0, x1, x2, x3, x4); @@ -42239,118 +38190,118 @@ module.exports = (function() { var self = _vars$1; switch (self._) { case 'List.cons': - var $13330 = self.head; - var $13331 = self.tail; - var self = $13330; + var $12031 = self.head; + var $12032 = self.tail; + var self = $12031; switch (self._) { case 'Kind.Ann.new': - var $13333 = self.name; - var $13334 = self.term; - var $13335 = self.type; - var self = $13335; + var $12034 = self.name; + var $12035 = self.term; + var $12036 = self.type; + var self = $12036; switch (self._) { case 'Maybe.some': - var $13337 = self.value; - var $13338 = Kind$Check$result$(Maybe$some$(Maybe$some$($13337)), List$nil); - var self = $13338; + var $12038 = self.value; + var $12039 = Kind$Check$result$(Maybe$some$(Maybe$some$($12038)), List$nil); + var self = $12039; break; case 'Maybe.none': - var self = Kind$Term$check$($13334, Maybe$none, _defs$2, _ctx$3, _path$4, _orig$5); + var self = Kind$Term$check$($12035, Maybe$none, _defs$2, _ctx$3, _path$4, _orig$5); switch (self._) { case 'Kind.Check.result': - var $13340 = self.value; - var $13341 = self.errors; - var self = $13340; + var $12041 = self.value; + var $12042 = self.errors; + var self = $12041; switch (self._) { case 'Maybe.some': - var $13343 = self.value; - var self = Kind$Check$result$(Maybe$some$(Maybe$some$($13343)), List$nil); + var $12044 = self.value; + var self = Kind$Check$result$(Maybe$some$(Maybe$some$($12044)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13345 = self.value; - var $13346 = self.errors; - var $13347 = Kind$Check$result$($13345, List$concat$($13341, $13346)); - var $13344 = $13347; + var $12046 = self.value; + var $12047 = self.errors; + var $12048 = Kind$Check$result$($12046, List$concat$($12042, $12047)); + var $12045 = $12048; break; }; - var $13342 = $13344; + var $12043 = $12045; break; case 'Maybe.none': - var $13348 = Kind$Check$result$(Maybe$none, $13341); - var $13342 = $13348; + var $12049 = Kind$Check$result$(Maybe$none, $12042); + var $12043 = $12049; break; }; - var $13339 = $13342; + var $12040 = $12043; break; }; - var self = $13339; + var self = $12040; break; }; switch (self._) { case 'Kind.Check.result': - var $13349 = self.value; - var $13350 = self.errors; - var self = $13349; + var $12050 = self.value; + var $12051 = self.errors; + var self = $12050; switch (self._) { case 'Maybe.some': - var $13352 = self.value; - var self = Kind$Term$check$infer_types_of_with$($13331, _defs$2, _ctx$3, _path$4, _orig$5); + var $12053 = self.value; + var self = Kind$Term$check$infer_types_of_with$($12032, _defs$2, _ctx$3, _path$4, _orig$5); switch (self._) { case 'Kind.Check.result': - var $13354 = self.value; - var $13355 = self.errors; - var self = $13354; + var $12055 = self.value; + var $12056 = self.errors; + var self = $12055; switch (self._) { case 'Maybe.some': - var $13357 = self.value; - var self = Kind$Check$result$(Maybe$some$(List$cons$(Kind$Ann$new$($13333, $13334, $13352), $13357)), List$nil); + var $12058 = self.value; + var self = Kind$Check$result$(Maybe$some$(List$cons$(Kind$Ann$new$($12034, $12035, $12053), $12058)), List$nil); switch (self._) { case 'Kind.Check.result': - var $13359 = self.value; - var $13360 = self.errors; - var $13361 = Kind$Check$result$($13359, List$concat$($13355, $13360)); - var $13358 = $13361; + var $12060 = self.value; + var $12061 = self.errors; + var $12062 = Kind$Check$result$($12060, List$concat$($12056, $12061)); + var $12059 = $12062; break; }; - var $13356 = $13358; + var $12057 = $12059; break; case 'Maybe.none': - var $13362 = Kind$Check$result$(Maybe$none, $13355); - var $13356 = $13362; + var $12063 = Kind$Check$result$(Maybe$none, $12056); + var $12057 = $12063; break; }; - var self = $13356; + var self = $12057; break; }; switch (self._) { case 'Kind.Check.result': - var $13363 = self.value; - var $13364 = self.errors; - var $13365 = Kind$Check$result$($13363, List$concat$($13350, $13364)); - var $13353 = $13365; + var $12064 = self.value; + var $12065 = self.errors; + var $12066 = Kind$Check$result$($12064, List$concat$($12051, $12065)); + var $12054 = $12066; break; }; - var $13351 = $13353; + var $12052 = $12054; break; case 'Maybe.none': - var $13366 = Kind$Check$result$(Maybe$none, $13350); - var $13351 = $13366; + var $12067 = Kind$Check$result$(Maybe$none, $12051); + var $12052 = $12067; break; }; - var $13336 = $13351; + var $12037 = $12052; break; }; - var $13332 = $13336; + var $12033 = $12037; break; }; - var $13329 = $13332; + var $12030 = $12033; break; case 'List.nil': - var $13367 = Kind$Check$result$(Maybe$some$(List$nil), List$nil); - var $13329 = $13367; + var $12068 = Kind$Check$result$(Maybe$some$(List$nil), List$nil); + var $12030 = $12068; break; }; - return $13329; + return $12030; }; const Kind$Term$check$infer_types_of_with = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$infer_types_of_with$(x0, x1, x2, x3, x4); @@ -42358,105 +38309,105 @@ module.exports = (function() { var self = Kind$Term$reduce$(_term$1, _defs$2); switch (self._) { case 'Kind.Term.var': - var $13369 = self.name; - var $13370 = self.indx; - var $13371 = Kind$Term$var$($13369, $13370); - var $13368 = $13371; + var $12070 = self.name; + var $12071 = self.indx; + var $12072 = Kind$Term$var$($12070, $12071); + var $12069 = $12072; break; case 'Kind.Term.ref': - var $13372 = self.name; - var $13373 = Kind$Term$ref$($13372); - var $13368 = $13373; + var $12073 = self.name; + var $12074 = Kind$Term$ref$($12073); + var $12069 = $12074; break; case 'Kind.Term.all': - var $13374 = self.eras; - var $13375 = self.self; - var $13376 = self.name; - var $13377 = self.xtyp; - var $13378 = self.body; - var $13379 = Kind$Term$all$($13374, $13375, $13376, Kind$Term$normalize$($13377, _defs$2), (_s$8 => _x$9 => { - var $13380 = Kind$Term$normalize$($13378(_s$8)(_x$9), _defs$2); - return $13380; + var $12075 = self.eras; + var $12076 = self.self; + var $12077 = self.name; + var $12078 = self.xtyp; + var $12079 = self.body; + var $12080 = Kind$Term$all$($12075, $12076, $12077, Kind$Term$normalize$($12078, _defs$2), (_s$8 => _x$9 => { + var $12081 = Kind$Term$normalize$($12079(_s$8)(_x$9), _defs$2); + return $12081; })); - var $13368 = $13379; + var $12069 = $12080; break; case 'Kind.Term.lam': - var $13381 = self.name; - var $13382 = self.body; - var $13383 = Kind$Term$lam$($13381, (_x$5 => { - var $13384 = Kind$Term$normalize$($13382(_x$5), _defs$2); - return $13384; + var $12082 = self.name; + var $12083 = self.body; + var $12084 = Kind$Term$lam$($12082, (_x$5 => { + var $12085 = Kind$Term$normalize$($12083(_x$5), _defs$2); + return $12085; })); - var $13368 = $13383; + var $12069 = $12084; break; case 'Kind.Term.app': - var $13385 = self.func; - var $13386 = self.argm; - var $13387 = Kind$Term$app$(Kind$Term$normalize$($13385, _defs$2), Kind$Term$normalize$($13386, _defs$2)); - var $13368 = $13387; + var $12086 = self.func; + var $12087 = self.argm; + var $12088 = Kind$Term$app$(Kind$Term$normalize$($12086, _defs$2), Kind$Term$normalize$($12087, _defs$2)); + var $12069 = $12088; break; case 'Kind.Term.let': - var $13388 = self.name; - var $13389 = self.expr; - var $13390 = self.body; - var $13391 = Kind$Term$let$($13388, Kind$Term$normalize$($13389, _defs$2), (_x$6 => { - var $13392 = Kind$Term$normalize$($13390(_x$6), _defs$2); - return $13392; + var $12089 = self.name; + var $12090 = self.expr; + var $12091 = self.body; + var $12092 = Kind$Term$let$($12089, Kind$Term$normalize$($12090, _defs$2), (_x$6 => { + var $12093 = Kind$Term$normalize$($12091(_x$6), _defs$2); + return $12093; })); - var $13368 = $13391; + var $12069 = $12092; break; case 'Kind.Term.def': - var $13393 = self.name; - var $13394 = self.expr; - var $13395 = self.body; - var $13396 = Kind$Term$def$($13393, Kind$Term$normalize$($13394, _defs$2), (_x$6 => { - var $13397 = Kind$Term$normalize$($13395(_x$6), _defs$2); - return $13397; + var $12094 = self.name; + var $12095 = self.expr; + var $12096 = self.body; + var $12097 = Kind$Term$def$($12094, Kind$Term$normalize$($12095, _defs$2), (_x$6 => { + var $12098 = Kind$Term$normalize$($12096(_x$6), _defs$2); + return $12098; })); - var $13368 = $13396; + var $12069 = $12097; break; case 'Kind.Term.ann': - var $13398 = self.done; - var $13399 = self.term; - var $13400 = self.type; - var $13401 = Kind$Term$ann$($13398, Kind$Term$normalize$($13399, _defs$2), Kind$Term$normalize$($13400, _defs$2)); - var $13368 = $13401; + var $12099 = self.done; + var $12100 = self.term; + var $12101 = self.type; + var $12102 = Kind$Term$ann$($12099, Kind$Term$normalize$($12100, _defs$2), Kind$Term$normalize$($12101, _defs$2)); + var $12069 = $12102; break; case 'Kind.Term.gol': - var $13402 = self.name; - var $13403 = self.dref; - var $13404 = self.verb; - var $13405 = Kind$Term$gol$($13402, $13403, $13404); - var $13368 = $13405; + var $12103 = self.name; + var $12104 = self.dref; + var $12105 = self.verb; + var $12106 = Kind$Term$gol$($12103, $12104, $12105); + var $12069 = $12106; break; case 'Kind.Term.hol': - var $13406 = self.path; - var $13407 = Kind$Term$hol$($13406); - var $13368 = $13407; + var $12107 = self.path; + var $12108 = Kind$Term$hol$($12107); + var $12069 = $12108; break; case 'Kind.Term.nat': - var $13408 = self.natx; - var $13409 = Kind$Term$nat$($13408); - var $13368 = $13409; + var $12109 = self.natx; + var $12110 = Kind$Term$nat$($12109); + var $12069 = $12110; break; case 'Kind.Term.chr': - var $13410 = self.chrx; - var $13411 = Kind$Term$chr$($13410); - var $13368 = $13411; + var $12111 = self.chrx; + var $12112 = Kind$Term$chr$($12111); + var $12069 = $12112; break; case 'Kind.Term.str': - var $13412 = self.strx; - var $13413 = Kind$Term$str$($13412); - var $13368 = $13413; + var $12113 = self.strx; + var $12114 = Kind$Term$str$($12113); + var $12069 = $12114; break; case 'Kind.Term.ori': - var $13414 = self.expr; - var $13415 = Kind$Term$normalize$($13414, _defs$2); - var $13368 = $13415; + var $12115 = self.expr; + var $12116 = Kind$Term$normalize$($12115, _defs$2); + var $12069 = $12116; break; case 'Kind.Term.typ': - var $13416 = Kind$Term$typ; - var $13368 = $13416; + var $12117 = Kind$Term$typ; + var $12069 = $12117; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -42464,11 +38415,11 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13417 = _term$1; - var $13368 = $13417; + var $12118 = _term$1; + var $12069 = $12118; break; }; - return $13368; + return $12069; }; const Kind$Term$normalize = x0 => x1 => Kind$Term$normalize$(x0, x1); @@ -42476,50 +38427,50 @@ module.exports = (function() { var self = _wyth$1; switch (self._) { case 'List.cons': - var $13419 = self.head; - var $13420 = self.tail; - var self = $13419; + var $12120 = self.head; + var $12121 = self.tail; + var self = $12120; switch (self._) { case 'Kind.Ann.new': - var $13422 = self.name; - var $13423 = self.type; - var $13424 = Kind$Term$all$(Bool$false, "", $13422, Maybe$default$($13423, Kind$Term$hol$(Bits$e)), (_s$14 => _x$15 => { - var $13425 = Kind$Term$check$expand$cse$motive$($13420, _moti$2, _name$3, _expr$4, _etyp$5, _rtyp$6, _defs$7, Nat$succ$(Nat$succ$(_size$8))); - return $13425; + var $12123 = self.name; + var $12124 = self.type; + var $12125 = Kind$Term$all$(Bool$false, "", $12123, Maybe$default$($12124, Kind$Term$hol$(Bits$e)), (_s$14 => _x$15 => { + var $12126 = Kind$Term$check$expand$cse$motive$($12121, _moti$2, _name$3, _expr$4, _etyp$5, _rtyp$6, _defs$7, Nat$succ$(Nat$succ$(_size$8))); + return $12126; })); - var $13421 = $13424; + var $12122 = $12125; break; }; - var $13418 = $13421; + var $12119 = $12122; break; case 'List.nil': var self = _moti$2; switch (self._) { case 'Maybe.some': - var $13427 = self.value; - var $13428 = $13427; - var $13426 = $13428; + var $12128 = self.value; + var $12129 = $12128; + var $12127 = $12129; break; case 'Maybe.none': var self = _rtyp$6; switch (self._) { case 'Maybe.some': - var $13430 = self.value; - var $13431 = Kind$Term$normalize$($13430, Kind$Map$new); - var $13429 = $13431; + var $12131 = self.value; + var $12132 = Kind$Term$normalize$($12131, Kind$Map$new); + var $12130 = $12132; break; case 'Maybe.none': - var $13432 = Kind$Term$hol$(Bits$e); - var $13429 = $13432; + var $12133 = Kind$Term$hol$(Bits$e); + var $12130 = $12133; break; }; - var $13426 = $13429; + var $12127 = $12130; break; }; - var $13418 = $13426; + var $12119 = $12127; break; }; - return $13418; + return $12119; }; const Kind$Term$check$expand$cse$motive$go = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => Kind$Term$check$expand$cse$motive$go$(x0, x1, x2, x3, x4, x5, x6, x7); @@ -42527,16 +38478,16 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $13434 = self.tail; - var $13435 = $13434; - var $13433 = $13435; + var $12135 = self.tail; + var $12136 = $12135; + var $12134 = $12136; break; case 'List.nil': - var $13436 = List$nil; - var $13433 = $13436; + var $12137 = List$nil; + var $12134 = $12137; break; }; - return $13433; + return $12134; }; const List$tail = x0 => List$tail$(x0); @@ -42553,10 +38504,10 @@ module.exports = (function() { var self = Kind$Term$reduce$(_term$2, _defs$4); switch (self._) { case 'Kind.Term.app': - var $13437 = self.func; - var $13438 = self.argm; - var $13439 = Kind$Term$SmartMotive$vals$cont$(_expr$1, $13437, List$cons$($13438, _args$3), _defs$4); - return $13439; + var $12138 = self.func; + var $12139 = self.argm; + var $12140 = Kind$Term$SmartMotive$vals$cont$(_expr$1, $12138, List$cons$($12139, _args$3), _defs$4); + return $12140; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -42577,8 +38528,8 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13440 = List$cons$(_expr$1, List$tail$(List$reverse$(_args$3))); - return $13440; + var $12141 = List$cons$(_expr$1, List$tail$(List$reverse$(_args$3))); + return $12141; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -42600,9 +38551,9 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$2, _defs$3); switch (self._) { case 'Kind.Term.all': - var $13441 = self.body; - var $13442 = Kind$Term$SmartMotive$vals$(_expr$1, $13441(Kind$Term$typ)(Kind$Term$typ), _defs$3); - return $13442; + var $12142 = self.body; + var $12143 = Kind$Term$SmartMotive$vals$(_expr$1, $12142(Kind$Term$typ)(Kind$Term$typ), _defs$3); + return $12143; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -42623,8 +38574,8 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13443 = Kind$Term$SmartMotive$vals$cont$(_expr$1, _type$2, List$nil, _defs$3); - return $13443; + var $12144 = Kind$Term$SmartMotive$vals$cont$(_expr$1, _type$2, List$nil, _defs$3); + return $12144; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -42646,11 +38597,11 @@ module.exports = (function() { var self = Kind$Term$reduce$(_term$2, _defs$4); switch (self._) { case 'Kind.Term.all': - var $13444 = self.self; - var $13445 = self.name; - var $13446 = self.body; - var $13447 = Kind$Term$SmartMotive$nams$cont$(_name$1, $13446(Kind$Term$ref$($13444))(Kind$Term$ref$($13445)), List$cons$(String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($13445, List$nil)))), _binds$3), _defs$4); - return $13447; + var $12145 = self.self; + var $12146 = self.name; + var $12147 = self.body; + var $12148 = Kind$Term$SmartMotive$nams$cont$(_name$1, $12147(Kind$Term$ref$($12145))(Kind$Term$ref$($12146)), List$cons$(String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($12146, List$nil)))), _binds$3), _defs$4); + return $12148; case 'Kind.Term.var': case 'Kind.Term.ref': case 'Kind.Term.typ': @@ -42671,8 +38622,8 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13448 = List$cons$(_name$1, List$tail$(_binds$3)); - return $13448; + var $12149 = List$cons$(_name$1, List$tail$(_binds$3)); + return $12149; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -42685,9 +38636,9 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$2, _defs$3); switch (self._) { case 'Kind.Term.all': - var $13450 = self.xtyp; - var $13451 = Kind$Term$SmartMotive$nams$cont$(_name$1, $13450, List$nil, _defs$3); - var $13449 = $13451; + var $12151 = self.xtyp; + var $12152 = Kind$Term$SmartMotive$nams$cont$(_name$1, $12151, List$nil, _defs$3); + var $12150 = $12152; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -42709,11 +38660,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13452 = List$nil; - var $13449 = $13452; + var $12153 = List$nil; + var $12150 = $12153; break; }; - return $13449; + return $12150; }; const Kind$Term$SmartMotive$nams = x0 => x1 => x2 => Kind$Term$SmartMotive$nams$(x0, x1, x2); @@ -42721,144 +38672,145 @@ module.exports = (function() { var self = _as$3; switch (self._) { case 'List.cons': - var $13454 = self.head; - var $13455 = self.tail; + var $12155 = self.head; + var $12156 = self.tail; var self = _bs$4; switch (self._) { case 'List.cons': - var $13457 = self.head; - var $13458 = self.tail; - var $13459 = List$cons$(Pair$new$($13454, $13457), List$zip$($13455, $13458)); - var $13456 = $13459; + var $12158 = self.head; + var $12159 = self.tail; + var $12160 = List$cons$(Pair$new$($12155, $12158), List$zip$($12156, $12159)); + var $12157 = $12160; break; case 'List.nil': - var $13460 = List$nil; - var $13456 = $13460; + var $12161 = List$nil; + var $12157 = $12161; break; }; - var $13453 = $13456; + var $12154 = $12157; break; case 'List.nil': - var $13461 = List$nil; - var $13453 = $13461; + var $12162 = List$nil; + var $12154 = $12162; break; }; - return $13453; + return $12154; }; const List$zip = x0 => x1 => List$zip$(x0, x1); const Nat$gte = a0 => a1 => (a0 >= a1); + const Bits$concat = a0 => a1 => (a1 + a0); function Kind$Term$serialize$go$(_term$1, _depth$2, _init$3, _diff$4, _x$5) { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $13463 = self.indx; - var self = ($13463 >= _init$3); + var $12164 = self.indx; + var self = ($12164 >= _init$3); if (self) { - var _name$8 = a1 => (a1 + (nat_to_bits(Nat$pred$((_depth$2 - $13463 <= 0n ? 0n : _depth$2 - $13463))))); - var $13465 = (((_name$8(_x$5) + '1') + '0') + '0'); - var $13464 = $13465; + var _name$8 = a1 => (a1 + (nat_to_bits(Nat$pred$((_depth$2 - $12164 <= 0n ? 0n : _depth$2 - $12164))))); + var $12166 = (((_name$8(_x$5) + '1') + '0') + '0'); + var $12165 = $12166; } else { - var _name$8 = a1 => (a1 + (nat_to_bits($13463))); - var $13466 = (((_name$8(_x$5) + '0') + '1') + '0'); - var $13464 = $13466; + var _name$8 = a1 => (a1 + (nat_to_bits($12164))); + var $12167 = (((_name$8(_x$5) + '0') + '1') + '0'); + var $12165 = $12167; }; - var $13462 = $13464; + var $12163 = $12165; break; case 'Kind.Term.ref': - var $13467 = self.name; - var _name$7 = a1 => (a1 + (kind_name_to_bits($13467))); - var $13468 = (((_name$7(_x$5) + '0') + '0') + '0'); - var $13462 = $13468; + var $12168 = self.name; + var _name$7 = a1 => (a1 + (kind_name_to_bits($12168))); + var $12169 = (((_name$7(_x$5) + '0') + '0') + '0'); + var $12163 = $12169; break; case 'Kind.Term.all': - var $13469 = self.eras; - var $13470 = self.self; - var $13471 = self.name; - var $13472 = self.xtyp; - var $13473 = self.body; - var self = $13469; + var $12170 = self.eras; + var $12171 = self.self; + var $12172 = self.name; + var $12173 = self.xtyp; + var $12174 = self.body; + var self = $12170; if (self) { - var $13475 = Bits$i; - var _eras$11 = $13475; + var $12176 = Bits$i; + var _eras$11 = $12176; } else { - var $13476 = Bits$o; - var _eras$11 = $13476; + var $12177 = Bits$o; + var _eras$11 = $12177; }; - var _self$12 = a1 => (a1 + (kind_name_to_bits($13470))); - var _xtyp$13 = Kind$Term$serialize$go($13472)(_depth$2)(_init$3)(_diff$4); - var _body$14 = Kind$Term$serialize$go($13473(Kind$Term$var$($13470, _depth$2))(Kind$Term$var$($13471, Nat$succ$(_depth$2))))(Nat$succ$(Nat$succ$(_depth$2)))(_init$3)(_diff$4); - var $13474 = (((_eras$11(_self$12(_xtyp$13(_body$14(_x$5)))) + '0') + '0') + '1'); - var $13462 = $13474; + var _self$12 = a1 => (a1 + (kind_name_to_bits($12171))); + var _xtyp$13 = Kind$Term$serialize$go($12173)(_depth$2)(_init$3)(_diff$4); + var _body$14 = Kind$Term$serialize$go($12174(Kind$Term$var$($12171, _depth$2))(Kind$Term$var$($12172, Nat$succ$(_depth$2))))(Nat$succ$(Nat$succ$(_depth$2)))(_init$3)(_diff$4); + var $12175 = (((_eras$11(_self$12(_xtyp$13(_body$14(_x$5)))) + '0') + '0') + '1'); + var $12163 = $12175; break; case 'Kind.Term.lam': - var $13477 = self.name; - var $13478 = self.body; - var _body$8 = Kind$Term$serialize$go($13478(Kind$Term$var$($13477, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); - var $13479 = (((_body$8(_x$5) + '1') + '0') + '1'); - var $13462 = $13479; + var $12178 = self.name; + var $12179 = self.body; + var _body$8 = Kind$Term$serialize$go($12179(Kind$Term$var$($12178, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); + var $12180 = (((_body$8(_x$5) + '1') + '0') + '1'); + var $12163 = $12180; break; case 'Kind.Term.app': - var $13480 = self.func; - var $13481 = self.argm; - var _func$8 = Kind$Term$serialize$go($13480)(_depth$2)(_init$3)(_diff$4); - var _argm$9 = Kind$Term$serialize$go($13481)(_depth$2)(_init$3)(_diff$4); - var $13482 = (((_func$8(_argm$9(_x$5)) + '0') + '1') + '1'); - var $13462 = $13482; + var $12181 = self.func; + var $12182 = self.argm; + var _func$8 = Kind$Term$serialize$go($12181)(_depth$2)(_init$3)(_diff$4); + var _argm$9 = Kind$Term$serialize$go($12182)(_depth$2)(_init$3)(_diff$4); + var $12183 = (((_func$8(_argm$9(_x$5)) + '0') + '1') + '1'); + var $12163 = $12183; break; case 'Kind.Term.let': - var $13483 = self.name; - var $13484 = self.expr; - var $13485 = self.body; - var _expr$9 = Kind$Term$serialize$go($13484)(_depth$2)(_init$3)(_diff$4); - var _body$10 = Kind$Term$serialize$go($13485(Kind$Term$var$($13483, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); - var $13486 = (((_expr$9(_body$10(_x$5)) + '1') + '1') + '1'); - var $13462 = $13486; + var $12184 = self.name; + var $12185 = self.expr; + var $12186 = self.body; + var _expr$9 = Kind$Term$serialize$go($12185)(_depth$2)(_init$3)(_diff$4); + var _body$10 = Kind$Term$serialize$go($12186(Kind$Term$var$($12184, _depth$2)))(Nat$succ$(_depth$2))(_init$3)(_diff$4); + var $12187 = (((_expr$9(_body$10(_x$5)) + '1') + '1') + '1'); + var $12163 = $12187; break; case 'Kind.Term.def': - var $13487 = self.expr; - var $13488 = self.body; - var $13489 = Kind$Term$serialize$go$($13488($13487), _depth$2, _init$3, _diff$4, _x$5); - var $13462 = $13489; + var $12188 = self.expr; + var $12189 = self.body; + var $12190 = Kind$Term$serialize$go$($12189($12188), _depth$2, _init$3, _diff$4, _x$5); + var $12163 = $12190; break; case 'Kind.Term.ann': - var $13490 = self.term; - var $13491 = Kind$Term$serialize$go$($13490, _depth$2, _init$3, _diff$4, _x$5); - var $13462 = $13491; + var $12191 = self.term; + var $12192 = Kind$Term$serialize$go$($12191, _depth$2, _init$3, _diff$4, _x$5); + var $12163 = $12192; break; case 'Kind.Term.gol': - var $13492 = self.name; - var _name$9 = a1 => (a1 + (kind_name_to_bits($13492))); - var $13493 = (((_name$9(_x$5) + '0') + '0') + '0'); - var $13462 = $13493; + var $12193 = self.name; + var _name$9 = a1 => (a1 + (kind_name_to_bits($12193))); + var $12194 = (((_name$9(_x$5) + '0') + '0') + '0'); + var $12163 = $12194; break; case 'Kind.Term.nat': - var $13494 = self.natx; - var $13495 = Kind$Term$serialize$go$(Kind$Term$unroll_nat$($13494), _depth$2, _init$3, _diff$4, _x$5); - var $13462 = $13495; + var $12195 = self.natx; + var $12196 = Kind$Term$serialize$go$(Kind$Term$unroll_nat$($12195), _depth$2, _init$3, _diff$4, _x$5); + var $12163 = $12196; break; case 'Kind.Term.chr': - var $13496 = self.chrx; - var $13497 = Kind$Term$serialize$go$(Kind$Term$unroll_chr$($13496), _depth$2, _init$3, _diff$4, _x$5); - var $13462 = $13497; + var $12197 = self.chrx; + var $12198 = Kind$Term$serialize$go$(Kind$Term$unroll_chr$($12197), _depth$2, _init$3, _diff$4, _x$5); + var $12163 = $12198; break; case 'Kind.Term.str': - var $13498 = self.strx; - var $13499 = Kind$Term$serialize$go$(Kind$Term$unroll_str$($13498), _depth$2, _init$3, _diff$4, _x$5); - var $13462 = $13499; + var $12199 = self.strx; + var $12200 = Kind$Term$serialize$go$(Kind$Term$unroll_str$($12199), _depth$2, _init$3, _diff$4, _x$5); + var $12163 = $12200; break; case 'Kind.Term.ori': - var $13500 = self.expr; - var $13501 = Kind$Term$serialize$go$($13500, _depth$2, _init$3, _diff$4, _x$5); - var $13462 = $13501; + var $12201 = self.expr; + var $12202 = Kind$Term$serialize$go$($12201, _depth$2, _init$3, _diff$4, _x$5); + var $12163 = $12202; break; case 'Kind.Term.typ': - var $13502 = (((_x$5 + '1') + '1') + '0'); - var $13462 = $13502; + var $12203 = (((_x$5 + '1') + '1') + '0'); + var $12163 = $12203; break; case 'Kind.Term.hol': - var $13503 = _x$5; - var $13462 = $13503; + var $12204 = _x$5; + var $12163 = $12204; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -42866,25 +38818,25 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13504 = _diff$4(_x$5); - var $13462 = $13504; + var $12205 = _diff$4(_x$5); + var $12163 = $12205; break; }; - return $13462; + return $12163; }; const Kind$Term$serialize$go = x0 => x1 => x2 => x3 => x4 => Kind$Term$serialize$go$(x0, x1, x2, x3, x4); function Kind$Term$serialize$(_term$1, _depth$2, _side$3) { var self = _side$3; if (self) { - var $13506 = Bits$o; - var _diff$4 = $13506; + var $12207 = Bits$o; + var _diff$4 = $12207; } else { - var $13507 = Bits$i; - var _diff$4 = $13507; + var $12208 = Bits$i; + var _diff$4 = $12208; }; - var $13505 = Kind$Term$serialize$go$(_term$1, _depth$2, _depth$2, _diff$4, Bits$e); - return $13505; + var $12206 = Kind$Term$serialize$go$(_term$1, _depth$2, _depth$2, _diff$4, Bits$e); + return $12206; }; const Kind$Term$serialize = x0 => x1 => x2 => Kind$Term$serialize$(x0, x1, x2); const Bits$eql = a0 => a1 => (a1 === a0); @@ -42892,134 +38844,134 @@ module.exports = (function() { function Kind$Term$identical$(_a$1, _b$2, _lv$3) { var _ah$4 = Kind$Term$serialize$(_a$1, _lv$3, Bool$false); var _bh$5 = Kind$Term$serialize$(_b$2, _lv$3, Bool$true); - var $13508 = (_bh$5 === _ah$4); - return $13508; + var $12209 = (_bh$5 === _ah$4); + return $12209; }; const Kind$Term$identical = x0 => x1 => x2 => Kind$Term$identical$(x0, x1, x2); function Kind$Term$SmartMotive$replace$(_term$1, _from$2, _to$3, _lv$4) { var self = Kind$Term$identical$(_term$1, _from$2, _lv$4); if (self) { - var $13510 = _to$3; - var $13509 = $13510; + var $12211 = _to$3; + var $12210 = $12211; } else { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $13512 = self.name; - var $13513 = self.indx; - var $13514 = Kind$Term$var$($13512, $13513); - var $13511 = $13514; + var $12213 = self.name; + var $12214 = self.indx; + var $12215 = Kind$Term$var$($12213, $12214); + var $12212 = $12215; break; case 'Kind.Term.ref': - var $13515 = self.name; - var $13516 = Kind$Term$ref$($13515); - var $13511 = $13516; + var $12216 = self.name; + var $12217 = Kind$Term$ref$($12216); + var $12212 = $12217; break; case 'Kind.Term.all': - var $13517 = self.eras; - var $13518 = self.self; - var $13519 = self.name; - var $13520 = self.xtyp; - var $13521 = self.body; - var _xtyp$10 = Kind$Term$SmartMotive$replace$($13520, _from$2, _to$3, _lv$4); - var _body$11 = $13521(Kind$Term$ref$($13518))(Kind$Term$ref$($13519)); + var $12218 = self.eras; + var $12219 = self.self; + var $12220 = self.name; + var $12221 = self.xtyp; + var $12222 = self.body; + var _xtyp$10 = Kind$Term$SmartMotive$replace$($12221, _from$2, _to$3, _lv$4); + var _body$11 = $12222(Kind$Term$ref$($12219))(Kind$Term$ref$($12220)); var _body$12 = Kind$Term$SmartMotive$replace$(_body$11, _from$2, _to$3, Nat$succ$(Nat$succ$(_lv$4))); - var $13522 = Kind$Term$all$($13517, $13518, $13519, _xtyp$10, (_s$13 => _x$14 => { - var $13523 = _body$12; - return $13523; + var $12223 = Kind$Term$all$($12218, $12219, $12220, _xtyp$10, (_s$13 => _x$14 => { + var $12224 = _body$12; + return $12224; })); - var $13511 = $13522; + var $12212 = $12223; break; case 'Kind.Term.lam': - var $13524 = self.name; - var $13525 = self.body; - var _body$7 = $13525(Kind$Term$ref$($13524)); + var $12225 = self.name; + var $12226 = self.body; + var _body$7 = $12226(Kind$Term$ref$($12225)); var _body$8 = Kind$Term$SmartMotive$replace$(_body$7, _from$2, _to$3, Nat$succ$(_lv$4)); - var $13526 = Kind$Term$lam$($13524, (_x$9 => { - var $13527 = _body$8; - return $13527; + var $12227 = Kind$Term$lam$($12225, (_x$9 => { + var $12228 = _body$8; + return $12228; })); - var $13511 = $13526; + var $12212 = $12227; break; case 'Kind.Term.app': - var $13528 = self.func; - var $13529 = self.argm; - var _func$7 = Kind$Term$SmartMotive$replace$($13528, _from$2, _to$3, _lv$4); - var _argm$8 = Kind$Term$SmartMotive$replace$($13529, _from$2, _to$3, _lv$4); - var $13530 = Kind$Term$app$(_func$7, _argm$8); - var $13511 = $13530; + var $12229 = self.func; + var $12230 = self.argm; + var _func$7 = Kind$Term$SmartMotive$replace$($12229, _from$2, _to$3, _lv$4); + var _argm$8 = Kind$Term$SmartMotive$replace$($12230, _from$2, _to$3, _lv$4); + var $12231 = Kind$Term$app$(_func$7, _argm$8); + var $12212 = $12231; break; case 'Kind.Term.let': - var $13531 = self.name; - var $13532 = self.expr; - var $13533 = self.body; - var _expr$8 = Kind$Term$SmartMotive$replace$($13532, _from$2, _to$3, _lv$4); - var _body$9 = $13533(Kind$Term$ref$($13531)); + var $12232 = self.name; + var $12233 = self.expr; + var $12234 = self.body; + var _expr$8 = Kind$Term$SmartMotive$replace$($12233, _from$2, _to$3, _lv$4); + var _body$9 = $12234(Kind$Term$ref$($12232)); var _body$10 = Kind$Term$SmartMotive$replace$(_body$9, _from$2, _to$3, Nat$succ$(_lv$4)); - var $13534 = Kind$Term$let$($13531, _expr$8, (_x$11 => { - var $13535 = _body$10; - return $13535; + var $12235 = Kind$Term$let$($12232, _expr$8, (_x$11 => { + var $12236 = _body$10; + return $12236; })); - var $13511 = $13534; + var $12212 = $12235; break; case 'Kind.Term.def': - var $13536 = self.name; - var $13537 = self.expr; - var $13538 = self.body; - var _expr$8 = Kind$Term$SmartMotive$replace$($13537, _from$2, _to$3, _lv$4); - var _body$9 = $13538(Kind$Term$ref$($13536)); + var $12237 = self.name; + var $12238 = self.expr; + var $12239 = self.body; + var _expr$8 = Kind$Term$SmartMotive$replace$($12238, _from$2, _to$3, _lv$4); + var _body$9 = $12239(Kind$Term$ref$($12237)); var _body$10 = Kind$Term$SmartMotive$replace$(_body$9, _from$2, _to$3, Nat$succ$(_lv$4)); - var $13539 = Kind$Term$def$($13536, _expr$8, (_x$11 => { - var $13540 = _body$10; - return $13540; + var $12240 = Kind$Term$def$($12237, _expr$8, (_x$11 => { + var $12241 = _body$10; + return $12241; })); - var $13511 = $13539; + var $12212 = $12240; break; case 'Kind.Term.ann': - var $13541 = self.done; - var $13542 = self.term; - var $13543 = self.type; - var _term$8 = Kind$Term$SmartMotive$replace$($13542, _from$2, _to$3, _lv$4); - var _type$9 = Kind$Term$SmartMotive$replace$($13543, _from$2, _to$3, _lv$4); - var $13544 = Kind$Term$ann$($13541, _term$8, _type$9); - var $13511 = $13544; + var $12242 = self.done; + var $12243 = self.term; + var $12244 = self.type; + var _term$8 = Kind$Term$SmartMotive$replace$($12243, _from$2, _to$3, _lv$4); + var _type$9 = Kind$Term$SmartMotive$replace$($12244, _from$2, _to$3, _lv$4); + var $12245 = Kind$Term$ann$($12242, _term$8, _type$9); + var $12212 = $12245; break; case 'Kind.Term.get': - var $13545 = self.expr; - var $13546 = self.fkey; - var _expr$7 = Kind$Term$SmartMotive$replace$($13545, _from$2, _to$3, _lv$4); - var _fkey$8 = $13546; - var $13547 = Kind$Term$get$(_expr$7, _fkey$8); - var $13511 = $13547; + var $12246 = self.expr; + var $12247 = self.fkey; + var _expr$7 = Kind$Term$SmartMotive$replace$($12246, _from$2, _to$3, _lv$4); + var _fkey$8 = $12247; + var $12248 = Kind$Term$get$(_expr$7, _fkey$8); + var $12212 = $12248; break; case 'Kind.Term.set': - var $13548 = self.expr; - var $13549 = self.fkey; - var $13550 = self.fval; - var _expr$8 = Kind$Term$SmartMotive$replace$($13548, _from$2, _to$3, _lv$4); - var _fkey$9 = $13549; - var _fval$10 = Kind$Term$SmartMotive$replace$($13550, _from$2, _to$3, _lv$4); - var $13551 = Kind$Term$set$(_expr$8, _fkey$9, _fval$10); - var $13511 = $13551; + var $12249 = self.expr; + var $12250 = self.fkey; + var $12251 = self.fval; + var _expr$8 = Kind$Term$SmartMotive$replace$($12249, _from$2, _to$3, _lv$4); + var _fkey$9 = $12250; + var _fval$10 = Kind$Term$SmartMotive$replace$($12251, _from$2, _to$3, _lv$4); + var $12252 = Kind$Term$set$(_expr$8, _fkey$9, _fval$10); + var $12212 = $12252; break; case 'Kind.Term.ope': - var $13552 = self.name; - var $13553 = self.arg0; - var $13554 = self.arg1; - var _arg0$8 = Kind$Term$SmartMotive$replace$($13553, _from$2, _to$3, _lv$4); - var _arg1$9 = Kind$Term$SmartMotive$replace$($13554, _from$2, _to$3, _lv$4); - var $13555 = Kind$Term$ope$($13552, _arg0$8, _arg1$9); - var $13511 = $13555; + var $12253 = self.name; + var $12254 = self.arg0; + var $12255 = self.arg1; + var _arg0$8 = Kind$Term$SmartMotive$replace$($12254, _from$2, _to$3, _lv$4); + var _arg1$9 = Kind$Term$SmartMotive$replace$($12255, _from$2, _to$3, _lv$4); + var $12256 = Kind$Term$ope$($12253, _arg0$8, _arg1$9); + var $12212 = $12256; break; case 'Kind.Term.ori': - var $13556 = self.expr; - var $13557 = Kind$Term$SmartMotive$replace$($13556, _from$2, _to$3, _lv$4); - var $13511 = $13557; + var $12257 = self.expr; + var $12258 = Kind$Term$SmartMotive$replace$($12257, _from$2, _to$3, _lv$4); + var $12212 = $12258; break; case 'Kind.Term.typ': - var $13558 = Kind$Term$typ; - var $13511 = $13558; + var $12259 = Kind$Term$typ; + var $12212 = $12259; break; case 'Kind.Term.gol': case 'Kind.Term.hol': @@ -43029,13 +38981,13 @@ module.exports = (function() { case 'Kind.Term.num': case 'Kind.Term.cse': case 'Kind.Term.new': - var $13559 = _term$1; - var $13511 = $13559; + var $12260 = _term$1; + var $12212 = $12260; break; }; - var $13509 = $13511; + var $12210 = $12212; }; - return $13509; + return $12210; }; const Kind$Term$SmartMotive$replace = x0 => x1 => x2 => x3 => Kind$Term$SmartMotive$replace$(x0, x1, x2, x3); @@ -43043,19 +38995,19 @@ module.exports = (function() { var _vals$7 = Kind$Term$SmartMotive$vals$(_expr$2, _type$3, _defs$6); var _nams$8 = Kind$Term$SmartMotive$nams$(_name$1, _type$3, _defs$6); var _subs$9 = List$zip$(_nams$8, _vals$7); - var $13560 = List$fold$(_subs$9, _moti$4, (_sub$10 => _moti$11 => { + var $12261 = List$fold$(_subs$9, _moti$4, (_sub$10 => _moti$11 => { var self = _sub$10; switch (self._) { case 'Pair.new': - var $13562 = self.fst; - var $13563 = self.snd; - var $13564 = Kind$Term$SmartMotive$replace$(_moti$11, $13563, Kind$Term$ref$($13562), _size$5); - var $13561 = $13564; + var $12263 = self.fst; + var $12264 = self.snd; + var $12265 = Kind$Term$SmartMotive$replace$(_moti$11, $12264, Kind$Term$ref$($12263), _size$5); + var $12262 = $12265; break; }; - return $13561; + return $12262; })); - return $13560; + return $12261; }; const Kind$Term$SmartMotive$make = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$SmartMotive$make$(x0, x1, x2, x3, x4, x5); @@ -43064,15 +39016,15 @@ module.exports = (function() { var self = _moti$2; switch (self._) { case 'Maybe.none': - var $13566 = Kind$Term$SmartMotive$make$(_name$3, _expr$4, _etyp$5, _done$9, _size$8, _defs$7); - var $13565 = $13566; + var $12267 = Kind$Term$SmartMotive$make$(_name$3, _expr$4, _etyp$5, _done$9, _size$8, _defs$7); + var $12266 = $12267; break; case 'Maybe.some': - var $13567 = _done$9; - var $13565 = $13567; + var $12268 = _done$9; + var $12266 = $12268; break; }; - return $13565; + return $12266; }; const Kind$Term$check$expand$cse$motive = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => Kind$Term$check$expand$cse$motive$(x0, x1, x2, x3, x4, x5, x6, x7); @@ -43080,23 +39032,23 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$3, _defs$5); switch (self._) { case 'Kind.Term.all': - var $13569 = self.self; - var $13570 = self.name; - var $13571 = self.body; - var $13572 = Kind$Term$lam$((() => { - var self = String$is_empty$($13570); + var $12270 = self.self; + var $12271 = self.name; + var $12272 = self.body; + var $12273 = Kind$Term$lam$((() => { + var self = String$is_empty$($12271); if (self) { - var $13573 = _name$1; - return $13573; + var $12274 = _name$1; + return $12274; } else { - var $13574 = String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($13570, List$nil)))); - return $13574; + var $12275 = String$flatten$(List$cons$(_name$1, List$cons$(".", List$cons$($12271, List$nil)))); + return $12275; }; })(), (_x$11 => { - var $13575 = Kind$Term$check$expand$cse$argument$(_name$1, _wyth$2, $13571(Kind$Term$var$($13569, 0n))(Kind$Term$var$($13570, 0n)), _body$4, _defs$5); - return $13575; + var $12276 = Kind$Term$check$expand$cse$argument$(_name$1, _wyth$2, $12272(Kind$Term$var$($12270, 0n))(Kind$Term$var$($12271, 0n)), _body$4, _defs$5); + return $12276; })); - var $13568 = $13572; + var $12269 = $12273; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -43106,27 +39058,27 @@ module.exports = (function() { var self = _wyth$2; switch (self._) { case 'List.cons': - var $13577 = self.head; - var $13578 = self.tail; - var self = $13577; + var $12278 = self.head; + var $12279 = self.tail; + var self = $12278; switch (self._) { case 'Kind.Ann.new': - var $13580 = self.name; - var $13581 = Kind$Term$lam$($13580, (_x$13 => { - var $13582 = Kind$Term$check$expand$cse$argument$(_name$1, $13578, _type$3, _body$4, _defs$5); - return $13582; + var $12281 = self.name; + var $12282 = Kind$Term$lam$($12281, (_x$13 => { + var $12283 = Kind$Term$check$expand$cse$argument$(_name$1, $12279, _type$3, _body$4, _defs$5); + return $12283; })); - var $13579 = $13581; + var $12280 = $12282; break; }; - var $13576 = $13579; + var $12277 = $12280; break; case 'List.nil': - var $13583 = _body$4; - var $13576 = $13583; + var $12284 = _body$4; + var $12277 = $12284; break; }; - var $13568 = $13576; + var $12269 = $12277; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -43137,53 +39089,53 @@ module.exports = (function() { var self = _wyth$2; switch (self._) { case 'List.cons': - var $13585 = self.head; - var $13586 = self.tail; - var self = $13585; + var $12286 = self.head; + var $12287 = self.tail; + var self = $12286; switch (self._) { case 'Kind.Ann.new': - var $13588 = self.name; - var $13589 = Kind$Term$lam$($13588, (_x$12 => { - var $13590 = Kind$Term$check$expand$cse$argument$(_name$1, $13586, _type$3, _body$4, _defs$5); - return $13590; + var $12289 = self.name; + var $12290 = Kind$Term$lam$($12289, (_x$12 => { + var $12291 = Kind$Term$check$expand$cse$argument$(_name$1, $12287, _type$3, _body$4, _defs$5); + return $12291; })); - var $13587 = $13589; + var $12288 = $12290; break; }; - var $13584 = $13587; + var $12285 = $12288; break; case 'List.nil': - var $13591 = _body$4; - var $13584 = $13591; + var $12292 = _body$4; + var $12285 = $12292; break; }; - var $13568 = $13584; + var $12269 = $12285; break; case 'Kind.Term.typ': var self = _wyth$2; switch (self._) { case 'List.cons': - var $13593 = self.head; - var $13594 = self.tail; - var self = $13593; + var $12294 = self.head; + var $12295 = self.tail; + var self = $12294; switch (self._) { case 'Kind.Ann.new': - var $13596 = self.name; - var $13597 = Kind$Term$lam$($13596, (_x$11 => { - var $13598 = Kind$Term$check$expand$cse$argument$(_name$1, $13594, _type$3, _body$4, _defs$5); - return $13598; + var $12297 = self.name; + var $12298 = Kind$Term$lam$($12297, (_x$11 => { + var $12299 = Kind$Term$check$expand$cse$argument$(_name$1, $12295, _type$3, _body$4, _defs$5); + return $12299; })); - var $13595 = $13597; + var $12296 = $12298; break; }; - var $13592 = $13595; + var $12293 = $12296; break; case 'List.nil': - var $13599 = _body$4; - var $13592 = $13599; + var $12300 = _body$4; + var $12293 = $12300; break; }; - var $13568 = $13592; + var $12269 = $12293; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -43195,56 +39147,56 @@ module.exports = (function() { var self = _wyth$2; switch (self._) { case 'List.cons': - var $13601 = self.head; - var $13602 = self.tail; - var self = $13601; + var $12302 = self.head; + var $12303 = self.tail; + var self = $12302; switch (self._) { case 'Kind.Ann.new': - var $13604 = self.name; - var $13605 = Kind$Term$lam$($13604, (_x$14 => { - var $13606 = Kind$Term$check$expand$cse$argument$(_name$1, $13602, _type$3, _body$4, _defs$5); - return $13606; + var $12305 = self.name; + var $12306 = Kind$Term$lam$($12305, (_x$14 => { + var $12307 = Kind$Term$check$expand$cse$argument$(_name$1, $12303, _type$3, _body$4, _defs$5); + return $12307; })); - var $13603 = $13605; + var $12304 = $12306; break; }; - var $13600 = $13603; + var $12301 = $12304; break; case 'List.nil': - var $13607 = _body$4; - var $13600 = $13607; + var $12308 = _body$4; + var $12301 = $12308; break; }; - var $13568 = $13600; + var $12269 = $12301; break; case 'Kind.Term.cse': var self = _wyth$2; switch (self._) { case 'List.cons': - var $13609 = self.head; - var $13610 = self.tail; - var self = $13609; + var $12310 = self.head; + var $12311 = self.tail; + var self = $12310; switch (self._) { case 'Kind.Ann.new': - var $13612 = self.name; - var $13613 = Kind$Term$lam$($13612, (_x$17 => { - var $13614 = Kind$Term$check$expand$cse$argument$(_name$1, $13610, _type$3, _body$4, _defs$5); - return $13614; + var $12313 = self.name; + var $12314 = Kind$Term$lam$($12313, (_x$17 => { + var $12315 = Kind$Term$check$expand$cse$argument$(_name$1, $12311, _type$3, _body$4, _defs$5); + return $12315; })); - var $13611 = $13613; + var $12312 = $12314; break; }; - var $13608 = $13611; + var $12309 = $12312; break; case 'List.nil': - var $13615 = _body$4; - var $13608 = $13615; + var $12316 = _body$4; + var $12309 = $12316; break; }; - var $13568 = $13608; + var $12269 = $12309; break; }; - return $13568; + return $12269; }; const Kind$Term$check$expand$cse$argument = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$cse$argument$(x0, x1, x2, x3, x4); @@ -43252,16 +39204,16 @@ module.exports = (function() { var self = _a$2; switch (self._) { case 'Maybe.some': - var $13617 = self.value; - var $13618 = Maybe$some$($13617); - var $13616 = $13618; + var $12318 = self.value; + var $12319 = Maybe$some$($12318); + var $12317 = $12319; break; case 'Maybe.none': - var $13619 = _b$3; - var $13616 = $13619; + var $12320 = _b$3; + var $12317 = $12320; break; }; - return $13616; + return $12317; }; const Maybe$or = x0 => x1 => Maybe$or$(x0, x1); @@ -43278,45 +39230,45 @@ module.exports = (function() { var self = Kind$Term$reduce$(_type$5, _defs$6); switch (self._) { case 'Kind.Term.all': - var $13620 = self.self; - var $13621 = self.name; - var $13622 = self.xtyp; - var $13623 = self.body; - var _argm$13 = Maybe$or$(Kind$Map$get$($13621, _cses$4), Kind$Map$get$("_", _cses$4)); - var _argm$14 = Maybe$default$(_argm$13, Kind$Term$ref$((_name$2 + ("_" + ($13621 + "_case"))))); - var _argm$15 = Kind$Term$check$expand$cse$argument$(_name$2, _wyth$3, $13622, _argm$14, _defs$6); + var $12321 = self.self; + var $12322 = self.name; + var $12323 = self.xtyp; + var $12324 = self.body; + var _argm$13 = Maybe$or$(Kind$Map$get$($12322, _cses$4), Kind$Map$get$("_", _cses$4)); + var _argm$14 = Maybe$default$(_argm$13, Kind$Term$ref$((_name$2 + ("_" + ($12322 + "_case"))))); + var _argm$15 = Kind$Term$check$expand$cse$argument$(_name$2, _wyth$3, $12323, _argm$14, _defs$6); var _expr$16 = Kind$Term$app$(_expr$1, _argm$15); - var _type$17 = $13623(Kind$Term$var$($13620, 0n))(Kind$Term$var$($13621, 0n)); - var $13624 = Kind$Term$check$expand$cse$cases$(_expr$16, _name$2, _wyth$3, _cses$4, _type$17, _defs$6, _ctxt$7); - return $13624; + var _type$17 = $12324(Kind$Term$var$($12321, 0n))(Kind$Term$var$($12322, 0n)); + var $12325 = Kind$Term$check$expand$cse$cases$(_expr$16, _name$2, _wyth$3, _cses$4, _type$17, _defs$6, _ctxt$7); + return $12325; case 'Kind.Term.var': case 'Kind.Term.lam': case 'Kind.Term.app': case 'Kind.Term.get': case 'Kind.Term.ori': var _expr$10 = (() => { - var $13627 = _expr$1; - var $13628 = _wyth$3; - let _expr$11 = $13627; + var $12328 = _expr$1; + var $12329 = _wyth$3; + let _expr$11 = $12328; let _defn$10; - while ($13628._ === 'List.cons') { - _defn$10 = $13628.head; - var $13627 = Kind$Term$app$(_expr$11, (() => { + while ($12329._ === 'List.cons') { + _defn$10 = $12329.head; + var $12328 = Kind$Term$app$(_expr$11, (() => { var self = _defn$10; switch (self._) { case 'Kind.Ann.new': - var $13629 = self.term; - var $13630 = $13629; - return $13630; + var $12330 = self.term; + var $12331 = $12330; + return $12331; }; })()); - _expr$11 = $13627; - $13628 = $13628.tail; + _expr$11 = $12328; + $12329 = $12329.tail; } return _expr$11; })(); - var $13625 = _expr$10; - return $13625; + var $12326 = _expr$10; + return $12326; case 'Kind.Term.ref': case 'Kind.Term.hol': case 'Kind.Term.nat': @@ -43324,52 +39276,52 @@ module.exports = (function() { case 'Kind.Term.str': case 'Kind.Term.new': var _expr$9 = (() => { - var $13633 = _expr$1; - var $13634 = _wyth$3; - let _expr$10 = $13633; + var $12334 = _expr$1; + var $12335 = _wyth$3; + let _expr$10 = $12334; let _defn$9; - while ($13634._ === 'List.cons') { - _defn$9 = $13634.head; - var $13633 = Kind$Term$app$(_expr$10, (() => { + while ($12335._ === 'List.cons') { + _defn$9 = $12335.head; + var $12334 = Kind$Term$app$(_expr$10, (() => { var self = _defn$9; switch (self._) { case 'Kind.Ann.new': - var $13635 = self.term; - var $13636 = $13635; - return $13636; + var $12336 = self.term; + var $12337 = $12336; + return $12337; }; })()); - _expr$10 = $13633; - $13634 = $13634.tail; + _expr$10 = $12334; + $12335 = $12335.tail; } return _expr$10; })(); - var $13631 = _expr$9; - return $13631; + var $12332 = _expr$9; + return $12332; case 'Kind.Term.typ': var _expr$8 = (() => { - var $13639 = _expr$1; - var $13640 = _wyth$3; - let _expr$9 = $13639; + var $12340 = _expr$1; + var $12341 = _wyth$3; + let _expr$9 = $12340; let _defn$8; - while ($13640._ === 'List.cons') { - _defn$8 = $13640.head; - var $13639 = Kind$Term$app$(_expr$9, (() => { + while ($12341._ === 'List.cons') { + _defn$8 = $12341.head; + var $12340 = Kind$Term$app$(_expr$9, (() => { var self = _defn$8; switch (self._) { case 'Kind.Ann.new': - var $13641 = self.term; - var $13642 = $13641; - return $13642; + var $12342 = self.term; + var $12343 = $12342; + return $12343; }; })()); - _expr$9 = $13639; - $13640 = $13640.tail; + _expr$9 = $12340; + $12341 = $12341.tail; } return _expr$9; })(); - var $13637 = _expr$8; - return $13637; + var $12338 = _expr$8; + return $12338; case 'Kind.Term.let': case 'Kind.Term.def': case 'Kind.Term.ann': @@ -43378,52 +39330,52 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': var _expr$11 = (() => { - var $13645 = _expr$1; - var $13646 = _wyth$3; - let _expr$12 = $13645; + var $12346 = _expr$1; + var $12347 = _wyth$3; + let _expr$12 = $12346; let _defn$11; - while ($13646._ === 'List.cons') { - _defn$11 = $13646.head; - var $13645 = Kind$Term$app$(_expr$12, (() => { + while ($12347._ === 'List.cons') { + _defn$11 = $12347.head; + var $12346 = Kind$Term$app$(_expr$12, (() => { var self = _defn$11; switch (self._) { case 'Kind.Ann.new': - var $13647 = self.term; - var $13648 = $13647; - return $13648; + var $12348 = self.term; + var $12349 = $12348; + return $12349; }; })()); - _expr$12 = $13645; - $13646 = $13646.tail; + _expr$12 = $12346; + $12347 = $12347.tail; } return _expr$12; })(); - var $13643 = _expr$11; - return $13643; + var $12344 = _expr$11; + return $12344; case 'Kind.Term.cse': var _expr$14 = (() => { - var $13651 = _expr$1; - var $13652 = _wyth$3; - let _expr$15 = $13651; + var $12352 = _expr$1; + var $12353 = _wyth$3; + let _expr$15 = $12352; let _defn$14; - while ($13652._ === 'List.cons') { - _defn$14 = $13652.head; - var $13651 = Kind$Term$app$(_expr$15, (() => { + while ($12353._ === 'List.cons') { + _defn$14 = $12353.head; + var $12352 = Kind$Term$app$(_expr$15, (() => { var self = _defn$14; switch (self._) { case 'Kind.Ann.new': - var $13653 = self.term; - var $13654 = $13653; - return $13654; + var $12354 = self.term; + var $12355 = $12354; + return $12355; }; })()); - _expr$15 = $13651; - $13652 = $13652.tail; + _expr$15 = $12352; + $12353 = $12353.tail; } return _expr$15; })(); - var $13649 = _expr$14; - return $13649; + var $12350 = _expr$14; + return $12350; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -43436,16 +39388,16 @@ module.exports = (function() { var self = Kind$Term$reduce$(_etyp$6, _defs$8); switch (self._) { case 'Kind.Term.all': - var $13656 = self.self; - var $13657 = self.name; - var $13658 = self.xtyp; - var $13659 = self.body; + var $12357 = self.self; + var $12358 = self.name; + var $12359 = self.xtyp; + var $12360 = self.body; var _moti$15 = Kind$Term$check$expand$cse$motive$(_wyth$3, _moti$5, _name$2, _expr$1, _etyp$6, _rtyp$7, _defs$8, (list_length(_ctxt$9))); - var _argm$16 = Kind$Term$check$expand$cse$argument$(_name$2, List$nil, $13658, _moti$15, _defs$8); + var _argm$16 = Kind$Term$check$expand$cse$argument$(_name$2, List$nil, $12359, _moti$15, _defs$8); var _expr$17 = Kind$Term$app$(_expr$1, _argm$16); - var _type$18 = $13659(Kind$Term$var$($13656, 0n))(Kind$Term$var$($13657, 0n)); - var $13660 = Maybe$some$(Kind$Term$check$expand$cse$cases$(_expr$17, _name$2, _wyth$3, _cses$4, _type$18, _defs$8, _ctxt$9)); - var $13655 = $13660; + var _type$18 = $12360(Kind$Term$var$($12357, 0n))(Kind$Term$var$($12358, 0n)); + var $12361 = Maybe$some$(Kind$Term$check$expand$cse$cases$(_expr$17, _name$2, _wyth$3, _cses$4, _type$18, _defs$8, _ctxt$9)); + var $12356 = $12361; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43467,28 +39419,28 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13661 = Maybe$none; - var $13655 = $13661; + var $12362 = Maybe$none; + var $12356 = $12362; break; }; - return $13655; + return $12356; }; const Kind$Term$check$expand$cse = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => Kind$Term$check$expand$cse$(x0, x1, x2, x3, x4, x5, x6, x7, x8); function Kind$Error$cant_infer$(_origin$1, _term$2, _context$3) { - var $13662 = ({ + var $12363 = ({ _: 'Kind.Error.cant_infer', 'origin': _origin$1, 'term': _term$2, 'context': _context$3 }); - return $13662; + return $12363; }; const Kind$Error$cant_infer = x0 => x1 => x2 => Kind$Error$cant_infer$(x0, x1, x2); function Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$3, _orig$4) { - var $13663 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$cant_infer$(_orig$4, _term$1, _ctx$3), List$nil)); - return $13663; + var $12364 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$cant_infer$(_orig$4, _term$1, _ctx$3), List$nil)); + return $12364; }; const Kind$Term$check$cant_infer = x0 => x1 => x2 => x3 => Kind$Term$check$cant_infer$(x0, x1, x2, x3); @@ -43496,21 +39448,21 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $13665 = self.self; - var $13666 = self.name; - var $13667 = self.xtyp; - var $13668 = self.body; - var _b$8 = $13668(Kind$Term$var$($13665, _depth$2))(Kind$Term$var$($13666, Nat$succ$(_depth$2))); + var $12366 = self.self; + var $12367 = self.name; + var $12368 = self.xtyp; + var $12369 = self.body; + var _b$8 = $12369(Kind$Term$var$($12366, _depth$2))(Kind$Term$var$($12367, Nat$succ$(_depth$2))); var self = Kind$Term$get_bnds$(_b$8, Nat$succ$(Nat$succ$(_depth$2))); switch (self._) { case 'Pair.new': - var $13670 = self.fst; - var $13671 = self.snd; - var $13672 = Pair$new$(List$cons$(Pair$new$($13666, $13667), $13670), $13671); - var $13669 = $13672; + var $12371 = self.fst; + var $12372 = self.snd; + var $12373 = Pair$new$(List$cons$(Pair$new$($12367, $12368), $12371), $12372); + var $12370 = $12373; break; }; - var $13664 = $13669; + var $12365 = $12370; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43532,11 +39484,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13673 = Pair$new$(List$nil, _term$1); - var $13664 = $13673; + var $12374 = Pair$new$(List$nil, _term$1); + var $12365 = $12374; break; }; - return $13664; + return $12365; }; const Kind$Term$get_bnds = x0 => x1 => Kind$Term$get_bnds$(x0, x1); @@ -43553,13 +39505,13 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $13674 = self.head; - var $13675 = self.tail; - var $13676 = List$last$go$($13675, Maybe$some$($13674)); - return $13676; + var $12375 = self.head; + var $12376 = self.tail; + var $12377 = List$last$go$($12376, Maybe$some$($12375)); + return $12377; case 'List.nil': - var $13677 = _last$3; - return $13677; + var $12378 = _last$3; + return $12378; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -43569,8 +39521,8 @@ module.exports = (function() { const List$last$go = x0 => x1 => List$last$go$(x0, x1); function List$last$(_xs$2) { - var $13678 = List$last$go$(_xs$2, Maybe$none); - return $13678; + var $12379 = List$last$go$(_xs$2, Maybe$none); + return $12379; }; const List$last = x0 => List$last$(x0); @@ -43578,21 +39530,21 @@ module.exports = (function() { var self = Kind$Term$get_bnds$(_xtyp$1, 0n); switch (self._) { case 'Pair.new': - var $13680 = self.fst; - var self = Kind$Term$get_args$(Pair$snd$(Maybe$default$(List$last$($13680), Pair$new$("", Kind$Term$typ)))); + var $12381 = self.fst; + var self = Kind$Term$get_args$(Pair$snd$(Maybe$default$(List$last$($12381), Pair$new$("", Kind$Term$typ)))); switch (self._) { case 'Pair.new': - var $13682 = self.snd; - var _indexs$6 = Nat$pred$((list_length($13680))); - var _params$7 = ((list_length($13682)) - _indexs$6 <= 0n ? 0n : (list_length($13682)) - _indexs$6); - var $13683 = _params$7; - var $13681 = $13683; + var $12383 = self.snd; + var _indexs$6 = Nat$pred$((list_length($12381))); + var _params$7 = ((list_length($12383)) - _indexs$6 <= 0n ? 0n : (list_length($12383)) - _indexs$6); + var $12384 = _params$7; + var $12382 = $12384; break; }; - var $13679 = $13681; + var $12380 = $12382; break; }; - return $13679; + return $12380; }; const Kind$Term$check$expand$set$count_params = x0 => Kind$Term$check$expand$set$count_params$(x0); @@ -43608,11 +39560,11 @@ module.exports = (function() { var R = (() => { var self = (_from$3 === _til$4); if (self) { - var $13684 = _state$2; - return $13684; + var $12385 = _state$2; + return $12385; } else { - var $13685 = Nat$for$(_func$5(_from$3)(_state$2), Nat$succ$(_from$3), _til$4, _func$5); - return $13685; + var $12386 = Nat$for$(_func$5(_from$3)(_state$2), Nat$succ$(_from$3), _til$4, _func$5); + return $12386; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -43634,21 +39586,21 @@ module.exports = (function() { var self = _list$3; switch (self._) { case 'List.cons': - var $13686 = self.head; - var $13687 = self.tail; + var $12387 = self.head; + var $12388 = self.tail; var self = _index$2; if (self === 0n) { - var $13689 = Maybe$some$($13686); - var $13688 = $13689; + var $12390 = Maybe$some$($12387); + var $12389 = $12390; } else { - var $13690 = (self - 1n); - var $13691 = List$get$($13690, $13687); - var $13688 = $13691; + var $12391 = (self - 1n); + var $12392 = List$get$($12391, $12388); + var $12389 = $12392; }; - return $13688; + return $12389; case 'List.nil': - var $13692 = Maybe$none; - return $13692; + var $12393 = Maybe$none; + return $12393; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -43665,13 +39617,13 @@ module.exports = (function() { var _term$6 = Kind$Term$app$(_term$5, Kind$Term$hol$(Bits$e)); var _term$7 = Kind$Term$app$(_term$6, Maybe$default$(List$get$(0n, _args$1), Kind$Term$ref$("pair_fst"))); var _term$8 = Kind$Term$app$(_term$7, Maybe$default$(List$get$(1n, _args$1), Kind$Term$ref$("pair_snd"))); - var $13694 = Maybe$some$(_term$8); - var $13693 = $13694; + var $12395 = Maybe$some$(_term$8); + var $12394 = $12395; } else { - var $13695 = Maybe$none; - var $13693 = $13695; + var $12396 = Maybe$none; + var $12394 = $12396; }; - return $13693; + return $12394; }; const Kind$Term$check$expand$new$pair = x0 => x1 => x2 => Kind$Term$check$expand$new$pair$(x0, x1, x2); @@ -43679,39 +39631,39 @@ module.exports = (function() { var self = _type$2; switch (self._) { case 'Maybe.some': - var $13697 = self.value; - var self = Kind$Term$reduce$($13697, _defs$3); + var $12398 = self.value; + var self = Kind$Term$reduce$($12398, _defs$3); switch (self._) { case 'Kind.Term.all': - var $13699 = self.self; - var $13700 = self.xtyp; - var $13701 = self.body; - var self = Kind$Term$reduce$($13701(Kind$Term$typ)(Kind$Term$typ), _defs$3); + var $12400 = self.self; + var $12401 = self.xtyp; + var $12402 = self.body; + var self = Kind$Term$reduce$($12402(Kind$Term$typ)(Kind$Term$typ), _defs$3); switch (self._) { case 'Kind.Term.all': - var $13703 = self.name; - var _tnam$15 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($13699), ""); - var _term$16 = Kind$Term$ref$((_tnam$15 + ("." + $13703))); - var _pars$17 = Kind$Term$check$expand$set$count_params$($13700); + var $12404 = self.name; + var _tnam$15 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($12400), ""); + var _term$16 = Kind$Term$ref$((_tnam$15 + ("." + $12404))); + var _pars$17 = Kind$Term$check$expand$set$count_params$($12401); var _term$18 = Nat$for$(_term$16, 0n, _pars$17, (_i$18 => _term$19 => { - var $13705 = Kind$Term$app$(_term$19, Kind$Term$hol$(Bits$e)); - return $13705; + var $12406 = Kind$Term$app$(_term$19, Kind$Term$hol$(Bits$e)); + return $12406; })); var _term$19 = (() => { - var $13707 = _term$18; - var $13708 = _args$1; - let _term$20 = $13707; + var $12408 = _term$18; + var $12409 = _args$1; + let _term$20 = $12408; let _arg$19; - while ($13708._ === 'List.cons') { - _arg$19 = $13708.head; - var $13707 = Kind$Term$app$(_term$20, _arg$19); - _term$20 = $13707; - $13708 = $13708.tail; + while ($12409._ === 'List.cons') { + _arg$19 = $12409.head; + var $12408 = Kind$Term$app$(_term$20, _arg$19); + _term$20 = $12408; + $12409 = $12409.tail; } return _term$20; })(); - var $13704 = Maybe$some$(_term$19); - var $13702 = $13704; + var $12405 = Maybe$some$(_term$19); + var $12403 = $12405; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43733,11 +39685,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13709 = Maybe$none; - var $13702 = $13709; + var $12410 = Maybe$none; + var $12403 = $12410; break; }; - var $13698 = $13702; + var $12399 = $12403; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43759,30 +39711,30 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13710 = Maybe$none; - var $13698 = $13710; + var $12411 = Maybe$none; + var $12399 = $12411; break; }; - var _got$4 = $13698; + var _got$4 = $12399; break; case 'Maybe.none': - var $13711 = Maybe$none; - var _got$4 = $13711; + var $12412 = Maybe$none; + var _got$4 = $12412; break; }; var self = _got$4; switch (self._) { case 'Maybe.some': - var $13712 = self.value; - var $13713 = Maybe$some$($13712); - var $13696 = $13713; + var $12413 = self.value; + var $12414 = Maybe$some$($12413); + var $12397 = $12414; break; case 'Maybe.none': - var $13714 = Kind$Term$check$expand$new$pair$(_args$1, _type$2, _defs$3); - var $13696 = $13714; + var $12415 = Kind$Term$check$expand$new$pair$(_args$1, _type$2, _defs$3); + var $12397 = $12415; break; }; - return $13696; + return $12397; }; const Kind$Term$check$expand$new = x0 => x1 => x2 => Kind$Term$check$expand$new$(x0, x1, x2); @@ -43790,22 +39742,22 @@ module.exports = (function() { var self = Kind$Term$reduce$(_ctor$2, _defs$3); switch (self._) { case 'Kind.Term.all': - var $13716 = self.name; - var $13717 = self.body; - var $13718 = Kind$Term$lam$($13716, (_x$10 => { - var _body$11 = $13717(Kind$Term$typ)(Kind$Term$typ); - var self = ($13716 === _fkey$1); + var $12417 = self.name; + var $12418 = self.body; + var $12419 = Kind$Term$lam$($12417, (_x$10 => { + var _body$11 = $12418(Kind$Term$typ)(Kind$Term$typ); + var self = ($12417 === _fkey$1); if (self) { - var $13720 = _x$10; - var _rett$12 = $13720; + var $12421 = _x$10; + var _rett$12 = $12421; } else { - var $13721 = _rett$4; - var _rett$12 = $13721; + var $12422 = _rett$4; + var _rett$12 = $12422; }; - var $13719 = Kind$Term$check$expand$get$selector$(_fkey$1, _body$11, _defs$3, _rett$12); - return $13719; + var $12420 = Kind$Term$check$expand$get$selector$(_fkey$1, _body$11, _defs$3, _rett$12); + return $12420; })); - var $13715 = $13718; + var $12416 = $12419; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43827,11 +39779,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13722 = _rett$4; - var $13715 = $13722; + var $12423 = _rett$4; + var $12416 = $12423; break; }; - return $13715; + return $12416; }; const Kind$Term$check$expand$get$selector = x0 => x1 => x2 => x3 => Kind$Term$check$expand$get$selector$(x0, x1, x2, x3); @@ -43839,19 +39791,19 @@ module.exports = (function() { var self = Kind$Term$reduce$(_etyp$3, _defs$4); switch (self._) { case 'Kind.Term.all': - var $13724 = self.body; - var self = Kind$Term$reduce$($13724(Kind$Term$typ)(Kind$Term$typ), _defs$4); + var $12425 = self.body; + var self = Kind$Term$reduce$($12425(Kind$Term$typ)(Kind$Term$typ), _defs$4); switch (self._) { case 'Kind.Term.all': - var $13726 = self.xtyp; + var $12427 = self.xtyp; var _term$15 = Kind$Term$app$(_expr$1, Kind$Term$lam$("", (_$15 => { - var $13728 = Kind$Term$hol$(Bits$e); - return $13728; + var $12429 = Kind$Term$hol$(Bits$e); + return $12429; }))); var _rett$16 = Kind$Term$ref$((_fkey$2 + "_field")); - var _sele$17 = Kind$Term$check$expand$get$selector$(_fkey$2, $13726, _defs$4, _rett$16); - var $13727 = Maybe$some$(Kind$Term$app$(_term$15, _sele$17)); - var $13725 = $13727; + var _sele$17 = Kind$Term$check$expand$get$selector$(_fkey$2, $12427, _defs$4, _rett$16); + var $12428 = Maybe$some$(Kind$Term$app$(_term$15, _sele$17)); + var $12426 = $12428; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43873,11 +39825,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13729 = Maybe$none; - var $13725 = $13729; + var $12430 = Maybe$none; + var $12426 = $12430; break; }; - var $13723 = $13725; + var $12424 = $12426; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43899,11 +39851,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13730 = Maybe$none; - var $13723 = $13730; + var $12431 = Maybe$none; + var $12424 = $12431; break; }; - return $13723; + return $12424; }; const Kind$Term$check$expand$get = x0 => x1 => x2 => x3 => Kind$Term$check$expand$get$(x0, x1, x2, x3); @@ -43911,24 +39863,24 @@ module.exports = (function() { var self = Kind$Term$reduce$(_ctor$3, _defs$4); switch (self._) { case 'Kind.Term.all': - var $13732 = self.name; - var $13733 = self.body; - var $13734 = Kind$Term$lam$($13732, (_x$11 => { - var _body$12 = $13733(Kind$Term$typ)(Kind$Term$typ); + var $12433 = self.name; + var $12434 = self.body; + var $12435 = Kind$Term$lam$($12433, (_x$11 => { + var _body$12 = $12434(Kind$Term$typ)(Kind$Term$typ); var _rett$13 = Kind$Term$app$(_rett$5, (() => { - var self = ($13732 === _fkey$1); + var self = ($12433 === _fkey$1); if (self) { - var $13736 = _fval$2; - return $13736; + var $12437 = _fval$2; + return $12437; } else { - var $13737 = _x$11; - return $13737; + var $12438 = _x$11; + return $12438; }; })()); - var $13735 = Kind$Term$check$expand$set$selector$(_fkey$1, _fval$2, _body$12, _defs$4, _rett$13); - return $13735; + var $12436 = Kind$Term$check$expand$set$selector$(_fkey$1, _fval$2, _body$12, _defs$4, _rett$13); + return $12436; })); - var $13731 = $13734; + var $12432 = $12435; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -43950,11 +39902,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13738 = _rett$5; - var $13731 = $13738; + var $12439 = _rett$5; + var $12432 = $12439; break; }; - return $13731; + return $12432; }; const Kind$Term$check$expand$set$selector = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$set$selector$(x0, x1, x2, x3, x4); @@ -43962,28 +39914,28 @@ module.exports = (function() { var self = Kind$Term$reduce$(_etyp$4, _defs$5); switch (self._) { case 'Kind.Term.all': - var $13740 = self.self; - var $13741 = self.xtyp; - var $13742 = self.body; - var self = Kind$Term$reduce$($13742(Kind$Term$typ)(Kind$Term$typ), _defs$5); + var $12441 = self.self; + var $12442 = self.xtyp; + var $12443 = self.body; + var self = Kind$Term$reduce$($12443(Kind$Term$typ)(Kind$Term$typ), _defs$5); switch (self._) { case 'Kind.Term.all': - var $13744 = self.name; - var $13745 = self.xtyp; + var $12445 = self.name; + var $12446 = self.xtyp; var _term$16 = Kind$Term$app$(_expr$1, Kind$Term$lam$("", (_$16 => { - var $13747 = Kind$Term$hol$(Bits$e); - return $13747; + var $12448 = Kind$Term$hol$(Bits$e); + return $12448; }))); - var _tnam$17 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($13740), ""); - var _rett$18 = Kind$Term$ref$((_tnam$17 + ("." + $13744))); - var _pars$19 = Kind$Term$check$expand$set$count_params$($13741); + var _tnam$17 = Maybe$default$(Kind$Term$check$get_name_of_self_type$slice$($12441), ""); + var _rett$18 = Kind$Term$ref$((_tnam$17 + ("." + $12445))); + var _pars$19 = Kind$Term$check$expand$set$count_params$($12442); var _rett$20 = Nat$for$(_rett$18, 0n, _pars$19, (_i$20 => _rett$21 => { - var $13748 = Kind$Term$app$(_rett$21, Kind$Term$hol$(Bits$e)); - return $13748; + var $12449 = Kind$Term$app$(_rett$21, Kind$Term$hol$(Bits$e)); + return $12449; })); - var _sele$21 = Kind$Term$check$expand$set$selector$(_fkey$2, _fval$3, $13745, _defs$5, _rett$20); - var $13746 = Maybe$some$(Kind$Term$app$(_term$16, _sele$21)); - var $13743 = $13746; + var _sele$21 = Kind$Term$check$expand$set$selector$(_fkey$2, _fval$3, $12446, _defs$5, _rett$20); + var $12447 = Maybe$some$(Kind$Term$app$(_term$16, _sele$21)); + var $12444 = $12447; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44005,11 +39957,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13749 = Maybe$none; - var $13743 = $13749; + var $12450 = Maybe$none; + var $12444 = $12450; break; }; - var $13739 = $13743; + var $12440 = $12444; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44031,11 +39983,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $13750 = Maybe$none; - var $13739 = $13750; + var $12451 = Maybe$none; + var $12440 = $12451; break; }; - return $13739; + return $12440; }; const Kind$Term$check$expand$set = x0 => x1 => x2 => x3 => x4 => Kind$Term$check$expand$set$(x0, x1, x2, x3, x4); @@ -44051,21 +40003,21 @@ module.exports = (function() { var R = (() => { var self = _str$2; if (self.length === 0) { - var $13751 = Maybe$none; - return $13751; + var $12452 = Maybe$none; + return $12452; } else { - var $13752 = self.charCodeAt(0); - var $13753 = self.slice(1); + var $12453 = self.charCodeAt(0); + var $12454 = self.slice(1); var self = _index$1; if (self === 0n) { - var $13755 = Maybe$some$($13752); - var $13754 = $13755; + var $12456 = Maybe$some$($12453); + var $12455 = $12456; } else { - var $13756 = (self - 1n); - var $13757 = String$at$($13756, $13753); - var $13754 = $13757; + var $12457 = (self - 1n); + var $12458 = String$at$($12457, $12454); + var $12455 = $12458; }; - return $13754; + return $12455; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -44075,139 +40027,139 @@ module.exports = (function() { const String$at = x0 => x1 => String$at$(x0, x1); function String$last$(_xs$1) { - var $13758 = String$at$(Nat$pred$(String$length$(_xs$1)), _xs$1); - return $13758; + var $12459 = String$at$(Nat$pred$(String$length$(_xs$1)), _xs$1); + return $12459; }; const String$last = x0 => String$last$(x0); function Kind$Term$check$expand$ope$(_skip_cmp$1, _oper$2, _arg0$3, _arg1$4, _otyp$5, _defs$6) { var self = ((Maybe$default$(String$last$(_oper$2), 120) === 63) && _skip_cmp$1); if (self) { - var $13760 = Maybe$none; - var $13759 = $13760; + var $12461 = Maybe$none; + var $12460 = $12461; } else { var _type_name$7 = Kind$Term$check$get_name_of_self_type$(_otyp$5, _defs$6); var self = _type_name$7; switch (self._) { case 'Maybe.some': - var $13762 = self.value; + var $12463 = self.value; var self = (_oper$2 === "+"); if (self) { - var $13764 = Maybe$some$("add"); - var _oper_name$9 = $13764; + var $12465 = Maybe$some$("add"); + var _oper_name$9 = $12465; } else { var self = (_oper$2 === "-"); if (self) { - var $13766 = Maybe$some$("sub"); - var $13765 = $13766; + var $12467 = Maybe$some$("sub"); + var $12466 = $12467; } else { var self = (_oper$2 === "*"); if (self) { - var $13768 = Maybe$some$("mul"); - var $13767 = $13768; + var $12469 = Maybe$some$("mul"); + var $12468 = $12469; } else { var self = (_oper$2 === "/"); if (self) { - var $13770 = Maybe$some$("div"); - var $13769 = $13770; + var $12471 = Maybe$some$("div"); + var $12470 = $12471; } else { var self = (_oper$2 === "**"); if (self) { - var $13772 = Maybe$some$("pow"); - var $13771 = $13772; + var $12473 = Maybe$some$("pow"); + var $12472 = $12473; } else { var self = (_oper$2 === "%"); if (self) { - var $13774 = Maybe$some$("mod"); - var $13773 = $13774; + var $12475 = Maybe$some$("mod"); + var $12474 = $12475; } else { var self = (_oper$2 === "=?"); if (self) { - var $13782 = Maybe$some$("gte"); - var $13781 = $13782; + var $12483 = Maybe$some$("gte"); + var $12482 = $12483; } else { var self = (_oper$2 === ">?"); if (self) { - var $13784 = Maybe$some$("gtn"); - var $13783 = $13784; + var $12485 = Maybe$some$("gtn"); + var $12484 = $12485; } else { var self = (_oper$2 === "&&"); if (self) { - var $13786 = Maybe$some$("and"); - var $13785 = $13786; + var $12487 = Maybe$some$("and"); + var $12486 = $12487; } else { var self = (_oper$2 === "||"); if (self) { - var $13788 = Maybe$some$("or"); - var $13787 = $13788; + var $12489 = Maybe$some$("or"); + var $12488 = $12489; } else { - var $13789 = Maybe$none; - var $13787 = $13789; + var $12490 = Maybe$none; + var $12488 = $12490; }; - var $13785 = $13787; + var $12486 = $12488; }; - var $13783 = $13785; + var $12484 = $12486; }; - var $13781 = $13783; + var $12482 = $12484; }; - var $13779 = $13781; + var $12480 = $12482; }; - var $13777 = $13779; + var $12478 = $12480; }; - var $13775 = $13777; + var $12476 = $12478; }; - var $13773 = $13775; + var $12474 = $12476; }; - var $13771 = $13773; + var $12472 = $12474; }; - var $13769 = $13771; + var $12470 = $12472; }; - var $13767 = $13769; + var $12468 = $12470; }; - var $13765 = $13767; + var $12466 = $12468; }; - var _oper_name$9 = $13765; + var _oper_name$9 = $12466; }; var self = _oper_name$9; switch (self._) { case 'Maybe.some': - var $13790 = self.value; - var _term$11 = Kind$Term$ref$(($13762 + ("." + $13790))); + var $12491 = self.value; + var _term$11 = Kind$Term$ref$(($12463 + ("." + $12491))); var _term$12 = Kind$Term$app$(_term$11, _arg0$3); var _term$13 = Kind$Term$app$(_term$12, _arg1$4); - var $13791 = Maybe$some$(_term$13); - var $13763 = $13791; + var $12492 = Maybe$some$(_term$13); + var $12464 = $12492; break; case 'Maybe.none': - var $13792 = Maybe$none; - var $13763 = $13792; + var $12493 = Maybe$none; + var $12464 = $12493; break; }; - var $13761 = $13763; + var $12462 = $12464; break; case 'Maybe.none': - var $13793 = Maybe$none; - var $13761 = $13793; + var $12494 = Maybe$none; + var $12462 = $12494; break; }; - var $13759 = $13761; + var $12460 = $12462; }; - return $13759; + return $12460; }; const Kind$Term$check$expand$ope = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$check$expand$ope$(x0, x1, x2, x3, x4, x5); @@ -44215,21 +40167,21 @@ module.exports = (function() { var self = (bitsmap_get(_bits$1, _set$2)); switch (self._) { case 'Maybe.none': - var $13795 = Bool$false; - var $13794 = $13795; + var $12496 = Bool$false; + var $12495 = $12496; break; case 'Maybe.some': - var $13796 = Bool$true; - var $13794 = $13796; + var $12497 = Bool$true; + var $12495 = $12497; break; }; - return $13794; + return $12495; }; const BitsSet$has = x0 => x1 => BitsSet$has$(x0, x1); function BitsSet$mut$has$(_bits$1, _set$2) { - var $13797 = BitsSet$has$(_bits$1, _set$2); - return $13797; + var $12498 = BitsSet$has$(_bits$1, _set$2); + return $12498; }; const BitsSet$mut$has = x0 => x1 => BitsSet$mut$has$(x0, x1); @@ -44246,21 +40198,21 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $13798 = self.name; - var $13799 = Maybe$some$(Pair$new$($13798, _arity$2)); - return $13799; + var $12499 = self.name; + var $12500 = Maybe$some$(Pair$new$($12499, _arity$2)); + return $12500; case 'Kind.Term.ref': - var $13800 = self.name; - var $13801 = Maybe$some$(Pair$new$($13800, _arity$2)); - return $13801; + var $12501 = self.name; + var $12502 = Maybe$some$(Pair$new$($12501, _arity$2)); + return $12502; case 'Kind.Term.app': - var $13802 = self.func; - var $13803 = Kind$Term$equal$extra_holes$funari$($13802, Nat$succ$(_arity$2)); - return $13803; + var $12503 = self.func; + var $12504 = Kind$Term$equal$extra_holes$funari$($12503, Nat$succ$(_arity$2)); + return $12504; case 'Kind.Term.ori': - var $13804 = self.expr; - var $13805 = Kind$Term$equal$extra_holes$funari$($13804, _arity$2); - return $13805; + var $12505 = self.expr; + var $12506 = Kind$Term$equal$extra_holes$funari$($12505, _arity$2); + return $12506; case 'Kind.Term.typ': case 'Kind.Term.all': case 'Kind.Term.lam': @@ -44278,8 +40230,8 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13806 = Maybe$none; - return $13806; + var $12507 = Maybe$none; + return $12507; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -44292,44 +40244,44 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $13808 = self.xtyp; - var $13809 = self.body; - var $13810 = (Kind$Term$has_holes$($13808) || Kind$Term$has_holes$($13809(Kind$Term$typ)(Kind$Term$typ))); - var $13807 = $13810; + var $12509 = self.xtyp; + var $12510 = self.body; + var $12511 = (Kind$Term$has_holes$($12509) || Kind$Term$has_holes$($12510(Kind$Term$typ)(Kind$Term$typ))); + var $12508 = $12511; break; case 'Kind.Term.lam': - var $13811 = self.body; - var $13812 = Kind$Term$has_holes$($13811(Kind$Term$typ)); - var $13807 = $13812; + var $12512 = self.body; + var $12513 = Kind$Term$has_holes$($12512(Kind$Term$typ)); + var $12508 = $12513; break; case 'Kind.Term.app': - var $13813 = self.func; - var $13814 = self.argm; - var $13815 = (Kind$Term$has_holes$($13813) || Kind$Term$has_holes$($13814)); - var $13807 = $13815; + var $12514 = self.func; + var $12515 = self.argm; + var $12516 = (Kind$Term$has_holes$($12514) || Kind$Term$has_holes$($12515)); + var $12508 = $12516; break; case 'Kind.Term.let': - var $13816 = self.expr; - var $13817 = self.body; - var $13818 = (Kind$Term$has_holes$($13816) || Kind$Term$has_holes$($13817(Kind$Term$typ))); - var $13807 = $13818; + var $12517 = self.expr; + var $12518 = self.body; + var $12519 = (Kind$Term$has_holes$($12517) || Kind$Term$has_holes$($12518(Kind$Term$typ))); + var $12508 = $12519; break; case 'Kind.Term.def': - var $13819 = self.expr; - var $13820 = self.body; - var $13821 = (Kind$Term$has_holes$($13819) || Kind$Term$has_holes$($13820(Kind$Term$typ))); - var $13807 = $13821; + var $12520 = self.expr; + var $12521 = self.body; + var $12522 = (Kind$Term$has_holes$($12520) || Kind$Term$has_holes$($12521(Kind$Term$typ))); + var $12508 = $12522; break; case 'Kind.Term.ann': - var $13822 = self.term; - var $13823 = self.type; - var $13824 = (Kind$Term$has_holes$($13822) || Kind$Term$has_holes$($13823)); - var $13807 = $13824; + var $12523 = self.term; + var $12524 = self.type; + var $12525 = (Kind$Term$has_holes$($12523) || Kind$Term$has_holes$($12524)); + var $12508 = $12525; break; case 'Kind.Term.ori': - var $13825 = self.expr; - var $13826 = Kind$Term$has_holes$($13825); - var $13807 = $13826; + var $12526 = self.expr; + var $12527 = Kind$Term$has_holes$($12526); + var $12508 = $12527; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44344,15 +40296,15 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13827 = Bool$false; - var $13807 = $13827; + var $12528 = Bool$false; + var $12508 = $12528; break; case 'Kind.Term.hol': - var $13828 = Bool$true; - var $13807 = $13828; + var $12529 = Bool$true; + var $12508 = $12529; break; }; - return $13807; + return $12508; }; const Kind$Term$has_holes = x0 => Kind$Term$has_holes$(x0); @@ -44381,20 +40333,20 @@ module.exports = (function() { case 'Kind.Term.ori': var self = Kind$Term$has_holes$(_term$2); if (self) { - var $13831 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $13830 = $13831; + var $12532 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $12531 = $12532; } else { - var $13832 = Kind$Check$result$(Maybe$some$(Bool$true), List$cons$(Kind$Error$patch$(_path$1, Kind$Term$normalize$(_term$2, Kind$Map$new)), List$nil)); - var $13830 = $13832; + var $12533 = Kind$Check$result$(Maybe$some$(Bool$true), List$cons$(Kind$Error$patch$(_path$1, Kind$Term$normalize$(_term$2, Kind$Map$new)), List$nil)); + var $12531 = $12533; }; - var $13829 = $13830; + var $12530 = $12531; break; case 'Kind.Term.hol': - var $13833 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $13829 = $13833; + var $12534 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $12530 = $12534; break; }; - return $13829; + return $12530; }; const Kind$Term$equal$hole = x0 => x1 => Kind$Term$equal$hole$(x0, x1); @@ -44402,77 +40354,77 @@ module.exports = (function() { var self = _a$1; switch (self._) { case 'Kind.Term.app': - var $13835 = self.func; - var $13836 = self.argm; + var $12536 = self.func; + var $12537 = self.argm; var self = _b$2; switch (self._) { case 'Kind.Term.app': - var $13838 = self.func; - var $13839 = self.argm; - var self = Kind$Term$equal$extra_holes$filler$($13835, $13838); + var $12539 = self.func; + var $12540 = self.argm; + var self = Kind$Term$equal$extra_holes$filler$($12536, $12539); switch (self._) { case 'Kind.Check.result': - var $13841 = self.value; - var $13842 = self.errors; - var self = $13841; + var $12542 = self.value; + var $12543 = self.errors; + var self = $12542; switch (self._) { case 'Maybe.none': - var $13844 = Kind$Check$result$(Maybe$none, $13842); - var $13843 = $13844; + var $12545 = Kind$Check$result$(Maybe$none, $12543); + var $12544 = $12545; break; case 'Maybe.some': - var self = Kind$Term$equal$extra_holes$filler$($13836, $13839); + var self = Kind$Term$equal$extra_holes$filler$($12537, $12540); switch (self._) { case 'Kind.Check.result': - var $13846 = self.value; - var $13847 = self.errors; - var $13848 = Kind$Check$result$($13846, List$concat$($13842, $13847)); - var $13845 = $13848; + var $12547 = self.value; + var $12548 = self.errors; + var $12549 = Kind$Check$result$($12547, List$concat$($12543, $12548)); + var $12546 = $12549; break; }; - var $13843 = $13845; + var $12544 = $12546; break; }; - var $13840 = $13843; + var $12541 = $12544; break; }; - var $13837 = $13840; + var $12538 = $12541; break; case 'Kind.Term.hol': - var $13849 = self.path; - var self = Kind$Term$equal$hole$($13849, _a$1); + var $12550 = self.path; + var self = Kind$Term$equal$hole$($12550, _a$1); switch (self._) { case 'Kind.Check.result': - var $13851 = self.value; - var $13852 = self.errors; - var self = $13851; + var $12552 = self.value; + var $12553 = self.errors; + var self = $12552; switch (self._) { case 'Maybe.none': - var $13854 = Kind$Check$result$(Maybe$none, $13852); - var $13853 = $13854; + var $12555 = Kind$Check$result$(Maybe$none, $12553); + var $12554 = $12555; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13856 = self.value; - var $13857 = self.errors; - var $13858 = Kind$Check$result$($13856, List$concat$($13852, $13857)); - var $13855 = $13858; + var $12557 = self.value; + var $12558 = self.errors; + var $12559 = Kind$Check$result$($12557, List$concat$($12553, $12558)); + var $12556 = $12559; break; }; - var $13853 = $13855; + var $12554 = $12556; break; }; - var $13850 = $13853; + var $12551 = $12554; break; }; - var $13837 = $13850; + var $12538 = $12551; break; case 'Kind.Term.ori': - var $13859 = self.expr; - var $13860 = Kind$Term$equal$extra_holes$filler$(_a$1, $13859); - var $13837 = $13860; + var $12560 = self.expr; + var $12561 = Kind$Term$equal$extra_holes$filler$(_a$1, $12560); + var $12538 = $12561; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44492,47 +40444,47 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13861 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13837 = $13861; + var $12562 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $12538 = $12562; break; }; - var $13834 = $13837; + var $12535 = $12538; break; case 'Kind.Term.hol': - var $13862 = self.path; - var self = Kind$Term$equal$hole$($13862, _b$2); + var $12563 = self.path; + var self = Kind$Term$equal$hole$($12563, _b$2); switch (self._) { case 'Kind.Check.result': - var $13864 = self.value; - var $13865 = self.errors; - var self = $13864; + var $12565 = self.value; + var $12566 = self.errors; + var self = $12565; switch (self._) { case 'Maybe.none': - var $13867 = Kind$Check$result$(Maybe$none, $13865); - var $13866 = $13867; + var $12568 = Kind$Check$result$(Maybe$none, $12566); + var $12567 = $12568; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13869 = self.value; - var $13870 = self.errors; - var $13871 = Kind$Check$result$($13869, List$concat$($13865, $13870)); - var $13868 = $13871; + var $12570 = self.value; + var $12571 = self.errors; + var $12572 = Kind$Check$result$($12570, List$concat$($12566, $12571)); + var $12569 = $12572; break; }; - var $13866 = $13868; + var $12567 = $12569; break; }; - var $13863 = $13866; + var $12564 = $12567; break; }; - var $13834 = $13863; + var $12535 = $12564; break; case 'Kind.Term.ori': - var $13872 = self.expr; - var $13873 = Kind$Term$equal$extra_holes$filler$($13872, _b$2); - var $13834 = $13873; + var $12573 = self.expr; + var $12574 = Kind$Term$equal$extra_holes$filler$($12573, _b$2); + var $12535 = $12574; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -44540,40 +40492,40 @@ module.exports = (function() { var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13875 = self.path; - var self = Kind$Term$equal$hole$($13875, _a$1); + var $12576 = self.path; + var self = Kind$Term$equal$hole$($12576, _a$1); switch (self._) { case 'Kind.Check.result': - var $13877 = self.value; - var $13878 = self.errors; - var self = $13877; + var $12578 = self.value; + var $12579 = self.errors; + var self = $12578; switch (self._) { case 'Maybe.none': - var $13880 = Kind$Check$result$(Maybe$none, $13878); - var $13879 = $13880; + var $12581 = Kind$Check$result$(Maybe$none, $12579); + var $12580 = $12581; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13882 = self.value; - var $13883 = self.errors; - var $13884 = Kind$Check$result$($13882, List$concat$($13878, $13883)); - var $13881 = $13884; + var $12583 = self.value; + var $12584 = self.errors; + var $12585 = Kind$Check$result$($12583, List$concat$($12579, $12584)); + var $12582 = $12585; break; }; - var $13879 = $13881; + var $12580 = $12582; break; }; - var $13876 = $13879; + var $12577 = $12580; break; }; - var $13874 = $13876; + var $12575 = $12577; break; case 'Kind.Term.ori': - var $13885 = self.expr; - var $13886 = Kind$Term$equal$extra_holes$filler$(_a$1, $13885); - var $13874 = $13886; + var $12586 = self.expr; + var $12587 = Kind$Term$equal$extra_holes$filler$(_a$1, $12586); + var $12575 = $12587; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44594,11 +40546,11 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13887 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13874 = $13887; + var $12588 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $12575 = $12588; break; }; - var $13834 = $13874; + var $12535 = $12575; break; case 'Kind.Term.ref': case 'Kind.Term.nat': @@ -44608,40 +40560,40 @@ module.exports = (function() { var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13889 = self.path; - var self = Kind$Term$equal$hole$($13889, _a$1); + var $12590 = self.path; + var self = Kind$Term$equal$hole$($12590, _a$1); switch (self._) { case 'Kind.Check.result': - var $13891 = self.value; - var $13892 = self.errors; - var self = $13891; + var $12592 = self.value; + var $12593 = self.errors; + var self = $12592; switch (self._) { case 'Maybe.none': - var $13894 = Kind$Check$result$(Maybe$none, $13892); - var $13893 = $13894; + var $12595 = Kind$Check$result$(Maybe$none, $12593); + var $12594 = $12595; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13896 = self.value; - var $13897 = self.errors; - var $13898 = Kind$Check$result$($13896, List$concat$($13892, $13897)); - var $13895 = $13898; + var $12597 = self.value; + var $12598 = self.errors; + var $12599 = Kind$Check$result$($12597, List$concat$($12593, $12598)); + var $12596 = $12599; break; }; - var $13893 = $13895; + var $12594 = $12596; break; }; - var $13890 = $13893; + var $12591 = $12594; break; }; - var $13888 = $13890; + var $12589 = $12591; break; case 'Kind.Term.ori': - var $13899 = self.expr; - var $13900 = Kind$Term$equal$extra_holes$filler$(_a$1, $13899); - var $13888 = $13900; + var $12600 = self.expr; + var $12601 = Kind$Term$equal$extra_holes$filler$(_a$1, $12600); + var $12589 = $12601; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44662,50 +40614,50 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13901 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13888 = $13901; + var $12602 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $12589 = $12602; break; }; - var $13834 = $13888; + var $12535 = $12589; break; case 'Kind.Term.typ': var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13903 = self.path; - var self = Kind$Term$equal$hole$($13903, _a$1); + var $12604 = self.path; + var self = Kind$Term$equal$hole$($12604, _a$1); switch (self._) { case 'Kind.Check.result': - var $13905 = self.value; - var $13906 = self.errors; - var self = $13905; + var $12606 = self.value; + var $12607 = self.errors; + var self = $12606; switch (self._) { case 'Maybe.none': - var $13908 = Kind$Check$result$(Maybe$none, $13906); - var $13907 = $13908; + var $12609 = Kind$Check$result$(Maybe$none, $12607); + var $12608 = $12609; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13910 = self.value; - var $13911 = self.errors; - var $13912 = Kind$Check$result$($13910, List$concat$($13906, $13911)); - var $13909 = $13912; + var $12611 = self.value; + var $12612 = self.errors; + var $12613 = Kind$Check$result$($12611, List$concat$($12607, $12612)); + var $12610 = $12613; break; }; - var $13907 = $13909; + var $12608 = $12610; break; }; - var $13904 = $13907; + var $12605 = $12608; break; }; - var $13902 = $13904; + var $12603 = $12605; break; case 'Kind.Term.ori': - var $13913 = self.expr; - var $13914 = Kind$Term$equal$extra_holes$filler$(_a$1, $13913); - var $13902 = $13914; + var $12614 = self.expr; + var $12615 = Kind$Term$equal$extra_holes$filler$(_a$1, $12614); + var $12603 = $12615; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44726,50 +40678,50 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13915 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13902 = $13915; + var $12616 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $12603 = $12616; break; }; - var $13834 = $13902; + var $12535 = $12603; break; case 'Kind.Term.all': var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13917 = self.path; - var self = Kind$Term$equal$hole$($13917, _a$1); + var $12618 = self.path; + var self = Kind$Term$equal$hole$($12618, _a$1); switch (self._) { case 'Kind.Check.result': - var $13919 = self.value; - var $13920 = self.errors; - var self = $13919; + var $12620 = self.value; + var $12621 = self.errors; + var self = $12620; switch (self._) { case 'Maybe.none': - var $13922 = Kind$Check$result$(Maybe$none, $13920); - var $13921 = $13922; + var $12623 = Kind$Check$result$(Maybe$none, $12621); + var $12622 = $12623; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13924 = self.value; - var $13925 = self.errors; - var $13926 = Kind$Check$result$($13924, List$concat$($13920, $13925)); - var $13923 = $13926; + var $12625 = self.value; + var $12626 = self.errors; + var $12627 = Kind$Check$result$($12625, List$concat$($12621, $12626)); + var $12624 = $12627; break; }; - var $13921 = $13923; + var $12622 = $12624; break; }; - var $13918 = $13921; + var $12619 = $12622; break; }; - var $13916 = $13918; + var $12617 = $12619; break; case 'Kind.Term.ori': - var $13927 = self.expr; - var $13928 = Kind$Term$equal$extra_holes$filler$(_a$1, $13927); - var $13916 = $13928; + var $12628 = self.expr; + var $12629 = Kind$Term$equal$extra_holes$filler$(_a$1, $12628); + var $12617 = $12629; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44790,11 +40742,11 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13929 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13916 = $13929; + var $12630 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $12617 = $12630; break; }; - var $13834 = $13916; + var $12535 = $12617; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -44806,40 +40758,40 @@ module.exports = (function() { var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13931 = self.path; - var self = Kind$Term$equal$hole$($13931, _a$1); + var $12632 = self.path; + var self = Kind$Term$equal$hole$($12632, _a$1); switch (self._) { case 'Kind.Check.result': - var $13933 = self.value; - var $13934 = self.errors; - var self = $13933; + var $12634 = self.value; + var $12635 = self.errors; + var self = $12634; switch (self._) { case 'Maybe.none': - var $13936 = Kind$Check$result$(Maybe$none, $13934); - var $13935 = $13936; + var $12637 = Kind$Check$result$(Maybe$none, $12635); + var $12636 = $12637; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13938 = self.value; - var $13939 = self.errors; - var $13940 = Kind$Check$result$($13938, List$concat$($13934, $13939)); - var $13937 = $13940; + var $12639 = self.value; + var $12640 = self.errors; + var $12641 = Kind$Check$result$($12639, List$concat$($12635, $12640)); + var $12638 = $12641; break; }; - var $13935 = $13937; + var $12636 = $12638; break; }; - var $13932 = $13935; + var $12633 = $12636; break; }; - var $13930 = $13932; + var $12631 = $12633; break; case 'Kind.Term.ori': - var $13941 = self.expr; - var $13942 = Kind$Term$equal$extra_holes$filler$(_a$1, $13941); - var $13930 = $13942; + var $12642 = self.expr; + var $12643 = Kind$Term$equal$extra_holes$filler$(_a$1, $12642); + var $12631 = $12643; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44860,50 +40812,50 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13943 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13930 = $13943; + var $12644 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $12631 = $12644; break; }; - var $13834 = $13930; + var $12535 = $12631; break; case 'Kind.Term.cse': var self = _b$2; switch (self._) { case 'Kind.Term.hol': - var $13945 = self.path; - var self = Kind$Term$equal$hole$($13945, _a$1); + var $12646 = self.path; + var self = Kind$Term$equal$hole$($12646, _a$1); switch (self._) { case 'Kind.Check.result': - var $13947 = self.value; - var $13948 = self.errors; - var self = $13947; + var $12648 = self.value; + var $12649 = self.errors; + var self = $12648; switch (self._) { case 'Maybe.none': - var $13950 = Kind$Check$result$(Maybe$none, $13948); - var $13949 = $13950; + var $12651 = Kind$Check$result$(Maybe$none, $12649); + var $12650 = $12651; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $13952 = self.value; - var $13953 = self.errors; - var $13954 = Kind$Check$result$($13952, List$concat$($13948, $13953)); - var $13951 = $13954; + var $12653 = self.value; + var $12654 = self.errors; + var $12655 = Kind$Check$result$($12653, List$concat$($12649, $12654)); + var $12652 = $12655; break; }; - var $13949 = $13951; + var $12650 = $12652; break; }; - var $13946 = $13949; + var $12647 = $12650; break; }; - var $13944 = $13946; + var $12645 = $12647; break; case 'Kind.Term.ori': - var $13955 = self.expr; - var $13956 = Kind$Term$equal$extra_holes$filler$(_a$1, $13955); - var $13944 = $13956; + var $12656 = self.expr; + var $12657 = Kind$Term$equal$extra_holes$filler$(_a$1, $12656); + var $12645 = $12657; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -44924,14 +40876,14 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $13957 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13944 = $13957; + var $12658 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $12645 = $12658; break; }; - var $13834 = $13944; + var $12535 = $12645; break; }; - return $13834; + return $12535; }; const Kind$Term$equal$extra_holes$filler = x0 => x1 => Kind$Term$equal$extra_holes$filler$(x0, x1); @@ -44939,77 +40891,77 @@ module.exports = (function() { var self = Kind$Term$equal$extra_holes$funari$(_a$1, 0n); switch (self._) { case 'Maybe.some': - var $13959 = self.value; + var $12660 = self.value; var self = Kind$Term$equal$extra_holes$funari$(_b$2, 0n); switch (self._) { case 'Maybe.some': - var $13961 = self.value; - var self = $13959; + var $12662 = self.value; + var self = $12660; switch (self._) { case 'Pair.new': - var $13963 = self.fst; - var $13964 = self.snd; - var self = $13961; + var $12664 = self.fst; + var $12665 = self.snd; + var self = $12662; switch (self._) { case 'Pair.new': - var $13966 = self.fst; - var $13967 = self.snd; - var _same_fun$9 = ($13963 === $13966); - var _same_ari$10 = ($13964 === $13967); + var $12667 = self.fst; + var $12668 = self.snd; + var _same_fun$9 = ($12664 === $12667); + var _same_ari$10 = ($12665 === $12668); var self = (_same_fun$9 && _same_ari$10); if (self) { - var $13969 = Kind$Term$equal$extra_holes$filler$(_a$1, _b$2); - var $13968 = $13969; + var $12670 = Kind$Term$equal$extra_holes$filler$(_a$1, _b$2); + var $12669 = $12670; } else { - var $13970 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13968 = $13970; + var $12671 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $12669 = $12671; }; - var $13965 = $13968; + var $12666 = $12669; break; }; - var $13962 = $13965; + var $12663 = $12666; break; }; - var $13960 = $13962; + var $12661 = $12663; break; case 'Maybe.none': - var $13971 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13960 = $13971; + var $12672 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $12661 = $12672; break; }; - var $13958 = $13960; + var $12659 = $12661; break; case 'Maybe.none': - var $13972 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); - var $13958 = $13972; + var $12673 = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); + var $12659 = $12673; break; }; - return $13958; + return $12659; }; const Kind$Term$equal$extra_holes = x0 => x1 => Kind$Term$equal$extra_holes$(x0, x1); function BitsSet$set$(_bits$1, _set$2) { - var $13973 = (bitsmap_set(_bits$1, Unit$new, _set$2, 'set')); - return $13973; + var $12674 = (bitsmap_set(_bits$1, Unit$new, _set$2, 'set')); + return $12674; }; const BitsSet$set = x0 => x1 => BitsSet$set$(x0, x1); function BitsSet$mut$set$(_bits$1, _set$2) { - var $13974 = BitsSet$set$(_bits$1, _set$2); - return $13974; + var $12675 = BitsSet$set$(_bits$1, _set$2); + return $12675; }; const BitsSet$mut$set = x0 => x1 => BitsSet$mut$set$(x0, x1); function Bool$eql$(_a$1, _b$2) { var self = _a$1; if (self) { - var $13976 = _b$2; - var $13975 = $13976; + var $12677 = _b$2; + var $12676 = $12677; } else { - var $13977 = (!_b$2); - var $13975 = $13977; + var $12678 = (!_b$2); + var $12676 = $12678; }; - return $13975; + return $12676; }; const Bool$eql = x0 => x1 => Bool$eql$(x0, x1); @@ -45018,8 +40970,8 @@ module.exports = (function() { var _bh$7 = Kind$Term$serialize$(Kind$Term$reduce$(_b$2, Kind$Map$new), _lv$4, Bool$true); var self = (_bh$7 === _ah$6); if (self) { - var $13979 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $13978 = $13979; + var $12680 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $12679 = $12680; } else { var _a1$8 = Kind$Term$reduce$(_a$1, _defs$3); var _b1$9 = Kind$Term$reduce$(_b$2, _defs$3); @@ -45027,8 +40979,8 @@ module.exports = (function() { var _bh$11 = Kind$Term$serialize$(_b1$9, _lv$4, Bool$true); var self = (_bh$11 === _ah$10); if (self) { - var $13981 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); - var $13980 = $13981; + var $12682 = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); + var $12681 = $12682; } else { var _id$12 = (_bh$11 + _ah$10); var self = BitsSet$mut$has$(_id$12, _seen$5); @@ -45036,121 +40988,121 @@ module.exports = (function() { var self = Kind$Term$equal$extra_holes$(_a$1, _b$2); switch (self._) { case 'Kind.Check.result': - var $13984 = self.value; - var $13985 = self.errors; - var self = $13984; + var $12685 = self.value; + var $12686 = self.errors; + var self = $12685; switch (self._) { case 'Maybe.none': - var $13987 = Kind$Check$result$(Maybe$none, $13985); - var $13986 = $13987; + var $12688 = Kind$Check$result$(Maybe$none, $12686); + var $12687 = $12688; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Bool$true), List$nil); switch (self._) { case 'Kind.Check.result': - var $13989 = self.value; - var $13990 = self.errors; - var $13991 = Kind$Check$result$($13989, List$concat$($13985, $13990)); - var $13988 = $13991; + var $12690 = self.value; + var $12691 = self.errors; + var $12692 = Kind$Check$result$($12690, List$concat$($12686, $12691)); + var $12689 = $12692; break; }; - var $13986 = $13988; + var $12687 = $12689; break; }; - var $13983 = $13986; + var $12684 = $12687; break; }; - var $13982 = $13983; + var $12683 = $12684; } else { var self = _a1$8; switch (self._) { case 'Kind.Term.all': - var $13993 = self.eras; - var $13994 = self.self; - var $13995 = self.name; - var $13996 = self.xtyp; - var $13997 = self.body; + var $12694 = self.eras; + var $12695 = self.self; + var $12696 = self.name; + var $12697 = self.xtyp; + var $12698 = self.body; var self = _b1$9; switch (self._) { case 'Kind.Term.all': - var $13999 = self.eras; - var $14000 = self.self; - var $14001 = self.name; - var $14002 = self.xtyp; - var $14003 = self.body; + var $12700 = self.eras; + var $12701 = self.self; + var $12702 = self.name; + var $12703 = self.xtyp; + var $12704 = self.body; var _seen$23 = BitsSet$mut$set$(_id$12, _seen$5); - var _a1_body$24 = $13997(Kind$Term$var$($13994, _lv$4))(Kind$Term$var$($13995, Nat$succ$(_lv$4))); - var _b1_body$25 = $14003(Kind$Term$var$($14000, _lv$4))(Kind$Term$var$($14001, Nat$succ$(_lv$4))); - var _eq_self$26 = ($13994 === $14000); - var _eq_eras$27 = Bool$eql$($13993, $13999); + var _a1_body$24 = $12698(Kind$Term$var$($12695, _lv$4))(Kind$Term$var$($12696, Nat$succ$(_lv$4))); + var _b1_body$25 = $12704(Kind$Term$var$($12701, _lv$4))(Kind$Term$var$($12702, Nat$succ$(_lv$4))); + var _eq_self$26 = ($12695 === $12701); + var _eq_eras$27 = Bool$eql$($12694, $12700); var self = (_eq_self$26 && _eq_eras$27); if (self) { - var self = Kind$Term$equal$go$($13996, $14002, _defs$3, _lv$4, _seen$23); + var self = Kind$Term$equal$go$($12697, $12703, _defs$3, _lv$4, _seen$23); switch (self._) { case 'Kind.Check.result': - var $14006 = self.value; - var $14007 = self.errors; - var self = $14006; + var $12707 = self.value; + var $12708 = self.errors; + var self = $12707; switch (self._) { case 'Maybe.some': - var $14009 = self.value; + var $12710 = self.value; var self = Kind$Term$equal$go$(_a1_body$24, _b1_body$25, _defs$3, Nat$succ$(Nat$succ$(_lv$4)), _seen$23); switch (self._) { case 'Kind.Check.result': - var $14011 = self.value; - var $14012 = self.errors; - var self = $14011; + var $12712 = self.value; + var $12713 = self.errors; + var self = $12712; switch (self._) { case 'Maybe.some': - var $14014 = self.value; - var self = Kind$Check$result$(Maybe$some$(($14009 && $14014)), List$nil); + var $12715 = self.value; + var self = Kind$Check$result$(Maybe$some$(($12710 && $12715)), List$nil); switch (self._) { case 'Kind.Check.result': - var $14016 = self.value; - var $14017 = self.errors; - var $14018 = Kind$Check$result$($14016, List$concat$($14012, $14017)); - var $14015 = $14018; + var $12717 = self.value; + var $12718 = self.errors; + var $12719 = Kind$Check$result$($12717, List$concat$($12713, $12718)); + var $12716 = $12719; break; }; - var $14013 = $14015; + var $12714 = $12716; break; case 'Maybe.none': - var $14019 = Kind$Check$result$(Maybe$none, $14012); - var $14013 = $14019; + var $12720 = Kind$Check$result$(Maybe$none, $12713); + var $12714 = $12720; break; }; - var self = $14013; + var self = $12714; break; }; switch (self._) { case 'Kind.Check.result': - var $14020 = self.value; - var $14021 = self.errors; - var $14022 = Kind$Check$result$($14020, List$concat$($14007, $14021)); - var $14010 = $14022; + var $12721 = self.value; + var $12722 = self.errors; + var $12723 = Kind$Check$result$($12721, List$concat$($12708, $12722)); + var $12711 = $12723; break; }; - var $14008 = $14010; + var $12709 = $12711; break; case 'Maybe.none': - var $14023 = Kind$Check$result$(Maybe$none, $14007); - var $14008 = $14023; + var $12724 = Kind$Check$result$(Maybe$none, $12708); + var $12709 = $12724; break; }; - var $14005 = $14008; + var $12706 = $12709; break; }; - var $14004 = $14005; + var $12705 = $12706; } else { - var $14024 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $14004 = $14024; + var $12725 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $12705 = $12725; }; - var $13998 = $14004; + var $12699 = $12705; break; case 'Kind.Term.hol': - var $14025 = self.path; - var $14026 = Kind$Term$equal$hole$($14025, _a$1); - var $13998 = $14026; + var $12726 = self.path; + var $12727 = Kind$Term$equal$hole$($12726, _a$1); + var $12699 = $12727; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45171,57 +41123,57 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14027 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $13998 = $14027; + var $12728 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $12699 = $12728; break; }; - var $13992 = $13998; + var $12693 = $12699; break; case 'Kind.Term.lam': - var $14028 = self.name; - var $14029 = self.body; + var $12729 = self.name; + var $12730 = self.body; var self = _b1$9; switch (self._) { case 'Kind.Term.lam': - var $14031 = self.name; - var $14032 = self.body; + var $12732 = self.name; + var $12733 = self.body; var _seen$17 = BitsSet$mut$set$(_id$12, _seen$5); - var _a1_body$18 = $14029(Kind$Term$var$($14028, _lv$4)); - var _b1_body$19 = $14032(Kind$Term$var$($14031, _lv$4)); + var _a1_body$18 = $12730(Kind$Term$var$($12729, _lv$4)); + var _b1_body$19 = $12733(Kind$Term$var$($12732, _lv$4)); var self = Kind$Term$equal$go$(_a1_body$18, _b1_body$19, _defs$3, Nat$succ$(_lv$4), _seen$17); switch (self._) { case 'Kind.Check.result': - var $14034 = self.value; - var $14035 = self.errors; - var self = $14034; + var $12735 = self.value; + var $12736 = self.errors; + var self = $12735; switch (self._) { case 'Maybe.some': - var $14037 = self.value; - var self = Kind$Check$result$(Maybe$some$($14037), List$nil); + var $12738 = self.value; + var self = Kind$Check$result$(Maybe$some$($12738), List$nil); switch (self._) { case 'Kind.Check.result': - var $14039 = self.value; - var $14040 = self.errors; - var $14041 = Kind$Check$result$($14039, List$concat$($14035, $14040)); - var $14038 = $14041; + var $12740 = self.value; + var $12741 = self.errors; + var $12742 = Kind$Check$result$($12740, List$concat$($12736, $12741)); + var $12739 = $12742; break; }; - var $14036 = $14038; + var $12737 = $12739; break; case 'Maybe.none': - var $14042 = Kind$Check$result$(Maybe$none, $14035); - var $14036 = $14042; + var $12743 = Kind$Check$result$(Maybe$none, $12736); + var $12737 = $12743; break; }; - var $14033 = $14036; + var $12734 = $12737; break; }; - var $14030 = $14033; + var $12731 = $12734; break; case 'Kind.Term.hol': - var $14043 = self.path; - var $14044 = Kind$Term$equal$hole$($14043, _a$1); - var $14030 = $14044; + var $12744 = self.path; + var $12745 = Kind$Term$equal$hole$($12744, _a$1); + var $12731 = $12745; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45242,82 +41194,82 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14045 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $14030 = $14045; + var $12746 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $12731 = $12746; break; }; - var $13992 = $14030; + var $12693 = $12731; break; case 'Kind.Term.app': - var $14046 = self.func; - var $14047 = self.argm; + var $12747 = self.func; + var $12748 = self.argm; var self = _b1$9; switch (self._) { case 'Kind.Term.app': - var $14049 = self.func; - var $14050 = self.argm; + var $12750 = self.func; + var $12751 = self.argm; var _seen$17 = BitsSet$mut$set$(_id$12, _seen$5); - var self = Kind$Term$equal$go$($14046, $14049, _defs$3, _lv$4, _seen$17); + var self = Kind$Term$equal$go$($12747, $12750, _defs$3, _lv$4, _seen$17); switch (self._) { case 'Kind.Check.result': - var $14052 = self.value; - var $14053 = self.errors; - var self = $14052; + var $12753 = self.value; + var $12754 = self.errors; + var self = $12753; switch (self._) { case 'Maybe.some': - var $14055 = self.value; - var self = Kind$Term$equal$go$($14047, $14050, _defs$3, _lv$4, _seen$17); + var $12756 = self.value; + var self = Kind$Term$equal$go$($12748, $12751, _defs$3, _lv$4, _seen$17); switch (self._) { case 'Kind.Check.result': - var $14057 = self.value; - var $14058 = self.errors; - var self = $14057; + var $12758 = self.value; + var $12759 = self.errors; + var self = $12758; switch (self._) { case 'Maybe.some': - var $14060 = self.value; - var self = Kind$Check$result$(Maybe$some$(($14055 && $14060)), List$nil); + var $12761 = self.value; + var self = Kind$Check$result$(Maybe$some$(($12756 && $12761)), List$nil); switch (self._) { case 'Kind.Check.result': - var $14062 = self.value; - var $14063 = self.errors; - var $14064 = Kind$Check$result$($14062, List$concat$($14058, $14063)); - var $14061 = $14064; + var $12763 = self.value; + var $12764 = self.errors; + var $12765 = Kind$Check$result$($12763, List$concat$($12759, $12764)); + var $12762 = $12765; break; }; - var $14059 = $14061; + var $12760 = $12762; break; case 'Maybe.none': - var $14065 = Kind$Check$result$(Maybe$none, $14058); - var $14059 = $14065; + var $12766 = Kind$Check$result$(Maybe$none, $12759); + var $12760 = $12766; break; }; - var self = $14059; + var self = $12760; break; }; switch (self._) { case 'Kind.Check.result': - var $14066 = self.value; - var $14067 = self.errors; - var $14068 = Kind$Check$result$($14066, List$concat$($14053, $14067)); - var $14056 = $14068; + var $12767 = self.value; + var $12768 = self.errors; + var $12769 = Kind$Check$result$($12767, List$concat$($12754, $12768)); + var $12757 = $12769; break; }; - var $14054 = $14056; + var $12755 = $12757; break; case 'Maybe.none': - var $14069 = Kind$Check$result$(Maybe$none, $14053); - var $14054 = $14069; + var $12770 = Kind$Check$result$(Maybe$none, $12754); + var $12755 = $12770; break; }; - var $14051 = $14054; + var $12752 = $12755; break; }; - var $14048 = $14051; + var $12749 = $12752; break; case 'Kind.Term.hol': - var $14070 = self.path; - var $14071 = Kind$Term$equal$hole$($14070, _a$1); - var $14048 = $14071; + var $12771 = self.path; + var $12772 = Kind$Term$equal$hole$($12771, _a$1); + var $12749 = $12772; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45338,86 +41290,86 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14072 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $14048 = $14072; + var $12773 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $12749 = $12773; break; }; - var $13992 = $14048; + var $12693 = $12749; break; case 'Kind.Term.let': - var $14073 = self.name; - var $14074 = self.expr; - var $14075 = self.body; + var $12774 = self.name; + var $12775 = self.expr; + var $12776 = self.body; var self = _b1$9; switch (self._) { case 'Kind.Term.let': - var $14077 = self.name; - var $14078 = self.expr; - var $14079 = self.body; + var $12778 = self.name; + var $12779 = self.expr; + var $12780 = self.body; var _seen$19 = BitsSet$mut$set$(_id$12, _seen$5); - var _a1_body$20 = $14075(Kind$Term$var$($14073, _lv$4)); - var _b1_body$21 = $14079(Kind$Term$var$($14077, _lv$4)); - var self = Kind$Term$equal$go$($14074, $14078, _defs$3, _lv$4, _seen$19); + var _a1_body$20 = $12776(Kind$Term$var$($12774, _lv$4)); + var _b1_body$21 = $12780(Kind$Term$var$($12778, _lv$4)); + var self = Kind$Term$equal$go$($12775, $12779, _defs$3, _lv$4, _seen$19); switch (self._) { case 'Kind.Check.result': - var $14081 = self.value; - var $14082 = self.errors; - var self = $14081; + var $12782 = self.value; + var $12783 = self.errors; + var self = $12782; switch (self._) { case 'Maybe.some': - var $14084 = self.value; + var $12785 = self.value; var self = Kind$Term$equal$go$(_a1_body$20, _b1_body$21, _defs$3, Nat$succ$(_lv$4), _seen$19); switch (self._) { case 'Kind.Check.result': - var $14086 = self.value; - var $14087 = self.errors; - var self = $14086; + var $12787 = self.value; + var $12788 = self.errors; + var self = $12787; switch (self._) { case 'Maybe.some': - var $14089 = self.value; - var self = Kind$Check$result$(Maybe$some$(($14084 && $14089)), List$nil); + var $12790 = self.value; + var self = Kind$Check$result$(Maybe$some$(($12785 && $12790)), List$nil); switch (self._) { case 'Kind.Check.result': - var $14091 = self.value; - var $14092 = self.errors; - var $14093 = Kind$Check$result$($14091, List$concat$($14087, $14092)); - var $14090 = $14093; + var $12792 = self.value; + var $12793 = self.errors; + var $12794 = Kind$Check$result$($12792, List$concat$($12788, $12793)); + var $12791 = $12794; break; }; - var $14088 = $14090; + var $12789 = $12791; break; case 'Maybe.none': - var $14094 = Kind$Check$result$(Maybe$none, $14087); - var $14088 = $14094; + var $12795 = Kind$Check$result$(Maybe$none, $12788); + var $12789 = $12795; break; }; - var self = $14088; + var self = $12789; break; }; switch (self._) { case 'Kind.Check.result': - var $14095 = self.value; - var $14096 = self.errors; - var $14097 = Kind$Check$result$($14095, List$concat$($14082, $14096)); - var $14085 = $14097; + var $12796 = self.value; + var $12797 = self.errors; + var $12798 = Kind$Check$result$($12796, List$concat$($12783, $12797)); + var $12786 = $12798; break; }; - var $14083 = $14085; + var $12784 = $12786; break; case 'Maybe.none': - var $14098 = Kind$Check$result$(Maybe$none, $14082); - var $14083 = $14098; + var $12799 = Kind$Check$result$(Maybe$none, $12783); + var $12784 = $12799; break; }; - var $14080 = $14083; + var $12781 = $12784; break; }; - var $14076 = $14080; + var $12777 = $12781; break; case 'Kind.Term.hol': - var $14099 = self.path; - var $14100 = Kind$Term$equal$hole$($14099, _a$1); - var $14076 = $14100; + var $12800 = self.path; + var $12801 = Kind$Term$equal$hole$($12800, _a$1); + var $12777 = $12801; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45438,16 +41390,16 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14101 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $14076 = $14101; + var $12802 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $12777 = $12802; break; }; - var $13992 = $14076; + var $12693 = $12777; break; case 'Kind.Term.hol': - var $14102 = self.path; - var $14103 = Kind$Term$equal$hole$($14102, _b$2); - var $13992 = $14103; + var $12803 = self.path; + var $12804 = Kind$Term$equal$hole$($12803, _b$2); + var $12693 = $12804; break; case 'Kind.Term.var': case 'Kind.Term.get': @@ -45455,9 +41407,9 @@ module.exports = (function() { var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $14105 = self.path; - var $14106 = Kind$Term$equal$hole$($14105, _a$1); - var $14104 = $14106; + var $12806 = self.path; + var $12807 = Kind$Term$equal$hole$($12806, _a$1); + var $12805 = $12807; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45479,11 +41431,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14107 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $14104 = $14107; + var $12808 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $12805 = $12808; break; }; - var $13992 = $14104; + var $12693 = $12805; break; case 'Kind.Term.ref': case 'Kind.Term.nat': @@ -45493,9 +41445,9 @@ module.exports = (function() { var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $14109 = self.path; - var $14110 = Kind$Term$equal$hole$($14109, _a$1); - var $14108 = $14110; + var $12810 = self.path; + var $12811 = Kind$Term$equal$hole$($12810, _a$1); + var $12809 = $12811; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45517,19 +41469,19 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14111 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $14108 = $14111; + var $12812 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $12809 = $12812; break; }; - var $13992 = $14108; + var $12693 = $12809; break; case 'Kind.Term.typ': var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $14113 = self.path; - var $14114 = Kind$Term$equal$hole$($14113, _a$1); - var $14112 = $14114; + var $12814 = self.path; + var $12815 = Kind$Term$equal$hole$($12814, _a$1); + var $12813 = $12815; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45551,11 +41503,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14115 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $14112 = $14115; + var $12816 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $12813 = $12816; break; }; - var $13992 = $14112; + var $12693 = $12813; break; case 'Kind.Term.def': case 'Kind.Term.ann': @@ -45566,9 +41518,9 @@ module.exports = (function() { var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $14117 = self.path; - var $14118 = Kind$Term$equal$hole$($14117, _a$1); - var $14116 = $14118; + var $12818 = self.path; + var $12819 = Kind$Term$equal$hole$($12818, _a$1); + var $12817 = $12819; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45590,19 +41542,19 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14119 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $14116 = $14119; + var $12820 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $12817 = $12820; break; }; - var $13992 = $14116; + var $12693 = $12817; break; case 'Kind.Term.cse': var self = _b1$9; switch (self._) { case 'Kind.Term.hol': - var $14121 = self.path; - var $14122 = Kind$Term$equal$hole$($14121, _a$1); - var $14120 = $14122; + var $12822 = self.path; + var $12823 = Kind$Term$equal$hole$($12822, _a$1); + var $12821 = $12823; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45624,27 +41576,27 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14123 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); - var $14120 = $14123; + var $12824 = Kind$Check$result$(Maybe$some$(Bool$false), List$nil); + var $12821 = $12824; break; }; - var $13992 = $14120; + var $12693 = $12821; break; }; - var $13982 = $13992; + var $12683 = $12693; }; - var $13980 = $13982; + var $12681 = $12683; }; - var $13978 = $13980; + var $12679 = $12681; }; - return $13978; + return $12679; }; const Kind$Term$equal$go = x0 => x1 => x2 => x3 => x4 => Kind$Term$equal$go$(x0, x1, x2, x3, x4); const BitsSet$new = BitsMap$new; function BitsSet$mut$new$(_a$1) { - var $14124 = BitsSet$new; - return $14124; + var $12825 = BitsSet$new; + return $12825; }; const BitsSet$mut$new = x0 => BitsSet$mut$new$(x0); @@ -45652,185 +41604,185 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $14126 = self.name; - var $14127 = self.indx; - var self = List$at_last$($14127, _ctx$4); + var $12827 = self.name; + var $12828 = self.indx; + var self = List$at_last$($12828, _ctx$4); switch (self._) { case 'Maybe.some': - var $14129 = self.value; - var $14130 = Kind$Check$result$(Maybe$some$((() => { - var self = $14129; + var $12830 = self.value; + var $12831 = Kind$Check$result$(Maybe$some$((() => { + var self = $12830; switch (self._) { case 'Pair.new': - var $14131 = self.snd; - var $14132 = $14131; - return $14132; + var $12832 = self.snd; + var $12833 = $12832; + return $12833; }; })()), List$nil); - var $14128 = $14130; + var $12829 = $12831; break; case 'Maybe.none': - var $14133 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $14126), List$nil)); - var $14128 = $14133; + var $12834 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $12827), List$nil)); + var $12829 = $12834; break; }; - var self = $14128; + var self = $12829; break; case 'Kind.Term.ref': - var $14134 = self.name; - var self = Kind$Map$get$($14134, _defs$3); + var $12835 = self.name; + var self = Kind$Map$get$($12835, _defs$3); switch (self._) { case 'Maybe.some': - var $14136 = self.value; - var self = $14136; + var $12837 = self.value; + var self = $12837; switch (self._) { case 'Kind.Def.new': - var $14138 = self.name; - var $14139 = self.term; - var $14140 = self.type; - var $14141 = self.stat; - var _ref_name$18 = $14138; - var _ref_type$19 = $14140; - var _ref_term$20 = $14139; - var _ref_stat$21 = $14141; + var $12839 = self.name; + var $12840 = self.term; + var $12841 = self.type; + var $12842 = self.stat; + var _ref_name$18 = $12839; + var _ref_type$19 = $12841; + var _ref_term$20 = $12840; + var _ref_stat$21 = $12842; var self = _ref_stat$21; switch (self._) { case 'Kind.Status.init': - var $14143 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$waiting$(_ref_name$18), List$nil)); - var $14142 = $14143; + var $12844 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$waiting$(_ref_name$18), List$nil)); + var $12843 = $12844; break; case 'Kind.Status.wait': case 'Kind.Status.done': - var $14144 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$nil); - var $14142 = $14144; + var $12845 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$nil); + var $12843 = $12845; break; case 'Kind.Status.fail': - var $14145 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$indirect$(_ref_name$18), List$nil)); - var $14142 = $14145; + var $12846 = Kind$Check$result$(Maybe$some$(_ref_type$19), List$cons$(Kind$Error$indirect$(_ref_name$18), List$nil)); + var $12843 = $12846; break; }; - var $14137 = $14142; + var $12838 = $12843; break; }; - var $14135 = $14137; + var $12836 = $12838; break; case 'Maybe.none': - var $14146 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $14134), List$nil)); - var $14135 = $14146; + var $12847 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$undefined_reference$(_orig$6, $12835), List$nil)); + var $12836 = $12847; break; }; - var self = $14135; + var self = $12836; break; case 'Kind.Term.all': - var $14147 = self.self; - var $14148 = self.name; - var $14149 = self.xtyp; - var $14150 = self.body; + var $12848 = self.self; + var $12849 = self.name; + var $12850 = self.xtyp; + var $12851 = self.body; var _ctx_size$12 = (list_length(_ctx$4)); - var _self_var$13 = Kind$Term$var$($14147, _ctx_size$12); - var _body_var$14 = Kind$Term$var$($14148, Nat$succ$(_ctx_size$12)); - var _body_ctx$15 = List$cons$(Pair$new$($14148, $14149), List$cons$(Pair$new$($14147, _term$1), _ctx$4)); - var self = Kind$Term$check$($14149, Maybe$some$(Kind$Term$typ), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var _self_var$13 = Kind$Term$var$($12848, _ctx_size$12); + var _body_var$14 = Kind$Term$var$($12849, Nat$succ$(_ctx_size$12)); + var _body_ctx$15 = List$cons$(Pair$new$($12849, $12850), List$cons$(Pair$new$($12848, _term$1), _ctx$4)); + var self = Kind$Term$check$($12850, Maybe$some$(Kind$Term$typ), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14152 = self.value; - var $14153 = self.errors; - var self = $14152; + var $12853 = self.value; + var $12854 = self.errors; + var self = $12853; switch (self._) { case 'Maybe.none': - var $14155 = Kind$Check$result$(Maybe$none, $14153); - var $14154 = $14155; + var $12856 = Kind$Check$result$(Maybe$none, $12854); + var $12855 = $12856; break; case 'Maybe.some': - var self = Kind$Term$check$($14150(_self_var$13)(_body_var$14), Maybe$some$(Kind$Term$typ), _defs$3, _body_ctx$15, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var self = Kind$Term$check$($12851(_self_var$13)(_body_var$14), Maybe$some$(Kind$Term$typ), _defs$3, _body_ctx$15, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14157 = self.value; - var $14158 = self.errors; - var self = $14157; + var $12858 = self.value; + var $12859 = self.errors; + var self = $12858; switch (self._) { case 'Maybe.none': - var $14160 = Kind$Check$result$(Maybe$none, $14158); - var $14159 = $14160; + var $12861 = Kind$Check$result$(Maybe$none, $12859); + var $12860 = $12861; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Kind$Term$typ), List$nil); switch (self._) { case 'Kind.Check.result': - var $14162 = self.value; - var $14163 = self.errors; - var $14164 = Kind$Check$result$($14162, List$concat$($14158, $14163)); - var $14161 = $14164; + var $12863 = self.value; + var $12864 = self.errors; + var $12865 = Kind$Check$result$($12863, List$concat$($12859, $12864)); + var $12862 = $12865; break; }; - var $14159 = $14161; + var $12860 = $12862; break; }; - var self = $14159; + var self = $12860; break; }; switch (self._) { case 'Kind.Check.result': - var $14165 = self.value; - var $14166 = self.errors; - var $14167 = Kind$Check$result$($14165, List$concat$($14153, $14166)); - var $14156 = $14167; + var $12866 = self.value; + var $12867 = self.errors; + var $12868 = Kind$Check$result$($12866, List$concat$($12854, $12867)); + var $12857 = $12868; break; }; - var $14154 = $14156; + var $12855 = $12857; break; }; - var $14151 = $14154; + var $12852 = $12855; break; }; - var self = $14151; + var self = $12852; break; case 'Kind.Term.lam': - var $14168 = self.name; - var $14169 = self.body; + var $12869 = self.name; + var $12870 = self.body; var self = _type$2; switch (self._) { case 'Maybe.some': - var $14171 = self.value; - var _typv$10 = Kind$Term$reduce$($14171, _defs$3); + var $12872 = self.value; + var _typv$10 = Kind$Term$reduce$($12872, _defs$3); var self = _typv$10; switch (self._) { case 'Kind.Term.all': - var $14173 = self.xtyp; - var $14174 = self.body; + var $12874 = self.xtyp; + var $12875 = self.body; var _ctx_size$16 = (list_length(_ctx$4)); var _self_var$17 = _term$1; - var _body_var$18 = Kind$Term$var$($14168, _ctx_size$16); - var _body_typ$19 = $14174(_self_var$17)(_body_var$18); - var _body_ctx$20 = List$cons$(Pair$new$($14168, $14173), _ctx$4); - var self = Kind$Term$check$($14169(_body_var$18), Maybe$some$(_body_typ$19), _defs$3, _body_ctx$20, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var _body_var$18 = Kind$Term$var$($12869, _ctx_size$16); + var _body_typ$19 = $12875(_self_var$17)(_body_var$18); + var _body_ctx$20 = List$cons$(Pair$new$($12869, $12874), _ctx$4); + var self = Kind$Term$check$($12870(_body_var$18), Maybe$some$(_body_typ$19), _defs$3, _body_ctx$20, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14176 = self.value; - var $14177 = self.errors; - var self = $14176; + var $12877 = self.value; + var $12878 = self.errors; + var self = $12877; switch (self._) { case 'Maybe.none': - var $14179 = Kind$Check$result$(Maybe$none, $14177); - var $14178 = $14179; + var $12880 = Kind$Check$result$(Maybe$none, $12878); + var $12879 = $12880; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($14171), List$nil); + var self = Kind$Check$result$(Maybe$some$($12872), List$nil); switch (self._) { case 'Kind.Check.result': - var $14181 = self.value; - var $14182 = self.errors; - var $14183 = Kind$Check$result$($14181, List$concat$($14177, $14182)); - var $14180 = $14183; + var $12882 = self.value; + var $12883 = self.errors; + var $12884 = Kind$Check$result$($12882, List$concat$($12878, $12883)); + var $12881 = $12884; break; }; - var $14178 = $14180; + var $12879 = $12881; break; }; - var $14175 = $14178; + var $12876 = $12879; break; }; - var $14172 = $14175; + var $12873 = $12876; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -45838,9 +41790,9 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.ori': var _expected$13 = Either$left$("function"); - var _detected$14 = Either$right$($14171); - var $14184 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$13, _detected$14, _ctx$4), List$nil)); - var $14172 = $14184; + var _detected$14 = Either$right$($12872); + var $12885 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$13, _detected$14, _ctx$4), List$nil)); + var $12873 = $12885; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -45849,15 +41801,15 @@ module.exports = (function() { case 'Kind.Term.str': case 'Kind.Term.new': var _expected$12 = Either$left$("function"); - var _detected$13 = Either$right$($14171); - var $14185 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$12, _detected$13, _ctx$4), List$nil)); - var $14172 = $14185; + var _detected$13 = Either$right$($12872); + var $12886 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$12, _detected$13, _ctx$4), List$nil)); + var $12873 = $12886; break; case 'Kind.Term.typ': var _expected$11 = Either$left$("function"); - var _detected$12 = Either$right$($14171); - var $14186 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$11, _detected$12, _ctx$4), List$nil)); - var $14172 = $14186; + var _detected$12 = Either$right$($12872); + var $12887 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$11, _detected$12, _ctx$4), List$nil)); + var $12873 = $12887; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -45867,74 +41819,74 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': var _expected$14 = Either$left$("function"); - var _detected$15 = Either$right$($14171); - var $14187 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$14, _detected$15, _ctx$4), List$nil)); - var $14172 = $14187; + var _detected$15 = Either$right$($12872); + var $12888 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$14, _detected$15, _ctx$4), List$nil)); + var $12873 = $12888; break; case 'Kind.Term.cse': var _expected$17 = Either$left$("function"); - var _detected$18 = Either$right$($14171); - var $14188 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$17, _detected$18, _ctx$4), List$nil)); - var $14172 = $14188; + var _detected$18 = Either$right$($12872); + var $12889 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, _expected$17, _detected$18, _ctx$4), List$nil)); + var $12873 = $12889; break; }; - var $14170 = $14172; + var $12871 = $12873; break; case 'Maybe.none': var _lam_type$9 = Kind$Term$hol$(Bits$e); var _lam_term$10 = Kind$Term$ann$(Bool$false, _term$1, _lam_type$9); - var $14189 = Kind$Term$check$patch$(_lam_term$10, _type$2, _path$5); - var $14170 = $14189; + var $12890 = Kind$Term$check$patch$(_lam_term$10, _type$2, _path$5); + var $12871 = $12890; break; }; - var self = $14170; + var self = $12871; break; case 'Kind.Term.app': - var $14190 = self.func; - var $14191 = self.argm; - var self = Kind$Term$check$($14190, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var $12891 = self.func; + var $12892 = self.argm; + var self = Kind$Term$check$($12891, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14193 = self.value; - var $14194 = self.errors; - var self = $14193; + var $12894 = self.value; + var $12895 = self.errors; + var self = $12894; switch (self._) { case 'Maybe.some': - var $14196 = self.value; - var _func_typ$12 = Kind$Term$reduce$($14196, _defs$3); + var $12897 = self.value; + var _func_typ$12 = Kind$Term$reduce$($12897, _defs$3); var self = _func_typ$12; switch (self._) { case 'Kind.Term.all': - var $14198 = self.xtyp; - var $14199 = self.body; - var self = Kind$Term$check$($14191, Maybe$some$($14198), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var $12899 = self.xtyp; + var $12900 = self.body; + var self = Kind$Term$check$($12892, Maybe$some$($12899), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14201 = self.value; - var $14202 = self.errors; - var self = $14201; + var $12902 = self.value; + var $12903 = self.errors; + var self = $12902; switch (self._) { case 'Maybe.none': - var $14204 = Kind$Check$result$(Maybe$none, $14202); - var $14203 = $14204; + var $12905 = Kind$Check$result$(Maybe$none, $12903); + var $12904 = $12905; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($14199($14190)($14191)), List$nil); + var self = Kind$Check$result$(Maybe$some$($12900($12891)($12892)), List$nil); switch (self._) { case 'Kind.Check.result': - var $14206 = self.value; - var $14207 = self.errors; - var $14208 = Kind$Check$result$($14206, List$concat$($14202, $14207)); - var $14205 = $14208; + var $12907 = self.value; + var $12908 = self.errors; + var $12909 = Kind$Check$result$($12907, List$concat$($12903, $12908)); + var $12906 = $12909; break; }; - var $14203 = $14205; + var $12904 = $12906; break; }; - var $14200 = $14203; + var $12901 = $12904; break; }; - var self = $14200; + var self = $12901; break; case 'Kind.Term.var': case 'Kind.Term.lam': @@ -45943,12 +41895,12 @@ module.exports = (function() { case 'Kind.Term.ori': var _expected$15 = Either$left$("function"); var _detected$16 = Either$right$(_func_typ$12); - var self = $14190; + var self = $12891; switch (self._) { case 'Kind.Term.ori': - var $14210 = self.orig; - var $14211 = Maybe$some$($14210); - var _orig$17 = $14211; + var $12911 = self.orig; + var $12912 = Maybe$some$($12911); + var _orig$17 = $12912; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -45970,12 +41922,12 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $14212 = _orig$6; - var _orig$17 = $14212; + var $12913 = _orig$6; + var _orig$17 = $12913; break; }; - var $14209 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$17, _expected$15, _detected$16, _ctx$4), List$nil)); - var self = $14209; + var $12910 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$17, _expected$15, _detected$16, _ctx$4), List$nil)); + var self = $12910; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -45985,12 +41937,12 @@ module.exports = (function() { case 'Kind.Term.new': var _expected$14 = Either$left$("function"); var _detected$15 = Either$right$(_func_typ$12); - var self = $14190; + var self = $12891; switch (self._) { case 'Kind.Term.ori': - var $14214 = self.orig; - var $14215 = Maybe$some$($14214); - var _orig$16 = $14215; + var $12915 = self.orig; + var $12916 = Maybe$some$($12915); + var _orig$16 = $12916; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -46012,22 +41964,22 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $14216 = _orig$6; - var _orig$16 = $14216; + var $12917 = _orig$6; + var _orig$16 = $12917; break; }; - var $14213 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$16, _expected$14, _detected$15, _ctx$4), List$nil)); - var self = $14213; + var $12914 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$16, _expected$14, _detected$15, _ctx$4), List$nil)); + var self = $12914; break; case 'Kind.Term.typ': var _expected$13 = Either$left$("function"); var _detected$14 = Either$right$(_func_typ$12); - var self = $14190; + var self = $12891; switch (self._) { case 'Kind.Term.ori': - var $14218 = self.orig; - var $14219 = Maybe$some$($14218); - var _orig$15 = $14219; + var $12919 = self.orig; + var $12920 = Maybe$some$($12919); + var _orig$15 = $12920; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -46049,12 +42001,12 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $14220 = _orig$6; - var _orig$15 = $14220; + var $12921 = _orig$6; + var _orig$15 = $12921; break; }; - var $14217 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$15, _expected$13, _detected$14, _ctx$4), List$nil)); - var self = $14217; + var $12918 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$15, _expected$13, _detected$14, _ctx$4), List$nil)); + var self = $12918; break; case 'Kind.Term.let': case 'Kind.Term.def': @@ -46065,12 +42017,12 @@ module.exports = (function() { case 'Kind.Term.ope': var _expected$16 = Either$left$("function"); var _detected$17 = Either$right$(_func_typ$12); - var self = $14190; + var self = $12891; switch (self._) { case 'Kind.Term.ori': - var $14222 = self.orig; - var $14223 = Maybe$some$($14222); - var _orig$18 = $14223; + var $12923 = self.orig; + var $12924 = Maybe$some$($12923); + var _orig$18 = $12924; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -46092,22 +42044,22 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $14224 = _orig$6; - var _orig$18 = $14224; + var $12925 = _orig$6; + var _orig$18 = $12925; break; }; - var $14221 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$18, _expected$16, _detected$17, _ctx$4), List$nil)); - var self = $14221; + var $12922 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$18, _expected$16, _detected$17, _ctx$4), List$nil)); + var self = $12922; break; case 'Kind.Term.cse': var _expected$19 = Either$left$("function"); var _detected$20 = Either$right$(_func_typ$12); - var self = $14190; + var self = $12891; switch (self._) { case 'Kind.Term.ori': - var $14226 = self.orig; - var $14227 = Maybe$some$($14226); - var _orig$21 = $14227; + var $12927 = self.orig; + var $12928 = Maybe$some$($12927); + var _orig$21 = $12928; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -46129,724 +42081,724 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $14228 = _orig$6; - var _orig$21 = $14228; + var $12929 = _orig$6; + var _orig$21 = $12929; break; }; - var $14225 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$21, _expected$19, _detected$20, _ctx$4), List$nil)); - var self = $14225; + var $12926 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$21, _expected$19, _detected$20, _ctx$4), List$nil)); + var self = $12926; break; }; switch (self._) { case 'Kind.Check.result': - var $14229 = self.value; - var $14230 = self.errors; - var $14231 = Kind$Check$result$($14229, List$concat$($14194, $14230)); - var $14197 = $14231; + var $12930 = self.value; + var $12931 = self.errors; + var $12932 = Kind$Check$result$($12930, List$concat$($12895, $12931)); + var $12898 = $12932; break; }; - var $14195 = $14197; + var $12896 = $12898; break; case 'Maybe.none': - var $14232 = Kind$Check$result$(Maybe$none, $14194); - var $14195 = $14232; + var $12933 = Kind$Check$result$(Maybe$none, $12895); + var $12896 = $12933; break; }; - var $14192 = $14195; + var $12893 = $12896; break; }; - var self = $14192; + var self = $12893; break; case 'Kind.Term.let': - var $14233 = self.name; - var $14234 = self.expr; - var $14235 = self.body; + var $12934 = self.name; + var $12935 = self.expr; + var $12936 = self.body; var _ctx_size$10 = (list_length(_ctx$4)); - var self = Kind$Term$check$($14234, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var self = Kind$Term$check$($12935, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14237 = self.value; - var $14238 = self.errors; - var self = $14237; + var $12938 = self.value; + var $12939 = self.errors; + var self = $12938; switch (self._) { case 'Maybe.some': - var $14240 = self.value; - var _body_val$14 = $14235(Kind$Term$var$($14233, _ctx_size$10)); - var _body_ctx$15 = List$cons$(Pair$new$($14233, $14240), _ctx$4); + var $12941 = self.value; + var _body_val$14 = $12936(Kind$Term$var$($12934, _ctx_size$10)); + var _body_ctx$15 = List$cons$(Pair$new$($12934, $12941), _ctx$4); var self = Kind$Term$check$(_body_val$14, _type$2, _defs$3, _body_ctx$15, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14242 = self.value; - var $14243 = self.errors; - var self = $14242; + var $12943 = self.value; + var $12944 = self.errors; + var self = $12943; switch (self._) { case 'Maybe.some': - var $14245 = self.value; - var self = Kind$Check$result$(Maybe$some$($14245), List$nil); + var $12946 = self.value; + var self = Kind$Check$result$(Maybe$some$($12946), List$nil); switch (self._) { case 'Kind.Check.result': - var $14247 = self.value; - var $14248 = self.errors; - var $14249 = Kind$Check$result$($14247, List$concat$($14243, $14248)); - var $14246 = $14249; + var $12948 = self.value; + var $12949 = self.errors; + var $12950 = Kind$Check$result$($12948, List$concat$($12944, $12949)); + var $12947 = $12950; break; }; - var $14244 = $14246; + var $12945 = $12947; break; case 'Maybe.none': - var $14250 = Kind$Check$result$(Maybe$none, $14243); - var $14244 = $14250; + var $12951 = Kind$Check$result$(Maybe$none, $12944); + var $12945 = $12951; break; }; - var self = $14244; + var self = $12945; break; }; switch (self._) { case 'Kind.Check.result': - var $14251 = self.value; - var $14252 = self.errors; - var $14253 = Kind$Check$result$($14251, List$concat$($14238, $14252)); - var $14241 = $14253; + var $12952 = self.value; + var $12953 = self.errors; + var $12954 = Kind$Check$result$($12952, List$concat$($12939, $12953)); + var $12942 = $12954; break; }; - var $14239 = $14241; + var $12940 = $12942; break; case 'Maybe.none': - var $14254 = Kind$Check$result$(Maybe$none, $14238); - var $14239 = $14254; + var $12955 = Kind$Check$result$(Maybe$none, $12939); + var $12940 = $12955; break; }; - var $14236 = $14239; + var $12937 = $12940; break; }; - var self = $14236; + var self = $12937; break; case 'Kind.Term.def': - var $14255 = self.name; - var $14256 = self.expr; - var $14257 = self.body; + var $12956 = self.name; + var $12957 = self.expr; + var $12958 = self.body; var _ctx_size$10 = (list_length(_ctx$4)); - var self = Kind$Term$check$($14256, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var self = Kind$Term$check$($12957, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14259 = self.value; - var $14260 = self.errors; - var self = $14259; + var $12960 = self.value; + var $12961 = self.errors; + var self = $12960; switch (self._) { case 'Maybe.some': - var $14262 = self.value; - var _body_val$14 = $14257($14256); - var _body_ctx$15 = List$cons$(Pair$new$($14255, $14262), _ctx$4); + var $12963 = self.value; + var _body_val$14 = $12958($12957); + var _body_ctx$15 = List$cons$(Pair$new$($12956, $12963), _ctx$4); var self = Kind$Term$check$(_body_val$14, _type$2, _defs$3, _body_ctx$15, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14264 = self.value; - var $14265 = self.errors; - var self = $14264; + var $12965 = self.value; + var $12966 = self.errors; + var self = $12965; switch (self._) { case 'Maybe.some': - var $14267 = self.value; - var self = Kind$Check$result$(Maybe$some$($14267), List$nil); + var $12968 = self.value; + var self = Kind$Check$result$(Maybe$some$($12968), List$nil); switch (self._) { case 'Kind.Check.result': - var $14269 = self.value; - var $14270 = self.errors; - var $14271 = Kind$Check$result$($14269, List$concat$($14265, $14270)); - var $14268 = $14271; + var $12970 = self.value; + var $12971 = self.errors; + var $12972 = Kind$Check$result$($12970, List$concat$($12966, $12971)); + var $12969 = $12972; break; }; - var $14266 = $14268; + var $12967 = $12969; break; case 'Maybe.none': - var $14272 = Kind$Check$result$(Maybe$none, $14265); - var $14266 = $14272; + var $12973 = Kind$Check$result$(Maybe$none, $12966); + var $12967 = $12973; break; }; - var self = $14266; + var self = $12967; break; }; switch (self._) { case 'Kind.Check.result': - var $14273 = self.value; - var $14274 = self.errors; - var $14275 = Kind$Check$result$($14273, List$concat$($14260, $14274)); - var $14263 = $14275; + var $12974 = self.value; + var $12975 = self.errors; + var $12976 = Kind$Check$result$($12974, List$concat$($12961, $12975)); + var $12964 = $12976; break; }; - var $14261 = $14263; + var $12962 = $12964; break; case 'Maybe.none': - var $14276 = Kind$Check$result$(Maybe$none, $14260); - var $14261 = $14276; + var $12977 = Kind$Check$result$(Maybe$none, $12961); + var $12962 = $12977; break; }; - var $14258 = $14261; + var $12959 = $12962; break; }; - var self = $14258; + var self = $12959; break; case 'Kind.Term.ann': - var $14277 = self.done; - var $14278 = self.term; - var $14279 = self.type; - var self = $14277; + var $12978 = self.done; + var $12979 = self.term; + var $12980 = self.type; + var self = $12978; if (self) { - var $14281 = Kind$Check$result$(Maybe$some$($14279), List$nil); - var $14280 = $14281; + var $12982 = Kind$Check$result$(Maybe$some$($12980), List$nil); + var $12981 = $12982; } else { - var self = Kind$Term$check$($14278, Maybe$some$($14279), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var self = Kind$Term$check$($12979, Maybe$some$($12980), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14283 = self.value; - var $14284 = self.errors; - var self = $14283; + var $12984 = self.value; + var $12985 = self.errors; + var self = $12984; switch (self._) { case 'Maybe.none': - var $14286 = Kind$Check$result$(Maybe$none, $14284); - var $14285 = $14286; + var $12987 = Kind$Check$result$(Maybe$none, $12985); + var $12986 = $12987; break; case 'Maybe.some': - var self = Kind$Term$check$($14279, Maybe$some$(Kind$Term$typ), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); + var self = Kind$Term$check$($12980, Maybe$some$(Kind$Term$typ), _defs$3, _ctx$4, Kind$Path$Maybe$Builder$i$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14288 = self.value; - var $14289 = self.errors; - var self = $14288; + var $12989 = self.value; + var $12990 = self.errors; + var self = $12989; switch (self._) { case 'Maybe.none': - var $14291 = Kind$Check$result$(Maybe$none, $14289); - var $14290 = $14291; + var $12992 = Kind$Check$result$(Maybe$none, $12990); + var $12991 = $12992; break; case 'Maybe.some': - var self = Kind$Check$result$(Maybe$some$($14279), List$nil); + var self = Kind$Check$result$(Maybe$some$($12980), List$nil); switch (self._) { case 'Kind.Check.result': - var $14293 = self.value; - var $14294 = self.errors; - var $14295 = Kind$Check$result$($14293, List$concat$($14289, $14294)); - var $14292 = $14295; + var $12994 = self.value; + var $12995 = self.errors; + var $12996 = Kind$Check$result$($12994, List$concat$($12990, $12995)); + var $12993 = $12996; break; }; - var $14290 = $14292; + var $12991 = $12993; break; }; - var self = $14290; + var self = $12991; break; }; switch (self._) { case 'Kind.Check.result': - var $14296 = self.value; - var $14297 = self.errors; - var $14298 = Kind$Check$result$($14296, List$concat$($14284, $14297)); - var $14287 = $14298; + var $12997 = self.value; + var $12998 = self.errors; + var $12999 = Kind$Check$result$($12997, List$concat$($12985, $12998)); + var $12988 = $12999; break; }; - var $14285 = $14287; + var $12986 = $12988; break; }; - var $14282 = $14285; + var $12983 = $12986; break; }; - var $14280 = $14282; + var $12981 = $12983; }; - var self = $14280; + var self = $12981; break; case 'Kind.Term.gol': - var $14299 = self.name; - var $14300 = self.dref; - var $14301 = self.verb; - var $14302 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$show_goal$($14299, $14300, $14301, _type$2, _ctx$4), List$nil)); - var self = $14302; + var $13000 = self.name; + var $13001 = self.dref; + var $13002 = self.verb; + var $13003 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$show_goal$($13000, $13001, $13002, _type$2, _ctx$4), List$nil)); + var self = $13003; break; case 'Kind.Term.num': - var $14303 = self.sign; - var $14304 = self.numb; - var $14305 = self.frac; - var _dsug$10 = Kind$Term$check$expand$num$($14303, $14304, $14305, _type$2, _defs$3); - var $14306 = Kind$Term$check$patch$(_dsug$10, _type$2, _path$5); - var self = $14306; + var $13004 = self.sign; + var $13005 = self.numb; + var $13006 = self.frac; + var _dsug$10 = Kind$Term$check$expand$num$($13004, $13005, $13006, _type$2, _defs$3); + var $13007 = Kind$Term$check$patch$(_dsug$10, _type$2, _path$5); + var self = $13007; break; case 'Kind.Term.cse': - var $14307 = self.expr; - var $14308 = self.name; - var $14309 = self.with; - var $14310 = self.cses; - var $14311 = self.moti; - var _expr$13 = $14307; + var $13008 = self.expr; + var $13009 = self.name; + var $13010 = self.with; + var $13011 = self.cses; + var $13012 = self.moti; + var _expr$13 = $13008; var self = Kind$Term$check$(_expr$13, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14313 = self.value; - var $14314 = self.errors; - var self = $14313; + var $13014 = self.value; + var $13015 = self.errors; + var self = $13014; switch (self._) { case 'Maybe.some': - var $14316 = self.value; - var self = Kind$Term$check$infer_types_of_with$($14309, _defs$3, _ctx$4, _path$5, _orig$6); + var $13017 = self.value; + var self = Kind$Term$check$infer_types_of_with$($13010, _defs$3, _ctx$4, _path$5, _orig$6); switch (self._) { case 'Kind.Check.result': - var $14318 = self.value; - var $14319 = self.errors; - var self = $14318; + var $13019 = self.value; + var $13020 = self.errors; + var self = $13019; switch (self._) { case 'Maybe.some': - var $14321 = self.value; - var _dsug$20 = Kind$Term$check$expand$cse$($14307, $14308, $14321, $14310, $14311, $14316, _type$2, _defs$3, _ctx$4); + var $13022 = self.value; + var _dsug$20 = Kind$Term$check$expand$cse$($13008, $13009, $13022, $13011, $13012, $13017, _type$2, _defs$3, _ctx$4); var self = _dsug$20; switch (self._) { case 'Maybe.some': - var $14323 = self.value; - var $14324 = Kind$Term$check$patch$($14323, _type$2, _path$5); - var self = $14324; + var $13024 = self.value; + var $13025 = Kind$Term$check$patch$($13024, _type$2, _path$5); + var self = $13025; break; case 'Maybe.none': - var $14325 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $14325; + var $13026 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $13026; break; }; switch (self._) { case 'Kind.Check.result': - var $14326 = self.value; - var $14327 = self.errors; - var $14328 = Kind$Check$result$($14326, List$concat$($14319, $14327)); - var $14322 = $14328; + var $13027 = self.value; + var $13028 = self.errors; + var $13029 = Kind$Check$result$($13027, List$concat$($13020, $13028)); + var $13023 = $13029; break; }; - var $14320 = $14322; + var $13021 = $13023; break; case 'Maybe.none': - var $14329 = Kind$Check$result$(Maybe$none, $14319); - var $14320 = $14329; + var $13030 = Kind$Check$result$(Maybe$none, $13020); + var $13021 = $13030; break; }; - var self = $14320; + var self = $13021; break; }; switch (self._) { case 'Kind.Check.result': - var $14330 = self.value; - var $14331 = self.errors; - var $14332 = Kind$Check$result$($14330, List$concat$($14314, $14331)); - var $14317 = $14332; + var $13031 = self.value; + var $13032 = self.errors; + var $13033 = Kind$Check$result$($13031, List$concat$($13015, $13032)); + var $13018 = $13033; break; }; - var $14315 = $14317; + var $13016 = $13018; break; case 'Maybe.none': - var $14333 = Kind$Check$result$(Maybe$none, $14314); - var $14315 = $14333; + var $13034 = Kind$Check$result$(Maybe$none, $13015); + var $13016 = $13034; break; }; - var $14312 = $14315; + var $13013 = $13016; break; }; - var self = $14312; + var self = $13013; break; case 'Kind.Term.new': - var $14334 = self.args; - var _dsug$8 = Kind$Term$check$expand$new$($14334, _type$2, _defs$3); + var $13035 = self.args; + var _dsug$8 = Kind$Term$check$expand$new$($13035, _type$2, _defs$3); var self = _dsug$8; switch (self._) { case 'Maybe.some': - var $14336 = self.value; - var $14337 = Kind$Term$check$patch$($14336, _type$2, _path$5); - var $14335 = $14337; + var $13037 = self.value; + var $13038 = Kind$Term$check$patch$($13037, _type$2, _path$5); + var $13036 = $13038; break; case 'Maybe.none': - var $14338 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var $14335 = $14338; + var $13039 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var $13036 = $13039; break; }; - var self = $14335; + var self = $13036; break; case 'Kind.Term.get': - var $14339 = self.expr; - var $14340 = self.fkey; - var _expr$9 = $14339; + var $13040 = self.expr; + var $13041 = self.fkey; + var _expr$9 = $13040; var self = Kind$Term$check$(_expr$9, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14342 = self.value; - var $14343 = self.errors; - var self = $14342; + var $13043 = self.value; + var $13044 = self.errors; + var self = $13043; switch (self._) { case 'Maybe.some': - var $14345 = self.value; - var _dsug$13 = Kind$Term$check$expand$get$($14339, $14340, $14345, _defs$3); + var $13046 = self.value; + var _dsug$13 = Kind$Term$check$expand$get$($13040, $13041, $13046, _defs$3); var self = _dsug$13; switch (self._) { case 'Maybe.some': - var $14347 = self.value; - var $14348 = Kind$Term$check$patch$($14347, _type$2, _path$5); - var self = $14348; + var $13048 = self.value; + var $13049 = Kind$Term$check$patch$($13048, _type$2, _path$5); + var self = $13049; break; case 'Maybe.none': - var $14349 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $14349; + var $13050 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $13050; break; }; switch (self._) { case 'Kind.Check.result': - var $14350 = self.value; - var $14351 = self.errors; - var $14352 = Kind$Check$result$($14350, List$concat$($14343, $14351)); - var $14346 = $14352; + var $13051 = self.value; + var $13052 = self.errors; + var $13053 = Kind$Check$result$($13051, List$concat$($13044, $13052)); + var $13047 = $13053; break; }; - var $14344 = $14346; + var $13045 = $13047; break; case 'Maybe.none': - var $14353 = Kind$Check$result$(Maybe$none, $14343); - var $14344 = $14353; + var $13054 = Kind$Check$result$(Maybe$none, $13044); + var $13045 = $13054; break; }; - var $14341 = $14344; + var $13042 = $13045; break; }; - var self = $14341; + var self = $13042; break; case 'Kind.Term.set': - var $14354 = self.expr; - var $14355 = self.fkey; - var $14356 = self.fval; - var _expr$10 = $14354; + var $13055 = self.expr; + var $13056 = self.fkey; + var $13057 = self.fval; + var _expr$10 = $13055; var self = Kind$Term$check$(_expr$10, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14358 = self.value; - var $14359 = self.errors; - var self = $14358; + var $13059 = self.value; + var $13060 = self.errors; + var self = $13059; switch (self._) { case 'Maybe.some': - var $14361 = self.value; - var _dsug$14 = Kind$Term$check$expand$set$($14354, $14355, $14356, $14361, _defs$3); + var $13062 = self.value; + var _dsug$14 = Kind$Term$check$expand$set$($13055, $13056, $13057, $13062, _defs$3); var self = _dsug$14; switch (self._) { case 'Maybe.some': - var $14363 = self.value; - var $14364 = Kind$Term$check$patch$($14363, _type$2, _path$5); - var self = $14364; + var $13064 = self.value; + var $13065 = Kind$Term$check$patch$($13064, _type$2, _path$5); + var self = $13065; break; case 'Maybe.none': - var $14365 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $14365; + var $13066 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $13066; break; }; switch (self._) { case 'Kind.Check.result': - var $14366 = self.value; - var $14367 = self.errors; - var $14368 = Kind$Check$result$($14366, List$concat$($14359, $14367)); - var $14362 = $14368; + var $13067 = self.value; + var $13068 = self.errors; + var $13069 = Kind$Check$result$($13067, List$concat$($13060, $13068)); + var $13063 = $13069; break; }; - var $14360 = $14362; + var $13061 = $13063; break; case 'Maybe.none': - var $14369 = Kind$Check$result$(Maybe$none, $14359); - var $14360 = $14369; + var $13070 = Kind$Check$result$(Maybe$none, $13060); + var $13061 = $13070; break; }; - var $14357 = $14360; + var $13058 = $13061; break; }; - var self = $14357; + var self = $13058; break; case 'Kind.Term.ope': - var $14370 = self.name; - var $14371 = self.arg0; - var $14372 = self.arg1; + var $13071 = self.name; + var $13072 = self.arg0; + var $13073 = self.arg1; var _otyp$10 = Maybe$default$(_type$2, Kind$Term$hol$(Bits$e)); - var _dsug$11 = Kind$Term$check$expand$ope$(Bool$true, $14370, $14371, $14372, _otyp$10, _defs$3); + var _dsug$11 = Kind$Term$check$expand$ope$(Bool$true, $13071, $13072, $13073, _otyp$10, _defs$3); var self = _dsug$11; switch (self._) { case 'Maybe.some': - var $14374 = self.value; - var $14375 = Kind$Term$check$patch$($14374, _type$2, _path$5); - var $14373 = $14375; + var $13075 = self.value; + var $13076 = Kind$Term$check$patch$($13075, _type$2, _path$5); + var $13074 = $13076; break; case 'Maybe.none': - var self = Kind$Term$check$($14371, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); + var self = Kind$Term$check$($13072, Maybe$none, _defs$3, _ctx$4, Kind$Path$Maybe$Builder$o$(_path$5), _orig$6); switch (self._) { case 'Kind.Check.result': - var $14377 = self.value; - var $14378 = self.errors; - var self = $14377; + var $13078 = self.value; + var $13079 = self.errors; + var self = $13078; switch (self._) { case 'Maybe.some': - var $14380 = self.value; - var _dsug$15 = Kind$Term$check$expand$ope$(Bool$false, $14370, $14371, $14372, $14380, _defs$3); + var $13081 = self.value; + var _dsug$15 = Kind$Term$check$expand$ope$(Bool$false, $13071, $13072, $13073, $13081, _defs$3); var self = _dsug$15; switch (self._) { case 'Maybe.some': - var $14382 = self.value; - var $14383 = Kind$Term$check$patch$($14382, _type$2, _path$5); - var self = $14383; + var $13083 = self.value; + var $13084 = Kind$Term$check$patch$($13083, _type$2, _path$5); + var self = $13084; break; case 'Maybe.none': - var $14384 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); - var self = $14384; + var $13085 = Kind$Term$check$cant_infer$(_term$1, _type$2, _ctx$4, _orig$6); + var self = $13085; break; }; switch (self._) { case 'Kind.Check.result': - var $14385 = self.value; - var $14386 = self.errors; - var $14387 = Kind$Check$result$($14385, List$concat$($14378, $14386)); - var $14381 = $14387; + var $13086 = self.value; + var $13087 = self.errors; + var $13088 = Kind$Check$result$($13086, List$concat$($13079, $13087)); + var $13082 = $13088; break; }; - var $14379 = $14381; + var $13080 = $13082; break; case 'Maybe.none': - var $14388 = Kind$Check$result$(Maybe$none, $14378); - var $14379 = $14388; + var $13089 = Kind$Check$result$(Maybe$none, $13079); + var $13080 = $13089; break; }; - var $14376 = $14379; + var $13077 = $13080; break; }; - var $14373 = $14376; + var $13074 = $13077; break; }; - var self = $14373; + var self = $13074; break; case 'Kind.Term.ori': - var $14389 = self.orig; - var $14390 = self.expr; - var $14391 = Kind$Term$check$($14390, _type$2, _defs$3, _ctx$4, _path$5, Maybe$some$($14389)); - var self = $14391; + var $13090 = self.orig; + var $13091 = self.expr; + var $13092 = Kind$Term$check$($13091, _type$2, _defs$3, _ctx$4, _path$5, Maybe$some$($13090)); + var self = $13092; break; case 'Kind.Term.typ': - var $14392 = Kind$Check$result$(Maybe$some$(Kind$Term$typ), List$nil); - var self = $14392; + var $13093 = Kind$Check$result$(Maybe$some$(Kind$Term$typ), List$nil); + var self = $13093; break; case 'Kind.Term.hol': - var $14393 = Kind$Check$result$(_type$2, List$nil); - var self = $14393; + var $13094 = Kind$Check$result$(_type$2, List$nil); + var self = $13094; break; case 'Kind.Term.nat': var self = _type$2; switch (self._) { case 'Maybe.some': - var $14395 = self.value; - var _tnam$9 = Kind$Term$check$get_name_of_self_type$($14395, _defs$3); + var $13096 = self.value; + var _tnam$9 = Kind$Term$check$get_name_of_self_type$($13096, _defs$3); var self = _tnam$9; switch (self._) { case 'Maybe.some': - var $14397 = self.value; - var self = ($14397 === "Nat"); + var $13098 = self.value; + var self = ($13098 === "Nat"); if (self) { - var $14399 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); - var $14398 = $14399; + var $13100 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); + var $13099 = $13100; } else { - var _cast$11 = Kind$Term$ref$(($14397 + ".from_nat")); + var _cast$11 = Kind$Term$ref$(($13098 + ".from_nat")); var _cast$12 = Kind$Term$app$(_cast$11, _term$1); - var $14400 = Kind$Term$check$patch$(_cast$12, _type$2, _path$5); - var $14398 = $14400; + var $13101 = Kind$Term$check$patch$(_cast$12, _type$2, _path$5); + var $13099 = $13101; }; - var $14396 = $14398; + var $13097 = $13099; break; case 'Maybe.none': - var $14401 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); - var $14396 = $14401; + var $13102 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); + var $13097 = $13102; break; }; - var $14394 = $14396; + var $13095 = $13097; break; case 'Maybe.none': - var $14402 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); - var $14394 = $14402; + var $13103 = Kind$Term$check$direct$(Kind$Term$ref$("Nat"), _defs$3); + var $13095 = $13103; break; }; - var self = $14394; + var self = $13095; break; case 'Kind.Term.chr': var self = Kind$Term$check$direct$(Kind$Term$ref$("Word.from_bits"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $14404 = self.value; - var $14405 = self.errors; - var self = $14404; + var $13105 = self.value; + var $13106 = self.errors; + var self = $13105; switch (self._) { case 'Maybe.none': - var $14407 = Kind$Check$result$(Maybe$none, $14405); - var $14406 = $14407; + var $13108 = Kind$Check$result$(Maybe$none, $13106); + var $13107 = $13108; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("U16.new"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $14409 = self.value; - var $14410 = self.errors; - var self = $14409; + var $13110 = self.value; + var $13111 = self.errors; + var self = $13110; switch (self._) { case 'Maybe.none': - var $14412 = Kind$Check$result$(Maybe$none, $14410); - var $14411 = $14412; + var $13113 = Kind$Check$result$(Maybe$none, $13111); + var $13112 = $13113; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("Char"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $14414 = self.value; - var $14415 = self.errors; - var $14416 = Kind$Check$result$($14414, List$concat$($14410, $14415)); - var $14413 = $14416; + var $13115 = self.value; + var $13116 = self.errors; + var $13117 = Kind$Check$result$($13115, List$concat$($13111, $13116)); + var $13114 = $13117; break; }; - var $14411 = $14413; + var $13112 = $13114; break; }; - var self = $14411; + var self = $13112; break; }; switch (self._) { case 'Kind.Check.result': - var $14417 = self.value; - var $14418 = self.errors; - var $14419 = Kind$Check$result$($14417, List$concat$($14405, $14418)); - var $14408 = $14419; + var $13118 = self.value; + var $13119 = self.errors; + var $13120 = Kind$Check$result$($13118, List$concat$($13106, $13119)); + var $13109 = $13120; break; }; - var $14406 = $14408; + var $13107 = $13109; break; }; - var $14403 = $14406; + var $13104 = $13107; break; }; - var self = $14403; + var self = $13104; break; case 'Kind.Term.str': var self = Kind$Term$check$direct$(Kind$Term$ref$("Word.from_bits"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $14421 = self.value; - var $14422 = self.errors; - var self = $14421; + var $13122 = self.value; + var $13123 = self.errors; + var self = $13122; switch (self._) { case 'Maybe.none': - var $14424 = Kind$Check$result$(Maybe$none, $14422); - var $14423 = $14424; + var $13125 = Kind$Check$result$(Maybe$none, $13123); + var $13124 = $13125; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("U16.new"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $14426 = self.value; - var $14427 = self.errors; - var self = $14426; + var $13127 = self.value; + var $13128 = self.errors; + var self = $13127; switch (self._) { case 'Maybe.none': - var $14429 = Kind$Check$result$(Maybe$none, $14427); - var $14428 = $14429; + var $13130 = Kind$Check$result$(Maybe$none, $13128); + var $13129 = $13130; break; case 'Maybe.some': var self = Kind$Term$check$direct$(Kind$Term$ref$("String"), _defs$3); switch (self._) { case 'Kind.Check.result': - var $14431 = self.value; - var $14432 = self.errors; - var $14433 = Kind$Check$result$($14431, List$concat$($14427, $14432)); - var $14430 = $14433; + var $13132 = self.value; + var $13133 = self.errors; + var $13134 = Kind$Check$result$($13132, List$concat$($13128, $13133)); + var $13131 = $13134; break; }; - var $14428 = $14430; + var $13129 = $13131; break; }; - var self = $14428; + var self = $13129; break; }; switch (self._) { case 'Kind.Check.result': - var $14434 = self.value; - var $14435 = self.errors; - var $14436 = Kind$Check$result$($14434, List$concat$($14422, $14435)); - var $14425 = $14436; + var $13135 = self.value; + var $13136 = self.errors; + var $13137 = Kind$Check$result$($13135, List$concat$($13123, $13136)); + var $13126 = $13137; break; }; - var $14423 = $14425; + var $13124 = $13126; break; }; - var $14420 = $14423; + var $13121 = $13124; break; }; - var self = $14420; + var self = $13121; break; }; switch (self._) { case 'Kind.Check.result': - var $14437 = self.value; - var $14438 = self.errors; - var self = $14437; + var $13138 = self.value; + var $13139 = self.errors; + var self = $13138; switch (self._) { case 'Maybe.some': - var $14440 = self.value; + var $13141 = self.value; var self = _type$2; switch (self._) { case 'Maybe.some': - var $14442 = self.value; - var self = Kind$Term$equal$go$($14442, $14440, _defs$3, (list_length(_ctx$4)), BitsSet$mut$new$(Unit$new)); + var $13143 = self.value; + var self = Kind$Term$equal$go$($13143, $13141, _defs$3, (list_length(_ctx$4)), BitsSet$mut$new$(Unit$new)); switch (self._) { case 'Kind.Check.result': - var $14444 = self.value; - var $14445 = self.errors; - var self = $14444; + var $13145 = self.value; + var $13146 = self.errors; + var self = $13145; switch (self._) { case 'Maybe.some': - var $14447 = self.value; - var self = $14447; + var $13148 = self.value; + var self = $13148; if (self) { - var $14449 = Kind$Check$result$(Maybe$some$($14442), List$nil); - var self = $14449; + var $13150 = Kind$Check$result$(Maybe$some$($13143), List$nil); + var self = $13150; } else { - var $14450 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, Either$right$($14442), Either$right$($14440), _ctx$4), List$nil)); - var self = $14450; + var $13151 = Kind$Check$result$(_type$2, List$cons$(Kind$Error$type_mismatch$(_orig$6, Either$right$($13143), Either$right$($13141), _ctx$4), List$nil)); + var self = $13151; }; switch (self._) { case 'Kind.Check.result': - var $14451 = self.value; - var $14452 = self.errors; - var $14453 = Kind$Check$result$($14451, List$concat$($14445, $14452)); - var $14448 = $14453; + var $13152 = self.value; + var $13153 = self.errors; + var $13154 = Kind$Check$result$($13152, List$concat$($13146, $13153)); + var $13149 = $13154; break; }; - var $14446 = $14448; + var $13147 = $13149; break; case 'Maybe.none': - var $14454 = Kind$Check$result$(Maybe$none, $14445); - var $14446 = $14454; + var $13155 = Kind$Check$result$(Maybe$none, $13146); + var $13147 = $13155; break; }; - var $14443 = $14446; + var $13144 = $13147; break; }; - var self = $14443; + var self = $13144; break; case 'Maybe.none': - var $14455 = Kind$Check$result$(Maybe$some$($14440), List$nil); - var self = $14455; + var $13156 = Kind$Check$result$(Maybe$some$($13141), List$nil); + var self = $13156; break; }; switch (self._) { case 'Kind.Check.result': - var $14456 = self.value; - var $14457 = self.errors; - var $14458 = Kind$Check$result$($14456, List$concat$($14438, $14457)); - var $14441 = $14458; + var $13157 = self.value; + var $13158 = self.errors; + var $13159 = Kind$Check$result$($13157, List$concat$($13139, $13158)); + var $13142 = $13159; break; }; - var $14439 = $14441; + var $13140 = $13142; break; case 'Maybe.none': - var $14459 = Kind$Check$result$(Maybe$none, $14438); - var $14439 = $14459; + var $13160 = Kind$Check$result$(Maybe$none, $13139); + var $13140 = $13160; break; }; - var $14125 = $14439; + var $12826 = $13140; break; }; - return $14125; + return $12826; }; const Kind$Term$check = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Term$check$(x0, x1, x2, x3, x4, x5); @@ -46854,45 +42806,45 @@ module.exports = (function() { var self = _path$2; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14461 = self.slice(0, -1); + var $13162 = self.slice(0, -1); var self = _list$3; switch (self._) { case 'List.cons': - var $14463 = self.head; - var $14464 = self.tail; - var $14465 = List$cons$(_cont$4($14461)($14463), $14464); - var $14462 = $14465; + var $13164 = self.head; + var $13165 = self.tail; + var $13166 = List$cons$(_cont$4($13162)($13164), $13165); + var $13163 = $13166; break; case 'List.nil': - var $14466 = List$nil; - var $14462 = $14466; + var $13167 = List$nil; + var $13163 = $13167; break; }; - var $14460 = $14462; + var $13161 = $13163; break; case 'i': - var $14467 = self.slice(0, -1); + var $13168 = self.slice(0, -1); var self = _list$3; switch (self._) { case 'List.cons': - var $14469 = self.head; - var $14470 = self.tail; - var $14471 = List$cons$($14469, Kind$Path$patch_at$list$($14467, $14470, _cont$4)); - var $14468 = $14471; + var $13170 = self.head; + var $13171 = self.tail; + var $13172 = List$cons$($13170, Kind$Path$patch_at$list$($13168, $13171, _cont$4)); + var $13169 = $13172; break; case 'List.nil': - var $14472 = List$nil; - var $14468 = $14472; + var $13173 = List$nil; + var $13169 = $13173; break; }; - var $14460 = $14468; + var $13161 = $13169; break; case 'e': - var $14473 = List$nil; - var $14460 = $14473; + var $13174 = List$nil; + var $13161 = $13174; break; }; - return $14460; + return $13161; }; const Kind$Path$patch_at$list = x0 => x1 => x2 => Kind$Path$patch_at$list$(x0, x1, x2); @@ -46900,282 +42852,282 @@ module.exports = (function() { var self = _term$2; switch (self._) { case 'Kind.Term.all': - var $14475 = self.eras; - var $14476 = self.self; - var $14477 = self.name; - var $14478 = self.xtyp; - var $14479 = self.body; + var $13176 = self.eras; + var $13177 = self.self; + var $13178 = self.name; + var $13179 = self.xtyp; + var $13180 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14481 = self.slice(0, -1); - var $14482 = Kind$Term$all$($14475, $14476, $14477, Kind$Term$patch_at$($14481, $14478, _fn$3), $14479); - var $14480 = $14482; + var $13182 = self.slice(0, -1); + var $13183 = Kind$Term$all$($13176, $13177, $13178, Kind$Term$patch_at$($13182, $13179, _fn$3), $13180); + var $13181 = $13183; break; case 'i': - var $14483 = self.slice(0, -1); - var $14484 = Kind$Term$all$($14475, $14476, $14477, $14478, (_s$10 => _x$11 => { - var $14485 = Kind$Term$patch_at$($14483, $14479(_s$10)(_x$11), _fn$3); - return $14485; + var $13184 = self.slice(0, -1); + var $13185 = Kind$Term$all$($13176, $13177, $13178, $13179, (_s$10 => _x$11 => { + var $13186 = Kind$Term$patch_at$($13184, $13180(_s$10)(_x$11), _fn$3); + return $13186; })); - var $14480 = $14484; + var $13181 = $13185; break; case 'e': - var $14486 = _fn$3(_term$2); - var $14480 = $14486; + var $13187 = _fn$3(_term$2); + var $13181 = $13187; break; }; - var $14474 = $14480; + var $13175 = $13181; break; case 'Kind.Term.lam': - var $14487 = self.name; - var $14488 = self.body; + var $13188 = self.name; + var $13189 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $14490 = _fn$3(_term$2); - var $14489 = $14490; + var $13191 = _fn$3(_term$2); + var $13190 = $13191; break; case 'o': case 'i': - var $14491 = Kind$Term$lam$($14487, (_x$7 => { - var $14492 = Kind$Term$patch_at$(Bits$tail$(_path$1), $14488(_x$7), _fn$3); - return $14492; + var $13192 = Kind$Term$lam$($13188, (_x$7 => { + var $13193 = Kind$Term$patch_at$(Bits$tail$(_path$1), $13189(_x$7), _fn$3); + return $13193; })); - var $14489 = $14491; + var $13190 = $13192; break; }; - var $14474 = $14489; + var $13175 = $13190; break; case 'Kind.Term.app': - var $14493 = self.func; - var $14494 = self.argm; + var $13194 = self.func; + var $13195 = self.argm; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14496 = self.slice(0, -1); - var $14497 = Kind$Term$app$(Kind$Term$patch_at$($14496, $14493, _fn$3), $14494); - var $14495 = $14497; + var $13197 = self.slice(0, -1); + var $13198 = Kind$Term$app$(Kind$Term$patch_at$($13197, $13194, _fn$3), $13195); + var $13196 = $13198; break; case 'i': - var $14498 = self.slice(0, -1); - var $14499 = Kind$Term$app$($14493, Kind$Term$patch_at$($14498, $14494, _fn$3)); - var $14495 = $14499; + var $13199 = self.slice(0, -1); + var $13200 = Kind$Term$app$($13194, Kind$Term$patch_at$($13199, $13195, _fn$3)); + var $13196 = $13200; break; case 'e': - var $14500 = _fn$3(_term$2); - var $14495 = $14500; + var $13201 = _fn$3(_term$2); + var $13196 = $13201; break; }; - var $14474 = $14495; + var $13175 = $13196; break; case 'Kind.Term.let': - var $14501 = self.name; - var $14502 = self.expr; - var $14503 = self.body; + var $13202 = self.name; + var $13203 = self.expr; + var $13204 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14505 = self.slice(0, -1); - var $14506 = Kind$Term$let$($14501, Kind$Term$patch_at$($14505, $14502, _fn$3), $14503); - var $14504 = $14506; + var $13206 = self.slice(0, -1); + var $13207 = Kind$Term$let$($13202, Kind$Term$patch_at$($13206, $13203, _fn$3), $13204); + var $13205 = $13207; break; case 'i': - var $14507 = self.slice(0, -1); - var $14508 = Kind$Term$let$($14501, $14502, (_x$8 => { - var $14509 = Kind$Term$patch_at$($14507, $14503(_x$8), _fn$3); - return $14509; + var $13208 = self.slice(0, -1); + var $13209 = Kind$Term$let$($13202, $13203, (_x$8 => { + var $13210 = Kind$Term$patch_at$($13208, $13204(_x$8), _fn$3); + return $13210; })); - var $14504 = $14508; + var $13205 = $13209; break; case 'e': - var $14510 = _fn$3(_term$2); - var $14504 = $14510; + var $13211 = _fn$3(_term$2); + var $13205 = $13211; break; }; - var $14474 = $14504; + var $13175 = $13205; break; case 'Kind.Term.def': - var $14511 = self.name; - var $14512 = self.expr; - var $14513 = self.body; + var $13212 = self.name; + var $13213 = self.expr; + var $13214 = self.body; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14515 = self.slice(0, -1); - var $14516 = Kind$Term$def$($14511, Kind$Term$patch_at$($14515, $14512, _fn$3), $14513); - var $14514 = $14516; + var $13216 = self.slice(0, -1); + var $13217 = Kind$Term$def$($13212, Kind$Term$patch_at$($13216, $13213, _fn$3), $13214); + var $13215 = $13217; break; case 'i': - var $14517 = self.slice(0, -1); - var $14518 = Kind$Term$def$($14511, $14512, (_x$8 => { - var $14519 = Kind$Term$patch_at$($14517, $14513(_x$8), _fn$3); - return $14519; + var $13218 = self.slice(0, -1); + var $13219 = Kind$Term$def$($13212, $13213, (_x$8 => { + var $13220 = Kind$Term$patch_at$($13218, $13214(_x$8), _fn$3); + return $13220; })); - var $14514 = $14518; + var $13215 = $13219; break; case 'e': - var $14520 = _fn$3(_term$2); - var $14514 = $14520; + var $13221 = _fn$3(_term$2); + var $13215 = $13221; break; }; - var $14474 = $14514; + var $13175 = $13215; break; case 'Kind.Term.ann': - var $14521 = self.done; - var $14522 = self.term; - var $14523 = self.type; + var $13222 = self.done; + var $13223 = self.term; + var $13224 = self.type; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14525 = self.slice(0, -1); - var $14526 = Kind$Term$ann$($14521, Kind$Term$patch_at$($14525, $14522, _fn$3), $14523); - var $14524 = $14526; + var $13226 = self.slice(0, -1); + var $13227 = Kind$Term$ann$($13222, Kind$Term$patch_at$($13226, $13223, _fn$3), $13224); + var $13225 = $13227; break; case 'i': - var $14527 = self.slice(0, -1); - var $14528 = Kind$Term$ann$($14521, $14522, Kind$Term$patch_at$($14527, $14523, _fn$3)); - var $14524 = $14528; + var $13228 = self.slice(0, -1); + var $13229 = Kind$Term$ann$($13222, $13223, Kind$Term$patch_at$($13228, $13224, _fn$3)); + var $13225 = $13229; break; case 'e': - var $14529 = _fn$3(_term$2); - var $14524 = $14529; + var $13230 = _fn$3(_term$2); + var $13225 = $13230; break; }; - var $14474 = $14524; + var $13175 = $13225; break; case 'Kind.Term.cse': - var $14530 = self.path; - var $14531 = self.expr; - var $14532 = self.name; - var $14533 = self.with; - var $14534 = self.cses; - var $14535 = self.moti; + var $13231 = self.path; + var $13232 = self.expr; + var $13233 = self.name; + var $13234 = self.with; + var $13235 = self.cses; + var $13236 = self.moti; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14537 = self.slice(0, -1); - var $14538 = Kind$Term$cse$($14530, Kind$Term$patch_at$($14537, $14531, _fn$3), $14532, $14533, $14534, $14535); - var $14536 = $14538; + var $13238 = self.slice(0, -1); + var $13239 = Kind$Term$cse$($13231, Kind$Term$patch_at$($13238, $13232, _fn$3), $13233, $13234, $13235, $13236); + var $13237 = $13239; break; case 'e': - var $14539 = _fn$3(_term$2); - var $14536 = $14539; + var $13240 = _fn$3(_term$2); + var $13237 = $13240; break; case 'i': - var $14540 = _term$2; - var $14536 = $14540; + var $13241 = _term$2; + var $13237 = $13241; break; }; - var $14474 = $14536; + var $13175 = $13237; break; case 'Kind.Term.new': - var $14541 = self.args; + var $13242 = self.args; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $14543 = _fn$3(_term$2); - var $14542 = $14543; + var $13244 = _fn$3(_term$2); + var $13243 = $13244; break; case 'o': case 'i': - var $14544 = Kind$Term$new$(Kind$Path$patch_at$list$(_path$1, $14541, (_arg_path$6 => _arg$7 => { - var $14545 = Kind$Term$patch_at$(_arg_path$6, _arg$7, _fn$3); - return $14545; + var $13245 = Kind$Term$new$(Kind$Path$patch_at$list$(_path$1, $13242, (_arg_path$6 => _arg$7 => { + var $13246 = Kind$Term$patch_at$(_arg_path$6, _arg$7, _fn$3); + return $13246; }))); - var $14542 = $14544; + var $13243 = $13245; break; }; - var $14474 = $14542; + var $13175 = $13243; break; case 'Kind.Term.get': - var $14546 = self.expr; - var $14547 = self.fkey; + var $13247 = self.expr; + var $13248 = self.fkey; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14549 = self.slice(0, -1); - var $14550 = Kind$Term$get$(Kind$Term$patch_at$($14549, $14546, _fn$3), $14547); - var $14548 = $14550; + var $13250 = self.slice(0, -1); + var $13251 = Kind$Term$get$(Kind$Term$patch_at$($13250, $13247, _fn$3), $13248); + var $13249 = $13251; break; case 'i': - var $14551 = self.slice(0, -1); - var $14552 = Kind$Term$get$(Kind$Term$patch_at$($14551, $14546, _fn$3), $14547); - var $14548 = $14552; + var $13252 = self.slice(0, -1); + var $13253 = Kind$Term$get$(Kind$Term$patch_at$($13252, $13247, _fn$3), $13248); + var $13249 = $13253; break; case 'e': - var $14553 = _fn$3(_term$2); - var $14548 = $14553; + var $13254 = _fn$3(_term$2); + var $13249 = $13254; break; }; - var $14474 = $14548; + var $13175 = $13249; break; case 'Kind.Term.set': - var $14554 = self.expr; - var $14555 = self.fkey; - var $14556 = self.fval; + var $13255 = self.expr; + var $13256 = self.fkey; + var $13257 = self.fval; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14558 = self.slice(0, -1); - var $14559 = Kind$Term$set$(Kind$Term$patch_at$($14558, $14554, _fn$3), $14555, $14556); - var $14557 = $14559; + var $13259 = self.slice(0, -1); + var $13260 = Kind$Term$set$(Kind$Term$patch_at$($13259, $13255, _fn$3), $13256, $13257); + var $13258 = $13260; break; case 'i': - var $14560 = self.slice(0, -1); - var $14561 = Kind$Term$set$($14554, $14555, Kind$Term$patch_at$($14560, $14556, _fn$3)); - var $14557 = $14561; + var $13261 = self.slice(0, -1); + var $13262 = Kind$Term$set$($13255, $13256, Kind$Term$patch_at$($13261, $13257, _fn$3)); + var $13258 = $13262; break; case 'e': - var $14562 = _fn$3(_term$2); - var $14557 = $14562; + var $13263 = _fn$3(_term$2); + var $13258 = $13263; break; }; - var $14474 = $14557; + var $13175 = $13258; break; case 'Kind.Term.ope': - var $14563 = self.name; - var $14564 = self.arg0; - var $14565 = self.arg1; + var $13264 = self.name; + var $13265 = self.arg0; + var $13266 = self.arg1; var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14567 = self.slice(0, -1); - var $14568 = Kind$Term$ope$($14563, Kind$Term$patch_at$($14567, $14564, _fn$3), $14565); - var $14566 = $14568; + var $13268 = self.slice(0, -1); + var $13269 = Kind$Term$ope$($13264, Kind$Term$patch_at$($13268, $13265, _fn$3), $13266); + var $13267 = $13269; break; case 'i': - var $14569 = self.slice(0, -1); - var $14570 = Kind$Term$ope$($14563, $14564, Kind$Term$patch_at$($14569, $14565, _fn$3)); - var $14566 = $14570; + var $13270 = self.slice(0, -1); + var $13271 = Kind$Term$ope$($13264, $13265, Kind$Term$patch_at$($13270, $13266, _fn$3)); + var $13267 = $13271; break; case 'e': - var $14571 = _fn$3(_term$2); - var $14566 = $14571; + var $13272 = _fn$3(_term$2); + var $13267 = $13272; break; }; - var $14474 = $14566; + var $13175 = $13267; break; case 'Kind.Term.ori': - var $14572 = self.orig; - var $14573 = self.expr; - var $14574 = Kind$Term$ori$($14572, Kind$Term$patch_at$(_path$1, $14573, _fn$3)); - var $14474 = $14574; + var $13273 = self.orig; + var $13274 = self.expr; + var $13275 = Kind$Term$ori$($13273, Kind$Term$patch_at$(_path$1, $13274, _fn$3)); + var $13175 = $13275; break; case 'Kind.Term.var': var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $14576 = _fn$3(_term$2); - var $14575 = $14576; + var $13277 = _fn$3(_term$2); + var $13276 = $13277; break; case 'o': case 'i': - var $14577 = _term$2; - var $14575 = $14577; + var $13278 = _term$2; + var $13276 = $13278; break; }; - var $14474 = $14575; + var $13175 = $13276; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -47185,50 +43137,50 @@ module.exports = (function() { var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $14579 = _fn$3(_term$2); - var $14578 = $14579; + var $13280 = _fn$3(_term$2); + var $13279 = $13280; break; case 'o': case 'i': - var $14580 = _term$2; - var $14578 = $14580; + var $13281 = _term$2; + var $13279 = $13281; break; }; - var $14474 = $14578; + var $13175 = $13279; break; case 'Kind.Term.typ': var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $14582 = _fn$3(_term$2); - var $14581 = $14582; + var $13283 = _fn$3(_term$2); + var $13282 = $13283; break; case 'o': case 'i': - var $14583 = _term$2; - var $14581 = $14583; + var $13284 = _term$2; + var $13282 = $13284; break; }; - var $14474 = $14581; + var $13175 = $13282; break; case 'Kind.Term.gol': case 'Kind.Term.num': var self = _path$1; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'e': - var $14585 = _fn$3(_term$2); - var $14584 = $14585; + var $13286 = _fn$3(_term$2); + var $13285 = $13286; break; case 'o': case 'i': - var $14586 = _term$2; - var $14584 = $14586; + var $13287 = _term$2; + var $13285 = $13287; break; }; - var $14474 = $14584; + var $13175 = $13285; break; }; - return $14474; + return $13175; }; const Kind$Term$patch_at = x0 => x1 => x2 => Kind$Term$patch_at$(x0, x1, x2); @@ -47236,134 +43188,134 @@ module.exports = (function() { var self = _errs$10; switch (self._) { case 'List.cons': - var $14588 = self.head; - var $14589 = self.tail; - var self = $14588; + var $13289 = self.head; + var $13290 = self.tail; + var self = $13289; switch (self._) { case 'Kind.Error.waiting': - var $14591 = self.name; - var $14592 = IO$monad$((_m$bind$15 => _m$pure$16 => { - var $14593 = _m$bind$15; - return $14593; - }))(Kind$Synth$one$($14591, _defs$9))((_new_defs$15 => { + var $13292 = self.name; + var $13293 = IO$monad$((_m$bind$15 => _m$pure$16 => { + var $13294 = _m$bind$15; + return $13294; + }))(Kind$Synth$one$($13292, _defs$9))((_new_defs$15 => { var self = _new_defs$15; switch (self._) { case 'Maybe.some': - var $14595 = self.value; - var $14596 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $14595, $14589, Bool$true); - var $14594 = $14596; + var $13296 = self.value; + var $13297 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $13296, $13290, Bool$true); + var $13295 = $13297; break; case 'Maybe.none': - var $14597 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $14589, _fixd$11); - var $14594 = $14597; + var $13298 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $13290, _fixd$11); + var $13295 = $13298; break; }; - return $14594; + return $13295; })); - var $14590 = $14592; + var $13291 = $13293; break; case 'Kind.Error.patch': - var $14598 = self.path; - var $14599 = self.term; - var self = $14598; + var $13299 = self.path; + var $13300 = self.term; + var self = $13299; switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { case 'o': - var $14601 = self.slice(0, -1); - var _term$17 = Kind$Term$patch_at$($14601, _term$5, (_x$17 => { - var $14603 = $14599; - return $14603; + var $13302 = self.slice(0, -1); + var _term$17 = Kind$Term$patch_at$($13302, _term$5, (_x$17 => { + var $13304 = $13300; + return $13304; })); - var $14602 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$17, _type$6, _isct$7, _arit$8, _defs$9, $14589, Bool$true); - var $14600 = $14602; + var $13303 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$17, _type$6, _isct$7, _arit$8, _defs$9, $13290, Bool$true); + var $13301 = $13303; break; case 'i': - var $14604 = self.slice(0, -1); - var _type$17 = Kind$Term$patch_at$($14604, _type$6, (_x$17 => { - var $14606 = $14599; - return $14606; + var $13305 = self.slice(0, -1); + var _type$17 = Kind$Term$patch_at$($13305, _type$6, (_x$17 => { + var $13307 = $13300; + return $13307; })); - var $14605 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$17, _isct$7, _arit$8, _defs$9, $14589, Bool$true); - var $14600 = $14605; + var $13306 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$17, _isct$7, _arit$8, _defs$9, $13290, Bool$true); + var $13301 = $13306; break; case 'e': - var $14607 = IO$monad$((_m$bind$16 => _m$pure$17 => { - var $14608 = _m$pure$17; - return $14608; + var $13308 = IO$monad$((_m$bind$16 => _m$pure$17 => { + var $13309 = _m$pure$17; + return $13309; }))(Maybe$none); - var $14600 = $14607; + var $13301 = $13308; break; }; - var $14590 = $14600; + var $13291 = $13301; break; case 'Kind.Error.undefined_reference': - var $14609 = self.name; - var $14610 = IO$monad$((_m$bind$16 => _m$pure$17 => { - var $14611 = _m$bind$16; - return $14611; - }))(Kind$Synth$one$($14609, _defs$9))((_new_defs$16 => { + var $13310 = self.name; + var $13311 = IO$monad$((_m$bind$16 => _m$pure$17 => { + var $13312 = _m$bind$16; + return $13312; + }))(Kind$Synth$one$($13310, _defs$9))((_new_defs$16 => { var self = _new_defs$16; switch (self._) { case 'Maybe.some': - var $14613 = self.value; - var $14614 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $14613, $14589, Bool$true); - var $14612 = $14614; + var $13314 = self.value; + var $13315 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, $13314, $13290, Bool$true); + var $13313 = $13315; break; case 'Maybe.none': - var $14615 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $14589, _fixd$11); - var $14612 = $14615; + var $13316 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $13290, _fixd$11); + var $13313 = $13316; break; }; - return $14612; + return $13313; })); - var $14590 = $14610; + var $13291 = $13311; break; case 'Kind.Error.type_mismatch': case 'Kind.Error.show_goal': case 'Kind.Error.indirect': case 'Kind.Error.cant_infer': - var $14616 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $14589, _fixd$11); - var $14590 = $14616; + var $13317 = Kind$Synth$fix$(_file$1, _code$2, _orig$3, _name$4, _term$5, _type$6, _isct$7, _arit$8, _defs$9, $13290, _fixd$11); + var $13291 = $13317; break; }; - var $14587 = $14590; + var $13288 = $13291; break; case 'List.nil': var self = _fixd$11; if (self) { var _type$12 = Kind$Term$bind$(List$nil, (_x$12 => { - var $14619 = (_x$12 + '1'); - return $14619; + var $13320 = (_x$12 + '1'); + return $13320; }), _type$6); var _term$13 = Kind$Term$bind$(List$nil, (_x$13 => { - var $14620 = (_x$13 + '0'); - return $14620; + var $13321 = (_x$13 + '0'); + return $13321; }), _term$5); var _defs$14 = Kind$Map$set$(_name$4, Kind$Def$new$(_file$1, _code$2, _orig$3, _name$4, _term$13, _type$12, _isct$7, _arit$8, Kind$Status$init), _defs$9); - var $14618 = IO$monad$((_m$bind$15 => _m$pure$16 => { - var $14621 = _m$pure$16; - return $14621; + var $13319 = IO$monad$((_m$bind$15 => _m$pure$16 => { + var $13322 = _m$pure$16; + return $13322; }))(Maybe$some$(_defs$14)); - var $14617 = $14618; + var $13318 = $13319; } else { - var $14622 = IO$monad$((_m$bind$12 => _m$pure$13 => { - var $14623 = _m$pure$13; - return $14623; + var $13323 = IO$monad$((_m$bind$12 => _m$pure$13 => { + var $13324 = _m$pure$13; + return $13324; }))(Maybe$none); - var $14617 = $14622; + var $13318 = $13323; }; - var $14587 = $14617; + var $13288 = $13318; break; }; - return $14587; + return $13288; }; const Kind$Synth$fix = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => x9 => x10 => Kind$Synth$fix$(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10); function Kind$Status$fail$(_errors$1) { - var $14624 = ({ + var $13325 = ({ _: 'Kind.Status.fail', 'errors': _errors$1 }); - return $14624; + return $13325; }; const Kind$Status$fail = x0 => Kind$Status$fail$(x0); @@ -47371,28 +43323,28 @@ module.exports = (function() { var self = Kind$Map$get$(_name$1, _defs$2); switch (self._) { case 'Maybe.some': - var $14626 = self.value; - var self = $14626; + var $13327 = self.value; + var self = $13327; switch (self._) { case 'Kind.Def.new': - var $14628 = self.file; - var $14629 = self.code; - var $14630 = self.orig; - var $14631 = self.name; - var $14632 = self.term; - var $14633 = self.type; - var $14634 = self.isct; - var $14635 = self.arit; - var $14636 = self.stat; - var _file$13 = $14628; - var _code$14 = $14629; - var _orig$15 = $14630; - var _name$16 = $14631; - var _term$17 = $14632; - var _type$18 = $14633; - var _isct$19 = $14634; - var _arit$20 = $14635; - var _stat$21 = $14636; + var $13329 = self.file; + var $13330 = self.code; + var $13331 = self.orig; + var $13332 = self.name; + var $13333 = self.term; + var $13334 = self.type; + var $13335 = self.isct; + var $13336 = self.arit; + var $13337 = self.stat; + var _file$13 = $13329; + var _code$14 = $13330; + var _orig$15 = $13331; + var _name$16 = $13332; + var _term$17 = $13333; + var _type$18 = $13334; + var _isct$19 = $13335; + var _arit$20 = $13336; + var _stat$21 = $13337; var self = _stat$21; switch (self._) { case 'Kind.Status.init': @@ -47400,173 +43352,173 @@ module.exports = (function() { var self = Kind$Term$check$(_type$18, Maybe$some$(Kind$Term$typ), _defs$22, List$nil, Kind$Path$Maybe$Builder$i$(Kind$Path$Maybe$Builder$nil), Maybe$none); switch (self._) { case 'Kind.Check.result': - var $14639 = self.value; - var $14640 = self.errors; - var self = $14639; + var $13340 = self.value; + var $13341 = self.errors; + var self = $13340; switch (self._) { case 'Maybe.none': - var $14642 = Kind$Check$result$(Maybe$none, $14640); - var $14641 = $14642; + var $13343 = Kind$Check$result$(Maybe$none, $13341); + var $13342 = $13343; break; case 'Maybe.some': var self = Kind$Term$check$(_term$17, Maybe$some$(_type$18), _defs$22, List$nil, Kind$Path$Maybe$Builder$o$(Kind$Path$Maybe$Builder$nil), Maybe$none); switch (self._) { case 'Kind.Check.result': - var $14644 = self.value; - var $14645 = self.errors; - var self = $14644; + var $13345 = self.value; + var $13346 = self.errors; + var self = $13345; switch (self._) { case 'Maybe.none': - var $14647 = Kind$Check$result$(Maybe$none, $14645); - var $14646 = $14647; + var $13348 = Kind$Check$result$(Maybe$none, $13346); + var $13347 = $13348; break; case 'Maybe.some': var self = Kind$Check$result$(Maybe$some$(Unit$new), List$nil); switch (self._) { case 'Kind.Check.result': - var $14649 = self.value; - var $14650 = self.errors; - var $14651 = Kind$Check$result$($14649, List$concat$($14645, $14650)); - var $14648 = $14651; + var $13350 = self.value; + var $13351 = self.errors; + var $13352 = Kind$Check$result$($13350, List$concat$($13346, $13351)); + var $13349 = $13352; break; }; - var $14646 = $14648; + var $13347 = $13349; break; }; - var self = $14646; + var self = $13347; break; }; switch (self._) { case 'Kind.Check.result': - var $14652 = self.value; - var $14653 = self.errors; - var $14654 = Kind$Check$result$($14652, List$concat$($14640, $14653)); - var $14643 = $14654; + var $13353 = self.value; + var $13354 = self.errors; + var $13355 = Kind$Check$result$($13353, List$concat$($13341, $13354)); + var $13344 = $13355; break; }; - var $14641 = $14643; + var $13342 = $13344; break; }; - var _checked$23 = $14641; + var _checked$23 = $13342; break; }; var self = _checked$23; switch (self._) { case 'Kind.Check.result': - var $14655 = self.errors; - var self = List$is_empty$($14655); + var $13356 = self.errors; + var self = List$is_empty$($13356); if (self) { var _defs$26 = Kind$Map$def$(_file$13, _code$14, _orig$15, _name$16, _term$17, _type$18, _isct$19, _arit$20, Bool$true, _defs$22); - var $14657 = IO$monad$((_m$bind$27 => _m$pure$28 => { - var $14658 = _m$pure$28; - return $14658; + var $13358 = IO$monad$((_m$bind$27 => _m$pure$28 => { + var $13359 = _m$pure$28; + return $13359; }))(Maybe$some$(_defs$26)); - var $14656 = $14657; + var $13357 = $13358; } else { - var $14659 = IO$monad$((_m$bind$26 => _m$pure$27 => { - var $14660 = _m$bind$26; - return $14660; - }))(Kind$Synth$fix$(_file$13, _code$14, _orig$15, _name$16, _term$17, _type$18, _isct$19, _arit$20, _defs$22, $14655, Bool$false))((_fixed$26 => { + var $13360 = IO$monad$((_m$bind$26 => _m$pure$27 => { + var $13361 = _m$bind$26; + return $13361; + }))(Kind$Synth$fix$(_file$13, _code$14, _orig$15, _name$16, _term$17, _type$18, _isct$19, _arit$20, _defs$22, $13356, Bool$false))((_fixed$26 => { var self = _fixed$26; switch (self._) { case 'Maybe.some': - var $14662 = self.value; - var $14663 = Kind$Synth$one$(_name$16, $14662); - var $14661 = $14663; + var $13363 = self.value; + var $13364 = Kind$Synth$one$(_name$16, $13363); + var $13362 = $13364; break; case 'Maybe.none': - var _stat$27 = Kind$Status$fail$($14655); + var _stat$27 = Kind$Status$fail$($13356); var _defs$28 = Kind$Map$set$(_name$16, Kind$Def$new$(_file$13, _code$14, _orig$15, _name$16, _term$17, _type$18, _isct$19, _arit$20, _stat$27), _defs$22); - var $14664 = IO$monad$((_m$bind$29 => _m$pure$30 => { - var $14665 = _m$pure$30; - return $14665; + var $13365 = IO$monad$((_m$bind$29 => _m$pure$30 => { + var $13366 = _m$pure$30; + return $13366; }))(Maybe$some$(_defs$28)); - var $14661 = $14664; + var $13362 = $13365; break; }; - return $14661; + return $13362; })); - var $14656 = $14659; + var $13357 = $13360; }; - var $14638 = $14656; + var $13339 = $13357; break; }; - var $14637 = $14638; + var $13338 = $13339; break; case 'Kind.Status.wait': - var $14666 = IO$monad$((_m$bind$22 => _m$pure$23 => { - var $14667 = _m$pure$23; - return $14667; + var $13367 = IO$monad$((_m$bind$22 => _m$pure$23 => { + var $13368 = _m$pure$23; + return $13368; }))(Maybe$some$(_defs$2)); - var $14637 = $14666; + var $13338 = $13367; break; case 'Kind.Status.done': case 'Kind.Status.fail': - var $14668 = IO$monad$((_m$bind$23 => _m$pure$24 => { - var $14669 = _m$pure$24; - return $14669; + var $13369 = IO$monad$((_m$bind$23 => _m$pure$24 => { + var $13370 = _m$pure$24; + return $13370; }))(Maybe$some$(_defs$2)); - var $14637 = $14668; + var $13338 = $13369; break; }; - var $14627 = $14637; + var $13328 = $13338; break; }; - var $14625 = $14627; + var $13326 = $13328; break; case 'Maybe.none': - var $14670 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $14671 = _m$bind$3; - return $14671; + var $13371 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $13372 = _m$bind$3; + return $13372; }))(IO$get_time)((_time_a$3 => { - var $14672 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $14673 = _m$bind$4; - return $14673; + var $13373 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $13374 = _m$bind$4; + return $13374; }))(Kind$Synth$load$(_name$1, _defs$2))((_loaded$4 => { var self = _loaded$4; switch (self._) { case 'Maybe.some': - var $14675 = self.value; - var $14676 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $14677 = _m$bind$6; - return $14677; + var $13376 = self.value; + var $13377 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $13378 = _m$bind$6; + return $13378; }))(IO$get_time)((_time_b$6 => { - var $14678 = IO$monad$((_m$bind$7 => _m$pure$8 => { - var $14679 = _m$bind$7; - return $14679; - }))(Kind$Synth$one$(_name$1, $14675))((_result$7 => { - var $14680 = IO$monad$((_m$bind$8 => _m$pure$9 => { - var $14681 = _m$bind$8; - return $14681; + var $13379 = IO$monad$((_m$bind$7 => _m$pure$8 => { + var $13380 = _m$bind$7; + return $13380; + }))(Kind$Synth$one$(_name$1, $13376))((_result$7 => { + var $13381 = IO$monad$((_m$bind$8 => _m$pure$9 => { + var $13382 = _m$bind$8; + return $13382; }))(IO$get_time)((_time_c$8 => { - var $14682 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $14683 = _m$pure$10; - return $14683; + var $13383 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $13384 = _m$pure$10; + return $13384; }))(_result$7); - return $14682; + return $13383; })); - return $14680; + return $13381; })); - return $14678; + return $13379; })); - var $14674 = $14676; + var $13375 = $13377; break; case 'Maybe.none': - var $14684 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $14685 = _m$pure$6; - return $14685; + var $13385 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $13386 = _m$pure$6; + return $13386; }))(Maybe$none); - var $14674 = $14684; + var $13375 = $13385; break; }; - return $14674; + return $13375; })); - return $14672; + return $13373; })); - var $14625 = $14670; + var $13326 = $13371; break; }; - return $14625; + return $13326; }; const Kind$Synth$one = x0 => x1 => Kind$Synth$one$(x0, x1); @@ -47574,91 +43526,91 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'List.cons': - var $14687 = self.head; - var $14688 = self.tail; - var self = $14687; + var $13388 = self.head; + var $13389 = self.tail; + var self = $13388; switch (self._) { case 'Pair.new': - var $14690 = self.fst; - var $14691 = self.snd; - var $14692 = (bitsmap_set($14690, $14691, BitsMap$from_list$($14688), 'set')); - var $14689 = $14692; + var $13391 = self.fst; + var $13392 = self.snd; + var $13393 = (bitsmap_set($13391, $13392, BitsMap$from_list$($13389), 'set')); + var $13390 = $13393; break; }; - var $14686 = $14689; + var $13387 = $13390; break; case 'List.nil': - var $14693 = BitsMap$new; - var $14686 = $14693; + var $13394 = BitsMap$new; + var $13387 = $13394; break; }; - return $14686; + return $13387; }; const BitsMap$from_list = x0 => BitsMap$from_list$(x0); const Kind$Term$inline$names = (() => { var _inl$1 = List$cons$("Monad.pure", List$cons$("Monad.bind", List$cons$("Monad.new", List$cons$("Parser.monad", List$cons$("Parser.bind", List$cons$("Parser.pure", List$cons$("Kind.Check.pure", List$cons$("Kind.Check.bind", List$cons$("Kind.Check.monad", List$cons$("Kind.Check.value", List$cons$("Kind.Check.none", List$nil))))))))))); var _kvs$2 = List$mapped$(_inl$1, (_x$2 => { - var $14695 = Pair$new$((kind_name_to_bits(_x$2)), Unit$new); - return $14695; + var $13396 = Pair$new$((kind_name_to_bits(_x$2)), Unit$new); + return $13396; })); - var $14694 = BitsMap$from_list$(_kvs$2); - return $14694; + var $13395 = BitsMap$from_list$(_kvs$2); + return $13395; })(); function Kind$Term$inline$reduce$(_term$1, _defs$2) { var self = _term$1; switch (self._) { case 'Kind.Term.ref': - var $14697 = self.name; - var _inli$4 = BitsSet$has$((kind_name_to_bits($14697)), Kind$Term$inline$names); + var $13398 = self.name; + var _inli$4 = BitsSet$has$((kind_name_to_bits($13398)), Kind$Term$inline$names); var self = _inli$4; if (self) { - var self = Kind$Map$get$($14697, _defs$2); + var self = Kind$Map$get$($13398, _defs$2); switch (self._) { case 'Maybe.some': - var $14700 = self.value; - var self = $14700; + var $13401 = self.value; + var self = $13401; switch (self._) { case 'Kind.Def.new': - var $14702 = self.term; - var $14703 = Kind$Term$inline$reduce$($14702, _defs$2); - var $14701 = $14703; + var $13403 = self.term; + var $13404 = Kind$Term$inline$reduce$($13403, _defs$2); + var $13402 = $13404; break; }; - var $14699 = $14701; + var $13400 = $13402; break; case 'Maybe.none': - var $14704 = Kind$Term$ref$($14697); - var $14699 = $14704; + var $13405 = Kind$Term$ref$($13398); + var $13400 = $13405; break; }; - var $14698 = $14699; + var $13399 = $13400; } else { - var $14705 = _term$1; - var $14698 = $14705; + var $13406 = _term$1; + var $13399 = $13406; }; - var $14696 = $14698; + var $13397 = $13399; break; case 'Kind.Term.app': - var $14706 = self.func; - var $14707 = self.argm; - var _func$5 = Kind$Term$inline$reduce$($14706, _defs$2); + var $13407 = self.func; + var $13408 = self.argm; + var _func$5 = Kind$Term$inline$reduce$($13407, _defs$2); var self = _func$5; switch (self._) { case 'Kind.Term.lam': - var $14709 = self.body; - var $14710 = Kind$Term$inline$reduce$($14709($14707), _defs$2); - var $14708 = $14710; + var $13410 = self.body; + var $13411 = Kind$Term$inline$reduce$($13410($13408), _defs$2); + var $13409 = $13411; break; case 'Kind.Term.let': - var $14711 = self.name; - var $14712 = self.expr; - var $14713 = self.body; - var $14714 = Kind$Term$let$($14711, $14712, (_x$9 => { - var $14715 = Kind$Term$inline$reduce$(Kind$Term$app$($14713(_x$9), $14707), _defs$2); - return $14715; + var $13412 = self.name; + var $13413 = self.expr; + var $13414 = self.body; + var $13415 = Kind$Term$let$($13412, $13413, (_x$9 => { + var $13416 = Kind$Term$inline$reduce$(Kind$Term$app$($13414(_x$9), $13408), _defs$2); + return $13416; })); - var $14708 = $14714; + var $13409 = $13415; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -47679,16 +43631,16 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14716 = _term$1; - var $14708 = $14716; + var $13417 = _term$1; + var $13409 = $13417; break; }; - var $14696 = $14708; + var $13397 = $13409; break; case 'Kind.Term.ori': - var $14717 = self.expr; - var $14718 = Kind$Term$inline$reduce$($14717, _defs$2); - var $14696 = $14718; + var $13418 = self.expr; + var $13419 = Kind$Term$inline$reduce$($13418, _defs$2); + var $13397 = $13419; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -47708,11 +43660,11 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $14719 = _term$1; - var $14696 = $14719; + var $13420 = _term$1; + var $13397 = $13420; break; }; - return $14696; + return $13397; }; const Kind$Term$inline$reduce = x0 => x1 => Kind$Term$inline$reduce$(x0, x1); @@ -47720,105 +43672,105 @@ module.exports = (function() { var self = Kind$Term$inline$reduce$(_term$1, _defs$2); switch (self._) { case 'Kind.Term.var': - var $14721 = self.name; - var $14722 = self.indx; - var $14723 = Kind$Term$var$($14721, $14722); - var $14720 = $14723; + var $13422 = self.name; + var $13423 = self.indx; + var $13424 = Kind$Term$var$($13422, $13423); + var $13421 = $13424; break; case 'Kind.Term.ref': - var $14724 = self.name; - var $14725 = Kind$Term$ref$($14724); - var $14720 = $14725; + var $13425 = self.name; + var $13426 = Kind$Term$ref$($13425); + var $13421 = $13426; break; case 'Kind.Term.all': - var $14726 = self.eras; - var $14727 = self.self; - var $14728 = self.name; - var $14729 = self.xtyp; - var $14730 = self.body; - var $14731 = Kind$Term$all$($14726, $14727, $14728, Kind$Term$inline$($14729, _defs$2), (_s$8 => _x$9 => { - var $14732 = Kind$Term$inline$($14730(_s$8)(_x$9), _defs$2); - return $14732; + var $13427 = self.eras; + var $13428 = self.self; + var $13429 = self.name; + var $13430 = self.xtyp; + var $13431 = self.body; + var $13432 = Kind$Term$all$($13427, $13428, $13429, Kind$Term$inline$($13430, _defs$2), (_s$8 => _x$9 => { + var $13433 = Kind$Term$inline$($13431(_s$8)(_x$9), _defs$2); + return $13433; })); - var $14720 = $14731; + var $13421 = $13432; break; case 'Kind.Term.lam': - var $14733 = self.name; - var $14734 = self.body; - var $14735 = Kind$Term$lam$($14733, (_x$5 => { - var $14736 = Kind$Term$inline$($14734(_x$5), _defs$2); - return $14736; + var $13434 = self.name; + var $13435 = self.body; + var $13436 = Kind$Term$lam$($13434, (_x$5 => { + var $13437 = Kind$Term$inline$($13435(_x$5), _defs$2); + return $13437; })); - var $14720 = $14735; + var $13421 = $13436; break; case 'Kind.Term.app': - var $14737 = self.func; - var $14738 = self.argm; - var $14739 = Kind$Term$app$(Kind$Term$inline$($14737, _defs$2), Kind$Term$inline$($14738, _defs$2)); - var $14720 = $14739; + var $13438 = self.func; + var $13439 = self.argm; + var $13440 = Kind$Term$app$(Kind$Term$inline$($13438, _defs$2), Kind$Term$inline$($13439, _defs$2)); + var $13421 = $13440; break; case 'Kind.Term.let': - var $14740 = self.name; - var $14741 = self.expr; - var $14742 = self.body; - var $14743 = Kind$Term$let$($14740, Kind$Term$inline$($14741, _defs$2), (_x$6 => { - var $14744 = Kind$Term$inline$($14742(_x$6), _defs$2); - return $14744; + var $13441 = self.name; + var $13442 = self.expr; + var $13443 = self.body; + var $13444 = Kind$Term$let$($13441, Kind$Term$inline$($13442, _defs$2), (_x$6 => { + var $13445 = Kind$Term$inline$($13443(_x$6), _defs$2); + return $13445; })); - var $14720 = $14743; + var $13421 = $13444; break; case 'Kind.Term.def': - var $14745 = self.name; - var $14746 = self.expr; - var $14747 = self.body; - var $14748 = Kind$Term$def$($14745, Kind$Term$inline$($14746, _defs$2), (_x$6 => { - var $14749 = Kind$Term$inline$($14747(_x$6), _defs$2); - return $14749; + var $13446 = self.name; + var $13447 = self.expr; + var $13448 = self.body; + var $13449 = Kind$Term$def$($13446, Kind$Term$inline$($13447, _defs$2), (_x$6 => { + var $13450 = Kind$Term$inline$($13448(_x$6), _defs$2); + return $13450; })); - var $14720 = $14748; + var $13421 = $13449; break; case 'Kind.Term.ann': - var $14750 = self.done; - var $14751 = self.term; - var $14752 = self.type; - var $14753 = Kind$Term$ann$($14750, Kind$Term$inline$($14751, _defs$2), Kind$Term$inline$($14752, _defs$2)); - var $14720 = $14753; + var $13451 = self.done; + var $13452 = self.term; + var $13453 = self.type; + var $13454 = Kind$Term$ann$($13451, Kind$Term$inline$($13452, _defs$2), Kind$Term$inline$($13453, _defs$2)); + var $13421 = $13454; break; case 'Kind.Term.gol': - var $14754 = self.name; - var $14755 = self.dref; - var $14756 = self.verb; - var $14757 = Kind$Term$gol$($14754, $14755, $14756); - var $14720 = $14757; + var $13455 = self.name; + var $13456 = self.dref; + var $13457 = self.verb; + var $13458 = Kind$Term$gol$($13455, $13456, $13457); + var $13421 = $13458; break; case 'Kind.Term.hol': - var $14758 = self.path; - var $14759 = Kind$Term$hol$($14758); - var $14720 = $14759; + var $13459 = self.path; + var $13460 = Kind$Term$hol$($13459); + var $13421 = $13460; break; case 'Kind.Term.nat': - var $14760 = self.natx; - var $14761 = Kind$Term$nat$($14760); - var $14720 = $14761; + var $13461 = self.natx; + var $13462 = Kind$Term$nat$($13461); + var $13421 = $13462; break; case 'Kind.Term.chr': - var $14762 = self.chrx; - var $14763 = Kind$Term$chr$($14762); - var $14720 = $14763; + var $13463 = self.chrx; + var $13464 = Kind$Term$chr$($13463); + var $13421 = $13464; break; case 'Kind.Term.str': - var $14764 = self.strx; - var $14765 = Kind$Term$str$($14764); - var $14720 = $14765; + var $13465 = self.strx; + var $13466 = Kind$Term$str$($13465); + var $13421 = $13466; break; case 'Kind.Term.ori': - var $14766 = self.expr; - var $14767 = Kind$Term$inline$($14766, _defs$2); - var $14720 = $14767; + var $13467 = self.expr; + var $13468 = Kind$Term$inline$($13467, _defs$2); + var $13421 = $13468; break; case 'Kind.Term.typ': - var $14768 = Kind$Term$typ; - var $14720 = $14768; + var $13469 = Kind$Term$typ; + var $13421 = $13469; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -47826,11 +43778,11 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $14769 = _term$1; - var $14720 = $14769; + var $13470 = _term$1; + var $13421 = $13470; break; }; - return $14720; + return $13421; }; const Kind$Term$inline = x0 => x1 => Kind$Term$inline$(x0, x1); @@ -47838,38 +43790,38 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'BitsMap.tie': - var $14771 = self.val; - var $14772 = self.lft; - var $14773 = self.rgt; - var self = $14771; + var $13472 = self.val; + var $13473 = self.lft; + var $13474 = self.rgt; + var self = $13472; switch (self._) { case 'Maybe.some': - var $14775 = self.value; - var $14776 = List$cons$($14775, _list$3); - var _list0$7 = $14776; + var $13476 = self.value; + var $13477 = List$cons$($13476, _list$3); + var _list0$7 = $13477; break; case 'Maybe.none': - var $14777 = _list$3; - var _list0$7 = $14777; + var $13478 = _list$3; + var _list0$7 = $13478; break; }; - var _list1$8 = BitsMap$values$go$($14772, _list0$7); - var _list2$9 = BitsMap$values$go$($14773, _list1$8); - var $14774 = _list2$9; - var $14770 = $14774; + var _list1$8 = BitsMap$values$go$($13473, _list0$7); + var _list2$9 = BitsMap$values$go$($13474, _list1$8); + var $13475 = _list2$9; + var $13471 = $13475; break; case 'BitsMap.new': - var $14778 = _list$3; - var $14770 = $14778; + var $13479 = _list$3; + var $13471 = $13479; break; }; - return $14770; + return $13471; }; const BitsMap$values$go = x0 => x1 => BitsMap$values$go$(x0, x1); function BitsMap$values$(_xs$2) { - var $14779 = BitsMap$values$go$(_xs$2, List$nil); - return $14779; + var $13480 = BitsMap$values$go$(_xs$2, List$nil); + return $13480; }; const BitsMap$values = x0 => BitsMap$values$(x0); @@ -47887,38 +43839,38 @@ module.exports = (function() { if (self === 0n) { var self = _brui$3; if (self === 0n) { - var $14781 = _name$2; - var $14780 = $14781; + var $13482 = _name$2; + var $13481 = $13482; } else { - var $14782 = (self - 1n); - var $14783 = (_name$2 + ("^" + Nat$show$(_brui$3))); - var $14780 = $14783; + var $13483 = (self - 1n); + var $13484 = (_name$2 + ("^" + Nat$show$(_brui$3))); + var $13481 = $13484; }; - return $14780; + return $13481; } else { - var $14784 = (self - 1n); + var $13485 = (self - 1n); var self = _vars$4; switch (self._) { case 'List.cons': - var $14786 = self.head; - var $14787 = self.tail; - var self = (_name$2 === $14786); + var $13487 = self.head; + var $13488 = self.tail; + var self = (_name$2 === $13487); if (self) { - var $14789 = Nat$succ$(_brui$3); - var _brui$8 = $14789; + var $13490 = Nat$succ$(_brui$3); + var _brui$8 = $13490; } else { - var $14790 = _brui$3; - var _brui$8 = $14790; + var $13491 = _brui$3; + var _brui$8 = $13491; }; - var $14788 = Kind$Core$var_name$($14784, _name$2, _brui$8, $14787); - var $14785 = $14788; + var $13489 = Kind$Core$var_name$($13485, _name$2, _brui$8, $13488); + var $13486 = $13489; break; case 'List.nil': - var $14791 = "unbound"; - var $14785 = $14791; + var $13492 = "unbound"; + var $13486 = $13492; break; }; - return $14785; + return $13486; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -47927,105 +43879,213 @@ module.exports = (function() { }; const Kind$Core$var_name = x0 => x1 => x2 => x3 => Kind$Core$var_name$(x0, x1, x2, x3); + function Kind$Name$show$(_name$1) { + var $13493 = _name$1; + return $13493; + }; + const Kind$Name$show = x0 => Kind$Name$show$(x0); + + function Bits$to_nat$(_b$1) { + var self = _b$1; + switch (self.length === 0 ? 'e' : self[self.length - 1] === '0' ? 'o' : 'i') { + case 'o': + var $13495 = self.slice(0, -1); + var $13496 = (2n * Bits$to_nat$($13495)); + var $13494 = $13496; + break; + case 'i': + var $13497 = self.slice(0, -1); + var $13498 = Nat$succ$((2n * Bits$to_nat$($13497))); + var $13494 = $13498; + break; + case 'e': + var $13499 = 0n; + var $13494 = $13499; + break; + }; + return $13494; + }; + const Bits$to_nat = x0 => Bits$to_nat$(x0); + + function U16$show_hex$(_a$1) { + var self = _a$1; + switch ('u16') { + case 'u16': + var $13501 = u16_to_word(self); + var $13502 = Nat$to_string_base$(16n, Bits$to_nat$(Word$to_bits$($13501))); + var $13500 = $13502; + break; + }; + return $13500; + }; + const U16$show_hex = x0 => U16$show_hex$(x0); + + function Kind$Code$escape$char$(_chr$1) { + var self = (_chr$1 === Kind$Code$backslash); + if (self) { + var $13504 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); + var $13503 = $13504; + } else { + var self = (_chr$1 === 34); + if (self) { + var $13506 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); + var $13505 = $13506; + } else { + var self = (_chr$1 === 39); + if (self) { + var $13508 = String$cons$(Kind$Code$backslash, String$cons$(_chr$1, String$nil)); + var $13507 = $13508; + } else { + var self = U16$btw$(32, _chr$1, 126); + if (self) { + var $13510 = String$cons$(_chr$1, String$nil); + var $13509 = $13510; + } else { + var $13511 = (String$cons$(Kind$Code$backslash, String$nil) + ("u{" + (U16$show_hex$(_chr$1) + "}"))); + var $13509 = $13511; + }; + var $13507 = $13509; + }; + var $13505 = $13507; + }; + var $13503 = $13505; + }; + return $13503; + }; + const Kind$Code$escape$char = x0 => Kind$Code$escape$char$(x0); + + function Kind$Code$escape$go$(_str$1, _result$2) { + var Kind$Code$escape$go$ = (_str$1, _result$2) => ({ + ctr: 'TCO', + arg: [_str$1, _result$2] + }); + var Kind$Code$escape$go = _str$1 => _result$2 => Kind$Code$escape$go$(_str$1, _result$2); + var arg = [_str$1, _result$2]; + while (true) { + let [_str$1, _result$2] = arg; + var R = (() => { + var self = _str$1; + if (self.length === 0) { + var $13512 = String$reverse$(_result$2); + return $13512; + } else { + var $13513 = self.charCodeAt(0); + var $13514 = self.slice(1); + var $13515 = Kind$Code$escape$go$($13514, (String$reverse$(Kind$Code$escape$char$($13513)) + _result$2)); + return $13515; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const Kind$Code$escape$go = x0 => x1 => Kind$Code$escape$go$(x0, x1); + + function Kind$Code$escape$(_str$1) { + var $13516 = Kind$Code$escape$go$(_str$1, ""); + return $13516; + }; + const Kind$Code$escape = x0 => Kind$Code$escape$(x0); + function Kind$Core$show$go$(_term$1, _indx$2, _vars$3) { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $14793 = self.name; - var $14794 = self.indx; - var $14795 = Kind$Core$var_name$(Nat$pred$((_indx$2 - $14794 <= 0n ? 0n : _indx$2 - $14794)), $14793, 0n, _vars$3); - var $14792 = $14795; + var $13518 = self.name; + var $13519 = self.indx; + var $13520 = Kind$Core$var_name$(Nat$pred$((_indx$2 - $13519 <= 0n ? 0n : _indx$2 - $13519)), $13518, 0n, _vars$3); + var $13517 = $13520; break; case 'Kind.Term.ref': - var $14796 = self.name; - var $14797 = Kind$Name$show$($14796); - var $14792 = $14797; + var $13521 = self.name; + var $13522 = Kind$Name$show$($13521); + var $13517 = $13522; break; case 'Kind.Term.all': - var $14798 = self.eras; - var $14799 = self.self; - var $14800 = self.name; - var $14801 = self.xtyp; - var $14802 = self.body; - var _eras$9 = $14798; + var $13523 = self.eras; + var $13524 = self.self; + var $13525 = self.name; + var $13526 = self.xtyp; + var $13527 = self.body; + var _eras$9 = $13523; var self = _eras$9; if (self) { - var $14804 = "%"; - var _init$10 = $14804; + var $13529 = "%"; + var _init$10 = $13529; } else { - var $14805 = "@"; - var _init$10 = $14805; + var $13530 = "@"; + var _init$10 = $13530; }; - var _self$11 = Kind$Name$show$($14799); - var _name$12 = Kind$Name$show$($14800); - var _xtyp$13 = Kind$Core$show$go$($14801, _indx$2, _vars$3); - var _body$14 = Kind$Core$show$go$($14802(Kind$Term$var$($14799, _indx$2))(Kind$Term$var$($14800, Nat$succ$(_indx$2))), Nat$succ$(Nat$succ$(_indx$2)), List$cons$($14800, List$cons$($14799, _vars$3))); - var $14803 = String$flatten$(List$cons$(_init$10, List$cons$(_self$11, List$cons$("(", List$cons$(_name$12, List$cons$(":", List$cons$(_xtyp$13, List$cons$(") ", List$cons$(_body$14, List$nil))))))))); - var $14792 = $14803; + var _self$11 = Kind$Name$show$($13524); + var _name$12 = Kind$Name$show$($13525); + var _xtyp$13 = Kind$Core$show$go$($13526, _indx$2, _vars$3); + var _body$14 = Kind$Core$show$go$($13527(Kind$Term$var$($13524, _indx$2))(Kind$Term$var$($13525, Nat$succ$(_indx$2))), Nat$succ$(Nat$succ$(_indx$2)), List$cons$($13525, List$cons$($13524, _vars$3))); + var $13528 = String$flatten$(List$cons$(_init$10, List$cons$(_self$11, List$cons$("(", List$cons$(_name$12, List$cons$(":", List$cons$(_xtyp$13, List$cons$(") ", List$cons$(_body$14, List$nil))))))))); + var $13517 = $13528; break; case 'Kind.Term.lam': - var $14806 = self.name; - var $14807 = self.body; - var _name$6 = Kind$Name$show$($14806); - var _body$7 = Kind$Core$show$go$($14807(Kind$Term$var$($14806, _indx$2)), Nat$succ$(_indx$2), List$cons$($14806, _vars$3)); - var $14808 = String$flatten$(List$cons$("#", List$cons$(_name$6, List$cons$(" ", List$cons$(_body$7, List$nil))))); - var $14792 = $14808; + var $13531 = self.name; + var $13532 = self.body; + var _name$6 = Kind$Name$show$($13531); + var _body$7 = Kind$Core$show$go$($13532(Kind$Term$var$($13531, _indx$2)), Nat$succ$(_indx$2), List$cons$($13531, _vars$3)); + var $13533 = String$flatten$(List$cons$("#", List$cons$(_name$6, List$cons$(" ", List$cons$(_body$7, List$nil))))); + var $13517 = $13533; break; case 'Kind.Term.app': - var $14809 = self.func; - var $14810 = self.argm; - var _func$6 = Kind$Core$show$go$($14809, _indx$2, _vars$3); - var _argm$7 = Kind$Core$show$go$($14810, _indx$2, _vars$3); - var $14811 = String$flatten$(List$cons$("(", List$cons$(_func$6, List$cons$(" ", List$cons$(_argm$7, List$cons$(")", List$nil)))))); - var $14792 = $14811; + var $13534 = self.func; + var $13535 = self.argm; + var _func$6 = Kind$Core$show$go$($13534, _indx$2, _vars$3); + var _argm$7 = Kind$Core$show$go$($13535, _indx$2, _vars$3); + var $13536 = String$flatten$(List$cons$("(", List$cons$(_func$6, List$cons$(" ", List$cons$(_argm$7, List$cons$(")", List$nil)))))); + var $13517 = $13536; break; case 'Kind.Term.let': - var $14812 = self.name; - var $14813 = self.expr; - var $14814 = self.body; - var _name$7 = Kind$Name$show$($14812); - var _expr$8 = Kind$Core$show$go$($14813, _indx$2, _vars$3); - var _body$9 = Kind$Core$show$go$($14814(Kind$Term$var$($14812, _indx$2)), Nat$succ$(_indx$2), List$cons$($14812, _vars$3)); - var $14815 = String$flatten$(List$cons$("!", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); - var $14792 = $14815; + var $13537 = self.name; + var $13538 = self.expr; + var $13539 = self.body; + var _name$7 = Kind$Name$show$($13537); + var _expr$8 = Kind$Core$show$go$($13538, _indx$2, _vars$3); + var _body$9 = Kind$Core$show$go$($13539(Kind$Term$var$($13537, _indx$2)), Nat$succ$(_indx$2), List$cons$($13537, _vars$3)); + var $13540 = String$flatten$(List$cons$("!", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); + var $13517 = $13540; break; case 'Kind.Term.def': - var $14816 = self.name; - var $14817 = self.expr; - var $14818 = self.body; - var _name$7 = Kind$Name$show$($14816); - var _expr$8 = Kind$Core$show$go$($14817, _indx$2, _vars$3); - var _body$9 = Kind$Core$show$go$($14818(Kind$Term$var$($14816, _indx$2)), Nat$succ$(_indx$2), List$cons$($14816, _vars$3)); - var $14819 = String$flatten$(List$cons$("$", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); - var $14792 = $14819; + var $13541 = self.name; + var $13542 = self.expr; + var $13543 = self.body; + var _name$7 = Kind$Name$show$($13541); + var _expr$8 = Kind$Core$show$go$($13542, _indx$2, _vars$3); + var _body$9 = Kind$Core$show$go$($13543(Kind$Term$var$($13541, _indx$2)), Nat$succ$(_indx$2), List$cons$($13541, _vars$3)); + var $13544 = String$flatten$(List$cons$("$", List$cons$(_name$7, List$cons$(" = ", List$cons$(_expr$8, List$cons$("; ", List$cons$(_body$9, List$nil))))))); + var $13517 = $13544; break; case 'Kind.Term.ann': - var $14820 = self.term; - var $14821 = self.type; - var _term$7 = Kind$Core$show$go$($14820, _indx$2, _vars$3); - var _type$8 = Kind$Core$show$go$($14821, _indx$2, _vars$3); - var $14822 = String$flatten$(List$cons$("{", List$cons$(_term$7, List$cons$(":", List$cons$(_type$8, List$cons$("}", List$nil)))))); - var $14792 = $14822; + var $13545 = self.term; + var $13546 = self.type; + var _term$7 = Kind$Core$show$go$($13545, _indx$2, _vars$3); + var _type$8 = Kind$Core$show$go$($13546, _indx$2, _vars$3); + var $13547 = String$flatten$(List$cons$("{", List$cons$(_term$7, List$cons$(":", List$cons$(_type$8, List$cons$("}", List$nil)))))); + var $13517 = $13547; break; case 'Kind.Term.nat': - var $14823 = self.natx; - var $14824 = String$flatten$(List$cons$("+", List$cons$(Nat$show$($14823), List$nil))); - var $14792 = $14824; + var $13548 = self.natx; + var $13549 = String$flatten$(List$cons$("+", List$cons$(Nat$show$($13548), List$nil))); + var $13517 = $13549; break; case 'Kind.Term.chr': - var $14825 = self.chrx; - var $14826 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($14825), List$cons$("\'", List$nil)))); - var $14792 = $14826; + var $13550 = self.chrx; + var $13551 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($13550), List$cons$("\'", List$nil)))); + var $13517 = $13551; break; case 'Kind.Term.str': - var $14827 = self.strx; - var $14828 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($14827), List$cons$("\"", List$nil)))); - var $14792 = $14828; + var $13552 = self.strx; + var $13553 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($13552), List$cons$("\"", List$nil)))); + var $13517 = $13553; break; case 'Kind.Term.ori': - var $14829 = self.expr; - var $14830 = Kind$Core$show$go$($14829, _indx$2, _vars$3); - var $14792 = $14830; + var $13554 = self.expr; + var $13555 = Kind$Core$show$go$($13554, _indx$2, _vars$3); + var $13517 = $13555; break; case 'Kind.Term.typ': case 'Kind.Term.gol': @@ -48036,110 +44096,110 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $14831 = "*"; - var $14792 = $14831; + var $13556 = "*"; + var $13517 = $13556; break; }; - return $14792; + return $13517; }; const Kind$Core$show$go = x0 => x1 => x2 => Kind$Core$show$go$(x0, x1, x2); function Kind$Core$show$(_term$1) { - var $14832 = Kind$Core$show$go$(_term$1, 0n, List$nil); - return $14832; + var $13557 = Kind$Core$show$go$(_term$1, 0n, List$nil); + return $13557; }; const Kind$Core$show = x0 => Kind$Core$show$(x0); function Kind$Defs$core$(_defs$1) { var _result$2 = ""; var _result$3 = (() => { - var $14835 = _result$2; - var $14836 = BitsMap$values$(_defs$1); - let _result$4 = $14835; + var $13560 = _result$2; + var $13561 = BitsMap$values$(_defs$1); + let _result$4 = $13560; let _defn$3; - while ($14836._ === 'List.cons') { - _defn$3 = $14836.head; + while ($13561._ === 'List.cons') { + _defn$3 = $13561.head; var self = _defn$3; switch (self._) { case 'Kind.Def.new': - var $14837 = self.name; - var $14838 = self.term; - var $14839 = self.type; - var $14840 = self.stat; - var self = $14840; + var $13562 = self.name; + var $13563 = self.term; + var $13564 = self.type; + var $13565 = self.stat; + var self = $13565; switch (self._) { case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.fail': - var $14842 = _result$4; - var $14841 = $14842; + var $13567 = _result$4; + var $13566 = $13567; break; case 'Kind.Status.done': - var _name$15 = $14837; - var _term$16 = Kind$Core$show$($14838); - var _type$17 = Kind$Core$show$($14839); - var $14843 = String$flatten$(List$cons$(_result$4, List$cons$(_name$15, List$cons$(" : ", List$cons$(_type$17, List$cons$(" = ", List$cons$(_term$16, List$cons$(";\u{a}", List$nil)))))))); - var $14841 = $14843; + var _name$15 = $13562; + var _term$16 = Kind$Core$show$($13563); + var _type$17 = Kind$Core$show$($13564); + var $13568 = String$flatten$(List$cons$(_result$4, List$cons$(_name$15, List$cons$(" : ", List$cons$(_type$17, List$cons$(" = ", List$cons$(_term$16, List$cons$(";\u{a}", List$nil)))))))); + var $13566 = $13568; break; }; - var $14835 = $14841; + var $13560 = $13566; break; }; - _result$4 = $14835; - $14836 = $14836.tail; + _result$4 = $13560; + $13561 = $13561.tail; } return _result$4; })(); - var $14833 = _result$3; - return $14833; + var $13558 = _result$3; + return $13558; }; const Kind$Defs$core = x0 => Kind$Defs$core$(x0); function Kind$api$io$term_to_core$(_name$1) { - var $14844 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $14845 = _m$bind$2; - return $14845; + var $13569 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $13570 = _m$bind$2; + return $13570; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_new_defs$2 => { var self = _new_defs$2; switch (self._) { case 'Maybe.some': - var $14847 = self.value; - var $14848 = $14847; - var _defs$3 = $14848; + var $13572 = self.value; + var $13573 = $13572; + var _defs$3 = $13573; break; case 'Maybe.none': - var $14849 = Kind$Map$new; - var _defs$3 = $14849; + var $13574 = Kind$Map$new; + var _defs$3 = $13574; break; }; var _defs$4 = BitsMap$map$((_defn$4 => { var self = _defn$4; switch (self._) { case 'Kind.Def.new': - var $14851 = self.file; - var $14852 = self.code; - var $14853 = self.orig; - var $14854 = self.name; - var $14855 = self.term; - var $14856 = self.type; - var $14857 = self.isct; - var $14858 = self.arit; - var $14859 = self.stat; - var _term$14 = Kind$Term$inline$($14855, _defs$3); - var _type$15 = Kind$Term$inline$($14856, _defs$3); - var $14860 = Kind$Def$new$($14851, $14852, $14853, $14854, _term$14, _type$15, $14857, $14858, $14859); - var $14850 = $14860; + var $13576 = self.file; + var $13577 = self.code; + var $13578 = self.orig; + var $13579 = self.name; + var $13580 = self.term; + var $13581 = self.type; + var $13582 = self.isct; + var $13583 = self.arit; + var $13584 = self.stat; + var _term$14 = Kind$Term$inline$($13580, _defs$3); + var _type$15 = Kind$Term$inline$($13581, _defs$3); + var $13585 = Kind$Def$new$($13576, $13577, $13578, $13579, _term$14, _type$15, $13582, $13583, $13584); + var $13575 = $13585; break; }; - return $14850; + return $13575; }), _defs$3); - var $14846 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $14861 = _m$pure$6; - return $14861; + var $13571 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $13586 = _m$pure$6; + return $13586; }))(Kind$Defs$core$(_defs$4)); - return $14846; + return $13571; })); - return $14844; + return $13569; }; const Kind$api$io$term_to_core = x0 => Kind$api$io$term_to_core$(x0); @@ -48147,31 +44207,31 @@ module.exports = (function() { var self = _defn$1; switch (self._) { case 'Kind.Def.new': - var $14863 = self.file; - var $14864 = self.code; - var $14865 = self.orig; - var $14866 = self.name; - var $14867 = self.term; - var $14868 = self.type; - var $14869 = self.isct; - var $14870 = self.arit; - var $14871 = self.stat; - var _term$12 = Kind$Term$inline$($14867, _defs$2); - var _type$13 = Kind$Term$inline$($14868, _defs$2); - var $14872 = Kind$Def$new$($14863, $14864, $14865, $14866, _term$12, _type$13, $14869, $14870, $14871); - var $14862 = $14872; + var $13588 = self.file; + var $13589 = self.code; + var $13590 = self.orig; + var $13591 = self.name; + var $13592 = self.term; + var $13593 = self.type; + var $13594 = self.isct; + var $13595 = self.arit; + var $13596 = self.stat; + var _term$12 = Kind$Term$inline$($13592, _defs$2); + var _type$13 = Kind$Term$inline$($13593, _defs$2); + var $13597 = Kind$Def$new$($13588, $13589, $13590, $13591, _term$12, _type$13, $13594, $13595, $13596); + var $13587 = $13597; break; }; - return $14862; + return $13587; }; const Kind$Comp$Defs$compile$defn$adjust = x0 => x1 => Kind$Comp$Defs$compile$defn$adjust$(x0, x1); function Kind$Comp$var$(_name$1) { - var $14873 = ({ + var $13598 = ({ _: 'Kind.Comp.var', 'name': _name$1 }); - return $14873; + return $13598; }; const Kind$Comp$var = x0 => Kind$Comp$var$(x0); const Kind$Comp$nil = ({ @@ -48179,11 +44239,11 @@ module.exports = (function() { }); function Kind$Comp$ref$(_name$1) { - var $14874 = ({ + var $13599 = ({ _: 'Kind.Comp.ref', 'name': _name$1 }); - return $14874; + return $13599; }; const Kind$Comp$ref = x0 => Kind$Comp$ref$(x0); const Kind$Comp$Prim$bool = ({ @@ -48210,65 +44270,65 @@ module.exports = (function() { var self = Kind$Term$equal$go$(_a$1, _b$2, _defs$3, 0n, BitsSet$new); switch (self._) { case 'Kind.Check.result': - var $14876 = self.value; - var $14877 = Maybe$default$($14876, Bool$false); - var $14875 = $14877; + var $13601 = self.value; + var $13602 = Maybe$default$($13601, Bool$false); + var $13600 = $13602; break; }; - return $14875; + return $13600; }; const Kind$Term$equal = x0 => x1 => x2 => Kind$Term$equal$(x0, x1, x2); function Kind$Comp$compile$prim_of$(_type$1, _defs$2) { var _result$3 = Maybe$none; var _result$4 = (() => { - var $14880 = _result$3; - var $14881 = Kind$Comp$Prim$natives; - let _result$5 = $14880; + var $13605 = _result$3; + var $13606 = Kind$Comp$Prim$natives; + let _result$5 = $13605; let _prim$4; - while ($14881._ === 'List.cons') { - _prim$4 = $14881.head; + while ($13606._ === 'List.cons') { + _prim$4 = $13606.head; var self = _prim$4; switch (self._) { case 'Pair.new': - var $14882 = self.fst; - var $14883 = self.snd; + var $13607 = self.fst; + var $13608 = self.snd; var self = _result$5; switch (self._) { case 'Maybe.none': - var self = Kind$Term$equal$(_type$1, Kind$Term$ref$($14882), _defs$2); + var self = Kind$Term$equal$(_type$1, Kind$Term$ref$($13607), _defs$2); if (self) { - var $14886 = Maybe$some$($14883); - var $14885 = $14886; + var $13611 = Maybe$some$($13608); + var $13610 = $13611; } else { - var $14887 = Maybe$none; - var $14885 = $14887; + var $13612 = Maybe$none; + var $13610 = $13612; }; - var $14884 = $14885; + var $13609 = $13610; break; case 'Maybe.some': - var $14888 = _result$5; - var $14884 = $14888; + var $13613 = _result$5; + var $13609 = $13613; break; }; - var $14880 = $14884; + var $13605 = $13609; break; }; - _result$5 = $14880; - $14881 = $14881.tail; + _result$5 = $13605; + $13606 = $13606.tail; } return _result$5; })(); - var $14878 = _result$4; - return $14878; + var $13603 = _result$4; + return $13603; }; const Kind$Comp$compile$prim_of = x0 => x1 => Kind$Comp$compile$prim_of$(x0, x1); function String$ends_with$(_xs$1, _match$2) { var _xs_reserved$3 = String$reverse$(_xs$1); var _match_reversed$4 = String$reverse$(_match$2); - var $14889 = String$starts_with$(_xs_reserved$3, _match_reversed$4); - return $14889; + var $13614 = String$starts_with$(_xs_reserved$3, _match_reversed$4); + return $13614; }; const String$ends_with = x0 => x1 => String$ends_with$(x0, x1); @@ -48276,20 +44336,20 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $14891 = self.eras; - var $14892 = self.name; - var $14893 = self.body; - var _head$7 = $14892; - var _tail$8 = Kind$Comp$compile$adt$get_fields$($14893(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); - var self = $14891; + var $13616 = self.eras; + var $13617 = self.name; + var $13618 = self.body; + var _head$7 = $13617; + var _tail$8 = Kind$Comp$compile$adt$get_fields$($13618(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); + var self = $13616; if (self) { - var $14895 = _tail$8; - var $14894 = $14895; + var $13620 = _tail$8; + var $13619 = $13620; } else { - var $14896 = List$cons$(_head$7, _tail$8); - var $14894 = $14896; + var $13621 = List$cons$(_head$7, _tail$8); + var $13619 = $13621; }; - var $14890 = $14894; + var $13615 = $13619; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -48311,11 +44371,11 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14897 = List$nil; - var $14890 = $14897; + var $13622 = List$nil; + var $13615 = $13622; break; }; - return $14890; + return $13615; }; const Kind$Comp$compile$adt$get_fields = x0 => Kind$Comp$compile$adt$get_fields$(x0); @@ -48323,14 +44383,14 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.all': - var $14899 = self.name; - var $14900 = self.xtyp; - var $14901 = self.body; - var _tail$7 = Kind$Comp$compile$adt$get_constructors$($14901(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); - var _name$8 = $14899; - var _flds$9 = Kind$Comp$compile$adt$get_fields$($14900); - var $14902 = List$cons$(Pair$new$(_name$8, _flds$9), _tail$7); - var $14898 = $14902; + var $13624 = self.name; + var $13625 = self.xtyp; + var $13626 = self.body; + var _tail$7 = Kind$Comp$compile$adt$get_constructors$($13626(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n))); + var _name$8 = $13624; + var _flds$9 = Kind$Comp$compile$adt$get_fields$($13625); + var $13627 = List$cons$(Pair$new$(_name$8, _flds$9), _tail$7); + var $13623 = $13627; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -48352,21 +44412,21 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14903 = List$nil; - var $14898 = $14903; + var $13628 = List$nil; + var $13623 = $13628; break; }; - return $14898; + return $13623; }; const Kind$Comp$compile$adt$get_constructors = x0 => Kind$Comp$compile$adt$get_constructors$(x0); function Kind$Comp$Prim$data$(_name$1, _ctrs$2) { - var $14904 = ({ + var $13629 = ({ _: 'Kind.Comp.Prim.data', 'name': _name$1, 'ctrs': _ctrs$2 }); - return $14904; + return $13629; }; const Kind$Comp$Prim$data = x0 => x1 => Kind$Comp$Prim$data$(x0, x1); @@ -48375,20 +44435,20 @@ module.exports = (function() { var self = _term$3; switch (self._) { case 'Kind.Term.all': - var $14906 = self.self; - var $14907 = self.body; - var self = String$ends_with$($14906, ".Self"); + var $13631 = self.self; + var $13632 = self.body; + var self = String$ends_with$($13631, ".Self"); if (self) { - var _body$9 = $14907(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n)); + var _body$9 = $13632(Kind$Term$var$("", 0n))(Kind$Term$var$("", 0n)); var _data$10 = Kind$Comp$compile$adt$get_constructors$(_body$9); - var _name$11 = String$take$((String$length$($14906) - 5n <= 0n ? 0n : String$length$($14906) - 5n), $14906); - var $14909 = Maybe$some$(Kind$Comp$Prim$data$(_name$11, _data$10)); - var $14908 = $14909; + var _name$11 = String$take$((String$length$($13631) - 5n <= 0n ? 0n : String$length$($13631) - 5n), $13631); + var $13634 = Maybe$some$(Kind$Comp$Prim$data$(_name$11, _data$10)); + var $13633 = $13634; } else { - var $14910 = Maybe$none; - var $14908 = $14910; + var $13635 = Maybe$none; + var $13633 = $13635; }; - var $14905 = $14908; + var $13630 = $13633; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -48410,89 +44470,89 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14911 = Maybe$none; - var $14905 = $14911; + var $13636 = Maybe$none; + var $13630 = $13636; break; }; - return $14905; + return $13630; }; const Kind$Comp$compile$adt = x0 => x1 => Kind$Comp$compile$adt$(x0, x1); function Kind$Comp$eli$(_prim$1, _expr$2) { - var $14912 = ({ + var $13637 = ({ _: 'Kind.Comp.eli', 'prim': _prim$1, 'expr': _expr$2 }); - return $14912; + return $13637; }; const Kind$Comp$eli = x0 => x1 => Kind$Comp$eli$(x0, x1); function Kind$Comp$app$(_func$1, _argm$2) { - var $14913 = ({ + var $13638 = ({ _: 'Kind.Comp.app', 'func': _func$1, 'argm': _argm$2 }); - return $14913; + return $13638; }; const Kind$Comp$app = x0 => x1 => Kind$Comp$app$(x0, x1); function Kind$Comp$let$(_name$1, _expr$2, _body$3) { - var $14914 = ({ + var $13639 = ({ _: 'Kind.Comp.let', 'name': _name$1, 'expr': _expr$2, 'body': _body$3 }); - return $14914; + return $13639; }; const Kind$Comp$let = x0 => x1 => x2 => Kind$Comp$let$(x0, x1, x2); function Kind$Comp$nat$(_natx$1) { - var $14915 = ({ + var $13640 = ({ _: 'Kind.Comp.nat', 'natx': _natx$1 }); - return $14915; + return $13640; }; const Kind$Comp$nat = x0 => Kind$Comp$nat$(x0); function Kind$Comp$chr$(_chrx$1) { - var $14916 = ({ + var $13641 = ({ _: 'Kind.Comp.chr', 'chrx': _chrx$1 }); - return $14916; + return $13641; }; const Kind$Comp$chr = x0 => Kind$Comp$chr$(x0); function Kind$Comp$str$(_strx$1) { - var $14917 = ({ + var $13642 = ({ _: 'Kind.Comp.str', 'strx': _strx$1 }); - return $14917; + return $13642; }; const Kind$Comp$str = x0 => Kind$Comp$str$(x0); function Kind$Comp$lam$(_name$1, _body$2) { - var $14918 = ({ + var $13643 = ({ _: 'Kind.Comp.lam', 'name': _name$1, 'body': _body$2 }); - return $14918; + return $13643; }; const Kind$Comp$lam = x0 => x1 => Kind$Comp$lam$(x0, x1); function Kind$Comp$ins$(_prim$1, _expr$2) { - var $14919 = ({ + var $13644 = ({ _: 'Kind.Comp.ins', 'prim': _prim$1, 'expr': _expr$2 }); - return $14919; + return $13644; }; const Kind$Comp$ins = x0 => x1 => Kind$Comp$ins$(x0, x1); @@ -48500,63 +44560,63 @@ module.exports = (function() { var self = _type$2; switch (self._) { case 'Maybe.some': - var $14921 = self.value; - var _typv$6 = Kind$Term$reduce$($14921, _defs$3); + var $13646 = self.value; + var _typv$6 = Kind$Term$reduce$($13646, _defs$3); var self = _term$1; switch (self._) { case 'Kind.Term.lam': - var $14923 = self.name; - var $14924 = self.body; + var $13648 = self.name; + var $13649 = self.body; var self = _typv$6; switch (self._) { case 'Kind.Term.all': - var $14926 = self.eras; - var $14927 = self.xtyp; - var $14928 = self.body; - var _self_var$14 = Kind$Term$ann$(Bool$true, _term$1, $14921); - var _name_uid$15 = ($14923 + ("$" + Nat$show$(_size$4))); - var _name_var$16 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$15, (_size$4 + 1n)), $14927); - var _body_typ$17 = $14928(_self_var$14)(_name_var$16); - var self = Kind$Comp$compile$($14924(_name_var$16), Maybe$some$(_body_typ$17), _defs$3, (_size$4 + 1n)); + var $13651 = self.eras; + var $13652 = self.xtyp; + var $13653 = self.body; + var _self_var$14 = Kind$Term$ann$(Bool$true, _term$1, $13646); + var _name_uid$15 = ($13648 + ("$" + Nat$show$(_size$4))); + var _name_var$16 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$15, (_size$4 + 1n)), $13652); + var _body_typ$17 = $13653(_self_var$14)(_name_var$16); + var self = Kind$Comp$compile$($13649(_name_var$16), Maybe$some$(_body_typ$17), _defs$3, (_size$4 + 1n)); switch (self._) { case 'Pair.new': - var $14930 = self.fst; - var self = $14926; + var $13655 = self.fst; + var self = $13651; if (self) { - var $14932 = $14930; - var _term_cmp$20 = $14932; + var $13657 = $13655; + var _term_cmp$20 = $13657; } else { - var $14933 = Kind$Comp$lam$(_name_uid$15, $14930); - var _term_cmp$20 = $14933; + var $13658 = Kind$Comp$lam$(_name_uid$15, $13655); + var _term_cmp$20 = $13658; }; - var self = Kind$Comp$compile$prim_of$($14921, _defs$3); + var self = Kind$Comp$compile$prim_of$($13646, _defs$3); switch (self._) { case 'Maybe.some': - var $14934 = self.value; - var $14935 = Kind$Comp$ins$($14934, _term_cmp$20); - var _term_cmp$21 = $14935; + var $13659 = self.value; + var $13660 = Kind$Comp$ins$($13659, _term_cmp$20); + var _term_cmp$21 = $13660; break; case 'Maybe.none': - var self = Kind$Comp$compile$adt$($14921, _defs$3); + var self = Kind$Comp$compile$adt$($13646, _defs$3); switch (self._) { case 'Maybe.some': - var $14937 = self.value; - var $14938 = Kind$Comp$ins$($14937, _term_cmp$20); - var $14936 = $14938; + var $13662 = self.value; + var $13663 = Kind$Comp$ins$($13662, _term_cmp$20); + var $13661 = $13663; break; case 'Maybe.none': - var $14939 = _term_cmp$20; - var $14936 = $14939; + var $13664 = _term_cmp$20; + var $13661 = $13664; break; }; - var _term_cmp$21 = $14936; + var _term_cmp$21 = $13661; break; }; - var $14931 = Pair$new$(_term_cmp$21, $14921); - var $14929 = $14931; + var $13656 = Pair$new$(_term_cmp$21, $13646); + var $13654 = $13656; break; }; - var $14925 = $14929; + var $13650 = $13654; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -48578,43 +44638,43 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14940 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14925 = $14940; + var $13665 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $13650 = $13665; break; }; - var $14922 = $14925; + var $13647 = $13650; break; case 'Kind.Term.let': - var $14941 = self.name; - var $14942 = self.expr; - var $14943 = self.body; - var self = Kind$Comp$compile$($14942, Maybe$none, _defs$3, _size$4); + var $13666 = self.name; + var $13667 = self.expr; + var $13668 = self.body; + var self = Kind$Comp$compile$($13667, Maybe$none, _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $14945 = self.fst; - var $14946 = self.snd; - var _name_uid$12 = ($14941 + ("$" + Nat$show$(_size$4))); - var _expr_var$13 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$12, (_size$4 + 1n)), $14946); - var self = Kind$Comp$compile$($14943(_expr_var$13), _type$2, _defs$3, (_size$4 + 1n)); + var $13670 = self.fst; + var $13671 = self.snd; + var _name_uid$12 = ($13666 + ("$" + Nat$show$(_size$4))); + var _expr_var$13 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$12, (_size$4 + 1n)), $13671); + var self = Kind$Comp$compile$($13668(_expr_var$13), _type$2, _defs$3, (_size$4 + 1n)); switch (self._) { case 'Pair.new': - var $14948 = self.fst; - var $14949 = self.snd; - var _term_cmp$16 = Kind$Comp$let$(_name_uid$12, $14945, $14948); - var _term_typ$17 = $14949; - var $14950 = Pair$new$(_term_cmp$16, _term_typ$17); - var $14947 = $14950; + var $13673 = self.fst; + var $13674 = self.snd; + var _term_cmp$16 = Kind$Comp$let$(_name_uid$12, $13670, $13673); + var _term_typ$17 = $13674; + var $13675 = Pair$new$(_term_cmp$16, _term_typ$17); + var $13672 = $13675; break; }; - var $14944 = $14947; + var $13669 = $13672; break; }; - var $14922 = $14944; + var $13647 = $13669; break; case 'Kind.Term.ori': - var $14951 = self.expr; - var $14952 = Kind$Comp$compile$($14951, _type$2, _defs$3, _size$4); - var $14922 = $14952; + var $13676 = self.expr; + var $13677 = Kind$Comp$compile$($13676, _type$2, _defs$3, _size$4); + var $13647 = $13677; break; case 'Kind.Term.var': case 'Kind.Term.app': @@ -48641,15 +44701,15 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14954 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); - var $14953 = $14954; + var $13679 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13646); + var $13678 = $13679; break; case 'Kind.Term.typ': - var $14955 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14953 = $14955; + var $13680 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $13678 = $13680; break; }; - var $14922 = $14953; + var $13647 = $13678; break; case 'Kind.Term.ref': case 'Kind.Term.hol': @@ -48679,15 +44739,15 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14957 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); - var $14956 = $14957; + var $13682 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13646); + var $13681 = $13682; break; case 'Kind.Term.typ': - var $14958 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14956 = $14958; + var $13683 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $13681 = $13683; break; }; - var $14922 = $14956; + var $13647 = $13681; break; case 'Kind.Term.typ': var self = _typv$6; @@ -48712,15 +44772,15 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14960 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); - var $14959 = $14960; + var $13685 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13646); + var $13684 = $13685; break; case 'Kind.Term.typ': - var $14961 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14959 = $14961; + var $13686 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $13684 = $13686; break; }; - var $14922 = $14959; + var $13647 = $13684; break; case 'Kind.Term.all': var self = _typv$6; @@ -48745,15 +44805,15 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14963 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); - var $14962 = $14963; + var $13688 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13646); + var $13687 = $13688; break; case 'Kind.Term.typ': - var $14964 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14962 = $14964; + var $13689 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $13687 = $13689; break; }; - var $14922 = $14962; + var $13647 = $13687; break; case 'Kind.Term.def': case 'Kind.Term.ann': @@ -48783,15 +44843,15 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14966 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); - var $14965 = $14966; + var $13691 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13646); + var $13690 = $13691; break; case 'Kind.Term.typ': - var $14967 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14965 = $14967; + var $13692 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $13690 = $13692; break; }; - var $14922 = $14965; + var $13647 = $13690; break; case 'Kind.Term.cse': var self = _typv$6; @@ -48816,107 +44876,107 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $14969 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $14921); - var $14968 = $14969; + var $13694 = Pair$new$(Pair$fst$(Kind$Comp$compile$(_term$1, Maybe$none, _defs$3, _size$4)), $13646); + var $13693 = $13694; break; case 'Kind.Term.typ': - var $14970 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14968 = $14970; + var $13695 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $13693 = $13695; break; }; - var $14922 = $14968; + var $13647 = $13693; break; }; - var $14920 = $14922; + var $13645 = $13647; break; case 'Maybe.none': var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $14972 = self.name; - var $14973 = self.indx; - var $14974 = Pair$new$(Kind$Comp$var$($14972), Kind$Term$var$($14972, $14973)); - var $14971 = $14974; + var $13697 = self.name; + var $13698 = self.indx; + var $13699 = Pair$new$(Kind$Comp$var$($13697), Kind$Term$var$($13697, $13698)); + var $13696 = $13699; break; case 'Kind.Term.ref': - var $14975 = self.name; - var self = Kind$Map$get$($14975, _defs$3); + var $13700 = self.name; + var self = Kind$Map$get$($13700, _defs$3); switch (self._) { case 'Maybe.some': - var $14977 = self.value; - var $14978 = Pair$new$(Kind$Comp$ref$($14975), (() => { - var self = $14977; + var $13702 = self.value; + var $13703 = Pair$new$(Kind$Comp$ref$($13700), (() => { + var self = $13702; switch (self._) { case 'Kind.Def.new': - var $14979 = self.type; - var $14980 = $14979; - return $14980; + var $13704 = self.type; + var $13705 = $13704; + return $13705; }; })()); - var $14976 = $14978; + var $13701 = $13703; break; case 'Maybe.none': - var $14981 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14976 = $14981; + var $13706 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $13701 = $13706; break; }; - var $14971 = $14976; + var $13696 = $13701; break; case 'Kind.Term.app': - var $14982 = self.func; - var $14983 = self.argm; - var self = Kind$Comp$compile$($14982, Maybe$none, _defs$3, _size$4); + var $13707 = self.func; + var $13708 = self.argm; + var self = Kind$Comp$compile$($13707, Maybe$none, _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $14985 = self.fst; - var $14986 = self.snd; - var self = Kind$Term$reduce$($14986, _defs$3); + var $13710 = self.fst; + var $13711 = self.snd; + var self = Kind$Term$reduce$($13711, _defs$3); switch (self._) { case 'Kind.Term.all': - var $14988 = self.eras; - var $14989 = self.xtyp; - var $14990 = self.body; - var self = Kind$Comp$compile$($14983, Maybe$some$($14989), _defs$3, _size$4); + var $13713 = self.eras; + var $13714 = self.xtyp; + var $13715 = self.body; + var self = Kind$Comp$compile$($13708, Maybe$some$($13714), _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $14992 = self.fst; - var _term_typ$16 = $14990($14982)($14983); - var self = Kind$Comp$compile$prim_of$($14986, _defs$3); + var $13717 = self.fst; + var _term_typ$16 = $13715($13707)($13708); + var self = Kind$Comp$compile$prim_of$($13711, _defs$3); switch (self._) { case 'Maybe.some': - var $14994 = self.value; - var $14995 = Kind$Comp$eli$($14994, $14985); - var _term_cmp$17 = $14995; + var $13719 = self.value; + var $13720 = Kind$Comp$eli$($13719, $13710); + var _term_cmp$17 = $13720; break; case 'Maybe.none': - var self = Kind$Comp$compile$adt$($14986, _defs$3); + var self = Kind$Comp$compile$adt$($13711, _defs$3); switch (self._) { case 'Maybe.some': - var $14997 = self.value; - var $14998 = Kind$Comp$eli$($14997, $14985); - var $14996 = $14998; + var $13722 = self.value; + var $13723 = Kind$Comp$eli$($13722, $13710); + var $13721 = $13723; break; case 'Maybe.none': - var $14999 = $14985; - var $14996 = $14999; + var $13724 = $13710; + var $13721 = $13724; break; }; - var _term_cmp$17 = $14996; + var _term_cmp$17 = $13721; break; }; - var self = $14988; + var self = $13713; if (self) { - var $15000 = _term_cmp$17; - var _term_cmp$18 = $15000; + var $13725 = _term_cmp$17; + var _term_cmp$18 = $13725; } else { - var $15001 = Kind$Comp$app$(_term_cmp$17, $14992); - var _term_cmp$18 = $15001; + var $13726 = Kind$Comp$app$(_term_cmp$17, $13717); + var _term_cmp$18 = $13726; }; - var $14993 = Pair$new$(_term_cmp$18, _term_typ$16); - var $14991 = $14993; + var $13718 = Pair$new$(_term_cmp$18, _term_typ$16); + var $13716 = $13718; break; }; - var $14987 = $14991; + var $13712 = $13716; break; case 'Kind.Term.var': case 'Kind.Term.ref': @@ -48938,71 +44998,71 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $15002 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14987 = $15002; + var $13727 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $13712 = $13727; break; }; - var $14984 = $14987; + var $13709 = $13712; break; }; - var $14971 = $14984; + var $13696 = $13709; break; case 'Kind.Term.let': - var $15003 = self.name; - var $15004 = self.expr; - var $15005 = self.body; - var self = Kind$Comp$compile$($15004, Maybe$none, _defs$3, _size$4); + var $13728 = self.name; + var $13729 = self.expr; + var $13730 = self.body; + var self = Kind$Comp$compile$($13729, Maybe$none, _defs$3, _size$4); switch (self._) { case 'Pair.new': - var $15007 = self.fst; - var $15008 = self.snd; - var _name_uid$10 = ($15003 + ("$" + Nat$show$(_size$4))); - var _expr_var$11 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$10, (_size$4 + 1n)), $15008); - var self = Kind$Comp$compile$($15005(_expr_var$11), Maybe$none, _defs$3, (_size$4 + 1n)); + var $13732 = self.fst; + var $13733 = self.snd; + var _name_uid$10 = ($13728 + ("$" + Nat$show$(_size$4))); + var _expr_var$11 = Kind$Term$ann$(Bool$true, Kind$Term$var$(_name_uid$10, (_size$4 + 1n)), $13733); + var self = Kind$Comp$compile$($13730(_expr_var$11), Maybe$none, _defs$3, (_size$4 + 1n)); switch (self._) { case 'Pair.new': - var $15010 = self.fst; - var $15011 = self.snd; - var $15012 = Pair$new$(Kind$Comp$let$(_name_uid$10, $15007, $15010), $15011); - var $15009 = $15012; + var $13735 = self.fst; + var $13736 = self.snd; + var $13737 = Pair$new$(Kind$Comp$let$(_name_uid$10, $13732, $13735), $13736); + var $13734 = $13737; break; }; - var $15006 = $15009; + var $13731 = $13734; break; }; - var $14971 = $15006; + var $13696 = $13731; break; case 'Kind.Term.def': - var $15013 = self.expr; - var $15014 = self.body; - var $15015 = Kind$Comp$compile$($15014($15013), Maybe$none, _defs$3, _size$4); - var $14971 = $15015; + var $13738 = self.expr; + var $13739 = self.body; + var $13740 = Kind$Comp$compile$($13739($13738), Maybe$none, _defs$3, _size$4); + var $13696 = $13740; break; case 'Kind.Term.ann': - var $15016 = self.term; - var $15017 = self.type; - var $15018 = Kind$Comp$compile$($15016, Maybe$some$($15017), _defs$3, _size$4); - var $14971 = $15018; + var $13741 = self.term; + var $13742 = self.type; + var $13743 = Kind$Comp$compile$($13741, Maybe$some$($13742), _defs$3, _size$4); + var $13696 = $13743; break; case 'Kind.Term.nat': - var $15019 = self.natx; - var $15020 = Pair$new$(Kind$Comp$nat$($15019), Kind$Term$ref$("Nat")); - var $14971 = $15020; + var $13744 = self.natx; + var $13745 = Pair$new$(Kind$Comp$nat$($13744), Kind$Term$ref$("Nat")); + var $13696 = $13745; break; case 'Kind.Term.chr': - var $15021 = self.chrx; - var $15022 = Pair$new$(Kind$Comp$chr$($15021), Kind$Term$ref$("Char")); - var $14971 = $15022; + var $13746 = self.chrx; + var $13747 = Pair$new$(Kind$Comp$chr$($13746), Kind$Term$ref$("Char")); + var $13696 = $13747; break; case 'Kind.Term.str': - var $15023 = self.strx; - var $15024 = Pair$new$(Kind$Comp$str$($15023), Kind$Term$ref$("String")); - var $14971 = $15024; + var $13748 = self.strx; + var $13749 = Pair$new$(Kind$Comp$str$($13748), Kind$Term$ref$("String")); + var $13696 = $13749; break; case 'Kind.Term.ori': - var $15025 = self.expr; - var $15026 = Kind$Comp$compile$($15025, Maybe$none, _defs$3, _size$4); - var $14971 = $15026; + var $13750 = self.expr; + var $13751 = Kind$Comp$compile$($13750, Maybe$none, _defs$3, _size$4); + var $13696 = $13751; break; case 'Kind.Term.typ': case 'Kind.Term.all': @@ -49015,14 +45075,14 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $15027 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); - var $14971 = $15027; + var $13752 = Pair$new$(Kind$Comp$nil, Kind$Term$typ); + var $13696 = $13752; break; }; - var $14920 = $14971; + var $13645 = $13696; break; }; - return $14920; + return $13645; }; const Kind$Comp$compile = x0 => x1 => x2 => x3 => Kind$Comp$compile$(x0, x1, x2, x3); @@ -49030,34 +45090,34 @@ module.exports = (function() { var self = _defn$1; switch (self._) { case 'Kind.Def.new': - var $15029 = self.term; - var $15030 = self.type; - var self = Kind$Comp$compile$($15029, Maybe$some$($15030), _defs$2, 0n); + var $13754 = self.term; + var $13755 = self.type; + var self = Kind$Comp$compile$($13754, Maybe$some$($13755), _defs$2, 0n); switch (self._) { case 'Pair.new': - var $15032 = self.fst; - var $15033 = $15032; - var $15031 = $15033; + var $13757 = self.fst; + var $13758 = $13757; + var $13756 = $13758; break; }; - var $15028 = $15031; + var $13753 = $13756; break; }; - return $15028; + return $13753; }; const Kind$Comp$Defs$compile$defn = x0 => x1 => Kind$Comp$Defs$compile$defn$(x0, x1); function Kind$Comp$Defs$compile$(_defs$1) { var _defs$2 = BitsMap$map$((_x$2 => { - var $15035 = Kind$Comp$Defs$compile$defn$adjust$(_x$2, _defs$1); - return $15035; + var $13760 = Kind$Comp$Defs$compile$defn$adjust$(_x$2, _defs$1); + return $13760; }), _defs$1); var _defs$3 = BitsMap$map$((_x$3 => { - var $15036 = Kind$Comp$Defs$compile$defn$(_x$3, _defs$2); - return $15036; + var $13761 = Kind$Comp$Defs$compile$defn$(_x$3, _defs$2); + return $13761; }), _defs$2); - var $15034 = _defs$3; - return $15034; + var $13759 = _defs$3; + return $13759; }; const Kind$Comp$Defs$compile = x0 => Kind$Comp$Defs$compile$(x0); @@ -49065,124 +45125,124 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.ref': - var $15038 = self.name; - var self = Kind$Map$get$($15038, _seen$3); + var $13763 = self.name; + var self = Kind$Map$get$($13763, _seen$3); switch (self._) { case 'Maybe.none': - var self = Kind$Map$get$($15038, _defs$2); + var self = Kind$Map$get$($13763, _defs$2); switch (self._) { case 'Maybe.some': - var $15041 = self.value; - var _term$7 = $15041; - var _seen$8 = Kind$Map$set$($15038, Unit$new, _seen$3); + var $13766 = self.value; + var _term$7 = $13766; + var _seen$8 = Kind$Map$set$($13763, Unit$new, _seen$3); var self = Kind$Comp$dependency_sort$go$(_term$7, _defs$2, _seen$8, _list$4); switch (self._) { case 'Pair.new': - var $15043 = self.fst; - var $15044 = self.snd; - var _list$11 = List$cons$(Pair$new$($15038, $15041), $15044); - var $15045 = Pair$new$($15043, _list$11); - var $15042 = $15045; + var $13768 = self.fst; + var $13769 = self.snd; + var _list$11 = List$cons$(Pair$new$($13763, $13766), $13769); + var $13770 = Pair$new$($13768, _list$11); + var $13767 = $13770; break; }; - var $15040 = $15042; + var $13765 = $13767; break; case 'Maybe.none': - var $15046 = Pair$new$(_seen$3, _list$4); - var $15040 = $15046; + var $13771 = Pair$new$(_seen$3, _list$4); + var $13765 = $13771; break; }; - var $15039 = $15040; + var $13764 = $13765; break; case 'Maybe.some': - var $15047 = Pair$new$(_seen$3, _list$4); - var $15039 = $15047; + var $13772 = Pair$new$(_seen$3, _list$4); + var $13764 = $13772; break; }; - var $15037 = $15039; + var $13762 = $13764; break; case 'Kind.Comp.lam': - var $15048 = self.body; - var self = Kind$Comp$dependency_sort$go$($15048, _defs$2, _seen$3, _list$4); + var $13773 = self.body; + var self = Kind$Comp$dependency_sort$go$($13773, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $15050 = self.fst; - var $15051 = self.snd; - var $15052 = Pair$new$($15050, $15051); - var $15049 = $15052; + var $13775 = self.fst; + var $13776 = self.snd; + var $13777 = Pair$new$($13775, $13776); + var $13774 = $13777; break; }; - var $15037 = $15049; + var $13762 = $13774; break; case 'Kind.Comp.app': - var $15053 = self.func; - var $15054 = self.argm; - var self = Kind$Comp$dependency_sort$go$($15053, _defs$2, _seen$3, _list$4); + var $13778 = self.func; + var $13779 = self.argm; + var self = Kind$Comp$dependency_sort$go$($13778, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $15056 = self.fst; - var $15057 = self.snd; - var self = Kind$Comp$dependency_sort$go$($15054, _defs$2, $15056, $15057); + var $13781 = self.fst; + var $13782 = self.snd; + var self = Kind$Comp$dependency_sort$go$($13779, _defs$2, $13781, $13782); switch (self._) { case 'Pair.new': - var $15059 = self.fst; - var $15060 = self.snd; - var $15061 = Pair$new$($15059, $15060); - var $15058 = $15061; + var $13784 = self.fst; + var $13785 = self.snd; + var $13786 = Pair$new$($13784, $13785); + var $13783 = $13786; break; }; - var $15055 = $15058; + var $13780 = $13783; break; }; - var $15037 = $15055; + var $13762 = $13780; break; case 'Kind.Comp.let': - var $15062 = self.expr; - var $15063 = self.body; - var self = Kind$Comp$dependency_sort$go$($15062, _defs$2, _seen$3, _list$4); + var $13787 = self.expr; + var $13788 = self.body; + var self = Kind$Comp$dependency_sort$go$($13787, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $15065 = self.fst; - var $15066 = self.snd; - var self = Kind$Comp$dependency_sort$go$($15063, _defs$2, $15065, $15066); + var $13790 = self.fst; + var $13791 = self.snd; + var self = Kind$Comp$dependency_sort$go$($13788, _defs$2, $13790, $13791); switch (self._) { case 'Pair.new': - var $15068 = self.fst; - var $15069 = self.snd; - var $15070 = Pair$new$($15068, $15069); - var $15067 = $15070; + var $13793 = self.fst; + var $13794 = self.snd; + var $13795 = Pair$new$($13793, $13794); + var $13792 = $13795; break; }; - var $15064 = $15067; + var $13789 = $13792; break; }; - var $15037 = $15064; + var $13762 = $13789; break; case 'Kind.Comp.eli': - var $15071 = self.expr; - var self = Kind$Comp$dependency_sort$go$($15071, _defs$2, _seen$3, _list$4); + var $13796 = self.expr; + var self = Kind$Comp$dependency_sort$go$($13796, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $15073 = self.fst; - var $15074 = self.snd; - var $15075 = Pair$new$($15073, $15074); - var $15072 = $15075; + var $13798 = self.fst; + var $13799 = self.snd; + var $13800 = Pair$new$($13798, $13799); + var $13797 = $13800; break; }; - var $15037 = $15072; + var $13762 = $13797; break; case 'Kind.Comp.ins': - var $15076 = self.expr; - var self = Kind$Comp$dependency_sort$go$($15076, _defs$2, _seen$3, _list$4); + var $13801 = self.expr; + var self = Kind$Comp$dependency_sort$go$($13801, _defs$2, _seen$3, _list$4); switch (self._) { case 'Pair.new': - var $15078 = self.fst; - var $15079 = self.snd; - var $15080 = Pair$new$($15078, $15079); - var $15077 = $15080; + var $13803 = self.fst; + var $13804 = self.snd; + var $13805 = Pair$new$($13803, $13804); + var $13802 = $13805; break; }; - var $15037 = $15077; + var $13762 = $13802; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -49190,11 +45250,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $15081 = Pair$new$(_seen$3, _list$4); - var $15037 = $15081; + var $13806 = Pair$new$(_seen$3, _list$4); + var $13762 = $13806; break; }; - return $15037; + return $13762; }; const Kind$Comp$dependency_sort$go = x0 => x1 => x2 => x3 => Kind$Comp$dependency_sort$go$(x0, x1, x2, x3); @@ -49205,34 +45265,34 @@ module.exports = (function() { var self = Kind$Comp$dependency_sort$go$(_term$3, _defs$2, _seen$4, _list$5); switch (self._) { case 'Pair.new': - var $15083 = self.snd; - var $15084 = List$reverse$($15083); - var $15082 = $15084; + var $13808 = self.snd; + var $13809 = List$reverse$($13808); + var $13807 = $13809; break; }; - return $15082; + return $13807; }; const Kind$Comp$dependency_sort = x0 => x1 => Kind$Comp$dependency_sort$(x0, x1); function String$take_while$(_f$1, _xs$2) { var self = _xs$2; if (self.length === 0) { - var $15086 = String$nil; - var $15085 = $15086; + var $13811 = String$nil; + var $13810 = $13811; } else { - var $15087 = self.charCodeAt(0); - var $15088 = self.slice(1); - var self = _f$1($15087); + var $13812 = self.charCodeAt(0); + var $13813 = self.slice(1); + var self = _f$1($13812); if (self) { - var $15090 = String$cons$($15087, String$take_while$(_f$1, $15088)); - var $15089 = $15090; + var $13815 = String$cons$($13812, String$take_while$(_f$1, $13813)); + var $13814 = $13815; } else { - var $15091 = String$nil; - var $15089 = $15091; + var $13816 = String$nil; + var $13814 = $13816; }; - var $15085 = $15089; + var $13810 = $13814; }; - return $15085; + return $13810; }; const String$take_while = x0 => x1 => String$take_while$(x0, x1); @@ -49248,20 +45308,20 @@ module.exports = (function() { var R = (() => { var self = _xs$2; if (self.length === 0) { - var $15092 = String$nil; - return $15092; + var $13817 = String$nil; + return $13817; } else { - var $15093 = self.charCodeAt(0); - var $15094 = self.slice(1); - var self = _f$1($15093); + var $13818 = self.charCodeAt(0); + var $13819 = self.slice(1); + var self = _f$1($13818); if (self) { - var $15096 = String$drop_while$(_f$1, $15094); - var $15095 = $15096; + var $13821 = String$drop_while$(_f$1, $13819); + var $13820 = $13821; } else { - var $15097 = _xs$2; - var $15095 = $15097; + var $13822 = _xs$2; + var $13820 = $13822; }; - return $15095; + return $13820; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -49273,38 +45333,38 @@ module.exports = (function() { function Kind$Comp$replace$(_str$1, _vars$2) { var self = _str$1; if (self.length === 0) { - var $15099 = _str$1; - var $15098 = $15099; + var $13824 = _str$1; + var $13823 = $13824; } else { - var $15100 = self.charCodeAt(0); - var $15101 = self.slice(1); - var _a$5 = $15100; + var $13825 = self.charCodeAt(0); + var $13826 = self.slice(1); + var _a$5 = $13825; var self = (_a$5 === 36); if (self) { var _n_str$6 = String$take_while$((_b$6 => { - var $15104 = ((_b$6 >= 48) && (_b$6 <= 57)); - return $15104; - }), $15101); + var $13829 = ((_b$6 >= 48) && (_b$6 <= 57)); + return $13829; + }), $13826); var self = (String$length$(_n_str$6) > 0n); if (self) { var _n_str$tail$7 = String$drop_while$((_b$7 => { - var $15106 = ((_b$7 >= 48) && (_b$7 <= 57)); - return $15106; - }), $15101); - var $15105 = (Maybe$default$(List$get$((BigInt(_n_str$6)), _vars$2), "?") + Kind$Comp$replace$(_n_str$tail$7, _vars$2)); - var $15103 = $15105; + var $13831 = ((_b$7 >= 48) && (_b$7 <= 57)); + return $13831; + }), $13826); + var $13830 = (Maybe$default$(List$get$((BigInt(_n_str$6)), _vars$2), "?") + Kind$Comp$replace$(_n_str$tail$7, _vars$2)); + var $13828 = $13830; } else { - var $15107 = String$cons$(_a$5, Kind$Comp$replace$($15101, _vars$2)); - var $15103 = $15107; + var $13832 = String$cons$(_a$5, Kind$Comp$replace$($13826, _vars$2)); + var $13828 = $13832; }; - var $15102 = $15103; + var $13827 = $13828; } else { - var $15108 = String$cons$(_a$5, Kind$Comp$replace$($15101, _vars$2)); - var $15102 = $15108; + var $13833 = String$cons$(_a$5, Kind$Comp$replace$($13826, _vars$2)); + var $13827 = $13833; }; - var $15098 = $15102; + var $13823 = $13827; }; - return $15098; + return $13823; }; const Kind$Comp$replace = x0 => x1 => Kind$Comp$replace$(x0, x1); @@ -49320,12 +45380,12 @@ module.exports = (function() { var R = (() => { var self = _len$2; if (self === 0n) { - var $15109 = _result$4; - return $15109; + var $13834 = _result$4; + return $13834; } else { - var $15110 = (self - 1n); - var $15111 = List$create$go$($15110, _create_value$3, List$cons$(_create_value$3($15110), _result$4)); - return $15111; + var $13835 = (self - 1n); + var $13836 = List$create$go$($13835, _create_value$3, List$cons$(_create_value$3($13835), _result$4)); + return $13836; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -49335,8 +45395,8 @@ module.exports = (function() { const List$create$go = x0 => x1 => x2 => List$create$go$(x0, x1, x2); function List$create$(_len$2, _create_value$3) { - var $15112 = List$create$go$(_len$2, _create_value$3, List$nil); - return $15112; + var $13837 = List$create$go$(_len$2, _create_value$3, List$nil); + return $13837; }; const List$create = x0 => x1 => List$create$(x0, x1); @@ -49344,38 +45404,38 @@ module.exports = (function() { var self = _ctor$5; switch (self._) { case 'Pair.new': - var $15114 = self.fst; - var $15115 = self.snd; - var self = (_j$6 === $15114); + var $13839 = self.fst; + var $13840 = self.snd; + var self = (_j$6 === $13839); if (self) { - var $15117 = Kind$Comp$replace$($15115, List$create$($15114, (_j$9 => { - var $15118 = ("x" + Nat$show$(_j$9)); - return $15118; + var $13842 = Kind$Comp$replace$($13840, List$create$($13839, (_j$9 => { + var $13843 = ("x" + Nat$show$(_j$9)); + return $13843; }))); - var $15116 = $15117; + var $13841 = $13842; } else { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15120 = self.gram; - var $15121 = $15120; - var self = $15121; + var $13845 = self.gram; + var $13846 = $13845; + var self = $13846; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15122 = self.lambda; - var $15123 = $15122; - var $15119 = $15123; + var $13847 = self.lambda; + var $13848 = $13847; + var $13844 = $13848; break; }; - var $15119 = $15119(("x" + Nat$show$(_j$6)))(Kind$Comp$Prim$instantiator$go$(_lang$1, _prim$2, _depth$3, _defs$4, _ctor$5, Nat$succ$(_j$6))); - var $15116 = $15119; + var $13844 = $13844(("x" + Nat$show$(_j$6)))(Kind$Comp$Prim$instantiator$go$(_lang$1, _prim$2, _depth$3, _defs$4, _ctor$5, Nat$succ$(_j$6))); + var $13841 = $13844; }; - var $15113 = $15116; + var $13838 = $13841; break; }; - return $15113; + return $13838; }; const Kind$Comp$Prim$instantiator$go = x0 => x1 => x2 => x3 => x4 => x5 => Kind$Comp$Prim$instantiator$go$(x0, x1, x2, x3, x4, x5); @@ -49383,65 +45443,65 @@ module.exports = (function() { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15125 = self.nati; - var $15126 = $15125; - var _shape$5 = $15126; + var $13850 = self.nati; + var $13851 = $13850; + var _shape$5 = $13851; break; }; var _shape$5 = _shape$5(_prim$2); var self = _shape$5; switch (self._) { case 'Kind.Comp.Native.new': - var $15127 = self.inst; + var $13852 = self.inst; var _text$8 = "x"; var _text$9 = (() => { - var $15130 = _text$8; - var $15131 = $15127; - let _text$10 = $15130; + var $13855 = _text$8; + var $13856 = $13852; + let _text$10 = $13855; let _ctor$9; - while ($15131._ === 'List.cons') { - _ctor$9 = $15131.head; + while ($13856._ === 'List.cons') { + _ctor$9 = $13856.head; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15132 = self.gram; - var $15133 = $15132; - var self = $15133; + var $13857 = self.gram; + var $13858 = $13857; + var self = $13858; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15134 = self.application; - var $15135 = $15134; - var $15130 = $15135; + var $13859 = self.application; + var $13860 = $13859; + var $13855 = $13860; break; }; - var $15130 = $15130(_text$10)(Kind$Comp$Prim$instantiator$go$(_lang$1, _prim$2, _depth$3, _defs$4, _ctor$9, 0n)); - _text$10 = $15130; - $15131 = $15131.tail; + var $13855 = $13855(_text$10)(Kind$Comp$Prim$instantiator$go$(_lang$1, _prim$2, _depth$3, _defs$4, _ctor$9, 0n)); + _text$10 = $13855; + $13856 = $13856.tail; } return _text$10; })(); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15136 = self.gram; - var $15137 = $15136; - var self = $15137; + var $13861 = self.gram; + var $13862 = $13861; + var self = $13862; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15138 = self.lambda; - var $15139 = $15138; - var $15128 = $15139; + var $13863 = self.lambda; + var $13864 = $13863; + var $13853 = $13864; break; }; - var $15128 = $15128("x")(_text$9); - var $15124 = $15128; + var $13853 = $13853("x")(_text$9); + var $13849 = $13853; break; }; - return $15124; + return $13849; }; const Kind$Comp$Prim$instantiator = x0 => x1 => x2 => x3 => Kind$Comp$Prim$instantiator$(x0, x1, x2, x3); @@ -49458,10 +45518,10 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.app': - var $15140 = self.func; - var $15141 = self.argm; - var $15142 = Kind$Comp$get_args$go$($15140, List$cons$($15141, _args$2)); - return $15142; + var $13865 = self.func; + var $13866 = self.argm; + var $13867 = Kind$Comp$get_args$go$($13865, List$cons$($13866, _args$2)); + return $13867; case 'Kind.Comp.nil': case 'Kind.Comp.var': case 'Kind.Comp.ref': @@ -49473,8 +45533,8 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $15143 = Pair$new$(_term$1, _args$2); - return $15143; + var $13868 = Pair$new$(_term$1, _args$2); + return $13868; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -49484,8 +45544,8 @@ module.exports = (function() { const Kind$Comp$get_args$go = x0 => x1 => Kind$Comp$get_args$go$(x0, x1); function Kind$Comp$get_args$(_term$1) { - var $15144 = Kind$Comp$get_args$go$(_term$1, List$nil); - return $15144; + var $13869 = Kind$Comp$get_args$go$(_term$1, List$nil); + return $13869; }; const Kind$Comp$get_args = x0 => Kind$Comp$get_args$(x0); @@ -49493,9 +45553,9 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.lam': - var $15146 = self.body; - var $15147 = (1n + Kind$Comp$get_arity$($15146)); - var $15145 = $15147; + var $13871 = self.body; + var $13872 = (1n + Kind$Comp$get_arity$($13871)); + var $13870 = $13872; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -49508,11 +45568,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $15148 = 0n; - var $15145 = $15148; + var $13873 = 0n; + var $13870 = $13873; break; }; - return $15145; + return $13870; }; const Kind$Comp$get_arity = x0 => Kind$Comp$get_arity$(x0); @@ -49520,18 +45580,18 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Comp.lam': - var $15150 = self.name; - var $15151 = self.body; - var self = Kind$Comp$get_vars$($15151); + var $13875 = self.name; + var $13876 = self.body; + var self = Kind$Comp$get_vars$($13876); switch (self._) { case 'Pair.new': - var $15153 = self.fst; - var $15154 = self.snd; - var $15155 = Pair$new$(List$cons$($15150, $15153), $15154); - var $15152 = $15155; + var $13878 = self.fst; + var $13879 = self.snd; + var $13880 = Pair$new$(List$cons$($13875, $13878), $13879); + var $13877 = $13880; break; }; - var $15149 = $15152; + var $13874 = $13877; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -49544,11 +45604,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $15156 = Pair$new$(List$nil, _term$1); - var $15149 = $15156; + var $13881 = Pair$new$(List$nil, _term$1); + var $13874 = $13881; break; }; - return $15149; + return $13874; }; const Kind$Comp$get_vars = x0 => Kind$Comp$get_vars$(x0); @@ -49565,57 +45625,57 @@ module.exports = (function() { var self = _inst$3; switch (self._) { case 'List.cons': - var $15157 = self.head; - var $15158 = self.tail; + var $13882 = self.head; + var $13883 = self.tail; var self = _vars$4; switch (self._) { case 'List.cons': - var $15160 = self.head; - var $15161 = self.tail; - var self = (_name$2 === $15160); + var $13885 = self.head; + var $13886 = self.tail; + var self = (_name$2 === $13885); if (self) { - var self = $15157; + var self = $13882; switch (self._) { case 'Pair.new': - var $15164 = self.fst; - var $15165 = self.snd; - var self = ($15164 === (list_length(_args$5))); + var $13889 = self.fst; + var $13890 = self.snd; + var self = ($13889 === (list_length(_args$5))); if (self) { - var $15167 = Maybe$some$(Kind$Comp$replace$($15165, List$mapped$(_args$5, (_x$14 => { - var $15168 = Kind$Comp$transpile$term$(_lang$1, _x$14, _depth$6, _defs$7); - return $15168; + var $13892 = Maybe$some$(Kind$Comp$replace$($13890, List$mapped$(_args$5, (_x$14 => { + var $13893 = Kind$Comp$transpile$term$(_lang$1, _x$14, _depth$6, _defs$7); + return $13893; })))); - var $15166 = $15167; + var $13891 = $13892; } else { - var $15169 = Maybe$none; - var $15166 = $15169; + var $13894 = Maybe$none; + var $13891 = $13894; }; - var $15163 = $15166; + var $13888 = $13891; break; }; - var $15162 = $15163; + var $13887 = $13888; } else { - var $15170 = Kind$Comp$Prim$inst$go$(_lang$1, _name$2, $15158, $15161, _args$5, _depth$6, _defs$7); - var $15162 = $15170; + var $13895 = Kind$Comp$Prim$inst$go$(_lang$1, _name$2, $13883, $13886, _args$5, _depth$6, _defs$7); + var $13887 = $13895; }; - var $15159 = $15162; + var $13884 = $13887; break; case 'List.nil': - var $15171 = Maybe$none; - var $15159 = $15171; + var $13896 = Maybe$none; + var $13884 = $13896; break; }; - return $15159; + return $13884; case 'List.nil': var self = _vars$4; switch (self._) { case 'List.nil': case 'List.cons': - var $15173 = Maybe$none; - var $15172 = $15173; + var $13898 = Maybe$none; + var $13897 = $13898; break; }; - return $15172; + return $13897; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -49628,44 +45688,44 @@ module.exports = (function() { var self = _term$2; switch (self._) { case 'Kind.Comp.ins': - var $15175 = self.prim; - var $15176 = self.expr; + var $13900 = self.prim; + var $13901 = self.expr; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15178 = self.nati; - var $15179 = $15178; - var _shape$7 = $15179; + var $13903 = self.nati; + var $13904 = $13903; + var _shape$7 = $13904; break; }; - var _shape$7 = _shape$7($15175); + var _shape$7 = _shape$7($13900); var self = _shape$7; switch (self._) { case 'Kind.Comp.Native.new': - var $15180 = self.inst; - var self = Kind$Comp$get_vars$($15176); + var $13905 = self.inst; + var self = Kind$Comp$get_vars$($13901); switch (self._) { case 'Pair.new': - var $15182 = self.fst; - var $15183 = self.snd; - var self = ((list_length($15180)) === (list_length($15182))); + var $13907 = self.fst; + var $13908 = self.snd; + var self = ((list_length($13905)) === (list_length($13907))); if (self) { - var self = Kind$Comp$get_args$($15183); + var self = Kind$Comp$get_args$($13908); switch (self._) { case 'Pair.new': - var $15186 = self.fst; - var $15187 = self.snd; - var self = $15186; + var $13911 = self.fst; + var $13912 = self.snd; + var self = $13911; switch (self._) { case 'Kind.Comp.var': - var $15189 = self.name; - var $15190 = Kind$Comp$Prim$inst$go$(_lang$1, $15189, $15180, $15182, $15187, _depth$3, _defs$4); - var $15188 = $15190; + var $13914 = self.name; + var $13915 = Kind$Comp$Prim$inst$go$(_lang$1, $13914, $13905, $13907, $13912, _depth$3, _defs$4); + var $13913 = $13915; break; case 'Kind.Comp.ref': - var $15191 = self.name; - var $15192 = Kind$Comp$Prim$inst$go$(_lang$1, $15191, $15180, $15182, $15187, _depth$3, _defs$4); - var $15188 = $15192; + var $13916 = self.name; + var $13917 = Kind$Comp$Prim$inst$go$(_lang$1, $13916, $13905, $13907, $13912, _depth$3, _defs$4); + var $13913 = $13917; break; case 'Kind.Comp.nil': case 'Kind.Comp.lam': @@ -49677,25 +45737,25 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $15193 = Maybe$none; - var $15188 = $15193; + var $13918 = Maybe$none; + var $13913 = $13918; break; }; - var $15185 = $15188; + var $13910 = $13913; break; }; - var $15184 = $15185; + var $13909 = $13910; } else { - var $15194 = Maybe$none; - var $15184 = $15194; + var $13919 = Maybe$none; + var $13909 = $13919; }; - var $15181 = $15184; + var $13906 = $13909; break; }; - var $15177 = $15181; + var $13902 = $13906; break; }; - var $15174 = $15177; + var $13899 = $13902; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -49708,11 +45768,11 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $15195 = Maybe$none; - var $15174 = $15195; + var $13920 = Maybe$none; + var $13899 = $13920; break; }; - return $15174; + return $13899; }; const Kind$Comp$Prim$inst = x0 => x1 => x2 => x3 => Kind$Comp$Prim$inst$(x0, x1, x2, x3); @@ -49720,30 +45780,30 @@ module.exports = (function() { var self = _word$6; switch (self._) { case 'Word.o': - var $15197 = self.pred; - var $15198 = _w0$4(Word$fold$(_nil$3, _w0$4, _w1$5, $15197)); - var $15196 = $15198; + var $13922 = self.pred; + var $13923 = _w0$4(Word$fold$(_nil$3, _w0$4, _w1$5, $13922)); + var $13921 = $13923; break; case 'Word.i': - var $15199 = self.pred; - var $15200 = _w1$5(Word$fold$(_nil$3, _w0$4, _w1$5, $15199)); - var $15196 = $15200; + var $13924 = self.pred; + var $13925 = _w1$5(Word$fold$(_nil$3, _w0$4, _w1$5, $13924)); + var $13921 = $13925; break; case 'Word.e': - var $15201 = _nil$3; - var $15196 = $15201; + var $13926 = _nil$3; + var $13921 = $13926; break; }; - return $15196; + return $13921; }; const Word$fold = x0 => x1 => x2 => x3 => Word$fold$(x0, x1, x2, x3); function Word$to_nat$(_word$2) { - var $15202 = Word$fold$(0n, a1 => (2n * a1), (_x$4 => { - var $15203 = Nat$succ$((2n * _x$4)); - return $15203; + var $13927 = Word$fold$(0n, a1 => (2n * a1), (_x$4 => { + var $13928 = Nat$succ$((2n * _x$4)); + return $13928; }), _word$2); - return $15202; + return $13927; }; const Word$to_nat = x0 => Word$to_nat$(x0); const U16$to_nat = a0 => (BigInt(a0)); @@ -49753,731 +45813,731 @@ module.exports = (function() { var self = Kind$Comp$Prim$inst$(_lang$1, _comp$2, _depth$3, _defs$4); switch (self._) { case 'Maybe.some': - var $15205 = self.value; - var $15206 = $15205; - var $15204 = $15206; + var $13930 = self.value; + var $13931 = $13930; + var $13929 = $13931; break; case 'Maybe.none': var self = Kind$Comp$Prim$elim$(_lang$1, _comp$2, _depth$3, _defs$4); switch (self._) { case 'Maybe.some': - var $15208 = self.value; - var $15209 = $15208; - var $15207 = $15209; + var $13933 = self.value; + var $13934 = $13933; + var $13932 = $13934; break; case 'Maybe.none': var self = _comp$2; switch (self._) { case 'Kind.Comp.var': - var $15211 = self.name; + var $13936 = self.name; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15213 = self.gram; - var $15214 = $15213; - var self = $15214; + var $13938 = self.gram; + var $13939 = $13938; + var self = $13939; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15215 = self.name; - var $15216 = $15215; - var $15212 = $15216; + var $13940 = self.name; + var $13941 = $13940; + var $13937 = $13941; break; }; - var $15212 = $15212($15211); - var $15210 = $15212; + var $13937 = $13937($13936); + var $13935 = $13937; break; case 'Kind.Comp.ref': - var $15217 = self.name; + var $13942 = self.name; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15219 = self.gram; - var $15220 = $15219; - var self = $15220; + var $13944 = self.gram; + var $13945 = $13944; + var self = $13945; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15221 = self.name; - var $15222 = $15221; - var $15218 = $15222; + var $13946 = self.name; + var $13947 = $13946; + var $13943 = $13947; break; }; - var $15218 = $15218($15217); - var $15210 = $15218; + var $13943 = $13943($13942); + var $13935 = $13943; break; case 'Kind.Comp.lam': - var $15223 = self.name; - var $15224 = self.body; + var $13948 = self.name; + var $13949 = self.body; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15226 = self.gram; - var $15227 = $15226; - var self = $15227; + var $13951 = self.gram; + var $13952 = $13951; + var self = $13952; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15228 = self.lambda; - var $15229 = $15228; - var $15225 = $15229; + var $13953 = self.lambda; + var $13954 = $13953; + var $13950 = $13954; break; }; - var $15225 = $15225((() => { + var $13950 = $13950((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15230 = self.gram; - var $15231 = $15230; - var self = $15231; + var $13955 = self.gram; + var $13956 = $13955; + var self = $13956; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15232 = self.name; - var $15233 = $15232; - return $15233; + var $13957 = self.name; + var $13958 = $13957; + return $13958; }; - })()($15223))(_go$5($15224)(Nat$succ$(_depth$3))(_defs$4)); - var $15210 = $15225; + })()($13948))(_go$5($13949)(Nat$succ$(_depth$3))(_defs$4)); + var $13935 = $13950; break; case 'Kind.Comp.app': - var $15234 = self.func; - var $15235 = self.argm; + var $13959 = self.func; + var $13960 = self.argm; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15237 = self.gram; - var $15238 = $15237; - var self = $15238; + var $13962 = self.gram; + var $13963 = $13962; + var self = $13963; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15239 = self.application; - var $15240 = $15239; - var $15236 = $15240; + var $13964 = self.application; + var $13965 = $13964; + var $13961 = $13965; break; }; - var $15236 = $15236(_go$5($15234)(_depth$3)(_defs$4))(_go$5($15235)(_depth$3)(_defs$4)); - var $15210 = $15236; + var $13961 = $13961(_go$5($13959)(_depth$3)(_defs$4))(_go$5($13960)(_depth$3)(_defs$4)); + var $13935 = $13961; break; case 'Kind.Comp.let': - var $15241 = self.name; - var $15242 = self.expr; - var $15243 = self.body; + var $13966 = self.name; + var $13967 = self.expr; + var $13968 = self.body; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15245 = self.gram; - var $15246 = $15245; - var self = $15246; + var $13970 = self.gram; + var $13971 = $13970; + var self = $13971; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15247 = self.local_definition; - var $15248 = $15247; - var $15244 = $15248; + var $13972 = self.local_definition; + var $13973 = $13972; + var $13969 = $13973; break; }; - var $15244 = $15244((() => { + var $13969 = $13969((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15249 = self.gram; - var $15250 = $15249; - var self = $15250; + var $13974 = self.gram; + var $13975 = $13974; + var self = $13975; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15251 = self.name; - var $15252 = $15251; - return $15252; + var $13976 = self.name; + var $13977 = $13976; + return $13977; }; - })()($15241))(_go$5($15242)(_depth$3)(_defs$4))(_go$5($15243)(Nat$succ$(_depth$3))(_defs$4)); - var $15210 = $15244; + })()($13966))(_go$5($13967)(_depth$3)(_defs$4))(_go$5($13968)(Nat$succ$(_depth$3))(_defs$4)); + var $13935 = $13969; break; case 'Kind.Comp.eli': - var $15253 = self.prim; - var $15254 = self.expr; - var self = $15253; + var $13978 = self.prim; + var $13979 = self.expr; + var self = $13978; switch (self._) { case 'Kind.Comp.Prim.bool': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15257 = self.gram; - var $15258 = $15257; - var self = $15258; + var $13982 = self.gram; + var $13983 = $13982; + var self = $13983; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15259 = self.application; - var $15260 = $15259; - var $15256 = $15260; + var $13984 = self.application; + var $13985 = $13984; + var $13981 = $13985; break; }; - var $15256 = $15256((() => { + var $13981 = $13981((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15261 = self.gram; - var $15262 = $15261; - var self = $15262; + var $13986 = self.gram; + var $13987 = $13986; + var self = $13987; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15263 = self.elim_name; - var $15264 = $15263; - return $15264; + var $13988 = self.elim_name; + var $13989 = $13988; + return $13989; }; - })()("Bool"))(_go$5($15254)(_depth$3)(_defs$4)); - var $15255 = $15256; + })()("Bool"))(_go$5($13979)(_depth$3)(_defs$4)); + var $13980 = $13981; break; case 'Kind.Comp.Prim.bits': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15266 = self.gram; - var $15267 = $15266; - var self = $15267; + var $13991 = self.gram; + var $13992 = $13991; + var self = $13992; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15268 = self.application; - var $15269 = $15268; - var $15265 = $15269; + var $13993 = self.application; + var $13994 = $13993; + var $13990 = $13994; break; }; - var $15265 = $15265((() => { + var $13990 = $13990((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15270 = self.gram; - var $15271 = $15270; - var self = $15271; + var $13995 = self.gram; + var $13996 = $13995; + var self = $13996; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15272 = self.elim_name; - var $15273 = $15272; - return $15273; + var $13997 = self.elim_name; + var $13998 = $13997; + return $13998; }; - })()("Bits"))(_go$5($15254)(_depth$3)(_defs$4)); - var $15255 = $15265; + })()("Bits"))(_go$5($13979)(_depth$3)(_defs$4)); + var $13980 = $13990; break; case 'Kind.Comp.Prim.unit': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15275 = self.gram; - var $15276 = $15275; - var self = $15276; + var $14000 = self.gram; + var $14001 = $14000; + var self = $14001; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15277 = self.application; - var $15278 = $15277; - var $15274 = $15278; + var $14002 = self.application; + var $14003 = $14002; + var $13999 = $14003; break; }; - var $15274 = $15274((() => { + var $13999 = $13999((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15279 = self.gram; - var $15280 = $15279; - var self = $15280; + var $14004 = self.gram; + var $14005 = $14004; + var self = $14005; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15281 = self.elim_name; - var $15282 = $15281; - return $15282; + var $14006 = self.elim_name; + var $14007 = $14006; + return $14007; }; - })()("Unit"))(_go$5($15254)(_depth$3)(_defs$4)); - var $15255 = $15274; + })()("Unit"))(_go$5($13979)(_depth$3)(_defs$4)); + var $13980 = $13999; break; case 'Kind.Comp.Prim.nat': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15284 = self.gram; - var $15285 = $15284; - var self = $15285; + var $14009 = self.gram; + var $14010 = $14009; + var self = $14010; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15286 = self.application; - var $15287 = $15286; - var $15283 = $15287; + var $14011 = self.application; + var $14012 = $14011; + var $14008 = $14012; break; }; - var $15283 = $15283((() => { + var $14008 = $14008((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15288 = self.gram; - var $15289 = $15288; - var self = $15289; + var $14013 = self.gram; + var $14014 = $14013; + var self = $14014; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15290 = self.elim_name; - var $15291 = $15290; - return $15291; + var $14015 = self.elim_name; + var $14016 = $14015; + return $14016; }; - })()("Nat"))(_go$5($15254)(_depth$3)(_defs$4)); - var $15255 = $15283; + })()("Nat"))(_go$5($13979)(_depth$3)(_defs$4)); + var $13980 = $14008; break; case 'Kind.Comp.Prim.u16': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15293 = self.gram; - var $15294 = $15293; - var self = $15294; + var $14018 = self.gram; + var $14019 = $14018; + var self = $14019; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15295 = self.application; - var $15296 = $15295; - var $15292 = $15296; + var $14020 = self.application; + var $14021 = $14020; + var $14017 = $14021; break; }; - var $15292 = $15292((() => { + var $14017 = $14017((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15297 = self.gram; - var $15298 = $15297; - var self = $15298; + var $14022 = self.gram; + var $14023 = $14022; + var self = $14023; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15299 = self.elim_name; - var $15300 = $15299; - return $15300; + var $14024 = self.elim_name; + var $14025 = $14024; + return $14025; }; - })()("U16"))(_go$5($15254)(_depth$3)(_defs$4)); - var $15255 = $15292; + })()("U16"))(_go$5($13979)(_depth$3)(_defs$4)); + var $13980 = $14017; break; case 'Kind.Comp.Prim.u32': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15302 = self.gram; - var $15303 = $15302; - var self = $15303; + var $14027 = self.gram; + var $14028 = $14027; + var self = $14028; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15304 = self.application; - var $15305 = $15304; - var $15301 = $15305; + var $14029 = self.application; + var $14030 = $14029; + var $14026 = $14030; break; }; - var $15301 = $15301((() => { + var $14026 = $14026((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15306 = self.gram; - var $15307 = $15306; - var self = $15307; + var $14031 = self.gram; + var $14032 = $14031; + var self = $14032; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15308 = self.elim_name; - var $15309 = $15308; - return $15309; + var $14033 = self.elim_name; + var $14034 = $14033; + return $14034; }; - })()("U32"))(_go$5($15254)(_depth$3)(_defs$4)); - var $15255 = $15301; + })()("U32"))(_go$5($13979)(_depth$3)(_defs$4)); + var $13980 = $14026; break; case 'Kind.Comp.Prim.string': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15311 = self.gram; - var $15312 = $15311; - var self = $15312; + var $14036 = self.gram; + var $14037 = $14036; + var self = $14037; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15313 = self.application; - var $15314 = $15313; - var $15310 = $15314; + var $14038 = self.application; + var $14039 = $14038; + var $14035 = $14039; break; }; - var $15310 = $15310((() => { + var $14035 = $14035((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15315 = self.gram; - var $15316 = $15315; - var self = $15316; + var $14040 = self.gram; + var $14041 = $14040; + var self = $14041; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15317 = self.elim_name; - var $15318 = $15317; - return $15318; + var $14042 = self.elim_name; + var $14043 = $14042; + return $14043; }; - })()("String"))(_go$5($15254)(_depth$3)(_defs$4)); - var $15255 = $15310; + })()("String"))(_go$5($13979)(_depth$3)(_defs$4)); + var $13980 = $14035; break; case 'Kind.Comp.Prim.data': - var $15319 = _go$5($15254)(_depth$3)(_defs$4); - var $15255 = $15319; + var $14044 = _go$5($13979)(_depth$3)(_defs$4); + var $13980 = $14044; break; }; - var $15210 = $15255; + var $13935 = $13980; break; case 'Kind.Comp.ins': - var $15320 = self.prim; - var $15321 = self.expr; - var self = $15320; + var $14045 = self.prim; + var $14046 = self.expr; + var self = $14045; switch (self._) { case 'Kind.Comp.Prim.bool': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15324 = self.gram; - var $15325 = $15324; - var self = $15325; + var $14049 = self.gram; + var $14050 = $14049; + var self = $14050; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15326 = self.application; - var $15327 = $15326; - var $15323 = $15327; + var $14051 = self.application; + var $14052 = $14051; + var $14048 = $14052; break; }; - var $15323 = $15323((() => { + var $14048 = $14048((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15328 = self.gram; - var $15329 = $15328; - var self = $15329; + var $14053 = self.gram; + var $14054 = $14053; + var self = $14054; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15330 = self.inst_name; - var $15331 = $15330; - return $15331; + var $14055 = self.inst_name; + var $14056 = $14055; + return $14056; }; - })()("Bool"))(_go$5($15321)(_depth$3)(_defs$4)); - var $15322 = $15323; + })()("Bool"))(_go$5($14046)(_depth$3)(_defs$4)); + var $14047 = $14048; break; case 'Kind.Comp.Prim.bits': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15333 = self.gram; - var $15334 = $15333; - var self = $15334; + var $14058 = self.gram; + var $14059 = $14058; + var self = $14059; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15335 = self.application; - var $15336 = $15335; - var $15332 = $15336; + var $14060 = self.application; + var $14061 = $14060; + var $14057 = $14061; break; }; - var $15332 = $15332((() => { + var $14057 = $14057((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15337 = self.gram; - var $15338 = $15337; - var self = $15338; + var $14062 = self.gram; + var $14063 = $14062; + var self = $14063; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15339 = self.inst_name; - var $15340 = $15339; - return $15340; + var $14064 = self.inst_name; + var $14065 = $14064; + return $14065; }; - })()("Bits"))(_go$5($15321)(_depth$3)(_defs$4)); - var $15322 = $15332; + })()("Bits"))(_go$5($14046)(_depth$3)(_defs$4)); + var $14047 = $14057; break; case 'Kind.Comp.Prim.unit': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15342 = self.gram; - var $15343 = $15342; - var self = $15343; + var $14067 = self.gram; + var $14068 = $14067; + var self = $14068; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15344 = self.application; - var $15345 = $15344; - var $15341 = $15345; + var $14069 = self.application; + var $14070 = $14069; + var $14066 = $14070; break; }; - var $15341 = $15341((() => { + var $14066 = $14066((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15346 = self.gram; - var $15347 = $15346; - var self = $15347; + var $14071 = self.gram; + var $14072 = $14071; + var self = $14072; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15348 = self.inst_name; - var $15349 = $15348; - return $15349; + var $14073 = self.inst_name; + var $14074 = $14073; + return $14074; }; - })()("Unit"))(_go$5($15321)(_depth$3)(_defs$4)); - var $15322 = $15341; + })()("Unit"))(_go$5($14046)(_depth$3)(_defs$4)); + var $14047 = $14066; break; case 'Kind.Comp.Prim.nat': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15351 = self.gram; - var $15352 = $15351; - var self = $15352; + var $14076 = self.gram; + var $14077 = $14076; + var self = $14077; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15353 = self.application; - var $15354 = $15353; - var $15350 = $15354; + var $14078 = self.application; + var $14079 = $14078; + var $14075 = $14079; break; }; - var $15350 = $15350((() => { + var $14075 = $14075((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15355 = self.gram; - var $15356 = $15355; - var self = $15356; + var $14080 = self.gram; + var $14081 = $14080; + var self = $14081; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15357 = self.inst_name; - var $15358 = $15357; - return $15358; + var $14082 = self.inst_name; + var $14083 = $14082; + return $14083; }; - })()("Nat"))(_go$5($15321)(_depth$3)(_defs$4)); - var $15322 = $15350; + })()("Nat"))(_go$5($14046)(_depth$3)(_defs$4)); + var $14047 = $14075; break; case 'Kind.Comp.Prim.u16': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15360 = self.gram; - var $15361 = $15360; - var self = $15361; + var $14085 = self.gram; + var $14086 = $14085; + var self = $14086; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15362 = self.application; - var $15363 = $15362; - var $15359 = $15363; + var $14087 = self.application; + var $14088 = $14087; + var $14084 = $14088; break; }; - var $15359 = $15359((() => { + var $14084 = $14084((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15364 = self.gram; - var $15365 = $15364; - var self = $15365; + var $14089 = self.gram; + var $14090 = $14089; + var self = $14090; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15366 = self.inst_name; - var $15367 = $15366; - return $15367; + var $14091 = self.inst_name; + var $14092 = $14091; + return $14092; }; - })()("U16"))(_go$5($15321)(_depth$3)(_defs$4)); - var $15322 = $15359; + })()("U16"))(_go$5($14046)(_depth$3)(_defs$4)); + var $14047 = $14084; break; case 'Kind.Comp.Prim.u32': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15369 = self.gram; - var $15370 = $15369; - var self = $15370; + var $14094 = self.gram; + var $14095 = $14094; + var self = $14095; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15371 = self.application; - var $15372 = $15371; - var $15368 = $15372; + var $14096 = self.application; + var $14097 = $14096; + var $14093 = $14097; break; }; - var $15368 = $15368((() => { + var $14093 = $14093((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15373 = self.gram; - var $15374 = $15373; - var self = $15374; + var $14098 = self.gram; + var $14099 = $14098; + var self = $14099; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15375 = self.inst_name; - var $15376 = $15375; - return $15376; + var $14100 = self.inst_name; + var $14101 = $14100; + return $14101; }; - })()("U32"))(_go$5($15321)(_depth$3)(_defs$4)); - var $15322 = $15368; + })()("U32"))(_go$5($14046)(_depth$3)(_defs$4)); + var $14047 = $14093; break; case 'Kind.Comp.Prim.string': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15378 = self.gram; - var $15379 = $15378; - var self = $15379; + var $14103 = self.gram; + var $14104 = $14103; + var self = $14104; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15380 = self.application; - var $15381 = $15380; - var $15377 = $15381; + var $14105 = self.application; + var $14106 = $14105; + var $14102 = $14106; break; }; - var $15377 = $15377((() => { + var $14102 = $14102((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15382 = self.gram; - var $15383 = $15382; - var self = $15383; + var $14107 = self.gram; + var $14108 = $14107; + var self = $14108; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15384 = self.inst_name; - var $15385 = $15384; - return $15385; + var $14109 = self.inst_name; + var $14110 = $14109; + return $14110; }; - })()("String"))(_go$5($15321)(_depth$3)(_defs$4)); - var $15322 = $15377; + })()("String"))(_go$5($14046)(_depth$3)(_defs$4)); + var $14047 = $14102; break; case 'Kind.Comp.Prim.data': - var $15386 = _go$5($15321)(_depth$3)(_defs$4); - var $15322 = $15386; + var $14111 = _go$5($14046)(_depth$3)(_defs$4); + var $14047 = $14111; break; }; - var $15210 = $15322; + var $13935 = $14047; break; case 'Kind.Comp.nat': - var $15387 = self.natx; + var $14112 = self.natx; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15389 = self.gram; - var $15390 = $15389; - var self = $15390; + var $14114 = self.gram; + var $14115 = $14114; + var self = $14115; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15391 = self.nat; - var $15392 = $15391; - var $15388 = $15392; + var $14116 = self.nat; + var $14117 = $14116; + var $14113 = $14117; break; }; - var $15388 = $15388($15387); - var $15210 = $15388; + var $14113 = $14113($14112); + var $13935 = $14113; break; case 'Kind.Comp.chr': - var $15393 = self.chrx; - var $15394 = Nat$show$((BigInt($15393))); - var $15210 = $15394; + var $14118 = self.chrx; + var $14119 = Nat$show$((BigInt($14118))); + var $13935 = $14119; break; case 'Kind.Comp.str': - var $15395 = self.strx; - var $15396 = ("\"" + ((() => { + var $14120 = self.strx; + var $14121 = ("\"" + ((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15397 = self.gram; - var $15398 = $15397; - var self = $15398; + var $14122 = self.gram; + var $14123 = $14122; + var self = $14123; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15399 = self.string_literal; - var $15400 = $15399; - return $15400; + var $14124 = self.string_literal; + var $14125 = $14124; + return $14125; }; - })()($15395) + "\"")); - var $15210 = $15396; + })()($14120) + "\"")); + var $13935 = $14121; break; case 'Kind.Comp.txt': - var $15401 = self.text; - var $15402 = $15401; - var $15210 = $15402; + var $14126 = self.text; + var $14127 = $14126; + var $13935 = $14127; break; case 'Kind.Comp.nil': var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15404 = self.gram; - var $15405 = $15404; - var self = $15405; + var $14129 = self.gram; + var $14130 = $14129; + var self = $14130; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15406 = self.null; - var $15407 = $15406; - var $15403 = $15407; + var $14131 = self.null; + var $14132 = $14131; + var $14128 = $14132; break; }; - var $15210 = $15403; + var $13935 = $14128; break; }; - var $15207 = $15210; + var $13932 = $13935; break; }; - var $15204 = $15207; + var $13929 = $13932; break; }; - return $15204; + return $13929; }; const Kind$Comp$transpile$term = x0 => x1 => x2 => x3 => Kind$Comp$transpile$term$(x0, x1, x2, x3); @@ -50485,17 +46545,17 @@ module.exports = (function() { var self = _as$4; switch (self._) { case 'List.cons': - var $15409 = self.head; - var $15410 = self.tail; - var $15411 = List$cons$(_f$3($15409), List$map$(_f$3, $15410)); - var $15408 = $15411; + var $14134 = self.head; + var $14135 = self.tail; + var $14136 = List$cons$(_f$3($14134), List$map$(_f$3, $14135)); + var $14133 = $14136; break; case 'List.nil': - var $15412 = List$nil; - var $15408 = $15412; + var $14137 = List$nil; + var $14133 = $14137; break; }; - return $15408; + return $14133; }; const List$map = x0 => x1 => List$map$(x0, x1); @@ -50511,12 +46571,12 @@ module.exports = (function() { var R = (() => { var self = _n$1; if (self === 0n) { - var $15413 = _xs$2; - return $15413; + var $14138 = _xs$2; + return $14138; } else { - var $15414 = (self - 1n); - var $15415 = List$seq$go$($15414, List$cons$($15414, _xs$2)); - return $15415; + var $14139 = (self - 1n); + var $14140 = List$seq$go$($14139, List$cons$($14139, _xs$2)); + return $14140; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -50526,17 +46586,17 @@ module.exports = (function() { const List$seq$go = x0 => x1 => List$seq$go$(x0, x1); function List$seq$(_n$1) { - var $15416 = List$seq$go$(_n$1, List$nil); - return $15416; + var $14141 = List$seq$go$(_n$1, List$nil); + return $14141; }; const List$seq = x0 => List$seq$(x0); function Kind$Comp$txt$(_text$1) { - var $15417 = ({ + var $14142 = ({ _: 'Kind.Comp.txt', 'text': _text$1 }); - return $15417; + return $14142; }; const Kind$Comp$txt = x0 => Kind$Comp$txt$(x0); @@ -50544,97 +46604,97 @@ module.exports = (function() { var self = _term$3; switch (self._) { case 'Kind.Comp.var': - var $15419 = self.name; - var self = (_name$1 === $15419); + var $14144 = self.name; + var self = (_name$1 === $14144); if (self) { - var $15421 = _value$2; - var $15420 = $15421; + var $14146 = _value$2; + var $14145 = $14146; } else { - var $15422 = Kind$Comp$var$($15419); - var $15420 = $15422; + var $14147 = Kind$Comp$var$($14144); + var $14145 = $14147; }; - var $15418 = $15420; + var $14143 = $14145; break; case 'Kind.Comp.ref': - var $15423 = self.name; - var $15424 = Kind$Comp$ref$($15423); - var $15418 = $15424; + var $14148 = self.name; + var $14149 = Kind$Comp$ref$($14148); + var $14143 = $14149; break; case 'Kind.Comp.lam': - var $15425 = self.name; - var $15426 = self.body; - var $15427 = Kind$Comp$lam$($15425, (() => { - var self = (_name$1 === $15425); + var $14150 = self.name; + var $14151 = self.body; + var $14152 = Kind$Comp$lam$($14150, (() => { + var self = (_name$1 === $14150); if (self) { - var $15428 = $15426; - return $15428; + var $14153 = $14151; + return $14153; } else { - var $15429 = Kind$Comp$subst$(_name$1, _value$2, $15426); - return $15429; + var $14154 = Kind$Comp$subst$(_name$1, _value$2, $14151); + return $14154; }; })()); - var $15418 = $15427; + var $14143 = $14152; break; case 'Kind.Comp.app': - var $15430 = self.func; - var $15431 = self.argm; - var $15432 = Kind$Comp$app$(Kind$Comp$subst$(_name$1, _value$2, $15430), Kind$Comp$subst$(_name$1, _value$2, $15431)); - var $15418 = $15432; + var $14155 = self.func; + var $14156 = self.argm; + var $14157 = Kind$Comp$app$(Kind$Comp$subst$(_name$1, _value$2, $14155), Kind$Comp$subst$(_name$1, _value$2, $14156)); + var $14143 = $14157; break; case 'Kind.Comp.let': - var $15433 = self.name; - var $15434 = self.expr; - var $15435 = self.body; - var $15436 = Kind$Comp$let$($15433, Kind$Comp$subst$(_name$1, _value$2, $15434), (() => { - var self = (_name$1 === $15433); + var $14158 = self.name; + var $14159 = self.expr; + var $14160 = self.body; + var $14161 = Kind$Comp$let$($14158, Kind$Comp$subst$(_name$1, _value$2, $14159), (() => { + var self = (_name$1 === $14158); if (self) { - var $15437 = $15435; - return $15437; + var $14162 = $14160; + return $14162; } else { - var $15438 = Kind$Comp$subst$(_name$1, _value$2, $15435); - return $15438; + var $14163 = Kind$Comp$subst$(_name$1, _value$2, $14160); + return $14163; }; })()); - var $15418 = $15436; + var $14143 = $14161; break; case 'Kind.Comp.eli': - var $15439 = self.prim; - var $15440 = self.expr; - var $15441 = Kind$Comp$eli$($15439, Kind$Comp$subst$(_name$1, _value$2, $15440)); - var $15418 = $15441; + var $14164 = self.prim; + var $14165 = self.expr; + var $14166 = Kind$Comp$eli$($14164, Kind$Comp$subst$(_name$1, _value$2, $14165)); + var $14143 = $14166; break; case 'Kind.Comp.ins': - var $15442 = self.prim; - var $15443 = self.expr; - var $15444 = Kind$Comp$ins$($15442, Kind$Comp$subst$(_name$1, _value$2, $15443)); - var $15418 = $15444; + var $14167 = self.prim; + var $14168 = self.expr; + var $14169 = Kind$Comp$ins$($14167, Kind$Comp$subst$(_name$1, _value$2, $14168)); + var $14143 = $14169; break; case 'Kind.Comp.nat': - var $15445 = self.natx; - var $15446 = Kind$Comp$nat$($15445); - var $15418 = $15446; + var $14170 = self.natx; + var $14171 = Kind$Comp$nat$($14170); + var $14143 = $14171; break; case 'Kind.Comp.chr': - var $15447 = self.chrx; - var $15448 = Kind$Comp$chr$($15447); - var $15418 = $15448; + var $14172 = self.chrx; + var $14173 = Kind$Comp$chr$($14172); + var $14143 = $14173; break; case 'Kind.Comp.str': - var $15449 = self.strx; - var $15450 = Kind$Comp$str$($15449); - var $15418 = $15450; + var $14174 = self.strx; + var $14175 = Kind$Comp$str$($14174); + var $14143 = $14175; break; case 'Kind.Comp.txt': - var $15451 = self.text; - var $15452 = Kind$Comp$txt$($15451); - var $15418 = $15452; + var $14176 = self.text; + var $14177 = Kind$Comp$txt$($14176); + var $14143 = $14177; break; case 'Kind.Comp.nil': - var $15453 = Kind$Comp$nil; - var $15418 = $15453; + var $14178 = Kind$Comp$nil; + var $14143 = $14178; break; }; - return $15418; + return $14143; }; const Kind$Comp$subst = x0 => x1 => x2 => Kind$Comp$subst$(x0, x1, x2); @@ -50651,15 +46711,15 @@ module.exports = (function() { var self = _args$2; switch (self._) { case 'List.cons': - var $15454 = self.head; - var $15455 = self.tail; + var $14179 = self.head; + var $14180 = self.tail; var self = _term$1; switch (self._) { case 'Kind.Comp.lam': - var $15457 = self.name; - var $15458 = self.body; - var $15459 = Kind$Comp$apply$(Kind$Comp$subst$($15457, $15454, $15458), $15455); - var $15456 = $15459; + var $14182 = self.name; + var $14183 = self.body; + var $14184 = Kind$Comp$apply$(Kind$Comp$subst$($14182, $14179, $14183), $14180); + var $14181 = $14184; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -50672,14 +46732,14 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $15460 = Kind$Comp$apply$(Kind$Comp$app$(_term$1, $15454), $15455); - var $15456 = $15460; + var $14185 = Kind$Comp$apply$(Kind$Comp$app$(_term$1, $14179), $14180); + var $14181 = $14185; break; }; - return $15456; + return $14181; case 'List.nil': - var $15461 = _term$1; - return $15461; + var $14186 = _term$1; + return $14186; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -50692,216 +46752,216 @@ module.exports = (function() { var self = Kind$Comp$get_args$(_term$2); switch (self._) { case 'Pair.new': - var $15463 = self.fst; - var $15464 = self.snd; - var self = $15463; + var $14188 = self.fst; + var $14189 = self.snd; + var self = $14188; switch (self._) { case 'Kind.Comp.ref': - var $15466 = self.name; - var self = Kind$Map$get$($15466, _defs$4); + var $14191 = self.name; + var self = Kind$Map$get$($14191, _defs$4); switch (self._) { case 'Maybe.some': - var $15468 = self.value; - var _arity$9 = Kind$Comp$get_arity$($15468); - var self = ((_arity$9 === (list_length($15464))) && (_arity$9 > 0n)); + var $14193 = self.value; + var _arity$9 = Kind$Comp$get_arity$($14193); + var self = ((_arity$9 === (list_length($14189))) && (_arity$9 > 0n)); if (self) { var _inlined_args$10 = List$map$((_arg$10 => { - var $15471 = Kind$Comp$transpile$term$(_lang$1, _arg$10, _depth$3, _defs$4); - return $15471; - }), $15464); + var $14196 = Kind$Comp$transpile$term$(_lang$1, _arg$10, _depth$3, _defs$4); + return $14196; + }), $14189); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15472 = self.gram; - var $15473 = $15472; - var self = $15473; + var $14197 = self.gram; + var $14198 = $14197; + var self = $14198; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15474 = self.global_application; - var $15475 = $15474; - var _code$11 = $15475; + var $14199 = self.global_application; + var $14200 = $14199; + var _code$11 = $14200; break; }; - var _code$11 = _code$11($15466)(_inlined_args$10); - var $15470 = Maybe$some$(_code$11); - var $15469 = $15470; + var _code$11 = _code$11($14191)(_inlined_args$10); + var $14195 = Maybe$some$(_code$11); + var $14194 = $14195; } else { - var $15476 = Maybe$none; - var $15469 = $15476; + var $14201 = Maybe$none; + var $14194 = $14201; }; - var $15467 = $15469; + var $14192 = $14194; break; case 'Maybe.none': - var $15477 = Maybe$none; - var $15467 = $15477; + var $14202 = Maybe$none; + var $14192 = $14202; break; }; - var $15465 = $15467; + var $14190 = $14192; break; case 'Kind.Comp.eli': - var $15478 = self.prim; - var $15479 = self.expr; + var $14203 = self.prim; + var $14204 = self.expr; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15481 = self.nati; - var $15482 = $15481; - var _shape$9 = $15482; + var $14206 = self.nati; + var $14207 = $14206; + var _shape$9 = $14207; break; }; - var _shape$9 = _shape$9($15478); + var _shape$9 = _shape$9($14203); var self = _shape$9; switch (self._) { case 'Kind.Comp.Native.new': - var $15483 = self.elim; - var self = $15483; + var $14208 = self.elim; + var self = $14208; switch (self._) { case 'Pair.new': - var $15485 = self.fst; - var $15486 = self.snd; - var _args_len$14 = (list_length($15464)); - var _cses_len$15 = (list_length($15486)); + var $14210 = self.fst; + var $14211 = self.snd; + var _args_len$14 = (list_length($14189)); + var _cses_len$15 = (list_length($14211)); var self = (_args_len$14 > _cses_len$15); if (self) { - var $15488 = Maybe$none; - var $15487 = $15488; + var $14213 = Maybe$none; + var $14212 = $14213; } else { var _lams_len$16 = (_cses_len$15 - _args_len$14 <= 0n ? 0n : _cses_len$15 - _args_len$14); - var _args$17 = Nat$for$($15464, 0n, _lams_len$16, (_i$17 => _args$18 => { - var $15490 = List$concat$(_args$18, List$cons$(Kind$Comp$var$(("c" + Nat$show$(_i$17))), List$nil)); - return $15490; + var _args$17 = Nat$for$($14189, 0n, _lams_len$16, (_i$17 => _args$18 => { + var $14215 = List$concat$(_args$18, List$cons$(Kind$Comp$var$(("c" + Nat$show$(_i$17))), List$nil)); + return $14215; })); var _self$18 = ("self" + Nat$show$(_depth$3)); var _cse_body_list$19 = List$map$((_item$19 => { var self = _item$19; switch (self._) { case 'Pair.new': - var $15492 = self.fst; - var $15493 = self.snd; - var self = $15492; + var $14217 = self.fst; + var $14218 = self.snd; + var self = $14217; switch (self._) { case 'Pair.new': - var $15495 = self.fst; - var $15496 = self.snd; - var _flds_len$24 = (list_length($15496)); + var $14220 = self.fst; + var $14221 = self.snd; + var _flds_len$24 = (list_length($14221)); var _let_args_n$25 = List$reverse$(List$seq$(_flds_len$24)); var _lam_args_n$26 = List$reverse$(List$seq$(_lams_len$16)); var _keys$27 = List$create$(_flds_len$24, (_k$27 => { - var $15498 = Kind$Comp$var$(("f" + Nat$show$((_depth$3 + _k$27)))); - return $15498; + var $14223 = Kind$Comp$var$(("f" + Nat$show$((_depth$3 + _k$27)))); + return $14223; })); - var _argj$28 = Kind$Comp$apply$($15493, _keys$27); + var _argj$28 = Kind$Comp$apply$($14218, _keys$27); var _body$29 = Kind$Comp$transpile$term$(_lang$1, _argj$28, ((_depth$3 + _flds_len$24) + _lams_len$16), _defs$4); var _body$30 = (() => { - var $15500 = _body$29; - var $15501 = _lam_args_n$26; - let _body$31 = $15500; + var $14225 = _body$29; + var $14226 = _lam_args_n$26; + let _body$31 = $14225; let _i$30; - while ($15501._ === 'List.cons') { - _i$30 = $15501.head; + while ($14226._ === 'List.cons') { + _i$30 = $14226.head; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15502 = self.gram; - var $15503 = $15502; - var self = $15503; + var $14227 = self.gram; + var $14228 = $14227; + var self = $14228; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15504 = self.lambda; - var $15505 = $15504; - var $15500 = $15505; + var $14229 = self.lambda; + var $14230 = $14229; + var $14225 = $14230; break; }; - var $15500 = $15500(("c" + Nat$show$(_i$30)))(_body$31); - _body$31 = $15500; - $15501 = $15501.tail; + var $14225 = $14225(("c" + Nat$show$(_i$30)))(_body$31); + _body$31 = $14225; + $14226 = $14226.tail; } return _body$31; })(); var _text$31 = _body$30; var _text$32 = (() => { - var $15507 = _text$31; - var $15508 = _let_args_n$25; - let _text$33 = $15507; + var $14232 = _text$31; + var $14233 = _let_args_n$25; + let _text$33 = $14232; let _k$32; - while ($15508._ === 'List.cons') { - _k$32 = $15508.head; + while ($14233._ === 'List.cons') { + _k$32 = $14233.head; var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15509 = self.gram; - var $15510 = $15509; - var self = $15510; + var $14234 = self.gram; + var $14235 = $14234; + var self = $14235; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15511 = self.local_definition; - var $15512 = $15511; - var $15507 = $15512; + var $14236 = self.local_definition; + var $14237 = $14236; + var $14232 = $14237; break; }; - var $15507 = $15507(("f" + Nat$show$((_depth$3 + _k$32))))(Kind$Comp$replace$(Maybe$default$(List$get$(_k$32, $15496), ""), List$cons$(_self$18, List$nil)))(_text$33); - _text$33 = $15507; - $15508 = $15508.tail; + var $14232 = $14232(("f" + Nat$show$((_depth$3 + _k$32))))(Kind$Comp$replace$(Maybe$default$(List$get$(_k$32, $14221), ""), List$cons$(_self$18, List$nil)))(_text$33); + _text$33 = $14232; + $14233 = $14233.tail; } return _text$33; })(); - var $15497 = Pair$new$($15495, _text$32); - var $15494 = $15497; + var $14222 = Pair$new$($14220, _text$32); + var $14219 = $14222; break; }; - var $15491 = $15494; + var $14216 = $14219; break; }; - return $15491; - }), List$zip$($15486, _args$17)); + return $14216; + }), List$zip$($14211, _args$17)); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15513 = self.gram; - var $15514 = $15513; - var self = $15514; + var $14238 = self.gram; + var $14239 = $14238; + var self = $14239; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15515 = self.select; - var $15516 = $15515; - var _ret$20 = $15516; + var $14240 = self.select; + var $14241 = $14240; + var _ret$20 = $14241; break; }; - var _ret$20 = _ret$20(Kind$Comp$replace$($15485, List$cons$(_self$18, List$nil)))(_cse_body_list$19); + var _ret$20 = _ret$20(Kind$Comp$replace$($14210, List$cons$(_self$18, List$nil)))(_cse_body_list$19); var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15517 = self.gram; - var $15518 = $15517; - var self = $15518; + var $14242 = self.gram; + var $14243 = $14242; + var self = $14243; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15519 = self.local_definition; - var $15520 = $15519; - var _ret$21 = $15520; + var $14244 = self.local_definition; + var $14245 = $14244; + var _ret$21 = $14245; break; }; - var _ret$21 = _ret$21(_self$18)(Kind$Comp$transpile$term$(_lang$1, $15479, _depth$3, _defs$4))(_ret$20); - var $15489 = Maybe$some$(_ret$21); - var $15487 = $15489; + var _ret$21 = _ret$21(_self$18)(Kind$Comp$transpile$term$(_lang$1, $14204, _depth$3, _defs$4))(_ret$20); + var $14214 = Maybe$some$(_ret$21); + var $14212 = $14214; }; - var $15484 = $15487; + var $14209 = $14212; break; }; - var $15480 = $15484; + var $14205 = $14209; break; }; - var $15465 = $15480; + var $14190 = $14205; break; case 'Kind.Comp.nil': case 'Kind.Comp.var': @@ -50913,14 +46973,14 @@ module.exports = (function() { case 'Kind.Comp.chr': case 'Kind.Comp.str': case 'Kind.Comp.txt': - var $15521 = Maybe$none; - var $15465 = $15521; + var $14246 = Maybe$none; + var $14190 = $14246; break; }; - var $15462 = $15465; + var $14187 = $14190; break; }; - return $15462; + return $14187; }; const Kind$Comp$Prim$elim = x0 => x1 => x2 => x3 => Kind$Comp$Prim$elim$(x0, x1, x2, x3); @@ -50928,8 +46988,8 @@ module.exports = (function() { var _term$5 = Kind$Comp$eli$(_prim$2, Kind$Comp$var$("x")); var _text$6 = Maybe$default$(Kind$Comp$Prim$elim$(_lang$1, _term$5, 0n, _defs$4), ""); var _term$7 = Kind$Comp$lam$("x", Kind$Comp$txt$(_text$6)); - var $15522 = Kind$Comp$transpile$term$(_lang$1, _term$7, _depth$3, _defs$4); - return $15522; + var $14247 = Kind$Comp$transpile$term$(_lang$1, _term$7, _depth$3, _defs$4); + return $14247; }; const Kind$Comp$Prim$eliminator = x0 => x1 => x2 => x3 => Kind$Comp$Prim$eliminator$(x0, x1, x2, x3); @@ -50946,29 +47006,29 @@ module.exports = (function() { var self = _map$5; switch (self._) { case 'BBT.bin': - var $15523 = self.key; - var $15524 = self.val; - var $15525 = self.left; - var $15526 = self.right; - var self = _cmp$3(_key$4)($15523); + var $14248 = self.key; + var $14249 = self.val; + var $14250 = self.left; + var $14251 = self.right; + var self = _cmp$3(_key$4)($14248); switch (self._) { case 'Cmp.ltn': - var $15528 = BBT$lookup$(_cmp$3, _key$4, $15525); - var $15527 = $15528; + var $14253 = BBT$lookup$(_cmp$3, _key$4, $14250); + var $14252 = $14253; break; case 'Cmp.eql': - var $15529 = Maybe$some$($15524); - var $15527 = $15529; + var $14254 = Maybe$some$($14249); + var $14252 = $14254; break; case 'Cmp.gtn': - var $15530 = BBT$lookup$(_cmp$3, _key$4, $15526); - var $15527 = $15530; + var $14255 = BBT$lookup$(_cmp$3, _key$4, $14251); + var $14252 = $14255; break; }; - return $15527; + return $14252; case 'BBT.tip': - var $15531 = Maybe$none; - return $15531; + var $14256 = Maybe$none; + return $14256; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -50980,20 +47040,20 @@ module.exports = (function() { function U16$cmp$(_a$1, _b$2) { var self = (_a$1 < _b$2); if (self) { - var $15533 = Cmp$ltn; - var $15532 = $15533; + var $14258 = Cmp$ltn; + var $14257 = $14258; } else { var self = (_a$1 === _b$2); if (self) { - var $15535 = Cmp$eql; - var $15534 = $15535; + var $14260 = Cmp$eql; + var $14259 = $14260; } else { - var $15536 = Cmp$gtn; - var $15534 = $15536; + var $14261 = Cmp$gtn; + var $14259 = $14261; }; - var $15532 = $15534; + var $14257 = $14259; }; - return $15532; + return $14257; }; const U16$cmp = x0 => x1 => U16$cmp$(x0, x1); @@ -51011,43 +47071,43 @@ module.exports = (function() { if (self.length === 0) { var self = _b$2; if (self.length === 0) { - var $15538 = Cmp$eql; - var $15537 = $15538; + var $14263 = Cmp$eql; + var $14262 = $14263; } else { - var $15539 = self.charCodeAt(0); - var $15540 = self.slice(1); - var $15541 = Cmp$ltn; - var $15537 = $15541; + var $14264 = self.charCodeAt(0); + var $14265 = self.slice(1); + var $14266 = Cmp$ltn; + var $14262 = $14266; }; - return $15537; + return $14262; } else { - var $15542 = self.charCodeAt(0); - var $15543 = self.slice(1); + var $14267 = self.charCodeAt(0); + var $14268 = self.slice(1); var self = _b$2; if (self.length === 0) { - var $15545 = Cmp$gtn; - var $15544 = $15545; + var $14270 = Cmp$gtn; + var $14269 = $14270; } else { - var $15546 = self.charCodeAt(0); - var $15547 = self.slice(1); - var self = U16$cmp$($15542, $15546); + var $14271 = self.charCodeAt(0); + var $14272 = self.slice(1); + var self = U16$cmp$($14267, $14271); switch (self._) { case 'Cmp.ltn': - var $15549 = Cmp$ltn; - var $15548 = $15549; + var $14274 = Cmp$ltn; + var $14273 = $14274; break; case 'Cmp.eql': - var $15550 = String$cmp$($15543, $15547); - var $15548 = $15550; + var $14275 = String$cmp$($14268, $14272); + var $14273 = $14275; break; case 'Cmp.gtn': - var $15551 = Cmp$gtn; - var $15548 = $15551; + var $14276 = Cmp$gtn; + var $14273 = $14276; break; }; - var $15544 = $15548; + var $14269 = $14273; }; - return $15544; + return $14269; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -51057,175 +47117,175 @@ module.exports = (function() { const String$cmp = x0 => x1 => String$cmp$(x0, x1); function Map$get$(_key$2, _map$3) { - var $15552 = BBT$lookup$(String$cmp, _key$2, _map$3); - return $15552; + var $14277 = BBT$lookup$(String$cmp, _key$2, _map$3); + return $14277; }; const Map$get = x0 => x1 => Map$get$(x0, x1); function BBT$(_K$1, _V$2) { - var $15553 = null; - return $15553; + var $14278 = null; + return $14278; }; const BBT = x0 => x1 => BBT$(x0, x1); function Map$(_V$1) { - var $15554 = null; - return $15554; + var $14279 = null; + return $14279; }; const Map = x0 => Map$(x0); function Kind$Comp$transpile$global_definitions$(_lang$1, _defs_list$2, _defs$3) { var _code$4 = ""; var _code$5 = (() => { - var $15557 = _code$4; - var $15558 = Kind$Comp$Prim$natives; - let _code$6 = $15557; + var $14282 = _code$4; + var $14283 = Kind$Comp$Prim$natives; + let _code$6 = $14282; let _nati$5; - while ($15558._ === 'List.cons') { - _nati$5 = $15558.head; + while ($14283._ === 'List.cons') { + _nati$5 = $14283.head; var self = _nati$5; switch (self._) { case 'Pair.new': - var $15559 = self.fst; - var $15560 = self.snd; + var $14284 = self.fst; + var $14285 = self.snd; var _code$9 = (_code$6 + (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15562 = self.gram; - var $15563 = $15562; - var self = $15563; + var $14287 = self.gram; + var $14288 = $14287; + var self = $14288; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15564 = self.global_function; - var $15565 = $15564; - return $15565; + var $14289 = self.global_function; + var $14290 = $14289; + return $14290; }; })()((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15566 = self.gram; - var $15567 = $15566; - var self = $15567; + var $14291 = self.gram; + var $14292 = $14291; + var self = $14292; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15568 = self.inst_name; - var $15569 = $15568; - return $15569; + var $14293 = self.inst_name; + var $14294 = $14293; + return $14294; }; - })()($15559))(List$nil)(Kind$Comp$Prim$instantiator$(_lang$1, $15560, 0n, _defs$3))); + })()($14284))(List$nil)(Kind$Comp$Prim$instantiator$(_lang$1, $14285, 0n, _defs$3))); var _code$10 = (_code$9 + (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15570 = self.gram; - var $15571 = $15570; - var self = $15571; + var $14295 = self.gram; + var $14296 = $14295; + var self = $14296; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15572 = self.global_function; - var $15573 = $15572; - return $15573; + var $14297 = self.global_function; + var $14298 = $14297; + return $14298; }; })()((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15574 = self.gram; - var $15575 = $15574; - var self = $15575; + var $14299 = self.gram; + var $14300 = $14299; + var self = $14300; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15576 = self.elim_name; - var $15577 = $15576; - return $15577; + var $14301 = self.elim_name; + var $14302 = $14301; + return $14302; }; - })()($15559))(List$nil)(Kind$Comp$Prim$eliminator$(_lang$1, $15560, 0n, _defs$3))); - var $15561 = _code$10; - var $15557 = $15561; + })()($14284))(List$nil)(Kind$Comp$Prim$eliminator$(_lang$1, $14285, 0n, _defs$3))); + var $14286 = _code$10; + var $14282 = $14286; break; }; - _code$6 = $15557; - $15558 = $15558.tail; + _code$6 = $14282; + $14283 = $14283.tail; } return _code$6; })(); var _code$6 = (() => { - var $15579 = _code$5; - var $15580 = _defs_list$2; - let _code$7 = $15579; + var $14304 = _code$5; + var $14305 = _defs_list$2; + let _code$7 = $14304; let _defn$6; - while ($15580._ === 'List.cons') { - _defn$6 = $15580.head; + while ($14305._ === 'List.cons') { + _defn$6 = $14305.head; var self = _defn$6; switch (self._) { case 'Pair.new': - var $15581 = self.fst; - var $15582 = self.snd; - var self = Kind$Comp$get_vars$($15582); + var $14306 = self.fst; + var $14307 = self.snd; + var self = Kind$Comp$get_vars$($14307); switch (self._) { case 'Pair.new': - var $15584 = self.fst; - var $15585 = self.snd; - var self = Map$get$($15581, (() => { + var $14309 = self.fst; + var $14310 = self.snd; + var self = Map$get$($14306, (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15587 = self.opts; - var $15588 = $15587; - return $15588; + var $14312 = self.opts; + var $14313 = $14312; + return $14313; }; })()); switch (self._) { case 'Maybe.some': - var $15589 = self.value; - var $15590 = Kind$Comp$replace$(Pair$snd$($15589), $15584); - var _inlined_body$12 = $15590; + var $14314 = self.value; + var $14315 = Kind$Comp$replace$(Pair$snd$($14314), $14309); + var _inlined_body$12 = $14315; break; case 'Maybe.none': - var $15591 = Kind$Comp$transpile$term$(_lang$1, $15585, 0n, _defs$3); - var _inlined_body$12 = $15591; + var $14316 = Kind$Comp$transpile$term$(_lang$1, $14310, 0n, _defs$3); + var _inlined_body$12 = $14316; break; }; var _code$13 = (_code$7 + (() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15592 = self.gram; - var $15593 = $15592; - var self = $15593; + var $14317 = self.gram; + var $14318 = $14317; + var self = $14318; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15594 = self.global_function; - var $15595 = $15594; - return $15595; + var $14319 = self.global_function; + var $14320 = $14319; + return $14320; }; - })()($15581)($15584)(_inlined_body$12)); - var $15586 = _code$13; - var $15583 = $15586; + })()($14306)($14309)(_inlined_body$12)); + var $14311 = _code$13; + var $14308 = $14311; break; }; - var $15579 = $15583; + var $14304 = $14308; break; }; - _code$7 = $15579; - $15580 = $15580.tail; + _code$7 = $14304; + $14305 = $14305.tail; } return _code$7; })(); - var $15555 = _code$6; - return $15555; + var $14280 = _code$6; + return $14280; }; const Kind$Comp$transpile$global_definitions = x0 => x1 => x2 => Kind$Comp$transpile$global_definitions$(x0, x1, x2); @@ -51234,46 +47294,46 @@ module.exports = (function() { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15597 = self.gram; - var $15598 = $15597; - var self = $15598; + var $14322 = self.gram; + var $14323 = $14322; + var self = $14323; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15599 = self.program; - var $15600 = $15599; - var _code$5 = $15600; + var $14324 = self.program; + var $14325 = $14324; + var _code$5 = $14325; break; }; var _code$5 = _code$5(_main$2)(((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15601 = self.base; - var $15602 = $15601; - return $15602; + var $14326 = self.base; + var $14327 = $14326; + return $14327; }; })() + ("\u{a}\u{a}" + Kind$Comp$transpile$global_definitions$(_lang$1, _defs_list$4, _defs$3)))); - var $15596 = _code$5; - return $15596; + var $14321 = _code$5; + return $14321; }; const Kind$Comp$transpile = x0 => x1 => x2 => Kind$Comp$transpile$(x0, x1, x2); function Kind$Comp$Language$new$(_gram$1, _nati$2, _opts$3, _base$4) { - var $15603 = ({ + var $14328 = ({ _: 'Kind.Comp.Language.new', 'gram': _gram$1, 'nati': _nati$2, 'opts': _opts$3, 'base': _base$4 }); - return $15603; + return $14328; }; const Kind$Comp$Language$new = x0 => x1 => x2 => x3 => Kind$Comp$Language$new$(x0, x1, x2, x3); function Kind$Comp$Grammar$new$(_null$1, _name$2, _inst_name$3, _elim_name$4, _lambda$5, _application$6, _local_definition$7, _global_function$8, _global_application$9, _select$10, _string_literal$11, _nat$12, _module$13, _program$14) { - var $15604 = ({ + var $14329 = ({ _: 'Kind.Comp.Grammar.new', 'null': _null$1, 'name': _name$2, @@ -51290,7 +47350,7 @@ module.exports = (function() { 'module': _module$13, 'program': _program$14 }); - return $15604; + return $14329; }; const Kind$Comp$Grammar$new = x0 => x1 => x2 => x3 => x4 => x5 => x6 => x7 => x8 => x9 => x10 => x11 => x12 => x13 => Kind$Comp$Grammar$new$(x0, x1, x2, x3, x4, x5, x6, x7, x8, x9, x10, x11, x12, x13); const Kind$Comp$Target$Scheme$null = "\'()"; @@ -51298,49 +47358,49 @@ module.exports = (function() { function Kind$Comp$Target$Scheme$name$(_name$1) { var self = String$is_empty$(_name$1); if (self) { - var $15606 = "-"; - var $15605 = $15606; + var $14331 = "-"; + var $14330 = $14331; } else { - var $15607 = _name$1; - var $15605 = $15607; + var $14332 = _name$1; + var $14330 = $14332; }; - return $15605; + return $14330; }; const Kind$Comp$Target$Scheme$name = x0 => Kind$Comp$Target$Scheme$name$(x0); function Kind$Comp$Target$Scheme$inst_name$(_name$1) { - var $15608 = (_name$1 + "-inst"); - return $15608; + var $14333 = (_name$1 + "-inst"); + return $14333; }; const Kind$Comp$Target$Scheme$inst_name = x0 => Kind$Comp$Target$Scheme$inst_name$(x0); function Kind$Comp$Target$Scheme$elim_name$(_name$1) { - var $15609 = (_name$1 + "-elim"); - return $15609; + var $14334 = (_name$1 + "-elim"); + return $14334; }; const Kind$Comp$Target$Scheme$elim_name = x0 => Kind$Comp$Target$Scheme$elim_name$(x0); function Kind$Comp$Target$Scheme$lambda$(_name$1, _body$2) { - var $15610 = ("(lambda (" + (_name$1 + (") " + (_body$2 + ")")))); - return $15610; + var $14335 = ("(lambda (" + (_name$1 + (") " + (_body$2 + ")")))); + return $14335; }; const Kind$Comp$Target$Scheme$lambda = x0 => x1 => Kind$Comp$Target$Scheme$lambda$(x0, x1); function Kind$Comp$Target$Scheme$application$(_func$1, _argm$2) { - var $15611 = ("(" + (_func$1 + (" " + (_argm$2 + ")")))); - return $15611; + var $14336 = ("(" + (_func$1 + (" " + (_argm$2 + ")")))); + return $14336; }; const Kind$Comp$Target$Scheme$application = x0 => x1 => Kind$Comp$Target$Scheme$application$(x0, x1); function Kind$Comp$Target$Scheme$local_definition$(_name$1, _expr$2, _body$3) { - var $15612 = ("(let ((" + (_name$1 + (" " + (_expr$2 + (")) " + (_body$3 + ")")))))); - return $15612; + var $14337 = ("(let ((" + (_name$1 + (" " + (_expr$2 + (")) " + (_body$3 + ")")))))); + return $14337; }; const Kind$Comp$Target$Scheme$local_definition = x0 => x1 => x2 => Kind$Comp$Target$Scheme$local_definition$(x0, x1, x2); function Kind$Comp$Target$Scheme$global_application$(_name$1, _args$2) { - var $15613 = ("($" + (_name$1 + (" " + (String$join$(" ", _args$2) + ")")))); - return $15613; + var $14338 = ("($" + (_name$1 + (" " + (String$join$(" ", _args$2) + ")")))); + return $14338; }; const Kind$Comp$Target$Scheme$global_application = x0 => x1 => Kind$Comp$Target$Scheme$global_application$(x0, x1); @@ -51348,24 +47408,24 @@ module.exports = (function() { var self = _rem_args$3; switch (self._) { case 'List.cons': - var $15615 = self.head; - var $15616 = self.tail; - var $15617 = Kind$Comp$Target$Scheme$lambda$($15615, Kind$Comp$Target$Scheme$nest_lambdas$aux$(_fun$1, _args$2, $15616)); - var $15614 = $15617; + var $14340 = self.head; + var $14341 = self.tail; + var $14342 = Kind$Comp$Target$Scheme$lambda$($14340, Kind$Comp$Target$Scheme$nest_lambdas$aux$(_fun$1, _args$2, $14341)); + var $14339 = $14342; break; case 'List.nil': - var $15618 = Kind$Comp$Target$Scheme$global_application$(_fun$1, _args$2); - var $15614 = $15618; + var $14343 = Kind$Comp$Target$Scheme$global_application$(_fun$1, _args$2); + var $14339 = $14343; break; }; - return $15614; + return $14339; }; const Kind$Comp$Target$Scheme$nest_lambdas$aux = x0 => x1 => x2 => Kind$Comp$Target$Scheme$nest_lambdas$aux$(x0, x1, x2); function Kind$Comp$Target$Scheme$nest_lambdas$(_name$1, _args$2) { var _body$3 = Kind$Comp$Target$Scheme$nest_lambdas$aux$(_name$1, _args$2, _args$2); - var $15619 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); - return $15619; + var $14344 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); + return $14344; }; const Kind$Comp$Target$Scheme$nest_lambdas = x0 => x1 => Kind$Comp$Target$Scheme$nest_lambdas$(x0, x1); @@ -51373,86 +47433,86 @@ module.exports = (function() { var self = _args$2; switch (self._) { case 'List.nil': - var $15621 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); - var $15620 = $15621; + var $14346 = ("(define " + (_name$1 + (" " + (_body$3 + ")\u{a}")))); + var $14345 = $14346; break; case 'List.cons': - var $15622 = ("(define ($" + (_name$1 + (" " + (String$join$(" ", _args$2) + (") " + (_body$3 + (")\u{a}" + Kind$Comp$Target$Scheme$nest_lambdas$(_name$1, _args$2)))))))); - var $15620 = $15622; + var $14347 = ("(define ($" + (_name$1 + (" " + (String$join$(" ", _args$2) + (") " + (_body$3 + (")\u{a}" + Kind$Comp$Target$Scheme$nest_lambdas$(_name$1, _args$2)))))))); + var $14345 = $14347; break; }; - return $15620; + return $14345; }; const Kind$Comp$Target$Scheme$global_function = x0 => x1 => x2 => Kind$Comp$Target$Scheme$global_function$(x0, x1, x2); function Kind$Comp$Target$Scheme$select$(_term$1, _cse_body_list$2) { var _cses$3 = ""; var _cses$4 = (() => { - var $15625 = _cses$3; - var $15626 = _cse_body_list$2; - let _cses$5 = $15625; + var $14350 = _cses$3; + var $14351 = _cse_body_list$2; + let _cses$5 = $14350; let _cse_body$4; - while ($15626._ === 'List.cons') { - _cse_body$4 = $15626.head; + while ($14351._ === 'List.cons') { + _cse_body$4 = $14351.head; var self = _cse_body$4; switch (self._) { case 'Pair.new': - var $15627 = self.fst; - var $15628 = self.snd; - var $15629 = (_cses$5 + (" (" + ($15627 + (" " + ($15628 + ")"))))); - var $15625 = $15629; + var $14352 = self.fst; + var $14353 = self.snd; + var $14354 = (_cses$5 + (" (" + ($14352 + (" " + ($14353 + ")"))))); + var $14350 = $14354; break; }; - _cses$5 = $15625; - $15626 = $15626.tail; + _cses$5 = $14350; + $14351 = $14351.tail; } return _cses$5; })(); - var $15623 = ("(case " + (_term$1 + (_cses$4 + ")"))); - return $15623; + var $14348 = ("(case " + (_term$1 + (_cses$4 + ")"))); + return $14348; }; const Kind$Comp$Target$Scheme$select = x0 => x1 => Kind$Comp$Target$Scheme$select$(x0, x1); function Char$to_string$(_chr$1) { - var $15630 = String$cons$(_chr$1, String$nil); - return $15630; + var $14355 = String$cons$(_chr$1, String$nil); + return $14355; }; const Char$to_string = x0 => Char$to_string$(x0); function Kind$Comp$Target$Scheme$string_literal$(_str$1) { var self = _str$1; if (self.length === 0) { - var $15632 = ""; - var $15631 = $15632; + var $14357 = ""; + var $14356 = $14357; } else { - var $15633 = self.charCodeAt(0); - var $15634 = self.slice(1); - var $15635 = ((() => { - var self = (($15633 === 92) || ($15633 === 34)); + var $14358 = self.charCodeAt(0); + var $14359 = self.slice(1); + var $14360 = ((() => { + var self = (($14358 === 92) || ($14358 === 34)); if (self) { - var $15636 = ("\\" + Char$to_string$($15633)); - return $15636; + var $14361 = ("\\" + Char$to_string$($14358)); + return $14361; } else { - var self = (($15633 >= 32) && ($15633 <= 126)); + var self = (($14358 >= 32) && ($14358 <= 126)); if (self) { - var $15638 = Char$to_string$($15633); - var $15637 = $15638; + var $14363 = Char$to_string$($14358); + var $14362 = $14363; } else { - var $15639 = ("\\x" + (U16$show_hex$($15633) + ";")); - var $15637 = $15639; + var $14364 = ("\\x" + (U16$show_hex$($14358) + ";")); + var $14362 = $14364; }; - return $15637; + return $14362; }; - })() + Kind$Comp$Target$Scheme$string_literal$($15634)); - var $15631 = $15635; + })() + Kind$Comp$Target$Scheme$string_literal$($14359)); + var $14356 = $14360; }; - return $15631; + return $14356; }; const Kind$Comp$Target$Scheme$string_literal = x0 => Kind$Comp$Target$Scheme$string_literal$(x0); function Kind$Comp$Target$Scheme$nat$(_nat$1) { - var $15640 = Nat$show$(_nat$1); - return $15640; + var $14365 = Nat$show$(_nat$1); + return $14365; }; const Kind$Comp$Target$Scheme$nat = x0 => Kind$Comp$Target$Scheme$nat$(x0); const Kind$Comp$Target$Scheme$exports = List$cons$("find-all-kind-files", List$cons$("suffix?", List$cons$("prefix?", List$cons$("run-all", List$cons$("run_io", List$cons$("print-lines", List$cons$("run_kind", List$cons$("make-string-view", List$cons$("string-view?", List$cons$("string-view-end", List$cons$("string-view-start", List$cons$("kstring-length", List$cons$("kstring-head", List$cons$("kstring-tail", List$cons$("string-view-ref", List$cons$("kstring?", List$cons$("kstring->string", List$cons$("kstring-append", List$cons$("kstring-getter", List$cons$("kstring_join", List$nil)))))))))))))))))))); @@ -51460,54 +47520,54 @@ module.exports = (function() { function Kind$Comp$Target$Scheme$module$(_name$1, _exports$2, _defs$3) { var _code$4 = ("#!chezscheme\u{a}(library (" + (_name$1 + ") (export")); var _code$5 = (() => { - var $15643 = _code$4; - var $15644 = Kind$Comp$Target$Scheme$exports; - let _code$6 = $15643; + var $14368 = _code$4; + var $14369 = Kind$Comp$Target$Scheme$exports; + let _code$6 = $14368; let _export$5; - while ($15644._ === 'List.cons') { - _export$5 = $15644.head; - var $15643 = (_code$6 + (" " + _export$5)); - _code$6 = $15643; - $15644 = $15644.tail; + while ($14369._ === 'List.cons') { + _export$5 = $14369.head; + var $14368 = (_code$6 + (" " + _export$5)); + _code$6 = $14368; + $14369 = $14369.tail; } return _code$6; })(); var _code$6 = (() => { - var $15646 = _code$5; - var $15647 = _exports$2; - let _code$7 = $15646; + var $14371 = _code$5; + var $14372 = _exports$2; + let _code$7 = $14371; let _export$6; - while ($15647._ === 'List.cons') { - _export$6 = $15647.head; - var $15646 = (_code$7 + (" " + _export$6)); - _code$7 = $15646; - $15647 = $15647.tail; + while ($14372._ === 'List.cons') { + _export$6 = $14372.head; + var $14371 = (_code$7 + (" " + _export$6)); + _code$7 = $14371; + $14372 = $14372.tail; } return _code$7; })(); var _code$7 = (_code$6 + ")\u{a}"); var _code$8 = (_code$7 + "(import (chezscheme))\u{a}"); var _code$9 = (_code$8 + (_defs$3 + ")")); - var $15641 = _code$9; - return $15641; + var $14366 = _code$9; + return $14366; }; const Kind$Comp$Target$Scheme$module = x0 => x1 => x2 => Kind$Comp$Target$Scheme$module$(x0, x1, x2); function Kind$Comp$Target$Scheme$program$(_main$1, _defs$2) { var _code$3 = (_defs$2 + ("(run_kind " + (_main$1 + ")"))); - var $15648 = _code$3; - return $15648; + var $14373 = _code$3; + return $14373; }; const Kind$Comp$Target$Scheme$program = x0 => x1 => Kind$Comp$Target$Scheme$program$(x0, x1); const Kind$Comp$Target$Scheme$grammar = Kind$Comp$Grammar$new$(Kind$Comp$Target$Scheme$null, Kind$Comp$Target$Scheme$name, Kind$Comp$Target$Scheme$inst_name, Kind$Comp$Target$Scheme$elim_name, Kind$Comp$Target$Scheme$lambda, Kind$Comp$Target$Scheme$application, Kind$Comp$Target$Scheme$local_definition, Kind$Comp$Target$Scheme$global_function, Kind$Comp$Target$Scheme$global_application, Kind$Comp$Target$Scheme$select, Kind$Comp$Target$Scheme$string_literal, Kind$Comp$Target$Scheme$nat, Kind$Comp$Target$Scheme$module, Kind$Comp$Target$Scheme$program); function Kind$Comp$Native$new$(_inst$1, _elim$2) { - var $15649 = ({ + var $14374 = ({ _: 'Kind.Comp.Native.new', 'inst': _inst$1, 'elim': _elim$2 }); - return $15649; + return $14374; }; const Kind$Comp$Native$new = x0 => x1 => Kind$Comp$Native$new$(x0, x1); @@ -51515,78 +47575,78 @@ module.exports = (function() { var self = _prim$1; switch (self._) { case 'Kind.Comp.Prim.data': - var $15651 = self.name; - var $15652 = self.ctrs; - var $15653 = Kind$Comp$Native$new$(List$fold$($15652, List$nil, (_ctr$4 => _result$5 => { + var $14376 = self.name; + var $14377 = self.ctrs; + var $14378 = Kind$Comp$Native$new$(List$fold$($14377, List$nil, (_ctr$4 => _result$5 => { var self = _ctr$4; switch (self._) { case 'Pair.new': - var $15655 = self.fst; - var $15656 = self.snd; - var _fields_size$8 = (list_length($15656)); + var $14380 = self.fst; + var $14381 = self.snd; + var _fields_size$8 = (list_length($14381)); var _fields_vars$9 = String$join$("", List$create$(_fields_size$8, (_x$9 => { - var $15658 = (" $" + Nat$show$(_x$9)); - return $15658; + var $14383 = (" $" + Nat$show$(_x$9)); + return $14383; }))); - var $15657 = List$cons$(Pair$new$(_fields_size$8, ("(vector \'" + ($15651 + ("." + ($15655 + (_fields_vars$9 + ")")))))), _result$5); - var $15654 = $15657; + var $14382 = List$cons$(Pair$new$(_fields_size$8, ("(vector \'" + ($14376 + ("." + ($14380 + (_fields_vars$9 + ")")))))), _result$5); + var $14379 = $14382; break; }; - return $15654; - })), Pair$new$("(get $0 0)", List$fold$($15652, List$nil, (_ctr$4 => _result$5 => { + return $14379; + })), Pair$new$("(get $0 0)", List$fold$($14377, List$nil, (_ctr$4 => _result$5 => { var self = _ctr$4; switch (self._) { case 'Pair.new': - var $15660 = self.fst; - var $15661 = self.snd; - var _fields_size$8 = (list_length($15661)); + var $14385 = self.fst; + var $14386 = self.snd; + var _fields_size$8 = (list_length($14386)); var _fields_gets$9 = List$create$(_fields_size$8, (_i$9 => { - var $15663 = ("(get $0 " + (Nat$show$(Nat$succ$(_i$9)) + ")")); - return $15663; + var $14388 = ("(get $0 " + (Nat$show$(Nat$succ$(_i$9)) + ")")); + return $14388; })); - var $15662 = List$cons$(Pair$new$(("\'" + ($15651 + ("." + $15660))), _fields_gets$9), _result$5); - var $15659 = $15662; + var $14387 = List$cons$(Pair$new$(("\'" + ($14376 + ("." + $14385))), _fields_gets$9), _result$5); + var $14384 = $14387; break; }; - return $15659; + return $14384; })))); - var $15650 = $15653; + var $14375 = $14378; break; case 'Kind.Comp.Prim.bool': - var $15664 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#t"), List$cons$(Pair$new$(0n, "#f"), List$nil)), Pair$new$("$0", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$nil), List$nil)))); - var $15650 = $15664; + var $14389 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#t"), List$cons$(Pair$new$(0n, "#f"), List$nil)), Pair$new$("$0", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$nil), List$nil)))); + var $14375 = $14389; break; case 'Kind.Comp.Prim.bits': - var $15665 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#b1"), List$cons$(Pair$new$(1n, "(bitwise-arithmetic-shift-left $0 #b1)"), List$cons$(Pair$new$(1n, "(bitwise-ior (bitwise-arithmetic-shift-left $0 #b1) #b1)"), List$nil))), Pair$new$("(if (eq? $0 #b1) 2 (bitwise-and $0 #b1))", List$cons$(Pair$new$("2", List$nil), List$cons$(Pair$new$("0", List$cons$("(bitwise-arithmetic-shift-right $0 #b1)", List$nil)), List$cons$(Pair$new$("1", List$cons$("(bitwise-arithmetic-shift-right $0 #b1)", List$nil)), List$nil))))); - var $15650 = $15665; + var $14390 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#b1"), List$cons$(Pair$new$(1n, "(bitwise-arithmetic-shift-left $0 #b1)"), List$cons$(Pair$new$(1n, "(bitwise-ior (bitwise-arithmetic-shift-left $0 #b1) #b1)"), List$nil))), Pair$new$("(if (eq? $0 #b1) 2 (bitwise-and $0 #b1))", List$cons$(Pair$new$("2", List$nil), List$cons$(Pair$new$("0", List$cons$("(bitwise-arithmetic-shift-right $0 #b1)", List$nil)), List$cons$(Pair$new$("1", List$cons$("(bitwise-arithmetic-shift-right $0 #b1)", List$nil)), List$nil))))); + var $14375 = $14390; break; case 'Kind.Comp.Prim.unit': - var $15666 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#t"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$nil), List$nil))); - var $15650 = $15666; + var $14391 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "#t"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$nil), List$nil))); + var $14375 = $14391; break; case 'Kind.Comp.Prim.nat': - var $15667 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "0"), List$cons$(Pair$new$(1n, "(+ $0 1)"), List$nil)), Pair$new$("(= $0 0)", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$cons$("(- $0 1)", List$nil)), List$nil)))); - var $15650 = $15667; + var $14392 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "0"), List$cons$(Pair$new$(1n, "(+ $0 1)"), List$nil)), Pair$new$("(= $0 0)", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$cons$("(- $0 1)", List$nil)), List$nil)))); + var $14375 = $14392; break; case 'Kind.Comp.Prim.u16': - var $15668 = Kind$Comp$Native$new$(List$cons$(Pair$new$(1n, "(word-to-u16 $0)"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$cons$("(u16-to-word $0)", List$nil)), List$nil))); - var $15650 = $15668; + var $14393 = Kind$Comp$Native$new$(List$cons$(Pair$new$(1n, "(word-to-u16 $0)"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$cons$("(u16-to-word $0)", List$nil)), List$nil))); + var $14375 = $14393; break; case 'Kind.Comp.Prim.u32': - var $15669 = Kind$Comp$Native$new$(List$cons$(Pair$new$(1n, "(word-to-u 32 $0)"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$cons$("(u-to-word 32 $0)", List$nil)), List$nil))); - var $15650 = $15669; + var $14394 = Kind$Comp$Native$new$(List$cons$(Pair$new$(1n, "(word-to-u 32 $0)"), List$nil), Pair$new$("#t", List$cons$(Pair$new$("#t", List$cons$("(u-to-word 32 $0)", List$nil)), List$nil))); + var $14375 = $14394; break; case 'Kind.Comp.Prim.string': - var $15670 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "\"\""), List$cons$(Pair$new$(2n, "(kstring-append (make-string 1 (integer->char $0)) $1)"), List$nil)), Pair$new$("(<= (kstring-length $0) 0)", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$cons$("(char->integer (kstring-head $0))", List$cons$("(kstring-tail $0)", List$nil))), List$nil)))); - var $15650 = $15670; + var $14395 = Kind$Comp$Native$new$(List$cons$(Pair$new$(0n, "\"\""), List$cons$(Pair$new$(2n, "(kstring-append (make-string 1 (integer->char $0)) $1)"), List$nil)), Pair$new$("(<= (kstring-length $0) 0)", List$cons$(Pair$new$("#t", List$nil), List$cons$(Pair$new$("#f", List$cons$("(char->integer (kstring-head $0))", List$cons$("(kstring-tail $0)", List$nil))), List$nil)))); + var $14375 = $14395; break; }; - return $15650; + return $14375; }; const Kind$Comp$Target$Scheme$natives = x0 => Kind$Comp$Target$Scheme$natives$(x0); function BBT$bin$(_size$3, _key$4, _val$5, _left$6, _right$7) { - var $15671 = ({ + var $14396 = ({ _: 'BBT.bin', 'size': _size$3, 'key': _key$4, @@ -51594,13 +47654,13 @@ module.exports = (function() { 'left': _left$6, 'right': _right$7 }); - return $15671; + return $14396; }; const BBT$bin = x0 => x1 => x2 => x3 => x4 => BBT$bin$(x0, x1, x2, x3, x4); function U32$new$(_value$1) { - var $15672 = word_to_u32(_value$1); - return $15672; + var $14397 = word_to_u32(_value$1); + return $14397; }; const U32$new = x0 => U32$new$(x0); const Nat$to_u32 = a0 => (Number(a0) >>> 0); @@ -51609,8 +47669,8 @@ module.exports = (function() { }); function BBT$singleton$(_key$3, _val$4) { - var $15673 = BBT$bin$(1, _key$3, _val$4, BBT$tip, BBT$tip); - return $15673; + var $14398 = BBT$bin$(1, _key$3, _val$4, BBT$tip, BBT$tip); + return $14398; }; const BBT$singleton = x0 => x1 => BBT$singleton$(x0, x1); @@ -51618,16 +47678,16 @@ module.exports = (function() { var self = _map$3; switch (self._) { case 'BBT.bin': - var $15675 = self.size; - var $15676 = $15675; - var $15674 = $15676; + var $14400 = self.size; + var $14401 = $14400; + var $14399 = $14401; break; case 'BBT.tip': - var $15677 = 0; - var $15674 = $15677; + var $14402 = 0; + var $14399 = $14402; break; }; - return $15674; + return $14399; }; const BBT$size = x0 => BBT$size$(x0); const U32$add = a0 => a1 => ((a0 + a1) >>> 0); @@ -51640,8 +47700,8 @@ module.exports = (function() { var _size_left$7 = BBT$size$(_left$5); var _size_right$8 = BBT$size$(_right$6); var _new_size$9 = ((1 + ((_size_left$7 + _size_right$8) >>> 0)) >>> 0); - var $15678 = BBT$bin$(_new_size$9, _key$3, _val$4, _left$5, _right$6); - return $15678; + var $14403 = BBT$bin$(_new_size$9, _key$3, _val$4, _left$5, _right$6); + return $14403; }; const BBT$node = x0 => x1 => x2 => x3 => BBT$node$(x0, x1, x2, x3); @@ -51650,21 +47710,21 @@ module.exports = (function() { switch (self._) { case 'Cmp.ltn': case 'Cmp.eql': - var $15680 = Bool$false; - var $15679 = $15680; + var $14405 = Bool$false; + var $14404 = $14405; break; case 'Cmp.gtn': - var $15681 = Bool$true; - var $15679 = $15681; + var $14406 = Bool$true; + var $14404 = $14406; break; }; - return $15679; + return $14404; }; const Cmp$as_gtn = x0 => Cmp$as_gtn$(x0); function Word$gtn$(_a$2, _b$3) { - var $15682 = Cmp$as_gtn$(Word$cmp$(_a$2, _b$3)); - return $15682; + var $14407 = Cmp$as_gtn$(Word$cmp$(_a$2, _b$3)); + return $14407; }; const Word$gtn = x0 => x1 => Word$gtn$(x0, x1); const U32$gtn = a0 => a1 => (a0 > a1); @@ -51677,117 +47737,117 @@ module.exports = (function() { var _w_x_size_r$11 = ((BBT$w * _size_r$8) >>> 0); var self = (_size_l_plus_size_r$9 < 2); if (self) { - var $15684 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15683 = $15684; + var $14409 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $14408 = $14409; } else { var self = (_size_r$8 > _w_x_size_l$10); if (self) { var self = _r$6; switch (self._) { case 'BBT.bin': - var $15687 = self.key; - var $15688 = self.val; - var $15689 = self.left; - var $15690 = self.right; - var _size_rl$17 = BBT$size$($15689); - var _size_rr$18 = BBT$size$($15690); + var $14412 = self.key; + var $14413 = self.val; + var $14414 = self.left; + var $14415 = self.right; + var _size_rl$17 = BBT$size$($14414); + var _size_rr$18 = BBT$size$($14415); var self = (_size_rl$17 < _size_rr$18); if (self) { - var _new_key$19 = $15687; - var _new_val$20 = $15688; - var _new_left$21 = BBT$node$(_k$3, _v$4, _l$5, $15689); - var _new_right$22 = $15690; - var $15692 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); - var $15691 = $15692; + var _new_key$19 = $14412; + var _new_val$20 = $14413; + var _new_left$21 = BBT$node$(_k$3, _v$4, _l$5, $14414); + var _new_right$22 = $14415; + var $14417 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); + var $14416 = $14417; } else { - var self = $15689; + var self = $14414; switch (self._) { case 'BBT.bin': - var $15694 = self.key; - var $15695 = self.val; - var $15696 = self.left; - var $15697 = self.right; - var _new_key$24 = $15694; - var _new_val$25 = $15695; - var _new_left$26 = BBT$node$(_k$3, _v$4, _l$5, $15696); - var _new_right$27 = BBT$node$($15687, $15688, $15697, $15690); - var $15698 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); - var $15693 = $15698; + var $14419 = self.key; + var $14420 = self.val; + var $14421 = self.left; + var $14422 = self.right; + var _new_key$24 = $14419; + var _new_val$25 = $14420; + var _new_left$26 = BBT$node$(_k$3, _v$4, _l$5, $14421); + var _new_right$27 = BBT$node$($14412, $14413, $14422, $14415); + var $14423 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); + var $14418 = $14423; break; case 'BBT.tip': - var $15699 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15693 = $15699; + var $14424 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $14418 = $14424; break; }; - var $15691 = $15693; + var $14416 = $14418; }; - var $15686 = $15691; + var $14411 = $14416; break; case 'BBT.tip': - var $15700 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15686 = $15700; + var $14425 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $14411 = $14425; break; }; - var $15685 = $15686; + var $14410 = $14411; } else { var self = (_size_l$7 > _w_x_size_r$11); if (self) { var self = _l$5; switch (self._) { case 'BBT.bin': - var $15703 = self.key; - var $15704 = self.val; - var $15705 = self.left; - var $15706 = self.right; - var _size_ll$17 = BBT$size$($15705); - var _size_lr$18 = BBT$size$($15706); + var $14428 = self.key; + var $14429 = self.val; + var $14430 = self.left; + var $14431 = self.right; + var _size_ll$17 = BBT$size$($14430); + var _size_lr$18 = BBT$size$($14431); var self = (_size_lr$18 < _size_ll$17); if (self) { - var _new_key$19 = $15703; - var _new_val$20 = $15704; - var _new_left$21 = $15705; - var _new_right$22 = BBT$node$(_k$3, _v$4, $15706, _r$6); - var $15708 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); - var $15707 = $15708; + var _new_key$19 = $14428; + var _new_val$20 = $14429; + var _new_left$21 = $14430; + var _new_right$22 = BBT$node$(_k$3, _v$4, $14431, _r$6); + var $14433 = BBT$node$(_new_key$19, _new_val$20, _new_left$21, _new_right$22); + var $14432 = $14433; } else { - var self = $15706; + var self = $14431; switch (self._) { case 'BBT.bin': - var $15710 = self.key; - var $15711 = self.val; - var $15712 = self.left; - var $15713 = self.right; - var _new_key$24 = $15710; - var _new_val$25 = $15711; - var _new_left$26 = BBT$node$($15703, $15704, $15705, $15712); - var _new_right$27 = BBT$node$(_k$3, _v$4, $15713, _r$6); - var $15714 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); - var $15709 = $15714; + var $14435 = self.key; + var $14436 = self.val; + var $14437 = self.left; + var $14438 = self.right; + var _new_key$24 = $14435; + var _new_val$25 = $14436; + var _new_left$26 = BBT$node$($14428, $14429, $14430, $14437); + var _new_right$27 = BBT$node$(_k$3, _v$4, $14438, _r$6); + var $14439 = BBT$node$(_new_key$24, _new_val$25, _new_left$26, _new_right$27); + var $14434 = $14439; break; case 'BBT.tip': - var $15715 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15709 = $15715; + var $14440 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $14434 = $14440; break; }; - var $15707 = $15709; + var $14432 = $14434; }; - var $15702 = $15707; + var $14427 = $14432; break; case 'BBT.tip': - var $15716 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15702 = $15716; + var $14441 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $14427 = $14441; break; }; - var $15701 = $15702; + var $14426 = $14427; } else { - var $15717 = BBT$node$(_k$3, _v$4, _l$5, _r$6); - var $15701 = $15717; + var $14442 = BBT$node$(_k$3, _v$4, _l$5, _r$6); + var $14426 = $14442; }; - var $15685 = $15701; + var $14410 = $14426; }; - var $15683 = $15685; + var $14408 = $14410; }; - return $15683; + return $14408; }; const BBT$balance = x0 => x1 => x2 => x3 => BBT$balance$(x0, x1, x2, x3); @@ -51795,41 +47855,41 @@ module.exports = (function() { var self = _map$6; switch (self._) { case 'BBT.bin': - var $15719 = self.key; - var $15720 = self.val; - var $15721 = self.left; - var $15722 = self.right; - var self = _cmp$3(_key$4)($15719); + var $14444 = self.key; + var $14445 = self.val; + var $14446 = self.left; + var $14447 = self.right; + var self = _cmp$3(_key$4)($14444); switch (self._) { case 'Cmp.ltn': - var _new_key$12 = $15719; - var _new_val$13 = $15720; - var _new_left$14 = BBT$insert$(_cmp$3, _key$4, _val$5, $15721); - var _new_right$15 = $15722; - var $15724 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); - var $15723 = $15724; + var _new_key$12 = $14444; + var _new_val$13 = $14445; + var _new_left$14 = BBT$insert$(_cmp$3, _key$4, _val$5, $14446); + var _new_right$15 = $14447; + var $14449 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); + var $14448 = $14449; break; case 'Cmp.eql': - var $15725 = BBT$node$(_key$4, _val$5, $15721, $15722); - var $15723 = $15725; + var $14450 = BBT$node$(_key$4, _val$5, $14446, $14447); + var $14448 = $14450; break; case 'Cmp.gtn': - var _new_key$12 = $15719; - var _new_val$13 = $15720; - var _new_left$14 = $15721; - var _new_right$15 = BBT$insert$(_cmp$3, _key$4, _val$5, $15722); - var $15726 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); - var $15723 = $15726; + var _new_key$12 = $14444; + var _new_val$13 = $14445; + var _new_left$14 = $14446; + var _new_right$15 = BBT$insert$(_cmp$3, _key$4, _val$5, $14447); + var $14451 = BBT$balance$(_new_key$12, _new_val$13, _new_left$14, _new_right$15); + var $14448 = $14451; break; }; - var $15718 = $15723; + var $14443 = $14448; break; case 'BBT.tip': - var $15727 = BBT$singleton$(_key$4, _val$5); - var $15718 = $15727; + var $14452 = BBT$singleton$(_key$4, _val$5); + var $14443 = $14452; break; }; - return $15718; + return $14443; }; const BBT$insert = x0 => x1 => x2 => x3 => BBT$insert$(x0, x1, x2, x3); @@ -51846,16 +47906,16 @@ module.exports = (function() { var self = _xs$5; switch (self._) { case 'List.cons': - var $15728 = self.head; - var $15729 = self.tail; - var _key$8 = Pair$fst$($15728); - var _val$9 = Pair$snd$($15728); + var $14453 = self.head; + var $14454 = self.tail; + var _key$8 = Pair$fst$($14453); + var _val$9 = Pair$snd$($14453); var _new_acc$10 = BBT$insert$(_cmp$3, _key$8, _val$9, _acc$4); - var $15730 = BBT$from_list$go$(_cmp$3, _new_acc$10, $15729); - return $15730; + var $14455 = BBT$from_list$go$(_cmp$3, _new_acc$10, $14454); + return $14455; case 'List.nil': - var $15731 = _acc$4; - return $15731; + var $14456 = _acc$4; + return $14456; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -51865,14 +47925,14 @@ module.exports = (function() { const BBT$from_list$go = x0 => x1 => x2 => BBT$from_list$go$(x0, x1, x2); function BBT$from_list$(_cmp$3, _xs$4) { - var $15732 = BBT$from_list$go$(_cmp$3, BBT$tip, _xs$4); - return $15732; + var $14457 = BBT$from_list$go$(_cmp$3, BBT$tip, _xs$4); + return $14457; }; const BBT$from_list = x0 => x1 => BBT$from_list$(x0, x1); function Map$from_list$(_xs$2) { - var $15733 = BBT$from_list$(String$cmp, _xs$2); - return $15733; + var $14458 = BBT$from_list$(String$cmp, _xs$2); + return $14458; }; const Map$from_list = x0 => Map$from_list$(x0); const Kind$Comp$Target$Scheme$optimizeds = Map$from_list$(List$cons$(Pair$new$("Bool.not", Pair$new$(1n, "(not $0)")), List$cons$(Pair$new$("Bool.and", Pair$new$(2n, "(and $0 $1)")), List$cons$(Pair$new$("Bool.if", Pair$new$(3n, "(if $0 $1 $2)")), List$cons$(Pair$new$("Bool.or", Pair$new$(2n, "(or $0 $1)")), List$cons$(Pair$new$("Nat.add", Pair$new$(2n, "(+ $0 $1)")), List$cons$(Pair$new$("Nat.sub", Pair$new$(2n, "(max (- $0 $1) 0)")), List$cons$(Pair$new$("Nat.mul", Pair$new$(2n, "(* $0 $1)")), List$cons$(Pair$new$("Nat.div", Pair$new$(2n, "(div $0 $1)")), List$cons$(Pair$new$("Nat.mod", Pair$new$(2n, "(mod $0 $1)")), List$cons$(Pair$new$("Nat.pow", Pair$new$(2n, "(expt $0 $1)")), List$cons$(Pair$new$("Nat.ltn", Pair$new$(2n, "(< $0 $1)")), List$cons$(Pair$new$("Nat.lte", Pair$new$(2n, "(<= $0 $1)")), List$cons$(Pair$new$("Nat.eql", Pair$new$(2n, "(= $0 $1)")), List$cons$(Pair$new$("Nat.gte", Pair$new$(2n, "(>= $0 $1)")), List$cons$(Pair$new$("Nat.gtn", Pair$new$(2n, "(> $0 $1)")), List$cons$(Pair$new$("Nat.to_u16", Pair$new$(1n, "$0")), List$cons$(Pair$new$("Nat.show", Pair$new$(1n, "(number->string $0)")), List$cons$(Pair$new$("U16.add", Pair$new$(2n, "(mod (+ $0 $1) 65536)")), List$cons$(Pair$new$("U16.sub", Pair$new$(2n, "(mod (- $0 $1) 65536)")), List$cons$(Pair$new$("U16.mul", Pair$new$(2n, "(mod (* $0 $1) 65536)")), List$cons$(Pair$new$("U16.div", Pair$new$(2n, "(div $0 $1)")), List$cons$(Pair$new$("U16.mod", Pair$new$(2n, "(mod $0 $1)")), List$cons$(Pair$new$("U16.pow", Pair$new$(2n, "(mod (expt $0 $1) 65536)")), List$cons$(Pair$new$("U16.ltn", Pair$new$(2n, "(< $0 $1)")), List$cons$(Pair$new$("U16.lte", Pair$new$(2n, "(<= $0 $1)")), List$cons$(Pair$new$("U16.eql", Pair$new$(2n, "(= $0 $1)")), List$cons$(Pair$new$("U16.gte", Pair$new$(2n, "(>= $0 $1)")), List$cons$(Pair$new$("U16.gtn", Pair$new$(2n, "(> $0 $1)")), List$cons$(Pair$new$("U16.inc", Pair$new$(2n, "(+ $0 1)")), List$cons$(Pair$new$("U16.to_nat", Pair$new$(1n, "$0")), List$cons$(Pair$new$("String.eql", Pair$new$(2n, "(string=? (kstring->string $0) (kstring->string $1))")), List$cons$(Pair$new$("String.concat", Pair$new$(2n, "(kstring-append $0 $1)")), List$nil))))))))))))))))))))))))))))))))); @@ -51880,20 +47940,20 @@ module.exports = (function() { const Kind$Comp$Target$Scheme$Language = Kind$Comp$Language$new$(Kind$Comp$Target$Scheme$grammar, Kind$Comp$Target$Scheme$natives, Kind$Comp$Target$Scheme$optimizeds, Kind$Comp$Target$Scheme$basics); function Kind$api$io$term_to_scheme$(_name$1) { - var $15734 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $15735 = _m$bind$2; - return $15735; + var $14459 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $14460 = _m$bind$2; + return $14460; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_defs$2 => { var _defs$3 = Maybe$default$(_defs$2, Kind$Map$new); var _compiled$4 = Kind$Comp$Defs$compile$(_defs$3); var _schemed$5 = Kind$Comp$transpile$(Kind$Comp$Target$Scheme$Language, _name$1, _compiled$4); - var $15736 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $15737 = _m$pure$7; - return $15737; + var $14461 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $14462 = _m$pure$7; + return $14462; }))(_schemed$5); - return $15736; + return $14461; })); - return $15734; + return $14459; }; const Kind$api$io$term_to_scheme = x0 => Kind$api$io$term_to_scheme$(x0); @@ -51901,73 +47961,73 @@ module.exports = (function() { var self = _names$1; switch (self._) { case 'List.cons': - var $15739 = self.head; - var $15740 = self.tail; - var $15741 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $15742 = _m$bind$5; - return $15742; - }))(Kind$Synth$one$($15739, _defs$2))((_new_defs$5 => { + var $14464 = self.head; + var $14465 = self.tail; + var $14466 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $14467 = _m$bind$5; + return $14467; + }))(Kind$Synth$one$($14464, _defs$2))((_new_defs$5 => { var self = _new_defs$5; switch (self._) { case 'Maybe.some': - var $15744 = self.value; - var $15745 = Kind$Synth$many$($15740, $15744); - var $15743 = $15745; + var $14469 = self.value; + var $14470 = Kind$Synth$many$($14465, $14469); + var $14468 = $14470; break; case 'Maybe.none': - var $15746 = Kind$Synth$many$($15740, _defs$2); - var $15743 = $15746; + var $14471 = Kind$Synth$many$($14465, _defs$2); + var $14468 = $14471; break; }; - return $15743; + return $14468; })); - var $15738 = $15741; + var $14463 = $14466; break; case 'List.nil': - var $15747 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $15748 = _m$pure$4; - return $15748; + var $14472 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $14473 = _m$pure$4; + return $14473; }))(_defs$2); - var $15738 = $15747; + var $14463 = $14472; break; }; - return $15738; + return $14463; }; const Kind$Synth$many = x0 => x1 => Kind$Synth$many$(x0, x1); function Kind$Comp$dependency_sort$module$(_exports$1, _defs$2) { var _ret$3 = Pair$new$(Kind$Map$new, List$nil); var _ret$4 = (() => { - var $15751 = _ret$3; - var $15752 = _exports$1; - let _ret$5 = $15751; + var $14476 = _ret$3; + var $14477 = _exports$1; + let _ret$5 = $14476; let _export$4; - while ($15752._ === 'List.cons') { - _export$4 = $15752.head; + while ($14477._ === 'List.cons') { + _export$4 = $14477.head; var _term$6 = Kind$Comp$ref$(_export$4); var self = _ret$5; switch (self._) { case 'Pair.new': - var $15753 = self.fst; - var $15754 = self.snd; - var $15755 = Kind$Comp$dependency_sort$go$(_term$6, _defs$2, $15753, $15754); - var $15751 = $15755; + var $14478 = self.fst; + var $14479 = self.snd; + var $14480 = Kind$Comp$dependency_sort$go$(_term$6, _defs$2, $14478, $14479); + var $14476 = $14480; break; }; - _ret$5 = $15751; - $15752 = $15752.tail; + _ret$5 = $14476; + $14477 = $14477.tail; } return _ret$5; })(); var self = _ret$4; switch (self._) { case 'Pair.new': - var $15756 = self.snd; - var $15757 = List$reverse$($15756); - var $15749 = $15757; + var $14481 = self.snd; + var $14482 = List$reverse$($14481); + var $14474 = $14482; break; }; - return $15749; + return $14474; }; const Kind$Comp$dependency_sort$module = x0 => x1 => Kind$Comp$dependency_sort$module$(x0, x1); @@ -51976,46 +48036,46 @@ module.exports = (function() { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15759 = self.gram; - var $15760 = $15759; - var self = $15760; + var $14484 = self.gram; + var $14485 = $14484; + var self = $14485; break; }; switch (self._) { case 'Kind.Comp.Grammar.new': - var $15761 = self.module; - var $15762 = $15761; - var _code$6 = $15762; + var $14486 = self.module; + var $14487 = $14486; + var _code$6 = $14487; break; }; var _code$6 = _code$6(_name$2)(_exports$3)(((() => { var self = _lang$1; switch (self._) { case 'Kind.Comp.Language.new': - var $15763 = self.base; - var $15764 = $15763; - return $15764; + var $14488 = self.base; + var $14489 = $14488; + return $14489; }; })() + ("\u{a}\u{a}" + Kind$Comp$transpile$global_definitions$(_lang$1, _defs_list$5, _defs$4)))); - var $15758 = _code$6; - return $15758; + var $14483 = _code$6; + return $14483; }; const Kind$Comp$transpile$module = x0 => x1 => x2 => x3 => Kind$Comp$transpile$module$(x0, x1, x2, x3); function Kind$api$io$terms_to_scheme_lib$(_name$1, _exports$2) { - var $15765 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $15766 = _m$bind$3; - return $15766; + var $14490 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $14491 = _m$bind$3; + return $14491; }))(Kind$Synth$many$(_exports$2, Kind$Map$new))((_defs$3 => { var _compiled$4 = Kind$Comp$Defs$compile$(_defs$3); var _schemed$5 = Kind$Comp$transpile$module$(Kind$Comp$Target$Scheme$Language, _name$1, _exports$2, _compiled$4); - var $15767 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $15768 = _m$pure$7; - return $15768; + var $14492 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $14493 = _m$pure$7; + return $14493; }))(_schemed$5); - return $15767; + return $14492; })); - return $15765; + return $14490; }; const Kind$api$io$terms_to_scheme_lib = x0 => x1 => Kind$api$io$terms_to_scheme_lib$(x0, x1); @@ -52023,130 +48083,638 @@ module.exports = (function() { var self = _xs$2; switch (self._) { case 'BitsMap.tie': - var $15770 = self.val; - var $15771 = self.lft; - var $15772 = self.rgt; - var self = $15770; + var $14495 = self.val; + var $14496 = self.lft; + var $14497 = self.rgt; + var self = $14495; switch (self._) { case 'Maybe.none': - var $15774 = _list$4; - var _list0$8 = $15774; + var $14499 = _list$4; + var _list0$8 = $14499; break; case 'Maybe.some': - var $15775 = List$cons$(Bits$reverse$(_key$3), _list$4); - var _list0$8 = $15775; + var $14500 = List$cons$(Bits$reverse$(_key$3), _list$4); + var _list0$8 = $14500; break; }; - var _list1$9 = BitsMap$keys$go$($15771, (_key$3 + '0'), _list0$8); - var _list2$10 = BitsMap$keys$go$($15772, (_key$3 + '1'), _list1$9); - var $15773 = _list2$10; - var $15769 = $15773; + var _list1$9 = BitsMap$keys$go$($14496, (_key$3 + '0'), _list0$8); + var _list2$10 = BitsMap$keys$go$($14497, (_key$3 + '1'), _list1$9); + var $14498 = _list2$10; + var $14494 = $14498; break; case 'BitsMap.new': - var $15776 = _list$4; - var $15769 = $15776; + var $14501 = _list$4; + var $14494 = $14501; break; }; - return $15769; + return $14494; }; const BitsMap$keys$go = x0 => x1 => x2 => BitsMap$keys$go$(x0, x1, x2); function BitsMap$keys$(_xs$2) { - var $15777 = List$reverse$(BitsMap$keys$go$(_xs$2, Bits$e, List$nil)); - return $15777; + var $14502 = List$reverse$(BitsMap$keys$go$(_xs$2, Bits$e, List$nil)); + return $14502; }; const BitsMap$keys = x0 => BitsMap$keys$(x0); function Kind$Synth$file$(_file$1, _defs$2) { - var $15778 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $15779 = _m$bind$3; - return $15779; + var $14503 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $14504 = _m$bind$3; + return $14504; }))(IO$get_file$(_file$1))((_code$3 => { var _read$4 = Kind$Defs$read$(_file$1, _code$3, _defs$2); var self = _read$4; switch (self._) { case 'Either.left': - var $15781 = self.value; - var $15782 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $15783 = _m$pure$7; - return $15783; - }))(Either$left$($15781)); - var $15780 = $15782; + var $14506 = self.value; + var $14507 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $14508 = _m$pure$7; + return $14508; + }))(Either$left$($14506)); + var $14505 = $14507; break; case 'Either.right': - var $15784 = self.value; - var _file_defs$6 = $15784; + var $14509 = self.value; + var _file_defs$6 = $14509; var _file_keys$7 = BitsMap$keys$(_file_defs$6); var _file_nams$8 = List$mapped$(_file_keys$7, Kind$Name$from_bits); - var $15785 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $15786 = _m$bind$9; - return $15786; + var $14510 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $14511 = _m$bind$9; + return $14511; }))(Kind$Synth$many$(_file_nams$8, _file_defs$6))((_defs$9 => { - var $15787 = IO$monad$((_m$bind$10 => _m$pure$11 => { - var $15788 = _m$pure$11; - return $15788; + var $14512 = IO$monad$((_m$bind$10 => _m$pure$11 => { + var $14513 = _m$pure$11; + return $14513; }))(Either$right$(Pair$new$(_file_nams$8, _defs$9))); - return $15787; + return $14512; })); - var $15780 = $15785; + var $14505 = $14510; break; }; - return $15780; + return $14505; })); - return $15778; + return $14503; }; const Kind$Synth$file = x0 => x1 => Kind$Synth$file$(x0, x1); function IO$put_string$(_text$1) { - var $15789 = IO$ask$("put_string", _text$1, (_skip$2 => { - var $15790 = IO$end$(Unit$new); - return $15790; + var $14514 = IO$ask$("put_string", _text$1, (_skip$2 => { + var $14515 = IO$end$(Unit$new); + return $14515; })); - return $15789; + return $14514; }; const IO$put_string = x0 => IO$put_string$(x0); function IO$print$(_text$1) { - var $15791 = IO$put_string$((_text$1 + "\u{a}")); - return $15791; + var $14516 = IO$put_string$((_text$1 + "\u{a}")); + return $14516; }; const IO$print = x0 => IO$print$(x0); + function Kind$Term$show$as_nat$go$(_term$1) { + var self = _term$1; + switch (self._) { + case 'Kind.Term.ref': + var $14518 = self.name; + var self = ($14518 === "Nat.zero"); + if (self) { + var $14520 = Maybe$some$(0n); + var $14519 = $14520; + } else { + var $14521 = Maybe$none; + var $14519 = $14521; + }; + var $14517 = $14519; + break; + case 'Kind.Term.app': + var $14522 = self.func; + var $14523 = self.argm; + var self = $14522; + switch (self._) { + case 'Kind.Term.ref': + var $14525 = self.name; + var self = ($14525 === "Nat.succ"); + if (self) { + var $14527 = Maybe$monad$((_m$bind$5 => _m$pure$6 => { + var $14528 = _m$bind$5; + return $14528; + }))(Kind$Term$show$as_nat$go$($14523))((_pred$5 => { + var $14529 = Maybe$monad$((_m$bind$6 => _m$pure$7 => { + var $14530 = _m$pure$7; + return $14530; + }))(Nat$succ$(_pred$5)); + return $14529; + })); + var $14526 = $14527; + } else { + var $14531 = Maybe$none; + var $14526 = $14531; + }; + var $14524 = $14526; + break; + case 'Kind.Term.var': + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.app': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + case 'Kind.Term.ori': + var $14532 = Maybe$none; + var $14524 = $14532; + break; + }; + var $14517 = $14524; + break; + case 'Kind.Term.var': + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + case 'Kind.Term.ori': + var $14533 = Maybe$none; + var $14517 = $14533; + break; + }; + return $14517; + }; + const Kind$Term$show$as_nat$go = x0 => Kind$Term$show$as_nat$go$(x0); + + function Kind$Term$show$as_nat$(_term$1) { + var $14534 = Maybe$mapped$(Kind$Term$show$as_nat$go$(_term$1), Nat$show); + return $14534; + }; + const Kind$Term$show$as_nat = x0 => Kind$Term$show$as_nat$(x0); + + function Kind$Term$show$is_ref$(_term$1, _name$2) { + var self = _term$1; + switch (self._) { + case 'Kind.Term.ref': + var $14536 = self.name; + var $14537 = (_name$2 === $14536); + var $14535 = $14537; + break; + case 'Kind.Term.var': + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.app': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + case 'Kind.Term.ori': + var $14538 = Bool$false; + var $14535 = $14538; + break; + }; + return $14535; + }; + const Kind$Term$show$is_ref = x0 => x1 => Kind$Term$show$is_ref$(x0, x1); + + function Kind$Term$show$app$done$(_term$1, _path$2, _args$3) { + var _arity$4 = (list_length(_args$3)); + var self = (Kind$Term$show$is_ref$(_term$1, "Equal") && (_arity$4 === 3n)); + if (self) { + var _func$5 = Kind$Term$show$go$(_term$1, _path$2); + var _eq_lft$6 = Maybe$default$(List$at$(1n, _args$3), "?"); + var _eq_rgt$7 = Maybe$default$(List$at$(2n, _args$3), "?"); + var $14540 = String$flatten$(List$cons$(_eq_lft$6, List$cons$(" == ", List$cons$(_eq_rgt$7, List$nil)))); + var $14539 = $14540; + } else { + var _func$5 = Kind$Term$show$go$(_term$1, _path$2); + var self = _func$5; + if (self.length === 0) { + var $14542 = Bool$false; + var _wrap$6 = $14542; + } else { + var $14543 = self.charCodeAt(0); + var $14544 = self.slice(1); + var $14545 = ($14543 === 40); + var _wrap$6 = $14545; + }; + var _args$7 = String$join$(",", _args$3); + var self = _wrap$6; + if (self) { + var $14546 = String$flatten$(List$cons$("(", List$cons$(_func$5, List$cons$(")", List$nil)))); + var _func$8 = $14546; + } else { + var $14547 = _func$5; + var _func$8 = $14547; + }; + var $14541 = String$flatten$(List$cons$(_func$8, List$cons$("(", List$cons$(_args$7, List$cons$(")", List$nil))))); + var $14539 = $14541; + }; + return $14539; + }; + const Kind$Term$show$app$done = x0 => x1 => x2 => Kind$Term$show$app$done$(x0, x1, x2); + + function Kind$Term$show$app$(_term$1, _path$2, _args$3) { + var Kind$Term$show$app$ = (_term$1, _path$2, _args$3) => ({ + ctr: 'TCO', + arg: [_term$1, _path$2, _args$3] + }); + var Kind$Term$show$app = _term$1 => _path$2 => _args$3 => Kind$Term$show$app$(_term$1, _path$2, _args$3); + var arg = [_term$1, _path$2, _args$3]; + while (true) { + let [_term$1, _path$2, _args$3] = arg; + var R = (() => { + var self = _term$1; + switch (self._) { + case 'Kind.Term.app': + var $14548 = self.func; + var $14549 = self.argm; + var $14550 = Kind$Term$show$app$($14548, Kind$Path$Maybe$Builder$o$(_path$2), List$cons$(Kind$Term$show$go$($14549, Kind$Path$Maybe$Builder$i$(_path$2)), _args$3)); + return $14550; + case 'Kind.Term.ori': + var $14551 = self.expr; + var $14552 = Kind$Term$show$app$($14551, _path$2, _args$3); + return $14552; + case 'Kind.Term.var': + case 'Kind.Term.ref': + case 'Kind.Term.typ': + case 'Kind.Term.all': + case 'Kind.Term.lam': + case 'Kind.Term.let': + case 'Kind.Term.def': + case 'Kind.Term.ann': + case 'Kind.Term.gol': + case 'Kind.Term.hol': + case 'Kind.Term.nat': + case 'Kind.Term.chr': + case 'Kind.Term.str': + case 'Kind.Term.num': + case 'Kind.Term.cse': + case 'Kind.Term.new': + case 'Kind.Term.get': + case 'Kind.Term.set': + case 'Kind.Term.ope': + var $14553 = Kind$Term$show$app$done$(_term$1, _path$2, _args$3); + return $14553; + }; + })(); + if (R.ctr === 'TCO') arg = R.arg; + else return R; + } + }; + const Kind$Term$show$app = x0 => x1 => x2 => Kind$Term$show$app$(x0, x1, x2); + + function BitsMap$to_list$(_xs$2) { + var $14554 = List$reverse$(BitsMap$to_list$go$(_xs$2, Bits$e, List$nil)); + return $14554; + }; + const BitsMap$to_list = x0 => BitsMap$to_list$(x0); + + function Kind$Term$show$go$(_term$1, _path$2) { + var self = Kind$Term$show$as_nat$(_term$1); + switch (self._) { + case 'Maybe.some': + var $14556 = self.value; + var $14557 = $14556; + var $14555 = $14557; + break; + case 'Maybe.none': + var self = _term$1; + switch (self._) { + case 'Kind.Term.var': + var $14559 = self.name; + var $14560 = Kind$Name$show$($14559); + var $14558 = $14560; + break; + case 'Kind.Term.ref': + var $14561 = self.name; + var _name$4 = Kind$Name$show$($14561); + var self = _path$2; + switch (self._) { + case 'Maybe.some': + var $14563 = self.value; + var _path_val$6 = ((Bits$e + '1') + Kind$Path$Builder$to_bits$($14563)); + var _path_str$7 = Nat$show$(Bits$to_nat$(_path_val$6)); + var $14564 = String$flatten$(List$cons$(_name$4, List$cons$(Kind$Code$color$("2", ("-" + _path_str$7)), List$nil))); + var $14562 = $14564; + break; + case 'Maybe.none': + var $14565 = _name$4; + var $14562 = $14565; + break; + }; + var $14558 = $14562; + break; + case 'Kind.Term.all': + var $14566 = self.eras; + var $14567 = self.self; + var $14568 = self.name; + var $14569 = self.xtyp; + var $14570 = self.body; + var _eras$8 = $14566; + var _self$9 = Kind$Name$show$($14567); + var _name$10 = Kind$Name$show$($14568); + var _type$11 = Kind$Term$show$go$($14569, Kind$Path$Maybe$Builder$o$(_path$2)); + var self = _eras$8; + if (self) { + var $14572 = "<"; + var _open$12 = $14572; + } else { + var $14573 = "("; + var _open$12 = $14573; + }; + var self = _eras$8; + if (self) { + var $14574 = ">"; + var _clos$13 = $14574; + } else { + var $14575 = ")"; + var _clos$13 = $14575; + }; + var _body$14 = Kind$Term$show$go$($14570(Kind$Term$var$($14567, 0n))(Kind$Term$var$($14568, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); + var $14571 = String$flatten$(List$cons$(_self$9, List$cons$(_open$12, List$cons$(_name$10, List$cons$(":", List$cons$(_type$11, List$cons$(_clos$13, List$cons$(" ", List$cons$(_body$14, List$nil))))))))); + var $14558 = $14571; + break; + case 'Kind.Term.lam': + var $14576 = self.name; + var $14577 = self.body; + var _name$5 = Kind$Name$show$($14576); + var _body$6 = Kind$Term$show$go$($14577(Kind$Term$var$($14576, 0n)), Kind$Path$Maybe$Builder$o$(_path$2)); + var $14578 = String$flatten$(List$cons$("(", List$cons$(_name$5, List$cons$(") ", List$cons$(_body$6, List$nil))))); + var $14558 = $14578; + break; + case 'Kind.Term.let': + var $14579 = self.name; + var $14580 = self.expr; + var $14581 = self.body; + var _name$6 = Kind$Name$show$($14579); + var _expr$7 = Kind$Term$show$go$($14580, Kind$Path$Maybe$Builder$o$(_path$2)); + var _body$8 = Kind$Term$show$go$($14581(Kind$Term$var$($14579, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); + var $14582 = String$flatten$(List$cons$("let ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); + var $14558 = $14582; + break; + case 'Kind.Term.def': + var $14583 = self.name; + var $14584 = self.expr; + var $14585 = self.body; + var _name$6 = Kind$Name$show$($14583); + var _expr$7 = Kind$Term$show$go$($14584, Kind$Path$Maybe$Builder$o$(_path$2)); + var _body$8 = Kind$Term$show$go$($14585(Kind$Term$var$($14583, 0n)), Kind$Path$Maybe$Builder$i$(_path$2)); + var $14586 = String$flatten$(List$cons$("def ", List$cons$(_name$6, List$cons$(" = ", List$cons$(_expr$7, List$cons$("; ", List$cons$(_body$8, List$nil))))))); + var $14558 = $14586; + break; + case 'Kind.Term.ann': + var $14587 = self.term; + var $14588 = self.type; + var _term$6 = Kind$Term$show$go$($14587, Kind$Path$Maybe$Builder$o$(_path$2)); + var _type$7 = Kind$Term$show$go$($14588, Kind$Path$Maybe$Builder$i$(_path$2)); + var $14589 = String$flatten$(List$cons$(_term$6, List$cons$("::", List$cons$(_type$7, List$nil)))); + var $14558 = $14589; + break; + case 'Kind.Term.gol': + var $14590 = self.name; + var _name$6 = Kind$Name$show$($14590); + var $14591 = String$flatten$(List$cons$("?", List$cons$(_name$6, List$nil))); + var $14558 = $14591; + break; + case 'Kind.Term.nat': + var $14592 = self.natx; + var $14593 = String$flatten$(List$cons$(Nat$show$($14592), List$nil)); + var $14558 = $14593; + break; + case 'Kind.Term.chr': + var $14594 = self.chrx; + var $14595 = String$flatten$(List$cons$("\'", List$cons$(Kind$Code$escape$char$($14594), List$cons$("\'", List$nil)))); + var $14558 = $14595; + break; + case 'Kind.Term.str': + var $14596 = self.strx; + var $14597 = String$flatten$(List$cons$("\"", List$cons$(Kind$Code$escape$($14596), List$cons$("\"", List$nil)))); + var $14558 = $14597; + break; + case 'Kind.Term.num': + var $14598 = self.sign; + var $14599 = self.numb; + var $14600 = self.frac; + var $14601 = String$flatten$(List$cons$((() => { + var self = $14598; + switch (self._) { + case 'Maybe.some': + var $14602 = self.value; + var self = $14602; + if (self) { + var $14604 = "+"; + var $14603 = $14604; + } else { + var $14605 = "-"; + var $14603 = $14605; + }; + return $14603; + case 'Maybe.none': + var $14606 = ""; + return $14606; + }; + })(), List$cons$(Nat$show$($14599), List$cons$((() => { + var self = $14600; + switch (self._) { + case 'Maybe.some': + var $14607 = self.value; + var $14608 = ("." + Nat$show$($14607)); + return $14608; + case 'Maybe.none': + var $14609 = ""; + return $14609; + }; + })(), List$nil)))); + var $14558 = $14601; + break; + case 'Kind.Term.cse': + var $14610 = self.expr; + var $14611 = self.name; + var $14612 = self.with; + var $14613 = self.cses; + var $14614 = self.moti; + var _expr$9 = Kind$Term$show$go$($14610, Kind$Path$Maybe$Builder$o$(_path$2)); + var _name$10 = Kind$Name$show$($14611); + var _wyth$11 = String$join$("; ", List$mapped$($14612, (_with_var$11 => { + var self = _with_var$11; + switch (self._) { + case 'Kind.Ann.new': + var $14617 = self.name; + var $14618 = self.type; + var self = $14618; + switch (self._) { + case 'Maybe.some': + var $14620 = self.value; + var $14621 = ($14617 + (": " + Kind$Term$show$go$($14620, Maybe$none))); + var $14619 = $14621; + break; + case 'Maybe.none': + var $14622 = $14617; + var $14619 = $14622; + break; + }; + var $14616 = $14619; + break; + }; + return $14616; + }))); + var _cses$12 = BitsMap$to_list$($14613); + var _cses$13 = String$join$("", List$mapped$(_cses$12, (_x$13 => { + var _name$14 = Kind$Name$from_bits$(Pair$fst$(_x$13)); + var _term$15 = Kind$Term$show$go$(Pair$snd$(_x$13), Maybe$none); + var $14623 = String$flatten$(List$cons$(_name$14, List$cons$(": ", List$cons$(_term$15, List$cons$(", ", List$nil))))); + return $14623; + }))); + var self = $14614; + switch (self._) { + case 'Maybe.some': + var $14624 = self.value; + var $14625 = String$flatten$(List$cons$(": ", List$cons$(Kind$Term$show$go$($14624, Maybe$none), List$nil))); + var _moti$14 = $14625; + break; + case 'Maybe.none': + var $14626 = ""; + var _moti$14 = $14626; + break; + }; + var $14615 = String$flatten$(List$cons$("case ", List$cons$(_expr$9, List$cons$(" as ", List$cons$(_name$10, List$cons$(_wyth$11, List$cons$(" { ", List$cons$(_cses$13, List$cons$("}", List$cons$(_moti$14, List$nil)))))))))); + var $14558 = $14615; + break; + case 'Kind.Term.new': + var $14627 = self.args; + var _args$4 = List$fold$($14627, (_path$4 => { + var $14629 = List$nil; + return $14629; + }), (_arg$4 => _res$5 => _path$6 => { + var $14630 = List$cons$(Kind$Term$show$go$(_arg$4, _path$6), _res$5(Kind$Path$Maybe$Builder$o$(_path$6))); + return $14630; + }))(_path$2); + var $14628 = String$flatten$(List$cons$("{", List$cons$(String$join$(",", _args$4), List$cons$("}", List$nil)))); + var $14558 = $14628; + break; + case 'Kind.Term.get': + var $14631 = self.expr; + var $14632 = self.fkey; + var _expr$5 = Kind$Term$show$go$($14631, Kind$Path$Maybe$Builder$o$(_path$2)); + var $14633 = String$flatten$(List$cons$(_expr$5, List$cons$("@", List$cons$($14632, List$nil)))); + var $14558 = $14633; + break; + case 'Kind.Term.set': + var $14634 = self.expr; + var $14635 = self.fkey; + var $14636 = self.fval; + var _expr$6 = Kind$Term$show$go$($14634, Kind$Path$Maybe$Builder$o$(_path$2)); + var _fval$7 = Kind$Term$show$go$($14636, Kind$Path$Maybe$Builder$i$(_path$2)); + var $14637 = String$flatten$(List$cons$(_expr$6, List$cons$("@", List$cons$($14635, List$cons$(" <- ", List$cons$(_fval$7, List$nil)))))); + var $14558 = $14637; + break; + case 'Kind.Term.ope': + var $14638 = self.name; + var $14639 = self.arg0; + var $14640 = self.arg1; + var _arg0$6 = Kind$Term$show$go$($14639, Kind$Path$Maybe$Builder$o$(_path$2)); + var _arg1$7 = Kind$Term$show$go$($14640, Kind$Path$Maybe$Builder$i$(_path$2)); + var $14641 = String$flatten$(List$cons$("(", List$cons$(_arg0$6, List$cons$(" ", List$cons$($14638, List$cons$(" ", List$cons$(_arg1$7, List$cons$(")", List$nil)))))))); + var $14558 = $14641; + break; + case 'Kind.Term.ori': + var $14642 = self.expr; + var $14643 = Kind$Term$show$go$($14642, _path$2); + var $14558 = $14643; + break; + case 'Kind.Term.typ': + var $14644 = "Type"; + var $14558 = $14644; + break; + case 'Kind.Term.app': + var $14645 = Kind$Term$show$app$(_term$1, _path$2, List$nil); + var $14558 = $14645; + break; + case 'Kind.Term.hol': + var $14646 = "_"; + var $14558 = $14646; + break; + }; + var $14555 = $14558; + break; + }; + return $14555; + }; + const Kind$Term$show$go = x0 => x1 => Kind$Term$show$go$(x0, x1); + + function Kind$Term$show$(_term$1) { + var $14647 = Kind$Term$show$go$(_term$1, Maybe$none); + return $14647; + }; + const Kind$Term$show = x0 => Kind$Term$show$(x0); + function Kind$Defs$report$types$(_defs$1, _names$2) { var _types$3 = ""; var _types$4 = (() => { - var $15794 = _types$3; - var $15795 = _names$2; - let _types$5 = $15794; + var $14650 = _types$3; + var $14651 = _names$2; + let _types$5 = $14650; let _name$4; - while ($15795._ === 'List.cons') { - _name$4 = $15795.head; + while ($14651._ === 'List.cons') { + _name$4 = $14651.head; var self = Kind$Map$get$(_name$4, _defs$1); switch (self._) { case 'Maybe.some': - var $15796 = self.value; - var self = $15796; + var $14652 = self.value; + var self = $14652; switch (self._) { case 'Kind.Def.new': - var $15798 = self.type; - var $15799 = (_types$5 + (_name$4 + (": " + (Kind$Term$show$($15798) + "\u{a}")))); - var $15797 = $15799; + var $14654 = self.type; + var $14655 = (_types$5 + (_name$4 + (": " + (Kind$Term$show$($14654) + "\u{a}")))); + var $14653 = $14655; break; }; - var $15794 = $15797; + var $14650 = $14653; break; case 'Maybe.none': - var $15800 = _types$5; - var $15794 = $15800; + var $14656 = _types$5; + var $14650 = $14656; break; }; - _types$5 = $15794; - $15795 = $15795.tail; + _types$5 = $14650; + $14651 = $14651.tail; } return _types$5; })(); - var $15792 = _types$4; - return $15792; + var $14648 = _types$4; + return $14648; }; const Kind$Defs$report$types = x0 => x1 => Kind$Defs$report$types$(x0, x1); @@ -52154,24 +48722,24 @@ module.exports = (function() { var self = _xs$3; switch (self._) { case 'List.cons': - var $15802 = self.head; - var $15803 = self.tail; - var self = _f$2($15802); + var $14658 = self.head; + var $14659 = self.tail; + var self = _f$2($14658); if (self) { - var $15805 = List$cons$($15802, List$filter$(_f$2, $15803)); - var $15804 = $15805; + var $14661 = List$cons$($14658, List$filter$(_f$2, $14659)); + var $14660 = $14661; } else { - var $15806 = List$filter$(_f$2, $15803); - var $15804 = $15806; + var $14662 = List$filter$(_f$2, $14659); + var $14660 = $14662; }; - var $15801 = $15804; + var $14657 = $14660; break; case 'List.nil': - var $15807 = List$nil; - var $15801 = $15807; + var $14663 = List$nil; + var $14657 = $14663; break; }; - return $15801; + return $14657; }; const List$filter = x0 => x1 => List$filter$(x0, x1); @@ -52184,15 +48752,15 @@ module.exports = (function() { case 'Kind.Error.indirect': case 'Kind.Error.patch': case 'Kind.Error.cant_infer': - var $15809 = Bool$false; - var $15808 = $15809; + var $14665 = Bool$false; + var $14664 = $14665; break; case 'Kind.Error.undefined_reference': - var $15810 = Bool$true; - var $15808 = $15810; + var $14666 = Bool$true; + var $14664 = $14666; break; }; - return $15808; + return $14664; }; const Kind$Error$is_undef = x0 => Kind$Error$is_undef$(x0); @@ -52201,19 +48769,19 @@ module.exports = (function() { switch (self._) { case 'Kind.Error.type_mismatch': case 'Kind.Error.cant_infer': - var $15812 = Bool$true; - var $15811 = $15812; + var $14668 = Bool$true; + var $14667 = $14668; break; case 'Kind.Error.show_goal': case 'Kind.Error.waiting': case 'Kind.Error.indirect': case 'Kind.Error.patch': case 'Kind.Error.undefined_reference': - var $15813 = Bool$false; - var $15811 = $15813; + var $14669 = Bool$false; + var $14667 = $14669; break; }; - return $15811; + return $14667; }; const Kind$Error$is_mistake = x0 => Kind$Error$is_mistake$(x0); @@ -52226,15 +48794,15 @@ module.exports = (function() { case 'Kind.Error.patch': case 'Kind.Error.undefined_reference': case 'Kind.Error.cant_infer': - var $15815 = Bool$false; - var $15814 = $15815; + var $14671 = Bool$false; + var $14670 = $14671; break; case 'Kind.Error.show_goal': - var $15816 = Bool$true; - var $15814 = $15816; + var $14672 = Bool$true; + var $14670 = $14672; break; }; - return $15814; + return $14670; }; const Kind$Error$is_goal = x0 => Kind$Error$is_goal$(x0); @@ -52248,23 +48816,23 @@ module.exports = (function() { var self = _mistakes$3; switch (self._) { case 'List.cons': - var $15819 = self.head; - var $15820 = List$concat$(List$cons$($15819, List$nil), _goals$4); - var $15818 = $15820; + var $14675 = self.head; + var $14676 = List$concat$(List$cons$($14675, List$nil), _goals$4); + var $14674 = $14676; break; case 'List.nil': - var $15821 = _goals$4; - var $15818 = $15821; + var $14677 = _goals$4; + var $14674 = $14677; break; }; - var $15817 = $15818; + var $14673 = $14674; break; case 'List.cons': - var $15822 = List$concat$(_undefs$2, _goals$4); - var $15817 = $15822; + var $14678 = List$concat$(_undefs$2, _goals$4); + var $14673 = $14678; break; }; - return $15817; + return $14673; }; const Kind$Error$relevant = x0 => Kind$Error$relevant$(x0); @@ -52272,57 +48840,57 @@ module.exports = (function() { var self = _context$1; switch (self._) { case 'List.cons': - var $15824 = self.head; - var $15825 = self.tail; - var self = $15824; + var $14680 = self.head; + var $14681 = self.tail; + var self = $14680; switch (self._) { case 'Pair.new': - var $15827 = self.fst; - var $15828 = self.snd; - var _name$6 = Kind$Name$show$($15827); - var _type$7 = Kind$Term$show$(Kind$Term$normalize$($15828, Kind$Map$new)); - var _rest$8 = Kind$Context$show$($15825); - var $15829 = (_rest$8 + ("- " + (_name$6 + (": " + (_type$7 + "\u{a}"))))); - var $15826 = $15829; + var $14683 = self.fst; + var $14684 = self.snd; + var _name$6 = Kind$Name$show$($14683); + var _type$7 = Kind$Term$show$(Kind$Term$normalize$($14684, Kind$Map$new)); + var _rest$8 = Kind$Context$show$($14681); + var $14685 = (_rest$8 + ("- " + (_name$6 + (": " + (_type$7 + "\u{a}"))))); + var $14682 = $14685; break; }; - var $15823 = $15826; + var $14679 = $14682; break; case 'List.nil': - var $15830 = ""; - var $15823 = $15830; + var $14686 = ""; + var $14679 = $14686; break; }; - return $15823; + return $14679; }; const Kind$Context$show = x0 => Kind$Context$show$(x0); function Kind$Term$expand_at$(_path$1, _term$2, _defs$3) { - var $15831 = Kind$Term$patch_at$(_path$1, _term$2, (_term$4 => { + var $14687 = Kind$Term$patch_at$(_path$1, _term$2, (_term$4 => { var self = _term$4; switch (self._) { case 'Kind.Term.ref': - var $15833 = self.name; - var self = Kind$Map$get$($15833, _defs$3); + var $14689 = self.name; + var self = Kind$Map$get$($14689, _defs$3); switch (self._) { case 'Maybe.some': - var $15835 = self.value; - var self = $15835; + var $14691 = self.value; + var self = $14691; switch (self._) { case 'Kind.Def.new': - var $15837 = self.term; - var $15838 = $15837; - var $15836 = $15838; + var $14693 = self.term; + var $14694 = $14693; + var $14692 = $14694; break; }; - var $15834 = $15836; + var $14690 = $14692; break; case 'Maybe.none': - var $15839 = Kind$Term$ref$($15833); - var $15834 = $15839; + var $14695 = Kind$Term$ref$($14689); + var $14690 = $14695; break; }; - var $15832 = $15834; + var $14688 = $14690; break; case 'Kind.Term.var': case 'Kind.Term.typ': @@ -52344,13 +48912,13 @@ module.exports = (function() { case 'Kind.Term.set': case 'Kind.Term.ope': case 'Kind.Term.ori': - var $15840 = _term$4; - var $15832 = $15840; + var $14696 = _term$4; + var $14688 = $14696; break; }; - return $15832; + return $14688; })); - return $15831; + return $14687; }; const Kind$Term$expand_at = x0 => x1 => x2 => Kind$Term$expand_at$(x0, x1, x2); @@ -52358,133 +48926,133 @@ module.exports = (function() { var self = _term$1; switch (self._) { case 'Kind.Term.var': - var $15842 = self.name; - var $15843 = self.indx; - var $15844 = Kind$Term$var$($15842, $15843); - var $15841 = $15844; + var $14698 = self.name; + var $14699 = self.indx; + var $14700 = Kind$Term$var$($14698, $14699); + var $14697 = $14700; break; case 'Kind.Term.ref': - var $15845 = self.name; - var self = Kind$Map$get$($15845, _defs$2); + var $14701 = self.name; + var self = Kind$Map$get$($14701, _defs$2); switch (self._) { case 'Maybe.some': - var $15847 = self.value; - var self = $15847; + var $14703 = self.value; + var self = $14703; switch (self._) { case 'Kind.Def.new': - var $15849 = self.term; - var $15850 = self.isct; - var $15851 = self.arit; - var self = ($15850 && (_arity$3 > $15851)); + var $14705 = self.term; + var $14706 = self.isct; + var $14707 = self.arit; + var self = ($14706 && (_arity$3 > $14707)); if (self) { - var $15853 = $15849; - var $15852 = $15853; + var $14709 = $14705; + var $14708 = $14709; } else { - var $15854 = Kind$Term$ref$($15845); - var $15852 = $15854; + var $14710 = Kind$Term$ref$($14701); + var $14708 = $14710; }; - var $15848 = $15852; + var $14704 = $14708; break; }; - var $15846 = $15848; + var $14702 = $14704; break; case 'Maybe.none': - var $15855 = Kind$Term$ref$($15845); - var $15846 = $15855; + var $14711 = Kind$Term$ref$($14701); + var $14702 = $14711; break; }; - var $15841 = $15846; + var $14697 = $14702; break; case 'Kind.Term.all': - var $15856 = self.eras; - var $15857 = self.self; - var $15858 = self.name; - var $15859 = self.xtyp; - var $15860 = self.body; - var $15861 = Kind$Term$all$($15856, $15857, $15858, Kind$Term$expand_ct$($15859, _defs$2, 0n), (_s$9 => _x$10 => { - var $15862 = Kind$Term$expand_ct$($15860(_s$9)(_x$10), _defs$2, 0n); - return $15862; + var $14712 = self.eras; + var $14713 = self.self; + var $14714 = self.name; + var $14715 = self.xtyp; + var $14716 = self.body; + var $14717 = Kind$Term$all$($14712, $14713, $14714, Kind$Term$expand_ct$($14715, _defs$2, 0n), (_s$9 => _x$10 => { + var $14718 = Kind$Term$expand_ct$($14716(_s$9)(_x$10), _defs$2, 0n); + return $14718; })); - var $15841 = $15861; + var $14697 = $14717; break; case 'Kind.Term.lam': - var $15863 = self.name; - var $15864 = self.body; - var $15865 = Kind$Term$lam$($15863, (_x$6 => { - var $15866 = Kind$Term$expand_ct$($15864(_x$6), _defs$2, 0n); - return $15866; + var $14719 = self.name; + var $14720 = self.body; + var $14721 = Kind$Term$lam$($14719, (_x$6 => { + var $14722 = Kind$Term$expand_ct$($14720(_x$6), _defs$2, 0n); + return $14722; })); - var $15841 = $15865; + var $14697 = $14721; break; case 'Kind.Term.app': - var $15867 = self.func; - var $15868 = self.argm; - var $15869 = Kind$Term$app$(Kind$Term$expand_ct$($15867, _defs$2, Nat$succ$(_arity$3)), Kind$Term$expand_ct$($15868, _defs$2, 0n)); - var $15841 = $15869; + var $14723 = self.func; + var $14724 = self.argm; + var $14725 = Kind$Term$app$(Kind$Term$expand_ct$($14723, _defs$2, Nat$succ$(_arity$3)), Kind$Term$expand_ct$($14724, _defs$2, 0n)); + var $14697 = $14725; break; case 'Kind.Term.let': - var $15870 = self.name; - var $15871 = self.expr; - var $15872 = self.body; - var $15873 = Kind$Term$let$($15870, Kind$Term$expand_ct$($15871, _defs$2, 0n), (_x$7 => { - var $15874 = Kind$Term$expand_ct$($15872(_x$7), _defs$2, 0n); - return $15874; + var $14726 = self.name; + var $14727 = self.expr; + var $14728 = self.body; + var $14729 = Kind$Term$let$($14726, Kind$Term$expand_ct$($14727, _defs$2, 0n), (_x$7 => { + var $14730 = Kind$Term$expand_ct$($14728(_x$7), _defs$2, 0n); + return $14730; })); - var $15841 = $15873; + var $14697 = $14729; break; case 'Kind.Term.def': - var $15875 = self.name; - var $15876 = self.expr; - var $15877 = self.body; - var $15878 = Kind$Term$def$($15875, Kind$Term$expand_ct$($15876, _defs$2, 0n), (_x$7 => { - var $15879 = Kind$Term$expand_ct$($15877(_x$7), _defs$2, 0n); - return $15879; + var $14731 = self.name; + var $14732 = self.expr; + var $14733 = self.body; + var $14734 = Kind$Term$def$($14731, Kind$Term$expand_ct$($14732, _defs$2, 0n), (_x$7 => { + var $14735 = Kind$Term$expand_ct$($14733(_x$7), _defs$2, 0n); + return $14735; })); - var $15841 = $15878; + var $14697 = $14734; break; case 'Kind.Term.ann': - var $15880 = self.done; - var $15881 = self.term; - var $15882 = self.type; - var $15883 = Kind$Term$ann$($15880, Kind$Term$expand_ct$($15881, _defs$2, 0n), Kind$Term$expand_ct$($15882, _defs$2, 0n)); - var $15841 = $15883; + var $14736 = self.done; + var $14737 = self.term; + var $14738 = self.type; + var $14739 = Kind$Term$ann$($14736, Kind$Term$expand_ct$($14737, _defs$2, 0n), Kind$Term$expand_ct$($14738, _defs$2, 0n)); + var $14697 = $14739; break; case 'Kind.Term.gol': - var $15884 = self.name; - var $15885 = self.dref; - var $15886 = self.verb; - var $15887 = Kind$Term$gol$($15884, $15885, $15886); - var $15841 = $15887; + var $14740 = self.name; + var $14741 = self.dref; + var $14742 = self.verb; + var $14743 = Kind$Term$gol$($14740, $14741, $14742); + var $14697 = $14743; break; case 'Kind.Term.hol': - var $15888 = self.path; - var $15889 = Kind$Term$hol$($15888); - var $15841 = $15889; + var $14744 = self.path; + var $14745 = Kind$Term$hol$($14744); + var $14697 = $14745; break; case 'Kind.Term.nat': - var $15890 = self.natx; - var $15891 = Kind$Term$nat$($15890); - var $15841 = $15891; + var $14746 = self.natx; + var $14747 = Kind$Term$nat$($14746); + var $14697 = $14747; break; case 'Kind.Term.chr': - var $15892 = self.chrx; - var $15893 = Kind$Term$chr$($15892); - var $15841 = $15893; + var $14748 = self.chrx; + var $14749 = Kind$Term$chr$($14748); + var $14697 = $14749; break; case 'Kind.Term.str': - var $15894 = self.strx; - var $15895 = Kind$Term$str$($15894); - var $15841 = $15895; + var $14750 = self.strx; + var $14751 = Kind$Term$str$($14750); + var $14697 = $14751; break; case 'Kind.Term.ori': - var $15896 = self.orig; - var $15897 = self.expr; - var $15898 = Kind$Term$ori$($15896, $15897); - var $15841 = $15898; + var $14752 = self.orig; + var $14753 = self.expr; + var $14754 = Kind$Term$ori$($14752, $14753); + var $14697 = $14754; break; case 'Kind.Term.typ': - var $15899 = Kind$Term$typ; - var $15841 = $15899; + var $14755 = Kind$Term$typ; + var $14697 = $14755; break; case 'Kind.Term.num': case 'Kind.Term.cse': @@ -52492,35 +49060,35 @@ module.exports = (function() { case 'Kind.Term.get': case 'Kind.Term.set': case 'Kind.Term.ope': - var $15900 = _term$1; - var $15841 = $15900; + var $14756 = _term$1; + var $14697 = $14756; break; }; - return $15841; + return $14697; }; const Kind$Term$expand_ct = x0 => x1 => x2 => Kind$Term$expand_ct$(x0, x1, x2); function Kind$Term$expand$(_dref$1, _term$2, _defs$3) { var _term$4 = Kind$Term$normalize$(_term$2, Kind$Map$new); var _term$5 = (() => { - var $15903 = _term$4; - var $15904 = _dref$1; - let _term$6 = $15903; + var $14759 = _term$4; + var $14760 = _dref$1; + let _term$6 = $14759; let _path$5; - while ($15904._ === 'List.cons') { - _path$5 = $15904.head; + while ($14760._ === 'List.cons') { + _path$5 = $14760.head; var _term$7 = Kind$Term$expand_at$(_path$5, _term$6, _defs$3); var _term$8 = Kind$Term$normalize$(_term$7, Kind$Map$new); var _term$9 = Kind$Term$expand_ct$(_term$8, _defs$3, 0n); var _term$10 = Kind$Term$normalize$(_term$9, Kind$Map$new); - var $15903 = _term$10; - _term$6 = $15903; - $15904 = $15904.tail; + var $14759 = _term$10; + _term$6 = $14759; + $14760 = $14760.tail; } return _term$6; })(); - var $15901 = _term$5; - return $15901; + var $14757 = _term$5; + return $14757; }; const Kind$Term$expand = x0 => x1 => x2 => Kind$Term$expand$(x0, x1, x2); @@ -52528,124 +49096,124 @@ module.exports = (function() { var self = _error$1; switch (self._) { case 'Kind.Error.type_mismatch': - var $15906 = self.expected; - var $15907 = self.detected; - var $15908 = self.context; - var self = $15906; + var $14762 = self.expected; + var $14763 = self.detected; + var $14764 = self.context; + var self = $14762; switch (self._) { case 'Either.left': - var $15910 = self.value; - var $15911 = $15910; - var _expected$7 = $15911; + var $14766 = self.value; + var $14767 = $14766; + var _expected$7 = $14767; break; case 'Either.right': - var $15912 = self.value; - var $15913 = Kind$Term$show$(Kind$Term$normalize$($15912, BitsMap$new)); - var _expected$7 = $15913; + var $14768 = self.value; + var $14769 = Kind$Term$show$(Kind$Term$normalize$($14768, BitsMap$new)); + var _expected$7 = $14769; break; }; - var self = $15907; + var self = $14763; switch (self._) { case 'Either.left': - var $15914 = self.value; - var $15915 = $15914; - var _detected$8 = $15915; + var $14770 = self.value; + var $14771 = $14770; + var _detected$8 = $14771; break; case 'Either.right': - var $15916 = self.value; - var $15917 = Kind$Term$show$(Kind$Term$normalize$($15916, BitsMap$new)); - var _detected$8 = $15917; + var $14772 = self.value; + var $14773 = Kind$Term$show$(Kind$Term$normalize$($14772, BitsMap$new)); + var _detected$8 = $14773; break; }; - var $15909 = ("Type mismatch.\u{a}" + ("- Expected: " + (_expected$7 + ("\u{a}" + ("- Detected: " + (_detected$8 + ("\u{a}" + (() => { - var self = $15908; + var $14765 = ("Type mismatch.\u{a}" + ("- Expected: " + (_expected$7 + ("\u{a}" + ("- Detected: " + (_detected$8 + ("\u{a}" + (() => { + var self = $14764; switch (self._) { case 'List.nil': - var $15918 = ""; - return $15918; + var $14774 = ""; + return $14774; case 'List.cons': - var $15919 = ("With context:\u{a}" + Kind$Context$show$($15908)); - return $15919; + var $14775 = ("With context:\u{a}" + Kind$Context$show$($14764)); + return $14775; }; })()))))))); - var $15905 = $15909; + var $14761 = $14765; break; case 'Kind.Error.show_goal': - var $15920 = self.name; - var $15921 = self.dref; - var $15922 = self.verb; - var $15923 = self.goal; - var $15924 = self.context; - var _goal_name$8 = ("Goal ?" + (Kind$Name$show$($15920) + ":\u{a}")); - var self = $15923; + var $14776 = self.name; + var $14777 = self.dref; + var $14778 = self.verb; + var $14779 = self.goal; + var $14780 = self.context; + var _goal_name$8 = ("Goal ?" + (Kind$Name$show$($14776) + ":\u{a}")); + var self = $14779; switch (self._) { case 'Maybe.some': - var $15926 = self.value; - var _goal$10 = Kind$Term$expand$($15921, $15926, _defs$2); - var $15927 = ("With type: " + ((() => { - var self = $15922; + var $14782 = self.value; + var _goal$10 = Kind$Term$expand$($14777, $14782, _defs$2); + var $14783 = ("With type: " + ((() => { + var self = $14778; if (self) { - var $15928 = Kind$Term$show$go$(_goal$10, Maybe$some$((_x$11 => { - var $15929 = _x$11; - return $15929; + var $14784 = Kind$Term$show$go$(_goal$10, Maybe$some$((_x$11 => { + var $14785 = _x$11; + return $14785; }))); - return $15928; + return $14784; } else { - var $15930 = Kind$Term$show$(_goal$10); - return $15930; + var $14786 = Kind$Term$show$(_goal$10); + return $14786; }; })() + "\u{a}")); - var _with_type$9 = $15927; + var _with_type$9 = $14783; break; case 'Maybe.none': - var $15931 = ""; - var _with_type$9 = $15931; + var $14787 = ""; + var _with_type$9 = $14787; break; }; - var self = $15924; + var self = $14780; switch (self._) { case 'List.nil': - var $15932 = ""; - var _with_ctxt$10 = $15932; + var $14788 = ""; + var _with_ctxt$10 = $14788; break; case 'List.cons': - var $15933 = ("With context:\u{a}" + Kind$Context$show$($15924)); - var _with_ctxt$10 = $15933; + var $14789 = ("With context:\u{a}" + Kind$Context$show$($14780)); + var _with_ctxt$10 = $14789; break; }; - var $15925 = String$flatten$(List$cons$(_goal_name$8, List$cons$(_with_type$9, List$cons$(_with_ctxt$10, List$nil)))); - var $15905 = $15925; + var $14781 = String$flatten$(List$cons$(_goal_name$8, List$cons$(_with_type$9, List$cons$(_with_ctxt$10, List$nil)))); + var $14761 = $14781; break; case 'Kind.Error.waiting': - var $15934 = self.name; - var $15935 = ("Waiting for \'" + ($15934 + "\'.")); - var $15905 = $15935; + var $14790 = self.name; + var $14791 = ("Waiting for \'" + ($14790 + "\'.")); + var $14761 = $14791; break; case 'Kind.Error.indirect': - var $15936 = self.name; - var $15937 = ("Error on dependency \'" + ($15936 + "\'.")); - var $15905 = $15937; + var $14792 = self.name; + var $14793 = ("Error on dependency \'" + ($14792 + "\'.")); + var $14761 = $14793; break; case 'Kind.Error.patch': - var $15938 = self.term; - var $15939 = ("Patching: " + Kind$Term$show$($15938)); - var $15905 = $15939; + var $14794 = self.term; + var $14795 = ("Patching: " + Kind$Term$show$($14794)); + var $14761 = $14795; break; case 'Kind.Error.undefined_reference': - var $15940 = self.name; - var $15941 = ("Undefined reference: " + (Kind$Name$show$($15940) + "\u{a}")); - var $15905 = $15941; + var $14796 = self.name; + var $14797 = ("Undefined reference: " + (Kind$Name$show$($14796) + "\u{a}")); + var $14761 = $14797; break; case 'Kind.Error.cant_infer': - var $15942 = self.term; - var $15943 = self.context; - var _term$6 = Kind$Term$show$($15942); - var _context$7 = Kind$Context$show$($15943); - var $15944 = ("Can\'t infer type of: " + (_term$6 + ("\u{a}" + ("With context:\u{a}" + _context$7)))); - var $15905 = $15944; + var $14798 = self.term; + var $14799 = self.context; + var _term$6 = Kind$Term$show$($14798); + var _context$7 = Kind$Context$show$($14799); + var $14800 = ("Can\'t infer type of: " + (_term$6 + ("\u{a}" + ("With context:\u{a}" + _context$7)))); + var $14761 = $14800; break; }; - return $15905; + return $14761; }; const Kind$Error$show = x0 => x1 => Kind$Error$show$(x0, x1); @@ -52653,133 +49221,133 @@ module.exports = (function() { var self = _error$1; switch (self._) { case 'Kind.Error.type_mismatch': - var $15946 = self.origin; - var $15947 = $15946; - var $15945 = $15947; + var $14802 = self.origin; + var $14803 = $14802; + var $14801 = $14803; break; case 'Kind.Error.undefined_reference': - var $15948 = self.origin; - var $15949 = $15948; - var $15945 = $15949; + var $14804 = self.origin; + var $14805 = $14804; + var $14801 = $14805; break; case 'Kind.Error.cant_infer': - var $15950 = self.origin; - var $15951 = $15950; - var $15945 = $15951; + var $14806 = self.origin; + var $14807 = $14806; + var $14801 = $14807; break; case 'Kind.Error.show_goal': case 'Kind.Error.waiting': case 'Kind.Error.indirect': case 'Kind.Error.patch': - var $15952 = Maybe$none; - var $15945 = $15952; + var $14808 = Maybe$none; + var $14801 = $14808; break; }; - return $15945; + return $14801; }; const Kind$Error$origin = x0 => Kind$Error$origin$(x0); function Kind$Defs$report$errors$(_defs$1) { var _errors$2 = ""; var _errors$3 = (() => { - var $15955 = _errors$2; - var $15956 = BitsMap$keys$(_defs$1); - let _errors$4 = $15955; + var $14811 = _errors$2; + var $14812 = BitsMap$keys$(_defs$1); + let _errors$4 = $14811; let _key$3; - while ($15956._ === 'List.cons') { - _key$3 = $15956.head; + while ($14812._ === 'List.cons') { + _key$3 = $14812.head; var _name$5 = Kind$Name$from_bits$(_key$3); var _defn$6 = Kind$Map$get$(_name$5, _defs$1); var self = _defn$6; switch (self._) { case 'Maybe.some': - var $15957 = self.value; - var self = $15957; + var $14813 = self.value; + var self = $14813; switch (self._) { case 'Kind.Def.new': - var $15959 = self.file; - var $15960 = self.code; - var $15961 = self.name; - var $15962 = self.stat; - var self = $15962; + var $14815 = self.file; + var $14816 = self.code; + var $14817 = self.name; + var $14818 = self.stat; + var self = $14818; switch (self._) { case 'Kind.Status.fail': - var $15964 = self.errors; - var self = $15964; + var $14820 = self.errors; + var self = $14820; switch (self._) { case 'List.nil': - var $15966 = _errors$4; - var $15965 = $15966; + var $14822 = _errors$4; + var $14821 = $14822; break; case 'List.cons': - var _name_str$20 = $15961; - var _rel_errs$21 = Kind$Error$relevant$($15964); + var _name_str$20 = $14817; + var _rel_errs$21 = Kind$Error$relevant$($14820); var _errors$22 = (() => { - var $15969 = _errors$4; - var $15970 = _rel_errs$21; - let _errors$23 = $15969; + var $14825 = _errors$4; + var $14826 = _rel_errs$21; + let _errors$23 = $14825; let _err$22; - while ($15970._ === 'List.cons') { - _err$22 = $15970.head; + while ($14826._ === 'List.cons') { + _err$22 = $14826.head; var _err_msg$24 = Kind$Error$show$(_err$22, _defs$1); var _ori_val$25 = Kind$Error$origin$(_err$22); var self = _ori_val$25; switch (self._) { case 'Maybe.some': - var $15971 = self.value; - var self = $15971; + var $14827 = self.value; + var self = $14827; switch (self._) { case 'Pair.new': - var $15973 = self.fst; - var $15974 = self.snd; - var _inside$29 = ("Inside \'" + ($15959 + "\':\u{a}")); - var _source$30 = Kind$Code$highlight$($15960, $15973, $15973, $15974); - var $15975 = (_errors$23 + (_err_msg$24 + (_inside$29 + (_source$30 + ("\u{a}" + "\u{a}"))))); - var $15972 = $15975; + var $14829 = self.fst; + var $14830 = self.snd; + var _inside$29 = ("Inside \'" + ($14815 + "\':\u{a}")); + var _source$30 = Kind$Code$highlight$($14816, $14829, $14829, $14830); + var $14831 = (_errors$23 + (_err_msg$24 + (_inside$29 + (_source$30 + ("\u{a}" + "\u{a}"))))); + var $14828 = $14831; break; }; - var $15969 = $15972; + var $14825 = $14828; break; case 'Maybe.none': - var $15976 = (_errors$23 + (_err_msg$24 + "\u{a}")); - var $15969 = $15976; + var $14832 = (_errors$23 + (_err_msg$24 + "\u{a}")); + var $14825 = $14832; break; }; - _errors$23 = $15969; - $15970 = $15970.tail; + _errors$23 = $14825; + $14826 = $14826.tail; } return _errors$23; })(); - var $15967 = _errors$22; - var $15965 = $15967; + var $14823 = _errors$22; + var $14821 = $14823; break; }; - var $15963 = $15965; + var $14819 = $14821; break; case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.done': - var $15977 = _errors$4; - var $15963 = $15977; + var $14833 = _errors$4; + var $14819 = $14833; break; }; - var $15958 = $15963; + var $14814 = $14819; break; }; - var $15955 = $15958; + var $14811 = $14814; break; case 'Maybe.none': - var $15978 = _errors$4; - var $15955 = $15978; + var $14834 = _errors$4; + var $14811 = $14834; break; }; - _errors$4 = $15955; - $15956 = $15956.tail; + _errors$4 = $14811; + $14812 = $14812.tail; } return _errors$4; })(); - var $15953 = _errors$3; - return $15953; + var $14809 = _errors$3; + return $14809; }; const Kind$Defs$report$errors = x0 => Kind$Defs$report$errors$(x0); @@ -52788,44 +49356,44 @@ module.exports = (function() { var _errors$4 = Kind$Defs$report$errors$(_defs$1); var self = _errors$4; if (self.length === 0) { - var $15980 = "All terms check."; - var _errors$5 = $15980; + var $14836 = "All terms check."; + var _errors$5 = $14836; } else { - var $15981 = self.charCodeAt(0); - var $15982 = self.slice(1); - var $15983 = _errors$4; - var _errors$5 = $15983; + var $14837 = self.charCodeAt(0); + var $14838 = self.slice(1); + var $14839 = _errors$4; + var _errors$5 = $14839; }; - var $15979 = (_types$3 + ("\u{a}" + _errors$5)); - return $15979; + var $14835 = (_types$3 + ("\u{a}" + _errors$5)); + return $14835; }; const Kind$Defs$report = x0 => x1 => Kind$Defs$report$(x0, x1); function IO$set_file$(_name$1, _content$2) { - var $15984 = IO$ask$("set_file", (_name$1 + ("=" + _content$2)), (_ok$3 => { - var $15985 = IO$end$(Unit$new); - return $15985; + var $14840 = IO$ask$("set_file", (_name$1 + ("=" + _content$2)), (_ok$3 => { + var $14841 = IO$end$(Unit$new); + return $14841; })); - return $15984; + return $14840; }; const IO$set_file = x0 => x1 => IO$set_file$(x0, x1); function Kind$Synth$load$cached$set_file$(_name$1, _value$2) { - var $15986 = IO$set_file$(Kind$Synth$load$cached$name$(_name$1), _value$2); - return $15986; + var $14842 = IO$set_file$(Kind$Synth$load$cached$name$(_name$1), _value$2); + return $14842; }; const Kind$Synth$load$cached$set_file = x0 => x1 => Kind$Synth$load$cached$set_file$(x0, x1); function Bool$show$(_b$1) { var self = _b$1; if (self) { - var $15988 = "Bool.true"; - var $15987 = $15988; + var $14844 = "Bool.true"; + var $14843 = $14844; } else { - var $15989 = "Bool.false"; - var $15987 = $15989; + var $14845 = "Bool.false"; + var $14843 = $14845; }; - return $15987; + return $14843; }; const Bool$show = x0 => Bool$show$(x0); @@ -52833,156 +49401,156 @@ module.exports = (function() { var self = _kvs$1; switch (self._) { case 'List.cons': - var $15991 = self.head; - var $15992 = self.tail; - var self = $15991; + var $14847 = self.head; + var $14848 = self.tail; + var self = $14847; switch (self._) { case 'Pair.new': - var $15994 = self.fst; - var $15995 = self.snd; - var self = $15995; + var $14850 = self.fst; + var $14851 = self.snd; + var self = $14851; switch (self._) { case 'Kind.Def.new': - var $15997 = self.file; - var $15998 = self.term; - var $15999 = self.type; - var $16000 = self.isct; - var $16001 = self.arit; - var $16002 = self.stat; - var self = $16002; + var $14853 = self.file; + var $14854 = self.term; + var $14855 = self.type; + var $14856 = self.isct; + var $14857 = self.arit; + var $14858 = self.stat; + var self = $14858; switch (self._) { case 'Kind.Status.init': case 'Kind.Status.wait': case 'Kind.Status.fail': - var $16004 = Kind$Defs$cache$go$($15992); - var $16003 = $16004; + var $14860 = Kind$Defs$cache$go$($14848); + var $14859 = $14860; break; case 'Kind.Status.done': - var $16005 = IO$monad$((_m$bind$16 => _m$pure$17 => { - var $16006 = _m$bind$16; - return $16006; - }))(IO$get_file_mtime$($15997))((_time$16 => { - var $16007 = IO$monad$((_m$bind$17 => _m$pure$18 => { - var $16008 = _m$bind$17; - return $16008; - }))(Kind$Synth$load$cached$set_file$(($15994 + ".term"), Kind$Core$show$($15998)))((_$17 => { - var $16009 = IO$monad$((_m$bind$18 => _m$pure$19 => { - var $16010 = _m$bind$18; - return $16010; - }))(Kind$Synth$load$cached$set_file$(($15994 + ".type"), Kind$Core$show$($15999)))((_$18 => { - var $16011 = IO$monad$((_m$bind$19 => _m$pure$20 => { - var $16012 = _m$bind$19; - return $16012; - }))(Kind$Synth$load$cached$set_file$(($15994 + ".isct"), Bool$show$($16000)))((_$19 => { - var $16013 = IO$monad$((_m$bind$20 => _m$pure$21 => { - var $16014 = _m$bind$20; - return $16014; - }))(Kind$Synth$load$cached$set_file$(($15994 + ".arit"), Nat$show$($16001)))((_$20 => { - var $16015 = IO$monad$((_m$bind$21 => _m$pure$22 => { - var $16016 = _m$bind$21; - return $16016; - }))(Kind$Synth$load$cached$set_file$(($15994 + ".file"), $15997))((_$21 => { - var $16017 = IO$monad$((_m$bind$22 => _m$pure$23 => { - var $16018 = _m$bind$22; - return $16018; - }))(Kind$Synth$load$cached$set_file$(($15994 + ".time"), _time$16))((_$22 => { - var $16019 = Kind$Defs$cache$go$($15992); - return $16019; + var $14861 = IO$monad$((_m$bind$16 => _m$pure$17 => { + var $14862 = _m$bind$16; + return $14862; + }))(IO$get_file_mtime$($14853))((_time$16 => { + var $14863 = IO$monad$((_m$bind$17 => _m$pure$18 => { + var $14864 = _m$bind$17; + return $14864; + }))(Kind$Synth$load$cached$set_file$(($14850 + ".term"), Kind$Core$show$($14854)))((_$17 => { + var $14865 = IO$monad$((_m$bind$18 => _m$pure$19 => { + var $14866 = _m$bind$18; + return $14866; + }))(Kind$Synth$load$cached$set_file$(($14850 + ".type"), Kind$Core$show$($14855)))((_$18 => { + var $14867 = IO$monad$((_m$bind$19 => _m$pure$20 => { + var $14868 = _m$bind$19; + return $14868; + }))(Kind$Synth$load$cached$set_file$(($14850 + ".isct"), Bool$show$($14856)))((_$19 => { + var $14869 = IO$monad$((_m$bind$20 => _m$pure$21 => { + var $14870 = _m$bind$20; + return $14870; + }))(Kind$Synth$load$cached$set_file$(($14850 + ".arit"), Nat$show$($14857)))((_$20 => { + var $14871 = IO$monad$((_m$bind$21 => _m$pure$22 => { + var $14872 = _m$bind$21; + return $14872; + }))(Kind$Synth$load$cached$set_file$(($14850 + ".file"), $14853))((_$21 => { + var $14873 = IO$monad$((_m$bind$22 => _m$pure$23 => { + var $14874 = _m$bind$22; + return $14874; + }))(Kind$Synth$load$cached$set_file$(($14850 + ".time"), _time$16))((_$22 => { + var $14875 = Kind$Defs$cache$go$($14848); + return $14875; })); - return $16017; + return $14873; })); - return $16015; + return $14871; })); - return $16013; + return $14869; })); - return $16011; + return $14867; })); - return $16009; + return $14865; })); - return $16007; + return $14863; })); - var $16003 = $16005; + var $14859 = $14861; break; }; - var $15996 = $16003; + var $14852 = $14859; break; }; - var $15993 = $15996; + var $14849 = $14852; break; }; - var $15990 = $15993; + var $14846 = $14849; break; case 'List.nil': - var $16020 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $16021 = _m$pure$3; - return $16021; + var $14876 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $14877 = _m$pure$3; + return $14877; }))(Unit$new); - var $15990 = $16020; + var $14846 = $14876; break; }; - return $15990; + return $14846; }; const Kind$Defs$cache$go = x0 => Kind$Defs$cache$go$(x0); function Kind$Defs$cache$(_defs$1) { - var $16022 = Kind$Defs$cache$go$(Kind$Map$to_list$(_defs$1)); - return $16022; + var $14878 = Kind$Defs$cache$go$(Kind$Map$to_list$(_defs$1)); + return $14878; }; const Kind$Defs$cache = x0 => Kind$Defs$cache$(x0); function Kind$api$io$check_file$(_file$1) { - var $16023 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $16024 = _m$bind$2; - return $16024; + var $14879 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $14880 = _m$bind$2; + return $14880; }))(Kind$Synth$file$(_file$1, Kind$Map$new))((_loaded$2 => { var self = _loaded$2; switch (self._) { case 'Either.left': - var $16026 = self.value; - var $16027 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $16028 = _m$bind$4; - return $16028; + var $14882 = self.value; + var $14883 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $14884 = _m$bind$4; + return $14884; }))(IO$print$(String$flatten$(List$cons$("On \'", List$cons$(_file$1, List$cons$("\':", List$nil))))))((_$4 => { - var $16029 = IO$print$($16026); - return $16029; + var $14885 = IO$print$($14882); + return $14885; })); - var $16025 = $16027; + var $14881 = $14883; break; case 'Either.right': - var $16030 = self.value; - var self = $16030; + var $14886 = self.value; + var self = $14886; switch (self._) { case 'Pair.new': - var $16032 = self.fst; - var $16033 = self.snd; - var _nams$6 = $16032; - var _defs$7 = $16033; + var $14888 = self.fst; + var $14889 = self.snd; + var _nams$6 = $14888; + var _defs$7 = $14889; var self = _nams$6; switch (self._) { case 'List.nil': - var $16035 = IO$print$(("File not found or empty: \'" + (_file$1 + "\'."))); - var $16034 = $16035; + var $14891 = IO$print$(("File not found or empty: \'" + (_file$1 + "\'."))); + var $14890 = $14891; break; case 'List.cons': - var $16036 = IO$monad$((_m$bind$10 => _m$pure$11 => { - var $16037 = _m$bind$10; - return $16037; + var $14892 = IO$monad$((_m$bind$10 => _m$pure$11 => { + var $14893 = _m$bind$10; + return $14893; }))(IO$print$(Kind$Defs$report$(_defs$7, _nams$6)))((_$10 => { - var $16038 = Kind$Defs$cache$(_defs$7); - return $16038; + var $14894 = Kind$Defs$cache$(_defs$7); + return $14894; })); - var $16034 = $16036; + var $14890 = $14892; break; }; - var $16031 = $16034; + var $14887 = $14890; break; }; - var $16025 = $16031; + var $14881 = $14887; break; }; - return $16025; + return $14881; })); - return $16023; + return $14879; }; const Kind$api$io$check_file = x0 => Kind$api$io$check_file$(x0); @@ -52990,243 +49558,243 @@ module.exports = (function() { var self = _files$1; switch (self._) { case 'List.cons': - var $16040 = self.head; - var $16041 = self.tail; - var $16042 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $16043 = _m$bind$5; - return $16043; - }))(Kind$Synth$file$($16040, _defs$2))((_file_synth$5 => { + var $14896 = self.head; + var $14897 = self.tail; + var $14898 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $14899 = _m$bind$5; + return $14899; + }))(Kind$Synth$file$($14896, _defs$2))((_file_synth$5 => { var self = _file_synth$5; switch (self._) { case 'Either.right': - var $16045 = self.value; - var _nams$7 = Pair$fst$($16045); - var _defs$8 = Pair$snd$($16045); - var $16046 = IO$monad$((_m$bind$9 => _m$pure$10 => { - var $16047 = _m$bind$9; - return $16047; - }))(Kind$Synth$files$go$($16041, _defs$8))((_rest$9 => { + var $14901 = self.value; + var _nams$7 = Pair$fst$($14901); + var _defs$8 = Pair$snd$($14901); + var $14902 = IO$monad$((_m$bind$9 => _m$pure$10 => { + var $14903 = _m$bind$9; + return $14903; + }))(Kind$Synth$files$go$($14897, _defs$8))((_rest$9 => { var _nams$10 = List$concat$(_nams$7, Pair$fst$(_rest$9)); var _defs$11 = Pair$snd$(_rest$9); - var $16048 = IO$monad$((_m$bind$12 => _m$pure$13 => { - var $16049 = _m$pure$13; - return $16049; + var $14904 = IO$monad$((_m$bind$12 => _m$pure$13 => { + var $14905 = _m$pure$13; + return $14905; }))(Pair$new$(_nams$10, _defs$11)); - return $16048; + return $14904; })); - var $16044 = $16046; + var $14900 = $14902; break; case 'Either.left': - var $16050 = Kind$Synth$files$go$($16041, _defs$2); - var $16044 = $16050; + var $14906 = Kind$Synth$files$go$($14897, _defs$2); + var $14900 = $14906; break; }; - return $16044; + return $14900; })); - var $16039 = $16042; + var $14895 = $14898; break; case 'List.nil': - var $16051 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $16052 = _m$pure$4; - return $16052; + var $14907 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $14908 = _m$pure$4; + return $14908; }))(Pair$new$(List$nil, _defs$2)); - var $16039 = $16051; + var $14895 = $14907; break; }; - return $16039; + return $14895; }; const Kind$Synth$files$go = x0 => x1 => Kind$Synth$files$go$(x0, x1); function Kind$Synth$remove_duplicate_names$(_names$1) { var _map$2 = List$fold$(_names$1, Kind$Map$new, (_name$2 => { - var $16054 = Kind$Map$set(_name$2)(Unit$new); - return $16054; + var $14910 = Kind$Map$set(_name$2)(Unit$new); + return $14910; })); - var $16053 = List$mapped$(BitsMap$keys$(_map$2), Kind$Name$from_bits); - return $16053; + var $14909 = List$mapped$(BitsMap$keys$(_map$2), Kind$Name$from_bits); + return $14909; }; const Kind$Synth$remove_duplicate_names = x0 => Kind$Synth$remove_duplicate_names$(x0); function Kind$Synth$files$(_files$1, _defs$2) { - var $16055 = IO$monad$((_m$bind$3 => _m$pure$4 => { - var $16056 = _m$bind$3; - return $16056; + var $14911 = IO$monad$((_m$bind$3 => _m$pure$4 => { + var $14912 = _m$bind$3; + return $14912; }))(Kind$Synth$files$go$(_files$1, _defs$2))((_got$3 => { var _nams$4 = Kind$Synth$remove_duplicate_names$(Pair$fst$(_got$3)); var _defs$5 = Pair$snd$(_got$3); - var $16057 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $16058 = _m$pure$7; - return $16058; + var $14913 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $14914 = _m$pure$7; + return $14914; }))(Pair$new$(_nams$4, _defs$5)); - return $16057; + return $14913; })); - return $16055; + return $14911; }; const Kind$Synth$files = x0 => x1 => Kind$Synth$files$(x0, x1); function Kind$api$io$check_files$(_files$1) { - var $16059 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $16060 = _m$bind$2; - return $16060; + var $14915 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $14916 = _m$bind$2; + return $14916; }))(Kind$Synth$files$(_files$1, Kind$Map$new))((_loaded$2 => { var _nams$3 = Pair$fst$(_loaded$2); var _defs$4 = Pair$snd$(_loaded$2); var self = _nams$3; switch (self._) { case 'List.nil': - var $16062 = IO$print$("No valid Kind file found."); - var $16061 = $16062; + var $14918 = IO$print$("No valid Kind file found."); + var $14917 = $14918; break; case 'List.cons': - var $16063 = IO$monad$((_m$bind$7 => _m$pure$8 => { - var $16064 = _m$bind$7; - return $16064; + var $14919 = IO$monad$((_m$bind$7 => _m$pure$8 => { + var $14920 = _m$bind$7; + return $14920; }))(IO$print$(Kind$Defs$report$(_defs$4, _nams$3)))((_$7 => { - var $16065 = Kind$Defs$cache$(_defs$4); - return $16065; + var $14921 = Kind$Defs$cache$(_defs$4); + return $14921; })); - var $16061 = $16063; + var $14917 = $14919; break; }; - return $16061; + return $14917; })); - return $16059; + return $14915; }; const Kind$api$io$check_files = x0 => Kind$api$io$check_files$(x0); function Kind$api$io$check_term$(_name$1) { - var $16066 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $16067 = _m$bind$2; - return $16067; + var $14922 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $14923 = _m$bind$2; + return $14923; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_defs$2 => { var self = _defs$2; switch (self._) { case 'Maybe.some': - var $16069 = self.value; - var $16070 = IO$monad$((_m$bind$4 => _m$pure$5 => { - var $16071 = _m$bind$4; - return $16071; - }))(IO$print$(Kind$Defs$report$($16069, List$cons$(_name$1, List$nil))))((_$4 => { - var $16072 = Kind$Defs$cache$($16069); - return $16072; + var $14925 = self.value; + var $14926 = IO$monad$((_m$bind$4 => _m$pure$5 => { + var $14927 = _m$bind$4; + return $14927; + }))(IO$print$(Kind$Defs$report$($14925, List$cons$(_name$1, List$nil))))((_$4 => { + var $14928 = Kind$Defs$cache$($14925); + return $14928; })); - var $16068 = $16070; + var $14924 = $14926; break; case 'Maybe.none': var _notfound$3 = ("Term not found: \'" + (_name$1 + "\'.")); var _filelist$4 = List$mapped$(Kind$Synth$files_of$(_name$1), (_x$4 => { - var $16074 = ("\'" + (_x$4 + "\'")); - return $16074; + var $14930 = ("\'" + (_x$4 + "\'")); + return $14930; })); var _searched$5 = ("Searched on: " + (String$join$(", ", _filelist$4) + ".")); - var $16073 = IO$print$((_notfound$3 + ("\u{a}" + _searched$5))); - var $16068 = $16073; + var $14929 = IO$print$((_notfound$3 + ("\u{a}" + _searched$5))); + var $14924 = $14929; break; }; - return $16068; + return $14924; })); - return $16066; + return $14922; }; const Kind$api$io$check_term = x0 => Kind$api$io$check_term$(x0); function Kind$api$io$show_term$(_name$1) { - var $16075 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $16076 = _m$bind$2; - return $16076; + var $14931 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $14932 = _m$bind$2; + return $14932; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_new_defs$2 => { - var $16077 = IO$print$((() => { + var $14933 = IO$print$((() => { var self = _new_defs$2; switch (self._) { case 'Maybe.some': - var $16078 = self.value; - var _defs$4 = $16078; + var $14934 = self.value; + var _defs$4 = $14934; var _defn$5 = Kind$Map$get$(_name$1, _defs$4); var self = _defn$5; switch (self._) { case 'Maybe.some': - var $16080 = self.value; - var self = $16080; + var $14936 = self.value; + var self = $14936; switch (self._) { case 'Kind.Def.new': - var $16082 = self.term; - var _term$16 = $16082; - var $16083 = Kind$Term$show$(_term$16); - var $16081 = $16083; + var $14938 = self.term; + var _term$16 = $14938; + var $14939 = Kind$Term$show$(_term$16); + var $14937 = $14939; break; }; - var $16079 = $16081; + var $14935 = $14937; break; case 'Maybe.none': - var $16084 = ("Term not found: \'" + (_name$1 + "\'.")); - var $16079 = $16084; + var $14940 = ("Term not found: \'" + (_name$1 + "\'.")); + var $14935 = $14940; break; }; - return $16079; + return $14935; case 'Maybe.none': var _notfound$3 = ("Term not found: \'" + (_name$1 + "\'.")); var _filelist$4 = List$mapped$(Kind$Synth$files_of$(_name$1), (_x$4 => { - var $16086 = ("\'" + (_x$4 + "\'")); - return $16086; + var $14942 = ("\'" + (_x$4 + "\'")); + return $14942; })); var _searched$5 = ("Searched on: " + (String$join$(", ", _filelist$4) + ".")); - var $16085 = (_notfound$3 + ("\u{a}" + _searched$5)); - return $16085; + var $14941 = (_notfound$3 + ("\u{a}" + _searched$5)); + return $14941; }; })()); - return $16077; + return $14933; })); - return $16075; + return $14931; }; const Kind$api$io$show_term = x0 => Kind$api$io$show_term$(x0); function Kind$api$io$show_term_normal$(_name$1) { - var $16087 = IO$monad$((_m$bind$2 => _m$pure$3 => { - var $16088 = _m$bind$2; - return $16088; + var $14943 = IO$monad$((_m$bind$2 => _m$pure$3 => { + var $14944 = _m$bind$2; + return $14944; }))(Kind$Synth$one$(_name$1, Kind$Map$new))((_new_defs$2 => { - var $16089 = IO$print$((() => { + var $14945 = IO$print$((() => { var self = _new_defs$2; switch (self._) { case 'Maybe.some': - var $16090 = self.value; - var _defs$4 = $16090; + var $14946 = self.value; + var _defs$4 = $14946; var _defn$5 = Kind$Map$get$(_name$1, _defs$4); var self = _defn$5; switch (self._) { case 'Maybe.some': - var $16092 = self.value; - var self = $16092; + var $14948 = self.value; + var self = $14948; switch (self._) { case 'Kind.Def.new': - var $16094 = self.term; - var _term$16 = $16094; + var $14950 = self.term; + var _term$16 = $14950; var _norm$17 = Kind$Term$normalize$(_term$16, _defs$4); - var $16095 = Kind$Term$show$(_norm$17); - var $16093 = $16095; + var $14951 = Kind$Term$show$(_norm$17); + var $14949 = $14951; break; }; - var $16091 = $16093; + var $14947 = $14949; break; case 'Maybe.none': - var $16096 = ("Term not found: \'" + (_name$1 + "\'.")); - var $16091 = $16096; + var $14952 = ("Term not found: \'" + (_name$1 + "\'.")); + var $14947 = $14952; break; }; - return $16091; + return $14947; case 'Maybe.none': var _notfound$3 = ("Term not found: \'" + (_name$1 + "\'.")); var _filelist$4 = List$mapped$(Kind$Synth$files_of$(_name$1), (_x$4 => { - var $16098 = ("\'" + (_x$4 + "\'")); - return $16098; + var $14954 = ("\'" + (_x$4 + "\'")); + return $14954; })); var _searched$5 = ("Searched on: " + (String$join$(", ", _filelist$4) + ".")); - var $16097 = (_notfound$3 + ("\u{a}" + _searched$5)); - return $16097; + var $14953 = (_notfound$3 + ("\u{a}" + _searched$5)); + return $14953; }; })()); - return $16089; + return $14945; })); - return $16087; + return $14943; }; const Kind$api$io$show_term_normal = x0 => Kind$api$io$show_term_normal$(x0); @@ -53243,13 +49811,13 @@ module.exports = (function() { var self = _io$2; switch (self._) { case 'IO.end': - var $16099 = self.value; - var $16100 = $16099; - return $16100; + var $14955 = self.value; + var $14956 = $14955; + return $14956; case 'IO.ask': - var $16101 = self.then; - var $16102 = IO$purify$($16101("")); - return $16102; + var $14957 = self.then; + var $14958 = IO$purify$($14957("")); + return $14958; }; })(); if (R.ctr === 'TCO') arg = R.arg; @@ -53262,31 +49830,31 @@ module.exports = (function() { var self = Kind$Defs$read$("Main.kind", _code$1, Kind$Map$new); switch (self._) { case 'Either.left': - var $16104 = self.value; - var $16105 = $16104; - var $16103 = $16105; + var $14960 = self.value; + var $14961 = $14960; + var $14959 = $14961; break; case 'Either.right': - var $16106 = self.value; - var $16107 = IO$purify$((() => { - var _defs$3 = $16106; + var $14962 = self.value; + var $14963 = IO$purify$((() => { + var _defs$3 = $14962; var _nams$4 = List$mapped$(BitsMap$keys$(_defs$3), Kind$Name$from_bits); - var $16108 = IO$monad$((_m$bind$5 => _m$pure$6 => { - var $16109 = _m$bind$5; - return $16109; + var $14964 = IO$monad$((_m$bind$5 => _m$pure$6 => { + var $14965 = _m$bind$5; + return $14965; }))(Kind$Synth$many$(_nams$4, _defs$3))((_defs$5 => { - var $16110 = IO$monad$((_m$bind$6 => _m$pure$7 => { - var $16111 = _m$pure$7; - return $16111; + var $14966 = IO$monad$((_m$bind$6 => _m$pure$7 => { + var $14967 = _m$pure$7; + return $14967; }))(Kind$Defs$report$(_defs$5, _nams$4)); - return $16110; + return $14966; })); - return $16108; + return $14964; })()); - var $16103 = $16107; + var $14959 = $14963; break; }; - return $16103; + return $14959; }; const Kind$api$check_code = x0 => Kind$api$check_code$(x0); @@ -53294,16 +49862,16 @@ module.exports = (function() { var self = Kind$Parser$term(Parser$State$new$(Maybe$none, "", 0n, 0n, _code$1)); switch (self._) { case 'Parser.Reply.value': - var $16113 = self.val; - var $16114 = Maybe$some$($16113); - var $16112 = $16114; + var $14969 = self.val; + var $14970 = Maybe$some$($14969); + var $14968 = $14970; break; case 'Parser.Reply.error': - var $16115 = Maybe$none; - var $16112 = $16115; + var $14971 = Maybe$none; + var $14968 = $14971; break; }; - return $16112; + return $14968; }; const Kind$Term$read = x0 => Kind$Term$read$(x0); const Kind$api$export = (() => { @@ -53317,11 +49885,11 @@ module.exports = (function() { var _e$8 = Kind$api$io$show_term_normal; var _e$9 = Kind$api$check_code; var _e$10 = Kind$Term$read; - var $16116 = IO$monad$((_m$bind$11 => _m$pure$12 => { - var $16117 = _m$pure$12; - return $16117; + var $14972 = IO$monad$((_m$bind$11 => _m$pure$12 => { + var $14973 = _m$pure$12; + return $14973; }))(Unit$new); - return $16116; + return $14972; })(); return { '$main$': () => run(Kind$api$export), @@ -53372,10 +49940,6 @@ module.exports = (function() { 'Parser.Reply.error': Parser$Reply$error, 'Nat.gtn': Nat$gtn, 'Parser.Error.combine': Parser$Error$combine, - 'Unit.new': Unit$new, - 'Debug.log': Debug$log, - 'String.cons': String$cons, - 'String.concat': String$concat, 'Parser.Error.maybe_combine': Parser$Error$maybe_combine, 'Parser.Reply.value': Parser$Reply$value, 'List.nil': List$nil, @@ -53400,6 +49964,8 @@ module.exports = (function() { 'IO.get_time': IO$get_time, 'Kind.Synth.load.cached.is_loop': Kind$Synth$load$cached$is_loop, 'IO.get_file': IO$get_file, + 'String.cons': String$cons, + 'String.concat': String$concat, 'Bits.hex.encode': Bits$hex$encode, 'Kind.Synth.load.cached.name': Kind$Synth$load$cached$name, 'Kind.Synth.load.cached.get_file': Kind$Synth$load$cached$get_file, @@ -53412,6 +49978,7 @@ module.exports = (function() { 'Maybe.bind': Maybe$bind, 'Maybe.monad': Maybe$monad, 'Pair': Pair, + 'Unit.new': Unit$new, 'Bool.or': Bool$or, 'Kind.Core.read.spaces': Kind$Core$read$spaces, 'Kind.Term.ref': Kind$Term$ref, @@ -53537,53 +50104,6 @@ module.exports = (function() { 'Kind.Parser.lambda.1': Kind$Parser$lambda$1, 'Kind.Parser.lambda.name_term': Kind$Parser$lambda$name_term, 'List.unzip': List$unzip, - 'Maybe.mapped': Maybe$mapped, - 'Kind.Term.show.as_nat.go': Kind$Term$show$as_nat$go, - 'Either': Either, - 'Either.left': Either$left, - 'Either.right': Either$right, - 'Nat.sub_rem': Nat$sub_rem, - 'Nat.div_mod.go': Nat$div_mod$go, - 'Nat.div_mod': Nat$div_mod, - 'Nat.to_base.go': Nat$to_base$go, - 'Nat.to_base': Nat$to_base, - 'Nat.mod.go': Nat$mod$go, - 'Nat.mod': Nat$mod, - 'Nat.lte': Nat$lte, - 'List.at': List$at, - 'Nat.show_digit': Nat$show_digit, - 'Nat.to_string_base': Nat$to_string_base, - 'Nat.show': Nat$show, - 'Kind.Term.show.as_nat': Kind$Term$show$as_nat, - 'Kind.Name.show': Kind$Name$show, - 'Bits.concat': Bits$concat, - 'Kind.Path.Builder.to_bits': Kind$Path$Builder$to_bits, - 'Bits.to_nat': Bits$to_nat, - 'String.flatten.go': String$flatten$go, - 'String.flatten': String$flatten, - 'Kind.Code.color': Kind$Code$color, - 'Kind.Path.Builder.o': Kind$Path$Builder$o, - 'Kind.Path.Maybe.Builder.o': Kind$Path$Maybe$Builder$o, - 'Kind.Term.var': Kind$Term$var, - 'Kind.Path.Builder.i': Kind$Path$Builder$i, - 'Kind.Path.Maybe.Builder.i': Kind$Path$Maybe$Builder$i, - 'List.length': List$length, - 'Kind.Term.show.is_ref': Kind$Term$show$is_ref, - 'String.join.go': String$join$go, - 'String.join': String$join, - 'Kind.Term.show.app.done': Kind$Term$show$app$done, - 'Kind.Term.show.app': Kind$Term$show$app, - 'Kind.Code.backslash': Kind$Code$backslash, - 'Word.to_bits': Word$to_bits, - 'U16.show_hex': U16$show_hex, - 'Kind.Code.escape.char': Kind$Code$escape$char, - 'String.reverse.go': String$reverse$go, - 'String.reverse': String$reverse, - 'Kind.Code.escape.go': Kind$Code$escape$go, - 'Kind.Code.escape': Kind$Code$escape, - 'BitsMap.to_list': BitsMap$to_list, - 'Kind.Term.show.go': Kind$Term$show$go, - 'Kind.Term.show': Kind$Term$show, 'Kind.Parser.lambda.get_type': Kind$Parser$lambda$get_type, 'Kind.Parser.lambda.2': Kind$Parser$lambda$2, 'Kind.Parser.lambda': Kind$Parser$lambda, @@ -53616,9 +50136,12 @@ module.exports = (function() { 'Kind.Parser.use': Kind$Parser$use, 'Kind.Parser.goal_rewrite': Kind$Parser$goal_rewrite, 'Kind.Parser.if': Kind$Parser$if, + 'Kind.Code.backslash': Kind$Code$backslash, 'Kind.Code.escapes': Kind$Code$escapes, 'Kind.Parser.char.single': Kind$Parser$char$single, 'Kind.Parser.char': Kind$Parser$char, + 'String.reverse.go': String$reverse$go, + 'String.reverse': String$reverse, 'Kind.Parser.string.go': Kind$Parser$string$go, 'Kind.Parser.string': Kind$Parser$string, 'Kind.Term.new': Kind$Term$new, @@ -53647,6 +50170,7 @@ module.exports = (function() { 'Nat.sub': Nat$sub, 'String.slice': String$slice, 'Kind.Term.unroll_nat': Kind$Term$unroll_nat, + 'Word.to_bits': Word$to_bits, 'U16.to_bits': U16$to_bits, 'Kind.Term.unroll_chr.bits': Kind$Term$unroll_chr$bits, 'Kind.Term.unroll_chr': Kind$Term$unroll_chr, @@ -53681,6 +50205,21 @@ module.exports = (function() { 'String.from_list': String$from_list, 'Kind.Parser.float.64': Kind$Parser$float$64, 'Kind.Parser.float.32': Kind$Parser$float$32, + 'Either': Either, + 'Either.left': Either$left, + 'Either.right': Either$right, + 'Nat.sub_rem': Nat$sub_rem, + 'Nat.div_mod.go': Nat$div_mod$go, + 'Nat.div_mod': Nat$div_mod, + 'Nat.to_base.go': Nat$to_base$go, + 'Nat.to_base': Nat$to_base, + 'Nat.mod.go': Nat$mod$go, + 'Nat.mod': Nat$mod, + 'Nat.lte': Nat$lte, + 'List.at': List$at, + 'Nat.show_digit': Nat$show_digit, + 'Nat.to_string_base': Nat$to_string_base, + 'Nat.show': Nat$show, 'Kind.Parser.int_pos': Kind$Parser$int_pos, 'Kind.Parser.int_neg': Kind$Parser$int_neg, 'Kind.Parser.machine_integer.signed': Kind$Parser$machine_integer$signed, @@ -53743,12 +50282,17 @@ module.exports = (function() { 'List.concat': List$concat, 'List.flatten': List$flatten, 'Kind.Parser.binder': Kind$Parser$binder, + 'List.length': List$length, 'Kind.Parser.forall.make': Kind$Parser$forall$make, 'List.at_last': List$at_last, + 'Kind.Term.var': Kind$Term$var, 'Kind.Context.get_name_skips': Kind$Context$get_name_skips, 'Kind.Name.eql': Kind$Name$eql, 'Kind.Context.find.go': Kind$Context$find$go, 'Kind.Context.find': Kind$Context$find, + 'Kind.Path.Builder.o': Kind$Path$Builder$o, + 'Kind.Path.Builder.i': Kind$Path$Builder$i, + 'Kind.Path.Builder.to_bits': Kind$Path$Builder$to_bits, 'List.imapped': List$imapped, 'Kind.Path.Builder.nat': Kind$Path$Builder$nat, 'Kind.Term.bind': Kind$Term$bind, @@ -53769,6 +50313,8 @@ module.exports = (function() { 'Kind.Parser.ADT.adt': Kind$Parser$ADT$adt, 'Kind.Parser.ADT.Datatype.build_term.motive.go': Kind$Parser$ADT$Datatype$build_term$motive$go, 'Kind.Parser.ADT.Datatype.build_term.motive': Kind$Parser$ADT$Datatype$build_term$motive, + 'String.flatten.go': String$flatten$go, + 'String.flatten': String$flatten, 'Kind.Parser.ADT.Datatype.build_term.constructor.go': Kind$Parser$ADT$Datatype$build_term$constructor$go, 'Kind.Parser.ADT.Datatype.build_term.constructor': Kind$Parser$ADT$Datatype$build_term$constructor, 'Kind.Parser.ADT.Datatype.build_term.constructors.go': Kind$Parser$ADT$Datatype$build_term$constructors$go, @@ -53818,12 +50364,15 @@ module.exports = (function() { 'Kind.Parser.file.adt': Kind$Parser$file$adt, 'Kind.Parser.file.end': Kind$Parser$file$end, 'Kind.Parser.file': Kind$Parser$file, + 'String.join.go': String$join$go, + 'String.join': String$join, 'Kind.Code.highlight.end': Kind$Code$highlight$end, 'Maybe.extract': Maybe$extract, 'Nat.is_zero': Nat$is_zero, 'Nat.double': Nat$double, 'String.pad_right': String$pad_right, 'String.pad_left': String$pad_left, + 'Kind.Code.color': Kind$Code$color, 'List.take': List$take, 'Kind.Code.highlight.go': Kind$Code$highlight$go, 'Kind.Code.highlight': Kind$Code$highlight, @@ -53842,6 +50391,9 @@ module.exports = (function() { 'Kind.Error.undefined_reference': Kind$Error$undefined_reference, 'Kind.Error.waiting': Kind$Error$waiting, 'Kind.Error.indirect': Kind$Error$indirect, + 'Maybe.mapped': Maybe$mapped, + 'Kind.Path.Maybe.Builder.o': Kind$Path$Maybe$Builder$o, + 'Kind.Path.Maybe.Builder.i': Kind$Path$Maybe$Builder$i, 'Kind.Error.patch': Kind$Error$patch, 'Kind.Path.Maybe.Builder.to_bits': Kind$Path$Maybe$Builder$to_bits, 'Kind.Term.check.patch': Kind$Term$check$patch, @@ -53866,6 +50418,7 @@ module.exports = (function() { 'Kind.Term.SmartMotive.nams': Kind$Term$SmartMotive$nams, 'List.zip': List$zip, 'Nat.gte': Nat$gte, + 'Bits.concat': Bits$concat, 'Kind.Term.serialize.go': Kind$Term$serialize$go, 'Kind.Term.serialize': Kind$Term$serialize, 'Bits.eql': Bits$eql, @@ -53920,6 +50473,12 @@ module.exports = (function() { 'BitsMap.values.go': BitsMap$values$go, 'BitsMap.values': BitsMap$values, 'Kind.Core.var_name': Kind$Core$var_name, + 'Kind.Name.show': Kind$Name$show, + 'Bits.to_nat': Bits$to_nat, + 'U16.show_hex': U16$show_hex, + 'Kind.Code.escape.char': Kind$Code$escape$char, + 'Kind.Code.escape.go': Kind$Code$escape$go, + 'Kind.Code.escape': Kind$Code$escape, 'Kind.Core.show.go': Kind$Core$show$go, 'Kind.Core.show': Kind$Core$show, 'Kind.Defs.core': Kind$Defs$core, @@ -54044,6 +50603,14 @@ module.exports = (function() { 'Kind.Synth.file': Kind$Synth$file, 'IO.put_string': IO$put_string, 'IO.print': IO$print, + 'Kind.Term.show.as_nat.go': Kind$Term$show$as_nat$go, + 'Kind.Term.show.as_nat': Kind$Term$show$as_nat, + 'Kind.Term.show.is_ref': Kind$Term$show$is_ref, + 'Kind.Term.show.app.done': Kind$Term$show$app$done, + 'Kind.Term.show.app': Kind$Term$show$app, + 'BitsMap.to_list': BitsMap$to_list, + 'Kind.Term.show.go': Kind$Term$show$go, + 'Kind.Term.show': Kind$Term$show, 'Kind.Defs.report.types': Kind$Defs$report$types, 'List.filter': List$filter, 'Kind.Error.is_undef': Kind$Error$is_undef, From dfdb276b1f3fcf97271ba1f65c74accca809e21b Mon Sep 17 00:00:00 2001 From: Rheidner Date: Fri, 13 Aug 2021 21:55:48 -0300 Subject: [PATCH 10/26] Kind: fix Monad and IO with new syntax --- base/IO.kind | 2 +- base/Monad.kind | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/base/IO.kind b/base/IO.kind index 362ea228..807207cb 100644 --- a/base/IO.kind +++ b/base/IO.kind @@ -1,4 +1,4 @@ type IO { end(value: A), - ask(query: String, param: String, then: (response: String) IO), + ask(query: String, param: String, then: (response: String) -> IO), } \ No newline at end of file diff --git a/base/Monad.kind b/base/Monad.kind index de2b3df4..dadd5d7f 100644 --- a/base/Monad.kind +++ b/base/Monad.kind @@ -1,6 +1,6 @@ type Monad Type> { new( - bind: M -> (A -> M) -> M - pure: A -> M + bind: -> M -> (A -> M) -> M + pure: -> A -> M ) } From 364f68eea25d7f9876bbafb728e9427fd3da593a Mon Sep 17 00:00:00 2001 From: Rheidner Date: Sun, 15 Aug 2021 22:40:13 -0300 Subject: [PATCH 11/26] Kind: add scheme release --- bin/scm/bin/kind-scm | Bin 0 -> 792776 bytes bin/scm/src/kind.sls | 12 ++++++++++-- bin/scm/src/main.scm | 4 ++-- 3 files changed, 12 insertions(+), 4 deletions(-) create mode 100755 bin/scm/bin/kind-scm diff --git a/bin/scm/bin/kind-scm b/bin/scm/bin/kind-scm new file mode 100755 index 0000000000000000000000000000000000000000..5c7121469216e0abefb7feefe8827d582bf6c5aa GIT binary patch literal 792776 zcmc$`d0ZRUwFiD?MmrKScO)T=5R3o`gbj>@03nRoy)R(AuULQpnMEK3UJ@@7&SLDu zG&W!m&f+*pn>}&5Brk3AoW)JrCTY{AO`14v+Slf#o13Ib)1>w9j7VSJr=R!U=lA>T zmzcR{&fN8T?>+b2d(Tl`jx;hHmDJJqUcSOU3F&*H4$T;x5)8onl zccC+}u(&f3{%jGKZn4q?tVCf$7}+=4J2E<4xzDq&y`!SC z$Jf(eQS5Ee5~U3kv|hyn2p$j;AOO&{@L>_CX@!!|G}G1BNvDPT2P4r~aWpivK(8VU zZTO-}k@h{Ij+nqJlsrxA!vh_CBb}iFxMt)TAy=Odf(Cd6=vAPmEDnaKti)hc^@ZCp zqq{-b>S@vP%5%`90-^34FcshhH4}k#iosy4ryJftJ%**WAH=B)uxkAC{ehFJR4_8-ZMKsp$4|VmA?&}zh_V@T>p7vrN!UYHy zgAmYGqB80OKv%$3b;#=(-S3Zege%&I4pa>G5A5q6?Hj6qPn8I33SAn6mVcsK4S$wE ztw3~{6uLx9r`n6TD*h*68Inf-69w!jg^+88pn;a5AV5k9JjT+R(eQA%y)RUo0iFhZ z{(d;ms}Ocx4Z`km&|d=&sFn4Q!)yIO4MRSkwg(@E5ajagb^tv>nHC-xjr4|6eQW`) zH41;$VDItsz4xz38~-n)I_Sr`d^^#_$SoeU7p@ZsHgP6Kt*s* z-^iY>{gM4$#by69)Srs~Gt_d|{Qm~^6aNJ@b>uigNg>wi1{v#0pkgxCy)xEaGS)l( ziS?KB$pWMm@#b!V+*q*+ly)HPcF5Fa02jUI|LTJe4F6Xjl);_yj5At^*{J#%e5?-* z{cmExbB1a%;tVuUI0I{O1}Z4RJOW1ZBhadoCCvqj{yMm5RXVhMF^QJpB%(eIaO{7H z9Q|N4(j5)Ji}5AAvt(IsYHI>DcSkELD}o_^cw}$c-dLb3RyMkCe}8dli}njCPT_q2r<|#T zKf7_(e<{V8;b_PI4ykfDv~Msv4<^CJbwxuV4){_IO8dg2NHuU!9~}%2bMR~{4ugM+ zb_TBI5v2lvSK>c?el{HWaW>rfK{h;te^);E8B_P^I9>PGI!b(a0Ut8U zXr?<9BZ*pCH5}?go?)+2kgh;lgY*)l z{UXj%5kA*UtfuwR&|u&GlELAaGZ0X#NSG$hU%_c|z8eeNLucCHv#cf2Xe3(FAKc#_ zYQxnT7xxf}FT`3^mh*{veLkOP;1i8}qKQu|8HT*Eb{(}mz)!5U;ec9lFEoy|3*dtZ z1-}AoxRPIT9R&&~;#=1M*YOUR0s+u(r;d(w(uyvx$KwF~4k~9X77V-Azg~} zE~LAW_Bp`NMtRrJ+BWJ#h12UPC+B;xzDu$4t8iT{SxH@ph4#hBJ$fx29^fcV9eCE# z>LMzFarucg#S};rYl|s$BWa`g5DKziQC#TjR9ZXa9J~G^Lbn$54U}`DIRVWT{8&c< zC=qE*-5OfA#!0U)8Hfyo@?n4`&9u=u1B>}%*Ec~KMLHT_)o`RgGzU53g-;{yH-qA7 zc!}nl$@wr=v6D7GMl%o4UVglA0H6f^%8@SYXNJ}}2czNsa4b9;5)|aY*!*ylM}*-l zWOfIsRinYak$a#Pi`q^p$}j^P=%;DtM9TLq7ffgccSgNvzXr42_Ff9JhkpIXI-$@yOFvONd@ zf9xQ3^sz(y#5#VQ;>Yg*bt%!sc z>2fTfm?AnPE0B#*CUcPXr`YBVt%{et0dl?{M|>P;u2qp2?blJ70GKuwP|Y};HWXkn zNNenEYk_RK58Hwz6;OE-n+Kq+)WeUf2e6m$MU%1SMP@NSu_+I#DZV2D+?JEzEcI*$ ztxge-V2e8Wi7l%DEI50*G{F9Zp%(Dn+Y#D{O}_?&c4CVS45w(*)_;J}I|BNDfVlM( zZOxh3_BJ9_1%^I~Y{$yupp=2#fuuYpPtk-RiLEv~!w?=xxzVR+q4yakx73fk!DpDy z6ys`sVjH44v7MjT!H*MuoUaAvWNtCl?B^$X<-s|b`wSxxGr}qNqYP&T<|g+eW@14S z`w`LPtk{h{xf?OcL=W=iDN{_jCi9+QJ_MhSoR4C2my&x7TB_>rpeX{Q(?+%VeEejd z4e@kd!0|Hanw{@98|9qLAAn{YTV@%{{0odpnsi-YxSYv?lh`ms@B%|(7Z`kB1?&YT z8$YKIn=G(_{;!zcjgXbkL*~8_mCeanjnh{?57`2&Aojfs*+L}cuD_8cB9d~;FlPsn za?5U{g^~+QZkhK2!;fBIK4Z-MWFaCpxqzQs$d8NsxT6;GrWhQ7WnO-=M22jNxxffq z-b3Il!yZau=EUseF1o-_Z_v&%xr=ZF<|9`gmvO6NHI z6*L84QkvyHnNpY$E9Jw8)s$*-zE8}Qa|#DsZ6!Z$S5VTF`eDRsO7$?qk*QBK&az6x z>S2al_b`()r9rG7My#e(DXgY6h}DOfUW-@-=CRVo5v!@wT4x!KY8+l%8un~C_N)w+ z9&0IgY@E)SGR(IrMW-VzH|k+V=zN&TEiZqV;je#~`JBn)r*sI{R2n~}=cf$(RC*g2 zSwyS6oS*EJ=PSMlRJz7lj$M;NB8+)`F)wHKAdQ`q;`bsg_YStD4@tRq9%jtk!_0FP zUUL2*inOsh+Mr3NE^zP^TjQa*o7lQ^Ew$)x3VY{9Fp@^9t-{MsagA6id5ggjG0HhB zgRK++e2d`^;kya(8&`{BXdXV34Ge1;lNr(T z&7)_2gchi)T4x0c9|SK&%CqoRNRjd^#B7B5Cdy>yds_NBe2b#({8b%FGaX$uee_ zP;LHlek!X33(mfT*iAjaI{or&+D@Ash+PFgCCb=2F3F=W=MrLa0t@@5e{h0f_mQ6qyVlX8zEcrq#X_$7wARqw2nha=|b zo^PZ9)74yJ_{!(_+xcDg?dIkKHyB6wZt7*+QNuASMS@vU6nog&? zGXBnN2u1r#qM6*ttv?%?1cKU=*S1l9_#^+fte zoTF6@;n;A=Wu;~dm`k?6GZo|>H43;m4)MZ&=+>}&ob!NdcCiOrR}8C5P?G0^xh5a@ z%6yP!7q17E>s)y;PP<~@YKr03bP_^ErnJ-xk5blDsmnzCHVdfSMZg@WB9$I zjNHRHz*9=ABpB=rqGqh@tpI8bw8VWRQN7h#S4!?79B|m->%*7@PS^E(h}^^5z{8&_ zdz)f>bcsISMw#j_L2kf%3AUdr=g(E-gKNr@4|_^cZ9Ki?X}CWW<3s#xJ-NrY7s~J? zVg*!__@-?Z>b8uN{8SA;g~tIjq)B|29+>nDU@PESx}TgYeNW*`)V`-B8VCXIq#{mGxBddT^eh75a2 zA&AN=g2aAo)r#sL2`$PULfZEQaq;&Btk9J9qJR~e(mgF_GnMv@RG@z}6&UVM1?lGn zxk8=gj94=%$Q5Ewq!RHr%HL@WGs*Ks3$~S|RvzW4IQ-PI91;XF0GBfiND^_O8CNX0D zdsdTkW+2O$>-W$m>HI2UR=Q^Ti=Y9Qy@se!ni=Rasa%uY9%w8j=bJnr_Ipse%tSoE z`-$QU72d1yaRhYaSkzVryQ=T6e87DSID1RfI{V5Q9kUhR4e$?Oa6o1I5SMnH$QLU7XFngH|g`M;F0(yY$kuM=wF1% z0n;0n0+T{>z?7ALz*NO2Du1XjE{K{c_=I+YEHYezQWhCbHML5KuW9|Jq;&Vze$(ZG zySKls%e_1NwvO#Ky&>Jbv)gp7Sh{;xx9M`>-Mf(+mbvZW6t|O>Oy+5mxUIAj#grY) zwRT__F?YJ=b?r!EsTRoHdtTFW`|#0r*@o^Qo zyDt;qTP5XQef}Gw?n&+8iC%uXPM?2=MwzY$SwyC3{T5vVtx400+B9vtboZ7tEhB1{ zF>+JXYHB~zM&`6?Dw{FnkR(+?z3yl%BT3i7yrRm$6EyO4B{>1leNdEiJw^LSvbY-B z0$x73pqc>*-x!ORBufV7_Xeo2N%Kp;th?cwDX;u?l>-Pa3bN*D$E^{;g+kUm?YJKj zs=D)X0+nHgn_H_d-9wV+^FCvId=l3SJ}L1@51+)cN|%6hPUn;L(PWhm6<+zpO6J~P z=nUY>o#vycEL7F9KvZM_Dr#AfrOJY`QjZ5&8kyzIlJ`r_xiojd?ov+~nOkRsjusTf zCu$ZJ@ZMKcMailF@cK+DQtI*Xb7`5VcIbbu!p6<9xZjd@c57+pTzYDYFlUezkM!TF zOwt_tTNR6uxcNPT<^v{Yu2p_;t3ba^!Tv#&j&V}@#~g>cZxQ31BVXV?|AzQVy_L7Bm&C~2u3ObyNC4HTeAir?4Ym$DOT7U{zHTd+vkn8ZS+ip< zlb^HagGtPX+)~eX$=(n@mqq4wFVJ{OOFd6fHcqRlpUdXwK3u@kp#JYFKpIw3^B9VQ zsNqnNzFj zW+k>)3AO8%YKDK0wigEO`YrU;3-q(ox~z0JF+SE zPLeDq$&5Ek)_E$(T;T28vAL~UJcx_*zYDs1iImK^mpm)YRozRjxiAOIN+#D^wvrJS zeVtgOq(wzh?AOUGW?@~)w3cEus{fW-lC(UDDXmY+DHlIEpHgUGjHPYqVvRQ+6ACH{ zSZ}^uwyl9_^&tqgCsgaVY3W$x3g{a0CFJL0^16onRKc0c8DrTW3}XE{IeDg>d|fKJ zeL1tftdh(%jH|LUn=zgJk3g}_`Hx6*jm`6Evl?)RRnfqROLpaBv#(Uq?5=#d&e>RW zMJbtEIZ>~6W>W!>|M#bu1qzmpS}kLDZO_$fP|d~z|(ZmhN9q9Zof z;@UG?xgr$=8dE{l;#9E6U#oN_9m|;Yegt;KF;%8m4{cM~e9~dAEn*keXhnyrwnh1s z8XeS1b1R`%UUu_7sgajm=bvljMa}iQRFMB4si5GURN#K2Mp>B5K{zWna^mVYYD}i& z+iPGtlVx$zC+!BonRJ(d{%32*-0DnYa3JEj51p}KTQo~ z2G!5jYz|-tuIY8<&h6-R6(w_ChH4j|oYitvjbK!n;k6ZN3XcKj)cl-=pF5VVqCs|%}?gw-o-}$y^DG8cG^RdhqHk5AEVny@{pSOmO>*XwBJ&2>@f!;&H0Zx zC>VyagKEkPJpL~h?RBuMLr^Opvl`kRwS2O8s{`>!maKOm9!Y6UD)1~z1>X8pP`b#W zKp|W8lp-hD_mrYG>E`ntdRNkSvfdbo+V9}w2l?&8X9Jd@^T+_>XLA}3NRSf0|+-8*GCIk;jeYgqnqimQfaV0BiOHekLDmUAmp0aAY zJGpn0Ol`7nnJgg5eVgrtp7O_wWw8)IvEa^HokW43A-R%^a2Hdt*?#k60iVQ4w111; z;i^d%)4~Cewf+U@ST}qk+ z`_rX-()<`BZq(V|?7$*Oa?`mq_LIz?OUcb=i?8M9CM~EXZh0^B%^;t&lH^vx-;o^F zD))wCJ&xaGz9}WQ-I0nWco}i~&obY9giqQ?at9ut?08=Oyi?sE=aN~#h`YX#`DQzx zw3B4p78Qwwt?Z+6IlHgb%Q3Q0Cl20~Dc2&KB-Qh1kIGTHk7izTVLNhAee4;L_4{OQU*?Kheva;vRrxt)cPdb9O9jdenW#4= z^GI@!l+h8!nx3e+P{A(EG#4hFOEV89alu7&H#KRF{>y+&8ZX;;zmN8lBwv#$lA6pV zQgTC0rqa&UWH!(G)%0S^lgw|Mq}eUMZMw|QnoT*ghaN3ruQa_O&2GEWgu2k|_A5=7 zb7yya$H2ZJb9cUx;_hnLirnBPm3a7T!xX!0>xmBX5nn>g)~$ot8B)aAY?CYTLC#Y}xCZ*qxRI((LA)7KJqH`%J<3$!uxNQcGrfqLydHw5a7B zV%X$ndo6E@T(9L?iOBa_-r-G+CUL>zgKtZ-mO+_m9kje7+8!T#N1Dw{#j;~8OID*v znq8RUX77`uiTfpxn#v1J?%Co-Q-Qy{V9-5V(qw}6!8E4~ zlquSTihczmHOS8lB_U%tV{mzt%t}j4aOWUv8>E_NhW`a4*7Ro4OgC%Fo9SXr(oBdo zc|EO4z~;6 za#3Ll#+gH072c4`J+o^?+)`nla?i9q%PpxW)#rc9 zrAJZex&fG1*YB9g<7b>GYx7aS`Xa8aGcGc-yBh@G4_x#D5}EAeXY%zl=)N3cA943& z*+1e;nICbY?ITW-W*R@@l%nvOf~h1kR^*)N{D^y2q(0)_G18X|?4P(dMCMN%jseA= zxOc3|O9mrB_UFh}eJ-=rpL6eUTCL8ix#=kTDYA8+%IvgHIirhAK6Fc7S?MK%$X_zx z=CQaK8hm6%e^D<@7R6+agqV~eCdChAmyT#{D^3|M7o1tutIIpHrB}z^Y52KxX3d=j99n1A-f6hZomqIZ`%DXd zIV*o@J)8Qn{;a`doWAtX=ggU{+VrI(1069mmnqrXgVsNVxF!6{t*lz7D963rOSiJm zSrq2!BM;^IyhXSdROsAiw*A;m{o>X&@t8ip30!BKO~5>2aZT4Zfv~*^;4c;_QH`N% zqN53vKeTK)<0NNxD0GEBUzt_8<)m@qIa<=^@6xLE^P9w%w1KSLm$aswmr$pANh?Wb zmcOJ`iXuL&+4w#^^pf^jQTLMe9WMO{W7SWp*h|_s*xu@ECDIxGlGa#8PB+}4%=4Dr zp%SfksM5;G=|&$gk8;xKhDSM->vR+L-=kda>BbAHlDMoPti(}{$CT!#iAnbvVMxV! z3nk^pD$QS2%A-=Ax3UQ`R$_B(*o=2MDdAfJl=46CFnXWjZjP(?=_omq`3+T}H;_x1 zZ>VZp`RRuw&HT`2GayZ2!lT3K!6T}?>Bte4G(B)c$6<^M|MTm6u zBCToBBCS}p2$7!Nx(JaD;KN$ENSiaY_|fJvGF5q<&Jid_E0e%CASZ56q7a#?!V7x* zR7Pw1BeC$ggyNI?PwmB15?=+Gw%$c~$<(3;b>_g2t2V}CWLn4uQhoW(;y^{kOe;TC zNv77W`8pohPFu9pFqt-10`WJb83X&E!9b=>PI}1{UiK_IShkl;|1J}ky+v^_XIMa} zzEr57!9k|Fz%`vdhzC4_V8%ZqHwZQit>msWcc3f=R{qty76!_{PSc~nd4G$yQuGVD zi_+BY7j&0%raGnr_0t-y>ZNqi@vQDmX)5%r4gsC&dRBK?n(CPgydzD8pG>iO?{r_z zo$A}B61Dcw+tSoP(k;gvJRQK8L-r8HjE)CnR_y$m%kHU>5sRoxu}AM)BeVC~Lzf*> z`>*SBRM~cmHLc4;9W)zuSX7ljD?+toTK`FbzHO?6OkE#+ zJv~0PfYyZZHX`~uy%qKuw3?P+I6D0&1&-H+D9RDcgF8W7uoKkgB0K{Nkf}p>2DT7w zh)l&ESdW{4sl#{_R`ko9?7b40B?%h6WSWwIFP5Mr9$Q2$@sMfS-BmOtHG^`&&+-DO zCR6TbulMm&cwtn!2E0{j+6l|>2Bg9UyD98Je##+m)HkioQ;So&?w5lK_YGV%nWAQe zyeXI!q{+khkfwIc3JPiR&}k)#^T~rU-@#fhN|Vc3>t$(j#p8AFNRum-R)l79mC|~- zU~C)uZ6n`zB;y3fw%iQF$3Td+C@w#72ldYB%d%eYK%0sDLf+mRO;_*7gxpepB zwsYxHneSXWrD*`8)BvX96?uh|+v`EIBF{a!V?~}+R$lfBD4(x2PCjAK(ePyh=JW$a zlj5A-Ihj4D7qjN{k~Fz&POlX0_^@W;`|0{Q{YB|?`<(u=<8&A06FdK0{%h%U&%JuA z{^{_&dQ;KqhUy~M>Bbkz6}75@(*su)O5XAsl|JuuQ$1ug_Jx>(<*FCUmxsvd$PTdj zuayrjr8Rr^$9iVVOGy=dGi_M&n^)Ha2TO+0 z0OfR4OSS!5XvqzAwB82kqS<+RdHq61sYm>81SXW&G*oy>LCA-<)0{cd)X( zqWSbneg5}V28|y6ORAl&`-3X)bnPEh(&-v}NT-8;P${I-i}C3`UHu1@dt%`EADFcF zgZ=>1mZ;?83*TUXUJC5@6lv_!50;2~e}!Ak?RZ))RL z$V7zJ$VNpq&r?~yXgUkpv?o_pmxS?X*F1>lKU}>yG4-a}H8F$|{nNUViNPmVxh95j zu|8sTP7M7<;XX^%r4@O6d#W<9RAaQ{@jQ?3IA3MNLoUUSD$CIhC?qNvN&}AgC<}Zo{v~8JVjxhVE4}j6?)-#f+Z#(l69+a*FbMrcAz=MM8>#2gon!OLlCz{Avg;rIv42t#n4Y(M_8i0|i zr9|^3 zYUZrsnn5}%PU|mAXB|G_9qDZDE%LxU>+}hibI#`b1P?juTA>eA(zbU#xJGqGN`_^- zsQ%DEY?z;DY8Kv-&K5KaauRp5fXnT~&QrR)(#qSlZKYb>+Mqd2Y2GD);ysPH^F1Ay z+VVkB|BK>@UGKByWTG8=XK1x+qAfkm>N98;`n=mVY0}e-yVKK9skkGc|9476nwZOW zYK_62T9>bMr#6DOK<)bcmuX_^83qH;%R9)~1&TDWT#*LUe=_=f%G6n=Ys8bMvrk$U zPIP>%6DvN}X_e9zqwnxCX`=H*o%)LxapLEk+B{);&**DO%bVz0D8p>tgOyy7meKvO zPVoOH1;J%YCwlbxAM4DOGn6SjLzx3JR3yw#?2(yTrZrOrSU0b+pv_|&nOLc&4sucH zZ1zD;TT3QZTuNiA$i(s%RXI7C^G7Q0WS-(X?PcU-F0J{~cVWw7!@D4z%=@a!$~>8t zb@E!FkDPQ4!5!sfY%4CLm6d&Xs_R@!nZ<^+6fre!1kGA1_v99QXkCHz>>qstikgQo>=DNg3s!>d+W z-4{j^wem_5ANlF;nC;(YPcdp*UXo8ftzUOCmz>=6p#R>JJGInKax#n7qjBRdJUBWj zhJnvML^&!epU2yav1l^=E0rX%_EliAu1IJ1e=Xg(jwDv&J-o#o2z)!8y_u(_vGx&$ zQ!fE29$Nyg0`*ZKv`U9=+0-%q>7b}_2@3UYg3GjrGNHE7I3#=^8JPTM^` zFt+_ffwuxmwZ@p6|R3-M!J z%gyW63fkn{$6PhwU43Yvvn?cB3Zn50xxH4)>Q)R4hdV=#Un(|_hD!Lcah?8l3Z*z* z&RBZiQS$!ZfQO9jF$48m6ZXx{RZQVJxe>QVJ68Z1+xD!|?pXk0TNQ)nIoJZGNA#64 z@^Q~tPaY$d_VG3*Sio85vs>n)yl(>c%21%;RBcW6z^3R%TD`yX!cYV}KoMuL4M{o!b| zt;dyE?v=0nZYkW!N{MBUvMO`pX2*I@DY<0MT48LfA2jzl|4I?#0?BA8rwbLN7_LPLE*27dR@syw(WBv_HYUrTFP_=rI_6Tybr zR|$6Hj@8hH+cm%H4-V}23fagwYNd5%Xc-8`1jjC@+dylbcbh-pqoH7@kc;2HlS!wo zXf8n;;I>$}KP2EKEV&@jX>(5cHGoGdzj3r*KpPH{FwurTP**j0p(QN9_X?T{3q?qH zX=<;aaKr8`G__BlhheybPLnNaEUsfh2}TIe#uxRDNdLoD)YCWI=D{XUk6u)2ZJ4!>j$64Vo0Ug>m$D2VpSWJ%G7Z7eS?#&RhsB zU07I5&0K}H&Tw})Ce&c|W5Yt7nF9*1Y)})WjpZ=m z6_#Rx9m4WlsJ78$5qP}9N-Je+4^y7bNdH+26{c3lJ7|j?hC277JxaLaA~JTPffdxt zR>bd7CGnvw*xeTjb_uJqAbSvB2GF!!SSwMsvInRmU6E+8uTN$GNHDD7BJqCP!t!6PGL(f*!)`R)xlsCb)BBjaClhQ z=77pYwABGux+B59wrFT?6q_mR$brggIz0#K!d=3y$HCY&O5JA#7<{%#xC z2BYBV=n1Z;cMo*;g@pEXP`#K&`z43aDL`i3qjX(puh3+_r!!jEN-a{25|xC+b=|I zuxJ@gUdHMT2r>M${F@Ygzs4bqX2PPCw3w&3$_z$BJt15fA_HyF;6Qgs*yo1KRrf;+ zF7Uzu%zX7Ppamt6a6Oi~_93dSGa?*nP%dtz%{vJE(Rtu7iOx z*c};(3DnUn$ZS2MID)qn9X$edqaCW()7)knquz{BH(*`SmMkPt<2XV#(xyH|OGTML zoyZ1pQ#Mc!_(}!pR-6jww*Q`L!I?-+_`$YI0B)oOxZ4nuHUVH2aHo;nEkKL6LZGIw z*1?@r%Sfd_oxxgn?4tfgqkUTl`?CX!n#KI?akrpJTW6<0&0*|90d^0MvP~!Fh%YE%1?n6YP*e&n5lnI(KNMrR533#2y#m-v1gOJ&zlv-L*$*K5exyBE z&F)g*9>geKj4~il4&e~{Lhd&r zRG^c#W&w%KYLAR`b%pl{)VFdWGrtY$1_kOVE7WeMU7xCSc_Ra#sT|bP6->=2ZMi}- z*$np`G?H4s8FyOfXz)w~GFv`Y4MtEg5U7hdIoHr!CXS&k!G8W*}4ju9^*^ls=_(P(RoLwJT_$2vpdYFXusK%>+e; zD?h}yS0AEk?X>-<3gD}1t}RI+@5g?1cCTOU7>v$RiJxE(e5;yfgV4|v>Kc9qvwQsj zln>CnR|_xyk+dn4uv)w9hJMR@m% zjGM??=?|&4SOk~rD1Nzuk?$Seq^oO0zsH*->btP?XoTi7puPp&0mc+?M6>GqRdhxs zI0k|Tj5iJo)UVO}5amjILokY%m8>`EnQ7`sTOSGtltZgQq6>;ZIo915X-Cn~wPFdp zrIF|b#pvSoiOL)92zr2eoof1ifYvqrrKKOc^*1KSs9ZvMaIw49zyL`$AXf>Pp%qfNA(ydf5$L+@>;A ziJq#)mjRl+kA`Py>YKV1H%K&TXX<5V(B~VsR!UI9kebyFgOxx+XU3@OsJhsLm^`V_&Tbtw602zB5|NQ){_s{lspku zgCb$FxD~SVTBcDQ9rUxhR`gZn`3hEcRBNeV6@J-ORPk2&kSfyEg)8gjbSj6<=Pfqe zTUayL`u^Z>F9*g36^pZl{Wx1NzXTTahqGHrwox@48Hsj;tljNt z-Gly-Az!iQG&I@KAMW%&eZ9i4lo{^ooPbR<)7~|B3eX@e#Nr9ejZlw%PuVxJT+UHw z7p=r$%vcLtv6B9nE$+m%M0VIkRldEmeY9-Y*V9|RC+Lq3^%Vzi1&eqq;1)>1+zu_| z#S&Wam{NTXc-4KB<{qf%h<4lqb?ATTxCcC1O>ZrIRWaN*jH2eDPk#Uc^GGfT>e{tR z7#jtWhsH;_Gwj6hNJj_xYCf$oK;3~*G_n$QtFQe7k^B+muxuNpT6jC~Ig5d-RKf%M zfVlAHHkZ#U0^$84K)2BP13>bNaP=*MLg4`VL+O=Je?1VK2R7upGj&DaSp0Dj)E@%k zE`m(_Ak1RCE66$mq!8mFyD)13@?Jt-0tk|s$QPbM))UA&icSj{4cUd_O61*+yc>ZO zVKn3mZzAhvWZev;7^5M(FlP_)qR1NuQi9QtFZ>NzJCJn(jl?h-vfVBlR&LSni{Q2? zKs;`2qjg>$1R55BMgbNc7NaFnK|!J!{;YCUgW!sxrz0t)HN*S++arC8YbQ;_lVd6^ z3Zlch~mfl>(MKq9>g%7 zPg;Il54#J|-M6s%IdtBb|wC2&vQK$ZLHv`uMobj7-P+BGGV-F@xwb|}09{S|h1fk1A!^C;C=PsY183w5M{Rw^wP&ngSo z+@uX$ zf^YpAq|37)?JiqASw^crv8;1ekn!%dIS(9Hqq$Wi>fjp|0>4~A)%y8m3JUk9x@=1a zS&QlX6`)s8{OXYGva%`!Ag<=JP2yTMo9!Si7@=|#XudA+b<79QCSaqa7Xo+K?+ z(EpU;*ZmP{1N_=QV#0NsY3urpm?VICuBSRsxS-=68W$#j+nj~RhDdIvxh+UygOJ3D zl;_0;A*pR~FvidL@tm4ptl~G~IqxQZGrxu3>IZ&%V_vhjoZm*U-rLcGl-qqfx)S+8 z&r^>0+H5>!$_B$8hHFOBk7O^ywIErEWFNz=Lo$#J`V7jn^J(WgG$I?{^W6)X+wy?l zMN`eCUVbNy8Sm<1tR3xG;ZiT=OjE{SH`JE$cv1o)o`#sj_8x}K<3p{W?PN%ACsP|j zA;>ty_SeutH4It1UZIRVzk^yI-~KyH)3brLa=opT(TCZ!Qd}Q48oNt>6u5pQvA6W- z=Q)661(NG%E`p>V$rjo=*u^mZ&vM55x|kpA=6ey0KE9tH;A39n5Kkf6gFMz4Nh=q- z9b5MW6s@{GqX!$^#c=Df(cXD-1Cpilt0N8P2#D(db9#wSJ~{FOM9DIQj(| z!>?1ueTasiAC=MAw;j>gk7)Sk(KvvOt(-^WIwa91Rlk+)xE|pzlgG;znmdT>`SD^s z)Xy+G5RRdK<`*%3Kf-ZT>FOQL(}mCOQ2k*)h1bXDX8&2q`Dl+^;)%KIlCX!JpV5GXkjDC zyJ-7|FG8moyQsp05WGvl>B{kxPSkuhI$yXJE+;a1P^Hf1udQM6W+ zlkw}GR&$15?kS2BGP9Wru7Pevpk08y_j`6Wz6W4hfe&RR!WLztXG&t z%X$TiCsEd0(Cl{`Sm`Ya{@@k`v91Jmi$WAF@54u!v(_@1($_vxhY6yBPsX6b+lF7qR938u&6^@6m@1k zZrh@GFq4nl`FIu|&#pmLCLgV?vD{-FSWkRGH^cjZ$x*8MJCq{8KQ!o*g<0iO09rKT zpC|G3#*d!X`Z>m#@L`2>C==RGw)z8P{P2IOi{fbI%je=mtVH1NmNU+sM*l_E;Q;ez z%CLQN9*KV~&|K-|<3HU*iShFRvlt)U#34BOw*Z4W!q)=)@oTr`#PboGX+{)X^VsCu za0$5;j0Ffz={z_ELkNx=!6}^wr*OXKm#Q@r|HCB-0%7Z|CpX#V0$4y#w z0i-vAxTq0-2EmV>cY!+anY9`_WDma&#zwT_T!fQmCwLdr>W@m8lYfho;~82_Q}ddC zTcBSK-g-5?99Asm<26@8>+ozgUUwzrYvkiwENH3CetF4T0TNpc7PNAmVf8kh^)9XW z7`fp$s5ac>1`@xm^zP;4_yTPjX599VB6bbv3-5k&4eb6k#<|$e!0t5%&rnt z;%b|1jl{QP*g!fiX4p1M{5n?7abuc|k@!t2`MH^rpIbf`@VWI9fyw2!J+2lV|0x(G ze)}&4jJ^9UK`wvo&r(72k5fU*4^zRq?+MHVzmpu#L3Qrv#?8v_mefbW9ibm*JL2#a zQU9hO@wI;)Lc4T4_jv&;((`RO>)vn4#r9p0pZyQZ&w;PW&&YYXB7;Uo z%$t%cGIXmPJ9aEpX6w;Zu>No=*l-{fY#b2~2pm67PPMvFOC8*UB@ee_$>Uh^$VR#3 z{Ec$S`_{;L?O!gJbD&XvURNVOuMf!2gJp8bhyG5B1^I$zIbKj5T6PL=#qeH3_B2_i zJ7E2q#pNLv&M9I2W$e<;>vW{FO3$_BMdsy3bZ z#p2xKMKgN34S&T54PA~GGwJ-6pE&6&o0)pxw;swxB_;mbwI~U`+9EK+x@-)Y*nBWD zAB^gl1UXxBM{$?;Yk_SMr}gf`yswS;kaa1LhB%c*m<*V@ov7V z9)xA}V14YtA`f{Uw}R_q_$~Ojg7-bHfaew=zWTxo+g1WsaU96L#}!<#h^mdyhQc)9 z+tpCs!N*%0X5-)s$m<3~2kViRT&dIYS4NdhY&c*mWz$ zs=ZZa)!)i$Xmpi3{GhuSrwVhQTb?o9=Tbq>*;EidlM42nax))OsE?52jkp^;-hdP5 z#+Y(N>j)mY^ldoMa=b-L)m*c~KN$O=dhCMx+!FhIfmT$^y1S+0O|x$F0Enw^bECz3 zTyu*XjiBS&n^S>qEES|3N(K7;ZuE7FlUnp>=yjXw5)7^RT0J-1<;E?C;C!LJt~)f) zmILfk2k?EJtW;k4et|;ltD*$chyAMTT7YDxO`yHKOYQW5N4IrlB2@+ zVq^;$yN=f1z8Y{bjgWMHP>m+Xd==iY;$F%P%(tcH3Y6n7t8je3q7oFhxeY3nkHkm2 zp}CxoqfSbRqfanqG4=$*I!Ju+S!YH0HqbuF&|lr_itoMeM)pZ26R)L}n9E-DFnV7l z#Z3*{8FqW2PHc_2CFI+%N(X2Y{-lW<*i(V9?@jc4y2LQoA0;ENyQ$Vf-gc!Rtp+c| z5;{5!FDCjr@etSPFD1uUY*Q`nq4Qp4&d2cJdKkA`{cRrn9h3Og;oSKCX1dLftIxje zsOIe7PFXx80pBk$`EbeIO_}nrGz<>R2iMI9*QWyWA;ImbB*&8+S-QLvCDeeHu9h}* z*5jb-kE)@cvhPEq4VSmsk80`x4QdL9f56E3QyCQVx`K^spgEUMz>GUf^CDi}QU}$< z@LB=&9K)}9jv+48PM<^VG(r6oR7?ce&072sh(2KLg@V|6lUtE)KkSUVu`c_;gg+@_ z=%h^xZ0It!(5=XFcGB)d8s=2_v6ORs?Q=|C0$$2DyR+P=d>ZKo%!OG&;77M;uE^>Y%WLD_~l_V^Zjz!t%S|2uiz}}x2UY&uC2dlEdM=DZNC#pLLav@ zoG@!uPpxN{qxkr4?sC}uK7O3^9JaJ2^yK)^Var8W^r@6E9I(714j-`Ke2yUrhtgXT z>Es0SLOC0^yey8!Ukz*^K+D;nwZ%=7zVGKU8^r7ly{p5tYwg<@D<>Z8hhn#)Rr{6Lrp5C8+AFaKVpFwVh zT8!LROS2PJO(i*@vv=l<20v1UQtKtx(EkP^0@#P&*i^i4FeSW0u-=8p}J1RC(Pf=;9LGiZQ|nt@|Adc5oKNXB9;{FKS|XItBNRT za1e7VJdySSNTFBB#Jk^c{xn?(ycs zxIsS*EVT*@%fNk8Y#G$z?dmefbDv<5?&ygkz2dl$Hb}k5$Sb^Q^rs+>TxQ&?jm{M~ z10@ZI4nsYAQ+6SuiHcID{)fQ621&E~2AlPM>%Xt5eb)Hd_i)ht9dJZiZPwC8 zt?Ei=YCt~w=5h$W0D?I)YO^+5$%zb`_1~|iov`8JaKefXz6pVxaB3+xpRkb=E-iIq zlJ!`BD4odkSg#4v3A@Mo^63)}99W4gynxAnG${Xy6}mo>6WM3kMcK6Zxjm2Vi?t0z z_L38oct*Eegf8pL(utg|RQlX5tL7C{a|Ur8N{Do}^LQ`d!E>*D&yHX;#tDU3wD%0TC5lKomP2K@pU0L4{@2m?&t9 zCb?47G-Gb6Y4@gS${S5InsReZqKRqVRFjxQ?@i+O8_fH@-}}eznK|`2XHI>}@63l^ zpm@uIF6}#VNtYHwW>%N>v}rESL>F0|tUUr<_?)(>f?iKvxK*#1K|1uB!=4 zNfvLZcpCkH4fN76jK04WCZN(lMIo6(xB1iZ^V#B)F?(%4>e|}GZA)2wL3?{^LQ`!k zloki=(qKptc51gY-{dbjp5N}1lCpo=Am-usDvka+)hs)#cb{bc+!pT8#R>&FP1Nb^ z0^Q>~vEBC>_DAc4?a(Ez_ zW7G2X#rb64ZAa5CMB>Q1DY!SBM<-#U-#v?#4Mw&Puh~zoNb#0c;rubvY7=K}4d+eW znfY|5N$SbU5W@LWa$7i$=4%hC&4^b%`?%boTr>S*;7t*)t%g@3!WAJ#cQk= zp2b#VO6>xEqXOEUgIs+grl&}Q*B@r(I2UIP z8}v;j@88MQDGkQAmj~%wD9qQziQa!LV_ckM!y`1(1Q!>qsI5*iUEX8OJy^494GAhP{=arW{MTAe8xBjo!;2v1%ViE#uAJj!9vag_)uB%Ss5zowCUg`D3N>;A1Q;n>CV7AG;xCo zio)p61VyyL#Gi@bMs^8f8nb2NpSozt;Io496mlNI3r-AE#%mb)`TeL z4Z?jI8LDV%g^8AQfi-VN-M&)lW-3pzfU_ZMPL`>R@99)0%Z$GdMh~X$En_e3aO?~@ zsu6?Mm(zFU=7IfXN`2CP17`)6mv23R^3oP^HcRY{`ot;xk)MyyCpU*>D(o4F33D&P zjuGx4AZ5KJ#*)5_Q`FaYhA!g*Q}ZWll>Q?z41Y|xN8=@Ic`YAs2wCGA5tyX!-Y{kz z1XRKlX>j*P#s-aW;8-4Jhw5<0U_K-Tw{VyVd`Yoyg^s#IxZhWA{j} z^e=r+%NgMzZ##EpUQ#@=F8Q98vVT>#&)`+iBKZn2r+lRZi!;Jt{71g6b<$w0xHCUmlV8HC8f_Vdw|x;3chdJYdD=*1Kz9=hn< zS@7IsLg!K6N89n0#hrx@`r;rnm~_w=Dtd#-cl$QWMRy~9s5H3KSDwDp*T+&Gwjw)C zYV;>dg+KVQ0V{mVZ+YH4^I0iTysdZPf`rWUZ+7bUVlP=lK^4EYX*aCUefb=DO-;g% z{jl2j|L@|iSgr>}eqHy7B{3-jQlfkadIqm~n{rZTQ0m`RPc=`7J7@Fk(n#A}!``XF zBGN~H``9ADA7cJGhp1JHXj~es6nB;)QewM8_y{0G)GDGRFl5RsOpX>cKS zYTNi9S=S<#S=Y`OAO5+Hq`}4bEs4ZD{_CFa$eyP8j^=|wFjxbT%H2%SQs`POe@qc| ziG#~_J4ic#;g(Ys>NylTuzD zrmByTS8YGDW-h4jvH7}4u2E|Dd$Nm|F1G3-g6mzh#)V+u9=m|vmggOPeGqjoa8cD~ z2yS#yO&NkaY#;4)Dv`aiIOZ&puVf>?pi){>j=(mXr4+jI35F<6n>1}pQq~~)>g@Es zBLzdNSVLx^X>~o@)gTQvi90JA)priAVAT*Ohb2Z@or5bL){tDZq);zJTf@@Co%3!c zskvgSH6;dEgB4p{*kU!`O4!P_6lkqs1Er~$Tsy6pYg#&a%SvVV*Z8rn!4{jY){l)F zY{}O`L2^~;*2FAv=K?Omo$^Q*^~?>GW`9AtyP>Ee4VGTUacRj8-m0)G0@+)M^XqXX zfvNi8N0=8{ck>pZ-7H$bhV2+7yT>nn6&tHldF+uBEJkgEid^p5QBXw9!<+W;N&%m z-||VnYCKA{KdVhmKdXh$0#C{HpD9rr47rBI*hcQD8~MT6+!0z*j~OadAidsd){i76 zJq{u3yt_cm+G71joxC0ZrSVV#?XK@CC7Y&{qJ3tSLR|th9WN-=yVi<3n@jb_YE~i3 zoh{w2{0?#Fnx$jIPzT-#ZJGXV*IUk=tCuMYZTm94?oMnfmC~P_->gbS);s14zj3Mh zM>v~pr;q*kR*c%eqwLP#xM{n*d9~*hHt62AA7@bQ5DYqle)*Mib&5N?e&vpd-E(!- zyL3FWK5FzSSe z*eB&p5wREK%@MI!?{`r|?0Ls7CPL%VL!Ue}_MCGU8#)=ng~pzD?ox%qPIj02hLzz{0zvBnQ$G*@F(uRRmF%P=x9Jrl>bpJVuIG3LQw=KmP} zU{xStgGFx*y6e5f6gdHnUWbZz9kV0`@T#a!A+j+<%R7px7WxAzbMAe~;_4E28DFxz z8f?$dDJjQO=6nbeT}F`K_q4t`n&;Zu+e5vh!yVJ9_8fvX zy!w>h)hF%>d`f>z3VL4E9>GJ|s_RMpTXOJ|O3#p=)Ss5^PwL+hQrvjmmEz`wC-qNA zp;y&%?DDH~lb^q*V7W4X0kbFSz-J|C`jPM1o{*$&Y{rafL z6Hfi(8~y+R{mGzhU6(#F1B2^dlT91_Y%!JphOh_y{#8A=PTUpK4dP<^Rf(ySE!zX) z;(8R~;(I_`LXZ9(**W>1h<7OoZJO2t%91DjQhM}$2hw@3>Cl`2wC{4>xK1ww_~#>71Ji=EcgamG5-5mi75{$yv;Tcy5SA|=3-v0 zs9L_M_l|Z}p!cVP(vNcA)Vnr_yE5MdrCIN&l5k!OVT4nlH2ai7>6BBTH0Km3ojUoR zi+3sS-)gz&6e!J~^qY1{@0T*2H=NRQHN0?IpN9o;{j2(StVx;gC#HPV2O9ng8aBSF zA8z2)lM0?Q&=XU>0ueoAON-y~s@}Cx+%*Fhj#9}Rs-&7pB3=a%GhbDRnDr`%n2j9e z(#iKZc$en>TkWdlnK&iPHR)ZpHSaCwu8OUB7+RHE^RPi#ur=?3v@k+rs{6(yY|T3- zFP`*X+BD!}?(Yf+%}5FmZ>>igPb%s^Awb2$vI+Ku$>OeMADiUF` zBS;hGCYT1TN|HC@f&dE>N8G9;rLzlxE5roIy2DqnY}T z5nJt6iMtwOrDIZ)mnLb$WIM%5Z^taMs#iIv`wS5CgK!n@RpkF_yYIxDZ9 z^lOWi&dBYt(gkVFA4UOQQSw^lts_Ds_s2@-a|JU*syIDcdau?-t@L8Xe9-+kNHFNhQt0Ws^M_oh}UOYr!IQxSXw`ZO4{ahR7?Gh z`0%hduTiWa+B*~uS)M=6niwu=5AXU`bg9K*`c`~N8s1b@Fs$db4o3J+JnbB2zY{SN z4Rha#r<}v8@5HyA!|EGe8hAN|wf|AeUKbM1IEQsNy!i_Wz6HYu-f+N6Rm%$(5@rcF zP?|NBLFUxTpt!;HUQV++h!L9gUVjdkUoc$qyq$?z+B?+56t}tDT4_!W8KMdca>&k` zfa*P%Ls0S=(}}~?JU25X*+a(Y={si9{eOYoyBDS@H(yFKYI$ycDam1& zoZ(m?w;`U;p#^Ak< zH5o_M$p%)qxAT*^Kt=>eW^IEw+{){8Te&^kbRVc;aMiYw3lZJ#U9=~q`H)Y$4{aBL zKi(OZl+J3*-Y`2z%IKv5$!!pa*YJE3QPg(!LDHp?#h3~l%yf;@?OmtQT1=SHVdPP2 zl-vUJASC>fKm4K4ZIaxfKGBkU_@ZEg#rVrAwXNKyv4^r)kyBBBvtGS<#KLpX(S|`- z^t`Vyw-f5WTF0whW^uTKS06KV@oK18YhbCgNTaa}|HPScH3j*;#$Z>t z2>A%G*3T5()^D~+$!!mY3~vn7nC5BfZ8|u?%YP+{EtM-zP8Wy!a|Qc|=A(`{w-x$V{%^C@$*{+=y#sqJ|18dGX-`o= zSIq&SHnU9xwE=)&mD{s8VMuf<3JS@Yi-^zVSm_&=J5XxRqFK7oC!;)a$ z*t=WE6i4_C0>4fOAJP9{s6Z!O)w5m*8}YjA9px6ANeY{xu1>{g2ljz0-iP0madIP$L^Lj0x88KL8p+mdHsX z_7Ni%l?YsgVu_kubVf{0Dvd<9iGmUZG#paGsWb{*C>-*X876b;KPX6g%>=*)3v{qm zW2tiVy+{iUQ9PH%NbXofj1MQ(c&cCAD<gn0NdQ4B6i>WStAe z`u#aP+t6M_vRp)}=tX;qs2m5{X@crpwc9C<_*986nMSTg*xmV`(io~821~DY`@5RA zoFmqEHJHpt{8u(9a3Rg^bfTHDVsVFqK9!6)MP39BFx>K;XT{VbDZ7oC6h#z`O4ddUNj~&SaS7U=DF&)*&u$odgd% z#NBFT&;+Vl8BYDYDnIZFG>GJs?(kIMQV^-{Yt7) zw;)wsQH_(Swp3A1)6C&a#@H-a0cD11&ur>UH^=2UZ1TEPMHNXBE07{t6GVp&>_9ylggBET$G})IWT5XzrtbgeD`BoNTwyE#>aJ(S z?UAh4L-$|hn`&EH#r;!wVQzbuz1H5)9zUrEoB(aBif@_(ouszb|267Zq1V63R*3aq zbWbgnx<(s$6|8@^yG_C1;%_P@>rSxs8w+rFyNY-}jn9=_Q^ozu=1MO)_Ad`sCvKQL zV)PzA?c85oB4J4FuPKpEnfC8HINzNs?%(*7V9t9A+EC4*a^4~-P-qVAs=>-4?(g3k zDFvnamW_gozTqv6nch**{bm2!&=TzB0v3hNRe$NwSB5(GZ>|iz?vDvR=sM>drQ*;x zYBAZ1qfD7CO&rz08hIL{vZgYsYPT%8rxk<-$rTL_XV?Iz^vY*Usyx}IgA*+K7<~$w zOjz$mA4{(vm3X$c^Sn~1xv)uu8lU@f$fn(eq24yj%0HRDMT!CP+)%6_MKRt!^2%V9 zsD}M!%u-;vA1^sg7d<@prf7WIe zOsbQo%rKx*vlgJgu3n%hg0_K!y?~RvwwS~=^wu*&;3f>l&0?*ykv{#-NXMvQmq|1nFQ$wcj)C4Q(-j$e>2HcAu)7YT zNOx%!s0mQ|eV#HQmfBPw?45Kqf4Vxj3GPy`?dMc+RT-(`sPT7u*{B(C{6T(!vr|Z# z%T7YdyXUZIrMZpBZ~dRObD?(Wos+e5HKKOw8v(q(0hMdy*vwBu1~#B_jsIIYq%|j@ za)Eb(JwIb#V%Q*~)Q#PTx+U3ka1#cT7P8i|M$VC$+{j5H@(Xx$ABErP7-TN)<*&!2 zV3U@QU=_K(R(FT<{_@&{ssGVw2#`S+VEGLywo z=Mw+44Cv?@11kY+xggJ6orz8Gd{WlP1*^0+OZ1;#t_mG8)pHnT{#Bh?A2~W#C0b%I z%yLzZ(ZpPpPfYk>p;H_1-`#S-M~pcQ6X^n02>+%Ot-R3wO{N2z35R1esZ%R%eBkR- z(m)*iB?Xc}9rKOTy*TC@jLAE`2KdeznApSOS#mF3VGdsQK8&p*CZRhS9atDQ|Mi@- zpRIv=J<7Si>*l}u7*j3_M%Bc;!E|wd&wQ;Vb2vKI-2!zE{9M+RFu_ic65OpPIN{aH zJDu*;uU_W5-EES)U2=aK3%?4xdu=hp{jflYQVahhMDdQ-TUY#A_ITk>FmfsU*^24+ zgGcg5H}Kje|IUMn)=V5sTE3b|wctlhpZ3mzc(BYyn-;{sl|HG8=!c#)&`t%jIPE(weQ|n&NxTgnkK#5n*!c)j;{H+ z^SpC(ZCL<5>1an;z`G+EqB|+kLq+z&oweF}Ue_SNLH6?r+0J*Zsxc ze!$1SZfZud;r4QU5t%o`mS)qsPVZkjxueG-N7o-cHa#QN5OGVs{;^JO7xRC#Snd_S zu&&Pg{Mht%NRX$mg+-#f`(E+Tm@lvCoHTbWA$eN~anbFHpdBis(_h+nkLchHb}~r-7lVV4Xm@NKJ=(u5W&+s9ss3DQDZ*glAJyu8Fc^l1crVS zYhJgiJ~SgUoQeQe->09-neR0Io%Px!nFlXwjqxO8-MBenyY#w{FR7wBSLRFhcPnwc zhw+ws{dQ^70$!z`$q9P`_X<$KJ!k$1)MOx}QmHna^W zi}#rSfOMK(sfV%<9^^oH`pZFhG|2;!DfoR&(FSoW{(VjKprcoE4m$cI9Ml$+_d3QB z{-G(H!ZY!&lMX6(L&YyU$DBjO*F&9Si9^K_c_gRX;gK)~)5t8bKA*p9H@Sn|0*(?psWib~~vnNUmbj7iVt67hXg-sfojm_to_f>(L zQXy|Vp~04X=n;QL#-G2%OIcP&v?Na-(FXC+TG{Jo?4#e&Fu!tQ^slJ90qftjNzuEq z9St5LKGfZh1<fk20`?1gFqP0>IuJ(eaK!|(# z^BQK>|Ed61E| zuG}W#g!N=BYuqre8>&tU#?1Y(Fm(+V?y`>YmDb4KiI8F{nRR0w;=p=Tc%9$U(* z6tj0ll(6n>G1ZiyJJ0#;E^GCWN*t@Y%X&;&cwBTX0kGFy*3P_L zgGE1PEKg1n$LeRaO_hfDHv?U@(vZF@5NE+k+*0^;fII+uFu6G&N5RH?90d)5Og{J< z`CQ&A2_83&g5dcCs#Y+PS2pW{ePv@dlHl2DX;lt`#{yZ`ke5w${D!M}`G%{rv~dYT zUP&wz)QpbgES#AdFL+hVm0ArE-v+7;)f(KSkSq;7;L8Z{TVO0O6lkhGHL0e8Z$6A86RAGru^VxC)xHsv(oV-fAMSxGn_04aRBc(>d1m6=nnMaInCqvckp9Thz%u!P%*-lmi&%_S2ishmNh8rfFw*E;K#$?B;XM zv9)J6D>HQG+091oK|V=j4Wh878iGD(y}};iuC1nlw>4`ZfgUo7V;9DYh6Gkj+o9gR zJ5*X#O5+3l;c@O{&NoA6pS|(|%Lo+Da!`_hp z%@p-zl1mcDwPn&vA>(|Rgl05nVkREfXDT!CxYr8_M(2>xDM0~xNQc{q;8+}zsvX@x z95+~{_nqTLtAxfK@-j(i+#y3WC!1L5TvQD(0V7p?HRhWnGJ9-__EeW6@_R| z)1BlT^7n@NSFyL^H^W=26CR)Oc<6XZkK~%oGp$SV@xf*;0cFndSs%aY+c93s8|J5{ z#)UC`CgI~ZwGl%B33~OG-?$M*`09T|dVTsPAw|zvcl-7npS>Fg@Y%Pttc`nT`BU;4z$gJz>x2) z$R$V|uTe^@RZ6Iv%&K0=wLy7roP2M>yXt{F*Gj;VDnZSYzAZ|Dt59H4x>DeN?{5=l ze_x6MH=@AcK7I8%p6v!UtRZ>~JILBuWSbL|)2oMi-2`5WeoY!mm^)6W)U*E4kCT=*sN7$%`Y<;6rc>hMdM$>TCv?TP=R0r!7 zQ1UIXk)$$lg5_0}P_!&RD=#TOs}G&vmU7ABP)Ob(Fm;cps)s_PLCXiP>9x1wlriMk zO6@AhYCF2OQm{pRk&74#*+gu+dhdjW=O;BX7hB zPFO(X7^n`^#tntOyd+JW5VqsS&+V*F#wAJ#lLkIl2_KOEW)rVM1GRoYq1-)GXA~zy zUZ4K6aSjP*Nhid7WI{^mXEKNXOg@=EQ&G6&_Ktz#9%=K$3A2sW#7SkHYC%tSF3f23 zCqVoOxjMV`o?TZG=gB2%DuW%&P-H)|IYON9;hES%GWg$DNTy;niCfckHId>(5U%}avdTX&2vyR*qt`&QXDI3>5`&G+Dww$aQAmvcgGdO$rTFigs31z5u-`;^K%+r2 z>qEWE6X%5}qOOHV7kv{Ihww}c(*35Sdl>1UpCGm&U9>piKso@|D8)V6f#MD!*&9d} zgJhvR<3zHnO0vh14E9jsMI?(6C&G{n5I0J3M+>SG=Y?944(9nou}B9E=5VCDtfYGi z>3orH!A(>cD^5g6jI({Ra?gNP(=A8^{m`Mfn`l8KY$o!++y1x+$^KSErX3IoKKx6? zP@FgswF4UEU2RHn&%L@aab7qCS@XcK8;ajSRZvmLnR+wHF9KWH|Apz3ieO^V%~TXG zPQ<`}a>w*i1&UjbRELl%;bzK=<=Gu1Z&3<6j=~@+7oXih1qtFr9124>SDNINS;chl zGTG)u1|per2hE7*xm@J=$8=)-Uqe~nO~*YzH&cOAoItL5E4q}@tgrtyJ#k)SGm6`T zbcr`pv6E+WQQmJwNOuzDHKDxwcTiEHIFSf{rE1Y{W}`G5hUZ1=kSb{h6({j*#64>H zs*>t7QhiuNqJ0O|CW#ZtypHGdfC+?+Thy848Dx*f@rNQ;m_bfu3eRrbSVT_GWhLp` zNLqmcZ@Zallf{WtUVAe++wr*#){oY(Yv#XniEQ(a$KXceCye>`Hu0)6I;NPmaUXBl zLYkrBJc_23Hl&bv4xiEn?Q3ZYO3OxR{j3kN z2acI|k6#Y_vw(7unL~M-Sbx02YC-myhQcytF|u_Ev3U@nrsF+69fhWo8dt6h@Rl5p zk;(oT1#kY2h9|+$#Y1K#J2{7jgTc_+jgNwN_B(PO5|N=4G>uFF)1bh>`c9*}liZI4` zutONAtnYbHDMqJ^X$fHLNb6J1C!O`Pb2Qy@-sz$p|b z*1{5(=DHbQ%^pr9~oOn}RP$EvW!f&QHu?o&CabhK$+2TYCoKkUO#T`UH zzfe6iM?C2J4G3;@Qo&qtq5+{UaiTtpOm$fVz1)MAEQHn~v|OC1L1=|IQ4MFFII$c~ zr8uz^&U|rV37iGu#Nt{qEvlvbDjViZt(N{z0rA~%J=t4K?5$JAauD zEapwq`_?qpcQrOZpb~5FNtpMW5N-}(ug`#jO~0_$|CIB9Yp*{xg9pm?`fCJp_)*h= z0O(_gtl$&=rt?6BPq-2|&nH|*H_g_39Af+*!`lV67~w97BCp+b7vvekH(N9`4O( z<+ANYX{d27sbYT5o=f7sxm3`ECcpjUsR9;ML(Ox^ zw(1gXR#2Lyp%rsT?GF=f(LRSNRwB4%4%u4g(B?JW9mv0V4sls(=I|T}+4c=$v?2x! zE5cUu+ArCefaaNr?78&-M16WDIohb0d@$X!A3{u03^A@3TTJ$w@6eEaXJ#?I0u@{} zAjfcp*}d)UW>agsSxh>|=0oZE-iEmadzP`%yT<8?V#$te&~m9U4}G&u*hrl1#6}9) znX4hOBihH*cI3AdXp>B#fVZZQHK3wDpV|HR9u1Wrl|bB!M&Ldrck`O-_6qUdF4pHD zGXdnX1O=@uq0^t(r93rI;PnQIk(1G+i47EKfr7|L543DjaLj7|nxr))6!-#I5b;MS z=^k4cVB3CVm>!`{ynhpKShb5Pt5>$SwC$#(ZP!Ogyx)3AH;R5u5iz>PhquT}0EZ8lQ3&C9_r1k%?ghYJ_RrDaV zr-V{CUbur^=xKp=EVh7>l0p-mam+;_KJOrtK1A!qRdT8~8B_d`9mu7p6oq8%DFsY! zDHQ;^YUrdG@qoIN?9GketK?oKcuF0D8%l}JCrRr{$yf6RGj;=OOd9G_sxdWrF0qfZ zbc>DclS&@Y@?sh@48UyIWDTt=Cygy{g(~SD^QCgC*n$!^l#{=1E5o$1@_H940kv-N zF;F*%u#GOt;CaK1DsE6ppLU>>*r(ZwA%ymq(l$MBg2`87d^xVz9NJih7=?g%W1nFw zwj#!+G8*vWbsgPp)vNZY<^B?cPcJ|#Nob|*h_JbYuCoT-3z(5@UGWMcUZ*s)X*QZ^ zhBTWbaT6|-kJaQq06nu2te-fdZ!SdOysru|Dwb-n_d24U=7G*}CKal+!#`w^&#PHv ztMAa+?^A!y_S~n%C-pEh)rE&kc<%=yYQcEGt$u#A1MIfLGkD*qAyutCED`*r>X*5{ zsUy_JK4|*&k!{6Cs-*k46Ma-wh8);FN}t8+Ln77PSRnY+s4kj4HP0S(ROLeIXdj#e zlA>?L#)!F%v@xqz-bUi$+o-AnNx9o7v6R<8nqCB^W*g58vf^PFBZMW^fl*XPT3fqE zopc}bSshj3fbUV&QQ}-)TSsZYg#C%i=J2|x*d+|Nm~nczMr7WZ-AH0?gPIQ#YW@4SA}c~xOA$xcgaxXJ{950n#q*I> z4st>|t!?12KIxv{w9u;0~2_4f3%w3PI2nDKUl&YKQ*li1TuRhYazURb`Cc2gRn zcT>_59`Cx3NY*!_fStE%L$3Y1nW`|ycnnbVS>8-(I8`*$x@Ejq)Z~-wg_tqB*JD;* ziI|wZJ>Jb^u6c`myZhMWYTjo$BgYg#5^Cr`mbZuMLVi8hK~;$FF?Ikmpo7wIF6tml zZ3oHm9S{h6BVx>*voLqySB3f9BOqc!2SwC2Ji%D%5ieGWhvZuS{mw-e3D=?8Y>iZjca}l!=$rDoTXEUZP=6aH&SEL}@gnBzR+T1si=_4nMC z1_nbX`L1|dEt}Ap{O`dnDL=h~zJx=eN2&vi{N+$}n>whaO)ZN`^WXQeR{H5~O%>?$ zn9(6xKMq59@G68$_=x@wKEsFna1q}SQ=G@L0*lJoa3zD)h=BOon1`Q5Yc-=UV3zav zAcr-_B9t835drbF{*PztL%zR^95BCme9;R!&fQ~!7`3{#Z-H9Xu9E%Rklo1>Ueed^z{Kx1Q~2RcXX9X} zxTqgl#hxKKpdJxUALK$lIjo`geu46^_@J5sPM{OO`x= zFx&17OId~)U>Q-_M_-Xa!x6Tp>TPTGyeN~;AkcR%e6CFtJu(k8Z<%=AYN!t8*rIKMf-xl}(?x)7*rC2}kDP+ zwY5FY-rL^M+7KC?&HD@yAU)YJMm>joDnDSR*$%mohtTI%FgDce4+pX9Hc3J z3bysd3^24we=Fm?m9QUVPBXwGX5MB@WtA)}?ze245)T;G_J*f0L|;%6yK+ zu`4KiDrs+KDWA3_+i_z{HXi|KiI14K6S{iatJk!4cUI%!JPTO#N+5ICs7+=1oHV|v zGt@t-rvNf?%7+*}4s`o%0?T7+Y}Ef~5?`MWoOXc2dny#H5}9SR zIR#K|f8z^wtQp*LPGwtA@*8qYzuTUg!Rk(!$|R42RV^R^n*-aw z@{CCjtqR8Oum*@td)IhEMNcfN31Q2^5+zUmk7Qw|knMY&SJFc*sZ)s7dHF`&ky$2s zz~Py7Gj6~2g#8qN)jIr2fVM{T#IXFFUu@cA>FR}483Bx(L@vKF7p-|J6yLq-rQ+-8WxLMN#6B4F=omo@iF50G~HDge9GfcY2~fgqG_Y@w(mO z{ZZ_s!AEbjv#IM`ykQ0_KBW38%Q>)U4#VMpT9D4^iHS^r__$g^{pAm^Yqhl$iY z#@-swYM?g*WH=WC$>|9|)kA3pGF)k3wm(S;xm;el~3qY19Woo(tzxP%xT<_>WLMf2IDC*p@&hGd8V^`sa9XAST%l@ zZ&?XQF4jMk4fiDYFleG9o6fRw=^2)jOW$H`hSQ`;OBv6RI+G-G)$MCc0ZwX-b{fWfe2bQOM|U>9w!2R} z!Lq6~xJvUOP3&OJe6sy#K|y{Ul9{0DbHc`Y?K33B=dRLib9#U_rm|h16_oVQUKM)! zUMmT)Ydx8wCy&+cqIo#Vd1l|rS(C14qP5(+K1mPVu3QIKZ}rPQ#iDC}tC5Xw;UVI@ zCc>6=lw#D!j)LWbo_qJo^P1_|;)&38>g`il^@{ecu;c-idFoMBMG7=_9arQZv^T)~ zI~rHF_cT^FbgzNBE^ge(@-lU%(0BoQWf|0>6Pkt@_2_+&TAFj0GPqliEQJZ!7_~Jd zkZzhz%Hh;oIN}j2bCszUa(5_(o`9Rjb ze}{(J$6iG{P77pvOSBv-zREC{S$x^Nk9eI%m96!9_B7EVtK*^j(%H0W;)yM(QJ&}z z7;}-6rQ21Zo&qZmZ3**?-x&HQ#d``vs9o~pNS>lgOpxwt&Bx*i2XC9(ZpT@^rNRC+ zF`pRN%NjZ1jR?#N)5F=wg~}HUdWe;ZA7bUS&rt_F_*>>ERcO(weDM}M=RHm6iNNF;Tnmt$>)XjXtAKU3>H>v>JH4cHa|{?BVbLCHRi?6*(D3DqK> zlbW1VOu^<WbGFRK))+l;P-(iiw zt+?@c<8fHm?AB|x>x)ap6ZzZqx|ukFuzH52@3hmxQp6Ked-GR` zC$a)*Y71+*psJ~EZ<0Kvzq3AtUu#Tr-i@F}1G}9%0iYWxo+#QtU30_})A6#N^qc7I zGFIQ&SlfZMw;?Pwj|yk<-e6_Tv$wZp+h6Lh6g?|hgReJT3Lh6w%;4ELyX2X>i_%MY z28IszdZkDn*8-}a1uS35^H8C&nK7P=6@D?03tuQB+qj;&Qw1GKl{DMe=v(S#OcPJ! zZDB3tW2)fUe^GhuQ$+>cwNKRs5W#de^k*}d%A@MQ9vpG+fwKAw_^MqVIEL%}SYgZ?^?m4pIf8X`|1L1hC451te4 z+Gqz=&xgkX2dVAx6?^?O-!f~(6SK7puiofGpAx%?LiW>QKg}Y)9IbN}W}VVZK;m?_ zWfC8kRFFv(a}ZZ^$gIhtpgXfDE+sn)nweRo-C>4q5*wEWpvE#6;;70knhZ+ZM z`ZN=l5rdhi>;frUm~_%v|LtaL;=yi;|I3)+$3RaNtNrsX81Y0oAJE;_(OBQUq769q z4fguh7CRu$yOry-vh9l~YJ{pNI_p3cl|PFNK73F;vr6(T+{)UfsJI7WkHHW9%d=>i zF|*oiy~@&$?B+jF>tl?3T2e~JzgcYuu$*H$X!J3})*<%dbzHXOS(Ht-v)NP$n7erW zdt_T213QC6VI&k*W8v9|7JkoK&l2$@ta`uoWA7#~{MFm{GSP)~`E)CU&H%X? z*T{@-^&(~wa{ibA8+QVX@iv6LjIi1o9QbOc5o4P-wp+HDk8aA^=u&M5jZc#v&JoPDTv`d;wl~7NNjabIo8qh>l z%^^t-ov~vP_}!OIC)z!YcWbp5miUI-cVB z$N0FDVUO{`BYd#>4)ULIuWyp*S(PQ2+Pd@=qNkJf{!*U^vz2f2nZs_;x z9)srUV9Vo-L^w)C+|TGO;rBDbmt=&g|9bNN7nzG&L?KqNmW!S))^MG2iyE5({e>*S zW;o!RS8UT%`LZrgu}!z|hO6(-ntV5Gy5Sl(-*8P^ve-F@Cv7c@k>=ak#CBFI@MW-& z6Hh)LYWJ*$v5gO|2RrG%nn`JsJol&Hz?o?F;*2KJEm85~y0Q@T*3g-;@|u1xFKeJj zM}P2Q^$s1oCrEI6=`}a$_-zzjJ!>0Peuaojuc&QnVxa1Oz@QHKTd{_!NATs>UQw%U zEvHhF9(rbJ3RUlcSH~6gI@{VypNVwcLD3JyVX)$G3~S zq}G_DFR86jm(+5?CCJ~BE~$N;cuBmZHp;1&)H=Upyro=HYvr^{>SD~N|IBuJI?t%5 z%Ne^F+(UOp-GH&vbzJ>rvUoD~Znb%6@mtU*74B3!qE{D4>M>aHhx`R3b>FG>3ii2E zE%=Dua@rn1j;;P`3sqtihm7t~+qz>Ys&hvSJs{VRO}-xqdY&=n^_l&jG2;FWLxeC+ zy0ny(tZ~wIk*)g+!(ZhxL_Ca$y}=CTgC5-MaKTU`Lw!X)a=|ckrjzwmt_8W%5Yf{1 znZeduK+(Mw1=NhOFMmTGCSQxm@}CCbA5ezOO1~-iPVr0^tHP0{v6iCNovWn>f>2V> z-%-Lk@PqpN7{<1t&->w^2KYV?-}Q>mI#i&)+q)qMs+&PCe$QCfqayr<0`J<$OiTsE zw;2;RNa^2jl|X#F{zn|~(MQ|E@4y6e2v>}R4xDR_iLmAQK-u~%7=KnzfObu|FG3@z z&%DN$Wv1Hf(zb4$lbW`jK#?1hDUtah2U66!G$upy<_2-=5>|uDZW_W8@1O^6+JhBi zBYypU09#$`2hgUSF@E$TZn@l7VA#EBR{k}a3;x=X%2&Rpp&uxTuO!-XmT3G(q8IV| z_{ZBEwA%_lEBvhRv%=4RUjEfw2A2`AbS(p6`nU71<}>npw?j+ZtkzKp5}j$L-@*&x z`N}sD;S_$S@q0R$&KxbE-J2@%uU+7LzIMm*mEN6n^*p!bZ17KXb)PR?3!{Yxqxni> z7zImsJ|4+e3So4Ik*+{~6V^C4XEOUQ|UNV_#GaANxgD`7!5rxP-jr{mS1@ zC1jRASDr58$r-PK`L_J6;@Pcuex*D;r#yYB1go`5@MntW9L4h!<>_|i>Adpvk@EC` z5;0t-M0{WITn*35)^~N4*Y){7PCKis{KP?zYT)MS@_(E-rK`-f)1ysrKjDH8TgdUr z2@6Hsi@z5`Uei_D5%|Tcy2@L~br-wj>Im`j?;~WmtiE_$SNT0^V#Me4!*7>{u8q^9 z6MsWNEc=7~Z@SC6-)vi+(pCP!=kK{7(+|_0#Iu-x^+G89@UNq~$_rj7AMPi+^RHU? z7xpfuYr}fFcH2cZkk|WF1@ewZ`6p=Fh3nVlC&>Te6ZDIA@KI!eLiaAtM_i1G0Q!MB zJWdfW-9Ju_7W_Fw@R#8%*N>A|0(%HSpZo=X6L%wgCjOiZ{xakr#>tRy@s4rYy~T?v ziP>`Y6Dw&T++WJ_&P8BJdsR7fRQYi;{X(Of{A)%EK74`C|8YP=Wvm1DW-xX2sD%n| zYgJVFy*TaaE$kH)QRN?K-6pudqBX0oU-vtL>yC(?V1<30w?l0>Le3Aa>o{)iam2|a zd)|9b({*MSipWOfk2&Em17d0jD(jm3K4JwBxASiZI;Gum_7R=qCY^yFxs|RO&CJ!& z1qSMcgXtmo7M=PVopzya%kizc%J0z8AK@M6cW=?vofny_r*{|W63&Yjy|aGEpfdz7 zzoM(=26dI+UeQs~^GP7k^!yc_zwv#_JGfaF#cM;d^P~8bZf-d~<#GDpx=;p4D&NYz4S-r~4s;i^^CMr~24VH2k$R)15!I_5dXWI+7-FLCeo>1!@ zj~b7#)4u-W`u9iJm;!DgH`bx697b#H)k9_(>LWCe3^67bTF}-&iReLB*`$H&d}y1& zzTDhWNv>7600eDlzqs7#72pOC{rX%F# zWE+l9th0OaxuE6f2_TG zd=y3cH(J%*(=(Y{&vZ}jVR|w%OhO3hgail>n3*IXmjDq43>YCdAjALxqN0nK1QGBp z)pfr-wV3N^Rk#Dxy$WOu{<71&ovKgllgOlgc>MelO5*2lr}6WL*bR$mT>d6~Mq9sf zQEQvHMNdpe#j2uS_};3cqD?v|I$KtAY1O%lMFqcAL9L!thZ=oNnCMA-c7RA`+{gLM zTx5W(vqY)OC(4YuxN2-JaW0!nW>$AcL}1L$m92E<#dJLVg;q4RAfs2}<6&Rx@ePX8 zahQL=d<%0B<`B$bm?JPpVLpO62J<(Vk6}*0dB&tk)1{ z2qnT@#d-}6LnsOEiEv+(4Iu*e1h{#-A%t+wad3MiLx_VLiv?vx7DI@KdnDY|CPPSo zdl=jcVhkZ2+=JoXs5gW}xC`MvqBDf_a1Vt0B5w%Az}*jSXtNHP;qL9lU17v9FTvRp zuA;koxU%4?zQbG@Ub1GvZGEUMTzJcwj!{WEArD5tw}5do<~K0&!N8Y1coWPMV3HVf z1I(jf;uv!c%xo|+W3Gak0mjOhD`4ut7#Z^;m?>aH##{zd1%_kH_h2Tb6X)F&;fV#8 zz#I$0>o)Vc0B%AlQGa91c`)PPbAvJGz>EfSl`&_*j0E!|W4;A549xe8IRj=emg z8cZRWbBy^C%s?>TGUhaxeqg?4%qcLv!JKByXJC4Q`HV3qz+{2>gfX9h$pCYVF~`C9 zz#L}GF)(g0A28-97$=zhj5!P@3Cv!`90U^wW;bI#03(Ch!I%SJtYEe=WUNAt_HZXO2z^n~`TMN#%`yg+EdjfOsJWiM!agYahKuUyTp21``_g=7F zf616p7u;@Cock=wGY)goGKX2W)2iQMZYtWU53QL&ZyDlSt>}JP(fzV6G&ao$-uf(; zM3!Y+h?$Ie3$B4?V#{sBcB^uW+|NPi0SnDD$8zPwwehttajRyY8Ld*!wkg5w#9alF zIuWF2+k{|+>>dY_IvT{)Hqu4{x=7owd)8oBVx+C`o;47bKGN3jp0%=pD25cO7&2)f zCekLOf)7bI+h**u$U#9;oT$$Q$x|1+SNY4R*J~twh?`mc zJmgzg_0PzV|I<=lFcZPR$?)(luS19i)`ZCX7HDpUmC41opq*udjB;t%i6Yzq-Ye$|e<|S?j(KpBiYw4}++{`0S zAQ9TObHo8sgjN8S(ho_topY?jhbQm~5C==O?OZ&Z%otAbwnr|-@Wpt}3DoE(@E1-Y zOP}J&q&bLh^HDIp(6q zt|!r_{nv>g*y|!gzxvM0^&D^dd~MzQ$lXAk!B5jLsN~$Oyn*zCe`#E0jXt#eSTGX5VRe;d#clMRKj13J z!HFjH$>YiOX7oZ&`9=-P4MZ;EG7|Oc$LA8kQ8t%!tFp``?hTXf=mRHJvLcfFWa>lu z(C?JwbK1rSLo`9{hhOg>n@&PBNh=&1qPg0q=^>izK3qB%X9uV!I5I>{2NeI25`AXZ zcv<+8SFa9zR~vN_FT%;v2A*i15nPnNr9 zQYoA3p*}a4q__*y7F%@LT)fwz(;skZMIMLFptS8tRIKxOWvxT!-WGJ|P@(9^9z8~n z=MA}cck%Uy zYOk%4x;q?=)OC^u;>i}?Nh%DgvRX_~W;D^LiG%HI!j7yaDmBm^>a7S#(cI<+q}(hm z8qo$lBHGYE(^7SpIQ>ndwvn%)*eDp$D=*YgIb1`fa@xZ`Hk(``Nq+86v7Gi)KgHKh zX^DuatjnpN{sxfqFSrRyFWl@xYN(R4N3ZN+_CAi3Q}^cJK~4=H1a?jc@*s68rSndBcwX|DPo_PT{%A-)|)ssGSv zah{p;7kw@+6yg40d~`bIIy~5KzeTp)q-!AP~Ly!EwRDoN8Bm?S$(3S zZy;**2PS%93qyh|;)|Qsb5s5A=SQX55TPI2E|3;e3)e#KgMdzZQLKdmsG=8O z#ghVu{0oqSF)$fsytDVkS$rN3%v&EeD!T62iM zxqw`w$pw#!p>=rWN7iA>jhEuMPpscQfV7fiwV?^~B{R=Zy)FJYO)gL1RVZMU)U9i9 zOR~Fe4eEs21};T4HE^o`{(&Swlhx_~Zjq~EFBrpK@D^NI8_L;RKgd7}K!3YG`Y{*A z0$vbeu#v$-17tn^+^F@KuNfhhX@ayybEv~HMstd5G5&&0{w3UvMw6tPF*PX8Vv0rq z&5?Y{q%J#U%Jn~2Owe=D3cIjur5hB@*M}1j@-voG<5);XgLS6baTYa1m6hfG@q?pM z7h)iFnq^WwlhQR(rIdp6YAtEeik8h1$L@LGg+JL>~Pe))fEaL!ys$ zUuVVRIuqP*1%lt=p{YNjcxW3hm(Z#HkA_CYS}w4+8!#;TT<#nM&q1*HpG=TPn5lmI z@TlO0FIap_qMv^fVhE>ooM2+re`jJ3mE8NwQPjg)e`Ea?I2CgY}voI zW#VOGRR7gLQYIC?q6@t^Bo0IQmvsSKvMl7=B&-eln@hNE+;7itCs4r742DFzCFWVv=~;LbWo!H1&eeCB`NO4L1_|g z(S;%o0hzkVAsDD2Nb{^j4LgKff6N#(o5|`EaI4Mi`!76#_x;TwXq9s+bf{`(l^~nU zC_(d3p`#5t9<|w0HQ)bGC|dosJPaL!5(~#oMY!Ae`^`11isGw72=~GsF?sYUDQSkm zi;As>f7e*DFD?bnTz|K5_foM8!S05rzkRH(yek^bP=Uac)tuY;mSAu@b4#Ig>#d~@ zCHGWM`K@$&Z)YyQMlfXeQA;tOEcZ(oBOP~8KlC2udwIza8>}n`a@7{j)3&mq8%+@uK1Gm)v&HhR^SQZq zb95!h!e_WF|B^CN!J(q>e}>ET)A8)BAF1ktw-$qEIISZu6Wzn=+=bL2-BCj7zgV&0 zday4XJK)ItU(VWE?XVRg{FaBJPb)Mcj9gCB4(TCY zVN%i7qL`Ocbw(&7SN;4bUT*{D*wAK8y!Qj{2pEeM;0N3ihUhrICnBujBxU{@E@|Kp z%-VFz(k8LY@8@m^tPr!NYii5S2$U4isXwu-zu*T}My6Fn%ShElR+KuTS?L_4oG2lc zXPMYV6ikCMyM!heX6tysZFT4Mx&HUDyo1mFk|kNMs^~j$rx4K1^3tcsOMd=@uuwz` zj5MoTkDm}z9SspJv(Y?TbqMl4#Mlunv(@jj_ZeGruV}x+-Y41-IlLQU84wHZj23NH zV*Txt?-lK6nZ>TrXqRFW1hXL6jxvj)y`B~ApQA;4Ei2lSr$)tEo`+aZRAqFPP-aBm za0UCoap+GtYpl{WZx4S?Ew&gWtIrnW6}Ga3b3ctBy<0hXVKKF?shwoOwB&@F#OUuj zjU1%OSxo|&CJ}cxsR_b|{{rEDX9V?e^z8hpb!09|>LYhZf33Z)wMUo1@Ev%EXdTm; zcbA8w-qYZ%zJkzGxXJKGpHOSAV*ZKsQU8g||0U+XVLbc?!$0)_<{vvf>OY40KhOLN zN5X#?{0|Lh{`MJB|NEH#3g&;I5dI_KUm0Nj&``);uYmbK$NXFRz#obTHQI~$$23I! zvzh-A=I_pg|2X)!cVqs#SyBJ4%zqK{KkS141o#J?%%9GV`X@2}X69cN3x9l$)*-`R z`*U_}To(zx{wL>aBUKz2cd`Cq?ObC&ir=1j%5;2a@^(h^y_1Y~m6l z`HsNdU1DTuY~XH=K5{+|oIc`B0B49SP6TI&TuA~K6B&{ME+&$$=G@IO*541t7+LCq zmnm{NHRtXwQ-KGJIZ|H=FLT7<180fUrh&6W4y1##Mr;}2tdW}T;H1dD%wP3)cS(_D zUk7f@cQu{9I&ENN*=e{_FuXf6QaivE_M=jV)VDt(@>*MO|_Jh2Rx_w zkhO`ZKhLe9si*kGlii=rN+((8uAd-dsz2jHKW`%L4`x-^)eq1WF0DSnhyEv>kP~uM zD~bGIqoGvP=#IPPG_FM$-;4i*kAxI`Lz?c?IJK(mVVtq389Ph2N{Cn#UGX4#t;`(` zTq{#%z_Ahz_YB63hN%P74~*=*R@U9=^QIg2DZZn;W1KRuiDF&EWPY?@2fgK>o&|@_ z)1n>0TX&nL=iJ3T+V#rah0|3S;^seGLoKeUd?Tlwv!`=p)B!&9eIB8bAp(=aT>W6rjqmWK)0H`EID)y!-Dk&DZ+sg?WnzGK+l}#AM%y^sIQ2>s zCA}{0=9{M2u*Rv3E+9$$3W)B&bp2V?SG2Q$cbNB0S4LN0QY4{Fnb=U4>})8L7MJ6! z{2OLosWS7VK#=ly65wCwLnjD2HVS6*9Bp~L{w##H7E{kEa*D{bhErD6aQgE^y>yZgjIYaQH1Th zBAlX%ZXp)Q7m}r7L|i3CoJm`#Xb|QsXyZfBJ+O|7mm0>1SjV*pf=$At(-fFtFqnK& zk{XCy)j)D%R*9u_fgTUgN1V(fO-q@izl{dGyVIXZ7Li zB#k$hnXLZG7IKs(_AILXYT#xa2m@>{I#Jw?8 zY%u2$r40ZKMrWh9n{6gYUL3X0WWinbt$9S;XVTB*Rorvvp_x-mB}A(phSV?&$;w)@ zxxu6r-3KngQi3H`_<4#MX9jl+93R{wBq!?&N^+J=Adzy(EX4Rf50fk9Ni#O|=R->- zTzXLR^xIC7Q)063!wA>xfBfltgTlPC(4n2Xj`Fm;UOFY(RjeBcBy*ZHSF~w-78n&- zQ_+gL!`WkPAV558KJiu?YIT#+`OumPDRYQ#LZEyR=8m0jT^46v>3YDp4yLS(Hux1P+dmJ!P*!F=TQe4MSyCmC&6_SV&NhVw*`&g+HZvLtby)VQ_N_dgrW@yE~b-58*`jVUGpIo_Fnd=sFeb4+Wmq-0CF!W=Fo?~cEYZU#K zp)WD?YlhMlQS>xJrvc6SjC0+uo#0N`diyti%pEYhQJ!$*8Tq7-R(+%dVpsEGprZ63 zcYKo3+!X8QKj2QR=x#~Bw|pZxkUX_p#s+fZPC1ONU z^a+IMQ{vR`&&(x(JzVJa@%R9?sZ2Z{GqESEUlU9-7wqOjYko{Hk$4bh3<0D1<~)qn z_Su@R(pv>pDcWx3#}CcjmE+wTe;9W(_m~-$tWpu zxAn|3#wTSPC6|S3`YRWbR*^_jgHgU(V$xkQI&Y+yv?H4YD)_NOpplF2C{Wu=cu&@v z-`1f}wXLT*X&v!so|o4Vuk$uAeoYDTInTf&s~LC~;KmjCw7*up415oc15otrI&`!6 z#oXdJA6ITsZ7h?#v4*{~*B}(@69Hr$ZYkDl)y+52o%PJWNz%Bo@zPD4-)Vn|+{BF1 zg}FB|UVW@g=&uzu-Xz2Q&##T*+)Usbr(b4ItYi3+ml>|PC%cS9t!B|Js9^Y$>!R|7 z4?_Opc!qBr$M9LNMDeQof%BydKT^W*$!$@*_Sd3#6$hNB!2L)5gf+~s+sr%$v_!!9J-^c$b3g6kuLz>v zy2&QHt|CCu&nzPTM;6h~e~m_T_!7jcFVeGIKh1NVd0_G``Uk#6fCc|x0gAq6_*Yw_ zIQKd5jVBpieS+a1Z;RsYzX3n;5yKZ8X88NBNAbe|pq7Z$$Byt-w877=CdR!(ZAF#W%bPyr_-g{L2h~?#(EE_<7*fs~PTD!SLptQT)QQ zz!yBj@S>*~{>ZK<&b0vF*u?PaCmB9%cNBNC9Czf=n}qMx#ucvXA|2$7Y9p)H@9xZS zsI!>sHfs1u3ue&Jg&J(Yo4C0Dg5QF-CSu}rR2jWSC)!A)>9gRi=BvS5tE;3H>zz^s zjq!i{R)*y6G&bnnpv{oPNHR8nVTnZQlp?^iBN{B+cpuI4$ zBW%$uzt(2+13jbZ;(j#bHkEji#Ns8sjic5O#j-G4x2b@Z_Eoq>s_-}u-ngo})3!ZZ z-{>jyl+aLZCU-Q`V9TV}x?>-R@-;Srd~3+1LSLny(ARw~X!FPyY#y#SR}}hkSBN4O z=PG(AjJxJ`ZoAywe1>x!;@3G3X;-k zZt>I5T_aYU^yGTwKpHxKBM?#7kn0^h+42r2HT*S3%h|W?9aEqM%TbFrXwPsr1G*Of z*AeV{a$Dn4LPp`B9bAnvQtN{r{>d;)DVbVS~lyum&x_^R+9OO`<%)4hNp75 z4f0ALauQ2ioiXJ4A*d=i*BSic@UKsV9bdPU2SW29mM*LMG=v ztYG$-yxBD=aES&}W%gFGV%V9p)lMQiJeBqYQm`rzG2|@&j<^1F9to5{=#WZ@AdSBq_vx}$>@#bdN8L8QVjvlkD!-RNy%OD| zH@c|Ht*;wq~Qs5Tlnoci9K20G~{Z4^IHalJp5GU~xX|VIm{=t|{X13!8uP(eIdfd|v+okG~IP!^uf&bOLPTag!q2O#ZdOTV-5K*7T23 z1j%ONRAA_eQ^_lMwdam`1rxPlX47WUwErAS7jm@$e@hq8mw7rJ6Ri1nY^K-Q2V&Yx z5M1N_OgUiZU|Lc*DItjEtm9;jF-cl?K!??snihOcmp^UqYuq-RB=_4tCQYO#nTO%1 zX%acx8H!xP;);TI^<4WSk51Axoo-pXhe+B-ALr5hRciyc-ua_5p6K!@X6$VKL7$L3 znk%o(qfJe#J3}ksSE0iwlDbctpzDopM$J*YCL23j3k;IY(#;?9cP#HGxvSc3mQn35 zlF&TTLtTWKDtF6d`Jmu~@9_A`gJ8G8V-D z$fr?x&JHH1-x*8P!m>}}m7nJlZ3(H+^S%~-p-I~QX{;9fOwgOOjiUrTuRV7Aj=;Om zcSd-!kZ5Z^D2*{`?|*h2{w?BhJ$4G8#0Fr!%^)SvSZ(~t1ZvVQ4o;xFnv;O3Zv8S6$ zt|7vngq)5cj)&r(~g>A{QeF({EHU`!Z=}YKuSx4PHPGha}xiaLn77GcLvQ`AZlcmI5T8K>E zvOz+4cFQFss~_R})NPEkmJ0Vixjcbz zGu5xpV{2}`S&^E|yy|U$fR0IB5U{yZ5p3vGqzE>HGFq@HYuClPcLxQV>J)6b+N`gT z>os@0VB<5IV+ET#Cbm)14mkvyC*zPT*fJ{Z0DrKd7HGFIAryO?XNfh>rdkDCcWuSj zEPRWR#dYiJ0zs^K2exk*-ixyZ>M1ak<({|8g14>X&&O zueJYH9*5~4EYj{|X;rm_CTI_xTaD+u2I|*tovT1BA6H=deduq1M_s?&8Sgc9Cm3GE z2Z+P(|C;P0f_C9QsE5^;SsYI>@-QR#ErNOJUuQu+WBd_DUScHrRgKIwjFD_cx`JqbTw~H5jQ^UE?ToBs zGYXi?!$=H>cI`(NB$`e~8MuRy zXt*bttCo>6M$91E?H`zQG-;1B@J&XdpYbenJ>QpZ@3nE*Sm4)0p>IMg}pWF`_aO4e~oal~*q?{!>PxKO*|_OBwqpBNdE9 zV~9SA1=eoG! zBhg}>Q8wH`!|Hu(#~V3q$Vy# zUq%m5>-eq#9f1!(RdqX)3O5j&THOHu`x)Dvu?Dc(Z^+)fcIq6He*;uiUuFW2FoDrb zKEPPaF59%a7ya4%>Qxb zKZc2CGuFwxBmZPi{|Z!9k1+pNS)w#7hENszq*8`uvhV!kTYRVXGpMTmlcDc0$uN_g z%Os~TEczeq4C8@m*HNAF(cG!6`v(iY3{+L;G0|u)>B>aoS#TXNt>X+!k)3Cl=mt<# zZDpeM>`DEZXb&cu%tU|xhKYXi4HG>8s;b+VXtXN5pNSSR(Hw@c45*#?nn`{Fs;c`K z8qHIcOmYm93^I&Wy6$sdK_;@87_?K&rS4@u?d%nvWn?ak?ZK}CR8mLmL%{ybn`J@m z(wFQJUxTXZQHHK(^3&NPCb371U|2UM8Nm^GN&E2&CV7gX`bFzq)K(tGu^*8VwryH%j7 z+RQ|wO+h9T#bDp1nt^GTPq9>e=M)p&3aY9vGSO&rR>(y2m?%!@q0v0aL_a;rL_Y*o z)i;=Ew6u+5qC=QyZ-zyiv5wD}bCQel|*b9gZ{pu6;MSlZT)wdbCf(4k! zzP*%v&_ISIG07i3W|IE|Rn?Cf`Wlm*%_M7>wF}3XkTdYDPJu{dWl63q_L zda?g01azFjBRGg?=RRU-!RfAj9e_-h4KGl*N@3adl9K(~b7hVnrw|{@;flH{ayY9{-<*9{22@H2zHPHBxFNI^&@>D6RA@w~VnRR`T(7_Xh(FHoubKJn%>O-J%xwn`2tfSBo^F6}kd zLAz_C_us+b^;C@+ji8O1iR%(4Op*2xllvjpJ~HxOI3(IQ3B2C*;)I$h6@gpb_jkr0 zBq#rb#SUv%@@%votNvpi$#fIjChVIgvF@R%XkXDINU`6oAzUMQl^rN;8t{AQ$QmlR z|MhMGhh5+n<*TJcd+;u{@{!U)b$1PMXnox^#DlHx>hs{#S86c*_t?9&Jm%0Wn$A;; z4K8KxZpRCcWJ%hak?2o~R!>*=v1I?6fyfkChGb+JBabo?{kemg%g4yQ|N0IK@;{9K zn327VM8id^wr0l8U}QWa(ZJE7>S3%6MEes#c=bodf67So$!{_jYYa!N+}jy{?LLeD zc^_SOpV9C6^tV=?Q>z<^aIO47_$})tjJI!}qX-W}VQ%vOw}QHC!GSB@rdQ5>xCfL6 z)J&T(HC1RXlNV(O4l!s7kb0jUO0<~P-9#ZiTPNdCpo^DNh@1-Tc)M&m@*jNz(erY1 zPpHycG@s)uy*;7NCrlmWSNargx%5I&8Pj0KaR%=w(j+gMFE4tEsVu^}sz~H8)_50~ zeVzE@?cBH1^(_Wh5gl!iS`6f=o+NU9H;J^&j8Sh?iQGx`YhJ7jng|V<#dCz(GIeC{ z3`9W*)~y%K-$Y28K5(9r(01aYR4kiGwguh_L_Qf3D=j75N7nH{d)QziWKpIsjrK@1 ztRZt=hhi)G=G8~3gBwaQcOw_+sf|qSis+zUjcgbMC{JG0HIXz>tk23&DI^b*2jSkM zT!H+<9u_ze$%BM5`wED6kq4L0~L|uyu`>8}svw56`+R`x&%B6D6BjH>L^GY0XDxN|D({ zC*58~hLn-w@uR-P{P5ywT%73y@loRm;@%o_f-J0zAt5Wmdx<9%2N&6l_Q!fJnbM4z zO-n1#AdVQ0zKE09ICeO@9Tk*hD_mG_xbldGquF0_WfaH0q=X;!O^>Qa#tFL9E3th@ zrjegl(#S9J;zzZ+@)W_OUOjFUW}HKdtSD6_0jXioMaz%VMe!^&CJFFuurx99@ zn|TN8+y`}ob%72XHNPgVdX;njbQo#9cHx*&6LNzQ*O=6-SIFWq_O)}z_~W+)x9Q?A z-*T>>NTf!h3+SxPF%5KAUQiAjj1Ihf!aVBAu$sxKEFm8sV9W-VX^ba1nbwq-Xgm~? z*`e+^&e4mc8eJKL-beUVdQYQon@(D(r;~3ZkH1y8Qol1C!|9_cxV<_1bv^CjF-5wW z$h&elW}coK*ujz6^Ccf|aG#gQ?U9^Np>S=XUiX+#iIg;^Unbdk@`!Dm&8Q=tW|L4Z zhs{XOY%w481TFO$9+)}1CJUN(v9k2&57+R_pYjQ9#NFx8>R8iBifvGR<|jFF*h1+r zl-TTl>Xn24)KBU_doo)y&4M+;(ytpkc3=h>P+V zHw7a%$wQ-l=aaV0(_0kFJiRTuNpG|2$cvKDoPsnkrvIv|K+euK=B0|*aEdfYAr@Y| zYer7#Csv@wE5qMu7JSCi%Gq-!&(4}r**H|l)^)*M9&m6~xTx)gPRq?icIWp#9YXQ-E7h;WK&v zfZ9;Yi9bkU)gMG(q*DtEb+}IMJHaX)HM?|4n87D0xOvu5l0=e?N#x>v_OODw6xZ=S zJ&!Y+>0fH5O`X;#7j`G37G=rzUBi5L)-_^Co>WY{Ep^b`ag8{JD57y9QHMN446!2y zT1SnNTk1xNB)Pf<=d#C;IIb^QVGlbHZH+v#keCZa%V?rbg<@jI$V6g3NR^U0V)}uo zCB3->rL-q8W7`_$bj)*bz8h8!r#t{lL{U%W zkrv__o0v#$#*9lef`1^<3|f|G1)Y#65<&b#pD^qj-eqq?7QKKhifUc(kaSCnhqz*Q z=*YOs039|%di-o4$srwCwH8P$${cFmsfo}M^t3;XxMFtWT7(;50=wj!jsW!6mQ0(| zn04!LplXe6%o0S=NKjA%c$+%$KA8j=DM z(rkf9XFHmW{#eO{T90t)EqKgdNwlkx+aoggWG4%fnbk9gV%bCzZLxGYzNZ z@zLrks5_9ZSh}bkgJTldf>m)ln&6}O0^QMQ6fv-|&7On~D!&<}Hrc51qUk}hf1(k}*i9p|J7Xz{+66 zx`oFXP+MY)k_}ZZ`CK58gkZt<8f^_kEI1`*!6`8dPKjYpW-7JhV;v7Kn2L2Fd?Ss! z_l;X)Lxl96jYV^OR;mNvh{t@ac!{eSAKDO%Sg_Lnp-Z?1O=KYpe%FWiFF)8x2$;?8 zAPt2PGbCQkb=!yxy1|DrPDqA-ux;GAhsuW-jfj;5-Sq?xp z0NDU!1Kj(5K8B2Z4!5>Ue5Tcc-Kb`4WsPyZp_q3p!GFw{Vhh%FN;?I!dyu%A#4A`M z-`#~YlGZjnkQkdzb73bM8?*DdA;enFOZ{Ta#H*{ii=N6aE2lgQzN>A|GK(L}nK+rP z;VN(J61kdnP1Bi=E(TIz5D-~RMiPS-G}(VPE!oRYFG#@lV} zx)={%u8^tSq1ry2u#UJcE<|0j7EI!vq(GcKoIRk+ifns0hvTcfIX^?GBI(g%*!|?M znv9wV$Em}Kv7|>1Gy`Zkr?G>tNA4$Z_FBoDeV&1{?`Sxk{V@SDU_GHuKO8XB8HA&V zIR?RTA9Dle%5lQL9OV26f#T);Z-mh5Vypoi`4*xkyoCA)zIcYkllEsC5AWIS@{O)QYx1A9%jpp8gp!>BpWVgE@d zb^a9G0k0Lo$RT?$auU6N*>pq3a{57@{uG9-Lig06S78%!y#)3**wWb9&)da(CPlj_ z%rNj{ViX$D&oEfGzimDLmNe27WVJ}}EA)hFpUhiBLIIl5{Cog~0mL+mu14G|0s*Q! zLFJWOs8FzCLvSSuI-WyU7O%KzIfv~(e&YP8Wd)j#JHao`rI8iR+WGrVb`HXHubVE# zWZAK%l+h_T6#wjE@&$%Gr$tm`A}TU*F z{v%DK{1|_YVAsyE6(sVFokl)dK_jy1MDtt{dM6d4u&a#P#Yb{Fl9d}lSO!~x!xKXL-X1I>w%{_s4bO(M&yk6Oz;UdE;(|{jx0q+p62VD%;Gd!5G z5G`-4OBkiUo*K(w17J_8-9T-|C>k^}G{!)?NHzL*3{P0AzCn_|*;$`WLR~H{!ES=5 zp~dbwRLjegw&$o9u3Aj)0mknwzE|RHb1y7GNB3zovCp9@UY@i%hgRg|_iZ{|Ludt2 zH&hUl@(MP!z4()ou^JpHC+hq&gs5d_NTwERIztlt`Aj-hdAx?GuVQn9+VwmkTIb#K zq`Uf`^H6fw=R9`JjyIo&5}p%4)y?M-^egZQYH#M%*8(qf4nnCTnAh9j6I5(f@@R=x z=9R=Ey!j_0)Sd^Bpyt6(y>*^AvJL@NUuK~mk(f^|3-u2;6}6T{SjfD_+L%{Q=JhU| ziVAukwcZ|1O|XaEiV00`m#6ae5mVpZIi)eOOa#s>%3(}@1xR8G#*Tyw zlIsHIzyzHP1?4rBjg=7K6QMiCt}9NYc4BwiiH$$ln@CW9|8l~wghTV_#`Kp^YY%%k z+i%I&g+a4t&&1$t@?(N4#yk>=;457*DWtZ0?@7k=S96+#03Inc8*pt;sgBGpmPZS< z^3)?anh-LQ!J{y(;dzBvO06MGa(tJYZL!WZ5*w~pQ|B2;|5RfDm(dm5NM(IciZ{Yx zE3uJ}8o>z7c$HLR=KGoU!d;m;1Fb_uqJ)N!Y{iPJ-YRQ@QlhoNN4g|LdP+jB?rm?- z{`7c^`PSQf?{t}nJ2M{7N$9(Pe+PFC@L##FcA1391CO&j(>yYb|P`p3Qb_Hg%Cl7(-GQOeZ9K3nENHPe>a8GpY$oW_~cIa`*2cjxq0 zGu0kyW(;>fnY18Y4yXMGpVBj14yQ*DWw=`&pWt2Sh(w@B}LucwZXg`T4BBr%Q+FV|u)`Jq$CZatF2nQv$b z&v?kMhevqVh<(?w0PhA+sPDG?x8%TPO8y-^eIi_OyFY^0U zYp}1ox)N_Nqt=scHTy8H^|jBlR!o11q*&vhO7Y0^^W9m^^HV%ho7UA`^_Mm+&GqFkX+pS$h~1>qYHDzn$p;s95=^> zA>!Wyf!7>_oB{~8kV}(YX0gXvgLrNJh17&hLJWd zGNP4>l-LTolAQ;Xi50pr%>fdc_$AaJ2P$-vIxwuCcr87pxC8pQF^X(2!00hjAj7g_ zX#jJeqju6U?a*fqTN&E3mkp>egi|nVFT%iaTF+j-RJc7Iy#ZjHxCB5DZV&Bs@6T+_ zb0KN+Hno{;n}p-KnQh#}$hUJgQIj%0R)Bt%Jv!c3nY~Bnj>*QaIi&5;b(U(^4SRGa zeW@5Y`#O^Ga}aArFnN#8*O9nK=UI~IB}s|ndiiL=xL%&E@mw!8eq1lrR~ZW|=or^a z`2q6n3b;ynTrYQw>?Ik8>|mR1V7uY++>8zhY`YcgP%Bspm+z2yTrZNsEB+K-fX8xU zN&KtNA?=qU?U(G)B`DLDx)aj&=wxFl^FVSV$(QWYQB^;>m#Vw+q5c$>c8+%y$gw=> z@?pEWvB4K3iM=qbxUcJfciJ6t_PWaD?f8EWB}EC^GgWR65vAj3Njv^LPJhBN?#XJC zIMAl(YTUjRytVJ7CUniZtyhInso1r6ndo}nFU(3$Znm}_^=#CEt_)#9h{{K zCVvu)TG;bzLUn4(wD*bS4W_&N4U!05<-Lgc4dQJckwjD>F@Yb|GA&U|OyGJj|K<{` zAiXo6Gh7U2?Xas+e1c_mIQehkMOpGV$lgQ!*VEljxxTQTUSK z2|1_o2e;HE8YT?)n%r;64yR1Y_T%D5#{(RhkbI4U&Qtq7%D%+)7tOxkd9v*;MniiCCZ+BjC>=LBT6>&(7GCPdn7L~V6BMuzoB2i8{(DTU|F-eyBI+HP27vFVpu zx%%F&AXnbIf&TO<)^JW%XpMcbh>EH8qdIqI;%bGQnIt%f;gW95N%Y!(o!g`I5Jy5U z))i%=<6f&%nq5|@UKgV@&mI{6{FNTI7iYsK0KKNg&FHa*h!ifcIyuJ6W>6353) zX4Lhf>hu~6s?&x$=)W}Q{dW>$i@sX1T}~Yn_6W@ZTsUlPvHeS}ED1_>Yv5hAONvOG z*a=|9c>|&Nj+kk64C+KHRuY9~}@+7BT|I{nc z6wYtVcIx{JtCJ15&?#pS@oMsj)5%s$jnf%KyseXhxSJ1osQ6v1o)+)J7OpVLzf~DN zf{4$i+`qtJ59cmTA)k)7ejysZ6Y1xoOg|ChxdWo1+puiD{la-V4y&8t+;BQNkl9$l5Aou8iIQo5}`(py-z{Mnv>@AfPqop^#|+$=V~n zU*u)|eI1q*YIyX+EN5#!z4jg7PtRlG(eQ#Oxd@e<$vU??#+e+ye*PF=vo4=1-F8xU zhfrr1Hoq=y%QmXq$}w}4rZa=3B&g#W#DDuBPiEWI_v&my)?1xlo23b2U&S#&%pD;V z;Eo9|XVFQ%LHG&P>6Y(YDBJZ|e99Awe#U%2ISWLtE4Bf#Tw^>Gr3G`(m9! zVR0Y((9*Zj?o*pr-%+_nhL|e~W*ic$Ho|qryr5l9iQ0v$Z-+^@W9!KKO zE}83l-`OM4c35<6z4RL{aXBo`;^lB}Io#)j(}49xOip~|d%Z$lG}s>Qw^6V3{)|}B z*&iJCpyxLtk0fwgQ%hUWd+tAl`1{EHh{qufBh)z37dtqaz9z_FtdsS&hYR|0*?l=( z|5Cba0v4Y7q`ODA)XCw#xn!W+JmQWheP=Pq{mxnB-W{oOpK}&l?Kz9WcS5b%>;UI_ z<1G3pw~-n8{bEU%Wb}^S#GwW<j|8CPZ8syAY}hf2mYqchR+tJ!~>moDydXKkf_ z^dp0G!mN@ulHCMX6Is zF*I<(9^z{k&p>ClxCc%AJ8$}uwwB&4vD za?&rcCh39r$E>BiRAe({{YxmanX{pJu>X64>-)QkP32xQh>rM0C8$OmAI2&bAI9FF zAWsz=M^~%GLuzR@ziY?a`cj<13KtBmCco&C`ZQE16}oC$^FyL9_iYvfczN zific`KRweu`%F)F&&t-bK(kK|vbnGgpn`xbqM)caA_@w!2nw!@0t1N(?naG*OAKlf zjY*8TCJ~c()tJ@97;hFyG*@%oO_U@mU$wda_j{l3&-2Wgsye5ep6QSmx2))a@-aZZKPq=fa`a4f}HNEf_m(!$CraaAEVVzOpE zpavj7ZYHFs*HbUTgDF`=)R!;li(-?$Quyme?$G)te=Ub{OLrBamiCk-b1ByexwdTv z6fsBS5m?`eH_Pdyy>cpfuiTXNp4LPd!<~e5ErD9!hA#?gx5(a?v+KW_2`5c`Ln{03 zOLC@`;7=-NYQ;QKP7U*APMw%(Op(isR=JEhdtxT~CoY>B#<|4Boc)IAI|D5$<{%7* z*Zzad3jtif=W|fTKhRHw$X~`D$7B{#HBZkU$5ivA?0f5Ec-LFt2Ydt%(n*w>kvnHP zN8+Y5;*>`RcZ5KgLQLfpDdJqAq}h4!^6!6x)aa5%io2=yRFR~j+&$}hL|vLl(%`PF zN)z|v)N|uRl7&$8x~ASJMvq0+bbBh@p7wMO*(NiihjZA0HkqkRginTZagQ)2Y{#WX zNs$`|;_~HF;J>vk<)WrVnk@=UJCu&=#E)WAVD&OKWx{;~la+L;JwqghVv|(+=tA5# zx)1=|g*eB8GP0JS+sDxDW6da9PJAD&1dWZO{0Yx3`b}r4VIkBw?C(sy%lyW_i+1pu0E}4r$MWxlX@b zgoV-VS#*2$9bbF|KSypu)H?}r$nqD2^zzSulK5wVBpT_$qR|JJ;gsgW3krmc)S+PI zeYb{r`jQ?UGUMqu=P~HQ?V*MfKCE6BF6B?^8hphpJWFuf0R0`#T_Iz_xqeMdxGW~b zr~$)(>N}k2-0Ev{fspbECOS|XbWhR?}(>9!6mb3ljGWGUdPg?$iEmK>7pgqWn z5h~<7cp9%2=W7mpDhBA~U8x&pA>(0#PgacI{^<(M_V=Hx{ZBt+_*pauWWFeYm@oj; z`EQ)}K_@>)e!eI>0_N=BSxDTiF>d(IqW$U6w|OxA=+adA)}{RM3tT+|uyFAx`7TYH zl4LMiZ#1?kZ95gql&BanXNr^Y!w4kU3pk1RX(Bx-#%Cbg776&p`m_=Ye#j5+MgRm- zvo{X=AwgY@e5+4nl3Iy+gaWVAN)CfZ#8*=cZV}B?1u~|OB(%f;u=AH=+M@Vms(u;PD5hH_ zFr_W3Tn{y0=vIKj6eSl+HdNPx10e_Wa|%<@*6I-PudAh&=jRj1@*VmN(*{Mx-y@)Z zFIK7Sn)Vh>n(#ufbDSVyqCAR`UjeDnxa}isS?9?i9k526% zyI(4T2Nd8yY^3%tF@lohFYeI|pMDb9-aD82lD@cXMe@Z_a0P8s`RVv0;zOlkpp{_l zXAu5`@CCaLZ-mK>2|l+bJ(F%P&eJO2_YKmR;V5s7muBwJ>#BIYyH3Jg`J?iX63#JiZiA7M(3{QT(DOw3E+p*zu*z z6de*5E{PK<1IIziYy0FkmgWKwCTAoRYSu(aba#fK!RbfgJAECHZ^N)CxN6^9nk-s{ z7U?k9*$#-nU4<)V$|7B64s1PGqrA1)_x>L>DS&4x>{JG)MBh>vS;bL=G+#;>>trd*P-Xuoi@e69I%c1U|xHCx`_&kop zn6e35ZzuIl&Aw&2rU#JDgkJd#U;FmWIi{KP(i*gs2*VjY>7U@3;fQz`5M-elpf#0uk@m{4Y znu?z$;QL&osrH%g&4Qb-=7$LK`v{3Nnu4IF8%SK)c&ZivMANBuSoS8D(rq`jgmgrc zcG|bNj`#*M&Ag5*w>X#}ro$PTVdp}L^^i3?Xh)MYU~s>r&`X0N@x8T?@-P~i-x-Uv zhv3eA3i@UOUgJ$ShpCQFv85=leMeU73EN6JB5X+dhZ~!y&x8ExF}PP25^%uWgc2M1 zUgQldWw(jMT7Cq^E2Ye52W4d9Lg1&&Y?85WfBlI}mKKaMFf@uo6LXneeG%xN3bGaH zc>+$c6kQ=8SgmJsUW@=A3uT?hY0h)ve)KRo z3IcQy(vk{<{+aa~wyHtnfx!mFaKN7VXhQ1b)>T#W-#)lR*qg8Bd2CS4PG42doI9mkN_aSTEmP47%? z8$)}tHxW#we?=_t9jhzI9fVv&2Gyj}t<`Y*BsAdqsx{rk7K_wn74G`TBq)4eKBv51 zhhmn9RL@nQ)h28S(r`flR%u@viqHWQ0c}WQ%yJQZ0iz0*jMdHtEOAzT^i#D5z?M}| ztGuZe<`LzyEP#WHteG7-8%iEKj1rB}h+ZSKxYRhhwc0G|SvV}qEb)t`WjE&m8T>qh zs(YcH+)&93r(x2#b}rO(r`zY~P=tP)ey)7wLZ=$?(b1%rz*=cX5$2h(=u6*J(B{Hx z9x^XyD16;|yJzIO^{7b8jC@T~Is%rH>ypELQG6o~9)aGtYwK;9aUfxF!qNb|UFgNT zG`zK0V^HDkbDzm8B{%w6IR{3AKs<>m07II=La`5+eH3 zXv$BGr9%1&UuV-dDpA8A1a^Y|B8A){#gI6cIIzQWXX!t|g#VuBk;D>tym@ zjf8O*yjLND8+_VU0s%vU?QAR2Ijj=UfOw4oE%%C8e&9L^a;%eFN3uy_09#9c8#4Qs z5^x@t60~dt9U@CL2UzEND7e5CUx61tGHk-E45`$ltd}4Sow6v=vW^ zbX96jWGtqesAAMtlt{N%?JQyvcKF5{HN~bP3cgLIIIoCi-YL@7g5JO(O{1@7pRd&1 z`T$8{T*?%DcN52C0X*ChE3XmCsF%+t8_{#>b#EZEdV}TzWwJ;Yn1m31R=EiHWU2OA zk*^BLeKM;Nu6DIbepx|HR3mCqwwx-;l2gSa@~9~Q-IxI-9;;Lkw1D^d;Nhy7FK3nc zd6-k(2oqrK)i+W1Dwu&Ul#6(NCrUp6P>Fhky;&7y0aX}ToVh0jW zOoL~@{Rm_-e?~gho+P*xFNeAIfQ3v+k_L2bRFLi(%Wv z0zeJ~{AkOHoh!ke9-X?!Pr>f{M+=f4YcVW*Az5}SpVa3M4MlSUGX(^iTR@<>Bd~DH z4f`yGyU|DE#cd0MvCc^fU`_B!Iwjt`fMHS*N7?*v?KaL}8xE>il3=@ta}d zFY?2Bi`4m?dy+ceE}sO|vL}M(DFiLF5VQ%P^%j7ZS>VZn`mmBQeEQ?5GLqMDe+ugaO2B}MYAEl}VHs#yWNYho5Uq;3%kgPnxfgAA4S z!!)Z)rl$fVGChJ^tcmw9TmmspLhtC4e9wW5z7ml=h+=Q`z?Is(nN52yMjT~4inQ3m zAC9^Pp&Zn8ts&(M#Z*QW@Kz95&YJWx#SJ8Ytuv~Ca>2dUHF#ToSTu700v)%hsPVSW zk%vWE=nxCe;t_BT{72Ie=HT4W*sby4|AAP?S-9hK9^tm{`fsq~h7j!NjfuCaq6$z8 zCjUx8?haD%&9cuiF}3q^poak_J~IDC5dW<#MyljIkug$RXrvYrK_gvtC_{l;wJ9IAItn>et^fFj@}`EW zxOR1>0`5+^KUBpz7l|a{XiA`y_7vx_g5PmT`r(cyK)iY}5oyM{0VE3r-0Aj3VkEkb z$W7^q=+YeClhcu&gniF~5Ht^_C@gLe2eH=nMX%|{c#6%EM|_BMq*e4*7KB06Il%ST z-elDUQ@fSr%ug3$@#aX*ZS8Z|2a~&2Ngp)Yr=u3P;&kB*ea(-oL<*cSJCeh1) z{I{X0VO%29d_y8~&LwAMy*G+(Zyw3@}(tEQz|PU5at zU*m$k#)AL{KL8x2qtFb>3ngmGqY7(Fs~5}(jEedIl`o^bcDZ6QM+NJEIErou9VkG8 zBP_FP8t2z?V=XnaEw!BJ-9&o%F3#1yg7&r{Qif@aBAQajvAASv#VY~U_GMoNq_#JkH8nZ3XefZy z4&R7qIy;2c4c|x`mX%PNmKva2q5vKNs6;g!8!km2>ZQdZeCC3{>xGOxTW->~t+(&_ z)PVHHe-#E|`*o<;{5qmK+IL!_&coAg5K&%f6Bg|!QXdJmL?)dKjix%rk4V)z-|*+e ztJ_0{QymjB5GvbsUmOL9%#K3%;=KMMWwm==dF1KPDP|Gvm8PIcmtjY+9{k#03x#Ck z5bc#iaEC*){Q*(w1u*)4U-<3#!&=I#$U^)50r9zV3cO16XeRp{Se1E5PZ-cVAmF0C zsuaXqcc&o4+36G{0ZN_&$q4a5BcUw{UJQG*PkV%$0i|MwQ{dG@CYP6#ibUFzi?xw& zFIFaOm2R3oJUw$ndg}$gE!A?G9kZJOPS1sxh z?_1}L7!RBIz-A@m;t@A3%!~5KrvSJg7BUtB%UxsN;|AWnZDu;jO}q;Pc>Mn3wwc4; zxox)f9WO+)-N#Ykzp2gPb_~#^=yMfw3?^B}nvlgc_(L4ggA8xJ7jEx-6HvE0G$wUW zC>a*qfAmy1)CfS~RuGIwPK7f^V51`jAAK5MZR>qCCExam^0wY)eKmK3D!dZqZkX{t z086c}&uq}iBbIj4t6g;*n(CX*=5~Oc64Cr z!OgaThK*1kM`+yD8!_%?6-a3EMhwl_fG>qO|3rcA2^zTR75;lu7&Za=Jp~)FFqhDr z%HN0?KLNWd8;+(w3y!9!e;fp2|GmlPO5KQ+N>Wkbr~lpr_@$H$tx#R$=v-tl%}m17 z2Yyt3zgL@VtTM!>z#bKswDuG!XK4jT;1&R(o_^IKW9PA=%_eb*l)(mfkBko3fc-pI zWZY~dcbc?Y&&8m3B60yW@Ub%=54cBRDVR~&47XpkySJ-_W`7lh$RBp3G z^DD6Xy1O{`#Wo1*dZ7&PN&p*lg{Ay)J|IpE{?pamQ~b6LKoRqCSx7^FU&P_1piiZt`k`W(L?47t#@vInu(hzGHl_ix%YR74Y)L zq71~YgWCi9G{B1ZosvJpN#=Xt4~DYY`kiSxxd8_}bUGp#tJmMi0&2%Y7g)(l$jnzt zF9B)no6rIu*CiC=aLF#g5)F|*SSTn4rIgrNj~3H9K9Xsntbyb_VjXJvMucbwundB0 z_O?G{9T=Dxf`@4fp|oKd2s)qIAj}1A{frEubHkV|bE9C!2V86@E@iJQ; z3-H66@SXet$LR~xtQLq`L3wLOj-n8$SG+@x48XA-f?;|H^fF;EyiAa`=yKGPVQcXz z$zs=Z04_0S5E)-g5tXii3Fs?%5?s4)?D``3_QpI-8YV>&Tc-n;*w;uPp1x8hQ8J&j zpy(q*;s%{UCiJN!wlxy11Wk%UKdw3IFgoi+GZa`Mg^HG5}JgcVSbhq>;-nw`LXKKRQzZ1Ckc7COiAb6}v6 zc$zHk%FAehT#g2U?Qei*wY7mz35|@bCCmOOD)Bjq%(I56uTMW^OilJJD1QE3=qCCS=fZq4nI-0(YP=lC+ zWJ})mcttnEn;zeU$3ybPTYsfvj+FrrYwk+NbbL9Jj)_743NfJL-4ar$@Vf)f=(i2X z_o!1O?4sx(0A8m*4scA@c1YOI7Hu>cMT_9c8-jLFZ119t5RC7T7>v`~a(Q8dc>eV6 zl(%R6b!CQ-5U9F@$Ul=tpawk5^j8C976zQbWZz+Yi{lcIlpN7F0BPKRZCs0^0SCtc zc|}e-{0-28+rV+w11JqaA32AHG@U-j3c%8kFlykC7V$U zJPhl6aB)uP%3^Vj@tinEl|BKlQSkk^5fZS5oos1=P?4zHHE4C@BDmeZFUMr13brL@ zoYwI*%FSU~UYa7Suf_^b&$QxBcyI?#zAH+1(cS=XEw_~bG}g;%ELtQrAgd-@iDpO8 zUW>*O0U?$#s4M|Cz_Ujorxn+MKQr&oMBl>S6AjMUWlY}XL`EI632qG3(wI%)(cu*# zF`LBb=4lu_ybhJYo^7~pA;91lA{oX{Fhndwe&Tf+W~IWE}pOIv*`jr=+fT6(V|O1nh5w7(_oTZ z$SEVj$=Y#9D}$WO)^*~B_C=6F@8w7&c7}(niXI)NXme|P=8=y+SFnF37D5r}NnIkz zWN^QTilKy`Q=K0MQ?r#YCE!8|Bik390IpQgi7cb_*UwQ|1=%aplOJY@i>JZA4*o1f zY@CEPiK7A~DMz4A?d2rNwmRe3cc9SbcUk4pS7CaTQ3G7Nfp7@>Y5|MdYM{I!BFU33 zJ0NJ$d@~s1k+s#(%q2&t zxILStr27SKKIC@h(G!&%xpIL?RJJL^8&bAOfRW)V7lbH%eid87e}UZ0Kj9k(P%I!r z%;dr}3onENmV(V;N5RIq<9VbTubRA(8%TK=$#fPb*jylxvu!?xq;Zj)HE~=da~7r8-)qzg|#MiNU~wXZ}B$y2$-I|xHeWLWct`W@t}ny)52TtT29^# zw%%A!l6YEp+qX7Ws!h9^5ZD{NHz5t6CDCAn3Fx{bZ+88NN&eFV{#uA8@>i@7tW!Ax z%5DR(;+lZ5CmX;o>V+A@X}wLvDj|^M_m17@`;J|_yrI|)K&L-JHG{gcfpeSQu`_Fn z$C1|)tjw}23Eci=aOwV_=GNNYp8+VzY?18-(*hGRCe_IXyA;_XqdZ&0$g)MOEY&Ht zh^5a-HNVLwBz2=feqL!x5=_fZ(I`C|(6v*)8liC1iI4TG99Djhr~yfj#A~5gIm}R! zy0MYQs3fh($B>c)0mkFqOw!ny2%hjCPUN>qzH~_cX50AizH`V-UM7Q>u2-Gx+O0WS z$39|fj-a6kF$-{Q+=y?@<=mPR$&CC;GT*O0k<60I-Z1Y{!|Y160UMOh$ZsLPgWKf* z9+JZKibGQDnc{$0mV}_E-AV%ao{P?f1nXE7M5k&MtTg3A|3HLaU!Z5so+4(Q3f52g zjW>K+P^{#OIrEf(2tfHou;Xs`o2{<#mTDV;_^Ie-G?GRmzx$(MfpqFtg!oZ^aDR5Y z#E=yyvu9?tOIQ#f9GeO5o`JEKVa_qO5S9XC15%}rLk(jtOPIcUpN6?dKkDbK=_f|m z&ZdF;$CC!CEA`|E+YJ|7Wv#9g`hylL(C~GCQ00b z^Uu}_jHg|RKkDZ(^P_$xczT&%I)vmf8>ZDpl%9qh)N9%Z;6T^BVUwQxWgQxP1hbuM zFxxo=fJ|)uH!vNSNUn#odlWL6>`}k$N;r8PCW8;op?@AWuJOKRTT3UY z`7XoFP;CJIKc?NIZC!?#fQ$jL22yr_c}DN>C(=V@6$pph-K}|q?z!<($eRe}8tcc9 z`;Y3`zULH3^&9Bh#>n;`eKz;le^lr2mw*CEIYk*TZ+iN65c_oh(FkAI0y0|oq#-9O zXGte(5W0v8TrW`|G1@POSUV%jZF4!HvNqR*@8bSPTs?E&^ zM)uk3z89(-e{3D0u{p3#~TxUKs)Rfkas|VGBOV#`522gI+rbt zfne^)Q@)54*BY6Dp&I_r*P$}9=(H~{o^je&WGT-efLG({Fv=Ty_w^Ytn(9pdY|MB_ ziw^uJDyO|MlsC?N&=pO4W4}OoxEL%JsJ9d8%cMm5q8*FT>nz${gYy1elX}!OIOS-p zZ{)k>aMWYrsGrN@UP0t}7g{iRHym==%fBNU{|tC8ym22PNtFq5Ak?D~U5XAnV<~UR zYMu8cl8ZO+-gxl_KeqJxdKF{`r+B7N-m29OZ_FZ8+Ll0jrhMgtu?fvkf@i(2DPfln zeE6hyOLD;#nU!qTX<#jN**7l14BVZ%;iE-V;)$tso^1G+DsD`QW~^Cr!b~P%dS;v% z$=@|=v+^)%L>(gMBaHa^0yT0iY4t`6O^ndQttIW=*u$hqf@sxiq(Ss}j#(T%-BOYQ z&oju;@QyT*A<{6wKTb;pssZ4g_W}SC+X(9w{{TNKF;Shqkd!EMlM!C4K)8@fV-ek?#+e9$Ht`VR3Mf4YQ% z9c`F8PUg-G_Gn?|4lkCxp_TG2vKs(zJNXRs*!wS7J#QprGulv{l2|lB8n3TIFbDM* zQofHM&o5WA&BZGa>W{#*EkP30vb}U0z>(&BV~l`DgBpF@h?+-|zLS7$UHqW7l>7~e zSoGFno*R(;h8g>RUBXoUx&+PKDoeP>4G_Q6OlJay4g}j;3|rgTwc~@ej%s{+onx(J z-CFYMOEk&&RPkLBtBPc%Ws=4h4&&$$&c3@Q7Wcjhfj+awV^%}RF<5eZPac3DH4U!? z25T}lDtrs;I6uF)6n0!U93{K(jNwL^^v&n}b-8QMxA(|DxY6Nw;YFqT6e3%p@CiJN zWc!RTIVGeIR+F<)hBO@z>rim)j;Y0)stJVoVOnV@ovuXUd%)Cfg_MKvoabeMiMJoO=6{=)iV`PO*0`CY95QIDtJ}HYkt8vZEa&9D^IV) zoSBaRo58fFSI+Pj%0Dr5bU7SZ$Ph5pqnG{>gUri{5En(K zDg!Z3DpW1l4IeTeUIhje?mBS1!r@tYyn@3#$17}oEzd#tq~&-;ye)OvTS^Wsfu8>6 z;}!PGW}D0h1g;;b%xsm53<}P=sJVh0XgprQbP^Sut5Jv`GzdF^G$+n2G}d}h&(>KG z@2NXpk;U~^x4CVZ)eVr0S$(`>Xb5s!ra)-V3i(U6v&9f6@)WnZIcrgy+kSQu#EB+F zxjFa5Ha8=`eVp$vY;&_*e?cJ%?9ERuhK!}mdiOruDc??oI5 z#tR9~ntFy{&JM8-kLwIUCUj~@)1AHey;ey7DTR1t52keFNX?bOI~DHv&^1)fUz54# ze=dll0XnF=BTnAAa_V71!%Ul(#_dV^+5ef9WbL{;R$B3s9vUFOO=7hsbY*=enrmjRG98W^GAmU%7>a1Kw7`4+zd2MU-iuydXXQk z?VBTJeKhaj6g_7&**C}6G@)-!inmY`5;BVXk3LmSy+S3-WD>t{a$70Q0KDvWP-isW40N4}8*5A4VKI6F{W(^Ag zPKBH>5OeMeV(zaX=D!YNz=R&eP6Q`zKoJO&1)&54cwqt4KqwUiHwa~dP!7TzL8t@) zURc095UK^C28236SO7w!Ab^jIg%=jk48jsYSO&rh5FD7N7cQn%y9Kdr4~T7h1<|_? z#Lkxl@%jBAu6Y@WBD)s9=!Cja1;z&`65FuL3G4tpP7t^EIzzA*t=6v0&(0xp<`?*G zr!o?IaSsgGwbzM)(y@|N|XL2DL;Y!A~ z-;cwRppQ-rL?hjaAaMzTItofOZ%nnhOh9jNIBQtH z5r&2d4R3_;5}SwWKm=$Mn3SPfunhxp4=_kUgv!klc!SXY)9v>ir=Nhi?D6*d!8Yq} z+wXI|4;~NWt>Q>&m0V9G* zTq=i6T(XaWKu(+|$nO6od;XW)`@iJ=|H|Y>^_#G>M7~=4;I7GM%!9k^+A?0tf1>?( zu#6u~0RsU$`r~_czK{BNa1I|t3rYLwS0HJ>lNJmFBN);ILnQ+S_SzNTBuEwXOr0>` zBb_k7B^W~Wf?=OtFw7PVa)V%KGYE!q!Eoc5q1-4KW(kI~Mq$KglVB(l41FL1RlpU5 z1mc4TKFBO|%@n#iL1b7Qy7(Xdx&q__gpbhY7WyhdWE=;<%(lU1e;?%tp(oQ<*s4I- zVT7>5k3cuE!-cL;KVhRk{=9VQawhDvX@kIF3&Q zyHOxP_}4=qL15RyHY^AH2S$)IS25T`8^D!}6&7UN{)b@u9D&Ug5Dfbj)?@JYY&{kn zo$+iv#?O0rzMgToA5Im)xP80_?aLL{{g+f=VkEgOm(f))r=L*=yvN4qF|BAqUfB!) ze`=bhehaUo5snKN4JNL=3yMEmfrx)saOAGhN%I@4>!X}G`{%;*>_mN3xHfPk64ympaN^8AKWjBY3VUlc zorCb;`gEMoJY{jsQyD#FcN8@h=3_Gf4L0xprmR!*Z?2_k1Ce!=AB(J>i58HodXU5+ zaHE=|@1iU8U7{ONHjgq4QKRh0wldO==*EC9iW=TUEeu7XhAwJxFrt=lD1NC~*N-R} zycF93!g&={z%H zCFDF&WSgVES~p3cqN|>;N>6z!(#ND#$+5^UkgNygR@1BW*AQgHR-Y{}>58L~>MGK% zQdN=D!MMusSG5)$s%DFSsn+Ty10TVd2~=g%n54;caYcdVs{&Z3>vfZ1-)~^Kz?D#Z z9kK?D;iCUCB`iV$Q-W#{WY`K+3Abx>0#yRM2~-IVk=FE0HLNh_c8t}oe17aDSWVBM zJ>zLlF73%XJHfWfls`Y$J5|Lks3ufDOaMZH;k0+!exNjTWjJ%}clV16bnt!5*e_D!MHPX}1+QnPE0AcZ z1BE2+cA&*$Z^OyU44I5r#fgoWGbd*w47xlSMVqC+!ftYkkY$1iK!3$>nC|$=wpLS_ zj0pNBBsY~umi(W1R4@g4fO=q@k@mU)^Y@bzX-_$kZs915E-T5=QGod?s;zhC6cq!w zd2>k){xdR{-jrFU0bznqMM+Mebf6fS=6x9N%qbs6Aea(U-dXsulqNamh(bXltWn5( zAPQ*#VW_R0j%rt>(B4^etpn+!9LUrdeaxA&3Sf!!(qkxNA>FDzhC)`HgGECp4#x4v zQ0gi_deH-{T)eiWrCYBZA%7QHDq&edcTY#orSy_%NKZY7La_}-Ok49QW~-Sw1GzjC z>19UD@C8sRY_G#C3m~q;Y`czJttOG`g{hR|@HB0F0y4_yAye-kUpaFYErlJvvlW$i zl(a{&4TbdGhwo<@tooVN+fd3}+N0u8u=rjS^8f7G__Uo^;hk&a@yDB@uotmFH+F42 zv*YA&#}4en&E)le2M$Yp0Zc(#Fjp?Ap57-n#+jsCWNO!&@-6 zAp-@i!>(+$SFX!IhIJO0$8}+sHrqP8VA0}&#*VGEJR817Sjq^Ebv2M>o_*c|OPS~W zFe!fp`C($Nw-daW?vBUEChsUjMg3l^@HPj2>-Irpm$$E06L&!#u{=@IT z7XF(ay**6#!|?4)5kO>%295Bz@o{*@7xS$Bm$z^m#%y(Ev~zz*xwl<}n0sIzUeM zF~mgxSTq)D=Vit^G4yb8EMi=HMfP5ZPcVBPE~b?a7jxu>+9Z2_RP=OYIzUH3uB0{U zd01Rp`GeCr%yDqKtuIm_!-%|=OVqBvgDD- z2yq7utUuMT{#3#GQ@-vyyhCbp1@z1Xx@pGW4`cmPdf2#rU*I)meBeuL6^q-Kj(`eV zGi0$I6SPbylou-r520oEu^tlWTf06z3Fosr4k4A$zN70m94luz5hH<_46}aTZ zJs2Z@bqU&bjtpqW0M|$SIQ}SLUZOD=jtySe^qmZAvXMJ*yznyQMtv9vB`jH-JdX(D z4}h0|*KoGyJW{Y4X!vzQPK%PvTkV3p^?(KG7#Skc@DHB)k6*)@w3rM|>{Q6}4T01R zs4TVNNrg7m{`BhB->6xl3mhoxWn*~xlLBZC|+KRLH z_li`dm*7BVI=8Ac%`lgdDdVgp)}&wgM*<cj(V>v0%rfgepu=W@rqOpFC!~AsKBKB}-GQ6l_mi00J&A_fa1(Uj0{z=b%&mk( z!%fgV{{j8$Ni@8r4Ezebd~;H+9D(YSXxG3I*Wgz0UF_@$)H+;DPhiScK>XZZ#SHwb zioX(-2j$Jz;}~Fm>j~azXf84S)Lg<0)MD&Fa|z(b$nwcX zthvP2rv?X)TMhl7+56zMuu2$!jQ0WQp_d&Zc|Bk@q-4P=f;fSsbub1$f$+K#(kW5# zb$X{Hn!om!Q-YJ_C6F~Lv0wZPE<|@p4A=kJV~q2B`WVOzS~9~1K5>_Dp7ZV!d+2!} z&H30}64yne5AGPwQEq$aIXLBKDY!jgXDDzkou=Hj&eL#UE|56vBT)O``VMn{2&(l1 z*y8M|&Jv$fpt<@%yKxep!8mG_ZG{>)TJ7>WKgVOzP%I~ zc<|A|YAf~y^d|I*S8q`{C4AaDlslYrAEUqzmhvj!|CVqp18=|{dyj%GGyPS8=0^07 zIy?l<(GhsgE!BuKUJV{NoPn6vENB9x`DebCfsC(N=P<9pDLnKl4R4$k8vDROz=1;$ ztrOlkm(XAb;BnU12TwY8pL(Xnupb_Au9v`eV_zW(@7<@KY22%xN$)u%3hvzl%5G40 z17^6t7nB}QdIX&RE>L!YvQxnMgP`>!M9BOo^7tH;quFP*16xv02V9r1J1Z!Y?xSpE zh|fmBI|GOc!dQ zDuJrakZizNo#*AYvwVh#_weWCtP$%rK)&&Lxh&>A5Tz}9xn5PvUetn^&~Af$KnV|% zZi63rR~p2d|8z>F5GWH3hqRtEDA+}uLCSypDLii;ODVqE|FJZh|K*SKNQ$L9!6dVP z^9LLOYBEFzV?gp_6gYn1<>T9Au=ksR-Dgi>zpTj+IADBR54=mA#r?d?*koW)Vwrk( zw@=ybZg~iVc2S5%+;$JBeVPo!$BRIde!NKN&^RW%u~h*kwq zLw0uT;&+N3OG)PIiea&@-NCwdg>@MoOC6nIK;~U0omR%852ICn~G4dltx_D+CE z81fFOIBPCa+s}?qk+I_;HJan_uqH-)& z={t7wXNJ+BbdKKqnJ>Hy=`gS_4XD`M(9nkE8%o!3z;gs{ROZ_mBf?+%5huC;a=3;A zjw1w->7SF3Iy@Llz*Y39uL#~f3RhW-BXE^*I9TF^OFJHvI8b5_W5K<#pu~Uz!MWi6 zXi$dXD*SQ2F$zQ{u40^8k--_mgzPl*)sS1k7hK16jFNTJoIB!>(k_oUgxK(I`g0PQ zBxDDX#bY5I1l)}tcM!q+MQBGEv4F3+eiPh+Dg(auwF-)%12Pf=z7De*?p1RGx_i~O zPJmDHE|B1tK!edmf$@eGzO7y@sBRKexsV{yuL0Gg1~pV&0n|_`P z*9k0*U3miA!A?4XsmQ}<8Q=bUm5AlT{;U$s<0pfh#-~B6W=$tB+5c@w6&Xw!47?IeQZX9|+yZvVZ)XBoLKgJ@WNt{vL8Q=a-iXLIL^%BK zX11%m9#EUn<@Kl{j34=6BjD|ZJwO;ah$%<27gx$>*E1_yTuzCnaLfgEY3X`c+@%4J zMc!kGmdyU)51*WdHk6c+oO?7SW3LZ;CH6T#@-%{S+jx0OCuQ1_s!izeS|k|{+xc}d z=a9$}eeN8}Yk-aCe9o>~sP zXJ2S-XXD|aKps$26mP{SN*U^gR`sA|#qsz-6vqWOKidr-h~o76{0<>g^Y2>bhM5ZPHH8`=56oZ-HNrDxz_82! zPcI$(^7|PuRx)rc1GvYa8;Jh}5&^_dW`((^Wd`8>US?qW^i-Ie1kI`e?JQ^>HE1ps zXgBl}->Y2Ps${1u`c;K5+r_c|`HbrKD0Q=)mG*@yHRLa36!1@^MMCA(A0V0Q6^67@ z7`rF!mu&VjTsZ8hZOez6(On67aVh0kBdb%uN6gsBO4j+})YE+q^72yO_(;6&@=~Vi z@=~_&^3sv|+K<*x$pB1E%Gvc~YIarv6hrtai`S%gD>RlM*(OElVK^_<-HH@T@M$=U z4?(NxRuD770b-C7`SUkyEohb~h#ZzedcC)6f{q7F?;8Q)kv^XQ}rz~ku&sYYV@EsMn2Vcdx`x9F>AjBbbsVmxJFBm zKN@l%s05Y3L7NNt(Za)p7FJq%_^zIy2b;tAt%~3 zI5|RZB-J(^h?uZB?6)nLq^6SgF2vJYFf3RR=p$wVb->AhDYg6d<^=7#bU_s2ZCrsR z)80ij*pM$gf)E?{LrG+~LWd;D33TaVM2N%$E1S3n6EjFZqm>|^BV@cHZ~=;tf4@dI zOa2U{*`$g1cy~MHT>_Yj&TQvvxdQQ5&l%K4js}`lGG|858NNNP=gbFjl(+c@M3$fN z2lT{0wJQLt*B(gcteYezL(YWRJd>v1v9FRXFVeJ3R4t!K{QA4-qtij{aUY$Q-uPXX zOFPNTSp-56=MBxdG|#Nxej4HCXwDk+Bs%JBAnK+Zp1>#3s~aE>JTa*m1~8%4mXX(HzOO_fpex(Y4hy)q;|N2JA>~0Km3-;8yW9_T>~Z%)96$OI`^Rt%ly-f(CP=C`xgQ3vl;MX0@x13`K^n^nX(A9^ ztW)}1-hi9_w_k>9cB@qpGPW>6#%LClqn3-*;;uu65P%W%XlU6l$lzB4ET{l8+PPV} zLgSeV5&0z{@@U`{6v-bU@*a5IpHUuZ+7#prlmbdCqR6Yr8>!GO6Uj!41N=54a@m|< zZPl*_GkOy^CT&g)Wb>EKFR%C(IWsqaAIkTlXAb`?cbNR`V7;YT0#2y7-ws+jM2E}C z2M1-AWg@uJ5*{3+ES{G^x((9G%r^K^(9E9s}>D7aBXXf(?=*+l!5MuXTpF`(5 zpQ{I*;b{e@{T$Y|s|UH>Rp)?GeN~tYVwUIp;_W}JIIS=&JLku_mqLepX#+gSmk8=& zXyl7mtr1SUr|F!ZJ+x`IS&ARxdKU_NSSVZ#Let*>YGni5Sgj3L4`y+$+S7iv8#NGN z@2xrQ2lwV+Y#Pi>OJHtVau@S0$r^5$eA>@mIT>bTlk5FBtQf}k6$z95qSL^V;+`nX z_6tw@F*n9`h4oH24aWjU&&a!y!us<;^W?z>q0od4}BA?OnMonA*C6dE2)Cu zutd=MN-{Wi0(?H}DA3Nr=k|;Q%{2nF8~7o`FGgt=+xwNjv-)jmk%J=&`W=kXsXuO6&r z6;}@itBb|t=17&%xFU(9!M9>Ll>c`v!<`!YP_q!jUy`KMi zCqpR#!`X`yhaciQM8gkFN~Sx+nx)0r3G_-Svy^;GPm}**@xQP5fRHbBaLJD(cR+31 z>>WBHxwdA(4jo#t;6u3f8UuFdG=E#_EtB&Iq-)us(-Qj@!f)v}KM3jP*NojCNjHKR<6hbX)3tz&2}#?(fIc-)%dK{cTvr5+EFeT=rcfGPY|u z-%{PK*;O^}1_x9?h&e?(KXx7f^~Y9E->2jK0>>a3{)%oU@CqYbu}{aUGEV9Bnv7HV zREMufmXDkZ0*AYh$oFUMh-s%7Y93>vKK#)+b`Cr&^UgzhpQ6@lGuQ9*28vr8$PBJ{ z?Q(Fle+oTn2g5&^*elqJ`d2 zJ#3>51p8ND*TL|)w9su{31+wp(k@=TYG$up40<^vOqz0VB}f z=0l!g2mJeSv*~AjzrsEa0pR;P6oE2l(H#(EF!@JzILB7PE$5!*J>c=CIs&0m)w4=D zz;6v%g3|xyeC~MSq&s}aAf0>+;)24CpVUe9hzl;*chZingh~|Q=a%d76Z(kAFMm8~ z<~Jfs8Tjro^*5TgPU6uhB5E7JZ=)B#agttsL(lck%Z&-_om&$lfM(`?1PF$?sA5q7 zhgATWW?=T77{G6L&Ngd(W*1%Iu=2B%t#8(GmCZfNUj>dVyR{7bVc}!xnc&~_%=A|g zu{7fb6F-)jfvM>ke_Mo%{OGablW*Djrx)J?_6?WnC)ZR|c!T=?Xg`9O2lO-24*=y# z|2OLgxbB94^`n0Zj4r;{@{I8VYBS_qD6;_LM|(l>JtnL89zPDfangorr~gg0VL94@ zZXQ*AZH!t?Lm7@aYk^yIjpo2(I`x{7Ye{ZhZW~BwU2gwWxlbcLb6<5Y|S#sOq!(YBx#$_b!8NB}P@BMt<_m4SqzUO@BOft#L zobz3tXQ=<0!=5ushTvUtayOUlzn0*YiqEqA*P1RNcK5O9F9Hdk^o>O9P1{H`Gh@t8Ypn)jxcF63fY?FCJ4euA+{I5LigSF7U(GY{hOJFW;Qu+#_z)lV5b@ z1T+G0t?ftr{q&m}IQRg%-Co*t=|Ce^;o zB}8|H7Q!+ZIwd;wewIxiMTw`(w(HD45Ih|1?l>={OMSofe#~)+zm=Sp7xW@GTT3>6 z977H@q56wKq>T>|I_5FOxmGUZTr0U1&PP9VihM9LGJ5-TP1c(HH9B&0gVK!{`0E>} zM>mjjPqGb^mMCVr9hn zl`pZm@Ck0oB}_p(0*4PiN$9V|&EY30Hbt&BEUw>-Ospvln1bJ>qjY03?$~i>3miu0 zeqqlK82Mdb!g>11z5K(ce<8&!Da-G?d7U|?U~GGZGjCpx<@E)M=y~_%DF1F|-@NXU zHz+l4UKdi{ysl*mkU{rZ9Kanv47vU!lS_eP;R8Y&zI*n_1pMosx&7pm2@i*Ns2m%) z4kC6$SIgLxI?a<$!mUn@F%_E-cX|IqztUHJc63CW7D)+EKf=}jmgbWd$rbNhc)NHX zdlxsQc%La{m=@Aq+?3*d|AU)yK>Ia}s2sfT@)7B`2P|7O_&aaWaH`h}p8pFtCH{8S zFE0r>+xFUx^S13ZXcfd;3TS+N)(=HOE=a~~Om6enh7oxD0IX3l**fMiw-fMa65_`U z<2w5DPZ9k3W#kN_eSK==h)TZz++!V)l^H92@N`oG0o9M0`sPRGN0^rMW@h)-1<{1s zKSf36Gt&e@ed{BsI;N6xeoVCZSJBUVWI(+F_d`cWrwOd)q|-#m2Zi~#7`MN+kbU18 zQU^x!+V4uqsM3*St<4!}(0@8|-Ke@IJlm&C4!M!;cK|x;gwb!8DO$k#6`S_WNYQWq zW+dPvzkfJt@-Ic@>x#5a#i$f_ozZ{0bduk}t#d|_@*>VxH+LlE(CXvKFwP$nK@_E< zZ2s8sByvp2NR^(*i$>c0jvaiV-yX(1$}5USTIIVRc8{8b#npt1g!9M!_YaPK#YUJ<6gfthS5C($ zhYP9H7SFelDs?3*A8AkVQUf-|UP&BCIzzJ98zD9?c|emJzW>?9y~^V>yJNVW{Sbiq za@kvzH2IJg4t%6WlI1?w0-utzy!ruo2LLA#ysGzIFLUW(TDgw!75jTQe&c?_yahc%`+}Z`eTp@JrGt~eX-u`0 z&-J!8suje|(oJ%r5%)Q{$(0uKdq>{2j?J*ni2 zIfX`|!P~IMBzDfeZ;wGDzf*14(2Hk*Io3VTz8Q&<3t|@NIR0U=`V`A`A@R0KPYzolaF|&82#xB#S&v6M7Hav`&t^? z+Zz{f6H`g~`gm^24I&XJIQ}9~00+|4YftL%0jE0d@+UaxKlu|Jv?XJVn|1sz?u57h z%bk$>|Kv^pX+kTIqBHMuCuq}U+&qkuIWBd>UxWz>q{8SQBvUpj{xHU-WgGp2k=nmT z!%YLIf-#_xX{zqBKBY*=qC?2J1epdfs*MX4H_nJn-!EU|cNzUt)y8q5r2U5on!_v5*d3tPmY8JVsnX8T~!|!aH?w#vux7}rrvMp(DpJki-OYK@)+XCCd z=9zP0Fqf5)j{lHLr02=6u61z!K}P>%H8UN|fFEl_fBeT9jgauMMkRw2+8^IU>g(0A z8ErF2X}wo1Yi>ftJxz_pIom`^+or4OrnUu*=$xTu8e48rWt;I|TZl7HPp8HjoBnv3 zolZuV&s57&W{|Pvv($7-Bf-5Y%q9g2qkpK58J;B5#vWz{C<#OrA4cnhbqd7-$;s3^x>FaCW$+d-fBo*(JXKq~P4`X= zY3nniA(d?d1l`{|<)rpB#Iz}S))!*QvG)(+h<^Z1!k=E9r&3$q(S7(MT0TxeOGas) z^?VFD_Rkm5@-O6!`!h%6S#x5E?O!7?%|$A&fAFw8CXQ63kAr>aeQt5HrEkBjYqR~=0N+y*h3#4*Pf>e%uSSriMNoD05QdzZJD#w2#l{HUD z(LML+E2yFX5a15P}x)Hw{ zOx&?RDtB>G`N#`W`S>`g?EVR*u=f~{;d`Xw85FM9(^$!d{YMH(TC{yF5GBY@z%E`~{okztdJDTT7 z3uF|TR2vnS?C6;b*^466(@NQs9sMmfQqtW*RbML1-{!elJuOppqcGDqiz*uy6F=)B z5oe+{P%dQOC_I)EPc`mHj2nh#M^El#dA>In)#yxb z4tAOLY?OQ-^>el_>#jTmrK4}~L29sXF!f?#Tqfk0{)}Ro8P1$cZ@Sd2PRGUSO@r)9 zmE`zT8_5s4QPl|B{#c|DN^TTtomBEZxuYiu<`i$zK9G6{L0l`?4PdqKSz%d-w_cQm zTOIfEp!c>d}(YOA4rhgIH6TC@1xu3D{!anm{%3jS1SpeiO8>>P^rtL9mFx&oNQ1 z;AfF-;h#aNHz+CfUXhe2gQPSCrNBEeRPO~0Wk(@)eXhiQ@lGZR@(%OYm;A^1eeGOW@ zuR_a%LL+)!k+dpJlGXu~0*?Wmo}ncarLnWynU8^ObmTbnm!G1krB2NLZ)+fs4e^w-v2E z6macqya-Og4PbBVl3(i$Tm;-lI66IkbPBgG5`(jM?M0B)uDzTgpaN2o)fb5^xN_eR zqhkLgoI>sR{0|%uTrQpCLYQ<8?-HCtjY8~QEFEHBfOGiTa1NW|8r3G9<5}qgv`U8@ z#pzflH5-TYG^5pv0=B*xIK(~;hZHETb$g{l7NOJLARV$bLOP^-G7c$0AyOz{3$4Ki z>#Z(jjEa#Hr4PpEp|5wGbVO^UbcClINA#DWwHpNjL`LHz-cdM72Y41oN+(gG(_17R zQW7N{67=AZ01DBA0zUBEi-fqhwh3KeRLsT^j&r}Glgg3~iHnvF@nztUcobqVT{^@g zUL^Cok)5Hq$mE8?@UPzn zEazJc!3S$HU^~g8*o&d+lzzJ#&@vj~?5^Vo`jAZ;=A@`eu(py?ik!-=Ab@o`;V0}t zE7Nuo!CWs4oL;RY=Lp|(ju;jrN+%0-@wnp)jZ&C#4haY4=Rn;!3I)Fi8X9N}ku(A^ zAXF1?-8n}R#V=55#EVkNd!W<>rNNR?T`ZJ@P0}#Sq+#Yu!|0%q35`riBR)>jz*tEF z!sNAr0)^wkEvUSEsZPj%iU2_+9=k1_Xb(z__=r^Ud!bX0VbY~x`kc}*W2Is6`L%*u zIuXuhxb8V9q)8gPT+-+L>3ym>n-^XrUqg`nxpB4^rv)@FtWFLn&EOQYT2~>PAnZuu&Rktu#(IREnXJ2o>Q1 zzLa#0k_5Y?5QYMTZ?6?v_P_nxIW^yGApAYp8nINnJR}6^9C~B z;vPnnRk91E7{373(8L?%CN)o*l7T4aA6)_j^{1bM`Q~j%WBxgnDXUOskYsUU8+kf4 z4fD#;*v7z$n_dV$VY!6qmM};{UrQe1sKC_yHw5R#4h}OPdIGM4;ia_?qCM|OqRNVmaM>IXTu6yo}+Hy^40>_ z^a;1hg?zbCuG_5=gI%#EoB1)x55IdYq7Qc?KG44V%p7HJpZO8@4oBb-gfMy@0Tpmb zpNo1pV+X(MJ=LgPAObGwbJ`!u+TrNiDcOT}o}Vv&)M9=xcZZ{Y2TZ`#k(qkK@XAXL z`?lZ(`Li*?1I5uATld!1OWpq^{OwA50B?ws;QRe5pl)#3*QguBXFJsmG1YgOeTyDp z)eRj^-wOLb6M{=I8StV24`@U!Xnb$>Ua035@1x|qZu5&S)JI?oZ@*AqByshIU9z;T zyE6^|)4{p_ADZ4^>t8gzj$q@5_4Q9Rf}{7tdQu-V1D?)Wid>^E0f6dl7*+qG>HRL5 zG%Xs3#IG@v+Cvf4Z18>7KF*`LrmZr`DDZG(4d#hWW;S(&0+Qe$SN8C2=;M1~^+H2oto|f6{DW_%S z?6qf;Ps?bB7cK|BEQxX0lS;``!B|l6Qi^MHVoQmwJFnbpECU(4L$m&&hYR>Rb5@r9_STv;jt<8 zhLi&#kk-QU|KZ0rc0ag&+DW|0eliVvljF-fPx9iWJ69-C+^xAnNy%7LqNvthp)91p zet;Kbbm zPh9E@Q%a)&E!(A*hmaVaI)lv9AktpJ{zw_b3x*#lR@F{wb|LoaQr%4Xb)8vNH&b}K zZl=|uubV0H;l}EsH@8qq_fP>1=DS+4tfp?}+)IGuDEnh?KkGKj$rW1s?)UFx|6#!G z00V9%_nqu61FrF+1k1r5`bw8_lsoj5lm#Xp`~4u0J7*E{_n;v0-imSjL53ysNabU& z;rkB$hxb;vKk#qN8Z7vYDd)=H{}=D=T#5H~!S6^A`?6`Tko#p5eVbx|((ylF_-#!o zUpE;GzHTzWpTJlA+%$9?Q>xx;81YNPv{@2w?Bp5}t1lW)$bmZD1d^^_qfPae>-0Xj zW@H9NLk#WXyrC;6dqtlLx2HX%xQXzk;lyBBW@Y=lDns=kz;hK6eqJBR2gU4b-UxR6 z@-f{^7HBjWgE0_c4;$3t{C1)~EX*xWhnXSt#jr4&zsy=0T4Am1EdP@XC^m1_dO)c9 z%Q%1e+vOn>4zsK9MjU>}Ag>3N#+4Ut7&O99Hw>~0;Uik%CC%cR+@eEx5v13`m~aFS z{EExdJpMAmY-%!=zZ+)jtliwi(=#mw`WFjnz2B_-=aQ%BZ=hF&t=dGK%8)fV;M3kgWIu*$sqTUPySs<-ruZf`HnoT z)K?I8XNE@jvVt&-dv1bHUc893d?H+WdN_y~7Lhdx{AVMUkc*4>oiiiZHJPE}BIq~ngO$3?eO{q zV>tf=&R-J;n&a7oT3TfsKZkbsC#e+cYu&S|0GA1OTA&Dfd&u7$Ton@EdK}zf{eZ5;=R)mPYe)gwCaLhLlX?|M49I zU{R)o$5I()^Me>pqO-E8_3=z&{cOVwY;fPJE-97I9ia9od!DCX?;XV&pdkAKLw_2i3vJ3_0c0bztUyr zCpyiXp5}Y>wCFV^L}Lkrj1Uk;euRh$9ctY=7)^ZIGcuLs8w=}%`6t8~?I;PsJb((h zxmo@|v{~hh=9}~A1Uo9upaPdRhh{$w3swJo47-(Vj&`?MpQAO_UedtfGxdFq5E-vA z8VWdx=HN~mz70d_%U|1D%;XU=!YKZ&l<$h=RUC0@WE+5j zLPB*1W0)*(6?1m4sq%E@Ruc}4yo5{nn@ z*OlzIASpAt$Z-EYO!T=<3hGfr52KV763J>Or=_*W0n67p+}I2 zz!Kevckr*xqCjW?!pJi#sRD9ypn8Iuoh1)tR5I|it7P=UCdWYh!=~!9+X{~Da8$4l zn@lEeVI(Je;)L+nf|me^NiTSb=20ab1Vo_hTEzVxqTg?)k-ElbcM(f(7a@bof!ylQ zu*)Mt==Bcg4rQ8#sU;*qY6kV*K0sg9G5f$QqX*YXks2TCAg$R)fs=g(U3CRC76Z?G z$9{T3=42YHdB74?BfK+Y(BgJOYB@j5qOW+GGZaSxk_P))3DogvAS*B83r8f*7|Q^F zdfuiGh>b%ftEGv@~LP=JDhiQIT=*vZ7Zva1tSg zm_Bj-`D|#!pz}0)=<*_aNTilLo$Fz>0Ggbx9}#^*$OfC9d$7oz||LXNMOJH}e33T4S`osd6 zd|~6fSP6Ij2Q4uG@^<;Nl>mYAFIF!>5VE1|`WCm*-=1U6UnsL8XYPE;thUxR&c6U2 zS*;UcHjBbJ!$K1&lG1Wb<`iG;jOC(lV&n3Y!ji`216GG`>WC%6(x&BVGUD{%sYX8n zS&V^kGTo2Xg)Lq<@aA%>-&6eMbz#kLtIpqV82jrSmw(}VJE%WcZb4IKXsz4oQBqtP zvU|t#VCk5iX{?!-X{_~T+I&+#o5L$#1~Amb;f(DbL@BLl$K`7$VbL)pUJXn{1FZVw z=FE&mB<$(TLAtaU(y-z^eE-$a%~Gy4G^~IQomb;S$X?BwF)ijLk66Q^HUgF$p*W-| zqiQMm#y^Y2Z1duNcTFG(Ie8D8?k>*M%;8<){MA`K)+aO#3w{nAjt)HWqaXTk`9W7%cCoN9^8l8jr7BvOw|+; zr57e740Wy5=qnVeS^;>KGtbPakrjOBt!lCE@y9BA&`Py;)hII|!CA);}Bx zron7h4ite?7hzWTl1Sbpzz zoNroe4XS8wEf6U_uOl==y;>kZs3i4 z-{1hrG+VU1QNF?$A49D$TGXh2UK&50`n=SrJT)y=zyImKQA;QLhyV$cA zb$rx(nRCz30T=Vq-OjH!m1B;4?>o~FE~NMZGu7?8CaFOYqAVXmuJNIpmIPVjK@I;Z zo@9JPt6@__D;o)t(49lZ3U8e8D#C376M5^120ivdIe_p1T7${d$ zgZ5|@9c0H!PztoPEsRZ{OQJ`t2L16WqA91;RNgA099^cS;#ZLjV?Y+PyY9_wCiZo? zfGg->h1}_SD|5dgKQ~Nvzk$JyY57RnDO{|yQ@L0=GPgzlBQp09w!5HlUdu8Gh&8~J z=`Ygow0Gihv;q-wq1?ufdISZu;#-_`8dkctMr6(=<&~WO9y4%SE5Sg@k59u5K$TAd zHNs?s4EQF!W-tlkUo{v^6A-@en!z5Bzh=mvz@f>;p2ezk0zCg$sPfJhZv0m`ptGe` zW;NBM6G7H)055pUVj|%k2#R$Zz!u&Trdqc_meScWUY5E_rX4RcrtG<7%sOju1Qfh~ z%NVW(pa!*EU9{iYaL!QSUu6s^YgWye!%Z*-iWk#^*2GOB-0CIw+EcTv$Z?`X|7s_) zTsxJ&ZJ<;9t6OBI%5cKOQ)!IMP$lOIOXX*QB+L1i10jL)Rn{5R+HlE*?I1c`y3>)L zbv0c3wibJHk`@?NPQ7B4T8yDTPgee@34-2l>Ne2)rBOGhVv2F+1qyV3GPG&Q0Eaza zh&~!J_Ak&ke@J6)e*Xf4_TgxkN2^1oeU4XVzSUTxEt*G;7Z}d$E>p%5?Nd6#={-?y ztobYB2N(rY!UYJXp8-lS2w1@(+iJ_gD0j`I2j5e4d_cGWCQu88$~o@M{FLLzyu%q8M6O-txVjO=#>pRW#)c2LQT|n7ia#7y*=oT3 zVWzeABaBItFg@UK;Z8RIoS+eI-T*@`tQuqt0es-}6PS7E%49+O0ZfMlSEhN{#P7SnO$U#8aW5tKMjYat_Th)Pn7%>;R2L%7!s9u_@%@D_IlBuaZ)`q>Q0Ggo zM$Dd^zF`pKhe>IdxoN4&ifD1o(7a=e!9CyT_T0={X1s1iHh&%-wo?yde-Qih;gIn& z9mf8k>}Emwh?|9nN8H@1Q+%lvioVo_q+Fv;S1{{5Im9~ID;H@C zM5i~6;$qZk6%^u}IMDO_LQ~vXr(HnGP7ryEd?5Bpf+vdNoIyb1@qsul!GnrC=}JUQ z(iN8CA}!v6E1{l(D^j9!sFZmY3T3Z}!Z$NXnP(tKb^17n@f^gU5n{IiVu?Y@;zJE7 zm=vcfpmh`{K#z#&!&fpPeCvB|anCTwQlmy3uEyuoJvUfTtdy&b1uNwtnH>A<&lc5H{z<8wK^8-830N3$KQ9jBqrRvzgqX+~W$cx@!vL&&^6f z8q9ctz~|YAQs`Ig`7(3tO;%1HvSkxSK0z}Wx%Fc;gM78F4U8>XP}!nsVX|vO$X)ms z<6_{$EW@@O+X}c&R)!e}GhAa;cCUBWBu)g6=|)n?8g(xcMXScDi`n3=5wX%29yolO zQEj+)XH7axu{D_^$Sy&3k480oy{#rYCEAv~G>I5TW>bc#$;2t=BCD0j#4zkRA`W{9 z2dY2R7={lPh76xgygM^U*s>ZDmL8`yjM}8Njd}nH=03u$)h1%9;6p6&(Bh-+nlbHw z(Rg9apFkdK$e^Nd0C`mApmFUQQXm0&B$D)e%8*PFr@Y|R7W+<+>ag`r&+!20myYdK z_idz28(QcYpfHCixnzP$z1|u0|42Ime*En`{(;j@>fV9V zj-K^PP9=EPL$t4h*td2{b%Jm0z-gCfjrTXMbIB=Jcjv%qI;yDlZpM9G2dn(MHl zL&I;5DyqMmX@9?lh%u`MPA57&D+W%-^e;at7nVz(qI>DnXUt0mPOI)&phj&GPM}_N z5KgNzOy4^5Lg>aXMA*RsT&V8(=q#C!8YLCIZ3CzI=JYc*d)wm~vkPurNdOzu)>x|evu1gLFV+9uOzVa@)BfcCrZ?LROj;IZYC1a)A6E$b=m@aut^B7BC zI4aIy38X;D?YeMOoK!KSo>7)QVN{n~6g?V@DSlq~k&F3R4peOkx`N#T_zFN*=m1@z z?UH9k8;Bf_#exP6-`9_HwESC{@bV5T&>*Fw0I9LLUGngukbF4@k$zu)#ud!ot~6&A zfHS223^Ed>OEd)iJ%i)w4V_~CH*u6P0z?#PjQZBaGJ5V=!U&M6g~TeoPGNv2Tu%Re75{) zVa#*;Lo6~|zv}7z26l4Z5_Sz@!2(*ZO%-CZvFi{^cQ1nL0{W--Gj8@iEXV5KfXF_* zU+!i%KZ{rW_Yi>#tGqQaOeiJ|oAG2}w{9ZjR1K07tZ^RO+w8XQ(6%E1ilLi9;PL{o z?Rr5@w!_F5Fe69y7DBz!zfE$pkIX_V;>-dT1l3V-aDjiuKE*gaoe!EE{k}qz*zLO^ zWbvzR2$q#M1oMg)O?=<}@C4uT7fnvjGD!XZ`WiR=ezSSWizY|>5((*G@kb`}B6KxB z81Aw!g3u13=fUuN??S>pHO}d2d%+abKNl|axsV42GF;STq+|j3l%Mz`6+ZC=le4!L zD$TVBvZ_UpRZTG+vOk=a_eZlQ!l`iYiEvd@xYJvSh$=M#u@ZVKAo|Li!pU>t{N?BF z_I8i`Q+)kTv3Ja$;^WVSv+Pq|anH!7OiD7*^k0&~r%aA$O|5)daJYom^Bxkg{unNi z1q$1yg-1|7Y@&hJLlppOX1b4lF`OJuHAIJwr?=D7s5}WcE+_^p!F&-pqRe@ZvKO0H%*=Ud`2MPTI{X}>QfG+#V^zM+8a(psgH8H&MA;g(K zb~rWPy8p4~Q`C|+&s7jUReI^F_}^b!*}^;F1-a91za*iWAbPqbsNgk}JBkD;;OjEl_oU_2b| zvg__DS$!wMg^;$VT>SCHHfzjcn-J32Z-8Pf^LPr|_LN%Kw7bq2t^IhKxJj`&b-MW4 zfH~}{U^Ry!h5f(95%|fiM}SL+LLqStitpSuhvByM8q8s|V2D}32&$LwR|!>Lt*;0# zJ^c00Bw&@OI(CD-8dM$H*qN}Izy5)4W|*5kItYG=w`Ydg*T+?!2IGl7i==`uFbr|? z_l{K-Xm5`drk`ll=Kq#P-C{ysx`s*ne`q_RGo)#77&fdbVBd`6a#j;E+34tyRkv1k zBgXx+wvV(oK@mTMeH3uBFl@r?Tz6}7(IB8A?;x%B-i1Z}VKRx-l>Z82=D&%uO8AJ< zkN<@YWyrW>-j>%kngQk0-gq6#bOF0J6c0}RO(Zon)7XR))>XW%4m>cyD?y)+3nLT(6WM;FjU`D`dNk<>z3SIVe zZ>S{=LMjArYI3N>U7w6N4we_+ZDg`1uszmTes55nxKnm! z1C{In>p7?0D!stW(hJOtbViREdZxWxOaQZPvnh#=wezJkCgpvc4NF|^fE909L>9(+ z*$!#0q-Niw!u1ENE}xEJI2|4wLG1x6Kp_rTV@fprTsSJgggAijseX$~u%qS-Dj^1x zZ*fi!YVzhu8cVt`aW|(G56Md=FoNEat^rxbOIb0bQZG*27XPnMB#i(2^(25FKdd;@ z!i(3GQ^qs(`hr_Ycd`w%5S!7h${xhDW*da+Y(s$?`7D-M;=Qhibj8ZIuIL}qv0v{j z$k+Sk4P{GA#d~fk-7GtpO_0o-8g|dEQZ_hq#xo5bP#fObv^^ zXB}IPpa*uvAJO+*BLSOC4yH%o_6O`T)x11%GB(W^aLVKoO>X)lI@l57@rM`$!{pxO zGVOFyuw;RE-i|Zl*0{NVt+Yl+Dy@+TBgWLw!iXlFl^>IarT;>f&L0uREV#Q<%)h%+ zEvuoUM$FcY^WS3(BnMcXp++b+;IQI*S*upfDjwCd`Wi|oUCWw;vNfzh`?8)|!y3gk zY<>k-*2&t~zro&6VI@&aS*=huwl-22x2h(Iud%|s(8S8}E5lS-HL~bRlZ;!niZ!N! zFn!EFYGfDQScD-b4y{iJ3|| zzmY@3pP#o8_L1kQ{8`+z&!IfafeeZ{(j`hulI70|WB%MJu#1`{$oMvxHKJwK7|ldS zdRi!L91=>81Ie(~IUy;Md;d!Ld@d04GscX+--oiSdmKBRa&pRQz7E9l2sfh2j3 z#;?RKNyguUF9w{;I0x;>7>v#*yPj&CJKxvDjRZ)1s@Wc}NrgSu93HrTz51~fLwT~;RQ@g=PJ?cQ#w*9crm_6Z zkO^<2AwGu0sz3cDG&5T3yniBRyg#(`3Vc4^C~=MMqu-fnspRHohe+&{+*InOeWFNf z{{9%lrDl-%mkyDey{XjFDUM5rmQE?Xlq$Q4Ck(CH6hp?PlbhslF)0AG@J+ovX0!Rz zIpmubf&U;+!)FIVoe|n^T0kKJ+DGt~Z%%7vHw=n1?P?(5sstaGtk<9xr^xPGNs|)paUY%qod5${G>KG{ zY`>AF8~{Db$s-p-j#Wi?k5yUh$Ex_gV^xChSXCB34GlJI6dHT}Zv_h!EMBy$vG2v! zje5zSy3XMKun0bItSZuTtV&ET42y6GJ#VA~uj#4Kh?u^;2=Lq+8X*C_1hG(ec5lTi zsbp&s6+xY=a&~WqPRVA>T{jP+&G(1GOMbtN2%ghbHmB#lYGSdUu5$DNCo{np2#s)h z;HPx--;1|V_q`Ck>q8@W_35gF-gS_CYazu$3a)|F-3h7Wbd^YTzL9Pa4u?i)**DT{ z;+lH~l_k1*m-pM~=xouxd{CL-vM)U-w=6j*=NBK8M_{uoLcRS1%G`dPa(NdXl+$V1 z&R(p;$>}PAJzYiMZ*c|N(2jaYwz~I%kPZiqP

i)?)vpDy9$d!|W$j1C_$HPpZzj zf;AX(0@PEoBdAZRT;0_eA1iLYx}(ml@2CT7_%S(O;>;GPD^)fN3TLqFnA{O4t0oa1 zNYq#rOwtB@j%UnQ>1Ab zkDWPd1c~V$f^UBzK)>b0@*3Wz-ppg9kh<2KiCMcHMQkvAt<(^}3?{{se)v)G^VAzF zl|;VNaOuWM`#~~eGJCKtR7ka7Ag;|JS7%$2ug>O@A0>|7q^q;FpUB0_bSzEd{$j7r z4rO+<#P({Bw#Yt_Q?Vpkdw(lDK05Xjd7a}j{fS(@td)NEQOD)!pUC0v`a~{VxjNe* z^!-saRe+93D$+<2<+6w4JXV|sEaHhCR4nGJvw7rMSj;yHEus5Zdj4!U$v;uE8L}{! zkLylgjy^)(r0BO-CiEKmXFGjt|7EfI61MdenK@DeV57Z1x-|H?y~1u*95`vxBqs0y8*UU=LPN!l^gmQ@0v~ zJ0E44gzvk6!|>7A*#IAI9Xp$4#vK;E`95o)QU3>GmMLB|{P9@MfL|y&QpE^$Qc-yX zf5wM;>+|FqQ@Ny5SXd$><#@{4>`^n0>vKKEr{G7HH8`&&uwoRkr8n%zF_ry3Y=kk8 zFFQ}juTi0%&_qK9i||<&aTmyxKXw`#8xymQf#JD{#d4W0b_vO%M+B3E%gN3P1h@&Yw4L@yhgmrwhcjA-Cwt(8;LvB(H`$n%v6f&8<> zQoQus6(TL$OH|z9y~J?k)m2>jtE))oiu^livI77P{Vqx)V~#zW&-ehXO&j+0l8Vt7 zq41YzLrxo|#{;_iO@j1v+5UVDb(*jc$jFuAofqCC8sVGwNJzf?xq0sqn)C`=GK+B} z!lLAZWs0*TnK8X7uw$yUpx6#0`DI~>Zx?E0);mVk>?&i(HNmLGroSdM8Ip1{YgpbG>_Ufjy9aUB>nca$Dj<;9)sWhUT)@1i2x#GAAK*ZE&IDmY^E_ zo10Z0lM}}$K+__v? zcS0uMkQLR5Q%;oHoV_PX4VLa=TTIDu#vmLowhiGwE4Eo0uz8AYe1EYm0=*V*vCW}A z2zbR_2x#C-ifu0Hx$9;n>VZF%Eq2n*_hBgCegNwoS}qb|FN=TzWXKc&J( zm_1K1)i`Ojjqj<(Nvmym;@_&aowM|!*@x!%YFk2Z{4x1oLQ1gezdd5G5~g5hu-s2e z2k_0+_(Ih-XRuTY%O3>Ke+Q57qK;1RFxnz~sH4x(Kk}qJu^R~#7T3}4cCpvIxXxxV zEv~chcN+i=eMG|4arGJ(*Kx*J5`ke|K^6kLMIPaSKKT|tj$*3YM(4<1x3%d@ zfh!f;RhJ=H#|W)#0~xKIRVoV=TplTgm|IDrXN{Jz z<4V&jB$$TMbw`CxW0VYD#j>PFD!cGVDPDgxeECNRSqOPO+@gLxoL-S2Qfe2AOd%z# z@FtN0V&!dx*|wgsg-jkwe$+8GE>OnAa)EL^z{CO-OfA3~m|Tf& zte|Q7$XYH?d45{OU8b=&oFgRy+PMn$4d>{@drRJM;^kJ?rYw3F{}ylj@@BtQYCd)t9}VGLBsW4Uo#Dp}7v z3fXpf-1@w6aY#Km91|vg;33aeK|?cJ4r)2g zI60{0LT1Y&9G$A!au-pYQkj|AxciwKavl}4el~m^GO0y|KN2d=?VW&(*!osVJoWf) zX}NKSV_($OiHE2cbxPsnZwwyhP0nT+d;9=aC`X3Urh@lX zXSu*=W1w2bOj{V6_P#1p3{;<24Wm+NGP7zyU_3X53m~_X&7c`aV00fK-7;ytZJ`2R z2stl-noL?$bD1=8b+acm^wWdEj-E*?#gn=y8sWCOOgbXwjgZGx7S-b_voaHZhBx0# z@hLKCmtFq2ik?D?J|>g4=)VnR+Xic>IfL~-gt9hm4pV$ye-F*>K2EFeO{H)23D4a_ zGs05^=N)Z~Zv=kT`C6j9p^O?-uF^&k?RFKrNfodDNX0&^(kLU;%7;~M#hTcEBo!ZQ zcUtb$J%1PSU{(rH6u9-oUDQ@A2blu5K0@}*No664^(vt!&vB`5J3|1CL*Q5}8UT~vZhoi@v{oi^@RdX$So#quJA7qLR}pkg@+;RpoZ5eSDN9EL@| z_l2|DKS(XS`NRBzn*(9wn(g_|w}Z0w^XP@CpBoxK}vjH7uY7E<<&5Q7`$I30lv|Fk7|P;*iNh&_IYUOz z|I_C5t)Js$UmvMp--*=<@8@^fM7s0!k%_VP)yk1DmiDcBFGN`N`bc4{ZzZYT))g^* zTbDAwE5@_z^5dHRbyzKuHC-mrl|=WibM-E+?_ySW5ur?yg6)4w5oPquq!eo5unzT* zaqObk0YI+Y_OQlj$10QW3$DY{Y#rXH>I1^5ma#9Uv&%W&LDic zz{5)tJi&FCC7{<1&AypQ3BGarUD}mUTx*sk7H+88>E5n`1z@#)Rc~Mozo8&uYwya(i~-H6YCG zkD{#+uSRY5JOacg&u&|P6qA(r+m%SJ=0z9tsM+b8@FQS#CtNp>ntUPeN@PaN8{=vn z<_d$wNtGKcF+F9ojNxTxr^Hb3^>cex*JCMeE=81*eazV@Fh58)_2_nsxdaks`^1Ua zJtm8zAgV{f3eY>!VBsHDIYKwnC9EHz345thBlBrL@ALjc{&keO@J)`7&v@4m+ycBS z1X^k)sa;fdzf<|_I!6GI+9{qP#3+8AIYUQRP&{?>l9ecD=$N`)PH%eME?!O7J9^XV zcCny1F&og@tFPPTXh!5HR(&GH&z$NI5W%vPCLLIoxy0yB@&%PE%rns zQJwdE`3N5gTSrg4v}=q+%HlRpED(ev8fZrkESRDG95h+2Q;OltID^4=M;upP-D z)^`@B7{2=TeJ<==M&dF3F)PCP<&MLML3AVem7?u(1RjeQJP7l{6n#8LiAEqF#N-fOY_%35? z+K3!;V_1gpQFaIGV|E`ub9CCR2J+U%=O1%g&c=ueg>?t@G^Of`99Q zi6^x2Ywg>8NYT-yiNd7qzHQUEwIRm9^sQ@?*V;Gu#I+$Cd@l<#Huwg(G=w!xTqQKF z^r?Q-`KK5IP3nlEzcR!mKqZhkO>YPI(Xb=-g(*evss68M@~eYo&gEw1_pE)b{WI3s z@I7m6(Zalo{oL=_{I)QyeLLg!bYtaQ{}^tw>A%-O+}nYLwDW>x#@orN-*ViZXGTIk zxvZ)YcGw?*svW=lL)O__c|d^}nqNXjunTN&M zvBI;9-MJ@grS)+F-VTG{<{pIjfI)F~XRkBP9@Ff^&Fh5QkBYnN_Unm-+s_+&74J!} z18zT$y+iT__S;};?Y3QYy1WAXega+;z0r_-Q73D;s3JSL%BoM+nj@|{9VHP(_5=zw zAeumI4lA;Y_Au=-4cqjMjz6$9Nf1=atl}wCzcZ1IzdbNe2W0mN16^YVHj2q1-waa< zyF*z<+;MwrbcB%EHD+}5ysgpnwttb|6BSbAeSc%CTa3Y75Yi5Md;**pR+5p3v9Jg_OV-BuXLj^PWLl6B?g!q4~OwXhckz}|-Jz%7xcPW$AP%NLM*GyItx@J8e z+OByXc8&jI-%u}kd1f-sC6-uxas(py!YmL9E9v7?n$$;T%ElDCJ%K+jIUD*7^fA(~%1-dDX!!(lL>KuO=ewCiTUz?|&Ih`2$#I`=5JXgVY>-hqNTg|hGDOWzBIAP+a zuNkbC_ddN38ctD+-4VF(wcS>JVSt9c@cI2-+TfI8!`TgX!EuPzOQ{7Y1zLyP%OSibSFUfO1)A{T_gGvyz2aTx2C)rUF0Oo@!?I}`J=;| z!Zn4%n~0K>1>wVc{Jwx{rEggk+!vI$Nhmsw44=ZYiAlW$9;58geMjhE5WmQSGK%b+ zMIXA4F7o9=_t8b(#&?mo@?GSu=pt_kHlf2DY(j_GPSl%L3ral?cZEfkqu;zukA5?p zAz#?0XPv>;)6u&1;d;FOKFZDvX(<7pg9TDRQ4l;|h)zfbxV>D1`Ktv2OMn}XXcm`nQ{#d!K-+{hSnDl)CI?J)y@`xDn z+U`{d_gE8yL?bxROJb$gba=P%Z@5fv?dCa6*MK^8by7a8tR)BfCh7{mPSKE`tkez( zi<2`O@-tF(dHPfga=NDc6(7jmo@(>t*h$e|RHV;x2C_$|YT-LI^c#$Vc*5%-oTu!* zUfqTo7ksFoUuqxn`AlfCP_tMoq%b-LR+5lmxD6x zkUK(#`*Lfu0cy!JDeU?*0gQNX1J_xS;9fUccswQEr`@e^c$nRA(>!dA4`?2zIJ{~g zdDF!BAdNPk3dm&?#)raz0!pBAqcDP!l)$_qDB;a3Y?lCE&d0^!T%)wQHI;3AT&yIU zPs#ea>B17^Y(PRY_O75L@hOFNhsS!mJ2GZuu=ND@*`u#ZpZvvL|MR}^39*g%1Nmjd z2cGB+5P!@OUgkfzqx{kab5 zyxO@4N^WYM$IfnQB~``H6wPV=uoo*!E|Jrs7b^3a=DG8!x$L|@H;kilO6gtCji(z+ zrr~?X55dngmgrOm3C&P>(ykI&dyTq(HsQj|OGuJLB+%9TNXZe;xD%#`=wZ`kosy z(F@ePSOu{Ji#0EWSU)75tngDNos<%Uf6(eqPEPr-m5u7mq}=Hz5n0Df=`ne*KVD8f zvyqa1mTBCcM9gPlM^CCDdnPNdXTFqv9!ib$3o+!AR*~@!a87hep!6t?o*X&)<5nXM z$NZ54*Lc#-$s!}X-4|Yl_hjvpm{WwziP(vH4(t0d-|Q1z(&3d%i(!Ffbj;z`_)x3RY_Sm>Dp z4W!a1W*ST2WB<&7M54ZTg0kIP3?F+7 zq>@;T2U$j|Ybo<@Pz^Gd){@EwJ>#ogOH8xwQRYXLSYyvxQjpE~<|Yz{Ff;}PhW!NY zOlmb+K41mrhNL6}3{c45x$HI`3GqQ}=9VAFw3zWN@{>5K`7#z)z~6v5)j}SKebGz< zO!!2z#){;n($)358>mcTY+WhXl1aZpOqm)T(Z$vKljP#(r%s;T-eqY>D!xjYhKjo zGz`}G1p-k&BFZAlW~aRwVc7iK?|M3KUh<#$QgoBD4zrsnh zDqMn;G{ztP2^w@b&T7 zdIS{_HCtE)cQF4G>>=m4JJD}SBf99Y?yDFThAl=f!+Ep+Iqw*pcW=hugFo+>WjJqk z8O|G#LGoonLDU6{-;DEK_P^(im9-Wma7}YRJ#ou4oVazGz@FyL>b~PP9K|xB&i-_U zW95+pGc4#_CKTpfVElO(2K#$3ert_jzm4(R8GkI}cYNnw=65oFM(G&r{y+X<+lXf4 zWV}Et$P|U^)d^D+>W7#f?^O=*$1x29Gsx&?(Yic?7!S{OH)IZZfVXQ{2BpM@R}v1o>&^s3b}`xY5h_U6YANaF@+mDdFy}V4f+~R9GyZ9O( zFVj6g@HJiEL*@s*r}lKvbTC!PzP6{soNxPv+TJHV-TM{gjZKz+MOBFNgI`iqGVAyk zWbAcRTg$Iw|I~GA2|YlsV`7xZM()_F^F`}RUUVJj&5_{^HqY_ zD?D^vF_YBLXH+gHX{=2zxJ+%S)$W=cLl5C%+39b0DATErsQ1OTwu_$;?jlOKbmAf0 zB}eeB_hAA!fhO09zXXwQ^5{5^j@wDnF>1 z4n98J6QH&#tX;boi}M4!Q4^C9*aeP<*qzACYLoA@OI$lpO8349X_dd&PNfI8Q@s@F zzHR&hu5E~|+KMX^*uuA$Z^4zKAku@IcwD{7O!6#zkqxU;7}y@Eb17*%Y}c*raJE_x zQrE!xcAnJrSSpO%)KWAB7q=r4YB5M%QE&to@@OH3gA3hq{Q{l}wvN}i)a@6u7`aT6 z>*pcxs%tJ0M$SbTmUqs6ajJX{^+#J6kZ%^2cR|F5W&#Fg0G30!2;O!`!8q${ON!KF~!vS=8r zl-3LSnF8)_OSfeiI9pPgBGHh5<>Sl1Vb1R-4jXWy0#lR&<=8R>6WdNXgLVKL8f;|( zgB4{98Z0<_3IziTz~Y`+P!Ne{Wzl5{Mbc#BtSmW>A&P$vBKhYal79}kM<)IP$j~C; zZ@lEXAW8xt;sHX945AL1UdTTM0{$rw;HdP_KRY~6JO$RS$L~;CfyV^PKk^jV@xNn1!*2kXxZlWraS|v+yB~p{M~_R$2;Dl7K(I|MKKc{~y4HKou-26qUZo(_B< z&f<{>oW+OW48R$DErO>3PGMn8Q72J;8)ZyUm<%US#>CI>3oy!Fi&6F(D@NK#>$$Pe zs9~SEBvx5-tuqDoS07vVKB1_~{E&MshTLnA=ySE>5(WiFG^GjY!FHr{wpO<<#_QG2 zACl$Jni8^Yu(+31x^1vbQwsB>rqtGa02x0=LT!&${5-zws%m@7wMEAqzkV)g1fME^{yRw=1{_= z+!=dKJeJm!RylkvxSSq8E@xLWE@z+_2jW?U1L6H)4J%(8q+fxNwrd5Ru22(y*r7%| zUcm-bRyW|yw>0oaUau+DHZK?)??J&qEdy$Mep9@6DUf9ef8dLu)bTCmx4lSHDtm5| zSW_z9pzcQk^Bw_61dyEK=?>5nz! zTNq5{d@Hnd&Ate3{cnX(^~{_rG{Ba@%)q@3*8Vb5I~`gxs)C>CYv5+;dk(hJUq&*R zIYQHTZAEpr`l7rV6%>R$`0P{d*|WU%?AdJ>x$~3NQjrvQKkt{3>KkAG5bLIX?`O+v zSCYw3!`~PFYXBeoKDLte_L3M(Yd6~IK5Gv;U#vXJq?e+Y5@|z46k(R0^^B3 zW;}7OjeM=Ye)JBBwR6-|u>FkMA)$v?Liy1S&?FB6VV(`ddCd^Z)@MWOF^{>J9Q2Oi3G%Dhf?UtBV z##cH?F+=Z@(AL9AGX<&KJ*wELp=OF?`y|}T`27-)y)q9FdW(C;vr~SAdv+1`tP}U_ zz5S93p1Ja?uTQh*)Ix==oGVu7RmBSO^=YMA$k`Hq?=OTEmeEEFY0m&LXLFSi5ouf^ z%^~caB?BndF=ZzBU!LEfD3fsC*rMu%oZ(0f5psJikW^@ZVkV&v5{mmK<{;71NbtiI zMemSF_uj#g>;k*Y zkN=7oxJY$WO@9mBP`|$(QcsBH>t6=ZH-{bJs{Xh+3@WB)AF2gE($|E?xRzgUEQ04* zoiLVr^Ff^uEVcjqd9W0Vd~+W*>^iyyxgF)jJ)R*e*K@9Wx5I^lEcc!m?4qd2NHjY^ zG;h`Ve8wNY=cSkExw{pdKjBkSF$1o@j6d=3WGLJ7Wh#r-k9oxTlk{UoD;3nB0`co( zzG$Q#2r}7HesB$?yPt!{DpR^)6va(X%e)sD2B6p?} zN|35UfXT~l0rngXt^R(%l>L?RzGvK-$?!w1{1p{xdn#r5XWq?Bzl-C{bfYE%u@9UT zNiVXIN+UBDd-P{+sFWWoH+$ekHflF;uck`b^#$(ClC3Zez*yi%+=H>?jfL*aek))a z0E37>YhESNVkA~=e{(_P8Pgd@=+vQTZFAHD@TN~~&9qwIIl=eQek6W&g}6?VLwj=N=J z+deLb`$}7BPg`>vA|Ki&wepb<0r;&ryqkEX^Cl>rHi5&|C;k1jBeVuJ&2_ipJt*)s*0vU2-QEIZ0qShd>xr0%yq@?6BdF%N9z2z=;Sfn$5x^wDXK8p;n6 z2450md2Msrtte00EhjbLl318_E5X~pyWZB>7b5`Fd&-~I2g;t-%lmZCX-BaLV+0lJ z>ps~+oUGlOKO%+q2*NIcc{p8l@LrwNeM_5%znJ@$OqKdH${}ZqFh0%^LX?9ekf}=5 zmIq!nP*3U{!E{xs^?w2!9HCUSH8;JA=mu3Pq8mO>4A&Q^QpL_D1n2S@AIb?f>G1ZP zooJOKuz?FEs#3d?K9rB6RjE}DOC%nG5W+I8&4@>c_ZVj^DjX=N zs7>q+NQk#607G&#Hiv)Z^vG4Is+g&6ISU(5MW1a|G&wr)8DH*!QOhW?#UzW=RYHD_-Z}arQuE+;K9ab`%a74RNv|7-U~&u z?(d>Mj(SqU=6w77INq`!=KkXOPw{4-K)>qR7tasnRK`=MEzHz)0?wbiPB53vTPGkf zIbDnB`QPTQD~1M}tdKb-O;M{B#hBAyFPa;BY;Im%7BbVU`ZgcwY05)ZGQakTK&9~y zl*nm{9FhZsk3~T|DS(En_$T5ChrSGN zs)I1daiLAOk%9t^zjWeMgXiA2SYiSFen@6n;XcA@`bkKszrZAFzGakdjd7_Ein)3wz`)N^Gb$#^ z)VNt%N(sm9|#rqU*sT`g#psoQbQhQfN-?$@d?9Iy7n56tqR=q$?)|l9J z$q&`6Z^Ey7*;yaIiNGv`41up`mAgt&9nq{WU#GWnoYHzqaGH zg=;q@vxa6JMOJ*xu0qgM|9Y%~`zjO=ir)j>lhJXvpRAEfqck_Z{#jyV{AF-V@|W`g zon6i@K20Z0ExA;SZ+C?1Ay!VsD-(Mh^GOu=`9qQ8o0*QC_v(xR# zABimfzW)}P{r$9};{J?(fJh`>Dp4{N9qc8q`icPuT(FmMfHhHOJ=I>|>{vOJ*X1*Pfi5aktJrSRfsQB-zQ|FBl=B82@0FvObYKj>;c-q~IQr zfnXQ0=Od)#3{ekxjWGS7^3Hja=w#BLBu7btDCZ2pzjf$w0urc1IB!-QClgXqpmd!8 zE|m$d5@$r(t5~C*s3IF^2`Q65q39RGqPZ|*AZ!RNRlH!Pz$VBZk}8I=(Mk&0y^S5@ zRr(^8=uYpHp(XAjHH&^_xzH@}eWa)qgJUE5qGD!^clv}$-lW#I$91!ly)SBs7zwu9 zh*1*pa;}HH50Q&x%Ng;Ec=F*7gT@e%>ir*F8l>aXJcp?U({z@oYwi13>6Bk6cLa<7 zEwg*EFHF)Xn-y=4uz_pd_KKuYBs0!+N4OXqN9Fz>#Ij|IhKQa8*iXNj;q`b;Dm|35 zF@KTLvcjb%;j(b#ODmdhNMn}k(h#qE@-;!v6|S85I#8*yl0~lx2CZ8}olvx`zuS?&k-kWH61}76{nk>*|cU+Ek+akysid^Oqy>8rK-v zRHtKWm)EIvGlmg)W1VJnmLP8iQ+pf)&2{u8P?&?GKzWiH)ELFo{(zoaREof8Z;a-T zX7eEds!gIThlKoGvi0d)w(XEGsWB>D!1So9(>&8x_?K|Gj%kd>Eu72vhBCfkjIW|d zz>Fvo3`$L78mBE3up>BVe8c&T-oZ)vN0>x+pUx$(J)O%A;UxWVJ1C6N_{a8Mme|Zl|nZ}s!abzRog+|?CoZojiKlZB?szL$F#v_1ualBBiTY}Sz7iz}E3-gyS zs4?T@B)TQAV4%j#EauP69FL>0@JDf;KNYh{^v=_{|OrU%*g`AnjmDxCkVaa zOru5Vs5`jeS;jY&@m0?}sIwk=T~*Bdk7q}$a@jpu#7cL>AXu;1)n7M@jD_HM8s2Tb z`nuUp{r=*CM9&+C7U~Cpv$R@X)MWoeHtc%5}=)PSe(EFc!O^m__l z>YpG&NhYFY2^2dzEmnzC_5&^p0mIpEocj{(RMFsg_(HT5LWkxplqEnXfp9dPWlRDz zEn1|Tj?9x`d%3a%TPMu#(*7WJ%9i1xIQKaMyxrZ~8%SQ3fRHEjxH17;WeG{4jM7T3 zFhHyRP=7dk26nKfyrmfE37iG!c2j44mf~^{yM14$P3f(Z0F4`xgH;iO4PiMo6 z_NiGVFXX(C+7m?Dm7iDB_r>8{tDmMl_g!#xpj`#g z6`vO6i*}cNT7(Z#&vBq8IAZHl33iPMJN4mJCQD=fFq37uF59G;8%`{~p@k-kZ&(pT zMKS8bqe;pVlVtU2%1W4Ltwb}G_bRG3sk|n+%4AN?z(8U)e!HV4>=3yl(klQr0FEBb z!)*MbswM$GGjxa89Fbqj%*bC2IQBr1*d0++i`IjH z&t(kMls|1jJp8T@C{;voaS!p~!Y_X&%mo_;iZ-6Ni;QI$WL)FCGv`AavTK1-#|EY| zYKOOGItV;!>PUX@IU-#HmLG=&9x9Fyn7XvhHOJ#UBd3F5Z}@aD>`guH@C?_0A**6C zW9=M{v00sJEg>r~^3c?ZW3s?;i zZ-H=x$^e@o5FW(9jNZ^N_Ts+{nc+qz6Yquv!bxQSrJKnVZ#tp|W94Y9@(9$&?>Y`ZIZ@#|gMJN?}en!~D+#-Gu<>C9!a14Mxk?%iyjTb>M zX23#ii0EbXy^-6sP#>}OPg|#MXCbRw`zJ06v-VH)p4a|KRp;vE)wv=-AHDWZtBb~9 zDx?Aogaej`BY8WT4??%D0IpUX6r%@?=8zn)8A4K>YmPZkqNk_lQYwVKN!JKv)wyH{ zUlGpj75V>6rO!|1^Kvw2KlzLOvIldUKF}55Eb0SYQr42ph%_epS=u%#Dzic~%Q{Ny zT{4ob$jd4)R=l1aL&X22)xCO3UeAu~U+t!!>p8(4k&mqF?95DVE?s+=SXBL8Idl`1 zLzn+iDl}7kY?3OT(0wV_Q$NWw*U_V>IdZ-1OtC{ZJ!$Qv8Pk(y&Ym$dI>Jr=8-3NN zaR-yQ2zx%EVwu7_pPHupEr~V$Ey+b6ctb|efB63x3sb;Y*!~79X?sHsVw~_JI-|6= z(@memJHt-xN(wjAXVIlNTicbSUPhmXgE@U+|L;kuw+_LAMgGB@hFGo;ZJH?=WjdJ>~AryOzVUPLA}HL zvqs~fe$pU=`F&^ry!Qbu_W(QZwuU=>cja3B9gW5&zeCab+jy7*KccPtM_x6_i%^$F zqisI5GQrdJcoe;VzLIVIZdADbW=L&oz6nFg%}5sp#rjWqUBG2t7jPLY2$v#V`cJTg z{1ZDObs}9v_fa=lq5LCg#4kp=%!UuZRoGd>d*_ySLXS&z9@9I5@7>3b@BYdJ%X^V7 z!-Yr}b3v|2@StFLC(@-oAL)w1q(65|Z|e-A5Im-*V=5%s{fT@U-5A|N7g$ zXzg1FLVZi`Vx7J>KaJBL_eNX0j$uE6W8P?o=cqSY+qJ985jbLrc6i_LM%(0Xz-|T| zh{M;8HW%7LujA9UtBU1zRT0&sHu~3L2F@eB^QppNIna*imCaSGZ*vuXVP8PW@QER` zxylgOT!qlns(5M>)DHgvPU?jYnG_ApSi!To3ehW@F=}3mpDs2LLT zs7xWm_PzYh7VzOKSRXqxph7EOk;bp`-$OJ|z@aH=|2;%v+`YMqK6b4q8xBJVzlKfz z+-HR5&z21w-3uC~N_b<3_>(G4i}GMgDBGH$0ugPll1A@(+LV{}Kj-VT41#_`Zskwc z>EU%Co2wE6ybgrlc0cGqQ162dM2iXK{~j4f^*MG;!&^x?ljhhpmTN4$Bu+HscW;2R zU~V?#!aS1mbc^2XOJY6Gpx7z5;!BN&UQi7@{Za#D0Kh*GA8LR!fHeHUJZVOac*!*o zO4zs{GiEE1)hqOFpiT~&E=2x9*)i&~y`Z~@M#F!70u!hxAU@!?9K95SDGr$}+Qp0k zKQ0dnW<9(CofaLcz?zug)3%EZ41fkd@aN2^K0dQ()A=wBV+0lb=o@5{iR zBR-=ydMR~XM+Nt@S(i;+&=~d+lcotV0{$uUDwr|)>}c1=v6_C9Vl^WWP%v^`tfq2C ztY%bgtY-XE9vS-DLn(ajVl^^MVP|7W3=y2YYViqKGRP+}$-a0fCsM*_pvOptiZu;W z4klg=8-*!))HQVvaYGVTi%D5U4_upE(f0WVRoGD z1CZ48oPyP#BZlXq95U{zTa${<_Q?5IqGsMQV`@f@Ta!5+df5Z0shzh>_SY4+CVRD* z^!Wf4iND8{@bt=_q1fpTRLr_{RpQo^KucTo4&a=dJS=|&@LRz7*RSFT2i0JQ$GxVy zzh5;@-0DEu?jZ<~(hMuZ5(|kbIp?bBx%JfBBjLua8Kp$!qSmXXS#!woXP`sYj7>z% zlFh`l=ms%+k3t>%7!^zVeo#uSy}w)Xp{X&6YM=ZAmV6e9A^)-j5M#v?V{>4nTk{;o z>my1D(?aTqi+bTDs(r@CSa6mRRn$P@Tzud7VceF!@uYp$+o+!tiF&N;^6>+VQlDEh z2R`q^aBW(I2}ECyO$Yk@Y1S-wUGR%=!TYEd5lxE(elv}vqrN_gnD)Y%aS?vj8__Lo z!3e%Z5=#onI>W=$JUs0>>6Y2tvAuw{HB@Yd)~xe zlx$)3hw%>Y5!A|$z-uP>1~nlMJuv-lY&WzEt2Xa~lLHEl&<-B$fc0+2@S_gPi&&*| zJKrbW-gXq-udRHabjy&pZSpN}bJ#rOZHI5ukhit2=JWBPjX;4HhP-Vphv-ecKsDjF z)(Tt=(c97roE};SX>DFN1=|7TJ_UeYuieGkhb!tvlyf` z{dCshS&qss7(U|zjey<;n7QQ*=!E*<5)-JW(xa{A_54+UNDnRLar07q=sZi|60-zQ z+j;t2v2QU|QJR;(OHlRGSrwc6oG)CzU@QJY|2oI{>UeJl_R3D@W&Px>@XVM52Z!=W zN?{}lj=%&SO@I^31nN1TemvY1%E#kBjsokX#=+TP%x*+yE;%3XLBT;ib6+U)otL3# z83iwh&dS~5cprqrGZL_C1YiKd;T;YrhsY0BV8co5faiP`b})Y#yaT4fxn)3qF&FHQ z%is+5#V@TK9u1hH%24hD<9#2vI)q9AO3+XOR|m{_UkwI9MNSI}pzKgE9{!u`>HQ%E zKL-Qoahsfo>BP=+;prgHg{MO>r`zMDsmXcS0JjQ#9DEy^tG6sidZu2lR}?V-`+cJ|}t~zuC9W2!F%-s!Z-zrILChJbuu?Q~jQU-9FQF98EL0Lvk=s2f;Ae;u$IA`4kp0sjHm48eII z)S%buegW|KrE=##U2~YF15S!N|4GDQE$wQjINL|ClSZl5yfI)ah&oma*$+PIja+R+ zn`d2^l&5ZfBmbNC$h3tvHtemVG`G$8=&UelOXNGqFmY}<^3Z*Ab~)wbicT-5bm{P) zh?-z{J8FXV?N*M(oOM`Eyy|s?j=$=)HXpAb8jp??BJGg;lF%GFI`5QV*8pqt(Mv+o zBU{7|c#oi0IO-GT4ZLn%2%80+Ml$>prX3YN2%CrRHxBuPIRwV9fIOR2g@p8hT}=tb zq}L*U5IT2RA4;X++1By{7e&ZO{7?#ah?3}s(o2Rd52c3952eEJ>?mJ&w$rk)yKF$& z;oWdwYLjo6NzviipoR(0HU#)htmQk-Ywt_>n*YXs1BJq~VIIjw^!I%!qQCD;5&eB% zis)}Z%gXywZD)9Pf^Ws%?d#!1vL+r^G)bo<9pUWg`%;zm*u1l;N6rcfblfu2E(aV* z;^9efX8&f1M0s=V(`2$ zBi%9|yWn@tFQ4w6%Om-SvAMxHC}o*vLUIDCBivz|XRfF9`SrA{BmBQxU_B{g(bW#O z!Ud;$pWc+QT6xOYs35lYpR$fGTboJ^!|<$Tjb#DN&LD4qw- zAoTP~C3w&Um1d3Aw&B8f(FNtpI8vi8Jo^%^(OO)iHA%QmDNA}2@M>Y8Y;Cf`7a{Yp zbaL-*ryE?SwYW}el5nk3c&D2pT+gJfk{rYd6}+Rgg_rTZVc`aHKa5sW@}y0%KZKDV z1cQ8_0n8!cy3094zc7a=58|QC_(7?q@2lWSkXA=2xEM(e($DTqP7g}SFCA>m%^)Q^ zLD;0=SrHQ%JWG_yd@vSX4;QdSp>rZ`m+FP*v|OX>6p_l1vu119ZWWRdPonV#*mnzT z+(rRB39P?6%}C2)SuPDnuo8QM$do!FeTR^P0=k}ra|`0?3C(>Id5vc2Isx1p3`Yf8 zx|cw}M!a@js=oW$c{b*?^GcT4p-u&jCr*yuuco+0<$kr6UJjGYH*)@1UK;ats*!ujQDM<=nj1>{|LA6mt*<=@o{+N-(x$T z?BE{t8ry;Nkv~n93I~1r(-Xrx!l*L%Go+2};98_DXU}jgvM$ddL8FJdx6RoikJ_d! z2qTnyG?gE&N~EcFZU66xM)e&rtK5G=N0LKP#+>Z!FZGiY zz@8}Zjmg|D_(P(B>CU8ieh>OnGy#XPFOBgz;$JY&F5%Y;(zCn4xm0R&&WJUIX%J>1T8Y=}Z6nMIpH=)EIZ|sY~dl zhSo@?kDE|4W8!mD#7*?E)zHMe*|%`|+$Jz@Xj)7(QLlJD5Ze-og1vZCu7I&WL%d8= ze`ZC7g(N8*C-*4MO4x}L#NyYxb61jwpp70a4paYhWRF=gDqq4bwv>TX^Vp%QWH5T^ zEv8(Fxv4+(Uf2jJD}?Ed-a=$#v~<>Eq?h?Bg&HT#fBXg|FqzMGC%?p<6K>8q0a~_C zPY_})L5d`ia5zOyy{8vnE$g$wZW4W3rjdMFW{^efm#yE_NbkLmQ+V0FuZHXfM}bLS zYSR8$V}5lu0&=b)0%t`=<7P86+((8~@`-gmrEI2Ny+}gOpleF`!VuJ zEax4$xF*wDSh2Xq(J^E$6g-2S2y`Bd5;Yiqtg24<@JOq-#Fd6vCy=P#xI54Ibc6=Y?r*T&Ow#DvCi6744tpH zm=u2>;|Pg%t#Jf|yVlssg%^oh_>B#WDBs)r&|lq*Ho)F!$ZjXX@naLH?5}R>dkz67KW&cqj|`A{q8$vhbcrEGeIK%cfzVC_r=p`$Og#V+l;){xS7Et8BsMWTc!>kA+DKT;4!^ojcgHdkUC29ol{%6vOFF@B^)`kMgX z=v9Dp(Jb0UfViYyWO2*jraJW5#i#Q~wg!tlLBn1O`LpIQ3fhcO${!x{^7* zL2nnq7tmHru{Mzq85W}3aYZBBk79neC_032_8y zkr0ZeQ%;KR5bDE;P}{uWRFtQ0tAkShCD68&92)0EMpVgP0{T6R#Gni;CEu-&kpz~~ z*S}>(O2IlIU!hX1v;v;wUVHLeM7L7}*Y2b7UvCt9b{(})L zY*!0n$W=X&g%Q#6mCM$Fkqkp?RfUJ1hGb0^VwMb^HiB!9o;E^oY-Kz?X-5#3*V1F! z2qtUV2$q>PVze~xifm)+Cz|GO(b|HqM@vlSaIt#Lac0IkI}i(GeqjTK_}75Uc~|6( z6(_cw!@}G8qQbJVRi0U)-ucS#DLbbDTc1NZgy+bKz|UA>Zw_i~SfzcK`EL%4@N0qX zox|mKhnrs=4C30gz#lI%BB7G`uwG2a8OrF)yOQV)>rh2@P#YYJKmG7l-p%v5yzL!pIDCCM7YClQTFN3O1et8QQTsn9WMrVt^ z-m8bxmF&eVdF?0K1@L|y_#r>j*A){Ic|ezUO~pKq2bY4d2j@K{S%r1gVS%uR<}4?I z{qsP2x_=%C=sRxADR}s06#1!R2B|o$ul*Qsz>y9$C#?NJBb}(is~Wz(MwO-}49hA;HjIEGvjQWZ3eZY`htLrmYS!AShvE$2u(IKLooGyxJvg|A5!`LV@!f6XV%Fyf zq70ULBbaw~FdFg)U;js&fwF61jkRm3(kog;=@n_B-r*^a(}F{W|2~x^>Yd&`7mZ9G z{`*wA{S&9JBu+0(d*lceZ~p{5@yQ#IZdyXqPll0hL~}(2M56dI2_L1N_$VdfqvRqI z%8*MW!l{oiXeAPJZWgKNdnIaO-zzdYzI4BsT9KqCf zxPGVd*P9oiWWeTReq4-_hz-NC?2uK9i1OwZgXiWJYgb|IvK;3&sT5-uh-Q3~~ z!o^E?b4!%v<`zd#k2R`MY0-~S=p(STHn?|jUR^svGrYWSmj^lgtX*neW1((WAZIS1 zoVQK|Re-*5Ko2>B1w;{2h zhv4wBUiikGe}HdD&ohUT$1(#-dLYG?EWd}vSNSm7;_KU^2Rq!;LuB@ik@OH>`_#DM zS)zV(c=WSx!A{)5NqWd9%~qfMW#+S|@ylv)10R~D4j!8IZ165{@}sQ@u_;N>;3#@q z;=WZS~3hPD|E^aD8upwhb%DD=RVvr50Wur%v0Q%6Jy-r(;$p zvTv0}s|~(sD{L+|Yy;C);9(hF8hy#(;d2a8d`6PCX)B_<(^fdB$jxdVSiPoNm*_F= zv=|rdXAF;N&SzM(-)x9jwBMjxv|sqier>RJg?PT&z%1IYW#+4+G-y$ytVS7gg9>F8 z%9tCJC}X1F_SH99DjBG!$JQ#?kB)YTW5R~&>G$6@(T)4%g9aQaczD2d7-@qvCE(Gz z5f{P9~}ZfMC^?lanXABjkp-|-(I2LypfS4>K}2Heoh%r-|E%V{N{r-VXW>} zFAe>5oUlsdW?E8SRwU0*P33tptwgMT{GLKxaN{3^JW=A`^7NJODrPb(yIB$oGP_w4 z^E1i%FfEaWv=(Wopa91LeSWkc0trPZH(1*rsARu>HCAM1T2jL(<-3GkBB#PUkDokQ z{H=?V|C07Za6epg8D>E(5`r)-X+#9#lbK2hYI(a$1J>{65H z<&*gmlc=hmChMtc|%N$ZKIU7PpRr5^> zU~fS4_c|>49AUGE)QiXe2qUWIjy}PdvnpQx&!y&{RQSij!LTI{`17UaUsBK+m66;C=)S42!-Ei(@D zyyDgh_du=v73zvN5aZaBsF6<zH(xEb|QkH>803#Mo*B?p=FpLy0Wd{ z*~zt4W7_V^kUB=wGDIMo@2#0P89B1MNo54eLh+sjRW;Rf=Gv153Kba&0#SR)psZL6 z^*m8OpPINCy7ZNOL68(Q!sX%^Ij;R2_bUSbkCr~yNF22?M&Q<(c0fn}9jeNHT-JwL zx4V8_y(}itt&M`|dGHF%)n(U_1Wv!$P& zu>U~DVB;oBPq&sGh%MYkb^p1pwXv`pv<$dIj4yZk+*;R0F&T0L zH3P5JJLm4cR-f?Wh7;-}%jZq?j=*O<=2^=>v&_h+KBI0WW>~+zgxcL7=gxC@KgykF zm45^ceDER*`a~-};G`c#`YYDwScAow{pz``2cdvR!4W*bqXXzb95^=HPPJW` z&ATq`=l?PLbLZh7^9oPy^s;;o+*Z2wK?%PvcV4=8FLgp^mG9;MGJCKQUw}V0i1^TM zz`#rV!9iqEFHsp5$4&@lXYRaw%TB7PUdn-H1m*+iYoWA!g! zeai+^cDCY|=4%D?tcO0fYaJ9_>mE=UzO~d;J+qeojDqPuBe)vSwwjt=EnOvWwD4_y zGfDLNo9fvj{wh!_p;B*K0rUBarxzhO2a0yzY}C4DL+w6`M>Bae6DrslxEH=!KE$vV zYWL~9+CB6f)b7)uKd+vKBeJ062u7q2ve-$H`X@ zN2ulS@nU@iza#kUIJ~^@AjO`wYY0jKUibzBx-ibPg^+MhI{OIyAj-o2vZh{%9D64a zMc5B!Ruo`}qN5ap^o6H{`R5sG>vahUpPGE*Nb!#A zAWSOe36m1TB?I@<)hiT9mzj+HB73;#+BJgQE`JCO2XZ79YqGYIIJZdh`bsnUria3) zg}toJVKM}=hfx`QW9WswB6K(EsUjq}zfmdZ&N7WoE!$d0qUan+ca~|ABN4qrAayt1 z7f2WOVmlW0QgfZU9LZQ#g<4)%=|oDP|BZL=_?36>_!XfZzbx$K@IF}B%O-zdCz1c& z-Y?zvGbsqOx_$<;VCbjY*Ab_8uM8Y&cgw(`c9(xb@6PY#2;H8KL%hvDp|@{ehkFTN z+buxvEkH{bVCN5jz907Vb9lZ7?D`J$OM&lhU)QMCYv|k8DX{qzOK7bpCDHk}MU;;X zyMLXo`X+>YU8@A--;#02zc>;DgaPO__eZz69Np$V4;Abz(2RmM)Xw< zAyq|Rz`5`uAurr$B@aJBz}Cf=XRtS3o-MTxrrYa zW=V%7Vf#J5%M;Q4Q3!xP7{=dQz6QFQh?g&?p~ycE7&AFHK} zP`bW(dbV^VA5wPrt=YP9pHam}Nd;!wqn}Z@rSwJkoJWVri#>0U3O+~OVLYpXJU%de zp0}M;3{>;EFR0h;WEe=5+7P0yKZM8C@)`^k?~Y&&@^2}G-ScYq)7o_a6#)plx2^kW zmA9FRC%B(f+?Pv-7TU}&>&Qg(WG>DrP=`TB_>q$2b{;95B;d~P*++@!upw&BwtMZ6 z?!4&=>I2&hg(%wc#CM$v0Aq$A7QvDm9IiAKqBYft{8{soYHP(eW z0=~L1ZF%ueBPk!LxPyw|vJS*5X7%AL%a{=u1uyB4IH<*_Ys>1B;9YdLP`|K4BCGky zsJvTfsJmOpJdd||Xdj~-a6aICz!80nQoy-@a{)*9F-q#fBAL3d@hiFma68oOGmFDi z+S9=W_E&#<_Zi`0v@Q9V$0+R7#9%d_c2Fi@s_n>7fZO_jpCs~P%d_3LH8dHw^>`(N*?){wD#Z?F zVrU|%P-&Z+nTZFJ_-utj-bytAxAqjncyTAa5H`zrRGeU#D*j$W*gOc0Cr24(teNZ$ zj3pIoq0ahPzMN>ssL4=G!NZT_YHh7&45|3I^{9C8#~RPWvu-!@Od2UT*XnsF!&9q~ zk>ZZlf`>aO?XHR#x_=_2%{xjNp07wm@b5k<{w20Dh8(0kyAX)#7OCEm&^1JF7+Hf9 zS0MlEAHqj0(T2KM_FvaP41P*M#uMYNRV=;Urqrf)EsKB2P)P_L=euEM!LR{%Rhi|< z!qhLxA64Al4a<|G=wc%tip!2-<4Ia4po&Ai5xpj`1$s>tkhbLvW>%`#dZ`#u*%`Qb zovZknKI1w9h|=6?)@FGBa2}MvCXj+5s|D0MwoW%X6K;2!!^2^bF6a;A14)41o@kW! z95FaD5y+PSLw zJu%IuyeQy`EK}(;Hm0pnK~JT_*r=(rL6l~6SWHQSw4GVwtv+MYAX*e=at8Eg1{xyH z3}oO_WDV+?TCKO`Zozu5mQ>uvoq7o&09v)KagA8p!f>YEF#d^<;{mu9rj_-ls$`_%UhDQD;A5=JaIzD_8{`VrX?kmhw>#si z=ADCLI<(kU@d@ZvUoSw~5HX?m5ivV^E{UtUh{~~ZiJ4^y1yurXIr-V!fYgqeKaSsm zhpO-qzP!eFi;?#6f5j<23*;$23#3sH$u<4;aTy{`)qnma5VC*XDiLwt{qeYL2rHN= zko{jVh5{Tz>39*zdW!L_DeWU>4g5X@5b9eCeDo?oG)&iA>>o8*CgkC3{@o{H=kiNb z@uCkeQh3pW7h(wR&cm;GjDKqAeK2jhnjIS4ohBGaLRl0X6gDSjmt*V=3O*LLk(fx}v z1*aPJ$YuR87D=kDt~uX8Jz2{1iXtne1H3bnY9~McuZF<|OoLP<88nD&9`A7Ehb5Y1 zOA8z6UnXJDBj4As2>)@WWr(I_s6aM*@|<}!7}O{o80Zv9DXD;IibW%yClV|{T^car zRFLrHl87lsMPH@_3#E#PmC1@E*-XpO9;BMW*jMQoMC?tD!6XVK1-gDF5(P%lD&Ht@ z`)?$0ml(B?$Pyc*r9{^^ohTO&yRRSEix!eU#SPWi?s6;R>#J#*C>PI}yP#&WjSMPb z8mb!!NvD)57qPSqyH1=96_to#Y8m<|HrP=8DT&nePbcA@65W7EBK(wqxU;{M=%&!< zO&%qJNJ$xK*R)g!Bs0C$v+Wtf$!?XVWs+Pr7;uLG`NFls6G%a(re*9@K|wgvQjtMw zXvU}he_VZeToYIK_nl<25}0HL5;mD^Oducw3d*8F5D`=s5jR{QASx>E3+@I*MFDqh zwN|6mimleIK5DHsTH8`>Yg@I8Pg_&lT3Tzh)u(E!yx-C1_j}*Z`^UX=&Ye4x+}ZBA zXZaqTkO0KQ1kyXzuzGX?;Rh!W6*m-onqhT$0?}hvVLJY90!b>9sS?N_plz+L5D7Q* zPoj!w~!#k7ST@0(;gP}P;LR7&ca8TEHGGI8n zx-6OmkBlZSr$5smj#`YrLe0@YUFmJdj9y>XMLBw%@5-*|@$lR+oh- zp@{l-cC=>e%e`%3LBV8iKqX;UrlF(se4;c^n0j$v44 zBWQ5-Xd4ML<&xta=wko|8@sx^JvS`OIZaPxy{D&!=NKz$7so_=55>7$sUS1QqK6x) z+i%-D%Z~J(iMYbQ41fxy{-*yj!T~8lLM^iRNKvqUB-*A}j!zF=TY9aq!DF zt}T9CoTqejY4jj61nTN9|84b_{JSFf<1$OhKul8H!AM(sakt3wVlW#HM#{x33bn2* zhgL=^^h>w`{Ss#FVp(?y4Ro>E8YlSrR@#wGcd#_mvTN^-qnEyJb>$ujqrW8OzCI9{ z_wumSf6KWZen&<9>dS$IiHXmTiSPy{y)EAt%M0U~Uo0UBJ!Mf{iBYHD@@;W{81tzk z!9imPGuy)O-Z4N_d^(1hzsnH1s!9Z-=2VO=UsFo)n(+%Ekvz|LvRB|5KXXVky0WZ$ zieFC3x?3CNlVs9dF3O`)D+%*cXO&gdr&gMJ{nDA-DU1@PhbdAknU4db$+=+ieK_-B zpoa8|E2O%TQu!`s%5KQ62|7xp8{}1I$(SRVTAqGE77)0W;$xSQOmVnk8Nv6=9t=o< zB}Cj%kE^4tHJqImEu4KSCRRfo4efg!&9xRUA&179p0?NoDyYTA zwZ1g2$Q?*Zzm$9h0w(h+9`hA#au>s{PzkhJOzKHTPaWt@)R+nKgN{wb)JF|f`j<&Gf6zZQktLo|JCVTfBJWwc@a zDImu=m|Y=B%>IzTqzt;I!;qLxhsp=b1KImpWS#NEv&$_A>|DXndF<*cI+9)4ot_y* z#?|4ItW6xk8YBA;vC+xFZo`;PtR*OQ^19Fg0mQbNb8a-`7zkauDWW=w&`F#6<7_j7 zND&T;N2rddg(rgsMsOv3GJ+Cc8Y1sxJ~_k?f0vj__Ye}v=>sD<*VyS(Y99<#SviG+ zv(b6`L*nY`xkCWSIdI;Pd1kxvQ!ZD^UA%=1hf;4v!PhN_A6?rkM@n8i9nXkNW(gWR zl9aKc#q%(XM)W^c}GdX%JG72S#XDZ=5+Vu8DpnRuPv_{Uo&Y8vI%I0l3DLB z!0Z1BvK2X(CoT$>GQ2Db23&|i-exdP8Wj?w6ZROGoxv{5Ib&tY4-BDQmyxiE1+2P( zXnPWF9Hv5=?KzfhfS6W;l42)W;|!}OydPp4&t7H8!VqdjFmqo|8)OqG>b`!=>TzK* zLU+-JY1%#JkDyi~>7~gNNSLzP5qPSLp8gs!$kqhCwcYZQO7vP1^eQncbbp{+Tw=OC zD8iZ@vWh{RG%CMg6;cg--RN|Iz*D-4QMYJ#@_IU4Z~}AUcxG!OAnadH=a?mNGG1+Y z9qTfMEPx}8hk-6(eM+XQCO0Ag*&+*C%Os0Pe0Mrl&9uFi!ha$?Tc@OI4=S;_W4)T^ zmPAs>vZCP%ma9#Gx+!0x%z9L&d0id&GsUYWA*%BC4_AlkK-^gw7a6qqXU1IFT|C#Z zBwCdgPFJUExZn%w$cgt<`tcub~dw$br}h-yiMsEzMQ*W^phaucEyTb8(cvgK?ey_Tg!(|9q&%$m{Pc6EU2xOB80mk!J0V{ zxrytjw4iS(W)bCrU%8a5xPr7i%N4<}+vtLk?CPn#Dve7!RYsNfs$?vL>{y^23AYH< z*TKCisi|Cd0V>N)`ta;&gjQLbe$Qp=gP`dyVCw@39iCPx=ZfEZ(V)((G-y$DC_yMn zl>fg?|KIliryr|Nt7MfZS`-~h5Q@~srd1~6dAbuGqsso4{44DS{zL|gxoY|s?$GHr zQql8Uv}7Ln&N!oWbg1dHHj(SS96IYu=rVKol+aFV-S-LC7rrY|)Y3W77C!=}cS?9P(GNaK^h0%1OXofZ^bXB< zQjy4w(4uF~OUC&C^zL)u##FBSGS1~*dZQ2Cx1M>36WUX5uBOrHiM!82Kz&CeO6Xt2 zTw}-djCp+ZA{;nkZsb|6_7@yDC7G~I6)6$XW2x@Cr2MheihxXNEOl{eH{17>0TsrI^Q9@Ca)5GLV}XR?^p8GY zDtJeoFSh2R5~xwCfym@?zSPz@;%2dN1eTkYvh$_D8Ml@%&nmH2DS?c2VzuBmzgBH)G$YQ)jO#%0*x4E- zT@k6WbOPHJ38jlCGXAP+%4{U2tk%VL&DL1x%+iDc)wnXvzp9NPr=eR7#+>a9J}s$C zf8;AJJ180U5bUWT<7IIc@~`UXr(n676JK<(NR%r6YKre45Vo3s5Z@+IQ4Y)FKj%h2 z0%>i12((4_Ly#$!zodq?|42%>|2$X@)JX6^jSLfF?@RmLe@eXO&!X&zKlZGTz9(_9 z_lmN`yCnXqo;j@u;6?@H^RKr36Dn5S_O3^yaJ#q38rv>6iTFf2mr4%e2W<0mI~bl40_K6lwV`@U7hM zsumc}!@axp9Ml5mN}*@=0j#k7Ea4_I@W~duXRucGyp6Wlx5?Sxwfmq3e+yjxTjbqm zobTj5Tys=T3n~O0fNezObfFTc<6v9ggpapdszk*zIK!KVe)tSw)(1y)vbG&4RU~*0 zjOc`43lu!B**XdC{kBe=X3JowuXS2y!Ltuq_Sk(eF}w;tf8Sn08>}@zUvpUYo>oQg zk=WK(z`9?7oBwW!ZQms!vhDieGY8r6!)Nki3g&Z9w0MC<7?zx>{G@F$1N|Pd9sge&DqSPl3(*13y zb*JUbcm1`@O&EyZv6z8uMG1bu^$9-m1HmiwE-509J4%a@Sz*b;jsX-jjk@u85CX;% zF4l06-0Py=W_Nfs#gytn7a9+xU$u0YwNV9p8<%RBT=AXVs9ZXXYduDh4=9sv=`g`U zgKs-Qi5~fjhvh&kdGT-nb^DXm&`}3MN3Gj_m|yg}g$8oTP}ewSA0;!%_faOgWUVUD43~V$4AkW^uKO(GV;p;zIW3l9o-$Sr*0Wj6e6R4yqHNXi|NuuW}b3(7b)I| z&dSk);_8{AUabD`oAjj!!NROXXw9)mt0$b8$I#1NZb8AHgJa2A_pmy(oT;<6u>FJjJKp&jI?Dou6Y zC@z&viqr*$l5@ZzM6S!*>tzq`u*Ae%3Jv6cjzzAF1(D1?rIL@@s8BQijua)o0#5fD zUEG+j^w=lL-k54=8uJ`kCPXeX&*%XY@G^`q98LXn|n31p^@s1*}jvhZ`%;BFO8EOVMP3)39A+Lm$c)qgkw4NoODi8S@4ZhBgkVGHUJK+N^QapWZp?Ww>Sw5gp*kdly0 zl0GnKq=7{AH;|&HfS?6wQ1UeCOz_W!%eVFd8aJB>N-bxluSS7{?W^jtm-kGL5N8budr1!Q@^IZ3Hjex^jfk zQBkpwF)1^0izB^oQ0pKba%&)MNmtiwFB-r$g;>&q__>z!Kto;mOPR{OIag@e_fKR% zmWhDRLX(luN=v$VS#78E#o=r{bToQ%y2VgtC*3Q;)YUIBLb|;B)G%3(_cX;X9`8VW zUkHV0x~9-OrJC6}iCo8N8yNz}o~Ce;9?C3eeJ?}~9P1DTlqpRSZ>5HY9p9Q5qQMep z==W%eL?>RBb{_!eaJUG;Du!)}B4L3-TC4?AnEsNT%o>9>GYRXL7V0p)ml(q3LO}dg zX|${%F-d}ZdFlk9f3}iJVtUuui_g%shd}nR`RRE%}P|jxz)rg&L0Xu~!I%@(cvkmYa&VG2% zMup7Q{M3~hYY#~9QFpq+(v-iS*b3+YgqgcCTC~Wt>F_vPaxDfSbF%|P3KRr{liKvl zg1Z)Tp=A<0m)fjPot}x;Vg$>CYcaMqtV_ddz`4fbu=a5~<)U}owHQbU)oApLL1XL~ z2s8dFu-;1P)RhpRC{Tj00&EQ`rv;VZ9}Tt>%g_@a!G0Sw^z@Ji`TNE>i@G`q+f#B=8XMwe*=Y1kt zKtUAwO|xeKL=h+UxnlP$u(ijGl!wPioWnHS){gKyR!CW<(2BHOTd4wSZFSm0TyilI#tZHWUmsXoy6ER^%e| zN;cv^i(b{GYjGsGX9<6?WhydwR#5la{D(``S$}xK4z$RUku&!jzU6R>j7fzBy5^_U zNXOw8HYhiXd9y_$E)8bI08aPL*AXgKRD|k`h9(`C|K>oEGK9_N6Wr>d!J=ICI7BW6 z9_?8q2SnXSxr#aXOQ3E5?9J4|fhv<};XpE#Fa<>x{@T@fYQ{`q<)CZ|gcE&JAQIV* zRGH}E3pl(RBzlm%o6X?XCM;(5`{jZATS5lv6W$JTm5{Sa!|??)(|Lv?crR=<=Zr>J zL559F7|*QdKWDskNBPX}&flhn$$3R2tS~exApOzIZFw}mW-kwaAP$<(6NrSkFrOAj z{N01@l*(Tlb9b7#$vz=WAN}Z;RZYmIOxK%*oxd!snOR*sBTWB7h<=Zv(DwPecgohv z*+w(lXki<_8LpSfh)ovYB3W~$yQhwvn1wVH=HtVY4NZb|gs>tdpv=PNAQhfv1fOFb zp{8D+82CY1W=@#QGDRMlbEAwlPXVX&OqOG#UNTvpkrSp3BPA;r8k!uAU*cAzM3SOB zcICqBNNSdMov0(qdlRm(3(;LCnFHAVWoRByM${Zk1m!Zeh%HPVNg}E$30GV~jIva6 z#?TZ4`@Co-<+`KI{!W*`hM?WDNTYG`t*31|6$s4&LSY@<~g&E0xd3=VmLU z@wuPKg89lPGCfyaLNrfghPWrP%xV@bX67PMaMjPpGM=rJ#xhJd|)E7;Y9IIWY;U$i5SNuww9gD0;R2J8rx`-1~N?=$jtu^q~!TuAM|`v z`g}7On|89!ZfHut6p>x8RB6-$a{u#NVgajF?wc_=p&SGau zW16Lv2lKPFay>T(W75hEiCTH)92PCl$2153^$3+&$Ih0$ zl#$Gz%-m}+W|QOVGL6|{expP|u#7Rr^f!l^zBYfr9eoT{&zo5|L+s(x>cO)Uxs%T4 zfCx>_v|FJvJ2AhV4!uzwdc-0BT<7EFMD9G~sbT%l5`Xx#W)0E5f5cq#{#Nh_;Q7<$ ziwgjMa0#YZyUtbw6`2;Y9 zuz-ECm3cWTfImF+lv!N5@NOY2Q1dQBeJ~HWQ`+&RU@J<6aO}ZYa9R4ZbrkF{(YYG{9iaGhv&JUk*O6Ral zgrnO8T#X6OBHZs4mjT9PD1K!K`VWyXzCoBu(W&$qdhHZo7nGcUz2)9wz}KFTqWg=N z$&H1Oj-7U{!)aH;8;>eb(8X3V|(u>v#H0upNtu3iLL2~^QYgtO^4iy*d209 zk_5foG3DL6EwAYiD3Eqv$}>l$|3$I2`(ae*O5JN5+yNZhvF6O1N#vblIz!ew#}E{< zGk}Q_bbM0SEu#MDw!_`|)A=lrY>9ja^XYsf_tqbt&s=X+)8S^pr#pzGqB=WaKDzxS z-&R*Pn#tH`L{_*i(2kPH_Q1A|@T#^B_4QU@+_o>|8rwR6al1^yxc%~fF>VncoGc3? z{jUXHK<^73CaQQK@VWlohl~Anmen7$D_SvgpfPY~E|>pN2LNtM2MWG`SMs@<(*uFd z1xQg!>*|IX@}{DYy>_$ z`ExVkQT6|9%mE5aAJfJhIX|4)LGuH@csV?UzczbAPC~s-wV65FJ2R+uGxIPfOHsR7 zY@AuUd4|~3wRSTpPlfSke%+Q_CiqsD1a0sKSxi|^H*>0I#S==I=L#UQVS=h^(v%t1 z_OAJ|DKfTEU~@B;m1;9&#Bi&KDA(2n^^)oLe4m}R=L*S=>8p_G?6ol)*v3qDMKar% z)#xDI(SanUvjzKN!g4cj$#Xk78idSSL8-lFtc3qM;JZJJ(5vzyho-tmxBn8nDR}YR$^9one=NO_T~T?ufQ{{f z=af85%Q~7}d5bTjdg}O1{ch<6SHfhl8R7B_AR#0aL}R-FUnH+#n-LiWw;4GN{m|)S zzL#G&1OiznE8N%hiJ-gR*ZiLnD#N z>l3|-8GTW)Aq&d~7o7ZF7#hHrjWg)Do@qTz%!q)j7qnTAUUZS`Au(< zJ~s|&|B!dqW}RKelz|y<>!s16|k5tgf3`K6%QV^Z+vJw-(&> z-<9bBmgRHai#2oykkEi;%d%QyfO+|xyIOjb-ywGn)spWtMQ7nW=4y`>8;Gl2MFz)C zl?CPF@$MZ#{g4zi6TeUvK&Xv5g1$XqjeGW#nlUw#$8Aj}Gp@gmpZN9VUq}{~!D(Y! zNbXId(mCtLZ^k4D5Ue#3e96PziNXECAp@>YmKVWEM!g|f-nk*VB7RK$M3r0?5KdLi zoIaOrN`nv9tE4D_t)B?Ie?DPJLa4odLNe(j`yp9u5PnFGR4+{s>nAKr(CgBZsbvYK z^s2zXSL1^k5}v`tLPYFDPftOQ87Yx`$)FUSc3*O*0W+QnqP%invMh5zm>Qd?0kJZ6 za$|z2$HX8jI~ac_j)cfMllY~kx|B?IsY$;O{AO4rRq&<=QB1%DaBH~|$Xli!3y_Vt9ktxs+jyUC;d!NT;G^MvQpb}oS`@vVJw~;$8);8m(GKhz~^#}_W}}*2TdAa6qi&=qLStS8$pcI$%_g1JcE0kONa{SXGw_S`dP%N4gD(W2#CoTKrw5l%}1MkTn)D7CCy+KE@ zH)vY=NXj4Ex!9n|wzvJvpRxI1oFOzD?6PY&Emb{lA>&%+vPi}n>Y zv*y)6F6l3?X;X3$S*AwYN;Ut|-(H&ESnyD7O#V-lUcW)l4cnl9o_BqRK0RdW4!t3D zWTmid!J82a*_D&v(Nx=~(qZAg*O=JH3i*9ObQ{b`yu-~r2K*XYj=;1NDE&d*e-I_G zS8eqN%rz=LQ<$_l4*81rtdtgPj>Durqm{3I&uURWXO%e)R%s_Tm$Fc58LRFoX~6iaTNO=`ayB@q=A7^W%xcqy z-XOm>^a+}ZFJX2-7FpUum_AY&)bE6u``yPx|GBf@2}@Jv5%}!|i%pqXC!)osUORX9 zSnBDD`PR_ns-!%I;|`g;&Ym1eTuoVQ|I>s?*{x74p%ksOQP&7Ws1QJ^g5b#|ip)Do zU!s_grXvS~hEf{U2NYau?QFAKRijWgBRoZU7*JG4)mD$lX{6{{7=(=101#B5!Af9bSjZnW}xJ(oJ&JKPK~^@mPG!W%aJ>w%n#(Y=2rt z{x(=|P}gla6h%rWL^5C4;)V@(u}#@u*a&qxbD%c9Rzb^trXy1y(@a=&EVFt{d}0U_ z15I$=;wr$LOW~h8x6?&AY*X*WRe1bV`*qWzsk0$9i0=w%-iHrZ&d%+j>7FV>q^F8! zJyit+nkvt=6XtsJ=5SuOri%I`q;@?zPodGd&zdUW^VY7lk#hJKH07?TQoJ(_&IKVe zLc!*NHP2a&H5WV!n)J4VrX2mMxe zL1W3k#vqG`-ZgMS!yvGw&?y^9+@L=u2npU-w^U(O#RX$kby~si*;3WrR=MlbY}3ww zA;y=_bJoU}XCj*8W%TmDw57`0_)?kG;d*Ikm2n%mR)D4nZmF`oxTVV0_CiXUl$%a) zZNbj=&5&)po3~WaVp8udRSbW0OVw(@-|~lGZEX1%FcB?Vs-*BR?|dxZ-1DT+lX(a| znfr$zxa_P$cELUSG1%F#{?B?Wz&ttQu^@P-KL*CdbVy1RD8V-sYz<&6j{lXueLAOxxwJ6k6`7MyNWf@R`kfpm6pJ370VO+6WAOO+X0;P{N)P!;f9 z5frh7P{bBM5j$W*6^2%|0Yj@CpkymIR57pU!c7%dZW+rrV1%P#9rcdhP{kD;q6WF( zWsj}3edHl3#|zJTENt9xkRS!Uxe+jRmw}f&B*=ptR&tc^!$-pA9g2o~IV?5_)X;dP zSRWKo6~SL!Q$^_2RkDWl$`{uQONtMyCp+ckekfsIUi(KV?^=QX^)hQ#0v_3n1Wt`v zA_W4P)~_^X=PzgRK*cwz$3o5}M1GW*B=!zNjf*!6E z&<8KB5?`G^>IIW{-e&B~C%wRut})7eG@tbX(Q@rC5WxgavB6@Bx@F;_Qgtl0Omk?s zF|r6|w}>ebwzlwN%JA^oEI7>1h)|nv0A7RU1ea+i$F=w6MX%Au^P(&0x88);C3A9e zBOo*CD0%lynYdJ|`%}sm(bs@vQIUU=wYr2BZA1iP*sd^{N|nSEq3apOR~3phFg@h1 zFulnYW>R+!3!o`tna@9dNli`dN*)&B+q61@=^}RKe>Mlx{HKz?*E0;EP48Q2!LJw= zBKYWGAzTep?Xb{wAx3#=h?=Q3dx9d>%)cV_^3s2VE%Zwi$x@f!K{Uk5yTJ$@Jgc9V zie;YIgOrZI!=bsyKZ$a&p~w9z;lce=0QLVkiSE=REU~;Hmu(s~5A$E{JUDC@ zNW1tX+60dJ?dtj-tfxQgDbNWzLI)=?Z;JuC6;YM69HGqV{}Mw+G-N8z`9c-bM<#}h zSOgbh;1e~CCSeypb8zX)LlsZeMj;`Gzil9{umjt+D#8L1sU5;xkowv@vKW z#pM?yki<)TRLES4dGC?Ns2dOG0_}K;Ydjilc4=jd5;?vo&40A=qtT>#8n1Jnr+DRt zXq9^JIp)aOu!x|-->{v_U)XETp?)#&h-OeS32Xv$jA$5dYOL5yds9`sCWoSA4bzz@{8*9XaE)LG3!n6>r)yt1Uhl>MOmUc zV!#r@bP>p6wy7LfwSp1igHsvd^`KXS;z-;K``I?J$-PS*4VNLttL~jxDN`OMqP^>|Z{wm0;4io~O&2)#Tk6e! zYagf%sg!Je2)kk=Tc0Z@rA?KFrs|1Q@u@9s1v!sLBTolKDnVdBRdo-Bw+aBK9)8l&F&erUjSPOMVQ4wi>9ZFQIWStB>4p6azb_ zY5Z@*S#R4!k?*b*0i6C}fFg{)krJ0M7%)|IwO*9K=tCWC;WhR+nRyc+cBDiI zO_S_#3iBo)36w7ZS1WNZV%b=}9Nc7Z|Jp8D%6FuLonnuRv9Qo#?}qQ=&`PvSJ^DeI zV}sNDY7T@#kJB`b#Hq)$nL`eg2Ui>@MThA}KcLsN2x-3@cZSH1JLCG-A9p7BHysB) z?8f6xt7hW@jp*BO+}Yi>Yps2tu?0IU&Dhb_1Zl_9B(bZHI{^{c0x-iC!PSU;?JF^9 zd!@>~LORC^P(I|X6g&-JV;dmt_?I1bDwu*6y?8YHxN{X^5;xnCn=&gv^ei~;l!P6B zjijp{FX^hsOS}ImV+(Wm3h_xPFzeZZQbK;O zF-4uAqu>1N;cL zXm1v>vfG>0b|wGy->2>3BUP$W!8~a0n96TL-66`?Ck8!eW^O2$V8erE_2=ivgJ${G zM5#-MjjzV$D`q6s$mnGhKjNEa1ZN#)7a>f1@i)yhKj)ifb6Dk~82zk8G5qXBF};|b zWvaxWdi7Ys)aQ;4DmF9axp~TQq0HdWndaRB)&RNPUY!PxmVAlkOg5!t(r+YAHpvdX z0b5GQ^`Gz%)g?E`C!6@(UD-;eOG8oUgdN0u^cWt&JJ>llWxV>^afu=SItB6kJ{soT zF@~Df4NDApyAluO+TNk_yEJIt-J|zudyn^BMu!Dm8q^EEGlyJw7%}$3T{J9|QUn4L z!+fz0tAcZAS=6N=6wW2)PhJOz22R>c(69=k`{y}1W3L9IK{knm_31?Ezq+}1{8#vs z&GIe{apmc6n5@3jNJ{^Pi7p>6xZe7FytVz*Esf|s_4)Yjw)%gWha2Dge7ry%`+U5u z_2>v~_)&>Ff^Myc`!b}g!6Xi8pg$k4MvXh@Iw+k0h8c(Vz@OuduYW!sNS+OuzSqcm zU#Xdt9*nq$YIo_3uXZ(A8()PRrVAAGo;}-LpBgtx;`|0loZkR(etlPy;9l3&#A!+z z9KN;9E^ZAU9bqYKV0;;o0@aN8Pd}_NWcFf&Xkn$X+Ls|vtF}aQttAakcOy8<%K0H& z+v*514KI84^q1pr$1 z&wtASztp*lMPnV>YUjJn~ zMULR_mI_Ch6ma=ej*03&6N+pwHIJ|YkTlx3UC|PaBA~>e#P)r{#yR22h#vLXQjgv>#E@enS@nIwf>lt> z22tkv0Xm@JPwGS^iZ#b0E5O{i0K%*Z}+Q@b}OXG^vyN zOEfg@!!h}tObmKRaQJH`L#jD}4hH;a9trJ#44pRY0-DbaG_oYjBE>8mC&wkIKJi6@ zMotP^kbZ9aNOq1G zOGFaZnl3YcWL1!?WjL^s3XTIr{;dy}@;#|fsHIqhf7J7lE%u|vr{X2B-K^)@o;($n zyg%v@yxK=SvbJAVO9Cm8X;cfQ$PcG= z1q9pjcf(k<`|wkT->c|gy=Fk|d(j@{aP3fZm|j+NaN7aPvK{nG*uPCmez6VAR_s8D zcoFmqpiyGC;J6g;=4WT!tmqIoqzQBf(DCTvou z)u^qltE3o)RUidRqhvQ<3A_19xXrs)NW1@68cXpuNPIrTF$dKEzxkyS+qhIRo-d^i zzrvI>1~P+qo#0;#^qt1Vh(!T`58PFCMD%6jB;fM6Ct{CgB2aoJNL-D?!9%d~cxn*L zbU@v)X~yBR4$vJSBaQ(~j|8=oUnQxcKnXrK;!tYbk}Ap#)?bdjji{V1R00JE9&76; z3AG26U;&`MwGDtgnVu2UYhett6E^gMLA*IrJ`_I(IkXf&`E7#+pu-?EL^(VIfg4{8 z-1s8k#-o@D0S;dPq9yerJ5;I|C>`PKtzx!-M6D z%L7n;EKHY{7<{hV9C#ia=q;c_JN)?KywUh6py_ic5jN0P&?pfW^fF7|e&Fi!ApQp_ ze<>jJ<4vLHg~FqlO-39Rf(BsdN1zxv>Hf1e;3ku<6U@9 zxb8+oN8gcv@*D3Ua`DbZr;)`B>%VP_wl&^Hpv`Sy-Sehj=0qFYZP9?X!6V@L*%l3G z8?X|zjnn%RSoe=$HK?4vAHaHUf{jJx^nVZ5>j#^UN~HWFC+Xn|pyMvIKNVkHG;)$j zT>9^e&N#vQ)kUW@|EoDpkpjgF)E7u~;k$a#X{))qEioK~;QJh1YCb)1=A=LfzSrSIvq@sxHiGqR#AjjyST&QT!^zESaK>GA0S>WqloVLwUnM;OtMI6R zz?b3zf7f`~I7bq5XG6uhZ=vR{(Kr*5p=NiQ%{QYiz+}8@G);$0w{xNBn88qniGqnO5l9*Zr?UEnS}YC&>?W-DOopJCJF z8Tb)M9c}Gtohq}x_Eg*d8BRUGSX!chQ*Q-My>JbX!4Z|S>=O0_>poU||Q2c4oE^JLh@D~S5muE1TQZP_xi#}lQlL$z({JF~thxLgK z%ffBU?^`wK1Cf^NkE?_&uF|IH%ZkfVekN0QoODN8oKMQilmc41O39$ZQM!VE4G#<; z_06V4G>Dgxr->Xg1%U31oomt}EUzqd_~USLln4~nD+_I{v7k{Ty3K*UD3@`0T5x%q zae11Ym(2u@K@yUGU<{D_#i!I|^Rp|2tJ8w3gY~G?OM*ICXz8gWk3K8m&7YOXNpd|O zb*+RJcXwJqHP(`6xYIJ`;uJlS!vJRwTY4gz%k09HjFkLP*;b1I7! zH-7(*JixXt_6M6W><3%mLxd_!B_{HMoS6yWeT5S)(_(Mt>l#jq1mbme+5cn!kZWg8 zQz_%9`u^f{?|U8=T7RlQU_ z!$RpPQPENb3nk6}<9LY{e|S1E74bN?|Iy2^x&L^6`tz`yLA@fx&_@W%`A0PWh0QTB z=fMZmuS}hMyEygFi!S&bT}`{_l8eXh6$i?T4nD`hm!MD*F1h&lORmx>o>CW5C4J;7 z;XCihKEo$`MouzgNnV!$Y>8zq@9DK$o+!4xoY%8B2ojK3Q4!(!bbo?habz5ZcOzI% zj?H6k1S>?F?D#kb{iT!^o#KDZW5Y-C*MMU`+N}3|U(Q_Yw(qKP!M3k^@KhxGQ1^LW1mpwbu!NU#?J#>y!u?9X?%>1sx@zT1v}r>QAeI7M4rIpk5P)vUGm3t z6K@P_=_@-00L`!@@n?*vYyKGC*3|dYOhR*|eP#Nu0{cjXPcH4NFn^yInzdA7QpjwG(Z|pL7sSvR zcCi8Bh|=~q!iJ=cvEgFw_sDQXLIVS67e` zfnu6dkipJAob2$<1~UsgW__A$nhAOacEEws;hzp>T0w?w8a1_o*_5kgLdPaJEVbA@ zNfLV}QJZoli0$F%HVnrPgM@>vX$a^cn8}7*NR2L~QtZ}7eDN|}rPRU{-dIvfQY-_} zYHKToj8j~Y5nUwpX)lz7oI)I4fWuKD27vAl8YQA%L57fz<6$?*5c8?fv6bS|oPvya zlM5YCcoefK6G!wyLr)xmV(cNwHyN0>G9>vnol-#Cn2uT7mxlCD-c*UtPsKo~R7_mm zB(|}eB#U(`$bh>ser1Tmoq+QtTp?m-u+K8HMtp$zHcXny!v2wkg8+h|#K9je%5)*u z;Sa$VHUx4lwq_HDPb!PgZ)|3q#{gOnx^rfn7jLC02pv%(0zvCQqeMubYb|ILQTu$H ziVL|ATx8Hy!}p~)dA6L`r?3Sx^_ThuSs(<2-6iXSEM-^gy}PMMTtN$ zeG2+AXcW^Ypg%q!@*jte?atH=2>wgEkq~)0lmBVrd+}j{LZ$oB14d%2o&AzoTg@`A}h1_oZj~8;W zS~)7+tD~4*K|u4g@Ivlo!MjtEL3T*0wjDr;e;L2D9o;nBaZ6vqEp>0h9odFkx)rxn z6`SesZoxFZMH(*%(nAU<`gXw;a<><3Kjr@ZPxn@zm z8aJ2BtW)$XVOKyAtI8M_FSe<3RG0!df({sxg+a3NR2)CDm7CTZ-JI%$P6M_Qr4dm5re=Ws~? z8-u}ntAb@+^Q%a~P%VT}uUlH9VC7|ULladl$(H5PdjSfV0i&Ra8VO;v?ZIiMX9VO+ zR~fkWKABGMaB%Kn=&wQL^bG~;83HyImD4{MthW@(kMVWfj`4NSLUrc1OIKlOQC$Gs zya!+uH3M+>EueUlko0YG~1@1lf`x1p!9ruS3iDcO`-5 z8N$yxiJH4@1G4`t*|y;h^LFY{@s+QPp{ih2EHj?mL!^g_%9{?L67ZXO5%ea zaxv=u&H#Cl@%}TtAS4;jf(JeLTx*XreBaN=89whbvLj%?b~2WP9>j+M#vHcT&WHLuwxbyNM-;ACUq;k z%nIK_zapt~u~ZGj5h1A)PU=f1oD}P)Uh6@fO-h4iE~$SqX6TZ6C;Jt!%W9M1-=R$e z;=E>AB$t2a50L_a1?O`tE3`GX-Ez7Vr4Jnxz59LnlDk&7e9h}|CxW{D#&kNP?;v-& zP!E4Ug1{L#7$XSgOQkmIx7J(CR9#M2{+hbwc2>PgS+}Z}xVGXLB{OFnIYvQ8&NdHP z)vKZauxo7plaxTKR`;^jkN>-;VL(kUc6cB$jO@~jt@yQP_rfrp|FK5sVa}WceI=q* znoF-U0`CCSssO-%qAKGiOH=8X<#bzWG^BaA1{gj&Mti>H8>&ak!1EqEtAbJ$*CpP2X&W?YopbKLxtt z6ehHC`RSXnYTs`+`M}g*hXv>G2kf_VjbL2T3AJEa(cPWC8IT&x%NZ13cKzQv-n%se z8cI6oU3r8JupUVK5%JP7I|AN`5CJ+QMjc^Wa=qsSBq&aioCtd0tP@*vNU+IZm|!@7xr za(uOWj6G@ng?ZHbI#)2;JgoIH)$hYRgd3PX{^Xsi@$TsfGvJ;*sroH4SFhB5CCcB( zz9;LDC-sNsH)*aKw{W4w50oPyK7Dw*Q^^q4)(X^a&+l} zE)$QSY&sa`zM8K&s;ig+f54<^n+_VQCIPI+wI(rX)=T&ighGwkbgpENGk)ptG5Xb>@U1x1P^s8EM9onW7s5ij2 z9>iSWmMY7E>pHG&*1>0py@KmC?3D0&GZ8w>uF>(Xg?Ui*?7gW2PzWYO%ic`~CDF$N zdz;`w92D0+?V!`U?xqg-cZw@0v9_V+)vA=bxg#`KAuo%`mkIzExkA;vkH5NrM%Ofl4)<|M%9^f805Z*OCa}wf+%z^VGTmN zk+52@43%U*#63AZLykdzH24@~zvq!pHF<(%5Fm5fS`Uhz5_mcSw|u2sa2H8vH$`xJ zD?E)kzd%P@V+(K%`~$#x`%9=bsGJlk!IuxV29?u-O7QoUKxIO{nkK%jbzK_-<9TnKlD#HNo4;93WFbGXxT0*t9+ z0@Qo|P=M-&=JxW?{|Q6EF;W@Pz{Z#*2xYRCnV#s=Gmm=_F79oE7|>Bqt&G#OVShP%MO^ z)`_7`H>`Go1r|HF{y++n%yxn+2y8nnc23D`C%AQBHK;_%a3}Hx&p}vURlP%PjH_D+ z?dv8+(XMWb0di(Yght_~CwnJJ_^Q(m0$;Ue+Cc;^p%U{S%Om-)x*+6ObWlENCKpQC?QTIlpF{FA_zG+kV2A^kOuEP zCg*w1_df4?ecvCSu4`xKo|#?k>`wjF2d=_$qg-(z*`m7iLT=vc!_jH0bIofn5(U;gVaX4!m9Va`irHG&ZH{h z*7Ex9(V3;M#pE+nxjE^HIUh2adU;){{7_7NBAt6XmL?U*E~UfBT`u*+vPmxnH|a6g zeDa(16db|BjSG@9HtFGHzCDfw9k^tcUM9t}i6-+`7s)ogaAljGI~t>n;;V~j6zz#- zB+3C9{=dqokH*j{4)=Dqa-Ug~xx>BDD1h2@KsunH_Hb`{yOQ?X>9|_-l9Kh(E5@=i`opMLTcG>SR4429!;$Ssn72gSJ*eBuEy z2I>fF=k+?IaO9l}=%%0B0yrNqH}As3C#g%iJAU8nlTic z4yhb@_ewIS-}?=a0sPpU^9LSPuM-&j4X_ zpMVA8I>k&9*Xz(;pBXG#A8gB_1Tm_>#XNjk!R0uY+^F|P77v^x;E)zG4`#x}$buX7 zo?Y{1O!5Th-l%tJ=F)Z5oE!D<4a=xRpJq1m_*T`s^=b7$t_*0sdSZ0ckIX>fzzoC~ z8blugta}Ipp!1={2m5;bQykNTwh@0XiPYg=C~1Qk=9mVL6^?1}SONAWBA)0FiiUuD zIpp}%0%kD%hn7K@MuUS8g}wetjC}q9mT79uD{2+Edi@a9wMRpJEYpbL72%4Z9Y!hu z6JHSyCsJ4t?L}`@*UK`k#Muk~kE!oqiS(5JMtxR6tQZNd#^Nft6`@f(IyByZvnwjl z+64n_s0*OK2n6@G-SwVGXHa)Sg(&FDC}aknQG&P=Eugocdaqt*0f;*tDQtnXMoG}e zEI!z!kjZ5{xm=U~6 z0sO`~I@&uCgNe-V;al+YdYH(hyh%OfO@alP8ARZ5CQ#m_4lslOM#cf#;&;JsMm+Oe z>iwF#RR`+9jgf;%*~Y?~cZ5AqFM1;kICcaaI~>XPDj{`uw=&bMxx0%s{mEr^3jKj} z_I$l3_B#ZkBfs58X6Af-r|6ygpu~BHEI!z$!2c5^^R)d4x?SW)q~LpdnHUr+LF*B& zz^B`lgGmL^ODH7NeU5j1>Guo|^Lb^a&~m=MBzO@w6HOQBw?1D93BG@z-jRP)W)=iL zg&bO{}&@EDdlZAY=xIZA!VM3K~9ZE)y2!Le^U zGCNUi=I#3+C-_$Bq^u(cPZpqERd_I@7LYqe-aZs6Tv#CWf#^t!Cmj- zv+YEwmM8GhpEywOWp;pKvmHdA?UarO%8z*~Xm`vjS&=P>gYLtAUY`}+ggD4P0uJj& z#Q&501F{b#|A^}sAFPp{dh{gf8f`pT;Hql`rN@aFwB=T1`O{W{mgjC<2{PWwEWZiV z9$({fQt+M?@4IPvw4yDy~56bdqn+D(! zH3LA=iT2O(JIsAiy*@|^^r57)K0p<830nb*P6a4Bz5k=Gevo%uZ9P!e2%oYIoT2Zwo>uJmhl0VSu){pv=&sBQ?P99M=1WXo9EubC!La)b=D&Y1fE1`5{) zV4;3qFEK83E)U}X*(PQO*{0Es`uY*`Ft!w!V8#W(6f^;+_18=xdAGuv{A;E;32_VJ z7R1en;}A^;>Wye%(Acj}m012jy-#8hx3Ib_ZbChnQWNS^;z#V1$~7Z)vQomnSF>Q% zPBo;PI$=vaceegL@fA8vZ>PZu8ce-a5Bke2gs+O5+v7WFTsrp4#WJk;zI(JD;+hwv zi)E}-@Kb3#D|UFa-f3Czd6~3M9eVj~X`N*7D0DJe@+UQ*@y ztk}*Cd>FHhHsvMHGT+*2>7Fv>C96J{oyB#mPvX8RoSf^^od;3nPM7*09Je8VBOdy1 zevNF8Qd+0uyA(+BSN4yWz2_4rVEXF+G;Ww6+rzy!zCPFIwqpt$hZJsW5oSa$7$()V zfO^0gzO1vjpo6BfXjt>2BG;EEM=tm)>-ct9kP0{+P+0RK3Kzi^tFJ5DSu`To;VU^u z^iZ)A6W6?`%=ML5pez_B>r5z{>kA}cV>%qr{MvY1&1>Vuldp{@rgt86x>`?6w@RTC zuZ{049IfhYKC;GXetV6Re|t8`@*`q?bB&YTx7F*%+5E;Dr*P<>X7eG$52DZkN=iNe z@H)V2w3og1+W0um_d*Ulksh-Ob&JkR&R1R=fA3x=^UgI+(-X9t?LfPW>;T%15^e8q z^+x{2il%Lct>C8P7O|~soDLJ{#-8Y=!?=a3Ol=2fV~&8B;I>GC4hCnc9mLdlrh#`asUIqS4@XBdD7u~-{Y~dOwvCd!PL^Uh0ql5@%Qw`$x z?)kjYakyPICX0-dTeD(g0mjh2b;VO08%-8=rmS%Gnn#L_q@(3Ip9@=U%S|5+-z`?4J{C01;~K+qc_W~4XU0Rjpb z7(Brql>FTTv~dg!o*)JVm!=G~@u(kTW~daI8Kt0&)15)2m<~9_bQMH{Xg9z*xN(%6 z-4=Fc@JEFnf9JiRUq4bKMG9$M3%pDkCPp{v>c+(A#;6%}V$`g2V$^hE)P#_Yt3|{u zf+8I@gEkDC5UCK_J{X)Cv0^L?V$5)9lCl4dg5c{3Vc2kISYF7tnqSB_nUEJikj0pQ zAl&JyLm)Ygcogov@k!EC2w|6AD|tn(+#?e;t1k%L$6KND62Fam!^225aww29UA^4z zo~h!6-#sbf%km2;;*w8mFjPGC=b2Q{XkWPIxy6lgLIKJ$%E?N%e?6dJrM6#3IUPyt zD5q#y?RZ;EDx5Gt=5lmNmUmqLq1fXMk>fPtJLsB9^nFiZbCa~r8nAbg_D%@cWrr*E z=#mSMqo1V&?4iSh-UA#G2WSh}75bsqhfW`+2eJb>s1g#nPDC+aS30U+0vPgu=m0oe z11_v@q80_6v|t@XM5`|YxsW+-+Plb{j(+YA*j0yT!tJncRxUDAQS`t(NR9dy$NIVA_qU=g}|&(CWDA4^7<#d zEAaY-1TXXYdfxOZ^6F0YfFKT|2RO~CpIav@e>~HbpyJ4Xg$5j z=1^v=nLbDuC;-GD;)$-sW7Q$ZbRqyr39u0XM7Zg#n*duHKjEcdW58Y`U0Z?5dz{Mx zc2{c%6Kg0Gu!9D(1XT_`f<(GB}==j0; z;FZh^*oC&CKj%c|2J8}<6|fJ(UIBf(F7Pw93im4=8by~9BS8<@^18;5Y8sCGwhwJN zkzoM{F+#$Hr4>f^c9{R_*X*QFR_w2S%@4$$pFszw(%S+KD-J5fE#R=?Xcu|ugU;Wl zy^cL;9hq`;{FX9w{9qZaV-Vfi<19hnZY@T~N4NGkyJK0<+Gc}uR`h#+SD-e0(MT6m zGFSvTq}{J4N>7hg(#69$n-uFrKPcnFI;kZe>!e`*{mMl}x^S@5vF%2WteEXrw{aa)ky*-vdD_Rp5u=}JMRluIaePTNdBcoUYv_x!}{Xazbr+5zG4$&X6 z$wliwLUKv?En*Xsmh7^Lo?W)LMei!xS%xJQ8lJ<3M zvdIoF?uc&l!XM~1nN7CPxFt|#_Jx`ua@}N89A5qh(8^B8%m#EcK8@b^HBg5pn^M2_ zm#)*pJWvkM;q_1>@;#OhDA6l79|GJe2h62q|Aq;A2Rd$ElTGD_Sa6#Mkd=>;2cCiE zw(mKxCf50yY*~}anru0-51L@Y`TZXZ@Q(?_koTHwg{~)0Hrc%6PVl_>IM1_Roy!Ux zL;NV>2{qnO6!9bXVJxw*cV3i}iJrVsA9r`g$2S?_$T=rQqvLHaeC^ zpGJwNQ2Z&nCVUbg!t+7|L-{VmccO6Ir;-zAhj|AQwj-f;x2)jb5Z{KYwxZ>RwgPOy zRhxOB?prHh+v!_0n9 zjnGzXmm>4qYiMRXH4vYr_Hk-5ofF>0Y&D+tUQbPqb3EQ@bR7EGxOBqh)Huw}oEkHe z1BLU^Sb+y2!lnXfg{n+e2otv%qHFZkNB%v3=hS3H(Yf2_@0=PbR@Gj~fwYpL{^*_= z{n0&R{ZL77tdA_i6hQ9`1hA0_0AM-q3V>znVS1x?Mlo;07UVgPv)%3p=51FawKw9Y z0fQM_X!+`#6!ha8f{2GMn$aCyG}f)Xjvjv|9dtA3b}gN5*U~X5Gw@0&wB*-#gC2C! zG<3r@JYyu4&dCuM=42<5GJ1E*jA6p|L@-wifxg|c7%|^%vSCK9v*o+3ILy|3w}8Wn zgZ6c3QRchFBwE#L#wHs)AsX7lgfm^eQn~g_R~^^4+r7!+HriWP(g2nL<>JuK?C7@( z5dJBK5bluHCw*pT#ghx6c6@kYH)oRSqFwBG(f+nraM50s+-YGqZe=$IrxHKbuWjuj zt^HXgt`Q4WV*kT?W}wSl>V_@@4c3t3@0sXN4*?ay@0R1$ExwlFb?J993cY9y=CChTCXA*vtD09T7;IAR;w60x+qa}as3NWr%w}9D%ytBxw z93{$g3sj>aqV+7`z>oH+$L-54h=**|aL87z8~o9}cDb$sZltW1`xYrxRIaP*{@em8 zv^C-gQXW8=nr&a_79>3n8Lc0XG90&QW@Z%Fu)Qe|KPoYe{7bH@z>O``;4e{R^hf(( zs5)t0AL2*@rId6l<;S!qSr&A@oLk_<{)Ig0Odjhc-I$i6s~z^id-g$*u;*?l65f7J z9Jps6hR6O$8`pQ@ZjZCi#NF=Jfa0ah0JGX*s@Sv7)!IApd3ZISw$J151=vP=ScC?_ z9)Ox2h(&2P3zY$8lz|Es^W)mS=HkScc-qZ^-S_NkA1pHyUovMTzJxuq%$kn47jZAf zO3%SPX=#i;(N&j*tDR}gfn?F_Uhwxc7ZTkqPB;T}>Ru{vI%t_z*pkf*iMp3Oe!K1^ zSDQ@-RvH3NFa=P9ATw&!z0@g`jN9%j6jGjCmGQflQ$M8rMO?uQk zmVm^@1ki*03AENaI(lj`dTK!r^2Z~IkE4}F&?%&$P=nbariN2t6-6osDR$DB#3C4$ zb`QenLL2k46uG1s!|`3zEUh^OgoPoc=iNWfvmVg3*g{vjPdKdf+gqwgc2dYm zTO1mlc{kv5Sg&L}hg!v+1%kA=EAR|myFG))c?u7J!-~TkK^%t_hj|y`J5dK5g~jdXqb7|Hg8HsBj(Y``~M5BhDinP5h! zYesdP&5$Y&0}3s7ZhC|3K)zi|Gus}8JWu3NlAT2wNj7(BU%GUir*h@d75JESXR{?I zB2=d9(muFHo=I1%Gw7~-IwgKh$HeHzvew-;4JruJ=Etip?eqGlV!|7K3tkZD%C!zN z9mK`?$+Z5E8K?5%Jk*J^7%DtI0n;cBD-JVc!37*v9OfY6m}13o1uwPh9EktAw9g@3 z8%0H$m=SpHmf>^_I~*cS-rxiC3r$1m61ECU*ebe&9fD=*2RG&PTMj~%+k#WboGE7M zz)d+a4%{?L``cstZ=%Ag`?6e@_JOY)pkGn*vJ|ZN4^gfHx{&Qi7qUxlWyY}3^@Q?K zF2nYqH0K?PCJ$HK4zGj zEpU@Nz{p6`YOQ2fV)rX8*Ul#bx1|HN$6tL0VW#jZN*L6ZaMxET;iX`^v?>G{~TV0fF@E-5DM3 z?H6qb{}j^@wyR2>hZF5UyO_5)=-kVp^ z+LY`vTU(_vBS3K)_n;mYc6ImKNmObKUt6t+sMq^UAp1 z`O`2*ZNTLEO7DCNEb+hN@O^jZW$C-wLwsw*2}6ASW)yV5PPt(5r@7+9A-=P@1$mI; zsQw-kPwfyNX1szo0m0Tn+V1q-YiLJ;dF5Ai8-3rgq?{4`))J1pOi$tW*hoYG!4 zfccm_9~K{M&+AV&@|ahr4)LiD4?2(k9Ad(S(~#*HM)_Gt%tFb-v%q01nBxIN zRW*m_K-sWhUN+!7K*zj+co=PgxL}Cy|FTB;KP0~_I2+zzk^3wGlDs_x~h98WoL*RjY`qv(O>ppjY7k_)KWvofo0!|A*n=jlBw zJ&{vKlU;#R4<(l{r^x9%@CrXb>aO>$CVPUdSCieE)>jMQFhWt zNo&ZAJ^>WkL7xRdW^6lP)Iwq@>(GOqnKUV)?jv7gZ)*g2^VBE(F!-xDy{~s!@N#?T55F- z*kI`zv?DzwN0#9wJ^*=I%o7=pfVHsrbY45n=RrD!PNCb6I&33@b*^mFWRz){1ZL5s z(|KMxLkJVGKA1=+lA8Nd1Rumi62bfcr%DPotsyH4^&#_El*C~jgE%%|0uCzjtTuqZ=m>00)^J4yhexgw4Y{+yX0ufrEMtoU6A|A#~ z=N1=;A3+2jC$?j*R&2#GLv%mp$9~M!X2PDTx3F#{fR%zIY)B)9Qys=yVj zWTfSWf|WWht>NB1gE)hZ%cE!jLriipYiI-ZT$LNrFg6cEe1}w&e8|a)JBBvM#m9#> zI4$vqoKiUMhT|%lP5kjt8V&3)$s8+X=2W#={LoDiG_8b zY8ENd2@JT0@?n%I%)?i(%n+%|K>mK; zk8ls_M%eN{+z1Ew!CFr~5&GuCaj=EBLw%A+3OonP^GS*_i3t4w)j0RZ8Fv4#jWmR* zdHr67aG{17^&wF?srmoV$S+_8zT%7jF#rF>|1keQrrrF%i*#l9|FHl6iXohd8@Aj3 zPlQ+FS~cNj5hynDlm6`o;Q9ad17L%l`TyYuKx>r=!(nGWStg8to%tl$@9|?{>8Q>S z&cdDl!xI2MoFCEd3LrH0I-YkFwV*%lFAMtA6@ZLwcLjhGbp?RaU#7dcM;eBe{luS;r|a;09v>Lkp7RZ09I&eMP|~9{J*&Z(6*7m%R3svx%U)9I%{OJ zr+-9LF6skddB+&;F^m1n2SDt2AAJC% z-1h;1PegqHB+K|txKTdKUi{yD08}pFmv^F-S%S*AL#&Tzze01IgbyKSg~|6%b@xwG zaQd2*6&b=lMwz|5Qvog`+$BP!kc_aF)Q|$cn6HpZIUi!H2_wqEFOotEC96*jDTfk` znl*G(v(AvRC*k5)J9mz#jml)AdzBGXQ;GIFOqAJh{H(@Z77(KbIXK1PB*~2NIOWQW zTAcD^d^am==wxO8U_XjT=OKhOoXP(RX@Nu_&bD!yG>mzIY7SSLCGX)4(Z#2K1u&?P*{h*Q_gxB^4C=myy=z~T0+*{KCZeMt2(Js%cE6I z@!1L$d{4yf_-cg^B)dcu^64aJne;IuEWl^0kckV5*d!yl|JmGl7JRmcajK9R7v4WD zYCq+fWhkxB$z)xHMLiXKubzt1dHgccQ}K+O4?WC>7V@D*#pDJ?xqyZp5S-12&GeN^ ze61F{0TW@^Me?|vtQcyR!=>EZJ+dTjC#$M7^2-dgy&0d8C5rQ&kr|9;JoYm(zWXyW z!JN)=&&YJ#YlKGI852gIXYPPeY_zPjU?d-Pke8_1CmriBN`)HUkXNel) z@)D%oz~e0GfIhK|!E3n@Z*UQLLN&B0JD^J}V_;s)n1*NU!18{?)9`9L-0u+Vbi%!@ zB|_@`4w2dcZ`O1F&8FXfvl%#bk{L7apR(Fdd@tOotOJYnWT-pyYABr#W$>X)K9rS9 z9H9p~5E37cw$S%Og{1X7uTcD#w~sVVlySy6x8jVl({YLYV;UhTrm^JakxHHqC!It~ z;ZHJ2#>9>=Uw9yntqk!=^1seXoO43RHqOQ~Y*iVPW17L8IvK(PRC2@Un8u!TPAP?x z&nazU^?qf7x~GyWjbp^n1&v8G-(U>7S|y{B^OY!V=}EMMWCQA{gi4Jn?5N~VnEham33$1Gz-R7GX<;D*N;!F#_d-tMSM zI{kkM|L;wb-#;mFvU|%|V>SkYfXWrNb!7Rfj_gEq3OJGOMXQmWOG@lmg(NUi*!~N# zq%I%Pk!XJ*smma-*nU>yuNElVN6n6GZZ{R&t*N~6xqR5MLB|Y=;|{Ad=tm9`&vhbs zN-Zq$F7KxG^d%X<>xob@Q7%(4a>YMO^Y~Eh)zS%Jd}$(YEJzEwswAsnFr3PO^4m^%QwAS1mB$Q#;lARRnDtB%uyUJG$}LYxayR;=_O7j zGYsY)WNgM9&r*WGfA316tL^TU!psN)kN?jrh3>XLmUJ}zv9r(<{2iGZh#PvMzaa?y z3YhULVln8KdLq9727aM7co8F#Tt2E?8oBSVJYI|pD<{M!*L0X;`te$!tL2CJ*dzWh zs+?}Gq7Xv#gs8%4#%0Q-yVQNG>GNxa?u^f|@wgZ+G<^n8_ZjF`pLHMWFrCMqlKBU{ z2~^3kvs(Z@p7p4pooi)#aY(vFdW6ZvRJ_ zPDH%1=;k8!xeAXzdWZ2ik07gc|3{wCVMy2P|43e4u0}{-%A3duJXSG@c@u_>_jQ;v z^8n7!>VntVQRSt~2MX28-966zA3&OJ-&rW8en5$sn(A_RUfm)Gk(`Lh#W-Y&X*K0UcR*pDe?Y;{LsJROJ3!w`bW%BN>P$dJ4Kixb zSQtdiK}fg!t-{L$M=MO#AbnJ>1XcQHK90}Mq0PQPP%lP|3JY(*co5FtutCj=l0gIw)-47MuDuO8Ct9CybAcyM%#!&z|mdj zN+rWwr0Uj&bk6Jm1sf`>k{=O=*$y&;4Jj$0ON3GYtN;*G%8DcdB!K{d!)ig?j5rS7 zbV@N$qb}W0a!Ro@kyL5)rFRf5MHDCKn<`H!DjtQ8h^^Cw#;wz7Tgg$FyU!s;Ig(3% z-7#Hk+%X+gUHy67Q*&NXFcyYXS&vh9hZS1yu+u|YQg!*U&lT33kbIUEHf3j7S>~U; zOEDv8XIWkQ%4S)eJ_O=#W@~QcHH_^~6IqdhRQ*9r@?5#QmHmV0StIG-zf+PT%03{R znR}PW&J)=wB7RV9m5aC3a%~lLyzo{kNs!Aq!YHMM_qz6ij8v#^#Vt8DqVEOQY#G%Y~O_rWgPe_xEdk)OP!gCM1^+m49 zuTA7bO1>B0ACpZm%^4PcOD$VwNK#(j#;DVHD~=R(n!%<{b1fq&Fmjg(BX_W@mWd-P zD^1^PtyfUbb|VQXPkDVRY?j4F7|_NjG1`Bys{WnZxEH zp%^8^OR0|5ahO$hBcU`k%`zAh)ra6v4to~~{?s&0?==0Hb7>pTYy&PMN!@#svw0vL zFB^$t6iMMlP9o_u$c>c}hrzd)ob?0P-xy2APeIjm4-u z2Wy$ZAU~m8Y83X9@h0mal9lQl*j>0oxaZf!!PpOaG5qxY+IVXchb|+=)~Avy>#%NG zi+=nlZ0R6_5&Isr$6v{TW&aMa?4J$G{uu}D7`iI{02T06i{z|G8SgOn+M+P_7_NXT zmc||!Y5YA>#>?yeN!F&a6+w@`Y=Paw_zyw?trVkPkOt0@gLX)DwehB6Ab)pcwspgN z5b1_1_2YLjVzqH>f*AT>lGYRL+-4E#+AN~8%>vD=q-m+(^-+0Ef1AbC=BBJZcbkPG z2(|sw8*v6wRM#y+#&wGn6R%r9wzMryF{L1>?z+Y5yl(Ntk^ve4{MRjJ<~rK21t183 zTvw~YoIcef$YWftH~?}KsVr?~DP?koLtwdfugv@ktL z2cN$Ofr7qvyqc>DP8C0+RL*1bJF2-0mU}X;)%2>kbG_wOyE`-AA8={j3Vz11ihM_n7cQyH3#m9DJ0W11jyyzt%@9^H=*mlL@x)Y+_Z2)yxUo}Y)q zoj_z2o%v9p^ODe_Bp8^NCwG=PUZ(0ymvKdpbwa`u!Xa+1S#AE-eo5W3!YGW zg9UT7rj9_ZP|fj%d_eg?ZFy)05gG(@H)#dUt@Tn=I@3uj`TS=(<#?l6+q7)vRLPlj zrW55zge=>%X7e^JZ=zId6F}lNtzg8^Vnkd(hJeNt1TP3Vr(f6H_|AKe1iSd)2}# zllwDc?P8w=lly(obmYT*9`fg;TY%k}+d_h9s5htQmYRjzQ-^>{w< z$9UeFK=>4#Z9m2r+LN@Lme0Vn(mtiYx@xwYIG2w=u&gJI1!+)2g9(^H!k$i|sO_~1 z+oub!pjALlCOn{2t2lh=6egc5xN*1=&~a@OCYCRN29E4uc^z*ib-8t z%N@T%yzqeskT4v2=RN;%@F%A59;Bd(m~5ntzz7|xAlCzNgkNREkqG;zjER_DIUp)c zBzxkNgQD1aP$Z^zd+XdSC(mfblLy7l!tsNm>1c1ACwio}&Q*5=P1T8*C;E18oluuq z>~X%Wf_vdNff|AQZ=!87Z=h()A=*l5;5-P}3bg?#bYSKx7zv%ZD$5+{Q|t=thb#uO zzg$PRIzgx$d7N0*!;MI>HPi=pexh7Q0XSjb!9L0Ma-CbVeFnpo6+6KG!VD1EQm%6a zwqQZYAO=$j#jd(dSi3qm0mXnCHsz@$o@t9S8zWBTU&SDXoZ}DQ!#jp?>T(Aq*E`V3R z`Ma=)moBMyQ4`2iJ1GXaMOP!$PV!HnYINgKvT;17#PR*GRe{-0p|!O^3XP*`ccHOA zDNL~S>DG*a31ry&^n_sVQ^3MH=bt}jT63`lO}$2Fbxx%>X#SInC3VNYUEw_sJS;@ z%n;+=c+n?bc;m&C(igG9zeTG5fu$UL&dSBXt!ZHJ%^g{caQhg_;7dzd;AO?DV;bbr zXTJ`!iy0v@ra>G%rlBe)GhKjTn{_zjq8R5M(T3XflFGIom;qd1~`JvUq5#nRGeHy2Wpww+(;Lh zA@9tG$0nqvtyVQT(h{;e5H5MOrc_?a*Ys@CSJ$qV!sBXJYvftP9?T-i)mdc8!UXCk zG}T2k_vE;GWlt1_H?C3))3DefZeFdG_jk_VSM|m?RguwQ>8f<>0{8|ZCr+*Bh&>N} zGe*|%Ob@ZL6x*g3JZ2~qv-NDk7~C~5jbW4|H%Hm;$5QF>Zr7a5ks@6!hC%0h7zW4x zSjzW*0P6eT5o$~=tYM%Q-Uv544Z}7$4Z|OI8bhD?I_ z=W?zX=9R()S1Df8d?Rx{Ty(BFqteTzkNzLgKmHS~xC z?t6v;Ynvuf4tKQoza1tZ0gP@>4E@s`!Csq|!0Asl8XpV-`0so)v-Hjtc;{PM3heVQ z&iGLV!vJ?=aN;L}6F<0U8QJYCiPqTNxk!w*;(1u6Qf#0jg?)kehQqKCiQEH-tRWpasZZI?S4U1u46Gy32=i7fUfe(c)GAW5*!kn`3Y z6FgVAgV?*1cT98(PmU&%-%I6jCU?jZXCmscJWhsKc~>QpA|@nh$MQJo85oJ`T;+)x zJ6A#RsB=}jm(#gU*4U^X$sNqm3O&0Y^}4%H-w{98DI$%C%WX&1WQuXKPLSQvJ|?@P z$v1IQ7x3k^vv!DF;SL$Me7jM+)s4WYr}Ehp)%Xs2277~_jk2xBvbpDPDW!akh&m=yG>&#?cgUX-XAL7fkQP_2HEw z0`*^kkwL5_H%<%>;PukuaV@!Ukt3H@w3{wi^yi}}JeW^5b!o{hoxz8vXmt7qH9G3z zY4XJWCCZ-+@~<}YQ@`5GJYsk`U5S23rt;xwOSHscTeLcU;3l-$hu{T3)RD#U?uhKC zKBlriS+V?2R#BZ#;D`J+8!!IQ!paWA2aGa^>zU=lojRGrw(UtmjB_5IPT)pxIrj|7 zVG;&t#HU_UIK=OYo=g|NEqcFRqvN;EJBKiJJ{Fxlbz} z^RCQ1Pwb8Z7>hO zqH*RgTgB>Mw(7*{HxDu;iY=spmF;zRLjRnmM78Rh^2J^)`mPoYH|S(h8YISwhCsGD zJgY^Y^aHy3_imVz9Aui^qPG~D^Ky%Zm7(u{r#H=M(WhH^HyJkyDw#!N&Kt15vXI0Y|(pn4Ldu)^Z+ir)vw@N zga6G+cM$tkqVLb%>IWkOJ+OZrj9#kk&)(?giNU}?YGmN~_Py(u{XEP-;OKxA6xWfL za-0M5s- ztIX>z=|vpbV%;UZ+`R7WAdj>B>>yWbSt;WRm7N{Lb^523J3B})UOvDOO;A2UP@Nql zUB;&0idzM^8HDK(QIe|T@G+z}UM4KE#Up12=_Q5yl75Vs5Q{g8377OPZaX70QCXS@ zm8A*fV0FXf;O`>YX9u|h*{Ouj#uIcKlp4*n3@Qf|B(t*&Qq-0=;FeqjxRjNz+t_jbF&kssmb$tr=WO=-}0RO2zKS*44Nl&WFlQGJ!kdYr$ zm)Da!|1iMy+j{2C2L{=l*7dSGCk-)u&Sk^+vr@VFlHMnk8!zd-(o=>@`bsf|+a!Er z;0m=q?i)j*_{}$Pr};~~!mj%zp7Uu`bZj-(IB&cZ{O7# zH!%iWyl=fk&@Z2Ppl?a3eDC1jWR4>5Qk#Crv1R)CU)$v6x=t_^ zTdL!iztxu?u(QN4T1Q-=0ne83mCu$K2KLlBLxXzh`0*KpAM7Ih5FAzT(K{5!To-XI zcOqdDj>$-v5{D_g zolT9b+fEY$kKD{;)-CC1j;=l-)GfQ2<$UyHiMi=y3Ewowp5;fx)VQRhyJhvs5-SeV zDuC98lO>Vl_(=nqI3mD(lG&C2u}pO2X|mN zXcfaDU4*8<8qV*bRY%{-&E$)zCi((QWO~U?trpRN7LL2OuNVA1I?g zP(PqZU!Xu=TdIhNBrS-?t)%6>{#*=!LaI|)R}Q9NvsuJWA;s(Te_%9~Qd#@c!!v`> zu7oKi=#01iUhEBZhfM~kOADI)6TH!`Z>p$+99N(VHaSd})iP6OWHshx`SkrPfT0x@mTTf(|lHSEmFDaE+lTKuq zEhjQ~b1tOh%_lM(=0v0zkpk-~SrGw%Kan9ooziMRT#q<(DXqA>IRSB4(z4=g)*_CB zw)qbfto+x-(i1WmEf)g66nnjkH+&Nh@atkIPpeupeB8of1?gHW+VgMeIfuDF#bPwJ z2x5fquA+O5TZo_Fc0FOp8EV;*OtwEECH^K?vXwe`zZoqvcN9Ne(wtn9uq^fP@hYiV zx&Fk?_@^J1m2}8iruy?Zmy$Wj(OZwbL+;4#w{wd!zJ#Y7IZXM<3rdnw(zBK{t3cps zRyRrgN%wJlkE7XAv!+Q(bX42xGOHo*+#J^=O_Q3cqIQ|1y7);l2z{kFzDers26gTY zJ8yW&&R0HW*AM(6OOy|_%f1V~fj$MygeH;k^N~x7WPY+`4efPssw4KtapFTQN!Knz|Cbz z5Hrs&2F5(VeRsV!Az`+c`&+(?JA3wVkvrBuomBD6$^M8XBB|efW9=b2hg8y_0|I^G zd5#+$mm+Obj*jD`0>w|Mta!O$l3e=q?&vtHAZ7-JEK|ut>DQE^q3d^SYC<;yVIKI1 z$s%2NdB-UqF{gY9<_gH*>#;I)P$iMfQW#2q6;*irI z!2rQlXTz{8(z_uyDXzL!eWJ(7l9QNSN?Jk0YBsI+SiS~%?ENp0@*(8On=MFr4_mTN zR)fs;5fYNCYvG|te{KqyeC{`3>*Fge*cXhu04e&Ciw_dBZM{eR)5P48D^G%YdkZD( z2cNIa%O{4DbzYKNbWEloKTBZIoSdR!4b5pXZR(KO^{^$GGduX;L?rE95lBr>6X`V79=!9O}`?Mo`%3zj@J(_Hi_ME8qc zPk=?$j(M{967s!rT5yI;S5D1U&YoU9XU2?)^?bvy3X;fH5RdPN{k4e-6Y&%#n}~8Y z*FSL=1I?+ObUDvj9uUM(y|u6;q{ajY5TgqZgz zr_lHdB#|4JH@IV~z#9R_r1AVtuYc7$qf8CU8(b|bVO%D7e5c2`0!3PvpC{(!SDdD0 z$Z88=2#$mlS|To8-k>(cEpJfFYv7)T1NK`zC4rsSzXSM(w@SSeUWLXS)~W9msp0clSe1NDScRC!IdW%5SL+Cn zeL^GVH7Hf9k{H!0Jfx_c*8n-fF=}~&c(@ifs-bx%7VnC9OCqZ{6mocdGrxZoC}>qzDo@p5rG5ZLT4uQhPcG}y^_1c?KMkJS^5MWGrrlGR*t9qVKjhBBEltPA&g7L)bE_F5g@3=dB=fIvm#@e6X z45r$~qi+YzLfb~-vT|zj?8c+yle-XG+H6{_aQWqb$mDMhs*YkK``y!VUub`;|3$)HFigCda(ibOK`;)ff^o4RY~S2*2endcwdDaggbdG1@> zAEc4n3yHa!NvrNL#^07VaNkzX;SQVhpaUK@k)IUe)=8`6;`&Leq$*|t-#A;AID>D5 zesg2@D=DU4%WaS-7sh3e6hhe}wWpQjy}{fvk_ciKGhQwq$~UJ@e?;AVB&;#VJu+xX zLa5z8MwYAWR|1z92^D_B$%n9!Z=UM8VC;~juC>oP_$J1i!(F<5IZwtn^yM3h+m1U| zrs;`_C%HWh%?a-~8tge_`UHMu8tkB+kmobn1PkfTuVSr4JN1Nq<&2Y#hKCizuy82R z4f?Vt?gEiiW$2xLBXGY6A=loiZZPqo5!*;!X{e8(c>v0bgNSnYJ3lbXM)NB@hGs8h zbDPs(i21i`+U>`)_}bma$yPJpaNO){DE^1pz0z~u3?tLd)s-sZST_8$s0jB}pI)3> z^wuBy8ItT!9XNhAJ|BbLAP@&tB*|eUn@$75@%-v4BQfjxnuJm#EdU{k8FfhR&TPcjm_U{;ud{l`)a`4AjPHD?wO`ILUony-S?Sc_wlk(g{} zyR$s8h@IBt7QF$g=L1tvIt$ALCtpA!P7J^eNNITRXVctoLB#uxWeWQ7rFNt1!}zgU zSFrSSoHm$4PRErV2BkQVAHBQYeYpR=mN-Du! zLRp|w-}9fj{Nv&cCB%MH23-6Hu$Qd2Pk!XUhxdA(S&ccVgI>_H^6}k5HE2c`A4nUt$#UrLm!K~lxvkXKwRL6liaS=#vJ6CUU1CtoARM$=q%l3@W|0e zYgp>}JNMROoVoBdES&p+sxW#M^RTWG^?yRQF-5#E5K@R!bZm}6epM?mimTfA@eF$M z(Z@PZC%Myw&9C<6u4)r=>ey_Cd`^VTUun4t!l+LXqSTpxp3_&_64#{Wq)Y7X>Fm-i zVBJ58Ki3Ulpm(|K$Yd=$qMvy^6ew=@CrFw5h*tiS;vtkUdBy!hUZg#GG5$h}(`6 z7sDPWO#i-Y?Oq}D1jikj9mmcm=B*nz*Sdu3J%zPn_vVF6rAPJJaU@}xo?Ebk1@Tck zn)LYR-FxOY<=zncrkvNDCFG90-v{`*tL0J+vs%uYxfAYc?PJWHO9!2D;r5eB+_<}$Zhn^sw-I_sgOQa=YbuY8xu|^aT~M@_cWF_+hv)xcel&Pd`4QTtdMci zP}O!BOJ*}9MIqlJ6T=%JZ5~m*mm=>+gyLPq9Nk68!v-;Ak?DnBhZFH}i;N~XLVOQ! zcc0&l!8oAajfNwK0Eszag3QVs0WFD4kWD{=rK7@nREE-#p4-Qc4vo#w!liGNm z7@kusCb^2pKn3|~GLRBW#N*v%vf}O`BFHkGJpZ|dL<^6I4(;tVI`m}p10#7dsK(Gx z%H6)DI-(wO#Y%4bbCu)+wacm8t#*CE_8^AHYWaBi?OF!R5sS3z^gtE5kYnj-Q<5&H zjhK=Ml#Q1O;?h?uVXAk&%G~&q3UZ#pnak+KvYx+S^qMVKZIP3ua^dK3@M6%iXJA{U z!L~$`vx9j=FKgCJFa4Eyc-(e5IeXWs zQ>Ut{Po3IlKhMr02L7396~a~#Qmf)?w#n&VDX{c2zHq}!;k2Z(szevpBB4%8^tDo= z?{`+BFH(_W{M=?;Qb|NPUSF&A?*3uyH!RV=wsmCK0sA-XTZV=>S~4jtj$6_H7W72b zm*tahu{BxsV+;*Hf0oq{$1QFBQs3~-9eYE(9xFpEI|=oqKE@E|W5QPSpTq{sCa@-T z7e?{;6?^LIAp`XX5(G=aAMPl%3O3&>Qc`;h1AQW~t;}<)cP?fb6LD*^pXTgDfBpaLcFy`HA-G*T!v(j+mC6Dj zxD5ssBNS zg5|mOC$x%>s@W4-Lu`|*v&^6d#wOt>SrjM1$i$bP&=Lmx4=1$zXw=|rCtwproL;>~ zM!W?WP;|b7hxwHEfZBN$8$lqAx9o>x_KyXjnqLjX5{WAiI0jz+h9{y~?Rh4(fGG; zs+12mFmai;w?VuLF|||tWg^5^A@=xigETJl?j|W&as^@_f!jO}56hcz~_8c_aZ) zHykl3!%0AzY2%w7X*;xXz`z?Cj|B8SYOD6BPeG%7NRh_QYF)+$whOVISK~(V+7mCiqq-AR?x36}~>bD-%F7 zyb^8}&m}~=eJc{8olz_Bt=YC5V)HVHxyuy6(G*JV)};_DkVHF>xZ4&(T!BRJEIz%V zSa@#%T6Kl0e^CscPl`f~r$Jj0oiyG%4?@k^U~+oB=zQszQv^p!`Vt%|=}SXGjh+YW zI>|)GEK?VMTHl9*W{C{#u`0snGV?pu50qK zV64{ATvbM4){S`2gSa3SKKHH)>e$}$^dR%5QS*d=mxs;kD(sdM87!U^MCLkM9!K%z zMAlKr4jq2cGE_9x7MW-gd&$@ldr3iL?&iU$mJ1)*(81EN?&bmoq|UJ93K={z1}S6! zV=H9N6?s^$@t_1Swn8ReY_zvOBu6f!vp+A4_Vt70>5IugLXz>Fgd_z-Z*Lr_L?X22 zj2&)Z6|k8d9y=US0J5ZGySTj>7vM~vaTIC&-?2GOHMZB1=a8?gnYpxnJh&2@*t zx~&_8K7PTcn zwABWPw%Pzl7Wl`nKnorVgigM@&tFGe@)m@Y<)AUZ-YkYC57I+`&x8XVO)N{fi(EovM4THh)B6)Y~6Fi2-YIT;nrP>`B_T!qbN~&UK)Ou@6D@&)<&ZrEuryb6-g|%LAM#ggu zIVpeL@KxbEF5S?m2AsQ5Wgz$HeulfS+n(hcWoUFiwlA@C5VEFyN1UN?s*;(7 zr};jy7Fx-KN+p96B)02&}VXC^7z^SZYZF$!?@x9UjXgcrvPnaB0wA2Q-Jnb0JIy20TDmu10oM1`Qx}Hs;lVx zxJT#+UXPlqU}xthh?nDiM4R}Dk1*{n9ZZyuXv6SFbY>|BjU874rUl^0U!*e2xryJP zcDWS|OhE%R#5fgukX0fx(?$@wXfW_$tr5-(oCXbzctl^Dz)iu0Oyw%MXAq2K_fe`^J9}+O&w! zrvFB0(-OmIx)Y&|U<;jBGaJ1GdVUT!OT3ynB6|Lrr&lxg>DA0b259ztWI)f02yGh> z+GuDj{eOedmOMphBNGwY$etp!vr-L><3!y2S)#yN=Kn25d;I@@80`r`l7dc%c8Yr2 z|3GMuua5@$@J|A}X0!-qtnUhh>z{D9_#4Y;0G1J=2$x0%xHJ%syL>f_9fZJpVHxcDp zU^J8eMxcx6)#J2r)>Dk;tYiRgMUXWx%p%AdnFzA(Nt;BFH8Oy#k#Td-N^!EJpuQ_W z)5(%otN;lEbqb7d9N^yq=bO_TXBYm&+6-XU;$?*5Ky-#6gCxSFkpU*H{u35LLqqTX zfVR6E8cUby^(C1SL&{FQIN3vr$461GWU3+u!tZ&#SYvF8OvCs=id z!X(0sn-wMzX55>O??Y>P(>1XovOOiazl1AWD9Z}r>Z$(pE3kzDcrQYYN06-g!G^|I zrQN43CBIQRL*sO%YGBngZ%OP#5N8f$3;Dz5cndo7q8N_lvJwP$BF4&H`x`^B;xJX7U=j%-wgOgCe)eLu%(YnNA}MpZ(p+_~#of5YCWOfPfQiD!Us;cRl)iNHhtR}@i)oDkQa-V8pQ>>D~jyP(7G(b6GMXs1(>kmf+rb!sUt5KH*MG2CpF7xW>^In) zC|4>WRXpH@Z4>j&rybjhPtn4*x_t9xVOvSQ_~UIW%{N~VwoS@6UlO*JJyn%M<=j?5 z$;K~G(iPJNiWMdg?5sUyp!uS(ZR$Ytbzxg2R9%H_*#DJtTUCrqzwjp=9*Zx8ZPj=# zuxEOn`72>tO`ceJ##2>op82X5mu1*CYi3M$!?u}&Q`r7yLn7BO^%;5#E~=7im?l2O ziuwP!u4r?IhU*(`*7tdf%6Z1Hb)MPWXUSBJ`y_=m0IoN}8Ro>0{JDm$vKXS|vLSmQ z&ogX^7v(I-Jt5CGY@R5}>5$VP*BLfjML8963giWbP2)tlJLF`@3k{n>L^&yj5Z$8j zjl{5ViYTK|y@36cVI!(4xmd_CkZHrlAW@En90gfoSU+EsBOym944J8h^$JSGg+mMj zN}n;T4-|L1AUh%VFsz#;$_~hO$Wp^P^inCVQR~rXucG6F6{ z`mM>yoHIF@9T0F{@Y@D-?g<7sOPq`rYL()?)3WTPo=u-@SJ~M@P z-Rfn|pKb6vvQrqa1EeIgE@0CQjq<jYXa50LDU_BPVlpVYDEzS#wD75a@}aze@GxA=sx3EnuIW~F8iHg z)Laj42?Aaga7$9TB|WBnR4A?Jf-#^j-M0;KVa)Q^>G-SnHp84 z^-*%#MfM~BQ)mT}s8Q`A0m|BE{*ht*5h@$30F4?rA*%yX34Vtexrd;ED?@~~28-UA zyZjUMyDEqU_bZBZ!ZGV#&y=-3hbnjh*mlCQwZKJ&ZHH_?yT(-{F0%?Y%;7K)G#Xt* z`S4|X)uaJr7~Gv3&1k}$jY9@ikYPKZu%HPmPEvU&k_^v-0)leyEBeavxszIVLbka` zAU4wN;-tzgkb`iJpx-XWWls6A4;l6%G{LA5f+mY_&L1G7tQ$?R_KHQQu@?#l6fSh4>=rt)018~Ba@Rb2*#%U188UXN{sB1!w-n3& zjbXTq2o7!9`w;R2WeG2sx z)s;pIFQP^Z6w$Z}yh8OFEG}tjD^Nkoh&sFX9(H3rs1fhkzC;`3*tx_^xp-$I3> zkg+o`6*3&-h>KWKTqH7W6b=~u2P(i6)QFvd88{^^DH{#TPGcHc{KQ2lS~Bc7#B_+6 zs6VnkQmkX?i7WKELWN$Chu)iK=CdbG`v2k^%Uf6$h}cvXg`U5 z_+rMAgBJSsz!~~UhP{jZ*cX_K`r#6>inR}_A4GKp+CPom@Ye|#_#+dSaovKO1Pe!F zKh(fY(wp$~$sprkTYi6;{a=sp^!)=0bT6Q=VBtS9a$$4IfIXdS%(JhK8uBs@`WOeb zLoo=w80v)L2o5>}MLzx*#m?yqiSC$n%driv?01iCFr6B|Up8=>@Xg7A(}?7HbA0F< zY4=Gw%em^(KzwvH~LVmCq(cDeJ?P!X{{$ry?Zol1_9{MNNu4;DSEQqD`5p5m zHokWr%~*TQml&{ViztO>0b7LD>h`X1zrcGIxHbhAQT)3_XznxSRV*h^Ap4oIm*ow+ zHxlyC=Mal`{Y-v+mp9a|(3T=9H;#JXE2r5Lb?Vqg>2YF!AXr~MPPF{FJJOdLuOoyL`to`$`h;XMmd6S6I+q=5fxsYcuW&gqfneFYC>31 zGZHB}lp?nBh1iN&FDhIKVwLqMNAMRr`_e^J6dJ^1o=1wlgozq0Cu(xJ|FeLd>Sf*w!0-wgo%S8D7VFCV_KRoQP*2tyQYBPKdSZ5T1k4TY-$ zw)q(7>k_sYBs>i4vV<+15}OJeUaxkIP5zOyzAIj>c%g9t*zj^S;N|7?%|QY0C}(}5 zj&R|q;l>7{fw(9ecg4>2i6+H^MP#t;JzIeCT3}q-+v_kSt3xb>O}lJr+HvIVNVqGX zpfMB;KDi~*Q12o~-T@_ITB`!8qIWk31YJ28m-hZF9F-bu9eQ$$&C!?G&+fsfcndX# zMST4T9*6fW zT&#y4A@(~8yh8gxHy)%pBLaleXrPfU;v~@;+9ONso}BUI0ox zZepvvOxYjy$Fa*%b0SFJXB!-GX&rhg*)R&4VmO4i^(O&!SE;xRNgrr8K?`t|mI4?2 z!h&GCBnJ%+=KGcsn=*n#QcE|JxD5FQw0H?MCv7HC)S3YycI_BcTkg17Mhxo`RD@=i zFWOO0#S+`v#1Or<&UK7kg6ic2yYyX1`1*Gb?5Q?1RzQs7iF6LRxpDG;7#q083JVF? z{7UHi8CW5*Wf=P5(8&{s)I+*_>fg0(h+_{`^vkYo(&u(!I`Z)g)S0`;7dB*4FH(&k z%E+#5A|i=Jh4`;`P+LN}?buFvJ~TGf65{!gLpHN@8&w2=N7P3y@7AXr4@%^gEh55W zvz-hU848fQ+cp8y(Y&#fof`{InYze-p|T|6Tj zqSaFmtUDf&_s{6tD$gnoh6;%}J3~31MTt#ZYhx?U znN45apn8e?BvMTGO2ie(b-lp;dF5H^KKq9)^rWM2hRXH*5y9&P1R5xSk+Tqde=!AzSchL?uyv15}LvXQVTb_&gPX6 zArGaFeEzJ^bkUtkVOI+7pDQ;-BjHjuNyWR@O{|;SEsS*SCU&JciCP9ZDUt|DsLxvy zR!K~8Q}LDb+ln|bhCm#&7U5Tkb6;#2>EVrq=*aXXN5jy!2*s~siY9g5T#f?o`3WIft~p-2v*iXaEI zP~F-BA-ip2EgP`JHZho`6%uE~J#rxF)@Bw(GlCa*#8Lq6i_q&qLWn^rG|7P;@Pdpe zQE8xrEo>(X{4=c3biw*WXtF-SagW6H8x*YVI72(UO_5t4Vh5>#qPVHLumUQ!f)7vEeMDKn8D1Hf$f#*v^ZxADoa#ukp=DV8I9&zJxQai6oYVRWKGXiOl-290crXlx}ON9UA z&z*pld(3A5E%&~I)jP*Y{K?LqfQPB?#2KJ5j-%$;w?Vw}_Dg#$+#EH+%!B0U7#vKG zU69(XZ-Vvc2oy*DNd+B7`4HHT4v9D74G0IZ16vR_YYWQQg0NZlql`_=&%(`fbs%_D zLcybw)XrYO19I&8wuqM&B(T(JlA&K{IN zRrTUad)?Hom-f2$?F7B^&cd56s`=?4x^D*t(H$5>9WOi`M9*%=4f7!h^E4e530-b) zgQ8hXyju%zCMvhW60Iw|nOVG<%(rq8YgDU~*fW$y@Y!mu66qL|aosu#T%WjgaJBHP zE4+!DXA8O_9m^Kp9Pe)S;RbpaiMaGdF;vt-a?6tJU4YaDunw`-4gA_N|5u=l=GzJN z{XxFrRXW%*7wg7tbD&*;wcJ$C9Pt=xHd5!lSt2@pR^iQL$4pT^i#bcQuNJarhA7{z z!O+xPgQD9zz3`?}IXw*jglbZFQ@%~juecx$h+P5ND#cR)DDtW2_sXy9;0E>|Nb15v zxEmD<4<$xbkl+Az;UN&VOgp)KSWXs4^jQ2!vbE; zBWyydJCy%9B4WGcirPBtirP2~%gM;a+v>QYzF_SIefAZ##PNL>p9keE)XBtJa^}KA z5ssb^GVmm3T)~oR8us>pq6ePDRFqS$sJRsJN$d`x8+Kp|!e&iE8CwuGYXZvH#Qawp zkKt-OhR-|kD7r=H?Op>vS|QUp8(r0O*eic7_(umtU0j1Fay6dF=bd;e-B%ERpzG)R zc@o=`98&c>|3=n_XZYwyjod2KKG3HB$w!tybP4O;T_sV+?hacbb#4qiMciM#@$Jn? z%`Utojc`|U=m~p4Mwt6Ia{#IXTL4Ko!)V~LVAK$jeMVUKbJd`EwqAN5UT-8xEK&($3sf^Mu(|^k&RQbbBGcFo5Wy=Jp}fTSW2F*6Ba8!j#INO z1jouJ3u<21(5_>DB@yg52bE-pV*C@1dhkm_dk*`uAmv-cnfn$o>73I4mwmhsbXj5W z1d3!pR*>~T9)>!{KNc8%FZKwlp9lvLG-8WzuoKkC$ItwJzUrTZ{rqr{u)qBVbw>mL zZT?HGiFm-eaO#0V^+=KbE*#(23>L3658Oz+V z`{nWueE-}XqmuA7IG1bO-9-WHDG8QsPDy}`?o1vL1^a7&oE>$^5PK{MD<~;J!sFj> z5{c_RQnnvu>BC>HXLY}D)w*9Y8>iTGztqGwPSyS5kfpy!1dVJLspTsV{6d&L)Wm1W`@r}w9`R;rnzepmE4{jM}-ag8;M3Eq!U#G%8KH7lKa zE?-Il2dK!&0i9e4R3!J@;GsR^GR%>PVLJ#@))^mCh++E?4q+$s+lD2xk4su7AeT$%2aW`6G4T$?Fir}VInd@lC$_(KV4(aXYdaoIudZhW_~dJRM(_lLpU(V8M%Q0)gb)kWToJ0eIrGiLBhX-3m}{JeO3AZ4 z_KfaL6U$Qzps5o)k!e4K6McrFcv40+Gz;(n*1Ow8dxoc-l=sReoF8u&_rQd1--UUl zX(W8$)%lrnpm?gBg_%y@m;L0@Hn-_otJ^@P$H4bzdJOyPwPe@C&ma6?xnzzAYyQ+6 z0T@W`r{^4jpJrWfHDA1Oo}6=V7pI4Gqb`!)62i|DL!z_dJcerrlH|5?qP*gqIEEu} zQUA0P@qmvogYbTob-}$wR&<#k)taJ-ZKg){bZ(IqT$Y*>Eg#HuIF%oOXR`Gl_W*(D zW;uixVB0})nto86MIA()mYELMiWa>7TAq)yzFz6z_KVY~{gn>8_0>v;^_5D8r2Kl9 z)|XMD&fDt`QSRpTV3_o+ zgVi-^9p+YRaSvMkwnSsai(k1Ne(`2B;%2l+B|E;F(SmB;GCptP;VdJ*j=ZS z#-47f8ib_#s_-tW5(!DYl^`VbOcgms@#zxXJVoRfoeV-!%CR>JNpxEo z#O6s5bCE<-NZhR@5G#;$aUfxTO6epdjrFN-r-+24Kc!&gA0L7{)jZ}!wJUcF7)i&3 z;7(DaK*iZQLSz;lffGAMge1CKhlM1%Du!VuH7o~j`=Ss$DMjLwA|})ji2KB^6R(&! z3L%OgC$YW)gaCBqha}45$GwqlOJw%Sg?07YKt0>{6 z|E(@05fjnw;zYEYI1x=2C!)!y>PSK_&L*N4i93{TZ^AvLOPNrOrFwKbqE(olXo_AYX2WB0f#1`{TG+g;Bxw<4K8y* zD6wTNbqP$4$z=+)2Vf>-@7h%-vb61VJ`T{DgB3Ik>6iiQw+( zet3eE zti_50P%EG*2qOXE_a??=9@~o}@rLkg#UmHm-1|(#5=Pn$f#`i)7@GNsd)yZ+z|nGYDP|wtYVOJQB_HhLg8R528Hv-><+!# zF$FcwMg|DJ$wfgx6b`jJE(~lNPKqAq1bQFmD2jrlDSrkwr~Ii|pAC=Aq98^3pKMVO z0jAVaCd-EVU28ccDUlbJWL*n-2LcHA%VlxuAw=YB` z5}~zEQIJ9KJXl$00Ifh#5NK<&i-Nj@c`~;J!oqO7=OVV*nzVgQwQrYAFhG zRah|kSTOofW|PXf&xH4w*Cck>3)(KX$AIzYwjSMW){EW6?Q<$wakv)GRHwrw`H<1mQba7u%%9kB}E6dU)mq+1Tm;7n}ZPM>mnh zQkeE+uk}s-&R%QB`+#}yi*B0r!dU%Hvt+zT+HNSD#psodFo>7X<{|v$p-iP24qEmZ z=C66f40DmWnn?}JOE9yv`Al5qORMo8+fSPf@|`AY@J>_T9L~?}G|{6nsJ$jZ_V!+r z#9p=kHPhm`c%qGjk>$^k?Kkn3{iY0Z?q!39Cx%*Vv%!@$HykE)Z1clOLY+;&yc?%j z-Ys8681{P;t)FpvW7Q1UbN#08O;Y>p5;&i4hh&DNubaNUs%|hO%l9Uk-e+1@<=Y9# z3dz27iD>dQTW#N)6sg_gGFQTWyks5r2IBA47we-4qr4_<wfl7ccLc%y#ppKB+r$Mnq~(nxH5-`JqvoVR)X<{MC8EUN2AYy%vWeXARD zW-NC4`M~Z{H*pVa|Fm0@WGQvT?9ShLshiwNY=vE^16#qMnAud1dX6H(xJk&&yJqX1 zyJpJ|*VWFmxBpTJzT0=rDaP;an&lHptgRDDToqqese`^ol^dUe26aM7gy#m1xqjCy zK?NUV@4xPvxqsP#qk^J&LWwi?nw{9GYdECWU9%QTAa+)C;(-HVDlSa+^d>j3#uZq{LWpx4YojimvjT@0yjoM=aqo z1?zfrqND_2;X5zWS`ToTSiPjAi(}E>hnAE?I2Pdc)R|Pqedvo<>w;r?-*_RmS&ivZ-*^MRxV$9N+FFh? zmzM|*B#0|kR$gLlgK9;2Ns#BiWh=^VY9e;*gVGDZF#*C^2tI7sYrI`vGQD{$DFQ(q zJ}$PuVBB8oV>bqA`P9pPLN-xk=L=Yr!;zS26LxAzxT(3E1WL<^u$`+e>8KVmSY#o* zuDawe%B0feRkJ3U&UkoqclS&4=1ivSDmJfL!|$psapVJ@onKv24OR!uGFCXpt&;-G z<>$xMmc+2*yUX}@$9K2JRvKR{hD3KtLaXsXG0PX1mzdf8e%R(s=ex5AFjiiISqJU| z{|yqM7kj>Y1i!1iL`h;w*zyvMsFw1&@)FEg3Yhtod zOzOo1?#2v1LQHxgF*@#~@Y3p%Bz_I9?J&OyDaFTDmmC#dX}|02_=yj>>y!%@AABj5 z2xlMMbq2vIchC6~?<`9hXDTuh!E_bKl#F36rSM@TV-oC{ z%^7b_XvVsaKm0?ApItmArV3GQ`Y9ELt zMV#M#I?RxMI;<)O>y32LdttP_^6Hte`u=Dsf-v-ZVX6qmd4obiQLD^kz8Q$asCbEP zvvi!M9=^er5Im0uYbVqK7F3=zFSnK z>^`kv-#LGTOI>lzS|@G5I}sTSdNiKA0c;;NuwMGXaE`9r>8foMBTS z3!d>UNiz7O-ui8DQoO-G;CEThASLZZ$Q=Wf&vX8$TQJKn=I==YOmzri^#cU^N9Spz zf5KV2?oYVJF2+cxd?+#GJ(PeTfvanWyY@wR#ySGw`((ex*Zn{cUi8-bLW4h=)+7Nt zs**U9QuT~sAhucWeE&Y@E8~3SoUelOO|GD-#&G^N#dW4F zzXSiPjQEea{P>UA^>@Ay{5{v-feWBNYyBPL8G}EDmQV9mmLfjYzB~ME6(zbtKcw`s z9J1En&jzy6UqH{(cSwp#Ybs-FN=s%ImvW`t(ku-CoFT$0mG;L7Ch3kQjTW9mWCAVK zgJ@Goc)jU$`kloZ!`ewoMhxi`g?q9}d6-1Vk_h|mj|m7}Wh#4xz)MnRq4>hXB$6&8 z0p(>x=Oz3AFNx(VyadZ^YA=aoXH#-|9toV>i_+B*UQ0M7B-&VOLr{`LkcH@)F-MBtLMJz$jWMz%`% zFTYj6Q_vqL(%?K>%#9g0mkIt7gGBI`%)U7`>EvVfL^zra%fd($pOYOS@3Gs%WO$rT zb%w{aL-BqOOMOTj_+yvGNa7JI=!+xqh!k|~6O=t~woWIBosoiGX@#8qQmbLyr>*gl z2jkAS#xoDbebkwL(8^0$gqRv-e6v+;q&(r#Mq2$D8JbLHMzMv-Hg;w>mH#fjG(QVB z3(r%Zh0FO@+PW~;cR?i=qXuQEej5?)fPY3}c9p%1K|g`fprid=SQ_7Ij>`FcGH2Tq zcX}(BUMJb~lM2UT_@6obG3Gv;0qzvm6gXVO6D|lFm^=+3_LFuWpV`M`JVq;$-#(v~ z{0Pno-Fu?l#1G~(acOBP%qnvrCUuILBH8u>h{+$!m!3)Mh51@qZ#(2}AIuMcIY6I# z>9{_3vc%dwvrhm#JB|)KgBo~ea{d(5xQZHupOJF!6(~|am>-#;LcpL>kV26|#L{Cb z{M_Ck_9=^`zt#Xv(7 z``o9}o_QCin+LxPe-^wZ7Q<`8`^gv3&$|kJofG{IQR{~vcV)H^b{keDS``|c1j=C*<-X^wrRYd=~L;Bh4!%(L${2iz@7ZyEp z!nW`RWq%!T(1M%L_v>}SO*KTp3-O!h{^(<;{=prfvrkBCvMi^+YjH)L_O}S{QTOY* zIo~~%eZsxyr0f79+{zBPZXe%sB=9&2p11e33~t6$@U4Uvck^5SXmNRuAvi@FzTl1x zZn1#h+vR%`Yj6(gwN+}-BHEgc9ITgpOF9U-bqmT{U|ifX>WF32{v*y6aFEFKY@&Yd z5gOsy5crm5{r)4av+IZ?aNYhRZqHg&x$VbiSF<0Yw-KTeNpx!iMBf^SQAncOR_{NO z-26ORappdcA|)2tpXw-T&~f37oZsp~A!sufFQ0qAV^BMo{w+ zy?w4Iu9$0wyTM#acEFtTa-M6)EECB;(CfkW-|Dj5+f`?z5#E}Qj~HuUZ=8NclwLMQ1}7o<;4?eHK; zrZPl%Upizjl4M7kD4*>iK1n^^I-~Gs3aPj)YD;4Mnc}bBfXijvrcWm(!UeO13Oyh_ zd7QmLsrj+e1w=tDaJMDO&bU@2VzEAvdMgiZ5%;MDAQHFB&bYn2>TtrR}c`gEJSmqpHTx8%M9^+7>fUj<7eRn%E5E zq`uLsxo;OIx85f=VSK*-B5^wIZy(Gi0k(5f+7T*zVY(@On>Eoew|@--ucr+L-rF}| z;BCIKeQ>hpIu3K){t6xXs{i0_zJHM$Qt>mG3_67qgj%oq$C$p*4Tepq;tTQqezARU zx30JViMaD3ehTF}G#D=owBC@0@&EiG zSN^#ci{cvaG%LZ=EMJ|+=q|b)AAWMtb@uE%!k_)*B0s(LG$~r7%i7Q~zV(gl2b*rG z0%Cgy+)|N$(q!@x=_$(6I)--bJ9UZ@PLY0GXhhp!@EsP8p}E2$5caGHU?Jv1%!iHH zlfQZhkk4NaaqSxjYskQ_hp_&kftCR^$pJ0 zH+ytaUjnnc%hLyADF)Zuc$c}Gk+{4$xK+=N=a7M~Qv8!-qly>9E%F0x9#XU#5&cdb z@Z6xtsL`rHNBQh4oKxr>IO(Xwy@s27R56vX(~gG6z7{y`C{se5KdT;)f;KP@{d|)l z4SFv10RS#0!dA;Eo;uAi0;SC{cJM-OaE`I_SIud5lcI9kVNepESUnJqes^xGr zGP=5yxZ`%BsYwl`0w-tLHB@jQGrK>kVzvr+mRtoudP=8G!oYtMjvo> zWE=uyC>*cQ+3xYwAVVNMmM`b>`;)ct3R3Q9}AbS$~pWw%{lccIoHKd2;ot=0Zq(n?x7+$B=jNgsjO?uzOCJ zg{AxzM&f+l(jezQo>hd9UaGGPjr@-Zg#o-Kg-~)hO-ZD+L{04}d?LeB$l@u~;VHBl zC14GgJP6e#3}y?y)eZ8K2R|hgq8Q3wN+=9wkA+G3+3TnO$WAV3X3MD%wpxW~dUUnQ zO;Ob<*FF-X;z+ehKlQWe>R{M+URo$P)g{Hj>1q(==b4PQxN`94waKz}s8D`8Z)UG{asZyZMq!ZPj^$=YhPv{V^(Yt@Iudv};4Y7w) zo=GQ;t-_Pvj$0-9fBXi5l+HM5^>NHh$5uW!^qqGyB@JP|4B9>H#74Zw~mUz6f z+XQj<3IWqQkFfHnmiMeY8k_9tLOw}y-j2qyadY&_qaxP^1zWq-0(-j!_I69d%;Z)R z>bNRQco~?IW+qcc@?ny5ABTp#-13>QxWmrw@~{|N-#jRJm5y%KEuWd})rz&0TG8gN zSw7S4Q!k(Cic)_Z9;kxUtXw|RnXCK+%!VkDt48UY2RZpCU^bMmJZccTmMtu%R~~h- zLWMOm^YX2?_@7z%?iYl|a`|pKAFZij1m~0Ql)NokwwoU$+dY7+nj$g~&A6-Ihu1xWXNW4WaRKF=G!6rkU++XoV1X?Va$Ti8-}GNRdztDwV{hHoFpOd~q$ zNOlOZH0A)Py>te6^FAbaP6?mWFQ3cz>A0oYg*0oQZ01L1RM3KNB&I;Z(%RC=l6>Dt z8$Ic1&XhgPW#yA48PFRGO_T8_9_*|bM0`0!B{nK3<672V|bI;?8@LIDpuzl4$FvvJ%iW;Q!Y!RW+PQL)ju_o5M;jGdf<;!-_K+~; zyW2yII*ybXClkYInaXJYV3d^Xs)iuPllv@xg~*~p%RoS2IIT=Tl*Lo7q0;rN z#cWI>w&(;B{K+g56XN6mm-&56=n)tAfz!g_oZ}z*42g+9o?jusx{X614E^- zMi!C+!`cC~OiAov@kL;REFv+P342InU-}v_u%C~d6!bFAK70j<$?cI$Yy%gKw%h!$ z!R&x`WHO1#&rT+hg*z{qzIg~+Lh4^M^rMLl@Uwv7FYSy=qd<{K<{q_-89~yim4io; zS=3sP#%&+mgTzS|Vri>j5i$5Dgq3*58rBY{We28FI>5u8>p{xb*Pvce52BBil6K2# z2t#4STw8!^&BjFz^j61${e<&RFs#j^rCa<1o${C7Zs<# zt|0**mBiuBk~Q^lQ_`kB#(l|M-Cj%>+z!d+J_-mo{3rUj9Qeo}lE;$UT}X0v7O1Nq z1_c_nE(;B{z7fcl1;rRQDtoi92P%z)5{I>s>Rq)FOPHrRE~ZKZGBur&2=)q`%jK}# z*<~>%!DELjqMW&$o^n#$-Owk1?SKt|eM*VhN#-i~z%IDxg?<+U2a(LE4CcZen4>!R zSyiCPyPdfmYjLfICkuRzK7Qj&h>(VyXV z20p&64CY7`r=(WLJL7Uy8f!=?roarSPR_Z@@*A!lyUpUOAM8 zr*0BCF9W=gmj=VVaanLAPOeu3@+19@{89#VT4e9*%ns#Mm=S-m0zmz zvKKMzu|kJ1-LPD$HoSUg6VNYmR-?`Z@^1-^wS{U8yM$^M?sH2ps~xa}Di<1!OQ;BE z_H3kNW(j4Pv4k>Ky!3LkV}^EQMCDWajZcQ9dLNk0k(q_y?AXS6$NiJdQ%@Zk4?e z=Wdq1fmj%`6Y%H9)7U0?JKcW%}&rVYy*i$d)0WVm$S zG<#1;@KMv@W+Umtgzc`Ib;d?!ossS(^85Xb`(9L9z4!ZDJt*IPQOQP9G@i)F&L)(Z^7mq+5!#>};0{qc9 zgKibYGPH{Qktz`=JkaBX%}xa?;rl-_GWpqvEgBOzQ+me67oV|d)SE|XR~gZiQNz0+ z^mmo)vS*A)YOuwZiSN&1D#3;g_Ac zrGDJ!nJOVFJc~$}T8Y~m{8^b(84Rc6)}YVIp=MnzeHnV{Y`PZb~cudg>csD|3I!HV+kVSMyMHbTQI! zeXm~GVLsV91Hckd$gFLL46arj&$WexfKG0VMEX}YbIIUv&?P~TOM;{yWE&|vad_!N zc2|e;kUd-yy2DVF_D6@6Qi|gprNF}!iV=+^Y9;%D2mc{r&?o}=T_=Ck!{zPqL?dqP zIvK#XQR`$9{_-*pBYga1oveywdnsMM!S_5_t5i(DpjWd3xOx+~JC)c9r9?jfxf(f^ zL=v<*-v*Cjs;42$!^Sgl+$vo>@#P~r=(1X-y6M$V4X1l56@x&`Kex1|YDAVX2iE$` zKr&&*%;I7uDG|)juXa^MUU?-e60ER8UryEPQl^m!EE-s8oJRDswh$0R5WN8#zN?6h z=vV!d3|JYgoAWBk(D`Cclde9-2(Eg##pK9HfX_&Dc#!)O**haVhSOQ@U9X%$nG2^}h%DP*B8W*G+9{r3Fl)P;Ft08Tunj&R zm--FXD~653oTwB$*+I@^(h_v=-#pnw5ts7|rYRw{&bFkGT5zIPPT`W?KCZbwfV_Qt z!ga7@dlMhmHa}&_{utD#y>k6s!5^)syjm~OAn2Yo-?x~UKU3hPL7rfl*qf$BC zG}+TqlkvwCpv}Ulng55gFOQ3=-2Z>hHv7z(4Tb@RGYmVz91w5=Wf2t>1Qd5oKygJ! z6ce{AgS%oP;7v_UOj}HET3MQU6PKHsmReStmbjFfrj!+0%J2P*_uk+4`}+O&`(r-m zInSK)ET8RJ&hz;LI3`?KfXvY7yQ%RZ~!S8lc~C%QrphOY+d)Z6P%itaC`PO?dX`k$S#71!Gc zx7lkmhx|^y$P)_~=DrC#J8ONBJKFB8Wv~S4se9@7FdX$f87fKlb1>yl;HasjpK{13 zg-to6GE|0%$tsKVbK;Z)>07Fo|Ml~uV4uB3=~9eAUn$OsVQUnRr}o5T&s**gYgKAX z=Ak&-x+(|q?@Zl~8JHL0sR=A6h7s|aN-wQ5#uK=rHWpR7I2HDQ0nF-q9Y{8pe-`aur_ZXwwt2m<}1;C`1oYawXI&nR`2cKF`sOw;a7l@qpECG(Bms3a539QeN z^tfkN7-fRQmwoerrTqQ}iQ_fly*0)RKjL#KO+9cJlTC<*_F=~feDZf6xK>$)XoBO0 zXdtFeLt3C_UlH{jJ)L@vj(a87l$F>&v4(6kr$y@y3TwvaBkS?JWMRCbK@z#X{hG!tnQlmj0lIOJaD`Pw%BOTu^INo7I^6 zzoBQfvl2VSS9;=SduCWQ*ooe5s-Md0!-slijC+N2FfZZMWRWVA=j#c>s7;+(x`fsY z)00kc8GGvI@xon{Vfd14O`J>YiOX>#lKvg%nLGWni?HhNLq9@>Q6_7*!M6ys(Ho{i zU5;Sg@b)-X7++N~4H~M|T*d|9VtbXyE!7%fSiSfhf)FAunSkmG}%YJtdq7Z>gaG;`EoX@WcAn^oA{mtj)&% z_Q@dg- z*=fUcx?Pj;OS`GGon>2zwS%QJ17TI$HBSaVWJ1L13(cJEr+?`YcAjB&_AzX2g86a! zR%L6c?rT+X&xU6)-y!@{#u08o{S7tTvHYq|7f8{%zx;GVRjzi8(p3D+1>g1LWo2>5 z&Wn(sMG8|32Ki+Qv4fy@moWjg{331Fh2V*JQ)%- zoh+b!x2ykXw<25;zVle5gL@#Ht)D7XE+Qr{*eGbCq<`hAC!4Vvh3g>%u1{={fsrZ6U^ z7Os554klePJ#vR2W`L_d%{D}y{l;yaT+VVO;fcKza(#K%LWemakfh;BE{yXmj!F+X16G;#iekKQotPTfNOFWZ_5_}TPYl2<_wL(=XRr<|+GkIiSr%Wf zm{(pl9`4&m-ctnMJuAkjuP-IcKN<35z5nzS5~aP6s^E_rBE9}!*(@r9{Ouygo8(&z$8*w0BYEET?nfPL+j?~6bC}3X zE{Cz)>FDonVsjYJ928lCgp%%!tI`mtmBh%G*hf(0pFbkJ=M(&IW3mFoL<3*8!M`8@ z^NOXz{QqQ@io926uAc!dA}$(l2q@P&`T4;lIJ`#7?i^xCzN}5wYqAIWCnfS3%ls3w z)P_+)CUq|Nf}mLK|2abEnvVAbU6)rzR%fZiH3E6@{8nh6OGDNOmYLhKbcg+dX4VUg zRaj(d$YZ&(iu5OZft@$i|IMGI3}CfYeAKjY0fHe=q{7o3mZO|<3`1VAC`sfl!>yb%g(p{wWrXaXj-6r07MEygs#B35m z+=s~~UN;C)fD}uuQpS3Ot+>fYHfEt!8!hg5rrs#FmN4Rua~esp<6IKCsgS%mf>CNo zQ;;!U2;}x*gtu)2@CmgwU)qyD-OO{ zY3qX7P6O#cG?s)&VrFz!GRI;}6iClSWqih0r| zz>8MA7`-YulXNzCbM?M!FHFodHH-pZFKS7PH22ly z55T#;bE0wy^#Ww)78Dr$olA1tRBqO(uqNmVnT2R3RmclUZAnY@`gX*os?QkLGI2w%; zg99n}1$m(tKEYSS5qLZJ!nY(mq8o~`f_$QnuCjmGBVp3*c z_j4dVAYpT|!So#=F)7#K^DhTjtRef&>m`=!8{Wy>V3LWu^NhEM+|^g)yLv`SeT;7t zKG2<}(tRKk--t8&>6y5mnt0aO^Dr|6PP-cXB1v?wKqX^jk{Fq(Hn5Dl*Un4C-KX0L zfXnEA-??eT-CqNA^xuiwyp{KfobRh@Bcf;&n*Er#!V7*(SVq&H#qQ%pMp=NG9XdZ^>kaH%R6NXDq0Iz{hjE zJdx%BxaYl#{w_d~(!$>u;$HZXm83J?EI+~of0TgzjYW_5CUDw&-xDd&$ud2dMNhuR z?0boeB|VsBfd`OYworvvR*b+a(i10?fL~$IC z!e6N|A$zliR#8u@cvX|i#J_qvm2o#^O%b{?O?TmMc`%eNxE8yti`~JR72mUM6>PvV(_)r#)S;mKDR`SA4#90~Zi-OtHcIL3&d6w3iGAKwLD@CBmq zAE>88E9q)(h=sqQW*!r@V8()9H*-UW4n(^96G}a%Rs%aHC|>keHQkv{Y6v5L^5hCj z?4M3lID@E7&Y=|oD}A~|g9p#ntiem4Pga18pWo8}p1-dG{30Bm%P0uB7|z=-u4SD; zbkrPSklbGoCg$r{v(Uwciv5;?tMN)E1R(zVxn~&p z`(JRTC7`AMGbd;Ni^z8PQ(&bV9dPP{0{Pa619{L4HlfC@Y-ZO7tGodz(v1xdjgdI zcABF6k2xwv`r|slA+cndtoDQ}T9PWhyT>A|UIFkCdJy*S2+H8r+;^(c(fmMHOpKDG@_(EFMo zz5-NpuoeR}p^vhqA0^cZA)fO)A;=VvE}R`*c1G+%qb|2$x?{hi#^XVN>70Y5lHjPP zQ0nM|Pi`O`T0_fOuZrQq=5x-7SiC#z9Nvvs2YPZ511OAo4<=qwPtwuDm|*m~I&jal}8;#&dELpU%k}kAPB%?}Q|9G07;Vlr|wr2j<|Cw$s+90H$*(^fjsTU_ElW zVz&&?Uk{w5`is$A_l;u{xTtsW_BGmw?!zHV=^ZKFj-uX70J$gah}3gFEwR@vkeq^$ zKDUUY?_Z+K!Am~r&h_sIDek}XEJxz=FjmQVr$P7ld}vlV9|BI)Pd~tKu3R5{9PToezzq1m~$ zD-R;0!Hf(CIvKyN-$_PZcl06@#LM_LmDol+Nj#*f^PiCOmrp~^&p;9U5DZ}YkYe6`d=W+t0Vp*@lAn{?xuPOYW!>6K&IE;1)1z`To;Y0%ZzgB z`d}Q{!5v!vmJh!DKj3aZ1tY%`sHG}*8*TUASlY~ODUAKSTg2J*_AMg$-$Do9TMNSM zL+plh?n9RL=fiE3nGU=K(LVTz5!nZ6za57^F~)O;f3l`?A7?RCyRL|Ka-G|Vgi~jn z+&p3nA$BcG?LUHYPvh{`Vp>d}RZJ87G~{zb<~mnaE+;9E+vZ?QjRzseY#-5)(6 zl8bWP)pVF2d{6t|!ctnbce*UEQJQ*Qa`w&2Ws_PbV!qwToA z#ssw9{{=er!4VZBw+2Ge<<^gA!+vc;F~9jh547M9v@r0GTZBeJlXg;+K0bqP`@o+x z^^~5MczO>FXurpjbb-;JRlzmqNSeT9U1fR*+(%cL?t*{;)-7Dt@$rH()s!wMpHTT! zZv)}Afi$T-iliQlK%z}Y*E7bvMP>;Bc-GxAT&mBfC>6THXjgkP;Uu(T3+R=^jm| z6dF)U%4w7>cOHnc9H$|-T~|VGVcY>qbbnpzEZl>U=sUo=cLa))lbf5nKN8i2r7y-ao_}(nJaFml}<^H9= zW8U093zD5zPn(fXyChwpr4^#L(jb&05AqRv@EDeH4Blgm7l!UJ$`p_oVfY@SGd~W< z8{q=4j6@VmSr|D7f+&oB4)K&MjDa|&3nisg97?F1%VTHIdT6WT%VxM3$AlPbx-enq zP>whz8L{OxiK=A#)cZ!~(32?r_kJjS>Yub{9xXaqao0fy&FqJg#3@?*HESr# z#Lw>NWbCv1L^y}`#*3BET%s}p&&@NhMW^O{g9(bTz}HJ3O&9(MzVxPXOo+Eg5wfUA zA>qf^mlP?SgR_Bo9Aaolh1Rk!2?%x$#;V_1dEaPH1?HFiL3wJ$%aE=Wl$)egTFCsW zkD$67tM8cNg*A7;yK9a@Y1tbt2RTQ66XY)`FddK@wxjRs{tI4q)5brC8v-dyyfWeu z3VCHyd{<#Jq{BD_Jy}e3@T<4g%yZCGs9_MW4B)i~P)))Pwg_n5aUCO!{KjO;OV=UP zZ;jH*ZwFpN3w95UbB-xRIdyanv3n<-7`<~6Lj6uDWODCaaLRi=fN0M0zPXfbKcqUt zF;~yn50tx{qp#f}l7R~Kf%SO!pbs1b@(#aEoBVMgCFo8%3utyjIUVy?Ga<)5=R!_= z&PgZs`$3>T`IVPHxsH<^A*V_;@~147qdLw9T4>4# zZv02@h1}}Hhy2)wm+ti88T*~FvT>}%B;m)(!cXh`(V?HNqj33t4TTR}RDd5m^9P*} zcao8Q?F!}m>rUFR-?CIp2tddm`J99w=6+0sa|#aGNJpql{P__4`gAc>d=#`lgc4UW zOCTsp<~~n)D7lSoBwZ=EfWKf2*&eo&$KTqpHFYh|S}9Lh|o{#uErw1F6xBrUdt zWu^WBCQnK|nj?!JQL>w|C04`tX+D;KYf=&eszM);&NrnlZ%u@f?a zJ)njjU7(#}UbY)6CP#-?Ts~p6_kfIa*kwXR@ftKtoDPD@{{@LOmGmDFk}{o*N%`dm zV#J1kG$aSZdFNiiXoI;kldkOgE+sNm|0pmT?>B(w`3|HV( z`qj|j*#-LkisZC-<*JO7bmgiV zC1zr)VTt-ps@+*FMn56p-%9hL!kx9hGwXy4f9^y@J6h{lFP8rzKP1NsOoV`@gumjX8dp4aHK7#0Mcm#2Ou2^ z*uCoGh0ADFeAB>3jN`SRW7Czdtt?_l$c}|-2|p&}4J7bmusqL5U>+Bs`oE#FUfWUV zTfqVo_%@c*X#yPQu3|WwUtq7dJEbe%{$&sb#N9igY~GmyarJ?{H1*zpK*)zPIr+mH zd@GDQ(C=7j59NXD$4k?cA8)J3jaD|}+%NN6SXTOPrDVZ4qDm%?(|zD?XT&$9if-OT z%10$IH-A*3jjvIDQ<~_VPhs!*%3H${y|a-{(NUO@@uIS5dTC12EamjlSZ3yYY;(>) zq~z}23S@N6oDP`S?4fDIE(2sK^aaYCzJN!d%#um9L~fZ_OSD5HRfssrzuupmTflraC~>5+NJoa;5L$PR$YEU9(sP*X z%yeZ@90@~oB{HO^vUPH|IM_RNWx`2VbFz+Fi+BqNwFNs{vbm2wOIl;q8Pd>VEI{!X^50GnX z%(f!Vo#9u+d6r=VJ4O-CCP@`JBw0EDfU|13T&i5Cq?K>*rSAZal!wE}R+cvd@;EnR zbYD`bIC0l_!I+f>^T+B7B?uwY%#fmD1S#t}=ch=!u9&Q;#%FCNvHAke@>*u45nIqE z;>voKJteATm{Vz?bQlY)6*-kI($%T7mE^)MJy$t&k)m~FQXG-&xk^rK<4m3v@QW0x zIfsT$q7B_k!DHImOzoST5)S9ze@KjhY4vnQJN&&2JtG+;wsWe zPHa4TKEctT7=0r~hcgJ|Qlg*8CdqH<16ZY8A_lOM{8-Dw4GSi$BfFtD;%T1tsjt?FNjFKN)q76ZeQ!71% zEtovqdXwX&q??>*Sx1qZMsl-&s4Eq6`JXu7Cf%unC3(j>f`A2nbtEkB&$w;=uPnxa z9Lta!iq^Y-hi|dWRIo48Sx3ekQ?yR*^vIm#c@^H>Px)=)l4O%VZR2qNGkmJ_)_P#O z6_FEDz3;Y!7y-BxwMz3y|jo*8!uQ>VVOG z!Mx6bbFfj(BkGivAv!XYQ?}k6T&^^ymMaldGLBd}QF%mWN*s}|1+E7dbupSe2Ve?P z;#kb!pc8A79O$CdLYop3(g-FB)i;8P=7c1pbEkaJE+wOjD*$ErtPh%;2xBNMPv(ts zp0kTFNL;Qod2avFZrkBJ4(7z^kYqU}lwxf`DDB=^A9T2AdMe;Z`6{3+hlWvD1{ftb zg)LV~(!k|l8zy`?I@xtOI@uk`kfd6R7_BsT9^kCjitunWd=z7po5O2C9CgGVL#jMH zg34)A#Fwa`)dw>pzeF{A0cH6&AM6^n2Vn?iMHSmn&3sFMd@<@v@J*L5IYdQ{zGs$_ z=39u=kN#5@T?el243?3a>acCz0emDE|4y0dH_A*Yl$jD^>WC}z_xZXMjH(5?j+uW6 zP?BS{tvmk|3Unz=XIb!6$tmO=Q@5TziMzgl>e(%42w~E#E+kxbBxHbt%4qq!Dfo>x_#CSjAHrp9VPY*St*&Kx%Mv6) zYS{pJFS2+ktCkhr_Y)7P!rGr!Mf>-~SKX#wK-OzODx6Qah)h(GB?wLx78;A}W2)Ab zh)N|F`^TxYmTme~?ycr~tY^xv?Y0da@1e^r9lsQma+B_nQj!ysC~wV4Dp%mJFvcHx zx+hsSCDVT26H=sEwBN_7^#RfWstaoq6h`-N$=f+;%yzKX(B&$t=byi{+wxK-f;LN1 z4lzlT3dyoxr%i0CT-J%w23=K&o7fcD)Oiz(&xp+=bzTmc-}jdgAn)${m%vNC{}M#^ z9pr}my-Sq1NicYLl$z4z9GbhJ%O(L**5#T$Rd#fR{`@ZjRnXL(q;A)6lywt|8r*G@ z5GAh#48kEQ=~6J5y|o*3w$v*dVi2F2p_V=hh8Q%_f4r$w46>;h9EKQJYSu?aHXYio z4lCJD`4e3I;dXUoW-jH}9IAiRt&{tlL{PAk>d58=9KPZ=od5i6uGbm<<5(LaYlJ{52rcI!X8g{ z6Te}sXBY~))uRp_k58|IJ3>aR!;bla0?ZjoG(_o?()X)@h>R{kH8@EnR)IZFflOkN z&MxaSsq)%FrwG2u0s`QeLNbvBM~S>8`!9vGEkhF^-_I-u+x9I7+s0&NXrx6M8mFi7 z0YZLc4FiWBrp*?5E{DPy?1MXcQoP@%)e%J}DSJ5-&pJR*vx`Z}MhVitXt{~NG%w{) zbWiQIM{Rkd+7j6`xfne6QWsIsg+hxof@-?Ol<7Ta_wb$_J+9(1Jr~ za76)a@F6t#BJO3`UZ^w5@@T*)c>|y%t*TN4$d3!F(CoY_5Hn?9mBL;AOl6b5_zMbM zUNMj|c`nuHCk77FyWdBy-17uFDUtpAQ&s3DyC8XBf))iiA~*oJH}SOx-9H$c?F{r#*loMwMN z$!Sd2SxO5Mq~d}E;`#P&yA77)Lb5b?y`T~gr8=bwaJJMuPUn=H2k!y`OhX<*+)IYw z7(Hz7Q{)r4mu2azPAsszwB2w40s(hOd-mJ zWoVOVjB$8&{?KmQTt+7=#Lpy^6@iHz<7rX<9oyvJ#>a6(<&p_;!0By_o0}&TBm{`M zc&Gey!flLd18=jU+;t*4D?P6C3y@b&r2JS&x$YFW&UN|8Ie2|M1%=#v918h{rZx6B z6tcGv$|Ez64u6`~ozTwt8Ofw*ltU47Of$;iJ`(UqE#B1odEUN-;cn7BG^}OPO^h6g zlPQtrOh)?OW89QreyF@)N{&*No2T5=%d${@Qy(Q~0tSg08k6Uzn<%23aLFRYPYie| zNv@dM#->WmR5PikwERP9#i$Wm#W91lu_@~`ExTeLFBQ?379i;!hg|s}mS{HVJbh^Z{YSqDQ|nE4_N!7tm!-V3Va@aC$U!~5u3W2*|h{vX7t!!qB6x?QAe-MP0) zh6iL_m28U{tE)AN^VKn)r{A^P3Kwq|lB5k3m(LeLOKu97iM)?-YR;0y;J;IV5c;Ky z6%hKR^VPC+m?C%cNrh2mII#cx|~woyIci6I1e~f z?!H0=s(XF##EM!Al=jM63qr{O28gvrr@Uk3m*9f2UxEu-R@NFh@ruIX>3y}`7QgBd zIBOOav%{8YN#`T_yLIQ(mINPzqs?D_*LS zl{W983gH_~pVxqvLlv%T-L`6MnTIN@%%O@t$8@ce4n@%Doz?z_0MZvp#5A zmy795-a3_5l7^_T)Y!eQ3fLQ8g@xlCug6jD9gL)9aBX5_^O5~pt9SbgLwf34?;hN*g=2AO=91nz(uV`nR;Rj( zJ6_S+nyXW--s;poVR))KRoYses>8xbc2^`F-KB+Hhj}=YuTI&g%-2r zxI!hCo5AHSWgRv~R{gMQtywH69t zQZ43FEnC|((mdiXn9aGIn;3IB&%eF~zc%@XKD9||qAGDWZRT&ZN|g_>uq#L63mvLhhb&&2_z(-b^RLZUTi!2*rRQ{rbZ9w*ev!U)<&-!z z{I4ULZp+q~F=O?u{p135lIPJ^n4)igh^hbcDLQ7i*go75u2f1TqvD;?X3$=`MXQg0 zy-_hz-uyc4<3Ac9&X-;;ju=%MsteDBz--J-pgV@Q^ zTeOhYH;)5RC2v`Eytv;OAnl-BJ{voOa?4w)CP`Yh3A5(Rox6apDZ7BK1v@vXEfb>? zBE6lKE5b56(s{GKb!Xz0tx2AN7qKn2vj}>=*W0w!tKUA3IWuEi>6EX&T?bthzl&D> zTnX$tgZ+*8-E|6HJi`S@6|~+JXHf6%-DkKU>`j_HbzipIgn!U=Qr3MHlNp{i-lo-Z+w?gNyh$}cf-_S^dqyc@O$M^wDBf zWXsC!a(L6y;4!@ot(v9V<;aq~Z>qvVchgbY(7JNho2tmBA}TZm$hiTbfu|zNkx~7` zYLSiM4Ar98ri$@czi7Ap_FfgABzJ$GPK{T;PkVQf_Rg^nGe0?0K}X1`*mg^j_w9Qq zjFcljpkzPt5R2kTA3VgOc*h5AsxWc6S?w8k0c7}qqOI45AcM4;68m{!cqdKT?<)n# zQPKe{86jENIXw_;4?v?ZML+NtFgE=!jFnFhREtCmw)5il4QkKA^X<02A6-GQYd?x> z!Vc|6MIt6$2Xnzy-h*_ldWtsKbZ8XF;XRbAljReKibUwnB)fDtt_j1$;q4nFX^}Ay z0(kf)^pJ<>j3I}wX)NQ6fsxG6a*bbeS~p-ac3`>2Qk~XK+<%ab8Ee>oP+YHx@k~31 z_4hyN2Ho?{d`x+)?BnITu^9V!J?1*X5wMq>cO(tleTR>%$1I0w9=AVA?%up!6DH;= z)t+6Sx7*e=Q`B5-&cz$?M=4xzl)iW3s1c0icZ_0Z^f4nkaTZXPO~-RFe;f>mod-ZH z8xA_Mx%- zw+rZdaTn0XoIk#ch`i0|`RAwDW;ze_$?MMV7gMEMbeN03KzGs?_~6+Klu&+O&|UQ< zfU7ZJhr%bOVH1~{?J{1%eDGz(km?pt5hX|3|{65EUntz{b2RhZa%cd9i} zhhvD1p`ASMoW`c?#Y3p{{Kdx5R5|o3kn8_`pO7DarP_=BeNFd}4}7iKE6Y#6ZVZi* zyMEIcn(n!Os@=Bsn`=PECCdDvfdA{|OH|-4Q&9tWE^5DBZVc@&5B`>_)GDY{dF{82 zp`5tbf$6fCcBzv`k1|bHiqWFsSLn>-tt(rx<^K3K%Fn!t^5qp*={och;7GaecXgQ9 zt^RI)pe&#N?l|Vk`tOfxg2XFolc&qcc3au^*naR0U-EC?(YqWnZjX&sIm`GD@mJs>;uXNfRag)ANN#7|!()})S<%2)cY4bk%(lq)~ zD_)W}{rJ$rbIu{|t^VH#o}>T5R?Mw&9Kn8&QJO_}Sa;td3XFhN$I+J`$eA?hha*s# zw*c|&;m0G`N!aisIg=p$Sam$gZNJScq;y`vTRQU!`Qsms<9o}T+sDBi#mB)M`;c^R z{h^4L!_U!Xsxgu0rIECmy^wSZ$d%pyqRreuo7s&v^CFrVD#0%@XT81wmVlF=G zmE;ol%R(;6K6Sj^mVCcc6GxKom%w5-lp~e*b3cQ*D!HG&h#}-Y`-Rv5OG22rhFIXs zgTF6-d_0)p7Cywc%4?kXh-F194DQ~9H$mo2@(b5QNYQiSRhSa4&Dg)-ILtVhYyz~Y z77MX9#;LIM-2)@mJ&dusn2}108Lg}N!7#?Pno$u~BknV*(cr~ITJwlCx`c-asg^&E zdBnn~H7Fv3wQk8^rJ4eKBpqBpENkDq=W4{A1-bdxxR9OeVbO|N6QXEy)S~tAu{2n; zHd2e$wC5JB502etlyyt{@MSPc<#8m?>D9qG)owp?jW`_U8d15YXX8+0mQs?ccWMGn~i%j~})JH>{y2!_^p*ZzJvZ=8j_lukB zMt=1Z(jR58y2$q9Y_bv`YE>?mqF5zeJE?HWtI0`4lK7Wkk{^@5;MwB~y7T^N08GmZ z9{86vF~;z9j45FqGbaG8j^&d-VesiAP~~9lq&ww5Mm$JhbT2fe8L98b{LlF z;>(Cl>mAqE+>pcLyMefzixpoY5&ry3L@M}}#7p=TOWv!gL?8R1k6zXLoaA|*gVD}- zfjD;JuJ8LCXJy{!f(CBo!o1x3{$j!lMlpl)lQv|4n{P*Rd;-T0?#37sI3_3|m{aUy zjM)gYkbIe8))Mo9n6pUoF%DKdFmxx>W4&o7F7FY7TA%lp2Qx>6Kw)9q!96U zPABupnef^D3Zw1D*YHb7NWl^!dKsOVN)+NeCICEQm`B7RoLK?RXogqt9M&K%BVmEb z=oQ2<2gbLlgcHv)Dp5l$J@}fcu|#~01S+6sb5h|p>kr1D$RdVV994oDNk4TU7*uRy zV&L^JHl(1CQc}`y;#>;xDR(fGalRui!N*x00*Ap`J7);N#|(+SU{abw3V??q#%VZ2#PyuJ zgP}+#x(!`4thkpj;)}$|euD^kxg{jTKVzCnC?QM*Nr*FaF_MN{YC~QQarGnTgTc#L z1}ormJMw}kl9dfRat$fTfs+XX%*fAWWSX`N)n+iO10r?dP2%Q%`*gCaUKeNX!+|BH z+4{QphlVvb^fx!;>LTGttEUpq+Rbnp*U(=VX(s1-!5Mj9r_9N{h(vl4wiN%t+jtO(Gv^hPB2z;?tG!Rs zDkqgqBi6{#BnY80t^Msp*F?g-{opr45lE8Yh7N}}$LoF|f`e3%HKvAvXhZ$1`QYko z4!-BJS;m!aZpiFMItRs*XJ=m`3H|N7l8no>D+sT+Y7Tf8))a?(2xL(`?8pj+LBRyt3?OO_sgp`!Le_mYNiOw3N9J*sf_a;1r7iQ9KQZ;%R`t)9*RMPfmEIf|n_| z817NHUYQC~R8A~HITIlzF0>JmsA>RAh6VqHP}BK-}4>dImV}%z>%ELRF8iqf20hgqUH2pIPI-x$n z)G(69Qy7g0p(z@MnHz@BP?IvXt3F|-+B|foI$@Yyp(LG$+f`cUP#65mA!31ZP9VZ9 z!Ea~-yx0Z8)5R~H)F~ml$afT+pR+Ur&Ym_ZhP&h%b78p19k1&|URD%_BShqIm$Sw^ z+9fiuliOGrCQc-N?mI+?uxuP222PePcm#gWX-vgFUo>@C9(Uu9iJCxh6` za4(i^LDy!TYi6wd|IUbA4GyWSt07z(-qjGXObMMf8gB1m4d>CLMJjX#Jz6?821i!F z)cJ;tq3ChLXvEa$KVHv@r3SN9I!>>ahL6*SGh0caInUHEb}1KXUNRr2rwJWaz4~mX zhUD}&HH@nv*ya`+@G*ZaUVI^*$$<(VYibyiz=-k8a6~5QXKE-;V1y2gc*J0Es+9Gi z);11zQ7;(;o3DJ-( z$QkoiM6|XWa%L@t4%?5MVqz~2BN1Z#I|2urcGElr8h9N~Kf!;c^GLMi7d$<6t3WCd zd9GnB%p?@i_AKOizH258h+xn#4#uw4;qacgaXyLf5NIX=7jlSm0*<~HF2>(w#R`6= zNIYU>X1+&sIlFp9`AD!w)VkQ9^$M8G_R*6xg>6k2g_y7Rlg{pfrk$s=tjSimUQm6j zDQ&VKoT2e$_<6T{i{KkDOs#ua8&q8a=Nd1}%xK#k^E>y#uNiGy5P+zK6L)4I-MH?^d}>Op&9=Ei<^#^Qv!a9l(TWaEj-3=07qD|yhm2=%c6>1=gT@qI-QyAStRAt2 z&1_qUs`|n+Gie*eh~Y{m{~n4tLf~XhONy*aShL#7^n{k2^tR3fM_T60YlKf@EXrsy z2&%HLGL0ctGNdlEZHs?24onEqWFQn~46fv5T}GBMt1X;~Y&_~@Na1^y)k-lkNIf-P zbTW~WzY|^ruW{_>I+gSvV5KRAWn)Xcv?f7ql@D+UYA*66%{^9%OHlK+@K1~uS2ZU& ztGNW6sjTK~*nQ?KlaLi!&BgIm93QLyv%d{ZdI3S!PI7sW`%QTe%=irm(bD8Rl zUx19HthSf7^EubC#@Nn#R-;0bVmseC>_I&o)-C3a%iWcWIZ^7cnB%j3`I8ovcCz3j>sYI-&LU2<^+8%HLJSXMBwV8BG#i?F>0IL0rHs8O- zSf!tJaNqh(FdFU+MnqFhFlV`gM3Wi=SBc8X!2>l0tZ1&+01yVweie0!Fts9_U};m7 z2a>=iU(YU#72Z=yq|4D-3J6vD2abHC+nLgB$XBZviZ?49*-2Z%p{iY)YGJv1jMOY8R&&lk;$> zJr6;)KCu+ULFZ?u5|U);9H$8wNJd(bkro8qLKMcFRtq^R1(Z!7zazr)%6vWze|9m~ z8u?)eoE(=+y%@kFaGQl!J+m0*6A43(COA5W&}hdibEuO9XN~m%IW->lwQAnm#oREV z5(7&Q!ju=HkcNqH($e3b1WocM3v0D}mAPSZ4q=_OI*i{_f(d8TBT-Hh1|+5i6LuDw zfnuf^iE~+{k@$I#s1=czj>Ia9k@#0&NdjLC(u^v+W*iyjZkUPhz%p)3BZ)uWF`7e} z;8~HxXsLkLhAjMHMd7nixN}wT0AjBSCKhKfF^%P1Tq29e&m-9=x5oM#YltP{c+&9u z|6l0mtztV#?RgVUU3>BWPxxmbPI=SDrZ6V!td3iY%?)!5;hE-D9p(jCCVPor+~I&{ z*ruSdwiVAqbLkZ8k`mIVMhoO2PB5Dr<{~cc!zyu!NCOaD@&j>u)iyV zvlC0Modm0Jg;`{<#!h}^N0=HGVy@iV)F`TXyc~UwD8os9j@dhc+92fIAgZ7-Ju!ht z=$soQJ=ffS1hR8S5S1k_kc>f80rP-Att4n{DX|m`B>rp{;xsk>%#0alE-(+cE)Lc*Jb>tf**~=}C>7>O zrbY%$oNVrI9*lu@hX5=`bsl z)}bK&Df?})c?vpGZk}qMX7->X73RfgJ8XezM=Jl_k%4IXQ`R!*`K9RjWw5U!0~aNm z8Uvm$}dT0(ZN*Al5P;mq6CC0DZBu=1wR`$#UOT zn&+S|bItS2^UVv;mxbmK8^dxd18zeDnQvzHr#WgRbaR@o~U5%tZh7);b= z&ZIYUp_qyhF^3(#&g2G$RWiJSM&$Amox+@F z?rrvt-{$O7-@(rR5MjUG#XudUkP68*pY+D*Uw_4o2$xIqY0w8-u?@E0K+f-Dna{C= z`P`rUnwUh|5SgnjegU3x_S}&zme-qM16-_OakHU z&TNzUE)(h?Hgw*z8MeFh^48)|4#+@bxKpRWOd3AOp;m0IKD<^+VoD~_E z{#K(w3tvx+)^DVfWo&&8SxU@}WD6T@n;S-cC37A@FVE|SJO;ZZzl4(jM_O1y*M;F& z#FQczdnlZmi;h6>FXy6cf%K_Crn+ym9EkE(Xz)}KGI)f7?L(qdM&PN{*i|6!k|F`+ zEkP`=)Rhs$xppFI#%4mJq8wIn4#xSiTOf^9$WRiyB;=6j{-^QSE93C)RMJa@;9Q75 zn>Q6%r2<*94G$u$bY=tz7^DbK==$nn6bA=Ejrw{LJ$fgavZJ3swl^ZjfbzUTBjqpgv6t2W(%KPtz?QSaez%xNyx<@vrtK#O>mj>2plM@GV0qgnat#wBH4(r zC{5T~;FzLz%qN?0#U?}v`#c1V8rR5X2031AKKKHB;hNIY4%o5j8DI&b(DbE=T;>@( z{PC78Kl7d~H7~SXPWpw{x_2<&B$jRg%RbOllH$-Or04Twe<{kfIiIX4~i5aDsE6MW0&`9A=U(oM6r`HB^xx z(j~zVSs*?RR=QfuDGsqUSWj?29qWfCY_c3je}v<{^3=GlX~yov5#Zq;1NH9i+;_Rc zRVVCrtkQ!sXu;fkajL^2g-mrQ_`eOtX&Xk|#IXK9Af{2%EyOhHdn=Av!ra1!5L$$< z=r_X2AmFbru03y%BGJi}wzS}COlDmxTAaSHI#OLSi)hr}qhq1pJ@445t3_ln!XOnf zMp{f*<`s0OjWd4>mTdaAiX>&W8E&}-m0U)Apj$4N`tmK8v-y&hOwVf5gM1$ozWN&k z+X3~E%s>*CBVQw@E~`z42VUiw>aR$V4iCJ_!$lY=LJn4Op*`Dr6ei%iOiEZgzuKQX zt_{TZnd@Zj7It*o<@d5wyvDM-SD5Qnhl)H=;*axd@Xg~TSYEA$-C1p5#^e2pooeTz z^D80@^Vwg`A$6q924CtpJKknMkSaZbROyTeZKK0?8TeKYDG~-Xe@2QzP9kd5XSbX* zh#JBr@Yp{(DR9}LXME&lK82NPa3}NWBH}DLZ6yk99fh8v@zhQtp4!PrOjyY$PD0)k z%(z50{|o%sbmBQb_Qf@dIkB9z976_}aRsi<%ww^Ger3RQiCJwAD!}4)(z^9yEFAZy zL=dy4^a=8Mux~QrG>zRoRhbg$i?NlINLTvP1^=nQ@A>9TMRm57`LIbaD!Odpe zY@&hJHsR(KJc?h?Mx-|&jbG4uq+doFKYDFfVsZTvXtWwMstp01SZ3{(no$TJ?pmOo z&bnUfp~BZT|sw>9$xy2wXp@?ZqSBURdz=2d`UlU9W*VtlFQ6#-fr1aQ&{N}Ls4v?(pi z=o2fJ<*@$CpcI&;xOKg?1QaTvAapTqPc3p{g0ZMdi{K+wTASOUU*1)XLGxI&=z9eQGjL?VXHALnrM)EVGG-12{23?LXm7P-p^N|BrtY zvCk0gS?xdeO%yd2VZ#`tBAZKaJE;V5VnUIMY#D>w6#%iB0FlfKxP5ChZc6|nLr3BE z)W|ml*-L>OVM3`gH?*|__bX?^I+z-J8Z6-J2Jp3|QajKBp4Ju!rI|%wYRh)SRU1?w zc$x;`u3@_nl-*S5DF)VMmE^Q|N~vrTN|1`dE~u$g(!GuM)Ss)<r#VSz%K69TCGOg$I@!GwpOcEe(%A4zR&Y{ z{l4EnX6`v>=H5G7ZsvW?nHhl+q|QAUr!8V=mkst4u!D`r+BGKC; zkk=T2zVPV4y0l=^w78W4C3-5>xz$g_WL`HG7plmSK;#L3DyIJ|4qWLWWJ~c0lj0MW zlq`A3U_)jpzF|qIeIs^|g-qThkO;a+m`-M|E|R?tEq)eS{44}&iAwKv{m_fj2#Gi{-s_xz-w}wdm$7}c*VOn|TQOr5rASy` zBI-l9dwno5hW9WL?(KwO;D=!lE~z43{CK}U#Ebl->=K?#NNpEY%3;DuYr6;w{r8in zzv3^4^D;9kmH$HGKa9w}P4MD6^?}`L$BhK+elEd*EZl={6TJU(;=o?I#o`+@dW}ZY zv%l#`T$h9y8zWwNp#b|fFd`($c6SrW8oP;Q?}-Cs{}TIff)irS2Yv-Ak;FSAXct3| zV8Btgh=eqPEkGhWfWNh%10b-84nN>U3v-`iT5w#$e? zjxc`(5<3Rj2~0K^5&3NUBL>qA2Gi1}+7glK<8S+60ii=C$9nl0e_a)}S8?|G2zlIP zO?||4J4WH5CriDA8GEpv5hq_2bKlr;^3|Wi9*FD(Y@N(M%E~%SqRfo+uHv2P0hJl) z37Ks6&h+GL|7y{}bm$!7Iqy;;nJ%*TVe8}<$Y9m53$Tb+tsNd-1Uur|;jx{ou8@xg zL+Jv|LS2BUTSITn>Y-wCT#{^sLOqIIogKVfuWpmd{PT8nmz(?cPNt`Yf0og2s3@83gZ(oVvXMPf!lOR!fuGO<*~y+Um}cs+ z55T~aJy&HUvvrD-Jx%KJDy)+K2~Q6^*>g&HuZ~l|PxkCLdsfLovX+PSI+!2-_Q{^Q zy3mt7KkFqGA_2;Sx-KVsp3>HZxf7OjlZqfypX_;_3qRQt$6j+F3)N727c@bpX`(VM zNF049$*@S7zEm91A&zY7d4bh8CCLu=yv7+0_iT^jq7L^|OlPa30dbyS09QvpAwdz< zvA|?cNZ{-c;`f9^R0jZtf$jY2GPOgx-99s*&Il#IvSbl6!yHhTC}n!z@6)BvT#^yP z+Gjq*z>cv1CRQu)u!j^5SH}*-ehITIfQi*gi!dOt5-8CkWTQb>0wh}g0g07(&ryM5 z&MS~O$07_4ocjtSs*nPZ7=%kd0X?aiUP3!AY!#kjvIsM)V_ExLi|~CFYY$@WA*?;r zObV-c)?Ss0xARX(aA4T0>V@M*6o%k}+UZ_h=6BRCbA4(+U0jx26~iT)>{WU^p)0#S z^*$=qHJ)PMh24nXeMsY3dl&`3@$nS=E{q5GtxiC-;)Ma`c%h~`0ri?F;Q)TU0u%6t zPXvl3s8_sDw$VE{qMAWT>bwIZk>d0Y)Z4c>?gu1Rf4x!$}#4N|j zk*?r>4x#SRLsTqFPL`=)Z5j}dsjQr23)KNt4UzB_e>2)f$ zE{LrQ_S1JyUa}q#H}3xjhua0>FRFcNlZ|4nuru9Hoh9ea|Kd~OviR551W>$PU(c34sBx)2f0%Qlxr zZ7?57W(y7{bCHLW$EDbX!J-e7IqwgXrP+X?)v?&YRRx_u5CULdKq!u!wpW1&15use zPuNK0&?7`elbgn17B{UQ7>xa6JNsGjK3^b0?0mu2h51=UW?lxURtSqqT{zelUV&rx z_|DKc)^UDT=^&yG)?(A*3EMYqA(Mrc|Wv5hOU@yDlDOuDQdg z$Kr#0>Hq`@Fr*6P+pGVzsyE}_ph}6;RI5_-uBECJZQ9ZuR-OUXU3+^WgxlvMvdvSa z43N%aat}WDrtDl*icUKBiB&b{iB&lpjBz%IN=%|$v*)EhZLv;eR+_bKQ*Z>eYYN0Tf;y2I!(akB3Xx*eb%Ajda#-9W5bMfDM3Bf4 z3~#nDdCW4iwh>deBwH??9Im%z=MsxG3u0YcCJ`DlL0N1WG@BHj);-Dk)2YBuSHoLdm%Ss+4|7I|hJ`ws@?#XdTvEagvpi z;TCHWE*4EcDsSzJ!>H|jLF%o20G`@<13dM{Vbu0sG}+jT&M$k?2I)chvL5vC&mK68 zx;teX6V+sZEs@E6Ze6!cPzd}!;Au-q0JrY0RfGc|H{;0R_z8rI-%Mxgm%TS*w(jOO zi}m(!BpJi~gdt&+>q5CMIEp%yxog$iL$-qr0VE2>EY;vqtraSj+c7^^(o=px={|Uz!6h2(s}c_ORUm{4Kr@4VF*#%mZURr`c0_FZ31On=B`D>K zyH;)53p#9Q^bm@1{5R1&HR18yH;O|^$7ubY5NoC#r5ae-Z+_i`CaQd1M>q8 zy2RnfirYBo@-|Mdci%!jUD++zzHZI!ZDDQ#!D<`7rvvAEypK~}r{m^3Ds8)l260{c zqPO1m?H9eZ(r?iq?yIx~ub>o0MA4paz`8EeGG2bryBBkr7WpDAjW}g%VY*(^Qkbr7ZN}T|&0wvc!{xD!OV_(j|G^~MPaz+B zijEVY=tOrDWt-?QX<8-F(<^ z#akFHz|CrkmsNnuYy$wa3s_kNtjxX%0PO}?Rsk$45JD+ft_O_}ilC|kjXlTu{f6~pekd>Ulr?b`d$@_&aTqC z{nj`-)MOlpFxgdcK0f3s*A<7}Ccfg(QdJnaD&}tmTouds$dIezv9h}kCGy3S7)EcO zhz_%sqQlxsVi>Kf1TR5PO@O)!7WcOCsQCCTSS4HhP^vW+L&58@J(SA22||>GIO^Ix z4&t(LxkRfOcTOyxBV570ErN>(8FqNW6B4KBG7Q7Pjocg zD9E6O?vPor29mZNKEV;L5#@vW$#&IF9E9#<-aULJy3svsWxC!z6hh-r3QmVmHjT1r3%v}U!4uP!gTSQ?qRON};8MYr zrK0mRH1hNZ>*x0d{wXTSVzM@QDolTeNOLpWabbCk1wf_?PqgFRpri-AlBnjyvXck=@bZ9$rSX{IW z%+ewZQ+F5|IG1H{p@YT?wf2P4s)V-qMq5GYnGmpz!C-B{U^PKtTUE4m5Jj)^x#wHt z&;w$poCx6Z)e?X0K`kKm`%m1vSjIcd>!EL)Ll203l8wN@p=XEsRVs;S8Tr9ybQ3g~ zwaL&-940<-Q*|vOa#iAI7V;+#nolxZn{>c_;RVNg@|Pd=~Bh75wGED_)#U&2ga9hJfT5@)cEK7@7j9hDg}aA&%4iOD;$Cn+>%)`X*t+ii-K=a~4^gtCrd=fI0U#@~&j_fSrI!>>pD-^X zzNI_4RX7I|E$Fw{x}HQNO6WZ~i0y@`{L`$pZYaAmVD)}O#`hQ7{G4+&F;Q~!WovJ=@cn4y*eAFnu(T_N*h z;&}g{6J)Zie~pB%>$Nn;R8-bNf|JS}y|~^>bEdF;mgaO(F3p)1XDgmQv+@X0$1cCt zGge%>B1bWFMNa40D{{DDD{@Y=>C4l($t!ZMaKl&R019WU$T`nvdacO0#AS5|vLRq| z7ztNSWw{-)ycIbYxDhLIZgC^Q$8n=p%lVcYJCBOS&C8(>+5$}QZ|r<$i2`0Vy+W8VuK@J2QU6>=zq(e70qvfU!Gi+o z3U7^Or`{SJvwmQIlF^-AKZxSy?j5*Uif0rF(t5CV6HEH1vUPo~3YMg?b$!{oey0V2 z)@rGjpoDa1>ym=W-wbdJ^d8B;ZVcO>t+R#+CD;d@Eya&mwlTMT@Y&eq=in5!Qh;GF z6oU0h_N6iFgBWw{O3`H%Vd}VHby!%-*X4c?9~LaC$>n@%a{aV+Q#1*H8=0oMKLtYr z$_SgfFE?NqB+JGlT5a?v8pq;jqFJAXXf+c}maG;92NF@pwOl;haU5U>XF=7aU&|HE zh^;w;GORP?aKpixV>ix3>S3g2T+0=kV>i7m#^*hU%LF$gwgHGEc569Y6FTy`fHug6 z94;G)XJg+1q=?<=jazfB&d5X94s7r5^j!lqp#%#!Ov0M91p-X1A;Nr zu~B3MQ}hKk@Q(dz0}0K)mMgu+sL#iU$;!#dP(Xsk`*VYr93$$>!*J7T$i`Lx;y4(A z`a2d72S?V_jU#N077*w4dPaQ{0I==@2n!*MfE94l=bOy2cWQwGaX3;P&R7d_2}hV? z+hBDhKaC=zM1kXR>&}fteZLO39zrIHC`%x0oCe_r2rocTiZBtvy%NF4zv1T;`@0V$ zlQxpzPlho?PYyxy*9Q`LS#4g4{V92E>GlnIy@gEthP=KmBG{0p*R)3u(Y3yulfk{* zkk?&X{2Vg%UqgoIJx_)V(K?<~Vipcc?|D3Ah|cl&*-#}23-bqq)W+ZOM`%N2(LADj z>u=!gh%DBJly7^0nX>D_hPFrmaW$3L}o@MCTzPT<4 z`G#_rDR&8a{Yyh~R2Ls*uov+J&xJ=BYSp<%8LG37G8AWtFceqSS4jN|Ge0W`)t5;4 z;!#E@g6a(DR?rBMEzJA@y0+#=8C)|C#^!Y=H{_Z0wi6rjbkY;sGPut+uw5SKr zyn6eG6!ClrXta-3)uOj<0}f)gQoytYsAvo28YqXUYxtXZAM*x4QR8Mzb2n2^WUB`# za#CPZM<=><@%hS)z(mrG6as7j>ao90LDcK<`627Kiw&-I@%ajbkab9M*C45^CO)65 zp;g|oidNaZ93ZG{IY5wRITJF3Q!N8@u>%7kgd(VxU>?5&7|04jwHOJD1`AY+KrckX z0#ww#0L*+a^MF-c^U#Mw^zPaF#EP<7Tasq>t3EZ@ivd7vKsaqh*9DV zgtrp*6|HeBZKs04zG~$dIxQRx>kST?6o!sQ?vcpg7)g6|BwjZH<;X(;5mdRLb3h{~ zvvEsX7BEZ}UR%uT(g*v-sD>Z|0+)s-s|MkYfe;{sA}9yY?i_&b9PkHYVEUsPDX5bz z<*1j+3MQHMWb!J3DhW)In)LPb!;_Pedm|p9XS%nDy{Fk=qii3}rEkbPXK?F$Y)UP~ zG}^xfp&Br1%BX>HIox8f!`|jK!iMQ+xGEIDBjlV|IL>C$;HnD395sm65QItvWTFI0 zK~QxD9S9mhr2x&I6Z7n=3i|ulVwAqHowfM@hPZruY-*J^-s%Non-rTHhf2VRt9%or zVrIKg(gTP~SmmoQI`+Wb9;4R9fJ+-2V-txc=gF#k{kW3J zc?4!Si}iU2l6^*XAkRRyXYenAVTdy@KLN|a=&ktoLnid!KDNjoI-u+i=-VHv$3@-& z*i zwpYFaA^Ka&Tmgf?U+KWFQ@h}K+yyj2ulX0V;|v60XdJ~r-c08Ty@ zhG{h5QQD(N0a;-H#=QJA_fUCG*+?NPY`@yZoiL5rcH)IF{puRu0SAf5VkwwC3!qvHpjrcq*4mJ~ zpuoN%d8(Hod1rx9Yk^T~w7{v#Je=jQ5v`+NPaZ1S^%SSBr)^W~W7DsNh`!yr7KK~w zV^ge-AYQ|52FBrI6AriOZL4T&tOSF>VIN{MSeJLuyz4cz3AfD079@@y0qp4;CyvO@ zm*Odl(T0n+5MBcU?Xoq}$97Itj)cibC_}5b%D_y*yCz~}OhgNnQao5nfAu9Om)AI3 zpnIH+d?4ufNfaY<5$-IaKM4@3LKGm|X0nX~J@yrCF94n2K^t6Sd~C9x$3(<+iaIBj z{d-I&UN^$W7NyET^6PtecQ&nhCdM^h0TJr%8IHTt@rrbc>xO|D3I;}174!O@K=%+E z+2V`p8#HOS3monmVl!C>`Ph72M`S)WjrN!kK<+J09>JhiAxH<1!@$#qMUNu-x5A5v zVOxkfOqoQHToRBR2(-*WQwNfZp-9d|kz6!woM<$N5gFT}BFG?|UVH!bJ$jqrp07em zORvA@i$A1@d)U!LcMmprT`mblDfMm*xH1hs{~Azw4~H8Z*|q>H?4>QxV7wEfR0M*{}RXd^|;^4&qnHomX*ti*jguM@#hk7$}z9SC?6a{Y4 z6u2o59`KW)Y50?h*Y^Z;Wjqmdy4@6U{G#a?t2J|)*F~i?}zS{ONR|xtAH<8Nu zHBVq}{F~eOv+X}9?&IH!OMu<({MK=iCKs0odE>*M{Dm1B>~r`E!d0ggmvEDdOFrYu zi%ULXF2K*aTWR|+ZfdvE*3N@nA1?`%0CABj#bLpW*uTEPZ0fnTwD&Y@4{;c)tVnK7 zV6f=R5*%Wk6Budcz7cLO>7L;e<1CSPvmHJ=fL%RQ(g*j8Uz>7<2#a38D~xB-ZhSNy z2V?@Fm9VRgkwXO9VI*)!BoPfsm4240egR+jtj{rrtB?<4;BbzU;0L&|hx4-mac|3O zV`o}{-BJ=#a{taqA+L|g|J;w=`Xl@_*N~sX1nQxF~G&gD@f<5l{d=d zgKm^@gKw0z`*;igg7s9C7~~%$m#9SrgT!3&oug{mhm%(RH(=CFjxoochg%&tTsQe6 z0LEDL{(tuy&Pn)k^vGIV)#&RIXMaJ^;{9-R-`6X@%1R=bW z7|YLToeZ#}(pY{GTd%(o3u#8D$XI@pcZwm3<((2^`S%8=_t^=&Q?>Uv+tl?_?7@-CeGqI5AkWt|O2b-LWW40f$f}zJFoIyufdEIQ` zuxhN`>cDjWc%Z&k*6u|fE@j zEXnKps>Y|V6&60chjTPFT27ABoo zz6;oeVATn$(IMx+Es8CZsJnj(?r(65!4>uX9$EVW-7TRxt^Y#WuY`3Hq#5C*JiOlrE z7;qA=<6h?2@k%@gVSuR#2HYNq?fknWeYSaAs+ZGXSML(I`XGXTU5FdY6K73cxG{dcy_VkuEI&Fbf1{U}S((XE8aJYZ>SjTYq4pR=# zx0tDS42N$chgv*W=v>`#1>@n$S3~rgZ!|--t(WO|xU3n9@oua!Sha2=;lJ4Q#tu}h5VXy{js--Co=+(I z2^|Wbz~FS4av#HZV*j|cpmWNN0^P0sfjE!Mnm1{<-nAEV@wB~|v+sS?61FX92~7i9 zqE&Y++WsaiOqw^4r*$*t>zi*Bc;!tpXkaZ;)MH4%QlzFPBGpC+Hh#&3ZUFr{(Aw*m zntIlQS%(CKPy|&CXoOG%)f&(U+?xLkf|DyydA$c-j#|euOv$aFIK9OZ@V4GXBU=?%X_cD9x#!*};K$Fo zQQ#N1zyIB1)HEc!d#sb*Q-K_g3QW$e6|Wk=H4Y768yhIlNyo-8Aq9A$EgvtG!px!^ z17nSAG$!Y1qcIYg(X@M*kr)Y{JO~|m^f!@5i%KA~1(hpo8aE?A`3@eS8-e4PH!`9h)-6)9rF!}B= zKEZnT*xPzfJf_%=c+AD)|7i%0HbgjWh;TGS80;ywF32P80AS~ZnU0;r z1>Ze}!l~#-U3vFdhiO`?QFa(mV4a5KAL}$SFbc4ZY>Thf#v((DFAUTuRjVBK6T6%? zkPK{_KYGmNfA?5mM|-fG>F%*En4{r^et-LLcaoz-NwWRq`Ozls^xXjxSVz}dWON|)f0N4o z@qas)o?&L!`n4Vr%L;}Mly%AYUz+{e%vgEOxNUr1cx`5T8rH2jgKINQ>WKyT&xAJ9 z8B&`$g_~ZR$@H68QVFj&V>?zRo8A~)o2he}YcoF^izRa8b#9YiG7G~s0nFV#3=XhsgT_&b&-Rm;Xt9y8@&ygVq*Auxz zxn8xI7ueqI;*1eeCT3&icU+&1nb6$#-I#eZpkK5^wmkD1m$aOUl9y-RWUaZ9jFD1i z(Ng40SxUtN4juVk>r9Om%15zdWqXcPL^?zF94T~mVVz-nj)ccJ!}lD~Ik`PYVw~#E z|D}1~bELhuRFQ2qw(mmiucP*6MK;3;6xr?Llk8ha85How_U{j<3I`yqYhbpJ>lv7> z4VVHb^v_}$%k*GB|Lml>!IHpiIV%m!j`zVz@@&?xQ?|;#Q+85iuy^edh1MPk?kHI}OnAJEM`s30nY;0VHzur6ZhrXEtLt2{)r!S5fr%o!KI@$%{_oz6YDo z!FGc7dlXzLo!xe3d+*9Jn*xAdMxBDd0>MY0noXVGg?{`82okC5)0u3uDRc_f+(4i0 z?2gm<29e+dcuaBIA-fG(53G@iz>=Gg2=bZk6h=)X%o)y}@6vZ0G1;uU1hyAlAv2f+ z4SkUHn3!UZBO5P)y!StDP-^B-SIm-433>?oP)Dc*m1a}-J!0Z~3Q1oQ>;+G#U|Sm5 z*BkR$Q(t@ooc(0kSacIKu>eK1N-#C76)KacA>cCeCrSMh*#==2>`aCy)Neyb)ZA+Z zoOwv#9|c3C(+Yz?0DPgAL^JA)Xw-NTgelY_u+qt78gS|kiwLW179m18!I4@6d&6`X^S z6+7|^s<83NJ0A$t6SKu+{dy#%Az_03NDzS^*89+`m9M}vT97bg2?;)!#;7YQ@zXy6 z!O(L@f{$mA;A0zw`(}TQ0?ti@G##E^O$aAHXVeP-#RkD1;++1Ok@+e?ptg6xy^|rx z$RNgb)tMyt;=4q>98+a-GgqD&Lqhh!DeUq>$f}U@Q{>Eoa65$G9Tch^AE7LNK$!g= z3I4H?k*_-_l&@PlA|U5I5^y4mpx%9i-LGxU4WIt#Xo7pHK-@PAiwmX-wsud_AkOWs zos2kgqF{7ioxQY@ki0Zqso>Z85J6trfC++Jz9vaCLD08bqGvoL`eH;Z{1EgEqC|HQ zWsAUS5G8uXQFa`Z+17D*=+MY9c#T#%25L|DXb3QoiX0>e6j(f|h;@$C>w@T1+!EOz z`E-u{ICP}H;H!c96v6WTtQC*3TS0NkB-q_;{a|;;&M5teFuE_KiaxNpV5rBO7E^gSp`qi7oG6Ddn0J`p7u&vylBQpUAlq8dm2yyC!f$`~wGU`$Y$H%8;X z(-uuxBW0to8p9Sf33DC8dzkC!u^2;7|1u-r6DPDq2>hN(z}a-jD%GLjZmrFW<=xMNqu}{WoZY$mhtX zlRk&^**m$MKbW{Y-{@`pI*`76|36d5nDqAFQ^)9xzrRt)JxU#e|LcdTWAyF^sbjQd z56~bQPc0ErVO+L}S>_M=vyTM9#qw?+#-fZ%N zZ<`H3ddaF%egT4XyyP^)ixXK zvtjS41b~1?sKGr8_MVwwW~#{$W+s!nS&TaS^07gk$M`9yZ5Aui{wn7g5UBF$Pmi86 z*z)nnI=}v$3iOl3CU)sz3jj*?m`gZrk zGnaD|2(pgFSF^dxIp@6w`x?R_62h1l2D%HS(Z8YS-w@b#(vCOtOb80245GcOq`j*| z?A?8tVEmd>*l|4-T7p5B1n| zeBEra-nNuS-a<~D10I{ITe~N{vT3!V-uCZHO4QU{(_s6qq(t%EDJJ?F$@EoyTT&wY zt=#0fT2i9F0)gU6Nl7#%RF{zrA^I|9E`mYeU-@X(7&3j;+}Ef#%vlfRiblM^_JyS! zpAD3t1tM)595hX?W=pw}`e#Z}cQ^bqEv{2EKkBY$PEplK6V2;rLdC6c(2R6bw)F&l zhV~PdauRyfQZ8d#qWE+pHFCMAUuGKh%LIWo_%T`?a8616GBxnaRJ4AMalQj@d>h$X zUHGuM*cO9^TC`{b{I^G@VhaHCKc+0zm-gAaPg`T294nlAK4vXUZM@VE7_K7$Q+yvR5p9^Gv?-TLcl!?uvQ2!}H zPWsX+WZo!W2UkIV*qVOb)2t5npV=(i)68}(v;(n-+eeKUZ_)@`Y2ciJyeWXulMyo< zlQ-osw;1FLZbgT9SKgF+7&Qm^uOEj^Yu~~>OKiReXTXDe_@gQz0QZoGxE$c8{W^9Q zxEtwXahU0WdqJ!);{zP46eyssfy-oLXK}f!XXeO7f6nCcT4#O6jkriY<3_TAQQRo+ z*)V8~e(Q?|YSZhxM@-)c$0X;Nx4v+wCCO`M^7g@}iBP_=d{mJWD^r~LH8aQ9D_N)E z3zBTdK1pRQeua^oFyoAmEO+^M?s_OAiifG~`W%^v5z23gm`r#8ISVp{oft-TeNNC+ z>|2-R6LYhL>#?halWm^;zl<(Eb7Rb=iSRn&Dt+ee=eiV;VO)@!`GA9~-Ul698Oc^x zd2wS`SDDl$AFQq_?1G1nTU|9}O@(i=#Ezps9aVegPAZ#H5;wQ3a?){PHoj>2p(wa$ zV^yyJXW^2nBtb|-F2RO7HsR-UrA=Ob`--`fgU^cD_yfhoFFztrZ-LOh{D?;Xi%NR= zk?=c-PsP8n>`@>YebvT&es8}3kN^2ELK4R+3$NPPf@?PBsx55LRhwqHev>UAuM-Iv zF~$}!@?lZHsKz3Vy&#wb6i1SPat`}bAWTJ=cA`kLtP6zmz|2Qjz!7#Kt{M)XN$&^y zy)?^uQ(rhGfbv`fEFFpu3iiKkBat@NK80jdGr>MT?U%68IwB||Db?0szcw4|k05We zk#d`6nJt>6I2Hx_-G&%Je%r>>+5#j1zOXwIs!94EFyHc@fy}Z1O-a z5}=JHntCk#(bW6W$d5*yurS9tK}R+OI7CyR-859v9n>m;d!5eiPsmyIhH znT<(+beaRiHF^4QwtBLkzLW}6)ex4FHD!~Q>)A{{{j_55T?fp@G@w-NT5_?8BvpCM zE)I$;FESg`r{PfG53spjG5cCzHNj>ZCZf*i2I1mrG7-x?vF0)6V35U$yd$x*hT?E1 z##|;9dy4|pU(c5IIq1D(zuB1oCT_U8mJFW5zSe0iw%wS@sBJ}%?OIF9mUUt0`ss%q z^k$3A#*#Wb<9ZE|PtKV~a%V|L9rX6Wqs!o%$o}mhqwHdKS?X#i0zNG?8>hd9%wMl2 z$r>z*ive_*d@$ISkG=U0i%H}&vVR6SQ!I`lL1m+htBrH7lVIb#kdwP#zvwmPV!VV(iC3u{3fKcrW$Kwh%kJC=Hj=zr!mj^TM0OVk zFD-^Lf$r!Uj|a|NBhs!fPaq-dQPpoHjNF|jR=78cMmrUqoFm z87DDzOWa9Mx?$8jTw9G5`Ls5mq=8i`4XO__>NKk z2vrPw=@Q9uma_GM6G?(lwrUa)_aITh)!4wR4QeC#+8!j+-idu^!c7QKRX{}QSnXz}>cLBzs3Ck`Q8_X0*7 zR`c}JxL{#^sZJ#{^`OcamGESIl12qlcWofz$N=Gz9y+@m%9sTMSX_E}WWogl^!|vn z{=y_)--)t*h*&?MOa@V++lR6~U^R#mJ>Hb{1}L%Oz?9OVks`cAD-}^yj1U5-VpPB3 zRS!B8F%LqELLY#;FE|+wXpd?6{rpnpz5PWAt-lD$$I12=aRz%EL_h5>(n^1#(CaR^ ze}gmro0_wJ++SpH{g7X(K#2Z9@P0qlZ7>MYw<&WA3<7^kkY75U|4y)AfGP4@!J1yW z#;abX{8jLr{u{)Rmm$=)U7|*;OW>6ksS)cUj93?*7wgYM!k(uUMwI9|OWCt@QhpXj ztgpf8z7m`qs}M{a;DtxE3f2t}oh_1qD?ZZS=XiF`w_8MDYYOjGzbPytT0 z$uuRhUOx3FB9aPKUpjrk{fZPW+mYy@X=9s1^XH&JpY(UUTFtaE#3%x!QJAYIF!=+VF z9Rn!XbEjkLkE!ngtxbix351@RLQ!ZrRX3G`)l3H4T86DY?1=Q%NnqQseMqzmk=|Ac zR*Hysmryhs8E~ga&Dq`)!{$!+2$7D171IqLR%|kozhJI%3}i<5uts~}!>YHBqU zT0Hni)4N8X9BCtn5aL^(0+*fN#(c_WofEbld9iY&{KBZL$s8wos zW^!=a49944g`*&0bijvUz;}7*r3yt#C_0!4g^nc{OfVho!O*b;fl;YRZ@Wscrj)a; zXM8x+%ulZgq}me&%=fU-qr)Ggy1?_)Xy5)_kuI%$Q&9*Az3T<#UI2Z*SW{|nJ-<_= zcpgRg=TzyX`U_+J$(OU!^^KWlbrn{0^2B&i| zC&xzrk6w*?X94YVIKt~%x1!JC437rryMXrjYTD-x>ZsxH6NW+&s9Z^zm2jtC$?V4n zSWZ==%kf!*9#E}X2ECdcdNqfgcDfzemr|#VCA8Q7(1)1_46o)WN=@Rkz`yAzXFa;3-GSWatuC z-BvN+-IF?Kg9cYsDe6z1T&*BPqBTWSwHB9WTvH^)tBYyJ7t@Z1b3E#Oe|+gVxn|34 zzt?Vu*j~F$vkcuQRygob>rg1yhR_~QqdlHRwQGZDhYy5~OZwVvlN+i) z&g}oA7Yv17kg5e02%!kdezdQl8|3>j_%q{rE|?qB@x^c?qMNPwc5nu3H+;zw@U+Hw z^s@~g5BT6v)=ag=W_-ysJf6}Thk+i4;cbmYVp|L-7maKtuu>CB>c+>z#J`Axc1`cm zL+a4ek2xr4TAcU}orNx1@obG z@WD9u0Rx+Zwh`tAlg%5SEiZhwB>03OsKlVLC^8g*>I!vIA--o&72+gQd=%B(%Zn8z zi~TuOhZ&#WDd9cOE>^&1@bu0^i~9+cmf;f;t$A{>!r*z_Y-1m97A9IB6BrHt=un~k zj-hS;T{SK85m<$E{cXMbH)=C@NK?}uV$A^akc^7$Rdf$A*EA~Dz@P309h*h-6KO&F z-G!3v?wu0!{n$Gt81t8)d~scbTX5P%EbwG5-YK!T&eNP}=b=wNf3ZRp0x$Wq1b@b7 z@wKA_r~GOQ)}?;|lEv<5y{wc{o>7amjji+_t`)ygP0PiK_||45gfxS-eolYEr+rJK zU8m_U_!L;_Dc@3q`{c!nv(z&fuH`jY&AIkYNs#t(4=jY<`|?f+xmog7Eu711^l&i0 zS%PDmKST2++Ky7E{iASaaUWUwlUn&nMn$6iFl36u@MifKFR&lFSfMi>LU$eDG&&7%$*~4yuaa((ZPVuIt-9<~g3;H@Y zK13KrmOd!7UbBg+Xq{*}hZ9X_bt0>0Bi`%4@)+etIJIatz<;Inb^7ypo%XVQ9sT{( zK9uUDwQz5$p#@!gu|i=ipA+p_1J1RY78It4Xa#}cAoQLU;2ec>3|0`b z{pAsH@ARW9jQ5uN@h9yVFM4JPZf{%+w-(!C`aau2+@@K8+gg{*iMG$D+&pAyty<`% zw^waMzsv>OHV3WXqLFR(#fk*!Y-sbSY0f?iiN;yb=XqvctdPzy%1}97Uh*oVGHI2O z!DGWORtVvPez77l?qKpyM#Hvn=#BRVw8bU`cO$Wm1N`l3Id;m%r9lijEC5%Z8&}s_ThBxaXQ$xVQ3)NFzPxp6s#0c zw0j6xdm30HqG-=xu&zO1(-2|Z^h4is7-6*-VKvbhWpR^Y$SNFoOSOHc2fztE;ihm> z%u5E_)nT~RVz|{rW5~s+CH%6KvlYIZ{?A5hYDxNL>_7FTfJ-`Ckr1~zynyg`dQV`z zIzf3R?;#`;*iM59*WTEd&r6oS#wUDmt|0obf1g`?|L}%NU*=AwHi4N{Y2ME~ zm3xz|hh+E0V3l*|0ilYMEvfV?6b50p%fSrU@e)q-PXeI5e7#40AGpw8BK-KymxxFa zeu*ep1mz`cU2}=Z`p*_{;8n7m*_}Aujya-G89e82&SCgvbQ?0}D)GZnUCZWhCzs8^ z+M+;)^$BEThvBfga*mi|SI$xJ<3&%2fjfE0+neA3s+R-C264X*7%SqwrJB)`G}=QW z>hjGkqtRpX~Hg!VMYzW^7pQ zD;l6Bo4qq_Wi#WZm0(YGd9p7F?B+{gM8k$XbM~(B?N}EesxIos2rD1_8ybt>z56ll z0OxdpcovX7wrJWgIU&GV@#f@|>8x``XHtdjiZN-2^8I)5+x4VM%2IQ#bnk5s2M9r@Mxhn*=MwHfDK2} z)J`^}c&}dMtyFW8)r)-9F`h231oR9Ns?4DTd~C3Z2YY@RzQ}2BcG|9 zN8F5zU2{w5UsF4Q?^{3+BrBQtIg$2`e1VX#m&UH$u)9}qHsX~3MmH^?)g zcB$VpoLJ!dO!!u{56QLePk#DlHIDdOUM(af{W^(=?Th6U{Y2cIej>4Ae?O5tq2dO| z)x+ zMGg_AF!{^;M=q14iG1WeYL{_+)XO`mjZeDHk9hL^aP0H%oEIqSyg)_d^E-(GOT0va zUm33CSLTNL3D!VoUBiPGypjxJ(w2vtA2C>MktO@lo+3-F{$GxJo0i9@jmJ8R`D3}8 zmbbU>mkkq6Q>S4gFK)&#VTEkR3Zcd)vjWGct?*Zm|G8#GA$7E0xN5}|b{5;tb+)V! z_kSEm-^6HQcekDtbY(KB9AKEVF z#F6bc`1*8+WBK~wk?r5}^_d-U_A5~i7;SxCu7r~yr>1^ntPpQ)kK*e`ccc`=3OPJ_ zj&f0Cd&Xkcx#XB25IJM&No2dOo}rZBzy10WNqYny5OCH2@3&xs4ZdIXNs;X(S_R6_ zZ$w@G$&u~T2eRn|gSP!?iequGPoJ%o;#z*T;?B8pyW@y|>gi8^&Ki9ZFyysJ9N=>h1XZ zW5Yx&t1y(o<*R<>iy+kpPP1VuT>D1;3_<@sTd_{0p~X;f33+D0;8Q=qvemn9!&$>@ zESfjW?E^__>{d~;VF6t942xi;svo$kJs5h%!%Ln*V($gXpk3|WJvW;T%i%RP0t2aj zFgyTLzuMetaKP!#uqFngH004Ym<{W&aAPza+v;4|@vR%CENc|B+g1i>$;&z^cG-0H?)wMTu( z`_LHYZ-*ogkAS1z-fFz$1o)91OZT0O`ru%A7{Z;gel)@utkPds^Oo8034X41@M)|s zKp2a)_D&O{J_gNqA^aNa$F1KYHXBaDsqw8tV2coJi?;~OhUQ%m{S9_J!i2Idg0qG% zuv47jE2#17ONzFLXBf`k0)H`DATO1_8NBV_%iv=sMt-Gk9|kK$o>;Rjhi1x|PC;dJ+{S|D#*Eu8*K zGKAA~^o5L-VR>tU)_(H-EfMC0_ohDlPm zHP+90w?Ue^T`sHgD#E@XZ2es3%^2a@91HUid0**rpEKf=oNa@&(yMw`@iZ5%VOftClBf4aQF9 z+sL_)CoyZ~JUmQewySj*4w)+;UBr{HEf89EZ7I@yfTBm97ITYnFiLRuK8!rFGIDz4 zdSqJyiLqxkPxfL91)~AWkv1_r5qUSm0%_=h&R7VE;1?n^z5nT%hB)_#GYxuc-kAn% zTkePk-j#c%p}V#^3&P|KM9grcG^Rs6Zc7(_bt!U~@L930aVYT0&;cY-GXydga33>i zD37dz!72t_B}%N2O0*56i38Q7pF0&4KLEG-DiWR*%N{iZabG=ZAcl4Rcw`dfT1V0r zXwfMNm2n9!XDzN6A-ouECd4|aNhCBzLu|1b5$mMb(>F3o_-=86%OLDkj6K-X4A9Fm z1|){-nMn9DdUUzilw-UC9~+~N-pObYYa2E2WwdEfAibKFj{|GxC>u^$I0E!?g;BN( zWxGT`Ll%nrTCjO+4Ysgei>;Czj~Zm&B0ugjsz7#s{ZEHk1e`{k?Lr5b$`>gLZH7IsAHH0E4-=!+4cbgixcS7pr*vZb13u|i7 zaIU6?7}d6>26h`=J+!r{L9J?NYEZoi$(y-EaKQz~EXC&H2D)@;Gu20KYHHBe3m~kA znx>xWBkRCn14>|RM2Vgal-&SCY~9e*-~-*1KX&gC^VoL5mr z**vO!oCkIDD^EHwbD?gY3%%4F=%8BnxOh9XW@_au3ae*QWy?(HXP`S%&VYW#ID@LC z{#%I#MVe{~3WpGiKvif81a2}_H=m{zE}=@e@emh7jG$H(AzvZXYsXzC*El?REY&@Z zh3>Hc4t=hC)Fz**9`m7Xh9@426)XnpXlR>9LGd_JFt**VsR6b0rIqTWgm0g&H3!|C z)1h^|Pb*6GV@b4Mlb~~iADyxbQDt4? zL!qMan#*LfpqSlI?gUf~K@|_WD`*6j88iaV3qtB;9i3Z3>uREPjY1j%XQ0oHMCJ$x z5JGjJwWyGmcB=-A8VPDxQEH?+%P<_?zmLk#XZ%k)VeQit(Nzi zpsnBMd7tO~{qf`TnPKjG=FFLM=A4t6d%5nw*C5m{k%?aBFJ@oTfF5L8k?Vbuzc@(p z8(JZ;zk%k3&{m6#N{pov49W|XNeaO^+74lRzIIe!{%d*lDUwOmXIEfT6ET85Oc_A z=8%`R2!d2I1gS_eB*`q4kz`2X8Kln{5UQfU!eWnHZmw{BkR(UAUNj9#qG`hQa>-QT zdP$aWy>JR19m^EqdT}OsZ!@7J%6RImo=jJXg_Fs9I~gj2bWq&Q7L6et8iR=~M3^~^ z_E_PVe@K)H9LXOH1V>W2!XHjfkflm2OD&?Pr52VRdz?toxBdEggT%NLw`$OFJitpW zGBY6tv=E<~`_nzvlOF^(yOCjVdlV-TtP}Qh2Na9hlyLlO?nZtgT9J0cn9v#vaVD&> zgs{sy+uHR%Wo)bV@AHQz`Skd8<50~ZO!9@ zwau&egvmbtHJ5vzTu3uZq%A~*(&IisyCXuG#$TEx`L(Oq(`os&TsHTY1_{?I^De~? z;)r`ef}+i@jc_t&kNC2Ht>ljQawI}UU=NqQW*=MWNTeuEeQV>`O6PQH1mnV8zn87# zm3#&Fvr5;Jub#>oELjsbVbSE4{#98wVWoTGR}sR>RwKUpbdv^q5iN8G!b*>~UkavQ zEJ<8ELb#&ClUkl!+Z9J)FdBy z9Er)>v)XZb;fl~tD3sgw z@N;magcDcW+)U{;uOK^O(&B1cpbReKN|@2fUp0HZH?j*yEbaqT^C12{2O)oNE%ycO z5GkzmX^D8}fjH7>{Si7g7~yM!fl64*7XbY^aW&2%yHYz*`IX0&TB+blZ8z+^;bP~% z%Lfa4&!5lNsw&%@uiYR1!Nso9_jK)HWu;&DCBk;cYWYWM8`w(bNG&$vm2wdJN`-TE z4S#>_8OTTX+u5r9wGGP3wzQL=y`d5ZpvJ%D0QHgDv+_!f0#Tz6)LvyP0}j+;H(sed zP6%yU&F(*nY1A)s7LU1!dSCA~83@@$Ikfd&qx`RNs^EI(;kSnGy{1(= zC#egwM(B#Fp$Jo#L{=P*4_cRT&OCGaP#w zz=SJ_uiTMUdjE@U;1`EYQ>DrtpUS)aBXraVfz2}PnJU}11gP@v(xt85{|0RKhVKN| zKONibJ7{+Y8=++jz)`nEsPgW=?hC#DeQd5uHiN7A2Q*y%5RZD|Iq(8#i-X+%*?4;G zv#&q`9lQlIyw7UA|Emi4&%FdU5SZZx^hrR&2_%X?Vi5`}bs3cRQ~}1^jE&ifd*EOP z+5#G$zFNSQ*9y1*4aeS+fQD-e(lpd+z!hp71!x&kWpM(NHUr|sdEn|)o*qorjv4;@ zm#bUtL_0nQtN=<9+IO|<+?Agi^60rM0lCo41jvP7CqyWwgANbnWYd=&H3z0#$`)rP zm_A@GB$$A?kYEyNJu=j`Nq#1^B^^{0C_0_|;--Nzfg+#_YTE=H_#Sg1!9?*BR(dmQ z6IKG_$75ZbcpNI5ejzq2fJMNb znDPG!Yk}*R5n*^vt%Dv2>s$bR;~w~b47c!jEEXXpsViZn zbM5h1F%TD&rHuf2GBiFO>;Dhpg5>hjvEobj#(n@?xHtA6z=eC*g4+QX?u`ZD0-6xO zh0eA!7@qhikWt7!04{(uodT&iMQTrgEJYS!IDy4G0r|$gV2_|mr~U|WVO=(~kq5S? z{f~$X;vb1A$NwkDg%I-&-0Is~&}Y%QYz?z*=1TXEAs5J!j2-Aj!ejk|yP&MEf!guE z0xxWz;Cyez|Bt{6Y#H^qgwM2}yRsGkafzIni*f!xu@}~51AAdzwjFyxJOkQlMd7+^ zJNSayT!5#-kPq@>^aYUb(HGWb1ASp#wz~xPg1@iK3%J~`OI*;QZ3-H_2Vhv2joabx zvo0HU5B~*)0WFQAaO(dn3Imz4|AxXq20Ije*9{>;g&`mnu^`{WFn~0~fNVl!0pKu@ z?gxQhwsr$aAQ{vOlG(a~{1}q~B*A3R89T4b_7>kO;p0j}di#aX#+xbvh?77;K5hirHd zD?}%1HNrtbx9Y?p@s)bnBrUN7#Sm(3;t28Y1FnP0246J_z}WbwG0jq3$ z-Y^IL(m{2Q^M>$y0sqh(AdhKOx4M2~Pl4gb_>V#HZ+^V?s>2P>>MQ zMw}3nXh(h?7emho_Q0}YN6xqyQIBykt<%QEFg?e`91-?P?#CpLi@D779!EeQ`izS? z%k&)=bCHR((@~&>{Q%xIZd}X-roWvxU|h^OX5hG(+sq))Ax!kRm|Na4=rD!w2HSbD z;0cE$@j_F1j&lY4WPm~pOD2tnhrhh3tQ=9nA-H|+y1f5<=g)Q_42!~EDNojGc)FA@xkno=(fDWSrsdk=HVZ_U5pfUTF z#&QIqrLiP2y-H&p1!2m;f-t{WrZ*wFpazNQQyS|ehya1a^d&@35Ix~97fG5$fk0xA zoCE_wATj+)W1R(qK_D^xNwYW*NX!6IGYSL}gQm`cM8t1S1Tly-OF`_J6cEv+u`U7= znwg}rObj6=fyh7&dUO;_1%V`sEsf>fq>`p%UFe^;p`b5x1dd~4rL%5Rf*CX?bq3TJ zmBZe{EGLpIcbs?7OK{=AqGb!&K8(!%Bzf1!*12jOD322!}d?e7t{%!DrqudAgcMz|%Mokk~Zgto^2 z`)RabY&0bRSc8KO2nkH*#ZQB~a$JY14P68mR85^nH?o~Mi=TE>c0?`?(_c{29rPEJ zb?vk9ThX47?Fbp#0I&7Xr{~oQJ;-`2_S9yQ8A3odVX>#Skjxkak_X$q2&)b!0rIm3 zj8YA(@eLX<2z0Z>3%wde`U@(a2!?z@LU|I(6EY`({({EBztSk=qYs+TNgKpST3uZar3 zMsVw|Kw5kS#AQNUf>H7%*P&sGi*{fC3lJ7x*bpz5oP)3bS-Y?QSt3Gh*bpy1LtMYl z5Fy)78{#FWH^hsO0#DORBPAz6AO)TTp{_?Js^1XL)Vl)t;m~1n#WrhJqO#OVT>Y)6 zW+eMDfPJxv$~ssA2O9UrCaUQl3Au;ZZ0->zsujCq6IJ!QAX40gt2FFHWz!CnEF?2- z2g%z`W_TN}4>SA&vAzF+%q`tN`>ehtm-IT3ChiGG3T;m~QuLrV9rrh&u}W*e z>(m_zLQ4dA1ejV)BMY~FO2|(^Dv*WSx)8DpF4oWmheh1^1bIT3F%18dyfA14tsPLr ziyNj;B92vNn~Et`(}h<(VeRZ8q9 zrGPZ?CdWuf=UNHYOyQ}#O~=)($rxIL>})4RgcM;jqaY=sI3-1T%EitD93h1o;0U#3og>~Oqhq9}$l-y2n(Zv&&UQu&Cr=3{ z(o;y22Y?1afoR?YP_yRP6t(g1*c27-?*<<8E;hvhIMDn^Pj@Elz*BdO7(EI9B+vVw z)ND6EdYnG+6p$7Gw^kc}A$rnZf@s;@njrwSo(-eQJ9z4Uc1;%BiV~GkMEgM7fE~?9 zZgoo*-vF=l2C>Gy0iO6e$hvD}k$$ZxFQr1lDGn=bDjqO)8MxFEg+ zig#)E5Y~FJD3N78J@6Dx2xntcV5j^OHNsh`{Rtk>w$pz!%Ec$gjtaA$08?c;ahn%- z0#_JWC3oWJ3ZohuK~Lck@-7^PY#kdyPvIf*wjTPUkz)5#nZJZH z?`}VZJ^mi@LhOcMdAD7nzWg@sgKa&rOWXi=0e;OBNwnrV-BL1+?g4mRBb1AM%REo!TK6yvxk*l0X z-VtQs))GRN$n8;X+yhg!$#h_9t3MhUb8Lz?zv>sSkc--yL_BAr87~D?Hq9NB%32F! zVW7=U(nSIVA&pqhP9R(Q3B+=C0#0a4B_~Y92~){?l0x2-aYU~&j?B?m@{%Cpk&0&o z7DN)7suRf=63ItD;g3f37*O1Hshw$3P>*V%0u`f3&+&u`PlXOMHih3Vv2DnWV8C04 zB(`D?4gI4rKpY#JBB~pk${GjbRFddF8pVTRQP(@B`3 zHuOVf6EP^Tkjxl~N?s(@Z>HV6xKC^f6`0EDGt(_Lg?C)b$9ob|&ThIz;~YM*DP(^Z zo8s^F2w{r+k`SiIhgke}dkTo^eB7f??Hja`Py%kP0Is##rX@E?OKy^uY~?h>m{@~g z!5R`QINMDOP-|r!fCZFBe*g)@rZ9Lt?LY!XAPlGtKo?LpDR3bc0&Q&sxPX!eBz+}8 z7;wO)nf-7vT0d;IY`!fBdzLofM706J9*vUPia{$)$kYmCi50LhSmb@1gY6by^e*XH zIGlXEZ$~5i?4mZe-CYsH)2ch=&T`#- zzH_GAUUr8$ZAdE9bN)pK)?>?{@3;)N@S=o&;=AoFSk;?}(cemv%_W&B_o5Sj>6l0S zgQ;7X;RjQJR{iL&gQ+{1G?d>lS;)7sD}LYU*i5m(uXj4`U^l!1@s{2E0{^zMm!9RP zLxse7YX4W>H$R=rMm|0+;6`_UYzM9G%v>tUPiK^2EctGZQ;MxUS+Ge2kkWu2QzP~ zsvJkS^LJ%lVXK^W*}2ZUGH+_CT$t&~DhV?kW62VyAI*%OB&?i#G?VeoIGX8|c{H=l zl#e6tV62gP)yCb}&H`JmGW%%eAZmLi_oqx{d(Kap=%d+@Ee@IkJ3-aPH-{y|hojN7 zqnX0d$1`bk${x+!99`62>U!lM&-pZI@6u!O0I9?2OzipEF3?`c6nY>Dkc1a9$v)4g zHWPjQuoc@6IhV<)&2-SKwjIXl|3=T#?c^R9qfzTKymMMWeO zRp-@cGb0_&_`bCKGK{h)Uz(X&o9T2$bq%{H)s42Op9Na4vcY68u@{`jDU7OK^~)(# z--n{EipD8O3?BJI3O0IBiBxfFGkN~B{7E2&g-5fBn*l%jMf9E*PjSpEY~rdM(BdjB z{}X0hqsD@E1dZ@J?|R{gBG67#D7V^7IoB0BkD;KQKLp>2%8)yE0~7j;DwhwzcWy&N zgBYWV_gSWs+!G4GWh+3r0>3)>edwLm3&Dh$U6nhSDept?v|a$_2{1jt98W^; zoSd>lifBdtGUzC(1fL=FPW@ClgM0HCZgG_mN#sv;;qu!3l@VeQ{FR|n@aJVvTY3Vw zF@rUG{FQ;YJ8pkvsO3D=*_^YX1L`Hjzd(aCxHd;{OC2@olo#b#HpB^39aohu;mR__ zoWC;K*VCM`AtO<7Rl*KL@t5Oaf(vYZ@GwDbxc@Lg)pQTL zwtIy7g;00#i*|QWg4%rNPJ&W<2ft{xpYJ4KYjqnxY1UhJ5>%#JaHvH=ZM$(Np?&EM zdeIP9Q1o>iPO*4tu+`x=f83@jOIdVW|V(Xu0HlL=WL= zEOiJF5((*{`U1CuYzGk5!yeM(e^~V}RddoQmT#lCJn`Ej3z%BT-Zo-k_(!n`2L59Uu% zqRZ65u{t>oKd|Oah{6&#k+sZjaje#5HmK>za5J^0qsCNyE>M92)L^g$TXoJs4-Y_i zM~muKonwvgkVZJ7RQOe=fYmhPT%cv#*N$pqGPZZTWUOsI7;1?Tv{t2Uhs``JwZwWt=wbTBM!Jz#&Kv@5lQsmC z9!%`Bbg=yjgn^$4K#Mv>APxw?ZoV`C3p)dhxFj&*5~;C2MIyFbb~`TEa*0*wr3uDd zjPkDxJpC}*3X;fB55zPENiOlm0TLLw?U<;u0y9n08s%qaHP-itY1~I=HMaMNY0kf# zbs+0`sG{tG6$PKxr3JDn-pS)|liaX@Z*s-EZgC}ZjEFsvZVi$@5U}U97l%t``1RBg z)T(nZ19L`xz(w*RV+5B>@bgjQFu_kVMo6B3Gvl1j@)+eu86$*%RtU8IHfkKe5=V_w zYLNxneg$c10vXlx*@(_`6H!Io2Wh(h*@y_meY+}ZQXBj9{;W$wyxCi5p(GhgGDdP^ zQIh&PO2TW{GMTTTB)-}*!D>q*2{(I%R9?ZuZM#fX@s|jBiA?b&Y-C7$Tj2$4bd49N z1LDpH8j$mKX#q^|iwyTL^C{v#sXc`^{A8B|sOFBm$Y@X-c43W5?*yD#UEaAs^SPiyD@x^+R|4J}br7Q7@ zuhgZfZ8f?yRcQ^r!8OoA(bc*%WnC5d(2-1039=p*ooX}549h__!J;$7vJB_y`I#;) zf^}@G!)tD>K$WQi8es)Wcm`Ja>(UTOv;dcH$Op=o<(v!7X2`|anx^Ay)3Jv!=U@+` z%^_d>X&9c`Moc=bSzwy7@FiAck@01ssWF!YZ4AHC+gB%woD{LGmk;Nb`11P zw$Trvq#p$`Y80-TCYd!JqzQJOY6Zz`aUe_MFmeM*5$s;AF0DW78)&~3a9&iIqTvdO z0`A27NIYH1o#=uGq3JX}W1X>AF?@oCO`Y0OKAmuWW5?gH+3%Q5GvW5(b-;GS(jME9 zsP^Pn2_>~P6r?E>SE~rc5jF&AhuWM(PDM#ghk&dLCXrKvK`Mek*6VN^%*fi?qwe5o z^<@vKL9&NbI>hO8h@|+EG!7$=q#QcYv(I&EIUbw97H^`Q5odlArDKzM zgnh{A{zQRu>vQZJhst!m#KZF(|NDtX<_g)i5Z^6+pN@{q=Y*P1vZ*8+L$ZD(vwQT( zNy!Zv``YgMcas#4{+)sSPF(sH_T=05mSoJ>xb&Uutv6q$VrO&z4^8qvzI}|F^gKND zI%C)1UdP7of|9DM zu&Q;`#C>d)INb#EvMNcs=~NP&@q|_0-%ij+J9Oc(m&A0# zGE7^`{zYu0H)HG`HiQq9@DuLqo>wJ4H|74>vin zRc(fwf&^IVCT5~j-{Gcoq1SK|(|Wkc?oOp*ys^mr=D=W+s>*+`$!E-96I-PoY&xv0 z(lBF~p{=i8Vygn8O)%N2(ngyaBB}zNTVFlTR_O-Wc|n6r4a%xusJ({S*&+SxY_^~2 ztgRgADo9%=Fms!~K^sLDuFP?hRq%~zzUIZDm|%`0&ouG8P+YI7d@ zS(`}2mtnr%BT0nkNR`^->I@+-(j;`{nA*8X-3=y*hrvV;&ONSL^(xg^9J~hYG!spZ za?NB=UxNxDR4^tn5gXbnt;bbIy(+X1$oU`x?PORQb|O$>={&AtKh%Yo%H^Xn$X*#S z4&=8WgFUWdU(yqXOa!OCD#YG6YAAen8#BOO??H+^Sm$E2^be zPsI*HH4VFys;OySy|L|B#NoW8roRL?uN}C3kotnX98UT(yxUUZwU=FJ47Khgj&H}*}Fmt|uo2t`)az{!+!N9IJqlD=HQ zlC7qpgTRYMqrC`9x_lq(C2xZfbFWb|fA;-Gc&`hVhjNmaV;fpE_{qDX}v`L2Z>23UVm1e0igqW^hQI zAG$F5H8sMfrVV~44Kg%o^1;r?2L~9XXu^}?r@`vo)EEx5n}mTvNmFBIn;0c=Yt%*| z>rA&MqzI%5S%gBwd2AY+SnI(Vdb^NA@k54){oOd-qEw}BJu+A~PRI~O%|i|?S+^)< zy)z6K24CZ$l@srS`!Dj?Q*JCqZ&ACxN>mgSGv#&qVp(g)&Q|{VpTI zb_XRt0N~(&+eE`a}s1ol4~emMH$Jz5w)tO zD>(_wm8M3liZA3O1WC@~WEB~#r6DIlF8K*ZoJMD-(X;gwh?5{r!XLtV0z^Ifs)uvH zag>jt;ux7`WE$&{mQEB$Fv%K&6?F&593N=8M*6#bCh@mWVwt{$M(bM;8wjzXEhX6y zK3)tPd{N!z4A%HHQD_<0k@;OqwmiEtbe6Bsx|ZyCYRUAjAv+$+*H~&=_L+QE!+XK< z&S5-C2by)2e+YW)-=>+A0DdWrcD~X<81a00l~nTJafL+LnM>x&(_014?S! zB0?_0UeB;-0#>O+IaXJWymgHTw#i6_G~z&r_O)K0= z4H$DXKS(?>HABT43EzPDoB47{+|7LP@YD=t)No8JJsi|fEd5PWu4xoQfwMA%29io$ zEN0Re`=hh}V33sQnyA@y4bOF$IU2M`do&}=21VL9$D8>~|0TCNvSYkgWWdV)l@$M) zQ`kvu@P8rjmh9ZM4B?Ie$`Sq#^9x;(!M8SsvKLkM+DZPTHii8~ga2FEjaoamw~lbf zu-k(1etdjYtBA7Wq@3@HY3Kk zUJ2f)lT(h$qNKDPhGEGLI-1o@@SQnS)>a&Dt`mD@qF^`M7 zz$|8BVAc`O^iyMJRkz|f*jeY8Nr71q)=m!0I?HA_2WDMhGVP2hU;icS(%83VEy-?0H%UdaJjZN`1<^c|1|VXp5J ztO}{HNlY5ZJk~NU3&LC9C$G0i60>mwCkAA3nJ$^v{@|jw1zM@Q=^Bp{kcBb2Qmv`~ zC8&yCE)}c=S@2|{t(Vm`9T*9*SOhk8# ze9aVb;S>r8s9%B8+X+EqV$fv9;cMQD`f>D36ui5sR@c2}9=>MxwjPLkF#-$2YAQa9 zS4qo<1Y(JX*{G&*5*sau%Wdn z;PHYHXc!hmH@b0lF@y?u*e-N*HHuJB9!N%>$?}iqH1|?Ajli#qWrS)f zqp=KUr}z&8Q>7h-Mbl8#)G*5s(k2R4t)I|CI1gjg*1OCsH+4r&jdAdFy+h$zporL~3(SjK$akEqOig<7zd4GS7t;Rw6fm2EhRI9Fo0+huXdDKKp4@AcPKZ|>b2TY zf?ARGP;P`xh$$Nzk?g@K8y=`OyG;P*I$^tl#yZOd0=xJJq9}Au$3M_mAi(326QXQ| z8>fgH$w9rw2ER*g`~!&r33Z~n_y?@98S^GFgVKVsy|K^Qzb(GUa6h#E27_xkTG<3g zOU4ra0HSVi%q>R;+HQU`o-jmF@ecy&8{do%w_a;GWuW33C|l!u%Fu|0^oJ2#wolQy zf=N1wBL0E0{!H9>23^WYzvPS}9=fxhESU7+L~0wtc86P!zrP$Dgt;Nt+|oYWa0E5N z!$kgdxL^`XSqmn0 z&Nv^cL`?;`|Lsb3HbgbB-|_ed_B(EcFdt`^VJI3K%os=+2mgDGRh~ES7=A{sk#4ze z#z-y^8M$ax{ld0RWB@2D>lbXI{~g(U``mrF4{GaNIn{C>X63TBV$U1>KXk|%XWK7I zW1Xa%N(P4s)!8QgQ`Xo_07HeSp4He5GQWK1z)a2!}pc>7|E2Fb%@vfk3e^(CWYOD~)<6V&{4&|zCZSl&Mg22%q z-qr}C68*tR*>+vd-T^X`T{w>;7$fN#8F`mg^$^UHQJ}1>_agHL!axQg#QfnrMo;^B zG*-kjA?L?fSepj{fmBU`wB9{rqe?XiPUEDmuBCTeY45+X8r0U`A)!ZqVONd2FaZMuV0$qKK|1D`XcK;zcdeCWPRw8wcUG>#WLGoWXYN2L%EpPmV3p} zn_7qPRv&~ikG;sPdMb^}Iw@PJsuPSX-^ zT^y!rItk3OL%F!%R;KF>^%d2J8ndMVJePbZ}WGI%lrApeIi>&Abt zSJebLJee9JhQz}FtaW&IKMW68$NvFvcs|`*RPrJV_=e}xsWa*S;v1g9^4fkw%q@qq zwl6UPwQW^I?uUCMqj44ss-y59Wwo^m1jbFC3bkzoh*A)Smf8=qOfk3=DSx%riy7!P zm2yF?x#biQwsHzLC7S(3e<=6NhvSrWc`!ROwsfMZdoQCWwaTVxa~!?NhZE&1@Ps-_{SCxpt_>8TyG zP(mNeRn>(DP~2m={4K>k&c`s~W4Kf8@QZIj_)m%P7)E&vKeu{F`pqmP{aO|cLqJ)A zK}7|FLP2fS5p{uXOR)rn|AZ^Np#BH0a2kS>5V*nv>c9UlaD`0m{#3Jf4mpqz1B<@OaMIP*Qr~-Jb$_o@7oeKgQ0#E1#d_15#xN{7{ z=szpMuRWbhaoC>js$4$n=d=@$g}j|q8|T%nm^;b69F$+U?xdJU=X0gpad124@z3X) zTj0z74U|$sWc_wTzfq*rhh(87lacKA+FS?b7AYOWx@a478ad63+mpMKv7z{mX|l6h z4SoP=|0knJlQAg2V^Wakxx)4Q3S7@ipFsM*lHK-bVm|&^VX zEsu5R{&T)V1jihimCrfAlmMoPnTKslwa8^!NKyMU4`;xOdl2B=;LGOFF#$Mkx&)6+ zZTO3&tr8y#=|7$wEXgdp8UGp|A@I#kRPOH;vlhR7Q{Yk-mGVQucG|s z6b<#k{Q@VpT717iCm&UWb3I32lKTbejJNQy1AV`M;IH`_C`#)4==jeCs%p*81$raT zS@@W9uYj!%xL0skS*;ywV&VjkFR|5u_X?mjsMg&pXo#o|a=uq^o~;gU;e~*wtVW+$&jw}-D1mQH-YnlC>8K0>srQY8 z=!I;-gL#G6y^n#+JrVod>JWRSF%slrkSwpzN$;DI1#%Ney}j{7f*@4{GIZ=?)MliE z+zqmwot%pOYBUrO)ngyyGwcti<|Mj zUO>~>0|m0Gc2A^_%#`5bs@Z~zPyA?)C$h!ZtG@{4>}dQIS9UE34ToZ{{w|N+bPGZg zUz-}7VS}m8^KP4sPXg#7?9^?5+Vj2B0TsgmhcI*q)bJc|$m9`2y^-4mm zAk+%%)R(u-mn=J#L$IPE6w5fvhBA_+r*b4qPUVOeLkheY@rx)tf7IS)`D$1Oj!ao zS5arf4DiH-kO9|u6={qGL51pkaJXJY_JHT%=3G$1Tx`m1)3MgfArvuHP~@Z+c7c@w zjCM>}0Cmc0xk_^)pt=kR;5Ll`aMu_@jV9D6Y#l~%aAw0uqI!sjsYg5k?y|(et_L9- zm0Ad-18u_q)nyq9!=5O(bO5&=q!r;CRi;??A|Dhqwix#!5t2^~s_1A`)eUklVg`}R zy%R+)m+m_OHb{K{+GXsMUdTv{m)}Sfm*0r$-HT-Af6E$kcWej1Z*nh^Sina+5%2OF zjTNCA!B=XbtctL8#+ds_=r%>7x;8}-#&D4E;m}wC5#u1bq8Y%9AK!lj{W zp@M(;O^^hKw6K@0%)!!n>B<~(-J+<=Z#V;r0A@xG13}IgZY?Lf|I2UG3g|t;ZDlPK zIpc@nu*TB6W*u{5K%u+ZTmq}L5k)NsX43`~HhkRBK5q0$uE9PT=tR^MP{dd+zrp4a z=OA%F$jEfI3IB{jh9flA6#F1#3N*68+D%l7+hF*340dJ5FN%fpxG9J-i2qyJR~_u!@^Hc(!@lc; z|0~&zoxO_sv#q+=>(+K9bt$ZG1pZTOXm_t7J@s}L9;a2@Br{oWqS%A+@G1&m@KmiN zrGHf%3cHG2rM!6W6h5KQrRJwj(|Q3%rpzbL=XQQIW+^d5n%MKFf@WEDrg>_ZN6Y`raRl zFKo=8ekuL`=Jzc=t@pj(0pIwfWWU4#&0xgoeVan?Z6ASFNmz@maOqpzykGCTV=h)& z>wao}ruVJBj^f)PCCyV=k2dea-lg%^7dtb?^~E}Q{PFe0RONVP?E2z#q0jnaMge+t zmT~gWDgG*ylIn*#p# z#SP5#?~9?($o;V&C)dYp@!6L-9>z4Gh{719+V5j30`xvNhZv>{SjwkSfRFPW*4k0Z!l8xz67Z zuFG&Iy_V-#Ct~DVi>Hc{w-!f_6IQ2eEoOXEw-$Si-&)*eg7hO7=B>q0gUIFt;fA{V zGT9*W*!|;XLJcCDleAMp@n$m9wia`lK3j`Zg-%O~+wr8Xdy0kbNFIBNC4xQ0{H?`& zWl?*e)P5ASzN1zuY^mx&^d>E>g=j4VTjFJ}613Au(Z>gF%X&_X-ZmBsKnR6MUNF3t z1OgB@kn)rUBG#Qu>g|kJcQ=a}&COyAa-I*CQzJ3+IX8&^V)%nPETCM(hsaN27A)&0?2DMS9r}eZVLNW7f@L-gZj94J(trUs1xE>Spgz zON-^QJ^dXk_h30xLj!3C2dRqnvi(WG+1UUdrv+yxz~lo{`9lkFD3)|Ji<_lW+S2lR zEL2yl1noe*N7=bb%TMF!UV(*jjU!A+0J9^V1rzzR>!7)~3+BvbX(^3ZXIN}5+Yb7@ ziM;nB4bFOPHIRm|_^W}Ur+n!=EnQhf@3@7vjLaqgmxs03ms$idtHQxQgW>kUOg@Tw zNj1UJMfMOY#hO+~9{!Z~#z}MZvL_x`h{b>-z|lJf!d&GAoU&!Fu-L1CDx*e3j7ieD z@;`^8)74;LQfgY0RiK&{yxU1-yu%{6MuIyn;7XJ+TrAXT_E26@v^c-Kww!Iw$z>T+W zrm}{&2_+qs%0ClIG`C+*&X&BIoGn6J z$CI;#kFcmRK1wKomZwRauhcdXEzg6561$e?k~m*YUlix7>MmgIc!5yo33U!O1m_Os zsSRgwNK*sR@-*z51?!D{v&5&-Kzkai$5S9qqCV;*TtVrRoZ-ppdSs&deX{~dL2_*0 zED=)RF+v;#ab({t=14*bR#XQPN_1h0eVlzml=XXIIAPwKPy*e~o`jMx<8H#`?S>7p zbr(l%67M9+ot;qb>_{l|-_H4NjL4)eQ!BQ^aDd)M$U1eI#<&%#oh_i0O;|Uxmdyzz zT@VGGED^uMGV;5Y3#M0M;b^TPi_01;BT;~~j|i!K%05+8aWDba6=a>{SH>z(fJyH% zEF(X|GO}(d>>7+qx6cwU0X%5EvP@@Q3}O*kbXIJi|~@=Wd@BB%Xr>q;?J#khY@jxS6wI6b>I}5t0n4#l;zxFf@FfiHkGWuS}!Be-itg zlnwYV$%Tpp8a&oG-9DvLVH>WUN~Sc+euWxC60EKhVf<2;085wz5Mu}dpJ&Nv_;!zi z%|{a?d#q(7Y}CagUC0t~(e zF>g6O459o8rKNGeSSG5-ouWM}WY zH>)EXjM>C(g9o#!X&2^xmwoP!d{@$-q1PvriPxgSv=;9DYeCc!0%lynwKV443V$Av z1@n&oatTy_#GgmFioC~g=8-`6C;XgjeBVbl7r}p7_HktMN;F!5E|8ez_hu2}e=_e& z63T+a758Sf*H+MPviJ#Qa!DD^z2M#~6`~9|1umeUibeCi-Kc<8!ugnYdVVLjaO+&c zor`&gA`m)#Txw}CN(PeAb3oP=k+-^tO#TfOCSPryN#5<5DL%0;#_d% z5!D@Cpfj34OlToA#_`Y-rjqwNg}mQz>A@~I8O}Y#f=fFVGjGJqLo=w1N+Nq;l+;$} z1y!a5%sdJj+i1)@lFw*V(fCwA-Ct3{AQU3Y{6c1a7`gNz7;Jqk`DVwGYmdPYqQT-t z6KyB!)Pc=cHN+C#~8 zQo1qI$h&UnMLyg;@!{@iN26;6T;&EyD1hBqJpJU|Rlu7^985mlPG#K`0J57U){*_Z z4)cx1a)}ln?f~-P){qI;ptTy?|9ZG8>&*W6Ji&)Ygw6H`OlA>Wd1Tmdi{`OWBqJU@@Z`apETPHU3|*l}0R16(A)zZ2 zdf<8uC`ej?a3|C3PBe(QTDu0(pN-9i22t!nrW>aItj*az-Fs8CykoQ2ABI|6pN6245*4>?)#~Sb2zwWm}%5>q18>mte=N{&I zNEv>quXZz2uNOdjFKi?~)Wow#d>PUne1+7uOGM9a_vg6?y^+GBESx6FMB#Zd@#i7# zIY+3oMALs3y;DD-%b$sE@ew}lZeiAX;_G9ozd*611XWr|IC1AQZzoP3+q^jKo3>I1 z_qdXe{T8%r+Ki9==5Dhjeo!*P$49gY4*~pq0MCq97`{FBk3D>QB+w}ezabxc6iD<` z5t0mv1Wy$q$&e(7pGsnMOB^s)W;zVMR!pvS~Tqa|_9g%RhWn3oD&PuCQ#){kDDXRQq-q6#o7HsYQ=YOe123yFgN$`D z`mdivehMamG^CTkP6TP02-28F28*8=tBLeKfedy+TP!ojhm?H)o(nnMt-;X_JlEie zz*fm2Wg4|52`!_N;0;8h1Pqx39Bv&ArfD?JtUw70MnaB++EL+wXJ!PbQle%wfTH6- z)eR@Ni)4ynAnS($cg{RCq>LyZaf3xOHk2T`7nF|}qcWt7C?7-0{6lVZC(1`9bbmAg zo2lvsz*Puw&7ggp)`Q?0SU(|mt`l5^?7yEKi2@O7Ns-p6EW{RuftfoHbz%oRL+we# zG+QVlra{f9H0jCEiNetaJ)^QT1b4|mG>$YBjmo+pgh(?Y18@S!`aqCoWNHGOplk|2 z#54=C21HA%K(w^-5ClqSXIDWIECc1EUeG{x-0%Ee1Bqa16$qAA9)hq5?GP|c)i$K8 zJ*!gKbH9+XHY|r;$aM{&`*d}~RntuE;{^_ZU-;xK;JcR6ELSql*$t{e1Px=8z21~M z)7=*E0eryJK40MCaj%U3dV#md=k)@{@AU#X`qxrsUFIy9E zj@rj)r*rl*fkVro9IVj|EpO1(1Pv{39T{CtCzMC@cj_Kp&Xae<9zUiAyQ^T&xrqz3 z2p}F)enZfad79L51-Ky_I0Q&KrhJ(ElL-LtS_&Q;Q_gtBl;`okE&UH&Ublt8a_74q z6B&nY3!A6H`zJ^*J3SwgrLV<{o66ugcG}HIXg6DDaduK*NhJ;L)ExFK=LL`aid~9`L;U ztg>bxbbN(>uHe5Zzsd}HQx1FC=r`rJJY%5XdjZzq7lal2q8!M0aZaKc(Utta%CCA3 z)pPN`S<4Lj3pK-4OZd;rr})>jdtRPc(_UE9;d!}VP)*qLa#cIT+G$nOL8>kSURY1hlfHpBL?n>U{7nbRzuQsFI zsB-b(_gciiav@DRh*q%>F+J-?c~4iNRr9ytz5$n@^Lc70?^%KLQ5p9-1UrsCU=Jk# zee>3r%Xw=c)%gvaVX*A&4VlfNPs#a zngEZF!i2D;>~7rIw`e$q+;>^n*EsGq$ONQB zB4e7rSl-0}%t2rnk;a1AxQrG=oLel22;@qVamG9Tw7fSFJv+Nld%0dIINw7ju3i?k z7`!S@%yKhQG35=bb#$-j(}2 zwFg#OPYdD?E)m3U>`tK^MCWzcJmU(HDx|2LS~kSPhkRCM78CO+o~CK(+iIp0%K z-5fe;3M`;yQ{PnxauHW)UeXYITqPFW2&Qh~CQa*x!}AbVX+DHqx>ZFpDn7M+!ktmk z-q?w|acC^{jMs@<62o=`D?D^f2kuDM@T7L!l3}9IY>FxwCe&wBoy~gg-swGA?ohUO z|IqpnZtwnK<`C}Qq%cD;_g&Jzv4u&@BG5bp22fiAi3^C9&{{3gjRoKg{laN~ZtrMe zTL5_(+kye@Sh&>_EVTfcNN}AK$S0Hsp*-4B>Q>yQLH_RCPovwL+_@b%40mlRBX%7M zArTKuRhYDZ*B2V{XH^XHXNl_kmuZYI zUKRO2=e$c2HG#4`%bVr@6qHhn(86jP*6v}}$AmUL#^ylrct%ARjrCW@Iig>IQur&! ze(f6bWyd-GmpA}0Yq|(zgNu%HBp1-+Ja)V1(Im`pj)R>`)7b!uJ86 z05ygkknObN9Pufl06j(a0jJPJeFB;2gyWn*Qji=+Z%Bd132_X>QO7y#QFJ|)y<>Hp z6C~LW-af}U43b>(BhJ6aaSqpanGO~Tb0oX$WsP|!$~#)hmhFyn)Y~{%>2D*m4DEKf zc?%(--DYi@XH>ujHh7t+E_m7hA?rQBqPW_>;WJx+UCQpx;w}ryY=NOOD48sr1cJM!fUzYcmRQ&J4|!6IF~uZCH>OC6k1-|>CQ-iMSIH+7>_a(8tP6~?VrL#r5alFcdk|%Vrw1+EF;KoR z2!T3$P$L9Acle+No5=b9z8l)otXcyH#xR;PfocQ}JfL1H$2DO7)CfTcTBu7|PbvdM zg6`|1mSQy=j_`-)&0_Umm>CH;#`9(w^b{*2`h9n#aJx@Tt#_F1Y2s?nvbyKW(wJJv z3VvL@S=0Glm8tE%YF*HMfFCIM9-QO%zi-fdce_g6Ij~N!f4h3KUh@rlijD5UV~TJ= zR&W=&@7%63X5OLAdn#G8_4$2>dhR2Ui;zd&Dsw@KnQvt|NkD96TAoE(7!0Z_%8m0eV5Mm5%q^t7(lp# z3A4TfhVg$Wf=8I4_G?VyYVPvyy9YpfN<~A?^ORRS577`3sO4l@%eL1jZ+M9EhHVfF zQa3PW>ISCsRdknEncsJZnZf0W&3JimdU`F~zi8p@j&;zU@?SSFlu>-{21X6hQ4j)^ z8vVa+V7UERwXnUV6};!j<|v-oePlD_#Z)M`>&RxTH{5Y#GjG^_WV5;>vraU*&U038 z^|q|dR6ewo$_2O1+ni|L0+E-g^92ZqUchi*t)ap&Sq<1BXJTEVZ4-qNa0Vl|HvYal ziYu603!gXD(2hT^aN(E8*v1g9Ao|Pm*vvjNN|R)R-ZZI$d~qD2{Jpiyt>tnntOUvAqwDbbFuBI=a1& z`&^$4dTu(l_Q8<|ZKFf$qQ$@N5`rb6btQh^?eYty? ztw4|1PzTm23-ME~fTo2N|EBH~+&O2twducfy0z)L`@ig=+Vq*f>=6r7z9#|V?D60K zqfKA0{$&rha@p<+T;+3Z`YNhTU;S2{TbsUy@!rt!F znD6WYqw~hrx<|^W`74E}mwcE#E-a=I0_2o^N}jXJ#u-?e!2ErKk2rD`PPQ zdlCQSacb|}wV~dGSq|H$y&kno7kR8gO7;z33e zo2t=ECN7BY*O!QU+ep~j;p+$KL?)ZGp+cLhsUZK6!!sHAbeT`LT=6?$$e;?v8l?)G ziiE5alPcvy=KJn$tyq%9HhTFf&8nBV`}>6D{5QlqTIUtRRBPYIHYd8ak{G63#BOKV ztwV2D$EzBL{JgK`A>+Xq5kk|04B!5>$=eLE@amI921wATcq@V;kj? zdZE!V?18 z#Wwnc;$q)WdhwXho{Rl5#Kr;rGQ?a~e7#m^^ve@5iun4*T-zE|W43rtY@=UPywtwWRRL$IXd%ZLb`sdx zA_NuqUslHstWOEk`Or(e=^wDj%7Uo%#|eL(UuwOtKi3ar1Qx-+AAMy*qk%@@_?yN6 z#?UB40>#0ewy`fPG5SrdU)wlHr-Vb8sr7i1kHBM2`2bmmPOX>3X+PNy2nBv)iW`2J z1_&m%F?DLaG){X5T+I}4HH~IByay9k${we=^L7^D0Ksr6n}d*9W`zDEx41W-oflFbczg$DP?2OfhbIIae-tLw!BW|6%f zqe%FQz%ZiMDZz4qQ*6xsWRE8rqm&G{sI(|u5U2zFbl8%oc!`^ z67cG85JMyuqpap~%5hO7!baeAyP!ilO6l@DU|yy5i7CEHt>87 zSmIETUYEX`DH$G%OcSwR@FiS%`2wTQ|4x z^U9H@MXW5sYF1dt2Ha{D>viK-?4L0H0kV2E=DAHGgkIw-g-#G2+z8KG~u=LgCi1aov@;P%s zoe@W3yy&W4E>5J}aJxyl!CR`GxgI;vHHh_Fa*+#`D2=o7Nvy3L79s*HJhmUl9m3?w zvc4pCBY}BH-;E$1m6Ftl$ST_}h}ZWeL^oizsAM-v-q}n+riOyWhyx#CB2+$$2 zjdM@pV>phG1H)e+>?VJNUM9jPTf93T z8wqDYso)xoJT;@S@D~Z58ATs86O%}5CZHh$uwx|dXhX!CM*wyX2ec#Nt#}lp43XeW zuWV3q?UfBFDd{PA;K)SV5b@L^W5kerX^LwwD8ZzqMFKv>nFPAJY+uVjLlVfmt3M`` zHT}U!^oN?+kVxOQBLS?04N;;so?=-%3d7kCisrr)((SPZF@5pcLOkvpiDg6J0yAU4 zamPF_3u_>lLxT?FjsUQV;3;{7mLix7#AuL-H}nFd*x?UG5vzW=FdGX_5j$cTWhzW{ zo%rJLHU(J42nCA5f*nP;AD0k83N%jQTcBA)qs%VtyCUs0Pie~kvu@h47pJfY=4 zBXbvE=YNp0)5!VA_Y zZAO0cCJ;L}qVd@`Qn-P_^$;i6*Lz_rSUjk#8YKZs1KwuCxd#3JGfM4eTOso($9pWT%z}R%(u5m3 zC=3oAncy}v;fN*!`HZp*Iu?wCBbpHuW{v=4Mqp?dMq$k`y4%7q(Y;lJ4x}RHs_v}{ z!;)qyZLkh`2b=32YZ07--O`3VjVKXA#5<_Tuy>?zjsCYN5DDHDN)e0=jG>~78qd)! zVJ;IS2PO;^IAZxLLJ!4g6c43@NkNFxM2w_8%fc8LoZ z-J(=nmtv!H8W~{4WbBZj7HyKzEiyQ8#g>G$QP^R9V9X?F6bw>m z6vJtwu>Rs*%frQct+C^$%P&OQe)6tOH2law^w80XuF-jH8*jZYu2svnqv(DR)2{m+ z>=d@NNc1Xk3%bU);@U*#HxM5g%f5lc$$;fUD$QMSt+58tATu>&(%b=T`&wKZX+=cV zwn+6V_A7C1itQ`6*y*h>+A_qSf4n=2H-GZ+Ze!=oW7`D#&5w6;iS`?ipwQc0)X>|x zu7A9nw||I+k@+FM8Xw}T;c^=^)x3{)HzP_kyhmj&9shy|#orlnTHyF7b5jew1}N31M?1APSh=xef#d+ zytVe@-Pp4QO=6p#FcmG5hZ^yg7TyK7RR2W+^TOyBIU0l?7wR4*HljgvY@nkAmTRCv zoO6#7iy(WlFGK^#T!>Ku3EmFjlqquoMu`QGL{aZlHJG3XW~4Z+xdlBHGAUCB+*1W& z;RbJp&jVv8{8L5R>4;;crcE+Lkxs~{cq*PUMj(o$3pjW?9dt4gVf$!0O2ovwM~TU_ zV>k7O4!e%5;2nBN*u7}x^@NFA_6S4si z+4l!Xq#zN_X%jFqS>x%59FH*pJIm{}ahN>_^iy#L4Zv;Q^ib?|riF@yVbP>U2tv?C zA{~J=0yS_lb-=cX3k$-Ca6szAz3=`+z_2OWy}3Mxa|n7ZTp-X*<<+oc3PR9AaLwxI zmjTl2=ax+(D!tZ1a?NTm9=e`eII;fpqu?KeF#zjdxOsW>!=R*9uAo&;#mzaKG>?85 z{)S@L@qM_#Cw2^%LzcQ%j}Hmtm>IyzI7A zI=Jt}M5movDwWyM{q1Oh&X%ASQ<;160!t-Vb5M)AroDwXH`5P76a9=f>WQMIMXY05 zT72;0ruv{3pV)ZZ2Qo{1e?|ngc=Pt%$eFnt-iaBcPy#QH3~Iqfq3cirhP5bxjx{I& z+Zy^YUX2@etil+u>SU{?l5VI{SOfP}Ueukh^mxOp@#~ z>D}zpagB8vh_Y$8n{z6Kr4*LJNwL%V<%_(n1TdlmW#O8F$X*PXSxk$DM$RI@vLf^j z15zo%RZKQU3!#{NphWVi4}yGH9wC7OIR{H56o{D?NGdIm6j~rD)L006ub4WLF(M?> zcNjv^U^I!r)bz+U5T-})iJ+F9X^C|HW2uBO!3$T~VWwovL=?#&;+=4dU@SuvX+Xrg zsKrtZBEcL-n+LY1G$!Vhi@1|PEdj#iC=@|jy^%cmp{-ZiWARc$1j+weovI|{rxxz( za1V0jYqhznn+g8Oj-6hHkztp1o4b7Q(rO=)dU1DZmtLyaUdyP5dNJCHeYJ+fvHu}q zB&=M@d@c$k_i7dS#8*2$pKvw#@b&eMnA1ztFi4Vk9>5kWo(BSiI-~f2x6n7Yl_h$h@8LyC zytrrWYXi6kCB+i%Giv5^g+|9{)Ig*4G@4JN2{cNlQ7nyo5T$lK>(+iQS@2nVTGyA) zLa@Z+Ma2OK`CmfJaDx>GPI0G@e9B#~Cxgj(yl=PTK&2nG7 z)g8Z~IPkMuC-CVHr~IG{5Pkod9fxfTKC@%Pm~Y?FVZ)ej|1p(XKln4d(72%fz0eGT<>;=%cEIiHF}yj_tj^gyc~BKQ~`;5Mz_!B}Y{gJTFl5tX7B6WNLL>F*Jo- z-@dk~z-^z^>i9@#3T<`3KC6jubzDzr3iE7rd@MAD_s}9*9q*MwdZcQKgpJlX*l4}z zxGpqBz3Av>`>_z*i@E3>j`xwpTh$Z;W3BOrUsG&#+!C5%w>r8*k;TU(=7cqlFRW~% zuc|2yhFf#!>ArJ%PWy$4xqg!!UmKg^;RA6(*K3MWdOD%hfu)2^iKUJ&ra^YDYU(dP ztjKpP@?V|r;MU|jdTZ8Fp?MR5(7cIZ{+G}^-_e~N*X#BK6eKL-nhd}jga`TqkX!e< zU3X5q02W0}CX(-vas~O08g>Z;#ae^_guoG0R;`@mz^&q`p_V+$!TKQhWjVCUEQiR4 z!5I|{wVo4UgEc^}W3wDE)bh!9`2Y8xbT|>D^T!FJ&M)8L>mNSC!73401b+n02nQ8b zH~E@SO-etaQbSJNTq}7CvF9O5FrzsA9G2}%|-}?7iz!4Do(x=gyHcQDS*nu_mgY{O0BfR2^FoFRXmQ~sa zSlTtkQ}ZqS6`VmtLEf#6fsC>#VIfIkHo**B-xp?H)EcTO5mr>gLrM7dz)oG2r zgFf)UfdB$A_iKp|InTh=tsoA9In-MYMh|Y?Ero3w3_~&r^eypRiLIo)V(7b zB5TP3y>{j|qM0*KfSS4rhFrrL{k&3SI}U;w;_m9Z5O;UVMf!!*mDI%rqGqF32fWW(IGpw#W zuQU1$kjGEBg1jTG4w;3~Z-GQT=R9!6(F4)qt+3+K7Ko2;e-FoIh>1%ug*@0Q znt2dn>n2MT(WL~5^=(bK^^YKA=aD{VaqaNe$?Hd8YNtKc8`PZFNuP_5mXE9^`XgO& zWb7ai$HtL9>p;w!D$=*3OOW{<+T3=c8^4KBo_-?EIXxelZod*MKA#U8#4o;Z^txmq z(rQQer5!sI2beJNJt!oZEO3@LDjtptg9IkWl_SbGY;xk_pukEJ731{0)hq0^; zDFcmMuL9P*N_k17M)TH#Lz>~v8SIJEannKViVQo3H1n?7ACZN*G< z>(&F>EeXvm3@;!|OK8?>Hzzb}HzhQyH^C@kBhnjib^|zZ*Lr|zoIr@I7LS>rwE-YR z+9+5HfFP{Ji(wngl{XzQ23d}0YpVeBX|1^FfHBBYyqkH+O^3R3RcoYuF_3i;xDeSQ z@SY3n9HHf6AMA`#j@M!kCA#KQTr(ehh&V4}@pgE)FlFXoj)?>p##q31j)C;AW(;Ie<}piJ zHKQT3ZW~4C)uX5oGLtfy8B1CNGpI~)Bv9uFpbMHyu-j^i=xF)?`Sk zWyugtI)~tu!<>V_Rt^O3i4X*iSUUi$)By0FE^x%!M4U*3krR$u?A;??(i&#KkuLT@ zI>p=<&pb+NUEivft#3_nMgu}op*5^;1p2H{1elmZb z`Xs99WREG@dyea2)|XJ$2WkB|ARTZ3*eN&wq2U4ik*B1YH?%+=fZGW+$d$nlG@-5< zQCG4?xNdXO$7rDXg$6k8Z~@u(Q7JB>NCuG>8Q_+jY8Mb`k-=C4fwExUEor85)S`VH zcX?H7bkCVBRI{*!O7FEbDE`f;mQAQH1iEK0y8-oO-2kv2^|Gop%vOzbRZrS(LwX%D zL6R&u*GihPgssnzeLkM_j+N+!=1RAeVCkE9Ydd^#Xl6nvAe;G>$QuuBole2@5Q6Ny z9l{)A=2ZL-GZkVBjWwUp$1~MTL06oDD%d3D_qh z2enU(G$6&h^nf*pBF%`fdjVh@yw*lq5n+R0z>eNjWk4ft!%GeW7eHSfx+?g%qzVIn z`syq)o1v^ycOJkvM0HhWyoRyUj|zqSyu39~P?==D5C!_+#cfnm72yqGsB0@~i7Kix zWwe$cor>Z@*E=8-lEOv(#a6}5wb*kvvQ_$FnCsV@O`3;8_L(vt&Z-M~2=IV{2YB%Z zWA@_qN_(sCM86?av=&G=yHKF!MT<0bNJ;{(!=o4`798{(%13yJK1h2*1R- z^#a%O_nBnZV1;-!e;+D-Lz4q~0W40#{@YaM^Ew2;Nbs&>6dl7@e2f{>8s?&l)9PCV zGmd(?I*sl;C8jS=7o|Ze%)($X%Kp!)G)RbpsASl^YaP;5FbuOrH3H{&$sq_&`@Q7Q zbIs_1ynVl<*_gSXihuS)U=2lWy#&MCUZhQBdqX@TXo`2%Ay--5ai+haj)6*GmjoZh zU8wY3^aHdLC);))Wkr-|*p4gI9a}LP)sAV6;+o$?t=nIK5h7|G9o)htqJ#6+3dnj5 z%h0Jimf~Bxl%gdREk?aBhU9lqt2AD=h`Anz-3&Ob^8nh@d9uIjh#KFdn0w7z# zW|1bJO8pPF#yTMrj?%+cvBv;$`XKj5<>_GhQJD_8BaT~zUa4;C5i_Mu7Wxds@vv}v zxSP6kB&ALle!*x0^TW4ByQx`OlsZ{BmyKhSFmLRt*3rWIh^ZN49z8c*xLvTS^(W!> zxK*twLf`SLT6YV#5QmF1UWG(uRcndgkXCAmxT+PFh@f+RG{RR8mWcEZ{`u*sC8F^2 zW30w{lT&`x3JF92;llb$8!$%OL*z&TW^-e>?0D9`Nb1 zVTZ)R+;4USiL97&I?WBo?9l4r?LWX09 z^7UG0c9qg8UZir0EANHu#C&!@`QL~+S?#wlMT*SDsX5{V}Wj&WPK3)mh99jm+Vx`+xh=@f}@Iv+F{%=B8#Y^u)%B9kSb(HP$IBZJ4wL~ z!;UfFQg}@SEh_ZQL}V50iho zLUhT$$Z>Xh(GF>O^1mMg|JuKnn*kV?{5x1Q%Bs#p=JMnx*byN4uj$*kS?-hFkfl&p zDNSWXJ3Qi2#6yv{cpEpH-X=u`eq*8qC+8IH@M_%>m*NX+or%jpmM*4_Jg+IfBUuJR^i&WK`mcE0^rytE+sS# z3yijcvarXqO~8sTK#f?2XL___+@k;G*(PQ$uDywzi``oZFd}_Q{0~Q8ihl(pFzMTj zpjqU5y!wl}NI408Yf#PB1h%PC1OGQ~Gy2gPc!`7C*j0r@I+R5HRkdtuvg>zd*;d~A z`1>rQ?D4Lw6z6ZiSUmHPl1m@+m#&$)3o^CnalU^d zkGH*dA`hna7>@r%(YqAA3!O|yVIJ>%=V+d>>>Yf}4M=gk;Tpv7%+;fLrnW1Xfm}J7 z#~UsqOUES)$+k;?W+!0h#iMzVc0|1O0-y|0r1SjIyhPhMEJ`&-oI9GA;yR0mP;l|f zwx$SEPpz4VuhLs`r924^!;Jae3S4P0jBt;g_9HXmhZ zDa^O>_9OTR*$x95BM#Gr{*TeekbPow4Fd<8Sh(RO@`w<8m8hFyiJa~t@gZFC-H--5X|Oe@q8!KIO|8qAOE zn=#kU+>BCSsIi3;CKkprM3DwW@aX_pgDBFB2*&w6AN%R)01=x@{JGkS)lKS+cQX3??GBF}Uq$JSaTA1R-cMkwyrD^B2uX zToN%7lWxqBRSI{Nr%^Rz3i2Ru2zu(`MLQS-gdhaXAbf}024ea(5RPHYU=G;-;p0UdTpDGC z_DJi8*_SVUX{ZBXH&jaE_=1-CY_Xk}dn991=OEg_*@vcAU z`5G8%@n%Gc%f>vO=31Y-e zI%)dYBagS=0L+AIs6osP0&|S(fMtjV8Lm_K0bmWHLFNxAd>^pwJ&(K;>w8o+%guXb zD?IW459%+`aFxD6#}$kMwkxR1Fx#cbNuf?kl)-sxr1RpnX<@btC-T)7&@#?r5OAKO zC(FQS^9DqT%vpCCfYT1Mp25ugZ3;V2Q->0#uT4uKCr~c^pZkt+(g}Fk>u4WHphT`- zLy6d4M2VQ2p^EElf-275g!W->qz!35#)JL1Jj@JVFzR}=j(XZU-~>jy2Q6X`T_IEl zup3}Eng@e~b|(=5P{VFO z`><}n#4^lUoiR6JRw3oA zL}XhD7_ky5*NQ)j$%uiv7o&qYa}y(vy=7W7o8%58d&iSiV)+;>HDJ7rp&`RaSWEEv z+1kJ^sdjOflwEulV*nB;q;tXBu7}x5aAHcAR6Mja%3h50WTewdjrO80sbqrGWSxY$ z!TfnF4ti(dqG=CFYL_orcf*$)c;rhiKJty07#QCqks^RF!<-XHem*hTp%f&>g)9z6 zX8dER6eUy;0$+rzx&S3w@Z&T}$-6Ek{g%-K14bK!To8K8)nk!m?2prOWL~MeQjSZM zIiF68OYKVOw=6ZA{I;IOqcJS5SP{>h~>-jKL) zwy7gwf+v@-aW)srNIsY|<)Db<|9MkF)Wt)K*A};vu62Q_cYOjCT@ohvhbvN19nr)d zn$0_-4`FlM==($kse@>VFDWic{;)lDMv0If=_B*h3Z*5!r$k(szrvHg$M+>d-8VTN z-X`DZ`<@#0eb116Y;LJX8aloyw^VQ$b4$HLT!!3IZE8BEHQw1){( zl*`g?ka{0yeRjUyvby*V^g1$Grs<-%Q1GA!^cFm<|T<*Q8btl z?x_Py!-RDBtXC`UN>B)Xh1LM?AyC))mJzlTUTx({uS|N1v*s)2!=cF&q#zr&-O0x&i}%5-HqiT#P6_Nq4eq8^+#lqT$UcTb& ziiiI!*Q&~l%;#4BlzV|&Gh!@OX5ApC`})~RG{16VT5|?yBztls^N2D-m$TQOZ6=Zg z_JwRyj^L3RnC*EnWjMt2DI=lnXl8aJylB-Q*vb7-6=V-d$~`=lIiSBdGxL9P`{*w8Ki|VNlI$R zGP7X-?H9g#tTzATSiV_ua;(Q2V?DMriUy|F@$7GK`?1hZG)oPPP(8DOiJtDyR*jG( zEyH$rj95Qb19i`4ocGuZcOZM2^|A8aS927dIYD9afMT)dXQKppfCo`2oTE1>j##2G z&0h|#tp0TNuV6C?`amO62Y$+Yc7p_z9G`PPUP(OY>n5lPxyj2zt{iHX6{s8g;D#5xHU9uHym@mya9V)yj_i@e- z=Ps1pz_~ekKm}l2@&c-QgjT0nsj`5-TMVxO$xB&a6;6McT=6&X3TR`RSzvwg>VoVA zs|x|u?(8%WKu)oUUsZZWiCSI_q1h5xiT=Et$SyR>lYLGiFd8Zd(E}&Lr@rp~{ zGX!uYV1OGo6oJp$52#y6@QQKCEk^;4pkUcUq)-kiD))g6IrhPO`P(mz2o z;?k2+k^ampxbzVS&{9&rq2cE)!S{s|Y-Ub5sG+}P4Xj>ImRKS#6vhxG0l5}r9t%{e zps%~Smgui;#9zJxV%R}!MEfqI{})uQ$I)hI}jy8O`0*4^KVesD5 z#*RUhfg7~-UaIx zv*ul6W(4gAZo(td_D}bwlK=N@uH+8V`nIMHT$76 ziM9|xb;O}FSuT?(|CKWlR^}D@ii0%4lv@i1w-$`sL0_lwrtBHqnX5ZX&qms16nRl* z%`=3=deZXtpuCzClQXHCR}+I*6M^B15YfphHlc-?GG*2XW!4Cw^Vzy|Q`xgFOXM@g zD@przmqm>b`8NRn7b5kaT^0^un(#YN6#pAy_R+d@!TPAnqSrp`vS|O^WnmvsbL|HJ zzjRr|C(eY~e(tjHKVfaUxTH{PFDdMA?W7CUJMqR&AlnZ;r?5R!mt~CRUR4hs?63V0Z}LH0CaqUEXy~#?rWFR-rxi*sdTHMc&%}SG80e~aPV-JaM9}{O()_bg z)@$LJ+N(%UD~z&T3D4AAZbeyK3eOC@MAv9L!!y+gK^Jl60?tHS2+!osJ6RuYC)T-%g*no$CJD@i=c#-usI)y!CZhM4FHHJiq(ZY)5IvqiDjeBQS_O z+;d7W9PYBfAySuRg61VUe?Ewb_Q9Ul+lhbQPW|GnZgajRbFB1d(oLPN9~`Dde5yl+`MSvpxXVe4MFq zoZ-z-xAM$9pf>bN>s*HR%UP7OngzbvH4~V&(gKLK8L-l(Ho8^{GDo_y9cU~B-DAO1 zQDqZd*)G_@PD7%Qg~j$`pxuZVQ`nWG{|s9GWC zPQ(k9eR@V~z`HUD^zA-46K0Kvl)E3U>conuSbN{)-YFy&cNwpVKy{Wy+$2K8^Y_(I zCJ9V*Pp<@<&70vd1bd~SS7J{cOOKmW)F{|!J>{RZV4Z2@yTCqc!8)_vlwm?b3*K3c z;O3#}{2n0)LF<7u7yv=)eowGR(OPs`(^FFVGe!!%_AlH8-IRSoJK_`cn4CiRQE+#~ z|Dd(~K^dywQF(SmVb;g!rFePgZ@3Emn0-X$WxtZ6@AmM_w@u$)@lIqOP@cK%7uqj> zIc@>-v-G$H+qZoI4$*dtx{0IJ_4#p2qU|%vGrNoP)9?wQpMbA5m3@*R5*4E1*XKt47`q{Hrq2l7c$AziWX{&mYB`}>qdeh+75?_IZGm&614 zkjeo@ynEduxH=Bx3&MBqz)Bg{OK9qj^$1LZKo-s?cfx;?nwalBo(KeEH6x1*Ny_gUIeIaaG1wvg&sv8 zKI#^xBu72eT-P>XC%gUbejI7ok7{?;_jF|VOvbfgPB6#ny{LB__1b@!;~s~}s8cY- z><-$KcK}fC7+i4>f)<=H<&J~4B8@>njljL&akWQ~@>Yz;RR~fx;`MnOb&wiSO?x%i zV=m0K?*4SmTH2}CqEjP*y-?Ad|J$i6X{WAy-lrMu+f(9W_mSw<%OnB zu(g4?IBgvZBm;LFm;+?X28zfAvH;n$aA_u@CR7|sPI75>cyBZ33L01vq- zYrt_&jp?{2aukA;RH#uu0TXBn!=~3SoE34R7tU&9vy#9FCKX01${8R3b71(&89?Zj z9&$f=6-u}plyQ1nUkJ2EG#UE%-PAS~-)*JQ9zD<0s` z%w=^=77G`CzKhMWPyYOmVyRlw1(S`~uF2pED~ObxLTYSm;6xzm=vfCniGV{Tn-Di z*I&6%{3|BX(4=t1RNYkZZ15y5_+L}H$MhNauPGNLL)Z<&C8>x!h8;Yinee)_oZU1M zYl1U&ofxqxoXvVkO8h3O$*5Cm!>ChhQ?X51VZ3?hsmSGGzsY8HQ|7=^vGQo66xOqq zqWO#}dOpLIydf{(2E8HAAm5(~9CPA?VupAlJycj|(zQecW`_5-og7b&|hdWOx1{ZSop{%51h z`*56eR-#7E{%FjU!y1K=gHZUR#tVcpFAxk~AQUBPJV2=N2q9z49wh(#9pRqjfXSPT ziS*MGi>NDD{$_|GJSLfne}qrE@3LDI{)9>Jlgt|@d2<50(InBc&4VRLeI<&g;sEAv zk;49VBo`3xIa)k~^w9?sFAt&^=qV`~!Zr`_iyr8y6or#+Uk&k+6NxQ*JKEpc?cGnF zOxpgeyL*LSzF9HbK)gO!?lA_cJ&&Dp*`0IzeIF{!P#NjW+qM!CAR$*^fYJd)|2 zjHiel=0`l0+rCY$TS_ao}j{Ya1~fS7EfbTHV{ z5lKJN+e1gxV*tHy%+iq{xsLoL9jR(g!yk-LHII}@siPA;n`R;@8SF?G+=67dh*!{* zG@`cjBR(#YGKL*p2=bUh;-$_CB$GvKHfu4G!3;aKl&EuZiAIz}-cU8C<1eSNIjp4@ zF|sqfh+;9pdRunpzlgs&CxH08#-xm8E%)$OV}nHj>H_@xBBCCLGdPULp|?m4Gj^XK zk$NHyfui5M3q3v9GF9_1{PS#fG+O|x;BoADb^<#wg2ahb%_m5Hb)~8~LnjVfZ%8AC z^a<0xZxua~QuGf|L5 z9}v$Vl5J(z%V{ZCdy50q)A5X7layJkZIB2(u#ecEo8CvPRL{vJvOZ$fs6OJ9IV>o8 z#d}1mo`a`uWwO_Mv(xp+?yVOE_|J_eK1+%JJk;DW;y)jUJ|h1GIP?~URQJXM^%k){ zyjV4w7ynIc7IrRPaUMILUBFiNhJ%rQ?0TPnL&jI#Pa)R%=i+@Hk`P-Su2YEp^Lq{j zJqKUB&Tk~OIziPu(<8q+Rn?r+B@WvaZX~Lua1wK$a7%w60qP38(sx9?0?&Gns8{0P zBI-&U?hy4V9Bz}`T@kA0u}aVMLily*AYRW%ww~P;ag|{>{bO-JNVNfvahIg5Wh*A5 zpw|8__7|!Re~6VPn>e4y{v%f9{zq)EiH8xz6LGNOBjOoi6XW698B_Iuxx{A_!wsNs zGc$qst|0!idLF;5=P(-wkwn@=eEW&mNRdR9CzAXnu3&95Q7|@CL>X(F%~lT=$P}A| z-4*!<3dbgaHLSk}{_YRr?}b0WLDqASNv%>p9GKANmdzA$O09 zoc{4CVs@O_^KY>SYg>xftx~bJUaV~%YnwlTWG`l$hf48)i=~Xte+eE?ik4l0e}M>E z+j9u$IRy3`Qc}fZ`wvt#kI(ibTG8$}Rr4enGuVg!o_NKR4^u@Ri>J?>F(8g@P7yIg zXihCa-P(HNkv&D(0&831esQ4ywQK9W!9(TW2QOYAW+!a)Q1!uk7ocwO-XXR=DC5r< z({{~V;{9(TY}e%A)r0Xr7Rbi&C^;g3Q_o>#&!N(N2rw7GInMz6Jru#Tp)g# zur?EGTgloghmuy?IJVi$R>k=6A|kLee2CajLlphVByp;@Y>r&0PB_n?ReOsA6m#U# z?B%R2cM=-pa!+*A3J-MC73iiCF=R|)c7;qX_hV#NUOXrVf>TrNWV6g_lhJmEyE zyhYj7i8{$@Z&6Hj;-4b_)jGm?mB=N%6Q79svDN*5!l?I?=&f9KB`T(pUB#|`S1$TN z^iWpa-&3MG-ACjbGP-R3v{>`}`LXk-SFm%&i(CBIImo=ihi?>x;ju%r*+L(FC<#p< z5|1;L?4Wa%8n1JeT-w=6<trIAZpuu>9d9y}icu~vNY z)7{Vvx#oD-OEeE#ureYDX0ytTMZL(K6~l(ZWFdn@nGO{%GulVI*IUv*gEtR`*|8eHbZR*1vC+83&%E9LnIG$%isbWyxu}KqPqQ;6oYevVdn{hQTjnXa*k2FxCtN zk76DOlmyf^0N-FMjST$(I}$NJw^5FBaX*JCxhaTa4|0Od#n z##z9TYS>&&FVG@-QMrl#I16uA17@lzONtclQ~{Q$HfBT`km6m6aTZgJ;txk45?Eml z)aLt#L*qNnLWo3Bx{OIFY)>m*7EF97f>hs&PxmJ8Jst1fI=47Odfx0=7%W_t?j0`K z9Y?x~G4}~Ro_6au-#DhLI6fT!N35s{juYW%1{QT~PZNZ~_@9ZlvBBe8qE(C#$bFLf zr&xRFMyleE5i#5cwZRhZL~Za^#r(dvNVr(BsIMyas@I~v@SaAN^@V4aG>P!=DN+Ms zBny}JRgWAK!sS1UO(%Z@uT7QOhp{zd{|F{}vtz%kYAC86Dj?|``Nk1!7F$Fler0mQ zdPA|?V6)7TtLFF;)jS;MBP^IBH&pk2xZYsPZz^BnJ6yF<6XY-oQJmP$_2EK{XlNaL=?#&g7XK!GDMLEM7%2tum(|- z8Ij`tQlj`q=Bu{j)WPK57RF7(&dnL&6Qi`w7nP>6;gL#icsTU(hV(Ts^fs?inrh5& zH)8fv_A)OgCRa)b$va4Xt-;arlG4Ns)syslYmBV^tx~WCyg?002b!?n#)2{|7FNfgbSiNRJ6=vUD;Des zC^7}^oiA2-K9q(l4xLcu)dZ6#n@Y+R52e29ovUno*y^HkuM^5CHNmNr4$Z9mywa1@ zk8ko(i@Idko7?le()&uRVDf}Y7rS8VCq#h*T3V$lq^@#mcT>c^r|5dX48kEs)Hc$Y#F~EyYvwZ=fbN0oV%iczg;QiWyPuT$Y zp3^T_2b@-~9fu5w)AyE}7sJ(>dFh|5Zan_OyjN-7zE6dqnJ||G48L7hZeER*mgcqZ z!L{{g`y?2Kro5e|PIjIrE9-dkxhh{%=h=;3+*y5a5_@`-IxO{Mv9JG$VBa+Kr?-}1 zsmWXVU=#D^#Xe+|nr$Da2(z}|?W1`^AFS@^e+}Ex1JvkC8*wZZ9QAaZctj zH^q4bx9}F?(^l3+@~*aVYGX|sWO?Sc-obR~k9{v1x^)kRBH5^Gk~QDl&UN!oUB#I9{1)@;L9(To&!;Q(ygf|1C&1<>$3{i@61D;GFw3}Df4HeRDX^SAqTH~j{ralnbx>herhJ3ox zPr*A^f>^c^H#4k!6u`TdLy%W{u~JOI%Y$lH`^`Hlgg-dlxsW+ z#Xb(bKXV*r3d}eN_3Zh`Nw>$1$tQ>4r5ds+buLC{9I?v}M06I&@hntNfP^*+fSQC^ z#{i5*)=?1TA!sv^&OjPLI}&LGVFVFvcbmU(s}I%bA(9HzVVO`$Jxr?|0fKXApbo45 zA;iWg3Nc>9iGWDgpgEN{?5C!83K*7`mpkT}a$m-IFbY3q6NU*1hq1Qv1x?^L2(dPerPZb-B)?!tG zEITn0KEIv?z}W9ufI4DVfYId_yhyrVr}dpNQhaEnk?{qbF;eS2VTZ2uzdWz15|5@}5^7@<$8eyifHA`**nnnHV_Y+dOp%g6-QppSxO2=~5r&MXr-b z3fSgJe*RM!uix`x{gTcWDQ@SkR^(V%F8qWgMo}<68Y4>+gkon4#xGO|c@oj9#a#ZY z#e)KuyjnbKi0X}Ok6Zc#~3_{yo(iGIb!9uuAHdt%C4MJ@GxoYpsFDdgbdObuMd?Z zBu`WgNuFrnd(9MG%&{(7Jbh8@RO{mDvA^ahawo1}cEqQ6Kh}StXUfxkvB)v~w?%I~ z@|a8{-fZ<^wmOfk(y`UK?5;Sr=qJ6gdgudvaEyGY;@atWRYfpStwg9qScS0q=TrUG z=p;8zYve->Mw`sTz{(>G@VTkHahhcdfrc7bpIfI{KLjNLi{OtSNBDnfnp>ygwX)w3 zo$@X+BKRX{?w(d+^V2wsPF^QfFe#)wU4gyI(^cP}%k`L3>U4Xs%VIZFZ9G9-c zs6YODz>)?-05>|}o%BAKAEwWl0Fo7?UHA+yfa%5f*egEV5on*47nPetS(sitmSX%|zS~f+SLY1GwJK{=6UW z-|vsPbIzSROKxWFJ@+in^EKK%fyzY!i5Q9~*JbbFa*_wY)b+$x{f{TDa1G|J4X05v z4VRObk%TESf&94PARc~WG^*h#P$&@Fw5i>X7rqD|?!wJ@S6`kExAM8ku0QC)7I<+N z2I0m1GQ1cFwW`g({g7?pcZcnT+XdOUkBe|%R?#6Vl}Hk(rg`1d3O^C>2oq5~dk*PI zt%7{A@6=6P<4kwd)eR)J+<_!v!)Hlk-+4Q#Lt{}rCyCe!fE@htS>#I1M=w5u%6apM zZAY#DnU6DDWaUKj{5yXt3V(&Ge&L;As9!)#dnZVFOy?Xn6uGcpU!JV&fc9rdf#{h`#!B?oeG2AQgFnDF~W+Aj~=VoW~ zHeAZPjk+0wSS^^d5S_Slv#ULTGXgs|!<%yF=FE;Q)cBvZ;C!2Lh6Y7a+e={mFM>@( zkrdjrbF(M75m!N^;?B)^)J8lTBWB{+3d9L(ox4&jun{>ESB=ITxzf4IZe8x&WmyIj zUD>iq(u-O~-H!1Dn^C&Tn(=teMfj=DgLT#dA6;;u@PwKqzPSm!7lnsfEb*<2>?Fgt z2&5{X%9A%z+8%1IK-+^Y)b`-sI#=MzEILn(L!P!tC|$LP zZzN`tw$|HuTdf!uW0`PrhpTo%0up9Xu-OO>-^m>UHSXjNXDhI1d-v4=l>1;=| zV=w<0slq#2s*rNt_X>`ZDtsfQ3Jt7Jz1l`d75*xzBC*PiP8bf7sAOEI)EjNgCT zg=diXu)M+{)X_xkRl{m{H5z4|`qdDik0w%PD~0|CC}%C= zBeNa-agr*vm1|CIjraC_pc2YZ!IeHxSxRAK^p${POVH_Uk4XSZ#S&W#&;0JK>E)RP zuPOMzwKr3E-z68Jj_6be5`|#?5!mqZ7b9Hq2w-yHtb7>pW8IFx@ihfU+LKe{k;xL5 zbOeECf492)iBIlQ{rINfNH~GR@sLj9Pe?d9aj(fO?h~+lyCFoixlTZma2jc6A{Nt0 zAqUu?9Y@PhBvB}Ywpg&WD3Tl~gititW)#U@6o!Jm%u$6QwceDwm%5~33ij&rwp*#K z17e-Ax~YosAv0AO%NJj80~?=))iimk%+Pq$-)k zF11ZvXZl^{#r0(Hv6aEcRt6ti*%Fg+(+lfa%f%o+a!Z^(wHxe!(V6%?{(#VRu)%9! z%P^fJQJ{pj?{G%#cNd04f)GMiz%^e12ST8}1=o7{!jP!T$}+>lU3gLh*Sg6iy!zMQ zyQnNB^Kci?f4;maCc8ryvP3KynlHE+(R<-0?(O}oMs!o>YozMdbGWkM61=} z`j3usj5sr*NGTUqSuU7dp^q9&q>hr$Y8Aa7-4xMlVNn-MK>K?Gz2XeBAH>6;qj@RcSTRz zD`@Ym#qgWtc;znoYujBB<1bh*D1i!sZQTmiw-v0T1#Ei&j`{uo&SM%M5XMZ0aZTr} zo;UuYl)I5K{+S1ic>Tr83fh8m!oah=T zQjQbWbJm%#u}{Z9I{h{kIUP;frrm|N1rilyDoJ`=%qOaL2{lqtUPU^U~xw)w#N$AL{8hgD6e8fp_I zu&JbOod4f#p11yz%cO3U?KbkG?gD?+SB1N4s?ce}-|KC+4xOPeSI&_7EV0r}MGbkc zw`DLIBo4+4I7nK&RN&HO73d&JD%u8utsMx;Ar+ziV4M3(ix*Jh^}cr%2#$>~rjCfq zeO-?y3l`r+6#DpKA_W4k+#kYStm1qbc;y`F_)y!^@S*zC(9$8|w(Y5I5}A6jQt)=W z4R4(*tzt0cVkN%Qq}vL&KXIJYM~QISOA002#>L}rODrrq>P+KXvlsC2}@XFWs zs_35NPa=VvH9))Ohp&30HvhCK531(whfPA1`m~9Br{Hh(rwMa$=m7qcle^VS4TTPr zod7Z_b%G*KYgmGqSjq>DR277QLr5n9=lpw%X+`BFxRbvQ#T!9y17nI>-35f1&cJyvb03L$Nb23zf)xu(ZI&z-%<8KFe3gCV_bs$tbL3LVEG z3%fSWvMfB58^ILj*yEERh1Wnfe)iYi5fMV4!^yYNqFXj$14Ni@dlOp6bUL?Y%yCpu z!fefh9J_BfPQelgv>OZtqPau^kIVK!Y#A~GZU7;7W@yiyB?=l~6^x~AXk z;n(D3&)9CU+}L`vx?3zic0f*+bNmX$xS`)I#cMXdyS$E&`F2+`ncsa9 z+~|$oP7FBDLw4I>mUfosiwM~}$~<-r5Ywcu7lk{t=n~1K?lj+t5xfvF-BjZvEpV$J z-?Psjbc^zapZ+7KUhM98i)@~D?EGERm_?uI4b3@W zyQT?kbI;pcwR17HfWX&2Uw+<(X?dbFEl9+1vb6+5VabLh?lGwYljQqj02m|9#zn^<))q=St*+UEx8PVT*8w8v zMUVROaZHmB*{3ZJbHc~R`P^f%>f}uCnj9H!d=vQG?dxVk0pIH;JP22e65D#-#E8gG znx6x}1p!?Ya!cA9x1_ys--J7s^QOYp3_&o``944p95*m_+1*6++24FSb#(Kj$HM4^!;3Z2jviF5oBH{kX6a!gXl1}u$&h*mG3pJUy%akk;6g4sMhz2GBrTrq~H{xO?5t6@GH+pbBW8gSBDg&^2_tlgr9J1 zl$y$`W2S$iXMC{(_^&)MdYIk#Q=S+*zrYg%t&qkv`Y`{TX>`{BrVdK&2ODB|S-wpD ze~T0hDzXh`E#J7oY!toh2D6-OaEUM8-$cvJYi<%|z08uuU#wnlPFMP8yfI>xpsbsO zgfr;}M$8riiUT7^HS{&hM{cSgk|%$C+y|91dwPLr-n$1MA3l9KJ9SZ0{p}!U?W@wT zf`T~e!K)qh%!Ya`bjTa(lRUm1r^=E2UkR8m+rf1BshG#{lRmwcNi_@76UL=109 zq36H`o4}T#NTN^(ZHv&hcG2}EksySSA6&El`V!v1q29=6Zm7=_KYn^ceR4dtz-VIU zS1O#o`9>4-Pp?SpT%*Z42bJ}ZG=lXT>IENynq8VYga^zJ-`XSP-EBi7(i?E z`~Z-Rsc(5F)kDpz=fkB2{9fsJ9;2r9e2hePy}>*n&CEWE5-kt*A^Db~{$;+8qMqhQ zOGTxk-fo+#s22n5OP`Nql=WA{0H>_)(n3Yqo#>cxB$bbbu9A7T4(XBKt;?7BKL3rX zVh0=gdrkj&T$e8kOcku<`yR?FC(W9cI%!_rEZ>B>>L-2ECdp!&yv)}yk97NUz-+-k z=ET0=v?fHL;!~P6&7E!vgu?@CZ3XKe!#3sr_YKvwqhi3ke?Q@i_U%`T%eB*wx<$5M z-J3FTX=w$~f%d@C(`b$%6{dhqLmxjF<|N{B%`W0*EXR6gm;w<2B4Y^Cg{ZbcyNSEI zDG)h^7=~kv9*zjVsNn>c)eT4UVU)6`DG=?Z46|TMoJI2Zm{~-}he=edM4>*9=VuYE zxU?L6mMLJ*Ct(Qad%iA*gz=6Xq7;`i66uu4Wt>F14giC74oq&$c*4}y__of6((gPZCx8Q6~-&|7Z{XKs{xHxk5t!Q29Lh?*FIUAM^SM^n#H85HxnpsZ}z%CmcZlTr_u6+h^`pJ5t zs3Xj1Vl#$v0I!HuyA`W;D^~4R^4)Kxgh?a7UDqtfs!6?^aETq~g^&uLf15Iz;%Y}i zRVNv`C`DtqtCh~7R1K8il|K{Cbu>`cpdK;7)PitVBGo{cbNIJ6KKBGu3Z#@9L?%vv zgM?1pj?%zvC0{V5G8sRiREGTDN00>k`Vpw!Z88OOiF9>+$ZR4wxCvD?q-z*6Pj)Qc zr#nn6+DnA%7#YJfsAc^21~pDYfdI{(lnzQOlv1rZR%xf0P3jn?Q{KdkQ+IVuXDVd# z4QHd75wFIJ^(a+*`iNKQw-O(8S;rV^y==gm9r@UDt)WI9VW-V$|K&<`WJaTzwy^=5 zKw31kzb6}rFhuu`pn;>YbP!#|1|kj77Ggv!U{sU^kRCdE9vg@@M3=((WjSUMJ|>#T zjbR{SCBguLk0!EpOUr3o%WjA^LOES$B;gJa%NY<(5X(3tvAEKRan5MMyXWCVqw8vF zATEaBix&xHG>szR!YG`x)RNg?!mGA7!hbPkf;~)1bWS-`m`EF11K#%`6hMBzY zF>!0@*=(78hvkc9BNH%DrB2>w4LhIBR_@LQ{7<$i#Xua3s+MOv7L7pBs92uuY}8=V z^~oyOiLfkBa^d)7m;e?{c_W)wy}D9n+_ko1dMk9`0r8D&g>mnA`SiWeT?f*@joS}k znZmb#ESz4nPmxx5h{f~?g?Aw1)s?mkEFb@qf%$m`Dl&`q!5GmdQ;@~|!Df+&g>Dk< zjrcgp@BjUb+tCo43VF2sS-V>FKbxD~!!`bCVzthHGu1qAmUN_SULC}%dAZrH;G8SH z$Ybep-JW=APHeWNE;rj*TL;yHqYm7x+-$D-V3y#WC4DC|!L=UD5`8m%KNH3mL@kG7 z!PGrj$a^#o^W_r-*;2^Wh=ObjjGw@JN}-ay!@&*RljUlL#A_Y;ZVyZ4wk)oF??XC%eQ3-{()$acswg9G+Z{x$144Nw8eHu;h-JumEL-sQhQhTY z8>-h}b|=2_UXNwF5+#g`p3>OREpHKFAuv*Fd@(t&A>G3Zr z;-6!_d?QC6|D53Ob{blUZWjoja#|9THQ&4eI0(te2`@*$K|J+&lFxP;flF4jYeixs z)-oqsaj_Q{o~7U%+p<{Awk%8m*gdNZBZty>cC&h0 zmMAd{zkO#`Br|ZJi@){r%c&==YB8DBce+$R|;~x=tLqFG@ZLHA?1IY!) zwf~ne3}{N>WS48{|H~B?PLe%I_u*Agb01CyQ|`mbVDgt?VsP?(4vE1g+~?wnZ$*Kn z8V72DTb$$oCA5vX&$(*HT-960e8X8r;aKx1d@kNm;6~z5>j<6BG6FA>qv}4#wMUsm z|M2@LLIc@^zq{>fCQI1bdOytTK z)pe8Ef89hPSIV!Ol0w~a|DdOY<;s3CB~zZrmDbG2m276YA=v@Kk}f?=Iyi4SxHNFB zV!1)|iTAlF;>Y-Rqs@DwQCoO4#xyDB-qFa zX2BOR!OUr9R#&yzNG0hgvRHvQkT|ni3|Z!3y$~|b!?(i0i>sD{S&{q393N1QY_gb2 zT&`MEf@F({T>bv!_%`PGc=?KA30WbsVAjjluxZ8eHO0dnVYukDVy6QyH%%*y!Ie)j zu`iIB{{xEusgN&Q?S&yapRCUBJgj6k8UTg=p3FM8#gOV#H|<%z`abJz)nBCjbh3Ucns89NKq_YW)_Utc?QVnqJVg4taOm>D#~ zb{5=LDog?RKF{$@o$XFD1&UEUZ7O7&gzdjG6G^rrrKpR3Os1MLYkK_*cMnsb zuS#wTl*z791S`u-Hc*gFsl6nvRHocfWOw)UlkkGWMCl+emB^Hn=FOPp?)8<#rWeXo zL{^lZrjl3w@yY<-jMQnq8K%I<>qX-Ng@`6mzIt$GKQ>Ur1`1aZN>1U*k5!TjDt5hv z^&8nh2^%PlC-QhIMn9O6|CwXgsycH9!O0*{){}Dt^3zciNrhJ`3Z$YKMUxOdp6v(K zTB#Gu*WvM;{CU>K9KV=Ws4yzXI+&ybeWBm_uN!#I-*?#m8K@xk2GT?|jgjfy1+{gv zRn*qeGJ5ip?hJO_2n**5D=i@In9qJ;XFQ`9{1$TW>ZjIN-*vi|UhTWi$DT0|=A}Ve z3ul<)_OhvSB%O#!pBgkN=Q1nwVW~d(P?IQ^9n(rUBg_|CbNNk4FDePKx(meZ(_WKK z(JXypc$0S=j}7%rU3sT5bXBuk`}JHm9#JKExMD?X%mv}MdQ zQ{uEcG=`)pOos__gN&(3RI<)#;leoH2Dvx3C+5T$8)XVQrz^KWaTC3TcWI)J@NAS} zI{9qKxR6}7=Osf0%xd?ZSnpcFrt$pmNAq>uu|L9u?P3}~GX#I(mkjw^1*F#pbp=11k#DVhpzfGm*3g4#m<@(Y*7gQjnHHT8LVe_j$*NsoG9<8a0dAhjunUq=P@uHyiK|ufB5Tytk#643ymh?l zg%RpBOa8sJBPK}B)6BjB%#t)&XXHLv=gK=B%<2L?x8^(>@9Gs8DxW+`Q5LRhXZb}( zXpND2jh0mKYpKp#tn3vs^Wj=q=dY}ME1CXqt-LeVaE@m98#@@<{JuY&*(6soFNdot zPebj!J0AgAVKkOBabwSde_}LY$_z zrmSKkH_632534A-*zvIKI~6DF{Vp?`&cWD{_WVZ^Am{eix>xGlO~nuOsg0`TdV@tz ze$#(gZ15*|b%b6$T3Du0bc;|=)6M};- zzOr1Vz=!R|8g~$y1j^XJK(=2laW&=qtkp+Rd`=Xl78_OGQh9k(PJ~R`SDw<8(?X`R zO^>nuehaX`ee7$B$zucMnH1DN11c~wP3tR9ZF($=%CC?qXI*~sH(4)Sda)8k(`?p1 z0Bzr;6yH*^u|)ngRnho3>+k;pF;#3PvUtP}l_D_Xs!qFFqoQaU-ssuabTHV3vEO@tK8qgv#f;GcKp6Fn z*L85m2|#37I}U@#HHaKxkD~(q#et#W#AqVZ)wHK)RSY?f0i;_eD{Q0(%%vvA*5k9>s3rGOVk|CrY-n7g zA-Owm$G}W#Z-^26d_#;Yk$*3WjctfgK;(?U@X}8s?Tpa}Y}zLe3jQdUo=f!47ekRQ zJx{LdiZ;SqcRj^Sn}GaQoAs)Fzi?%3)h^0%GXfaMu*{ju^;}syYRoqy92O#~oG&TY zzQ6?MYkAqo-Ey)iT<~j)h&XcHvl?A$96~@y5wX2=-C!|PQd~zxq!r&$b z{8X!9jJ8CvLHmH>IPYt*QEMJh&IULd@tZ%@(naf#rUq*X2a_Y`+D(&1zhO1)Dj&`j zbgrf~E}xF+HC&Cw0~efNQT2pFsA@5BQlP??%X!6ezxEFOT4V>@TNd&*|liSP(1rQHuqt@>cw%G|q~SRAr{nlRnkUKGbugKh)FzNl444 z-LL2?p7yfqMo+cH1%~&u8Pno{fCP8CoLDj^2ik!ut@%&{wbf=S`c=={6C<3)6l;X3 zXJf^& zrkW0x3$wzRrHRC@idK+@19;I#BEDm?h3&W8k`2GVFLSxAU*@{nsQ$~@x2hdPzl?kn zQ<0zP?eun?0itBrnUoPT@o1yI&V8rUYdZN1WS}J}LVpX>+d%4mzktu{{^Z_Y=ck6}^VbEm`lu+L2xtQXgnH-)9rvZ4K(;v$q!=vR%EDIg)adn^x2rgs_m z0Xq!_!;Y|7GIo*L6qwkblC22S@762dAp5Fiim8+9+|bea1{#cGvPg8lIP&&5nPS$I zI(IKqV0;{j^Y?w9TwOPY4UA<2)ofs#USPts)HR!F^ndlm>qbN?y!X~)vOR(>@sWrO7tx$bw%_}1uxybYRpUv-I2Vc3xgL4(5mQ*< zL=pk#@OV?f4|)W~kycu75yidup!FT4 zO4+22&W5?(MckQeaQ{gOq5D18=DOiSWF`aXiA z%;99g<1D-2ap$jWu#@>d!o=JpGOMaR%&Ke;;~;~uiuN#SrcOTJkoQvK*ggqP?w3FG zNgGu=4CK`Iu<=bi72QMSjHQpMt2aSj+ElEj&37uonN}^Ge+4t(cU0_>dEv}gt^(>E zHS@OCD4OWEwRAb=y`-CjUggAN4gWpA^SnBY#7>BIkQjKws+t_KK=_pY>~f>Fv`THYZ&4eLsAJrNFCZpXS_{p z3Zi~q3Zj1g{{~T~%~Mt!(ea->Q6}H_Mji}~0eE*1Y@XIOUO zpv4*T2s*Hs*|?ancw<=o+)He?B*NEiTuiZ%?_Zi81y5|+*tl5s;a~V-3hzM=6`0cI zQG9s+2H1aKH4fCYdFZra3dZs3i(qRT7b`w3Rvf|oRWk68gP&2X`5ruMIQ$chi_x0F zs%7|H9G%*@*p`{AZ7=4arYe?FxCf>+E>>54nN}PD1gv3?q2fs?SYhAABgHY86N`Bp zs;1*Ar6i%>Qb10*ps{MoN97C>;fNyLxS%A^1BH8J;= z>KI>Bn8)`w0j8AZ?}>!J=WBXoO#4YPru`tP2Y-;%gFhUqh`TN|YQ7G~x9h$pPbdU5 zDOYm{=Jn9g9H{TEPL+EcS5WC}{}#{Y|MqB($9q`+YC+GA96 zPIhlQi9D3@IVY1HCubB`PArFm?+FRK{{*V7$7d99$KgtN910)m*o*@9CMMpUHKttHxv@Xft zigu3OfHrF1h4*0>FoSmj`bM)8nHzTi*+^*H4n=8j+iqNF8#;jkB>>kShViZF0|zJ} z6ad?dBFT$Fpk4;sx&^Ech2Yo>w*4i*`1_?o{KF{aZ;-z*VHi^Ru6s6`>ll1e46aRc z;bmA|0&DoHlIYCDRphg4T5!P?(z~z%@4||^RD5VzVKlo;(s?a=PbDms`s@9*@&4u| zGAXGEyTnfN+n$FBM-+ZdpEAs4Uu-6M`|~?jUhXEo%}N+Jp=S{Y)BG%SrXb*c@h_lo za4NdQ_k`r%_XPa=5KSZaYSBsZiZKx4Cx20aRUY|L|)i5QT9NIhm*dKqk(C?9@Kkz%bx zNXLrT#2^4t?N-3XNbx!H+>^;6fX1kP8UqE~7$o*VJ)(2ut!v}G{}ZLd_Qlt+V=XPc z7YNj0%cL(Fkvb%*7}z`8&MD$kn`~Wn4bIHRbL68Buty)nAO-a~Yd6%Vpgtvqib@8Z z1Ud;i+9qB%A5N#KihjyH?ffqiu4^Ie zj1ur`D&z#BT9V4&)MrqX+x3rF z^p8;nWp@9hlQ)^Njc@ZaSP=8%FY{aeZkK9a7UL4jHp<0of6UX!%fJ5P5iCv>f6-q> z_ua_P?Yr?^BV9C)pZ7VbOl_oNDw)qn93+6jx_(2*WXRRJQe#fZ!hfhoz@26#;7k-$-F72m8_5{pB?L=rNBW*PJ)}t^D;wJ&3PABlx#SBlL@|^i%1~sF2CL%J5+jMEvW2c8NnuCxXdkt^@IwQ|C!%bwVhq$>v zW|*|t^weTf6SmhEuIald~tm&9)IDF8T6;cbD>=* zo{v{L@XU`H3j4yfnEVeMr4z zWEp(Zs(u42t2v~ZpJ80}W5$LxkULuBSZV*55z*tPbo;8yaU_2{>dv25h#3)mzCzNs zA_xiiCtBbk8BtO|**9w;hhRb8qJrfNE^Pxo&ak)SqMz5IPCYMEfl!zs&1cezx7Xp! zH&LlUfXo;%)83l>@4wNaou8>d7|opa8U6YTIm)@r$#*SF0t=li8G-YZ_y)T zLp{y}C?FXWKtiiI{ttG9C(K-IaX^b6^WnEw&)@0kx!|p&q2;NK_ z?8v~B9h3@Rx^$IvP;F@_{36&y5yMj`wP&VY%q;AgiS!1^sBKMx)Z$B`dS*UKZ(zlh z{T5s~@#&1DP`JdIduF;45rb^u&ZT+U;FcfltYsnoI3OW7p^$)UK6UYdyfRvS@qxN$ zCiV3Lx>K(H`hf~3dv!fC$(0A()hiFwcBkOefW7vB`|z5?di*L}!I_ALVo2FD)5yQo zGZU!|&=;7lyKtzi>$F3pK*4L^ADkb$kILrz81uZK1nO@(*4cUwgQ4$UDWYgPakS$v zsSl*W|EF~EKQTCm{#X)gxeKlqFz;>$sPF>2)7@~}?i9V9!=LfuVH8*HM>?+DXY5X7 z-cbyB=3G1lv^wjTn6$ry&-9mg+_o=}ni>#w5MI8h$?V?tIl+MaIf70kg14OCBJWO} z1Id1h2lRdFb_$NOcG}r~2D7&R%xxr1K7Bjh*>UQ2d{PjF;5!LcbF$Q#)YcBxe*$dc ziBhK+`s7Hrf78z|tjV;C6F!c1>NXl+-*^Q35bbou>P{;PkC4jP$eXURBc~M*Y4~-g z713EA{2Si>9@L!^Gg<5;Q%n|OCdSc2-X#c`=r7~mb<5Bmnq61uFy^nD@horPrmE=vq+G(4NRUD$#u2NsG{M3qAX4JB1f{F?wF-&{f$6XtlOP33yaoBq%Lfsb;-Yvkp?hx&$R0GS_^sv8+x|a*2t@l0vJ{ zAh;4-88`|Ayyz1Ulz}42fkFr^1>1}w$%{gun!&a%Nl=QuCAL%})3Y#4?s!Ms^^`5u zDqdf-x)-ub_*eIGwl-V>s(i!hUhwCCCVGrzA?n(n#=q=;dUY?s@sz|akYME(RP+Kc z-s)bij(LzA=b>MHb8!%8V#M0kd$r)N2bWkceTa3ddl8LM$!s+tke2K0CP|OfOr(FB zzM7HJKZ)O(x0=pbfchZ#fsW@)9F0y1jY2E`NXU+fh*GkSurZb@$d0vDSu(!r95O-- zJEyY@m4rbA&m{XQ!3_a~V!P>BvVZV79fTVlS8+}kh0R(H8e7yr&;vkY1CTbv#Q|1H zT%1sPBohmp;;kmt!3TKCSZm={lhwP`B(Io|?8V-a4>_?l4{~B2+(fbV)emcO1#YhX*hP zD{xoj{U;?O0h`GZC4F{qAZ4TG>F6}bIuXCGayCb#0TU1umJQb5R|yUaD%-;)Ou+Ed z3S>{Sn1|2cI-Z)I6y$K&hr7Boz)XlV9l@Yx1eXZ0IFbPuG#trvmZ2~~b}^h*gdNFb z5G>5a)L4b&`$sbMkQt9;QV>@DTIJTimSI$;R~ydBoMY1(GMr=gZMbR-Ej&g(9?2J! z%5~f?=ZJe5IY-jS`IR{eroSB6Vyg%6Cnshonad*NlXsS_{uj0HvKYmG`%3yP=GMKp z#LzwDxO>2N&>3AXi+AGb47n)&xmqK)$Ny;z<0&_7D}|&okj@ZWnDq45Bm2uUX15rj z|7bCl?1>$>E1j92Q6RRkrBsW7%dji^XQz*?V^>X!INHtrj(&bpMHc2AE;~JPQm=IC zLnCkaoiQ6T>i%j$=Iu90=XV*@?~H-@L`Jp9l|INLvZlHjsWSUJsjrc5usUxs1DS!H z#4eiq1{r373MuorN$`gsHv#SDO(r#DzPN(Fts)lFNRunk1lLky$1~~#;_@*t z5&u@mO1o#+g`ckTb`E$eKWT>O3VSy{UR6XA>%r19OJ|5n`*nK4$NdLUyv6Td75VT^ z&q`{!hgss$$#n{Av`IlJG6gL_tjWwbQk$dytYJ1~#xu01n|<#L$V#he&!Y_4CT1!% z#qK|fs_&;#GnsuJy1a;OvF!5@e$hTpm{j0%%U8+veX$fG1`NM!i*=u8+u~{LqFgqc zZ4BGz;T`)twd^y?Jtp`ayB8J5{lcnud#H6Dw*H{UWLoDb^M^;6kJqsJpFFGqn=y}+ zL#1On=#d$}+L$%{D}=+g*baIW_HX+_Y)Z`HBfxwZLI&I7>pgKSa!ZZU_*2Ui<4=Nz zkCK?5R}$mTaUMQ;OO3*KC(a{nwwQw+Tcewd`y(HZ%6;vLh&||uD2OAix!}VQe#+gbS2Jq@v2c27$>fEi+1D5HnoDuk3Df9P}g%+6Jvo+)3oCx`{Thld5nj zL?vH*4UOW}sDn79n&z>MxkA!PJX;|XT|s61dJ-|^5V7|LY{vKdP?3P3Vi~onp|LTE zB+R^qsNh5hiY3W#x@t*OQi|Cm;i-=xX^H!g-s*2uCL!ASe!L_nEnVYDr3%(~JpO#@ zybIpHHDV}lji-n6qntG!p&=WEx7QjE(6}Kd1$#Ha%Fs4s0Tdq>vUrGpLasuuQWCkAz|ZpjXy-l7%*^y~bHf z0m0Tmp#h|@t~)M)dWg2I|J-pU`A`Us2VmRpLp<`|-|rH9f8TMb<7%*46@s18MLR)J zQW5$Szq)z9C)xXFdkvsJ+G~Royv}C^`E!nSN$^LDd%j3KJ zNau4I645vCnd(-f7&M0a8guhkYZ9T>`f|BE?jn>qq!&7*SB+Xi4!>|)?yS8a=`k*> zNfbh#tx0q>f97*Xf)J?lYZ9HU=Q>=;zH@`dSUv^UezwCU`p^12CZ@e6Pn4hZd3Yk4 z=>`e|a+=H*fvW~sb_5mb9|ND=ShZ5hH`rtySFqPSPzs zo0)V=*8SEH2~LZ$k%|ApYb{qP7K+TldwM>7g@@3KRrCx0Wmb3+`88mLmF&)2f_MMU zTh5MsHYz>1kL&`fJ8$tvcHT1bi7Px~c|)brEEP`1ER$K``7A*Sb6X&$Zo%CUA%4qM`x1V$nMAE^ z-7Rb)MOrEKjwlhl^@Sp>bwiPsU5}~Kx4u%TcyF;~-I!Hed!HJoe{H1_PC9~jO>wKU z0|tep;Of_J3BFa{R!);%lhn5I^;_}&6)bpdgQmPaJ@Fzi`Xq2!x?5N&*Lg@>m9 zWhj2h3J=rrzmbtrU-+9=cwC81rwPA!g$GVWjVnCnV8}z>YhwKnSpV>-pSkM_K8ptr zTf<>zdA5j{+s=E)ojvSA{51{~?$A?@{;TGvVEy+()9~ltT<$BB`p>_m_u4V9lQ`QU zY&rdNI|sfQ^JVVheEb?tHv$HO#i`r&BaxCymj`HV@ zu-FNq>5``b+~vtlJ&T<{p>VZLMa8#iEOx1msZHI<>L#*V77)|MMD zl7=Soip&{^3}0iYBux7_J)HckQ8x_o3gWz_y+9^-5e;>VJ^C^`@dB|2Ck`6VOiPU- z?`)8q0YiCsOj8|;ozt7AR?#<*UAs?Cz}4Ib5)cUHht$Z}EVW9!o}t&utyCYMVoaVj zZA>1URwZ*%Aeh(xjFIXLWAapLHMGT@8dUuvrd!qOF`&|U+h~9j0=LQsF-venOPWdV zMly7xhj8BIGM6I~e?pB)K4`zue=ps-u100H6{#c#miLxX=aw-sQ0>Tj%IRUitqO+I zYPa89ry~E9$siJkI9e?PSz7HZVJRAAcNsSA6hEXk z?UX}>M?wds|JrMVTEaI^;rviDPZ3WUV|sAV`I81MXNl>-hPxFC)R?n4HZ)b?Y|%_r z#OtLtY)lWbL@VuB)~ztAZg6ZgV&}1UjHA%9OFdNqdt{GD*4xAWeA0R=Neg2V6pZtH zY>h1QjbEwtR(Uaw7WYVfJ}E^Zx^yWDo@6G_VT^+7>C5m(ZIl5ZK%z%H5SLQasdEaeP58YCImTLIy@+PC6jM!rS9C4XT zXdAzMi=qYqzsBT0Jj{79hg1=J_&<7zx7N{W=8QO(>?3?f+W|cj)BSD!otW;A5W`&J z-&6I>ca)Mxq5hxZG*L5`^&-$~v2grq3P7$eec^$y>`C~-Bj;nk@E`}#7am7M|1Ugz z%2!jW#O1P!p2uue^(Uvxx9b5)_*x3F|1tV>Qp0V?6x|R`)tW-R0$W8MVfDmKD;p{!FSBhiNvm=T9xwNHs z`LJFoGUL6>Dbw%4VY?-@SBk>^&tTZyR)Z6JrO;_5a`>u~@Dx4`$I?nv{c*4X2h$(1 zy76GQg3Wl;)|3Dv+$^w}yRSruhGaXZM@pA8RCpi=`Qyms^pQ{?^+-Ufx&5ORq-_(p zo^Zx%87MP_f}M)gS(D~W0$5LK-Gu4vb7}CJ(+j0!cP7k!Ej_UHw2;Z3$BF6CoUtUW z_~ThnXdMSPx6eba{)M2rFRAGf34UG{c>^M0@v$N>^RtMu>N5}vvWU^BAUkqFKLy8| zbpx|VxIBv_7youOxleEzxtbjBSehKcHplD9ca6-ctKHe>x?1Axi?2pl8v6lPsu8l8 zxA9!LE7UNfoSdG|Hk3F8Z^PZ#tQqWf-2;Olef~%t%b4vBk zae{wrp5ROzE3LxEyP8ZB*oWL( z(XB25$;q|us@>{XchzD?mBx-ar;XpDpyBT8k3~&lEDS86m~~gJ(d(|V(eo6^6bNf1 zm`E@V5EdKSHQN^1M6Ye#Rm2UglKvMRv+=51T*PfH=hHVSNqG`8u{SvdS7h>q4}G0}+`7;|O$Du`@A!ZjsCQkGIIxq$Qbuc(>fv za0^ZVT{3cK{WLK48uoeW>WGFO zWZ~K!U}`94k;#<$RoE6KS!CkZcg51;xGpXn5#P)Hd9h!WoULWWgfrUT-gge!|X^xih4m{}R33m5mT;I4*TX zk~^<*3gl&?h_rNQ6JYkHrcpP$nUTV%{gIWZn9dQE8m??`!6+DLgM zHhG-fwQhi1UKK%`TKZR5m?!0O)wJ{Cx{@d5GBJWYi3zvtiba`E_@;@7;FA>qcDba0 zQ2Ax1meL(^zIcaRrrsqtrtOk*>OS%a`E8rMeHeOm4?3}Au{=@!Ul$?&Szv5`uh3e$ zOCGalgIwLG$X@)(+a;6R;q}l`<{>*ZP?D^}0J~0ZCMh~?8R-@#V~HlI*!W3_!uQG3 zXx9I>oP1*?zay~>_q#5CD@!Ve=t%Dm@X|hzt6Waigb%E=OUFB1IxGMFdvaQxMOR-! zKm3q@4w^v_IZLUrAoG{Xfwj6s4peb;?yu=3^oi6*=RnK!p62uE*G zR3Z;S%K+y^4vyuSgw{NyZSoO{G|k?#BdIzkdLC%LPrNTE3PvdC8;YHZ-|#o7u&K>N z*-t}nIGL!KHHH{5%MKfd)`P~7qdFGHX>1A-(d|HrZd(~i344hpiHwt#8KIaUk10(< zUX02A74ZZw>WRW41jFA|IKMN$s}PC)U4_nBpgl+z5qwlj;>7ji58|0}qp^s6k2-yh zAHP$>slN>)iW(-kUSZu6tK_yhRpK~B4gU5-Sq;@&oR5-D!)?Y<{NrZIEVjwa_@6&% zNLQ=9r<`4y3)JwxsD*0>%an$v3G-r%O8+#G*<>QK2XlR@U+(2d5n)B8(im|^VXU~L zFipJ!R3^QWtI#VoKPyZ{N+n5S2368U?35^ymO`hbkx#4eP8eq3U!SN=s~(iV+ddrB zK<)spee|Z0mDX{=ku5_FX^7A(G*q@+l~t#()pSwK^2f@T8|eP!Lwm$&%^QfR{|1tq z&sNXosZm_-IjQ}AVhYT4BLF~4hq`0zUmLwLD`M(MN z!d3_sg)8i0sGwEo;rb}=VVJc~O}-@u^{u@j^7wkULX^mE6_BHOe~h(Pvta4jDsb&> zSW@=@(;ZC5`?nDEBTfEUI8BoU8Ko_A{%>Ktcm8jwLYo-waMp?lz;lRuk)X4?HF~dL ziIPkvk?^nyMuLk7cepxiFb>$_+-7UBTlT}R_`iSnmDwxATFjNi-Nw!T-%1TmF#Y4^ znhSl&UejK|YTPSuXc>jgY5*Mu8k<$WSCEtM#Gr1kpyNkI#Ob-#R)ObR1)Er?y3yao z4Dp4NWz|j~dC8d2wuRzHU1wst<}uW*aB+p2x~1ZkOLA$`!`r=>FJhu3-0&}A_)*lY zg76s)8OGAlHw~9JGH0~K%$yT+xtnbneMajM>5FHy@_jS^#^2S3x3Oi+yZ;P=j&-r7 zZ)P5$T^F=+Q-z+GhF#E_hGVO;XPQRvnU2K?O};>DNDd92M{bm7mFs z;O}JGn+OJt9$Cf-fkx#a=KDZP2Ig=6&jlaCGwC+Voq=TFmce9X*l(;%~S_Xy4=II#6jDWfrzx_qNxU`;0>`x z5?x?!b!h;~e>-)Zf7tDDx&{|4A{9IyHekA*-k zx=`{z13vw(D9DK=DdaA-@L&Hm<3p1%L8O#KFJ}J*azyqVbPNx0=X|u<0CGBIbL3Lz zWRlA6Y=FM~N7Y0gLeePzNa%engv{eWR;897K6f)QRee+AR8?8w^Q3a_=01kd7Y2>t3MD?%V6g$H0C_qJ0ObRU z&KK7dgTASO!K}0wcGz>isY%(JO)-hgT&UFc<`QuM;hP#|$u`y8&5`j`r55I-5hOZ} znkw`P#3FST#15_@Y1^2oLRc>Fali2(ME_bUT0uI7EccjxqC7w)7|moL^vJz5wd6$;Lq&)iSRM--9)2v@3&ZX`Mw3{xCXHE8*z938-U&} zfZbOo8e;-T+`cPlKy@X&*!ndf|5t#bzX~trE>AQv?QcaGj$KI=o?m=zm6`wYiM6pF z|G8wV0SABf!AQI53~O}j~@|XEp5w zD*DhzFyPyrwc1$PIu5uJ5NVjM`^UF`r{k;HhBxJ9)@=iUG|jD2Dv)au1u z<7?1A#HKma4qbb^H61M#nx%5u*q1e zKE=()t1%Co$BJ#Sj(MeO(_Cnn*3HF>F}GCBnShv$OV!QBi!r+t8|E{CnIUpAUEDCA z4rrR#u_GVF`lsTADWwSVSgN++;3lJt!!`-!i74aXYWK)KL*(-(!^zz>aFMp!^{&|v z{8o+Uh5O^zeg+q3Pr|$Y8fWI+)mdZVoYYsUjx&wL^`pm@;&F=CAB8K91g2mlTE-#n z=Nk$P`EF`B?n_6d*x5?lmrC4;t_tx9RG{P)6H46L-ToUvU^1>2os8Skl>{geP(dQZ0aPORP5}QnY&f_$lyTT_aIq-IfVUXD62`+HcQSiq zP!^0F7s)%f%E#Yh-uDF?a<50apH^+9>E+4vRhnr^R&i-f$;Nd>#2WN1O`4L)+ez9| z!kkG~^If8s|2tA=S16KSRQKTQGcSrc#gT{VU-jNQS19HuA3`g3M|gn zN*HY~OG21k+e>p+#$T)6ri9Ypz9@w-Ua@JFnRzuz$&b%n#W9l#ihHyeFNkW3u(qbX z2e6*nPf<#e5x%cK7J9oE(m%BAvdBdu+hJH56<&m;X`hJgouEB!^i&&=Pd!v z{va{|8dZ`rbKDN<%p61Kt99g$Z07_0ss?-Y?Fuc=y!E#_2i9N1q6nObnE8me#zR=D zkA0z7%1_$zG0j(R`PjjY*k7Ea-zBWu@IbS1k=xW07U(~Yz9&wb3Ax7Hx=AxECj|Ql ziHwAd+b~#{b+{ly!bNzAG?L9S<>(dX1-<0FK)o!mgR=yE;UU54FPbYP53y(l=AmF?ClQ`Q)Zt`5%delzDG08|G z951_xVIYJTu0P^+W!K~E<-MUawme*wS2F>2f*SYcTzLwKiyWCt&Ui2nSUv>@W&7~7v&T&h?%U+rTM$7e7Lbac^;!6g=BGCq_Kq7p$v22pbgu&<&kMx9{dQljk(jbi zHn3S=&2fI9+CEF?(~;k_>oV^sAn;JYHdO)JR0Wi!;LGsNL!$l3=k0Eg*mRj6P}II- zv)Z~4;p7BG{q$VlhsBv)h*^?d;+~eAUD6W`uxuWGZQlhY*?ciWWsvOON_qkU{u<0I zHTDDq)Sc5-RYG**jSYj>wWv%=a3E1e}=1_7o z;2;%0z*Juj&g9@s4$kD@><5_DT_K8}0(Mf-f(<0Hp#wfB2inO?%U|B7>xf)%&?md; z#b4@cNSutMjZ%|}D*@R}f6!TKqUgjglUzk8%&lR}^gdz2Lu-!Yh_VVR`ZB|T`?*f9 z^nPyJ8obb}wd8IqbkdzWOq=>KpUYJShY-hYU$%q@JP7cyg}snS;N1a(-tBWT;v3IQ zBay~6&-oxh(QQO@C+=%>eP&l4^DSf~^@K4{!OMm1Ts=`kYLbBo&IIBx)I!vd`c&rlfOb4oPN`VLCjg=5c(?mP=*`{nk=H70fOWQDBlTXCJ@Td5ALM>ry!Tfmq=3*u?GW#%}JamkP#~agesD-;So|e zBXT4xQ+-JYrxC?QL^S}rYB0E!IQ`^HdD#g(@;{OWFry_>YDF+F>pNG;)1mNzDHRh* zD3LSjU?an8Exq|K++73yFisZTA0Tnjc9k)A!K~Wx^|cf1o>-54<{Y~x-jhK0IXghI zX@H&1OvdsH(I$=bkpTjonhn#*c}VQq;r}YsOg#3pw}d;6#6xcFO?$ zz}SM6f!YcfG8x>&H`&Wrw6okqd2s+As!OM-t^p2h)cV0p$|!G0MQ~y25IV<3s(bwX zEGjJV4q$hYOK@O4Z}cGMb5hMypObvHsB82?^)4yIhs$QU^%3RubKveEVd9*b)2pY| z&8@$yCA#V7XGP9@a910%vhMeC$Z1u-!}A`S`psy?P=u>w`&r2Vc7=3ZIi#<->&xj< zqS;?=EVPgigsikTjefh_ze@t?YzxCK8N>WMTB4^vAoSDaEPY_0L2_Uq9A4ZUYLWd` zV4wLe7GA#*c9*26JW?Tm#+M?bLZjhkf14{yzoFd36ip53DsO=dy)}4s zj{#uN_%*IBb=0G{OUQlr!;!V#17Y-#5oBjsLNrxARJTQC*QSRtoqP~KdsI2iL(Msq ze=Q%c(il4#HJCZg>iD~-2)tYeeLj>48Lk)7B_YG51eO3FLLPa7Fo%s{%!M&};iSYe zR?0s zFq7RyKXS+cVK}ItFwlLDel@{}X(FAv_;P4sAV(^PtEmGy1=@=xObxm3ppCnS;{Q^{ z1eMVxsq8L!dft%Zh_7QQ&_j`Fmm)pyY6iPYnU<%pzqbG~A*^S2snYUfy3XpHnVnct z?+OBB|11Y}Sex%sr{&3YpHs@2=TZS_0NF1<5MNyZNDIp2Utt0==!zSlPHglVw$Q5K z&1M%XLO&z|ngPftlKzAUk%Mkz0t^u=Z^ob!FU2k{El+9xa}l7|0a?WB|C0r1H6WW< z_wX@5M*)T7yu~!ux)}Cx-Vu&L@TUErzEpCOy@{ zC&O5RPf1UG_%MV|O-~Kto6}Q+Ly%-3cwBla^-x!6s3excq$XS!IyEx3g=1UH(5xH6 z`X>@PxOADBnS4Kl6NoFo~V`3o> zxkuFlVEVjpAc}uEf*f(d@USrQ8KC;TaKIeNr6d+cLljc^CNKlUh;V1%%1glWt$Gre zfiE10%^tTn$?aPf+8-Xa_w;vmH+L%$3~o<e+%t_r}x;mQW9hbpIOg+5#ftfLIAcH(qDPWRT_b9NUuSZx8+_=YrCohl?^Ys5@5 zKP;0l4OR{R(%SuSxkGCfCk1cZ&*w+lVMmr5X?Jz!d@18|BJHpv%ZjwSecnjBK{erC zOh@L@Ph7r?M*-hd$V~&`sMepp^b==vI#&H%16u8-{!2eG6x@EoP4&lGrlT+F>iWW( z%z=53wtI0g?8S=?c}?BI__Ujxg45jOn0Pa6=2Juetr#DyqwZ+eW)j46yAvUSblogr z5;_&LEi@eQ4YL{&ZKudO4=emkoIc_CGnxoFlb)hto<9>p-`BZ1H1~C^D?%<@QSbcd z5?{MLX)M!wu!)I~KMLjseHeH?fOsK#=SPMv#cCN=kCq6MjR_(!&Mx!9_hg=rOk7cr zpMTP6^qLi&!!MAF+l;0|7mUuj zL-;2+#DseJg3-12r4YU8B|zSTsO)~xPKp9AVm_V6TrfKLy%&r`RV8Z7C^r*mReIRa8DEq1{^jVTr0{rY&c9S#YR^Y3;c@O4jm)!i?2j&hh4bV zRNE2jb~M5?rt{0I3I3(foj+|1_V^bclqp)R234yywqxNznF;n1hUiwSyQ=}#104$v z%A^1sFq!aB^8qxx&-q%doVV5L?5?+yxIlf*4QALeHSewM(73&`w?gzY-O2~1TOXDQ z7nECNpLwXUMu}oNq-xWxF^9?jIj!I4p5~nS zYLi2J)^_n(+X3;Szznt0I^Q6a80urz8G&>ptr9oPD_FI z{@HKUhz!Z!SoxgUpgm?~w(%-v<#VwLC5XyvAAR&AfMQAX!FeMECMtRP|eBL zLHZebK3?q3>Fa<#4@cz$k&*KRCk_NuE1r1i>Ao|+(gB(%l3u}HTVYopfRoU3`*&85 z4hJ+@?0EN8RQ?nLut>3YMh(9{wleb#;}l$td}w3Zms zxybhG<4_x9n~a!=B9yUe$eWIekz!DWb8kl}vL=xuFTnU@$bmRqXyMUN<)u*jkQZHK z(o4xeEIJx$9)~IA;a%V=sghf~{f$UlR>5nj2uU15w)~Avu)a9@g%GnNhR}N-Wg$d} zoDxHb;Bks+^m;Lk9W18tuZyWLM@-YkiD_Re(%3@h<?=6zd^$}_pUeV1>gG1 zq40q56p&<19Ov$OB93#mK7nm6FG_A|)y81M-m}kpe64X>)5D}HbpzDT>e`Ou1xV^p}mYb6s5!7dLJ;hII)I&Y4cCyqRn9!(q7EBO# zPEc}pjQbfj1LH7ta*PAmRfF1ABr#qjZmJsK-m#7PB;Q!_+iTEXcR9vHkfA<=5+04f zUH;L)!fh3~+oIS0_8K$5rse~`y+#ZVQUmmAJ^jaPMK`43`_}4(=Bki$3VN-+N&`2N zs-KFMlKwpC{qQ1YIyWquD~(vb5WU%?M6toeiK>zMT@G!q z3M&@cR`kG%9$3+XeMaczW*T8bnPG$^5Q$oF3^Y=)LZr$_4HEoFc|)y{@;K7|Sz+xB zA_|FGpn8c!eS<`zO-Olz9ZgXQXv!B4s;)SZsw-Bc8lo1d_9E4U2Mt&8<8wGWvznvC z0$mag311_Jh~-ka1*n32?T$8wqZSbLBB&cvi)4!G5-{EFSwZu^|7@c9uSIb5{9KC<%Ln?<2NFeH1nI@kAi#lo%9U`$GX_ArO2>$H>DTH|Vlt5sO4FpNK zVX*_scqNB2C7YP4a8>x#L;I2AdjzimwZ$A2Wm+DCSvNB!$k=$9zDD#o9CXpi9|b=Y zWF!Y)TYyi`8yIy0vP7fm8)Bs1zNY+|@bnnD3wko65Ssb?K#ES5(_?m-2M6SIpUq~M z*6evgkxlV9bjRO#5-l8qh$5iOrY`fUY)a1ui516oqvAM*g@9VD(4c}1&ZZ1CPzBcZ z-K{SfX%pm`Cuqe%s3OC@9+Tw&bAlH9)hFl{cTng9?9P&)leASwQzkuB)aU_PO0Row zPVbrzFuVj)h#h>`00B zm1D6x^&pu7jQnK^_LdUhvQU=vmITeZj{m$wKH{tAc>f#yC5h!>6*dZQCL6GP^<0gg zXyojW_lY&nEY)?eH`K2qUdiha{2qFp7*Ze$LS8yH1&zH$_(N|IhVM4gGKbuEhVaHS zaIao}hLD$4y!8wTGIpII%Bg0!wotmRzWfCtpQ4FRiSv;6Q^KM^eL;j|=@%r3{}D-s zJP`2(8rb{=Y1E)MHbTpN66FP=T(KvsX|jdhc8x5w^TQU}X@`Hbg>d6KF6*c9P><({ zWyY#K$`3C#mQxV4luO-1q`JH%gmg<3+wIEa^u}_i;aSQRadG6S32ZUjG)3cn)=npu ztGCLC?(0~xatb`pvZWe#ZMylJIC5LcU?Ennr$vX)eyD@Y(730iM@3p=$sEJ?s0oQ^ zBKhOk7Go1J3(V!jatqdb>|ae}l7BQ?t8p(%kIlBG*pqxMB<&(ynB=CKcP1t8Z6Yc5 z@TQ$fOp4vjE=6);(eWg=f8p^YXY@jhk6n+8V1o!Y3<^a!>7_~T!2IJ$hJqb?uvEE{ zWSVz8Nx5SWjp4CtF7U0F-fQ*Fg~!%IS$E#v178cC&>()(zCAj3U}k^2t6(Nn8Bo9| znbhBY%I$-3x7#raqhx1xT8w{Wf4kc;qQBkHnUUu955ESB^Qttvp$g7{D%0$Ct|HCO zm8aR+a?Ic<6u2?~WthM_P~b{Hio=G3D@J)pn%z3&NRr!8bR@~yS$HH#@E7jeBk+NJ zdm@BudD8SaQ_k&3L=P&3E_k*y-OhQX>88x{kq8=u;kP5>JhbHp!hw1;5>Hq9mPl@Z zG~F-&y6OYOm0Evk`u{v*dAxlA^|2FspwD&9Es6Keud_4nJhYIT_8xcY-dAMO=ejfg zo}KwYmXr4l-9syz)8L;1o@eSleot_qfO~R3CH<7gAEt1dAcb*u+pw+)*Z^5U*3G0j z1D2F@I#t%oXC}9=I929USw;tkVmOtOCcS;7SHLLZ3!vzRJ>63>+4!_bR>ai77^$yA zEcWWsA$7It#-~O1lqd!-N(61t0-+TN;II1jm84E={9JMSH3~O%N*1pD=L%D~N6*ho zNhcI`ctx0RAGt?Kj)d~TQa2$FLo0^hkr#ccSH7-gCjX<+A>ox@=;3Vr3w`Zg7?fiRO_|MEgeHuupjA=iv z7Z&R_!+GZO$N8Ymc+({J@)ZKLFI2*jf9>IBUkfW~jioD|-cu+#X{YuwiW6y5O4-#$ zI_EQ!5M+MG7+-6jH)BHW#JU-^6YP)q=G6Jd zO{=vpnG0#UpU~zOR`;QdJoO{MR-ZOP*{i50Xp7?19!2OePf-3Xj?2*yU8aUGJ}zix z1RDs`_F2K{7KP)h%LaH4vAs2fgxiM@jhmFfYniufNYQbgSW z%Kbl-M@0PwRMh`a(IV<9P%-~Q#fqpCK*jwJ6)&P1flBxvN*F?@Fm!@X970G>AxXrb z4}7wS5eq3O#5ak3NF74dZbJEnWhDPz^MIpnEgAMsII&cDpeh`IbUK-BnZWvIu`Q_( zP`8X{Tks9?u`M-hOEudvmTeiuwp6h#m2Ar}wxxn?DQ8=TvMpt7O9|Uj%(e_+TZ-70 zLbhcv+fu-`bhc#x+tQzHDP>#wvZGn} z$(`7MfaNW?a2ngvn{DYO2AI>{?c>nbAkJ8=g}yNi(o6c2n^CIu3{`VK3mp%BozLz~ zELs;atM71$!~S{TB2{uQljb6pf5Cv@eHW?3CP<)mCJK*(JZU9<*9V?u>KLTE1Go_Tk=MTjBZv$SGM=Dvs86YqW z1p-UEs>gwV$%5r0z*-PsVifSYNL0v3Ge`) z)DK4k`v6yhz{7$dGmj9ro5LefjvkRX?AM>8Naa8fj6fHnZ%ggJo<$2$K;Sk85w6WrVc zR6mC5892Wmsu4fMlIExEKPhn+As`4KmWrxeV(aSDwYk%Pa6@U?(&5~O~+poO^L?sY75gsJ49|)Op)tf-f#~D@-)Z@9%cbgWVz5qAn z8aDbwo4`N=>cQi+7~GVRfFB1z;geE**JBbADdiTS8suHCqy4d{#=Wr&K}4`Fbe*)S zOiKZmfP=0ev^RsWZ3HKbrR-O3p}lc{DG-$R2ci)KzX5@_R3*ZbK>+bfn-m1YYG~b+ zwepEqCIUeNQ3YS}U#*p+F_R4cjuGXO#Mq}JFng~g`ZoC-$E*4J_US6=wAy-&JDEg} zT9r&{oUp8jBmqZ7n_SbVKT8v%*5p%Y=Nbz1)pRRDz^|r5kMvKA;^O)By*&`JyYfyuWzqa zQ43EJg@csjv;L7+VGopll_+i1*~CzsOf*+XMiE;$66m6lL}`Hc^Dz>(ge`W$0|h&N z95Iv*B_>H9lB93<=DCtf+2Ro5WG5=&=!L)qC_Cw6Vl0# z+MYuU_%4ZA6*8N|FdUgxVi;j2!4`>stU}J#>D#jkA}$rO!!&NTlC5Hgvm;_i$tc!8 z_B%8+>N{dK)S#*Fz;Uq!Ukj#+@4d0a4gU35KGei#UJm zJ#=Lp&c6u7UA9JK(|1o|oXE>$ z4h>9w#LKityi7+HA~DQBhKcM<@M4g#8Z?x9Pjab-oeD;#vD4WZ>`X8+n{7egp?@hd zQvV-DhNA2DB!==wS;eDlSPvsZn^X1ec@JdS6IE2)qsKOvZB7**+gyp%YqTDXNu);pG3;X*=7SfBR6j@}&6v*u^N5%E=p&xX0`@VHmj&W;X?VoT|*e;lx^-U^0E}Xxct%-qWK5)w|JmWai!$H41*2 zOsb3U%ZCva?0X9pQiorjOBj_joH<97M!A&)Lmf#mjc9%)ydqX&F)GnY12L*lgDePH zg2bpsCP<7LWQh`XfK|#C`QqA`qX~c^kFx1K*rEP8`u5@&dG;g~wfHPi&LmiZ`{(=!CgS3yXv2gy zek3Jx*{1k`5{jQ256+rQ@lw699*o6H*;172!B_l$_^Lu)Jc&WuW{}Ept zYQUEnS#OEa`Y5yYWb6X8QWh^QZHj08^W&v2aID|V`mLzgcxt zGV2c$A6RmN_`nt=;DI%zfUg9pzC1zdXi5QNqhQH?jwp;NxWr+JVJR3(kTT1amWU<_ zU0IzrN?EVCwRycsNgBI$&^7cvElPY+ zDx6;~!A#vBE3(w58Y49YJ*YNCiCnKzk(~u>o04r)Y205+WXuzUGY&wL&(Qje8HAce zmSnSSL2R3PxKu772)1A(GNw0q7$FZgS;ou{wSP5ku1Sng+!l;6qxubt{n9ZMKEcTO2ZsPH#9YUj6Fmm(84vvplgeStorL=^A&L zSgk1QsaBS8TD!k8p1gw48o6vKJ72$B-N4w}LXt5dQwH_iObwB05u*E7{pXgc+oSCl za>DeLv%oip8!$qOc~lNfM>rQXFp$oA^lw-pdO;H+VtOpo|`gyGhc5GshD$K;%!cqTEjQ!j`-0H^w^B|aS2SGnPj6FcufoS-awV!i> zVgV3N-0X!NY@(xjsEm|D`>f5?i``SIQcRpVCmvBiW>e9NAMZ_krO@OJtL)2`xb(Y2 z`m*mjcbn3grMW5^boMOvl(3u2Vjo(C-R2&^;*UNn?6&srLD~AVr<}V(DS1hrit3js z5{G5>)P!fUXL#Np{k3zqL&`A8?87MDnao~cT`}_NK`Kezj3o9FACbg9OyDD%L^AgV z8?z|-g0S1OC|Z0zQHw-ubftW0zKWh-S3kKWdTm%lOLS5s+ZIEZmgr%{9=0v2=KpxF zTcRH(SQf9yvwyy7v8nQL+=O^cnJNF?>_q-42ziITi@T7p#Prm&MwJ>9pZF#d=}R?d z^(Q_UAUek6G@D8i^t;QNP47weCoX+fsiHyEY&yf2H=FQQRWzGU^TV1==lIGVxC$^k z9Neo^RJvFW=3XQ0 zr|&hH1}y^5ZPn4#vf&x_)8M%3Zy@@>FW8C=Rrb?U^2s19b=r1=qIF}H{j5>@lhskwhA&B@<)stEVmV}9q`1(Qsed+HB`ruv#=mVoW!bdYYd@)} zB7>HL{%g>0nIWykiVwEi)!6%*p3V~^4Z-cPoNy=Wu zd&f-Tv9M?x3WL9og(Q1bGeeOBh(uhsYK zy@5}t3T%8Bj_!AULOuJq;bSx5H-s%rNoxC$3R{@J>wT)Ck$AlCHIkv@5q*rj z<9idB@zl-kH=>9)@CH?}XVc5j0~2Gs?|?$o(M?hvfg#`BquRi%jO^Da)qLsil0X@Pp`etd2MmDdXmu9gvD|e7kd++R%6JLg&+rk~D36o17M-S3N_j zv+kUjo0&tj{9@Q?XPijM&P4fG3xwa5IU2%ck=#*Og~h!*34vDFz+g(Td)_UYaup%TMLQe&$S>z zuN|NeCToF?)CiJ(UNUFNp*<{tF7dlw$R4<$tSR6RZFHFDRs|#Oel>St`fbR=z{5zOOneSMhoE za#rvL_1u9$BDc%_cLzGfJCF~Y5R9N-Dn`63WvCTW3Pi$9xGljys`$DeRT^8|k1A9A zk1BeC;0h{8SR7nId4$)X`lsRxbrj3r|8Iu`uNK|li~iF~Jjp{v;*)$&e3C<2(4dOZ z;3{H2hxA;fSR`EsHhOU9M1D%d3tM#m@f?rS59{$)$JV574!V4;PCGKx7KHEw@VmQU|Ys8Zy#b(Zl zC3xlGgfK&*+#oc^u2fVBFB$ew9v&`4jY4+BDN-f);i@-^H=ZH}K^k_7r1A-;2qTn* zoFbltHAsuLKtpihhJo*dP#rC{luwB5&?m&1Lg|Px+D@#L#^_9u0EmGOmE=xKhhgiD zWiy{@8hvL;tcGHoV@w|scYDU4%j{djHI&`FuY&4v+3Q>7NH}boK#>}Xz+K7&DpXRy|5|(kPcy=9}*sXSn*sUnBTf@xgmaq<~A!GbMWEWK_L|R0Y&vI63$Z-8Z z&PqLe%vq_1k3K6+6OycFrP)F&QjhSSRct={N3r=4HnI6lP~rsFUE*zs4i%fJMT+<0 z0x+UVdX&%$w*bT+<8Po5&E&S}oTck;_gE{pn&ym9#;o6Mvwkyha zK!G&8dpja%eYKs8*g*Vkcqhi*S(5xE#U$vXTifUXN1To+1CCIR9gaG(%QMptg^dU6 z9Xo7r<#y+F15-iBd+jVTL)YPFJUg`ZC|&T%cjQIU&TdT{aRoHuaH0Id%5*$47<%?p zK5Sen(D8um6e0JBL3WR@w3#p`pV14)Vop9YibNb|4sX^|Fw7*mn`O-1%?hRuoUJ)3 zqMc{3X)+O|f|MG23 zpbad-b#SKgqWVh0TI$aKTp}tjqGRcGdt9pY9Eu%Kw}*L?vUocB73|^q7VI(ft*6*N z$P-$3l>5_QnAN(&8J*U;Bd4o(kGH}=FX#-SzSqeeCKO#ADUaZk&K)KcU0q2%FpJFY zP5N0@!tC3jy?22VPA4>esNv!p+6?hj8;=~Ovvr9LZKpVELmOvlXk*Rdrkfc62O>D6 zvzbs1X=sy9xFB>G8`|s~3xpn(`u$QHa*jcnIViOu=YmnjVZ*^`P*$Uig9}1g)zD_b zfep8K=Xc5VP*~nC3l-XFw8fL6Rnt>9etkW|0R}c#0361X`$^d;_2{{ML0o(|F|Q~F>#2R;#(Z_?Jz&y$(7Ham5SDhP10`53z1Ql5X9rBxdBkV-*Mcgv1QXmUtbF5U$oV2}J&7lN^Xvc?2Bxg#6id!U-`8$TKQzSVUz>T4&}&PkXzL$vj+o$#z? zV`0)t>?-))BI|4H%g0!YlJ#w4uhl%(Hb*4|b!L$$O{tdz&8>U9wt8+oyf*1c$7qSF z#}V4x$us9?LMv`?FMV50IpHFf7CHPQbVNJ4gdb5`Y%vZ_MIg^pHPRCQ2n&7sQ7%7I zBTew5+BgNGs@mex&*RmC5M!s}; znNH)XA=puEYbhHzj4eG~q@zyhg$UAjZ*mMCQs#}!oa?h_2inb_qkg^qv z99%-rTa*_1@}pe-RgE;hMfp34XfdLx-$`bazODA_35HSNUNIIJluoLjq?2Y$Wr47x`!d5+NTBypB`s>U7X9bd4vE<~O=RG^8VRr# z`uj(@{D&Gze2Y3v644ym!vq_nld@=hXfZoYD)R6v z`re#up?`an%WvW-h}FhmJO!}uv`XK0n$k7bR?hM-*0;@4QLijCmC<;~KZy*Pm^6z?Wy!{B070 zc8nx(wo2(&<--Htya^IbDj`?M0)H^uG@qUNb@S4vgV-jV^=gGmiT?ovXb?k@9j3Lk zq$dh&%k=qjQq56S+}!13EHu=6KQ>L2CgTOKyBTz%p!{p>zYUWEoN_GaH(9krJ7eDT zakX>e2jablH7OkYeOYdhXOd{yoCNiAQ2#AViNR-g>`>05Se3xh@0*0PDfqxZJ$+&uP)gdzwpGiA z4?Hcr9Qv*WW^yTy^TCZr(YYGf)J>H{EFUvN(i?{NCoRt95hpDA!Jk_6Rl!6*{1Xd1 z;$uti(H6}Q7X4H=)Vbg`X$Fp&@T}Av8g$gT96A^Jp$?*72>L}H!Y=l}x37mF*v@qc zJ#Lsqu}@-8gU2{>t%~>Y*w8G5wt%kxb6dD^yj59N^mt zHyjcm>}j^u&OfCz9!@MQ7=Q+1&ObFwbcrPWYnVCx`KrXisvVGFUdCC|w!+8#iz^Zf z$4r3L&%c40j@{vW;x4$p4Fis>KXDhX-$vvn5?UK~I>zx~^-Xuz`^_P)*7w_u{QKp$ zG?(+8HMHqObBMd+czcMe?s)$Y>+y1%yX#m9l&g_=yvGbS)0^csXXhK@7$PRV*UN1# z)$31jrq=)kj-s;QsGSU^j=~r|iq8Tp?4@o;sohy`@WdT+rg)MnWC z?A;_9rfmY~*oc!lH`#HN-oLz%rwb@)pIPBY~; zt&sghxh>Z1Ux~ppdL;(Wt`+4r-qW=VgJ%l{PaHNJrY1xRX>EeiSkoWSIrhW6XX;;W zel!yjm`l3!o)-ibOL&yR^ZO;i!5O$%OuKbi%N zL~x*lS?iz57ZOgHYDF#c38J#tcyZo3{)Gh7xL4p!#)p-G?}Y?nJVmEU;Q{td;Ht5@ zsD2YJX#!(b!Y%&jH_`9WxG`O$-h}s?ks8`i@XGlZY9yeJ;W(jg_~!{$6x>~vfLbd7 zq2Q*50oq&fc>-7Qrc4@pd&C+n!dJ)MX5N&k`RNg-;hgMt^%_WkR<|b*;aW+1g2KS? zx2t;M_p~QC!_^aHI>(`2(vm)g&O^Pb{Y8l7Q`jd|=YPY^so!w(hBw?K8ychVeoC(W z>FSBwlZUuHZ@B3n}zBEI+uFOn;A()a&{1cQQ5nJ6}qbAmASudYk!QZidkO zm*SEDVojP~mfiao-kjZA`F|#_V7YC6g&4&|4!0~6zc}`<|JSIg?U7MaolP&?H($Cf z<$oHLMhn;O+G1>dm(a6qF??zJg-nGlh9tzmhhZA6g@$YW6WnJyZFwWieQw_(@fSlA<1aEP7o!oc7RuIqR7R}8 z?2Mhlyn2(a>BF|o(MG&_Gg4braM!Jk`y|#d;F;JAwr#G4xL?$_8`MPJoa%Oc85_iW z5i46$u;C(xy^ked#Ip0hh>dM$zliO}w$=A_X6V}%9FIN8Hyn>W&p&=V_MwYkcs%w} z<5K8lw3zg5ue&D?(6>D%F)XCpFjK6aHFK`MZ4pnx=ka9djM_prD4pGw4egp(MUV^h&S`c4Dm{S=PeVh z-vX)A7(@Kh3M@AjM<-yle@|KfM}L-rPRL%`7QlEOcdA4JD|)jzKHRz7wj(;3b zVnI9h3CYbC^TO14C3ENxQtLOW&fMLkU1hzHFi~R;NAwX zz9q5X2zEu5VXvi~#ui8}QBX90DcL1pV1$Y;H0w#4(O6^||Kyf=Q9pBc#YxuSnyoPTp z^;)yT9XJA_f+HCFk6`RS-0X0+9>%xTixOgD9m3e}c)4fn?|cbEoc|@9;zd|ZSQ2CG z54;G__ivn}LK4$)0HA+Az-S~fT`!33?*mwX1ggec;`L(B1`5s3Uh;U{9c`Boc)V@6 zOmLtCpGvzfc@UHq$krX=JOd?n*E5$quGVKFB&KJc#tnKJm3#jMetlx%*oMl^t%x(X z6_9repzh5YiE;BKghT&gysPV_YaZ!y#mrVpWhkI%ZiB~(5BsWOS~5Q4>PuM|jQDM( zL@9g6qx^I<(?_Bax)tYBG^RC~a#!mbD9fXOfyu8rpK{9dxHxTU5T{KI2(`N4e2Qs4 z$W-$&L3qrSK*JlIf8M8~5tj|-tzGq>j)q70IiHSpcg+5DG(5#E^{}&Z~19VIS*f|xTe=0!l6oB1zpN=`(9sUy)q%vy_=LPUZ1eqhf54+}S+_TI_)_C~4KNP~*I#;TgdI zW&G|@uTVLGQ9WWn-$;!0e<)aF?v4@SWB`9D@|!~XtKjac5+?(dfPYr7$cm^+QlZzA zucu~qyp(z8C?#ywo{#7G1Lxxrmy?Rws=X9XYKZDeJY3joBtZt*UrjMvWWym3C9YqB zz9mD83F4N_lDZ0tzZJvF@atzm=4Y2b4Ce#a;@?C#8Y;)vpHv{8jicXW3HeaX_MHrm zLw)UXQD)l*|L+eOY1TwcAU;IE-`=5er>Zwz*^XY<$Jx1*>*Gwxp>kJ2G9o3R0NVf% z)Fq0>4T-2rKwWFX@pxMTfOr6V;{e26AIHUBA7_ZUKF$^sD(5l!xr7k*hj<7EL*;7W zok$?@rnnxc%$lL_Wc5IAM>|flMr2@}U2Y@43N#pW@R%IDy2%h;FV}?|;Xg;RiC#op zR2cRoAtc@#8b$2BP`F9n*;kUa(w=$e4++Be{KxLEFoD^UVuANtnRaIaq~bQdL!4@a z(!%(Vt&{?Djp_tMY+?HlDH)Z(g%2Riz6lTu>r9nuPq_Ri;UFaPqN$)4Heiz_%nu1x zUi(7=Pt77r;TWqch*W$@Nf=jRsE`{nKQTkthLjOp^p}(iW9c)LB4J0+{KW8Q?wXmr zi9tIrVFCCVY}}r-W9kCMHkyYHAFVIj3O%HZI7HN#C71s{q`i4q6i2rQT-`l0%rG!Z z56plpJqygp+QX_*1V&LoP!LgZcNA2VsHh+=sDm2CeZeKZMj?O+i6$B~#zYg*n21Kj zxWptTI%bm?w-^;Q>h~+md+&SibH9JSZ=R>B&pB1qJzZU0ed?T3=a8kur#Kbcud#8u zBP$ipJpa=EVxM@i-QAqn^5m)=8{K*aUbS%p9VHfg#CS7DDSWoK6v`P=jRK8C2hdm>euTwv? zr&5OzPwhTAPwfLGk$jydiUepaF$y6j$QT-68>c$GgSle739Y@~1P3!R%fZ(fwy^4} zqj-<=cg2Lh=Y+loB49I1_#DDtNQX;e4GRzl8I$?mp5Y)&-Te!onoDwDsI- zqlZLWXJz%hB*Y#)eo7GbGxj=5>zG#3I_9%SbO>LMhlHbtxJqM4U+lu!?0 zctPbph!u`08@7ZJ4#)1X-Sg!YfD_oR*cRrfYDLxKMf(~faF!7jl z)i5QqB)WGT(?*s@t6v)y3i-!t!!m_4)1&=_5!0jP!U5h_a`kpn7#PW$N&P$- zoVIwsyZ}ZVbsflQrVO{#3%cgQXp<}dN|ZM9Zj^SA7ts!W5T(u6M{9>5K^veg3?bU$ zU`R2LCI^#oQ~Xs#;yJOj>>r23O}pQMx#UYf#CdSzcYR1Cyb<~-y`$|h8?ZHD&{kY9 za6q)5)(e!^CxG%MC_!bcU%;=s?J?V_`ym)}*9D`FDR7@X26o0|a1AKNCByu}ZbaE* z-U7cg=m;n#$TH$Id+jm1sJR9VKk8ry4Gt)>XYSFV8>>j(9XOQVBAWw`u}dDof$Wkw z9Yh8Y9DXs6I&f$|vg8{%YY_K9Nff=;T@6@JeSAoh+Qxkv%It@7vTz2YU(Z zeVdnI(tR60X_HZO0KmsMLvr8NV#vR5(+{TK;=%Y954vwN47_jC4FnUDHz!6vATHXR zF#ul#X28i|*xR-wTAvM4RW@ZR09l!SKpXo~;YDAdrYxY%nI|L>uFR9e41G=x<1-$a zB5E^E4%4TjNRj@?BsTSqi`J^IhAPE_GMqKL2YheG?-c4zeN>AAYj@Z$>5(u8jwZHj}{gv{cO2jQnU9tVpf zzEgA(I$ti6d^ap*8#`*;K$Yl}e=$sHHQC|zw^^JEi(!OD#Adn2bx|!=H+5H33wK52 z_#EAf<8u^0#Yr|SQ=Z8a@2oq6FOlg?o_dKb&}#Bs0yfNNiH&@hr@Q)Ho*bwN%Sv7I zhGpR{Eii{>3D_|88bn0}=2QVwsDOC`b9pU6bYf&Sw{nS1P}N1r)E`Mzx{|`(ewHtW zQ35_k9#c_WlVIRfQ*6R(N(*EaEFw5RZkdznQ1;pu8y5Ozopl9Yy-ewoTI36$hh zUvcStWv_r-u`0q~?yjgeT}=b7>WF!S*owIw%D*;`&rI)kU+&7()+H(o{iaNgno&6I)uPGH z8IU6zr!%6L_2XW0X-i-#%fB`orfG93i0WQWPhfMgBs~#06%+YVfp;bODg#JLPd@!K z;>mR+yR~&8tZeG^86h!ttdp>7_5wKpJ5w|7%7k@y<-`|;59&fZSnZw+Y+8muyY8Rx zP<&meji~=1-l^D~VLMNPr@q-=y*NnZdIYKe3hX>h!q-{RF*(87oZpD5Ajq@c4>rAD z_$kO_UybC;wCFt|Ko4`defG`lkIrfIW&)Z1Ns{dY_= zRZc|I^L`@av!bC_U5G!c?AcM>;U;IS+KH+0cT9w~@AX!l*|fb@f@d>!oE2eM>G zplNB*F@fxNOZMx}TgDK6@m!<|;*Z!LA)#HSAap$mu}$QOCE&S^TnGdI@X|dk@z=qB ze8l(ZK5DqFjlzWg(kU%2-Kl#=B6>WJ?a6!@v+!$-p~YVK_fa7vs%vZ~Qq#?hy7<1o zHp!R#>}6d5-_VaZ=AA8&5oW=uTSbk=Tvd^!5gmZAP@7Yuu`;tkY@CG|)!zyL)Op@1k4H)P$7(Kv(uCWv@X-i37mZm$ji!+Xp9?ZQ)xVRpSUB?-y z=QC|hJE;U~>XIXxkREMvKeKzX+)wjmNA*-VaCJ^5c}&e+m}LA<*R<{vV_uNpo6c8t zad(5k`%zEkr32a{y1)EWa2_Tb?O!;~|9GEzpbfrRi3LV7 zJkb7VBWr^v%=_re7d_7}C1z8`Qlk0dK|n5bKAXOjoR{H`%fNff;PFDXl%!ro+k|bp zUzZY6Or9~$WRe#Ox3g9p@2qvSX}pD`bZ@dyN7`iTNt<+`!?g{Lxu28Zcj_5?9D$)D z`3vi(*fhp`&6vih-h;8cM8ZFcF z-Goi%)H}VcPQN?7u^D*+999_a^p*?!o!;P=VKQKKYJTf&b*O*qZEjT+6LYQVx88 z*6ffJXr=Z54L6!q&CuOt{_O?330_60r|Ltx*lX)j2Tc{&%|vOKxtZvSUUaqA#Z1+Z z1wP~id=e9}n*AAu`}^Sx+nz-TVnHoHXH>$5atlP(TgJwzYrH#3{$Q-N9F;e4e=tUd z`^X?V+Uj*Z)is1s$Ey@1gf&)LKhGAJEN@TUt(}IDu)7~+8<}%{?5Ij>>SJY_M)H8+ zz`)(%RPX%8dB1au^Ls}l(P=ai$!7jA!s0}m$etZI-Zcmwf545j$9krXMs!rc{fc)y zPyW`b{|;oiojK|u?|24#)Z~yfgK#_Fmk4##8}IELJ~H(vE^va2adV1zDYH{o0@ry< zAnE>!2bBJ{Qr8d&|4d_ z0m0+$s4A?*7T!e!u{k*Vj~Hr`5IORaEMFq2VaKeJ!8@PlX6i(I^pbG$c(Y!jQKPSQ z4Vy{at``WTB>RXZErNNaXAL2nX{A(D%9l*>c*li)#;YK1*4sI?E@;+D>$@-PoMbM8 zXiE%1SeK~hehjBGXyEikqG3GDtMxw2=+~mjV^{202fALVJ6uEJ_P_Ah-c{|_ULMGd zdo4N@<-=v_r7$+Fu3Us#j+;H=_P*fcMpXy{vUKq;aB*|$*$cxyg@KDyAYP=f3OqygqgSUifYcj2t=c2@?G=p5Y_BVEwZ~J>6VpeE4vy1HGrX0cjRR3MTd8l*zYJIwdcU~ZI6;sE>bEU*c zeG->v0aLj`x~|Xhl7`C@|Oqcr_WMh`k(V8NdG&_FU7_^k-83<9um_*AGx$B&(|+L z&sPY|^Hrztb#U0L>bTe%>C2V*DAM$7gs*R?AHJM+KJ$o9vv>^RFA>kTbj;w$F;aX+ zmlpMlj1~PQOLSV<5*;^Erglh4&T_X@Rf?UkVyY6h{hYxrINSHysY=ah>Mqk1BzSA zna?P{_13t4QLFo!2vedN#01}T#gu9tXYd_37tBYLYR$c9<_;~@+KQ23Q-wxphPcPe zu)y9k+#R$PW;@7~h^D$hYc>U}^~RK+tH8MFut6K{q}g@<4O+t)lsbKu63c02=ia<- zDe-#62!X_=&u~dMT!jCzK}*6kQ=%}7%hVgR9Q?z)A?I{nr#;99?fT7l39n&Z*(426 zFAn#Oj$xZEOpHe7c~L>K$_86LJ; zuA1$EyD~lV6iz?$L}2)5o*JEZ0V|BZ22S-ZgOI8VI3=SLteT!)k{m|;I7lT(9|sXG zjS>DR^p>Rkj7epwguL#lyHx6(=ED44PIL>Fvg+?X_T=Ug>soFu3jvfQaXT_1P7s_NXT$k`r9T*s$5{oYt_Rn3X_C7m1gE$HcOeAm)!qM5G)|V(kJtHF&#_phdSn~WV=o^+!LOasZ;KP7&0CV_IS_8l+@9wXs9X%)0NhRX!7jDS?*AKduAC4 z43HPNBo4Jf;?m56>*aZbGfU!Iwno(@wrqtSMl)k2)}@k>B*tG=?jY=4_$*EJR0nqN zH8Gv~Z%$G(@LVxBwWAQ2CZWzB& zmvVKl3`x0Sbi)@w;KVJdDP2@a35?2kbvH_HqqJ)R)FVQ8Ffh(IqD^n$(Eu6xT|5BEqYah=0L|F3R#8^`I<~CNf5T_}nf4<92rL=D@o; z1H9R6$#|_Nl9yyW_H~+EoIuPjnYUT1Fah&415+Zhlvk$NTp0xm5$xLfci1T{_G6h{ zK_G-8Ve>lQ5h)C{BP_&JiM`~e%I-AlfqIo`MMT?kpV_oe4{e;*n0q;vrM7)KKG!cz5;N4G*hbz?s@4|&)#I9HndX&E6XDL9FJw6cdOd|R;YMT*z z^UH|+P#H!*8^PE0{JYvO&bYxI@rep`BwaMU{BBF2jp;hvY>)U1axuE8tgd%40#_~H z@PI@ddybaJvH!j<9UfKVC-`Tk6Js+3NQ<#MtqxvRO=#SI;%$4x=|N~*4PqvuUJbi6 z-X3utLca~zgK4W|agSO!id{=yo-fjaee=_mk9>y4-EkMhY zAPhko8cJ+$Ay(JaDCSd)GOjP1Hw@(AxaD21GxjKt4(LPQiG~r_zH>mz+M~SXAY6tp z0<}h=)?s0jJxV)9N`9^fWi&w$tRwQ8N+z869V^2Le7B;0Hsdj6b4TWMBxjEbSO!8k zqbUHhy?p_yMv$(Y|L=>F2DswbJon-x$;Y21FtM!aNK9i4+fx|jjA8SV_Z7v*bdP3> z`2=hvh(2Oz3ZFs9zt-|NXiYvO-q9wmP3X~)%@fZh#1?gAE8-zvm#j_DSs~lV8N%aW zbs)1a;LJ(Z5K9P~`@Rgg$pSom2yZr$ZZ0!>XoT0WP3l=)6+*+#BCmwnV758IoDn<& z8|x|fB3tanH7A@+a4K0JHo@eH+|sPL!iFhOnqZP6w={c%5ct>+?V8|}v9r3G6}V1H zlN4aEwTXkQzm~;P%bBQS2^YqKY-u7`ZMETxNxcLSP!inFnOR+9s-82g39mRPoWMLo z9^3dgvtn%6-;`i_N(s$RKoFlWJvK!PyLJ{CQ@DqK!xJ3$nUxTy{Q2ab_$LU#3AJ~b zQd@%S4&w~9gx%TpXV`6K_>_d&Tg+}IHscm^fwA6VUhNio6I656P1;?^5=_5Sytx&) z3t58m2E`ROjATgDZ%p1cXIFLqPD-(xhqJ3P!TB?TSig#&3t)8u=tZ`0(YC22!E}y6 zU%AgBw^W_=;=<0NFu{GAR<1gYb?a%ywu!Khq*+sRr?9p?#biwp49zRJ&=X7zL{4Ak zkyl(_0<=25xXYPakB5*hwZ~CO|2c{k$ikbBq11I0Xc)3^cN5UsBS15dr7%ZufoP$x zZIdx&;U`SlDbK4Sgl^Fgx2}tmSFWcx_ zUfSM>qGhdp8`89lw-H2(0R;KvVpY1bMZW<>rfPW6ZC-zc?XaF=>nOGsBFeS!sf*ZD zFo>c`tJO5NRny8mVy#_4BRH*q+6sWRX&I^%ErX2G1jy!Iia&@HfMi$#_%*;t`o(C} zya<155sjbqKttnaaSPIwk%kJ?nu`J?qhU6h%>n@_pd8I+!k8*!CXA_O!kEfkiW@A2 z{gk8hkcVLgkm*2N(_u_C4ahVYmNk_yd7Gu`bfr>U%x^~AEazl8Mkd2q=c^bZIbx6x z?%Oa7ryfGb!w@enUVj= zLx)B-v~{)FXweUU87ZJI;4HvM0hy@P2WQFX10sOWv6pWZ#3CypB3aR`v%uC!)w&Iy zx2$i?+Yn0@N4~#`?xMq@X$2e|6QL*Vo9;Lll7M71q~biuARq-G8Io|%NpP}k0$}KZ zf-dPSJsMs?0YtAhXJ;UtfI#djx)Rfs66t5Pv~Qvl{O(#6_ zWZ|_eMHz~c-B`CHz+8g!1;ObQFFxWzpA*a*u4ll_VbAbxxc>%T`;_7tPcbtx6bu)C zfV*gAg6R>ZH$OxVxE?aO=z&t0Zq>X%Q$b!O+hG^x24hIFDArG6VA-p8WEworVIyKg#1@BS#oGmc_NFh`fNp+_iM zb;L-_jw5>p|8ytjzrEMh9P)vO&{uj0Z?4{pomiF=^cDK(1R~UZc2I0OaDon!ZlOkP zi@pIpD|! z>tBGkv`G2a=_~X)kj-$Sjufy7@J7H$0UH2U14g39V|aW1EBM^$o+;ZZhqXW|zklQ{ z>$}gJy4_ig7ibk;pp`TRowY?u#MSs85&9KB{)P$5x3>tnsaDW0`|&qx(^AlimWIeQ zOXW&mM>(-Hz4mgGRS}N**V2f^y$F_v5I|O~K8O$)MiRm-{D^LhYOJI)F0v4lYZ1{h z%MY5bDwiK*`c2Sx|C|#nNAJkVUlp-G?(P2R9g`+}qml47_!QA9^BY`>Oq4NqM z!CsDW>T>M4x-1=HzRF#eO7C{nNk1q2*vnGX3O>DMX&#F^9=laxb&k2Kuqeh%Wq2o6D9>+p(2t@o_sF{n zbH+&OV{jyV4DQL+4}ZO{xd`rtHKv*>kE55Z?x9C7o2!OWQ<0$`-?B18fHvk+wN*Y) z(_o;@gRqIrHRz2I9o6q_RSH!tQorcMQ7uyWON5AAZjDlTRfX@QH@=fz_)aQnl*HZR6xUlFmkAN&kkYqRjmyE3WHDHC&nyHAbMTAQ)J!<>Q4#$=3E>U-BHbydmNY>wVP zd+2)sXtxdvK#8u?4g_{6a-9do}#ukLe4j&@-T5AaOf;{3{gfqZvt-eFiSY0y^ zmp>4{qOq1%0{{cg_?6VK8mFmh?gJZDgc&dojGM|Ph|igGeF)x;)iuiKs_+X^SY70A zQmTr^swY%Q1Z?KzynTqMV@6~V+0G^HewxJ|Ue?FTK<`xI<@r=lY@E)Kv?{W3da^2x z=~kfD9h4J!TtKj7nL2eDt1jv*RVNXRIwrTT@SW~pps<_jxZ3xgRT!(JYIngO>JHs9 z)b|h63dLcC?OWKi+_`@0FYfIX7d*Yoz4%*P`q;ndmijWcSKRrCM)wn29#pS_|NB&F zsQCB&at;*ZpEzt4v+m+hF1QMEHPMB=E)SUEf&g>f?adl4d)e(5hR?ZxUc#ly;;&1l zK*e9E>UgZA|9q7z&%rN?{N(fQituR&yHPjpJo!u*f1V6ris8R0g~^MqlzjDtI+;m6 zCPQ5%VG8)F8U9T67kpI`;j6k)*TlU-bBHCwF&dJIw=zr&c`L(fKqUOfsK;}@Y9GQZ zkVppdbww(lQH)l#XaFN4^P^RrVW~Q&gn3;ZKafpb)?eb|U-q7l44OAm&M(WIkz|JL zC!A5h%BlZDw4F31w~vfplYfe=a7jsCKbUj`TSQJ$yj-G*yLnLk&785ql>q7bIY2d6F{ ztcDCk-D9vtl=v(i5Mlh`b2ya!dFcQlq>{k-&FgV+ZXINV6Q^)O)I2lJ9&sOQE#VN) zd1)>EK@1HsWX0n6YQ*>RvBB)(7tyDtQ?+d*D#*;G09(`XSmObwh;F zdxm;JY@wZrG#hCS(%fKd>*zf+h4Yu~9;$|Tfrs}xDz{*RE6lDAy+~ewKMx^D5nSIt zAVve8D;dQZN`r>_O@lcogc{=le#Pa>-WlX)`1*+5X3E2oehVlwvEB|EDvvyBw}mc} zlJ#dmE5~Y^4aI$ngfGP-v18PcgDDP@H}sz zu+E^#VfgCi7){}jfQdu$yEwZsilh3Z zp1m#2U7vLoy8`QE>dXwxw;B@*ds~@=!rtb__!;4Pe!j4`-m_<7f>X;hhFcU`F#eju4x>SZWuZ4n<_vG@ zgV_79L$3tqU!lm_ z&-0ZD*rd|@%w!i`&w3_;!+qM65aM{!M9Hm>!9dnNCTQL^!a*K%;vdx@O2DHEht2u$ zu!B=LY)ubvvA+&G_`lFC?)yOg1o9_kZvP|?Mi8}cUqiIR!?!P1ehH@AG=6gPEz08F z8fZsvd^-ZY;r@5ZGpQ81IP?PlW6g|fpAZ{C5%su6v$J;N*7&2Q*!Tde}61gDE$EiyQQfuH4b*wJDb z3Hk`o8ApU`IN)LJu+=q`a)LuBCpZMA#rgCt7=-Q_NV&j)^d%UG$^&ra0rVXJVCWB| zKM)51LkpdlU}X|F4vv1 zc-?V1H||KEN;y1aHYRm67QuKolKtd{Hua5!DC4&~zy^GADL(gq zF$hLmTt&1P_tk$e2!4rJxrDYb*#&&P*M#^0#4Ya_w$%5#&59&A|UyBj99Ot z{J=N(T8=u3LN(12))yLx4K|v=xv+TyG#EVG$JvekdK6lqve>9Z;YKf- z!3&^iqYBkF@~Gy6^lz;QT-F%_{39P5H+ERISFoL4!`Mw@({Ueg%~h{Iy+&d*ji0l3 z%6RPcs5byTYnt>o^aQVV2kv)zjnr-`iA3$mK>gd%(i|`llZem(mF=cE=$}!eQ5b+i zqiO!&HB;uV0~&aGjm&OZ2o1of4}b=>SFY*;bP>?t_R^J;fkN(IFSMg;p;@KTLF-NJ zl{e)Bg|Se*`ScnOyXjvmfL;P>X-Btz1Qh&heMo!dhIvvl^aRk*(`z~+N+U5gejp{o z?t)@Hy+(1Ee7FnThv|I{2(}W^nW=*FG~?dQ;ApOc)RFKj%~bKwhy9Bjz!n?RL71`D zhk+adj%I^?jnVYU6n4ttE}(|vPXA&|O-E7f80?kmBM4tT7OfjHi1AB;-uZ}4iz57% zdvC()*w8h0)2YtTTg*nyXy`5WA7qW^pe?JO1_F$@w&>9Ga5iha2$q~GGwSUi`hs}O z%4oj*h>ZVU0%8oBp5DNavd#NUSD%9rhg$xqb>7Vwe*w2u4K-AK0#YJ~Xl86p!&P4c zp);EP)R#5hiAAjiARszYeHYZa$w1Gt3V(PSo7WYzB+%~tz#MpV8@Kitf1|z|nm!HZ zMnAg(%8M7TXp-yKE?#);$Re_6LCvGJ9XaL=#%|$of8-5DlOmGHMGHjYr&tK8$22f; z`*4!fO45&$lP_A(5rFldevChx13bobwU_w7eQFl8D*4RmyKWisB z*YG-NOIab!PGFfD8{4H@E#a20vzlHkUuSN9ZdfO}o-be5$voyMh{ngr+>cOF^=Jlp z#qo&U7;kkyp!kFJs}dX!*g^4D<}cul_vws&f6_YrpY%NU!1K9i=C}*A^$xyzwRe`U z%d|G#1YUF#DihO9cKNy&FXFAP%eaW+o8{{)t(PFyzC^K$6uSUH$AwPotgiED6Lucw zaDTmg9d^L9K+e&07FCMQLaq(K>OQ@EU0l^^cKJ%r5th`C#0+0;zA*7xUQMLnsVIB%9 zAj*bfzyPHHWqoX}IY6Ks;AhbXKZ^>;@mvs5qZG_-Q7L`;r7v&W<{AU(vJ(>P*3l4O zj|MV|A|oNV9SQOE2r3vJK_C5aD!v{{pZpL=c8i8Ud_4rU2fr;lDrw z5P)RJ13UmQk|7r`)Bs|CdY_^Na{ovJ5Rd|p^l1>#7Nz0grh$`X zdf-mF)A8LMiVO#kRQg;~p~y%9k^)7c8xnr?@^u)@UFmb}is#zppBr>^#QAK93E8-0 zM}*S~Bov_^m+$a;F9kc2Yd~MWLv)(yzcAu~3ZS%3-w{z8jG968aYFbM(G-Y37=S;B z6wm=Mg!ww803-v#BkGVuL;Ky;L3AH!fZjld1ep@f>y1k29vxBu?I!3FxT_5|2aX0g z;O`r3P7lB`+>MkzJ}D3h5RN`R4w{Jeduw`eDaTUu;+?+Y3+A6!_m4|CPz7GfF}MCc zfeo+youaLma_Ai-*4|+70Dn7^V-EX`KEPkkf8 z!_DBPuK{hmdL}2_iOg#H5oq%dKwZcZ9am6=|Ncx)O6~Xf6L^^4oPQ(2>b$UOkXdn| z!yvKg{P{Pa`Z_mxkhQjD@*r~tCW|gi3tAb@%*)lC!81Mc7n8`Grsw&JzOTrbvkmli zPtwPFaw%(VriIN|sJc%uucf4<9%p`9ktjTScO6`oG(l?Kcm#~;k@oe;hIiMsSetf1 zp6=R-B}v%K9oV5rv3F1}>>a$jjc9Chy^R%0_72hg7G0qv%1x(mVC?{7?ox^gV=8Wa& z4+dF6Qx(OFs_@)QRopg-hIuenYo63{-K;6u=gsl;Hdk)}dHx$5Wdv#romE??o#4O?e;fB6csWQC@k3f;<*6-2aP zf{CQ6LLKH60SPV+(Efi-DZD>s^(F*g{bx>L4bTwM(5u{*0vm%P4ZX^3ED%jNN+juF zm|nar52Dk<^g?IPHTEhLoe%Zc;_Cb>51-Kcl-N47kW4PbnM3bU0f*uq9UOP{!xLS1 z2yW(%zJK^_0Qy_{;pU86+j6=vw*`ui)iye-AlU({~j8j*gM< zFj;&HjN97~?Y!J;P{ff7+-BkW5xq@391n3uf~$qld7uUJ#o1niu#g>?cmf(r$6>5w znM3H3Mss1f^OFA1J3}$C z_c?dPeP=ZkajRe-y%OfEE23MlPJ9dfmC#gA=sQtA7jIfU>1-AZZ@vkg3W%1f8q6*= zzdEtM`d6o=Y8#&CHbhfr-uTsNZrq9va&G;?ss9(S<}K(w7tI{618v<5y-w}sU!7u) zO?7pC>Y6Yg%Z4sBVTP2NFps)AYtuSZDq07NO%ot=TU64o&a+n6d~};*9=ffyPhog% z1+MIv`>Rve+ON=7JLmc+{p`C6T^OBaXZ`BL$7Uw|*pxvOQdEW~YbvAvbOz2`HG?ky z0a=;pKpUq4bxs3nDgoL&6{u?}J^2)%t&<@Vsh#|*^S?wQZzTVRD$FvG4l3t(NI(?h zArxsEM>Stf1ytER7U6?4zHGpR1wB-g6Jn7fWHyr%im%a-Tr`e?Tx1mFAtQmbjsO5w z2fkmR`3f739&!(Z<|{S7Mk%rk&JaB!^@LOb;Yc2BI{;&9K)Z0{frAQ1QqecA6dyJ& zEQQqDJyGA)4fVphVfsm`Q5wu>2u+zT3}edOh5ku*=dGNz36d9cQ776zfUNEWBNSc< zw0{zSGVv&FjH^+GJCRvUkj9vsV}QDlSsiwuts=B?waAF%)*U*GFaZl8UGf8_fBenHM-ZNh6u4vafAd4-G6KFB1Z^sK0<`s zY@t6_%t*F!>gNRt;n--IoFu7)=WHRIwXlVO>faiq!uwSC^E%BcY4$435Mo6l^q^TZ z&HQNgU~j8LI8UKZkcoBAJB)!^?%lsN>`izhX0p3KMfk=s`^C?mwCn4>Y@-F2x&7kJ zho0l0s4M3}1;gqce*oAocDsa4zwqGGhT zlM};k81-DX=|;QyE?u~^uteM`*7qF#?x$jXFRH5R{q6LF45BxtH!z94VP6nA$qzf#*LO+n7GJE*a}J?#Uv{d>n*s5x(c;@OWwh@{Aoe@Xi5qO!cO?s{ z2EzHIJ>DhCk|vdV7%hhFL_<^db|P-{*-mVl_(|o%sSUBcupCOZ1SraelzB@Yb5>O# z7~x&zQO5IspD7Unca=Y~n|^^AsSy32LbD^}UG-N?l(BIiN-liGyqGSk+7)cfZdr7F z&g*m7<7L9xr!(29!s;&|0~nDxC9pq8eU6un;}yrtc+dG|u}XihPstf_{)!% z>CCSGDeuytB+1_sCEcs$(Yie9@}L^{Ps`Y;yVS?aw6Wp-{}8Eu%xEDT8p-`t$IE>F zQ?|7q3lYFC02)_YSO<_G`DI`uQ=vxR}}Si@3akZuiXula62G~A4agWC(=uS8-08AASzGMQc2 zyAy@Kqi{%j-GdN!kW{7r&>Lm)>(lMRVTdk={DtCSH_8+y=0jNK_zTA{Pt*^mDls>z zdoDt|{igTw z#-myvG;Mg!8XrNpN1Ds?CV-X&+PmS5@#$>PWUQeG4fh`{H8K#OlGM_?NvM;JI-ks+ zrI8*htM_1W_E!o2dIpHcI?eh_@dRT{2?cun6!i6I^$nof4NTrt2)$sc>wi9`j6Cx; zntbDD=RuCPWejNFs>+T2ui*l>%MCMd!Jm|KG=g@vM)+VsUK#2X;(l6xV5XWZ=wef7 zYdN+F@b$CM@*bpRVRE$Gw%afV*1=C1w#gLr5VgcKRGE9DZ2Vo<0{PMfzm>_iLVg;T zi@F76+KS)G0@g(1*9l{ArqjEe-@IST6i>^I-D>cH-zIzmd95tcV<{p8_`lC+ z9Mflw?vV^CBa%QlS_;*Su{XN6H~vb)_B~--SZukmZwT7rt{Nn{#IkVe0PJ&uJ@Yok zm>r0Mc_;uOa*;+PVPdXG-mk|W?Jon_LnItb(hFuro01A<#?^M=KJS)G?qzi0@;i%N zxPqC9G1n7uNT`YD{E{usxEXjFNjwf+nqoPhK0RW%JaK1yoFaysy+;p%RYcaV5_Ly| zm8?aCpFUJ2YQ>BJ&N70c5fBrZB5>9|2@V^#v$MI?3W-Ur6%@$J5*Z)teY5h&bo>=I z96+B?4XRm+G$F*Q;Ubel)m(jNbE699ajLkqG(qo08EPe{mR5)f!#zO^RnSTb1=ih7 za^MJWmX-$ZnQ3X^GKxwmO0#g9SviW*OyuxC#^9?ISPWkJX<)IX>S@Pu;#1bAkDz}X zSZp=51s3a?y(+?8kAOKIMo!SRdR5qJA6%Ja{R_1$f3cN&VD+5X^d~T?2(_A!B{KIY zdY7&b?-tDLYGrQW+>L)=iS-A)@dRtrw}Hisyh4(eth)>e**7@5>k_UNW~}JuzR2P! zxGumWnjrX>r8b5IDkfMza&7$Cyba;QXqhOV&AP-(*%RI#2$ru*tpN%&U) z45tp2=uRFg2|zM513q!6L_C2rL(cFyyplZee`nYM#_H!r4sw3ua~-96lB1 z*4=dNw7dO=4UA8PwP`C|LiVs(5#MUqr**|;0sznfz3Q|vt$y1jR0u9ewErCA*-MCZn*UBO*^P`vH`2uu!i`V9qMbOw%WS*nL4BnbyPH2i=v|1_?ZHdC@hYj z31h74k_c(wRZqSvWx@^#2)1pTJ!l0^3gDz4d(N7%Fqh_UqRQKxD>tgs#HQJ`N} zU1Dimizl#_jLBdr+r4%I?w(hBPO>f6zf~3Pz^eQBjucGoK zlvhonOZrJzKu^S~wFt|2B*O&2;{hY-A@H!Y7UGs5?-0ePs6~}V!AaNbBT)%S7(v(U z!_aCd2uJ})`g|&<%*Qe{pUNo*qZDPezJ0tZo{FKFUKOLn*O5n(KW3}FD&F97=Hh_e zgI*Pa%B!NIfI+;KLNEU7w-|iwGx7dklz9~l#T7Tu;AP=&(3$TSzi&;If_3${abX?~ zv&LVT$BBJ^y%CFN$lbPEoP4c@8q zp-^p5rOrPkHmFnQzjDMh0Q-zg11s?j(4@|vUzx-g@*CwT^M5g#2EIR4GjP}xrtGfD zi%}=fKLgUNKb!-hj%why&lBXy^Jm*lgTd&KoD!{WJNEk~&wqhEE#L@ z6~VvzdX5l48{r!mh#hAg0uz|ev<*h9Y|NB`St0ghh8Ryz#M$4*DT0!5iqqf)3_FsU z97#Oi5F98=ZxB?eJ(v`}!Ppg*Pn~p-QF2r^bw%YeyUxp;>l1?bTq+^A=OW1ZQxunz1y`(ebCHXw_b>(AS;rnsE)h{HoXmUYxj&s^{ zI1#5VEuyEFjvH50?k{g)?&;pRfN-IoeMjKC!W9dz6s{5c|A_OsI8;MCc+&JT&?kIr zU{kL@Y5BiGea4Xx>Ww3S?Ld4o{Yd~qeTKODbU?7r4g|py1LdG+bs!xO^e|W35YMVP z#x!cGo-u}WvXjkI@DGwaSk_=??laD*Q;Unn!t=(I$@oWJ)(|2DhY(3gbm27T^umG& z5~6L$C4N59WMOg9^ckb37ebmLKu96;h3HiGY6wDChLBE(Y}T6y#TFu!^&&dNpY?5SVStAMjs!de za6aHDz=Ht~0vruE5AXoMBH&!W{Q=tnX9MmBI0kTEz?pz!0rvr%0XWVF3sD!#l#ZS9 zD*SmCx!4qKL+_gmQ-HwX&eGzMjINi31ZWm8I&41Cr5O=%*+^!+^p8F2Ek@TPjQI0C zB?I7I{#7TuW+s`5pWZ|wiYA|81eonH)29{AoK`fW&_aaH8H5?+oIH8TjCov~wxN@i z2!Sq68arW1aW2W`yLeey5+m&|F)ohY#pvQ$sY)Uhq9sy9Z^iJaoQRl=5-I$IRZbiU zU*zc{h&am8sECKE46 zd$9aM`61#NMILx1{^MOGo(5;-8xr_T-qi=rRp9X@g7kL{;u{hVFme`uZ=9F)Az@Px z0=7S+_vz{f}fAvzCPWF@lj-4bU*M;i0Hqaqi!oQq!Vu{IX|%KNN^TTatr>yb5l z=GHZQpRH@OnYUI?cV+o&Al4XH)lqr3 zNIOexUe*Mn;MS}eupjmX1HSo+OyIhA)9w(L$U88Lac!OZI?X%EuNNZ@B4zRLf1WZqHjk$IPJ zL>N0p!X{?^|@_AB93mpSz*N#y^I#4E7gQZ}gn|4SfV%}Ap(M!O@n zzx4li9NtvK;oY&3SX|@;@d$hwhxdDo&5_UkiNpK-f5+i{M&s~4`zH?XGgce_tUV6z zv;T<0+ra!+9A3ZwGY+r*WgK3F<3+?2Zy&_r#fcK0u~+^_9NuiXJ(=}5uCj;3+0!7+ z(eCJ^Pz)F%%Yv)hnNh?iC5n(mk{r0vZ%9rc#cJNA@v=q|pVUZ94v|Dii6qiEzS3eL zU!`hyM6$9nXR$rRo`Yx?IfRdoBI%VDzVMzrcaaz0;LsBF0=dHT-~RV)9!ou7DdG0e z%y4@Q#$vUh2S#8(I7Xx%MwN0@fsJlMZxBpS z=xH!>)7{Js>C}7}9Ha4l#O%ut1SKN`ao91glRAt)&<}VYGzmS4CiRdFTmT^x6>OK$ zVnup;Z1)D3=7oisQDZ24(Jw=deyH&d@b0LP3mk@g{t-sT_`U|8*|iEof8bHO8RM?D zbdsNk3b`PBjcb}b$M1Rwd;rcU4#gSX!x_vT>4zk5B`Gm4;#v1{8oW4z=1027H_S2l{#&8*ndF{?mX-&VTUR zoU!gx5Fk=%n1ag=dz-U+$Gr{X^Xs5Y#iaNU)yD24noo?3=5Px;U>ayYV~bAd2f3Se ztKi4U6JAN+U*^pW%a6*B2gI~ew?Vw_&)nGN8|3-`-3=P?YS5;*nC`!jL7URaPb6;v zRtD~u0TRP-3~^t386c5IfJD>PmjMzRe~c#<=Z}75=z4@s)W@UAm3YGcbbTZFj`Yp1JPW6_43Z474&DQr{ta5hSB1^rDpd!uK_@&E0 zhQwAAa)rE~j#g|NjkQ=!v|=e&P2}<&Il|}F#Kfng%2r$e+9x}=mFPvS#LoB#pW2zh zLPIr?L~n|&VMXp>4eL$TuxP5=ixgK)lJJK=6iE%yZC;ft4qYEUOR4Mo=SJ&+7t3CfQ4Pv2+j7>8(RO}?8___iy4uu{&NutPjQbJEp8uSnquwk6o zg?p$k>e6WW5G5^tL-|j+DD|Rv1`U!Z^h5<=4{h+^zb-Jso0ivl)AC;Q1PT=;^i}=) z0{dzG$L$yBP0O9Qtcdm3zc1jep?H7IXipy@zg|9A{6#a>8$FR*O^mwr?GH)VJ=I%4 zXhZsZ`r`S(yKZ}D^~O^r8irdzEO=uX^$J9wtK|=&PZxHNRF4w7>F|KXpOUr`jnDdy zj3l28$k+;9{#FE<{B|q)wMQq!;1o-JXtlZ+3Tu5S%tZngc5Nk6<(zKfSZl9Q5ZLP+gx8t*5TUy2<)hMfezYxGW^~ z@pluf?%?R6n5tm%hmYt0C>Nxi^_*aY-p9&FdKFpSY_B3q611slH^Ssqh43wVKA;L zNLj$APGEW6x6e04*k-LOkpC?aq}$wT?Y7sh^6a>==Jo8SV?6ZZ)Rkj`$n^=>u_QdN z91|&gJ#ma&-957e`_mY;H7iKC+G~tNXr^ketu$+oq1K&3zR1KI&)}j=_>AJ!G#gK| zBwFJA6eZ&IC$#(krLLe^Jk8{^{QJkWq&@@(|shk>FtbO!jPVR!Z(G-z0FfyF-N_Sy@<6MkC%e-;ZCGrQHFg-Y?pQnXIHd zBqkAVdv|#GlJ#Y*WL!v0Cok*P&|YPH!_1o@Rw+4U@qFXMMUK8NeZ&qawYoEd%FI=n zDITH&5cLq-I-OJZ5Ts^vdJn-?)AMwxA?<$;P_*i~B zi|_6`Ijza@(n%}~?#RViy3~ua^wiw0HW~Q2Sv(F_2AQQP353(LcpUC>rX=jTLvY4jd=rud_br!VS8}+dUgUqG|7^Adi%L)mN0wJR6#s94YmpAxRQA-`XFl2 z0e`3F#sKWlaR#7X2h?ly4@T%rpchy4P$t#2HzYeIikxNYp2Cx5~jp4pFdCgc;$(R}4H5ucaE$=w>)X^Xc3J2>yz0A~%G; zk8Sv)%{wBoXRqG|r(alW`K((ezb z1vXe0oi$jsNL%Ax$Q@YzPUROX45=PdHy=UNYbHof=c-ce#t$Pp%6exId)Ytl{xISJ zCFd78zk~BXCA$@-1FO`;xY8cszSnf%K1I4a4p%4Xu%d2l*X41Y*#~n7OCmRAum^J< zbgy4!>elLAzFBV&?Y z&@5)ho$P)m&91tg-S7HcA*lD|L{8-vaef!>5Egxf)oV*8(SL`hqE!+x#w%*I#$F1a6eK927pYX#F!^$E5SvyT( zzEuq5{5L!cRnQ`+xlvDA7tMk?fa@53!0PaeJ3$-=tV{foU4w9ulPpQ<%nIE(063Ms zm5iw_JScCxouobk56ur;jurnR(B++-nsEW#I9JfIL7?WrPb|co+UTSF_W~AROaTrPPth3wX9Uk%FG}) znf6Sxr#;i;xhxY|@7&34--E~{{pJX>HbpNzqF=d(45rDt1U1xU+e!$vAO@sH33eGs zdDP+UXL2oxmYzC9YpH`HIVo)8-6bTN{Y}pZhwE9Ddm8{6M=+`z+0J%u#9@{&I;GiY zdocenDPhPn63G##wga|p`9h*HE{r03!sf%*Sy87CYx9m%aDJ)7YbH1x9bUH^F2oB= zhDQj?GS}8((s8IFPjLz{)df8iP3Cg_^-cBoCD>v$dmK;|idKx#?E_Y@h z{s{QcD&1>J#S4G_7O(o9IKp)k=ZBgv^It1_7m?1&-p8%oOrJ8!Hh5Ti*~d`D)_sB$ z1@aUQNiX{pYL(g>NKiUIj7sPnB9?uzOf?HgcwDz?E*UuJ1{`9(+J!t{B1P@|(4O5z zPV~Kvg0Et=&>e$D%a;u9>`w>16Wj_OtUgP`_Zn7y;4j;0+ zy)TmLNToW_!Jl}<;p{!0Wl!@Rf5gFhE+jaoAFEJH;vDnI+1yj+2|~Nl8zOWgbqXW9~Mce=P;?xxKN0p z;wx1WTY3R_I^9urSMLD?H#rbx$Htc@$`0qtt?1eVTd4Ep78>AWOOze9^vGD+g)N}2 zflAA!lG}02HenOUvnjLzR;L?ih?D#8ggEhIYtZKpZIC?cX^4|fY=8wiA$r$^Hn_Cw zCflReLh`K%ZEz;78DdWkbwCWXLo96{VlQOcN$CZa^*y5(j+R~!<&ISqds1vc?>2Lj zcbn|EcW$Bp-@+qm+p;5SrFUD3_a1~bTZ)aL-WF^OwNO_~>{n6n9Vxh&ZU`-cw1~b9 zki<|kq-KnsP20?mme`om3ka|QBTiwW_kuprF&7(-bMQLm+yWK=*R*g*191N-^UO4Vn9#^|cE8(R826N5{Yn1%>Y`^p0s1qQ^k;lp=3m$#FFTy+ZVkhNuN842~kES6Kji>xCvSUPEzF-ky|rZ=r8D zoLseqGt_c$cpf$V&Of$0-Z$*nZWGzF4ImqPwrTSAxO{nc@IsPs=7+#WF_4?L$61<7 zUjrq%rj4{!Cz22C!o2A$}P+*Um23SwdE@(Df;fyZe7lPve>2Mm)yo5*t_HrfjSbZ z_AXIm6U6~$LWzglI5CVkyLEvjvw`6_M`x*Gj9Gcal%Ge8jUQo0=Pf2f{dtph`R7fo z`C$~GVP4n(2D8;vz%%Sc4-&C{ZdyQb+#nQR(yFIslAD*FxuA^@Zd}kRGSNNiRthWO z)npt4b?~Feu3x20KCtX@vdV!7Cgsn%djjm~G_7#ybXr`n-%tA-?+t;4dUzO{Io4O+v%IWcgP2H?QIV(P^bgsN^IM!rr z>0F)i-B|@(cjV@HdF{xVa}#fbskm+fH`df`0>*i_5!)u+EVs6iVEZkOhDdR^oZLFA z%h4Ta798E|5WzS$`6sjTwEPaB1+y4KocP;wYO?ME(oDo2 zb!bRf|6OJ6Q2l5O(JqaF&5BaXZR|=;DW5jP#>KeW_2IR=Zo5GWX|@|&evQfyt(g~< z$b`?Zn8RjRI2`USAeP=Tn|%Yh!d>lC`%7GGNiHEhPExR*oQ@!q30p@T!im^8LPi%) zXago`dsmUrzr!OK+lot-*9cqjqApHxbr_&>35-(rPBy5zc4GLW(Bhg1gG1HSq)s2I zih8VB^krREE7z|GiwQFhysS1sVtUlfH?2bIT?i|-a#bo8KyL%e;``2p;hr$q-XT7_ zDoDat-YbVyf19rrU39l{*SGny5Z}K*&tA{37p*X{ssz+uH+MaMLbpZB{Lui&iK@jqTs0%k;8Nv}0dZSbsg=)HMJGVCBM40=``U0z1f zWtZ};Q7rtlKgs{kcJ#G{-4+-(c3c0vTJGkjbF)R^(9^o9Q0I2rrgI&l@LGUOjfNC8 zo!eE&b=xNxmKd%3&9ZgQ1j9hGY;~b>>%zwvz%lF@F(-A;+vNsfK)E4I`R5ft8{m{> zhN)}jBlcN|L5)QsG2K;SFx8eAn(JtEZS}($Ot7X4lckz12z%Nc^I>6=sXI=~I5G`d zX`Zob)&j?ttV}~}4CHfjj1MZ;$qx?AG^n&w=ZFt?t4Z{CnFjTxjFf~IKZ-<1`Hv#W zGb+`rNc6a$M54!?6)6WwK8ehAwvYTIQgRoAFh#i1H(HaO5Cat7y!C zRdi-|q^l`2Em8nO{r$TmFGxP>=7{Gl%46;$ zhd#*;tN?YEuJ~to4zq$ZeqvrG61u2uS~g6>gLj3NBEf-`>(X2e58lPJVCF(TRQ`~g z=3P>ymmf78xn&a$)E4L^U-J*Jb$1PsLkoVO@K6O0+TXQJe$dX>(>3}ex<;P_Y2pts zrN<@)U-t;?*=uo6-_=|>aMuqJ0!(L$^?VgA#(h3HRQUtIt15ngn-um{k{NJPupD9& zNU{S&3Y9_hgCu)EBxW4Mp0Phf$X*Z=t5HP=f2u7Ir$x0nLw71tIB zi9S#3VBUQ--l=t?1qTbESMd$UG%jiQ2aK)YN+h3OTR54vDtuzhu-XD=4?eL( z?@)LuC|yeR%>4{ zT?n5dsJEG-z1vKhDT2*|9DP%Sm;iY16v3s9Dzvgw1d-kfW#SY8%0yI+0e7dg9j0Ul z2O)&aet<+qARmJ}%so3yF(^TDL_+9A4&M|Zt;;Y`U@u*?3agq67=a4H*@;5D_N*y< zcbU-9X;L{qCudDlBPnvixwrIenNW5o%IV3OLVp=Mnenqm1tYvVc*u9`q38F=KI5V1 zm2$+bYf7c4yyXr@FhGmKmWP-ton}F}_RM1uO%Bt9Z_KG1BYzgy--O2WnpGHFgzsN} zViD`NsH_wGmcp8jCi>y_IEm=CfB|d$F#TvH3!cE>}5t24p z;)S_|l`4dp#y55kjuklW#c>~wm3?WB4o3oU_%tGj);VSBf6$fF+eg?-s@xBZv#SOx*fJ~B z+R17Jp)a!v1Iw%iqxz3cvU*;b)zqrJh)*>luFR^|1~!Ro7;;VOB-u&Y@P^&GI;-9F z=|-cuYm;mSq?FP=DDDB#4mDu(xH_w)pqAJN*Aj6+4hGHTpIF_Kxi$J^Y@8+o#ONuj z(UJOq)3MV>O77v-MEbCd)1ebc6wwLH@ey}NEVm5iDS{7})MMvuGNvqaxl$fwnYLuD zqGlnF#*z40C5VJ?2t`BS=ZU^TJO9f7DupXgR zdb-3sm_3`1_wiy!{veW|Wd;G&=x;FCa=zs`L{gh_fTMg_VI2GOE?1c%nkiYy z`R?0Fk{JIA##pgl<*fK%8+pzb%e4>IW1;-eBv=`D)hLWL!#2BWZbdVW2S#D@c}gk} zmH$o_PlOeCO?_-9nb@x7+BKc9?`~HZr=H*Hn)-bwNl)h5monRdgX~+rzU?%V1xxRH z8PU5N>e)ZYbK9dvs~&t9gS&(r?V3WO$-67PrXgNUEb9u1y`+$2aoti5N%`vAj;I3P zTTDlk#Jm~tqqC>?g&T$5UdTC_MXxch9=l3 zrFw) zsr$Zn|ED)4gxb96>J7l{GeD)iRC)}Z>SL`pCGVr}-*jpp#ZVpG^ZrdN&>q219oY5$ zO;_nIIDUeWf;*9=X(t6Z-btS+^blk}NS@~*Dl-p4?%DqS&15e~wqqL-oxNM%zgg(p z%6w8|WILh?W##7gZ=zS-@P^vidq3?}@29`!TMu7RPbX|J`_`fF3aq2zS}Lxg9$IS} zvBvCx?WMK@7NUTOlzcv1O!9#XwSfd$A(pnH_Dt*hH&yCyYXF5BA(S;l=_SW~xYm0w zEOveO9-?-#U%glJE)OSGDL~CROK0JIP)F7P+*e(t*mCA)R0DT&I_~mMM~NPA&=pL> z`*2J}mfpMZKJKO!q;Bth*cML?Oor&Kho}Wf4o-sTg9E%X2_!jGM@xqbyt5R<1jVmm zY82{cH`mlhB|a91;tlQfdbyHmuTM!RXHw!^P35#rKbkO zAvX+z{cac#gTY|4%CHk&kAXou@i3{lq)mkdaSD}^sgw-mK@u~kUh)ov;jeZeln05_ z+%*9f#PJlgARgA+Ogs!;oiHJ8a$-v7fJ3WIgefeJ7##ohZH<9%D?b3G^uoVYjzyuy z+rdqLHqNOBhB16wQ>jC%*#eVV93n-${hvs;)N`IQzzsG4v|H*qZ;mWc*!1AxInPB< zjfoBdJW@F=Z4_V__L|X__8@mA8v?I}@}yTq+l1=2&SVgNZ zD?31;zFei)?cl$^DrJYhqYkeA@9@cazJp7tz<&#)eMcWn?fnK#*Z0kmq-@XMsNDB8 zZ5m%MNy_nlg{A(dlUZ5@E0(@ZKrqbI~UGnylq?EmHE=dyFmn0?1Q=+I7toJqQ1gm`wYr|KU zB%wL{Y^P4Jj%TTcQaDe>}tn&rT6!u)6m4d!10x<8p;Qz|(g4b(YBC~V#EdHUZS+1ss z;=__3B8{>9_N!UWrtL?VY{zyo1nqw-uKKs4OWBGy#%#gWo(I5rDRFc`?A=WJ*3BqS zY1}u^1n+u8`Z>bccC_9DC7TquAI+%rel#Nn9A4Q0;Rs%tcNt!p;~uzv^!_b3*$1O^ z$Q11AOHd+%(ThxX$DCxzxf z^n)aOKqLnK_|6{q;wO8lL%xGLN!67EQ)e3rG7qF8PprHJH9uJ@&~k~f>SGdQoB zvzABL_-njvF#hv{(Rko*D%#S~1Z1=qnf4}NY=a;SqMZpCTMDw`h{0h?2A>2ThixGE zM4WM4gL&_NF^%C&y}hW!Bv4pm=U0gf70xHHNbFZ`FJj*9`rqKjg6r@oVcbp_>cGQQ zDcL~146RYyLj;<%B|u|*|}pwyMB$i;y| zTziR8E)IW=gvS_;5OQCx@b>Uh?Cz;X5F0za*-qw#1M)N%Y@F~Hx`Td(k|!y-?Y-JT zIl8MZOr#`-5(_1_GWM$EFaIbX(tk_%?!5)yv11k=la0T@c>k6h^$WG(m-GL*xTXKL zi>loC^KzQ9@yFR7XdP$f&Gsne_pWOqmE~_<@3&cCkpb}7ltzy*u+dZ1tn%e^-APUV zI4O50@A#Q|pvI-VN7$P`b*F11NACZt%233rehv@o|EX|nnEP)x!o`}IG1KE`^DB!^ zE7aJ(PS2(R2l=~;$Ptfj^9**<09nSi( zfHiCuolULib{wtFdg^rLn}@H=GZ#HhU&e#UfjP~hkm=u~pH8BlHY-&J1-~cCuyb%2`(o6P$lbC4`d#277lf594<8Fw(Qy}_4B+q1s zef6_NIZ*GcZ;)NJxe^@gt5H*JHM*N%Rj!0tWCflxFae3B6KLNCE-^UX=2Sko-RQ6o z{g&-9p)K11U?X|P(q|llo+dB`JxwX3q*Cf!UxISoBXcFzSzjVC9&{Z&Zges3I}aWl zga`MfVsuJM#po1DLI2`QMy4dpR%(-Arm*$XB!1v|bglzoScth7$^n!#{$nHxeZI6) zDTU&3*^kLfvIiXCegG!jgV~GI>jW0zAvN!C*1LMeL+WS||6Pv&sSlI3=r~B;0nU1W z|9}g|qTm-+2>53YA@AHi>oJqr5U*ih-5Mn;t#@#v!($SJzn4HI#nmR5h40`gFE_9W z^TTa=SG@V}v*U&HuxXS#^!Up4@NU1N%_l0>mB6uXMr4x~JO^Ga{AtlT4YfWHeDs5! zM@cm$`N>m&Sy&9ZNA`1PW0Zn_-Ww{}_uJVR!9L?mjF6T*2G zcGVs`agqhf@y#u&tYM4bO>JS7QM1tEhoEiOt(>y8P<=qW!YjmMw_f>i>YGrU%E$N! zw)5!>_E}yno_HQkA+X-;PVa{F%FB>owc4HWD5SG9ARUI3`4Ar_zK%Uh>ORsvxC_!- zP?3{OPYYR{$oMXnj&|;uOr}$RngM!Je>GHA1)5%`0-)Ta`0Quo>&y& zZRO|5`)#fKV0pi#&uxbepgEC6iEa63a!xCP|S;8OB<+^j5`MCTQJln|c5nq1@ z?f3aczHPzZ^Ck3N&Ty0Tj~edqw5FthyBalH6rw=k2165ISVDj3S#d{IwDZwxesFBz2ImdZppji3fl9R>*e6`EBsiXr^J}d z{_vpeX}Ln1w-oTwN!TA~ag~xXA zq<1WQoehQDT%Y2pdk6uyA@tl@pX|L0b#v6v%2Z$BlYJnPr;1jla+oPOPzljn0a05q z%p?aVT;Ut!;&E4aYz34eHK`OML#PBlA%#XEYj7kIn?|CMJHSbyVoXH+#h8c|@8|g< zTAM8xU|ix5-x7DiuU?#Rv|Ae^@Jm`>Mb*u_LezKmA}Et zF0tMx9%w`}TK{RvHhKT@2CG8cCZXA`Z?M`;4c1mP*CpKg@io?k;!>)YYpb!A4+VZg zja6q{amXUCSXTpO<`W97sS=mCYhktlY$!L6p;rZ8|5YOJc1(QnpR)0nOr zm}qROu>yK*6Dw@2vF19@_>tDu3F1MC&c3y1sDZULR&{MrQUD%4YO9rR#|16b&IGAq z#)qmnlc;tk1jURLz%Q9gk6C2~%-BT7y_;BNuT}P~sIj7nCWdBhVr?@wvD{2*uK>o@ zfDGqSjLgLpePL0oqp*m5XhH1l=oyZ?{VdGa&HZDGG=3ISk^hRQpLY_i21s&nB7KfJ zT8+9tvB{xYh=IFmtmM!~=En|w#MW57az{mtHAM>I1-hEXGgbi%6yoEMlNpN}d&Zz~ zddJjQ6CI^_rtpg?RH^SBjWYiFk-7h`A5k$d5*bTJinpg1`eW84FLTTqIjcn|tg+Tg z-eGjLGYnIfp|_t@a?s!xA&D-iCAy%N&?-amh?Y@UB!9oPu!!7#)*5S!;Rc7H*huRe;e2#sdn~s zO8;qgaFJSQ`kl7Pg`j(c4}V8%e4di0en*p>`ny#a`n&anN!#`=nPZVvS({T#EX%iw z9Zs~DB9=eg+KdgSszuea9*gL@L)1eR~x@g?oPMy3S${pn_8~2@i9?SYQ=4D!|*rR7#<)(F?`_!gj!sq4?ZVooX9$8 zlE*dZypt~#9lR=P z@WzkCs?qs_T%)^BA5A(i{PfW*JF^z5-?E{#m|g5V*FB8bT%Q z-YcQ1s>CG5Q9++_0)0wKyyXzJ<+OhvkN&+3QfV3H{|q>JT4^oq-$&w0>K%bEX#{=X zY$=pM`}cG_aOo50QviPx%cs%aJq?P=G*a?pVjvaZZ1bCC24|6~3#ghvxuQA6gELhX zC}V6u`vji=^+7yT2{@=Fj@bzwhs^;Vham3lR*eBD#a~?%1FP5$4FOyC zpj|HJzu9hccIkf7u^W|Id5eB^NXZ`AZq>iV3*R5v9wpeu@`T;gY{h(sJ!N zw)O&QfTb5sf1}=Hqkz-%O(uJ%m1Qh)Y1hFFJC3!S|wH1Sij&dov0H=luk@wpSLxM z!xo?wZ+_mkDZ$VT9_Z{qu!|i)i$@zvuXuej%H8z} zuXkS2egOyimALw%^NLD4lQF*gIg#Jp=)9s%nR)mmpXPh>B);a}llYq7*k=^pILYTa zi(W+K=EXnxO}2y+D#Z zAQH2k)@vJ&P|VvPI=0e!ZQ)I_Z_7#EC_HWE^4LaUc*chV z*jcd$lxccH=o5CuB`YKY&iIbO^%sF1N|~K9hR#@^r2NT%Q~xN~$LZw+6Xoe&g6=uO zM#tJ=$FaTV_3zlUxIOYnds>`Q{^XbAYN)1uNsAMbd}=vP@W^phM%8mCjYac_+?n`D z+_RPl(jYf@uZ}x_f9l=%FRl*6EfNOGFE5bySr|bf9@L|`;nmnVM)={jv%Tr{g^IA{ zEh`qjvw2Z^#fA}TqPllQd9hY8sIdWGK^L9juM5SQnzvzwRq^0`E4cKEhcUxq?^}VU zwg)q;JKTQEu)wKPMk?y!(n6heaWE`>Aj+v-x1E!NYwO~2o%`C6IIZnSl;mhVf{nA) zm|^)=ABj>Q*(?N(Y}U&ma%6KvwByKTI_dB&L!Km|I@%^VxXCV~#{Y zAwL?arK2$%FyLTvFcJk}iXY|l7o)9tz`=G2*o!?!Hru?YmB)>1eefKy;c=-|MHH=U zVyFP)K|U@ufRo#X@Y%JJ2iTqFzGGj=fx&z>okKF1>f2zHq{IU|Fwe*I9@DBj zbqvK&B~J`iww@T&rp#j})ps6OyE2aFF{%3R(|RpOqW(3tM;(0}q$CcLDifrDkvB-Oe&>Wz-p-fuTW(`lOr1Tm z1uk+Ud7~$;B8MgP5$GOtl4N)fd!@A>LTRnU3f{)FNEZ2c4MZM z{j(fcurn)?bz|8YoU`0$ZrX4{cFb|#?qGej_^dp4QBCXbKPLxjmKy<7yxa(&V)U<7 z7tMTSi_x5v=}o8F=O56Psg}$BJg5P819$iqS_okAs_m?nqh+bB~XuFnF>)W7|x%sp>dlf5z6BW9ujnBMrf^ut!7 zh7T1{bB>p-<}Y5h3I-!jgfEOd)wqtN{!$~d%&<`6yl>$88(3%=5h~J0y`@@Wskan) z!)n7l_|$MC@|=3Zs(~1!<-{t@kHsR4J^rD3BgQ2VlLs5>8?y|j(-86(d;Z9!e;|uB z@{HUO9`Z&|&al+Wo*QJgfv_r>VUJj~ao>OSGsGO>^iJz{>=5f7;pz~&Fz*AelrwHU zpajh3tsz#yUI{XC;MKkCg=8{*0=JR7VP?NGCt{;vui3|!d|M))oUs?$$%dEl9n2iK z*KCSjvez8;O^Nb=S%}J7R;2uU3H!Ga1>6%&4uLp)YHE6Mcat{ z-mDN);8JeB{JmKi{k=I-l%GO_|K@wMNzBGTD(w2+%!zsJ;Ld$-HW~{afs^c)^lC9( zrab?>S!Ex5Bv~B27iD}K&Qz6P`89|w4O_I#KJ10$*0Hb`tSHkNOI1%YM;l?1dl=VJ%?{I={bCx&*Iw*K7)%* z&(O!FggHu!J%Z(s_Xxhury=z{C6d&@Qz)*e-;ykOo`6k8-(eVU9KQ4D%ubAc520gv z=o%CA5SzkpM~0^DfPLF8E{7_eg0*eMChOKO(nZ??u-Tx2CVDobI^NAdb8~Eh(MIn^ zJhg8lM9&6X?YkdgC;}jo*H2A8{JAMH>%U0nJ0T=>=B5bi#N|fzRIy$t6PJr}LwjyH zG<~gzOp(+&4$HvRx#j2rSHcqGKG;9th{2&6okJ#sD@W%fGAnRp89>j#J8-rwg?$1H zMiGk|LJI`A!^qwxx#bM(J#27`Urw}7NAqxoF(;+_U^7ZL-G#Nyr56%ClVMl^qfv8D zaSm)oAxuQBo-5~U-oZIA89jul!r&a3jKZ3Pug2z=uL?;?FNrB3#GT+Pu!T-7MpGC> zps$%V=UcfzY}l!3Ib82+D70ZP`VE>C`1~2g2t6L^l#3BxQIecc zXjYXZC*-nx-XO8&4ca%JDu4D)XiQ;(p)l;(aXFI0=*mry6AZp*BhrDd^+Dc7Q}=j< z8mz0?GRiq2ZOwdFGn+4!4<@RJUtNjei$5jl<^RN5@f!0u%=${<0MZ_3>K>Z+=7ELJxXvw$ky=ZgN(%R(ET1W_D0V|a?=q}fwy9~ACn*V6CF@_o6lKTZ)s>)*{>|-uHDhJF#Mr@a`B1Q7rF)g2;albVy*(cQj3`fHPbJ=5*fa zbbDkvwnw~gsMXf5qXX8j^<$(&@7;irw||Xw=z#E5wTS`X@hgWqQW%_Vb$56N&bGUt zDZ&wh!&U>n8axhL75GYMkSh0yvJe_0iL!G17;Ke0#*UH9y=$9g-CgkV1!PRyv2~T4>wD}BKr0{kdm5eVZ#S0Pzb5Csa9sd=-6M} z2H6+cE=JfKCz{Q@IS$!3^tO4Dou%eUAp~Bw1#qSGL~{&tqWRx^A`=hWBqzE>|FLG- z0|v(C$C@Pv!nd1yk2S~mAb1et-Psq5VImNF2;%}&&rU5!au6}>B_DLp&LoiJP!z;~ zjdrUbGDC^%H&M%^4h~VggpNNoi>z~h6Ws+Y4*z_giT%4Lkp=to;*ilRMASe&?M9DLH@*|zOB_R!;p^iEMIbBZPWxaXUfhnIO5rp=!DOf!S;uH>2K z>N`#zhS36BB~CV~pDa#Ow=_*;w+TM^y_RhPT-|@G zMG3|9s-p-LTY`vj=JVW6aD!&_7BV-DIle;Xh?p>(=IAS+p9Dy@H=oK{=nbSG9G#P&Q6tqF@Lb;%P2FPn1cN%Vw-JTMxXO^1K$B;4sq+yi2NVdM3?rDi%Q$?)dTojxKw(J>e<1`({5f9 zYqK3cQA5z)AJIwvNZ$xH=PtQp_%HB2O244Hb6>b)50@x*$CzGvJ}!yLVLqbbhv+xFAC|;Ojt@#=oW1Xt#3cJbB+q*g``(2Z z0Fk^GAZkJ6;5*kuY$3mOO~iutjccM=o3~pIzJ3iROu<+2sJ?SZOFEyL96C!SG$m)! z8Q2Aff=5LDG@i8dbcuqe16c4ReMxlWa!?X_8KNKKmh1sH76IX4%Bek$r9|+B+Yc={ z4q#LW?Z;F5_tSm4{V?MU1z-&94`4YF*e&vV(Yy6Nh9Z2AQ9DlG9@ug2K7@JlZukX1 zLc7CVv^xa&SaRrL+8yqs-62Ra10n?{(Bz?(3=8NyT-rl=rS{#7rKB^XA_5sc=@ugL*n3^+5{I zkugHKfo=+UXapkv(8ADh8uRV^nOSqhcc+6&qnGGP@-8HvF*` zC~3BtI}JR{<(;K7P!cm^0%pC_Cm>o1E#~Fa6wfpWu$4FW98XR0-aR40Hf2JDdGdsa z7#y~G@RPvfuuTMyL#U&}Lxv3n3Dw3-EFvn5nXaUYTRLHaF%#AT3>FGM+n-L|c0jZS6_;sYKe?VHOje*wi5f6V9t$ zO$kF3LPApqHj7=@rDb3$=In9M|A>QH4v4Ul=}lUb>=ST=mD3?My!_)V?^OisCWX zy>#jXGbbZ%$(#(UTMDqv8PV{Dv}VjoFAqr=Cq^X(-Ze}k>^x?&cYnncAT)f6@jG!l9^sQu1%=^Z_ESM^ zOqp9Dr(F6JV{!)FGuZm6z!|ff9CG$?nwGZegFVRRT^7spocB5bw*WkclOwSimJ4>PKBpaxi=Qs zjScTr$}{tExwYvW66YGC{tqwVf4!J9Lc=aJg&9$mb@azhDCT9b_R43CQ|GtI2)R+& zUnOSKeX-pgnVWuORPO)4K)Wdn^c3YiQ&myiY(wLH#Gz`8B3stERK9es!H|`xd@LUU zX(rQ9E?+44NFeCwEcpahh*M>Qh{2Uztjf2pT&#*7SE6F0lpX9*CX#)J*=!WwVPaDa z%4w>OgpGi=B&U&_9fr*j!M z)3xDb7@4*yhj87^x4tCz=bD-ObFt=Sn5<-_Gn<&MWs`u2s|$%;p_lyC>EWdMC1!*t zj8s26*bOazwJS^BUQ`?r!TE;5Lvn+LOxRvT-rdz7Gai_X zKXq^(`!vIdt((ID(5;)HOy|}OUzE3nD-LI{7XQBk_;zwbqscICUBdv<#Gv`UBfktJX5~OqwI5F1I1>v=2SlNmOBz|mr>fjXw)}xdtlAA| z2!wPp@3@ue+`ey-s-L-x|2bdXl^@_%WBnH^Zbpuwk=PJ zWG8GGj8of?@Ay%b%5vmVoT1vtYPhuW+8=@Q#6@NpR5Md_6m7y6rp(hl+#YW5jq`Ai z);*^+rv6o98}e6;=3Om0tBcD?QirCifbieFL^Z_JGgV<8tNAUg7(n7_6BakkPn+J{ zJWrKn>Y1)UK>73q-WEHFn>LuFqjg1-0S$x6HOzs26^-Kq@L?uYRLLLd|Kxp0FLeaBHZkbCx!O_?3gfNN{t=+ zy3GBBqnHVj^epMuS9=#@!z-<-p>gK?nQ8wrBn1{bu;BM;iHA85$%hgCA$ORu_Aza< zse6SYF}{|VnZZPH;qOw%@aMJ6870RkHC-VfMoz+3U2(V-dxlK9(opj~LNQfKiSgG+ zqNsF-k>rTyuMtgpcy#UVuzscKU<3fj*2STruA6~RMK2u;Q)M!GLlh~%zFiE73mX#d z#zhRlru%A0W6 z=`K<}lJiY`k!YFOWSZ%qUdv2YD$Xodu<^x>UI6wtPo2c5UJPfyAd$>IQuLfoq1{K) zy$fbMLypWs!FZ=>vs-5FB}R7!8EiT|n)&!%Uj67!BaoRxTukE4Z<_nlPX% zJ35AEY6h;WJyB#D8%c`RrQ0>(gcyipuO^9%YOk{^45X#|Ub~K{q6;+k#b*_chzVh& z;}DwGN@7n=ARk1`A>8^3!gYot1l7gDgAu<%uEJ4mB_Bj?#RY^%>(ml^gq0j*fgsYU z$DvDx02}xANjU1QL^f4g33PhZWQ_%vtq4ekM4N6KdL7#?O6^6}ge2SF{3kJS=qS)Z zA0!fyVy3@M;C@(#-d_lP#Fg*a}X=+gJDSU6&qbK zH()N!t+PYiz(@(WNp+6tPShc77LM6gU3^NrRc8+4Na~mZy#A_1y=`P{( z%Q^zQ)orIx?NA}9{_}c5=8@lt4?vXI4?Q{x=eM_bo;Jv5hdvcgMw`ja$RV$iM&=q5 z$RXAJzKH7%oIl4y6s0o5b(4VS^C4GostxO-S#Lt$Q|%r1nzO@LT{x< zb={kOgqih447u(mFEgUg@>FUwfS=BgE#n6;=HbuiY`J$0FdtY+%rQegcn9h4QoLh= zUnwDxw%QUx-9?D;j}oGPF@wAoA)FZ=5n;~DiLgB~j*udWcD8X5vQIaHu;x|3%!<*D z05bAP@=Ppyk=W%|l_H~xxJcM)Vo$THs!7A6aG?A=La)rgIBz6F%L zDrYcyt6^WrhIhrNuFthulo(sOp-Zmr53<+Kn=dGgo(l?&U?JlPzn~E0rRocc!NMze zJk|Gcnioa(CSy-Cg;f)C`#`K^BfcZ-MTJ(b32RgW>;qJmzXBaB4+?Ko779LmMQ#Z{ zeKE`!uOS{lbT%wzXR?Qx)ot%Ru4ZrIBm8VKksgVdOw`Y*&*|L1lp*)$$Tw;l;YBP} zh}xh$Led`5O(x_!#+-4EIDh=(9C5AwV+OG~&k=zm3Ztr#2!?ZnRN`OTh^v+fxO?(6 zBJb3NnbBcnM4nGA@BbZR@hx@vC8gnT zK5JDyP7)o=H0=f46TpD+MGDYY$d}q8_wiG|*I}hgUgW}s%?g(>?Wj)SQspzk+7F28 zC-o|nW5eUyfMjX|lBtbcx{;+LyA|%axRS1O`V_@c!sa5gMJ|XaGAqqs3H>h+Ynne| z(n!@sVlLiGY{9*REVjh?<|){Ho-pCTc?z^dS@dxl7+xJdgxneWLzo$;(cC2S@5dD} zRGH=@#}&<|@p#(b8x`SO1_9A)okQgVl8zBQxM^Gjd0-&d8LKMcItP5rnMSRTNslv( z2qUL4aIdY$n&O~dWkFoZ8R=wNKG(^rN?2lV$sU6|xv5TgI77RKE zqZRs-b|R8zF`F(o2){YO;M2#r-`LuV51qy@$D}Oq<=z9pp`iTnaTR7@xrnT{9uo zymde6wvNHgHXKnFl4#2;wX4P&oQjmO23Om_Uvl`OxoV?pP&Ulx$llMlkehLew)Z|a zJqY}~!}qBs^y}O=yuDeK3dMC|ttM{55%`o{QwI#BI*x67FQ~L#9R>amhB-VXifns- zTH)UC>zDQAhH1sy{z&?KSA)TQTDfYgnRT{lU2K{o?7>{&?6FLZ6sJ0x$+Tfa$IVW1 zbe2{qiaY#a|HonEQ%&_Q^rBrcDt2tRUS7(K4JXBzH6lScRS~5!ew3X_Qq;A`vx8em z*iTjZwEu^v?+%Qj+WtS&cDB#XY|EzXY|CcTc2XfgAiE)?Kte(Y5D?NxfKWq7Xi}0u zLO@VT5EMZ=yDL5svA}yOpeQOf?1(;s=vM`MA^Md3&hUNT-yd`L+|M~PJG)cvy{CRj z6tVoBQ&5QSSz$TAQ=0K`d$1~*Bi8 z>K8fLJ$^31&rAZ}E^WlbeC+Hl*K-}1uswdX9&^g)>9wPEdDk)NtIAZA_u&VFPp}-2 zaUy+~;3TZKL%Jn1lSW0Ae>zyTW`Lw!FWp&1N*#(D1ZUjX1~J=i5Vakcz3uoE4gC{y z7~doodV!EecSZ?4oPK(cvs{RIKSiGt2MwP@SQV$ms&KSV^8vT8a#jIqbDUH$@(~Cd^f!KIBCfC61DaWnC1k5=L zt#c--R*nOwZ7d35Uch7ap^&6{9UqT>A@Df@Vmzd1UY`yry7M@Z;qptsY5lnbPsYkS z9ZD$w=|?Kh0YBASpvsE3_#irW>^EOy({Kc?&l6pbT3A-l50iyuG?+&$-q1J%fLD-aJ6OZE+odnfR|O z>3`wytmLjygbT>cG}oD@^Dibg1LQ#M4ZPtxk2412lL4@9JkHd1;*~vdn5GLt$Y~*5 zE@cZLU1M4Zx0Fh@5Zt0wh)+U_N(vG!1pj#pk-6_?XN!tyB&brngBl3D&w1$s(nC<3 zE|+orbI{7s`$C1|80?&IDmQ0vHtpW-#RdoP(|2Aqfi_i6sWD0U@**QB`Z9luI=V8I}hRx%-< z0p{DaAMnRqB(>0!f!>G5JSOPGmk};|JeiZ2(OuJ7YL%8q)Bi#=HqUNu!urhaNte`fyp9?2A^8|{%eAK@vgTb zY7Vd#=B`8n&!UEb4lKKI3@dI?&p;*~KSxix>s`m(GwhjDZHj;%^&AC0#z##n1&4G4 zE%$fIiKEBjg`ROjPpQ^BA~uRTR-0B*f>!^)KH!g46VQJ<$lOF-G~#uLpFlhZ#g7Uy+qPZ87a-M8auVSYD1KOw zxmd*s#XTr~3h|LBeo&Cvwl0Jf2tR}HD1`S5GFPeoGp%II*N8udcmNNxPmtM(d@IVo zj`$hG^HKg0L1x>&Mffv!Se7_*G6KxqNk6&H+I^q*iezPF6Z4re3g)l01k4;ALO@ho#jBz2p5AnAU zpNitWg3Pu(jBp3S?;v~+iuVXIH!)5?9Di@+WyGgTFl@bWtfeV2ZWF@zn=9W(xCX_$ z1eu#Ck`e}XQIC_f4^ z+vZ$tbOc{U`KyRGq5SuP%vOEIID&@}{v6@iD1J+jxi-a-#AE!V6IPD?#R>^j-8TL>Hm(4MAqw68;N+jc_XpUl(Mq zES!gj_!iM6D11$jnYP6L!nY7!io%}@GWY+4zejWh3SSjurY-ru!apK>FA84~WbXe7 z|BUDw{JTFEjx9f9OZ~6xuZXTi*$)Mo`G2y%10Ny~eP587|A%6EhY*clcUh2`HhfR> zBk`26b{Sf$Fx|5tb7f%}{R>eRh2KI?aTHGfFMJ1K6$)PxWG)IDP`F_nAgo2{*9Dnt z%lto_M4UtMi-OEXamUC){Qqf$c@%#|kh!*O8OK*oB~F_|MihTpklA;|)d(vQHlg@= zLFU?qqWFkg5=_8Mks&jRw+bOFOsK+(KH@DuOwb~1!GNh2A!Nq)+_29PKY_R&ajPFn z778+3zIR4!N7#UH6pGImWUg(*Rm9s6NB@P84aMgQGF$a2!jlm;Asmh3a|D@d8+irs z9K~o6s|r zRQha=Az80#Gr>lW0`KUI;zY&-mh(l4vMj1NL86CsI38U9fFuD$E!N$TgTI z#nL@o;Qakib=vvF*{6a7grVbdUqcsX_3wrD*p6K|-2|!Qaut-H!@+2iN$2l}eNnKG zD~IHc%ekPF;s{L3AWlO&g*Y`A=R(+U;!c^WmZ^7TY6?=4j+6x_%V3ENPLio^nW~bh zb22qirv66CUWt^-$LMlFoFIekGP^>io|LI_nfgwq#v>&q((ENEk7LHvGB{(eR*mZ@zrRU}hy$`oopI7x;1X=rhb3}VBG1v1qsQ=?_-d6~+W zsXt^Yh?JDg%Db$T!NoGTLZ%*=>n;8Gc^mqGk(oVZt}+GOeznOY(X znpLu3s|@0wz{rQ?#4R$_B2%x))FN4sQOkl0We`t=5f{kRYMGiZQ>SHWo=p8FQ*)7$ z(y_KWEjG&_N;BddnF`C)Y?=B}re?{4PIOD6<-e5^XUJfqOg$u1GiB-nnQD*)d7UhX zzlf8s1S1ZUsf{v~BU2Y-YN#wo=w-nnGB{EOvt??9Ol8T`(=wGQQ$NX622%c1E*G>l zUTK}B#!I>E>D{ST>xgOGKkp%=myBy?vkrUOyxHWs*;vGA*=)enu~ppKePr#xm8Sx` zrmKzLorM_gLNfggde?G!`9^(SzNj}gIBHaY6-#b$TwJEgztQjrFmah&mLW=f7d0{P zy~oh;M+&#yZt(N`cDrsx2A7(u^-tp0qtQftAj`;A5E#8lKAVq)j-JiOLPv)QctNZH zLvY}5Wg>UdNl!e>c3gg>HIcjQHH$U*4q7ZmYjk<7mNsxROYoN}$v1dLAxkH#f{$u59uYK$ZMDg%dq zM!pMdSk+?r0&g(t(gN2v)&;b5zEA}T~qi+xq=GT>*_!?m*L#gib`C)^uUKX6Z49vyI@hH8_JJiB+9Q$oYckMF3Zp3LkU+H zOC^@$6~65c0T*sO}QrZZIlX!#HSWN`hedf}v^>GV*MSZy6K)En}n( zF*fQSaSpKyO(L%-vU3tiuA2ZwHqoAtBZRz{HrONG6V>d5gTwQw#aCm-t6Cup#oR|4i#)1fMJ@_4V#@bPGGr{+qTD^Y`0DErmk zxv+k8A!-KM@e0>jYP>>nQtjDjI)SR|Yq0cS%~lvFH4p>ipU~yk7+|1Pk*A9s8Lgqk z@4scV+^$NMcxzW>toKFL_YD8)5N4<@LR=$ix8Nwa`9a1Yu0X#9`UcUl1$CpFQ6V{A z!6nrN;kf*$ZzYX>C-vM22!X2;tIml!;yFU5^xpxxGok80ei zaSXASLKn{@l4|s1R4{3LDCLxBOr6ZMVVd6B)}{rclex)w5ktPoj9$K6iI3jrz|~kr zo)Aj%G8BF!j|2S^l+aa$2(H!MQY)N2<8IN;p3={0PbldYZ6&{=RYP3Q*#5-tjPc^- zNx9{K#Eib~RUmY)2AkUSA(0B7+zr7fwe^XNy%U7x39Gb!Lb=irkOt^22k={ZZC==8L z2Wru}@zeOa@eX+MC@i3P{bmDP1M|6OhVkU1-NX%p*zjPwQCaPTU6uR;9zH$r$2U5f zn>~}|61pkHCA7^_mq3|0k$aQ2)m|5H$@?Z9#aSEExfIf7f4XR*Duop5%V@e~D*owO zeR~-_thdyAo8ne-U@*7Gd#ra>aO0^cnQ?S5HK8j0jP`s!T72SEbqBnnz=&y*T-x!j@ z&&>uKU*>g~(P%kgE25b<%fPCJK^4?8dR z2x^I%D@EnZo8%b-6i?HHlG-nuV|f1pdOtzqAZ{ER(Ca%(9J~P?;qr0fo&0uXaw=ky?C~8`*p;^x0cjX$lG(W4G`QeeQ-)^{B1Xs*ACXVG7=0 zDNvpwgtAT*60T78w!%P5kP}9r;$+S&gLd(}EUh~C_NZAF8YlP8+oPPF`CswrqvWdc z7T;{tN$mh*U=$%3iwQ%;e8Su~1Spr_P~_gO&TI1~{8r5j!tD8r8tUiQ&cdVza#{93 z9;6-mtwjOxx2Fa29Nnc~Pd4UoaDoqEIc_xAFY%;X!92_gi-(emhDD7lSY0_y`aJ8v zv{UFV6+%OV(9kE?6q=Ybj5xAN)YnlacFwT8YZ*ixrRVB~u_F0<1C@U0x9v`%0?Y1( za;(G4hvTkM!&gduDW`$vPo0K}$;cTNJzN;RiXfjCsF>lN(9pTnf?|5Lk!At)R54Xb z13Ox>OqmL4Go5p>911E?Le(z|6UxxWKJnY)3jf?i%?n=^dV5=i-bq5QJ9oHh-LN2W z=zkh<0eFKo=1n9M1Ek_tVqp`Onx9|4prNsTiNC&md5~1Sl9Q;aoB_^nmMWkEl{}%` zC&|;R@u%^jnJO|-Jp`h!4*`C>0wz9#+)sq99LMu` zENV`UAQH9SMu`5i5qLCzz|Krl!Egcx-TW=4ByLj%@Fb?6`}1wsI2+Fm4_J^1mOs~| z$xAwZC4RoE_8Qf#Q{|N&t~n6)n}u9#4(5W_`scmV=-<=4HjHwkpVFknTq)6b2r004eOZ=u7vZQnhGYY~ZYFs4f{0pczqA+;EDLqXY zZ4{RSI`O*>py5tDx81{wsk^ZVpJs}fUlVWjx6@y1X|xuf@vHSYvXzA7E&(t8aS0C^ zWWJ53yq{+VH@zQF(KkHVYlY3V`@w8l?sAIU_nj-JV9_`P`mnmcC=YHn8+n z4$ZA*X_%s~h|+E*xQJIrD{1lCr#1(7gV6auQ*70Xt8+?eZ~L8Ji`)mJ?pW=XTMXJo zb^Zx#HA&+lq4S4W-p(GTq)z>Av<`p5Hd1bhS2p6Tcm}qa(h+QTNfT5uvKQMt?i3yx zEpwEZ*AqpHL)A&qQ^gN6>D8;}?N{PWtWU#*LER`{O04&iPH&Fuo@qOZzI);*a~$!# z?mj+LN;0#Sv{~cw@VP4V#p{!sxguXu8j1Q5u;o_x?4@OMxEGq;z!1#(C?_A9GlrO9 zGnA_VCpY6y#2L!G&^S)mFkS2Y3b+@eXgJ96!*_7b-qsK&^nMb_50%=Km!hod5}&d* zDs5)mTlLv~<=qLmPud>zs;&4sNB-s$c1&-i~t}(A7Lxun+wYeBgCz*Z7RD zrMaNM^$#a5IBIjyD5BmB#`FD?jSoCmOAi}A@dX_5%EDAsOsE!yO`)2Zntq)4Kk#EM zCyi1lzpgVrfHSBLO9gO0F`WMs;%^#cgd#-S+rNUmvPLRA6iYU zVRR+-?tA`Oh}8+6A1JZk)7vZ@lG-q}RT~p8$<**#ihrCSKLT(G->)URNOk1Q`$-VJBG6ED&6S{(r35RI5#`j2U<9r z61cuSI1sgS;BLeu4Q@xrW0&<)ek%_r%nJ+kdRO}3&pqDj5$xtPPG)8;AA||1bK7F2W&)o1@nqJcG~F7qq=3 zi8c(mtufZW1I!qxK8dV(V}So8m6-YILhRi09@hB@K-AP6oW)*QoPOw&GudEmxr{aA zFGI4C{3|v48bw}Kc>7(K6|Rl0LWL`c6!(RX6ooH*l;jY)o{Di_=l-@@v?z8?b6H_* zUasMtCLs4~7#~(}T%M}z(7?}`{%m6XJg#^F!F6bK_SMCp|Bl14 z!ysP30R&#waL>DS5${8ft8pkFO^_b6!V>UZyP zcj>-Y+SQ*K;hc^8TFXm`)Yn=H-E;`90!NG$6+r7($+S^?tpb$9%OrOpUMs0+C7Gc7 znBZP5)QfcC8W!FsxM{l?aq9{}IV_r9Fkbm9iFeC%eJsA8Ycv7qa(MMdZMmF#Gd!H= zW->8f6q7yVD{aMorEqlRpNb4pKW|ENTPof_O$!^NfqG4$PF!K7_xbIvopD|&vNMh@ zWiVIHCs4{T@6ZB!iZs@B*N6{1w%+4?KtYq-IWsR^fOVr1=&E$Cl+uetwwD6*?YRIX zeed)5bTIk_*M}tPv!r;#jAwfsp_(Uh4~A;!6h54;Qu!WL1|2@VAr>^3*V2;uClY6~ zwR%rb2-V?(6sp%dMngUl4H|Ik1L$WJTA;$|WErq&9Ym)Zia?mz4WNOXMty89;Ow#~ z7NTbzNAqQ9HV=Hx4KN3Oj(6(O5yp@*+-z|uy+oqMRGg?OpaUxPN6vuHLmP6yn)WRy zp5Ex7Q!Y3$MsXG{xkkFkMlk1814$6PUh*o(<#^RTEf^I+ubA|%+RDxK5ROl;Dj@l@ zhYP%>W~_8dXbLGIG^fkO{SlwxzIL)K9*JbBhYrS5&QI@r1QomSNof8vz8ELN!+-9j zZ7wg>5KuGIX;?pU@?2z2HNh?hJqAPbaQn$=W$mlwnVRZbH03{|wstWt^6`nTI_u*T z9i5gXsXmB2K2dU+r?C`PHOt%ARr^jvZ$EH`<|1OfH{j#+l`6bvIe$8VH|>!O zBe6J>UKTBNQp=(>F`bwcy)VDOV3kf2Yz!?u6<|@1CbxGR?62otQWMF>43(b5HmCfl zz`(VR{YvhQXfw<*2l0~mJPJdKN5Np~PrO!!Vn0)sf-k}xCS3?ENM};jDa%GG9gNWC zU`*;0N@+n$BCfQ?eXfASvVs|{*?edb2YmX|+~m+gQsWtmUjIF5(U`u2kwOdgOsiO} zV<_jiKW_j$mtk0>V-kDPp2PqI8Vd%EsuqZC^x6QP)wImur`;)r88?!04pnf)fo;ayTYv>s{T%fWeccGNa#YWl&apQ2`umO6VM;Tfv))S_OireaK!5bA*E((YdVFQ2+J^h!SPVLQ z>_D&B9cD9l;shU!ow|9b2#Q zp4;?Bci>I*Z=D!$1=qjP?N+Rh$}z5aquaW=JZPL=9<)qMC@;!$#vLsvqli zotsRV=*-oS@Ht$YpF~VXk*-OPbz9#=9#Mg=sh2cm$6cM}z3`qE)rVU2%EPh#XKgPS z9<`~9$3xYn$GVM0k9C)$yX$L@bra&4z;YTbm@sf@8w`BJ69cbpBL+Gzx`O#jzM;2b zP+xE>XdLGP)VC*s1N}I^xP<5YXzd2$FnQ}EjG29eC8G~LRj~2ar~mLx(m6k#bPyZO zu3#!uUE3BI=tlt}rH??TTS4_mD)@-xU~=Au=%hYk%q8@!{o^$u9?$+Y&GV1D`aO8| zDm;4?p1lgsUWI3$m$zZG8=Y%l0VKNN8`)6>^DL@@N(?{)#hKWuDdb8hf8b>STGlQdImAM~e*V)m=eqiU37ccy1YF zR2p^dW5Kjk-2IZ#AdY;=NP~9i1G~|G>|1=9ufj-;vn}2!JD%L8dTpCz48FEa4~=9& z5SKL-`1{BTBB7J0z@->|>5kyQ@pbD7132()u^3*jFdlWUGyUcnAy7xgy0!@DW4PHu z6WrTfTAEJrKEy4tx*k^C*NJ1EYqLd5K+Kr(eo7muLkHHqOp9MxM;KqZ1jZ$oKwNkU zQY0Pf`(n68a2gk5#+E&epcO}ib+j?z1{gbUK+*&H^)PWG)~)Cq_AK|p3?4)J)1O7X zf6+R6Gc;_(Iu)IEdL-8ZjMR7iS1fbg^n%{|sQCOvZay$mzCkasJ1?$dPSNa(>%`Yy zTo+~KUR<|GwSyS=_np2~q8v(aSKu0>d2t;khzLCQXl=I$(?)YD6AiWNqVK#zDsK@| zhXq|arO%Y_kd$&c;q9=Lj8|SIxE;|tX_%^HJf)lt#t~;h44wsmWwB@*Bn`#`IEL=c zC6%DL55pNBSjSyNdjg@p2=vAZCHm1)yV3viS3>#dI_ZzUi%Hwqybs^{+e3KoSL2a3 zdkB+sL5h&Ag)`x z!2rLVf&rC%(-S>RJ+F`H=GJYn(!Z*;>o(X+)@|TkrW8zzO0auK`p6zve_V@7`yUZn zREB@Is4TH<>cCt0fLuV1rA_TRDmV3fo7#KJ@HI=8DivrSy2W}sxej%bQ`d`GgYenZ z_z!40P)@yBg%3z2`r!7fkbeN11ea<##IVajR4fN=7HW>?tD(LsFbZ|V^{C}h(S1Sj z;o2CJ|1(`}j1ehXi7ND1o!_b7zXDfQ-YbI!8Xe1S0rABHYc;6F{By9XRN+kMhb%%+ zol>DHuzb#MgH;6zGvp{tD?LgJxg3khs#{cOZ02^@X^Z}1KJ8O*|5EAvQ@P&~=u(KO zv`wOSZQ*upgi!chg98j|50wLq7!^<|p^r#1{`D)+ z9Sk?<TrR|I6a6S-`5HZ>A2a3Kw)RT+VtKSLt_ybmKTATQiNevbl_P4AI{LK#loRheFYYU z3uFMtj-d(X7(-Pw80-3`WZU#}0>E9e!DhN^z7SfYcN9MA_|Kp79)04;zv?h*FSJ%4 z>%gGfFuDnAMM7>!xxuU{TDk6{R%GNxAvdhtDCI^aH)^@j$cl9AU%4{YCDu{&`SFIupX&ACGpBikXWVn><73xkT*~odgCz#cWl8`NQaxElYAH^V?P*6ui+bZatjiqc`8P&C4r4O; zaO@LghM83Mg2R(_ku=BIz=(b<8CWysG)xGa_^_x!#Z1^~NcDuxPm{`*L3QVP8gWES zwq+f0`g+m1n17>W8jQh!G1nq6TXC$)?!}o09tb^L%tKJZ!iRB49ZNi3oJyhuBTYVrH>O|LmSDolT=iIlfpuquEjk&rbZZ0iP z%k5i6z$K-um9u|<8n@6WimOl={HQioF>QHbL)c}Nnu$Jq!m115_VhY z_lWXmQ>bE`z0bQ({pvoL5uYS~O6Sco;A>m=JcKCXLq9 zq-Z%!DtR#@w8)8}Q(@0(a&V65JxwN(xoN~YM%6dDLS^waFZf06b@-lPf{BT0dd6PE zoK^hx99iKKK#?sO5xuqB+X;>i;G(87c8i6o%h^KlZs04C7RBZ zcUF627weh4h4l;E9FczLB@+gHt#@;^EJ?=U>I0Mg12rsxC$fRt^&Fdi=-gP0s91ID z@q!oiq+v!m zrii(oJMEjs&ht^xf-S1AHxmwnWZ<0fj$;J!!PNKR>que`234P`YJ|5 zTm{z;s=Pz|wXHFteQS(`@sL))xy#m=34@97)7Srnt!pZ3?E928+~RzTbzen|e$z7U z#6(t`ooSush!yueH9X4SNjYMzNCCv?cLR551gl-5gi^5jFJh?*qJzMAnRm#*wVzgR z|02x2PcS2Nbkof!LS1Xfy%`l(dNaycz}gJPucC;UT7&J=s7E^UX^f6cRp;zssXDg2 z3lj-jSf;jlA=-qRSjKUoM*%6XLK7>wJmsKg=d!TroT8CsU#O-{8Aj!B*2)fN+2{Z1 za?ULczbb?;h#3RbLWTrX090iNTTRJdK~4y!l@HJ<=kYJ9XQnFC?-ujd@$q=ix5&7(*a_lmw*>dAdYPo^JwGY!X_lXwFqzoK_{ zm%iRi+HGStkFwF9z2(77V!ha)5G*RM|I?#UPI4=uN)$~Rn7OFQHZ%o4%ekc)#Er>A zF|pZ=$(hnm#AhRRiF-dAkt2Td*@!A}%x5Fw;-+80^u0m22kRmPm7|1k`sX8b1w6By z5#7rfj7AG+o$sPK(>$=6;Ww>j%o%9JFI&yzksePS7}AAJrD=c}OgB2;or}Nmcl?bR z`wuQ2n)whO4N_-MF+n22lh za8{FsTeD!Xv?1#Wd@WCZ0_S#;7WPUR)p-1>;9CM}JmY)aC4_Xy431^Vup_=*b zaBg@4ovMhY`bRoHC{%zu0vgZmkt!-N(IJF~X5sbtpJuQ!6Zgm?Cp&Gg!q2`gUl#PC z^Q(T&MZ5VxH8aT*cl{HE>sst5iee%bsyUYyje$P)KXU_H_Y!~}MzQ zvct_au#N{<-~6UFhtKy_u|d_wik{7au69Y&{HB@rJw>D)8eCZ6h$nL9vX0If6IpZK zT()Ht$<18SRGZUAJoCQOlkU*rWNJQWYK6`jLinFTo77!!OhNI3o097Y4C@W&O=f+a zGh%el^5@%eQnaKAGd8<*Y+$@{960`Pp$`4;KdG=PqIuO4d*PIaMz)T^%ggg#uPm&5hGT z99h7+>dXafQm3ha_2=U|MyE>BYgw)VqnuPpBxg_<#P1gCLE5KQCB;bT#A1CWS~aT_ zyTte-x*T!w5nYwoP^E}Ug^N+1K-nU_I%nT+m z99S-l2?uTTz*rNDh3!v{2It=ysJy8|fx@SyXf{>r{9BEI(hUd{#e?k(s{H?RBOWF< zB2e6=Nm7lC2jZz2v;W3e=P=UjJqhxCrWxK{ovfSodArML`x)J$%jromu%cPCuV@DD z;X;K->}ZTJk{uh0&+<@(g{V3WXWFSR?{oKa7iL834`aF{{cAIfs+Sro&Y_PGd={ha z)^fX#>g+_sudkwUl(nL!95mE7NIQ#&e1^&Td{obFJxuR7Q3HMODegO;j+;>vkA8UQM@&WMQDWoYXi1v>{leI6fo^wo6l#U=_*%?9`u)`MaD_g0 zLn4`^_vCfZ2cA>bOl1QaW_O}K&d43nz*>cGCWbCLv__tfy};yEdt<0XmfNWz(vNTr z==yL8;?=^0#tY>9FQixx>gY!b;R$UT?Kcy-p(LT?9^oD%%smu6K{!~ecMO7?j=E3F zJ(;6e+tRvdHcm!v17S#vyfEZQa@uWZsU#H(>YEo10N$SybtZn?I<4gJpf)322v?>6 zw_dwgT0cF3CDV^2Mt+3}XvPdrOki!539P4k+$t^myU$OJE!23a%R3ZSIyr~7Ywo@g z)F!a1_6bJiOq)@dX%qMh3Z`CRH`Lnn*)*5rXJa17ra{HPY6bVbn#VW6?W|1E$tz59 zT(j7Yuc_pH>ND?Ye#zp_yeH`Iez+tvNn#Z1uJr`wK-R(I3i0=ThK3CKdu?f3|tWXhvDyytHY_I*M@2zJ)fU=7weT zl1ZeZ1=CL~V({lr0__kXJSnbL6_Xn?NxG`|DBZTGzANp>l#>cMNpirjbDaj2s>Atk z<5tL@OfoZdFXA8AWP#3Uq_VYXN&EcAMzDb?c|v%yG(~oDbQ&msSMvyisVo|z>1g;- z!H1`iy1Tj6m((t4UWtnV^CFRfc{5%l9O3Di z5Feq!MBxmQY7P_UA`JSJAkX1RbD;L^6hX|}>Il!60VDVb-HfSB2r3^&ppE}&Vts_g z6B0U0A0ot>eT0@iqf1_P{){f6|NFtY*6&X0jJS#4J$S@nkL%iDSeKK=EmGoo?5#DZ zwY-Bm)L5V%+>y#d@gywhGH^eI)?2#~Ct`N}F^DY_%QoG_I*jHMZ?ZAE0O+>jLJRA+ z8ad-<=zlN%unK5to#EEoO05Y-f3T?;ZgVU%+PK3;2VMKLX`1pvpN!lcMnv zJWcH*=t2AidaWghCA|b8qSb&hYTKshHv`wf3^t0p+^u)ZQ*wF}Mj*&%oGv$3xgq4{ z*5RqN_>oNgZw&;bq~1FQ^qzJKdk%tV*s98tX6hOh?3C~E48E&SaMOMxMfJbP1pQXv zim5@Rcud}Xo7^m&qr{x<&NGjKD9%xikY>h4DHFIT607RiuChMSa+OUHjaS)R?johq zUuE^n75JhWd{bN@?~T3+7#krsS#o2Oo59Tr+8;D$(b5;j8&n=%-_43-=_OqOnZSLl z7+fRXzn_bhW(@v|92`6+InhrCMAvcE2yxwjfrh_sa9S!}a>u5Tn5NBkT!p(@?s9J# zqU<_{iW^X2o=LGz{;EQ`Nt2rxxj~Op+WwV6&G~(5m&@Y!dG{NCj85njl6;ivjH93T zj8(kfgsJgeK4ZyvpNl|3*E2-aKl&71nFa&pCpHZU)T9vuiz=jt6)lZc>6@7K4HVtd zi0Vrbb@NtnSM^LRM-aOl9j55&nMCTAMd{Gd$=?qjULiJ!#5y@#FnidvrpwI;G$Y=KP9+V_>R# z1R5xJLpq(Mg&(zEUqf@-vgRdCsr9Ys&$^(gt$AkZk~z(@+ES;VfO%p8N+ym#*g^o}PgonsjRWBx>36`il!E6F5g^-A};b5okCB_ozbnX_QCc;jiuX&ck z*R(kA3|KS10MEikE5Lg2hwC4}cyJi8l#b%xnM4}Z3P~8#% z3phzr!&mr)Y3LfH^dBtvu&*-Bq32BUvYvd9?e1u-oTm+DV}X{MIAO&Wa5 z7PU5}wk=Az(_}C#s(aMeeLKe zk(tp8qbx_)&>ojd14%=CMH^ckz6JI3no>;|>+48&_?j2CHO+2nO&v88^Y!#WUZTVE zBcV0(RWQ1(zIpydAfmzH^c8|Tb<`vWs^hc zRAMCmwre`Iwz0mgUeOuV{S}J}zA4x5i=Tio-QmW=qw>7MaQE?*(&nm+6v{c3L?_4) za+-EF!f6-mi zcPOr|2D*^$-hkT0=N;PGncJg5#(9VDQ&G~49v~8d571Ia9tT&jp49gZvGd0oyDKQJnd8WLy zGB-&MzV2gCXQ zgt$E#t$#1Et6hIBm72cMaBx{fteL)1@BfLo+0G4ZAUXNJ5=Yq1`!Q{sg_ z0PXL?lMZmd50{+WDM=$a^}i1{$^Lz3B{Ti=wis&;>E4AHy7)zzo-YM%Goh8IU4EXa z0^QzsIf|pQcPVZaYoa6pt=0BBnF98r9C;tU^b`Ho2r+U`IN%?qcv~;-pXZ{b z-FIHq#~8(gqmC~2nI9hFBLwP~)>V5~OZo}Q^;7OE0Na!;|G1NeDcwf7Ys672_IUJ5 zf8%sVQ}SJWc)@xUr_p=Q9BCP4oOy6dm()+R#yF6GSYEZ`%g_oAA6NP{)V-axl?oQy!2*Tdqr{!8`MV$hbms!@xZs?N^KKfgLWzydw%Vv6x9_09f?<#0Pj)2 zgyG0pdT^8R&z0vf0Or94*I8Ypms=lD2->r>E1K#?Y1~WGfVFh1Ful%b1xo#4jrUceT<%ds9RQ^JZru0 zay_>hV}56ln^CLS%b>W;|2X+Rp~Okt`>*a)>O03^VoADq_*ppckRfVKJw5tiV^!Nq zgYI>sxo~cu6ke7R0Ocd&@GoAzuUaFl*fkvb&&JaQ9YFR7e!VZ@VeajRlyE*!zA;u& zx?fN^>-F(DwY~Tct=unkNtr~CF2@8`Cg(EaTCHQp0UAPU(O-V#4a z?b;Y0R!PD5k9n-n;#$oVUlZk}u=jvHsCJdum!t9DP82F|E!-JfrgkO9rhuzIrc8~q zi`OVl8cFPlqqsDl@aJb@$O2KQ(pCYHA~^Md0;AM-@U00(<&PY_KES;nATUCPd-hcp zlORQj}_3=bUz3YYNXCW<*!zZ)L~Fh6!V{Qc2$k3`_nh6+l5BW?Lt9) z?P29Cj_B=u6rBJaXvUqTSfPs%_pZS7wf!`KD&pr!tMn5*Fg{bST)?H&uv#=~zc`Ci za(@%%3>DpO)4L+5mmL!jB24+AJc~LlL60t95rv_kK23aM^af3l5tDI z&4*h8Zt=LeS-{~!a3Cq-X2&fSw;0@_af`yuikk&DGj1l_jJOH7@wgdq)8nSYO^cfb zH?`#>$*UzHg(BZm)P}aRgb+~)X*ROqaybpOyP*vS|Msy8C_*R9NNr~{wIkNqo`ttK zDvBbSSF55)e7V@Mk7}fdHXfo|adtFi{p|MT*w>+2=sK!}mi&xrAspf(`gllUD{+sj z@h}BL!y*RU<2?3XiHBNzP$K++PK9&H3FLNQPeATLr@&QEW5}e~r#t^4S49fErq;v7Nc!2E)#G-)Qe;)<{dg3x$^sQAfWu}a;lBdI zQQ#oXmRQ@C$0gc zFXCTYi0+F|E9rYMb|Yc}(TTwoe&m1}Pv?L~{0SQ=k;nnJSTFYuVhw+pz z-pd!3a}GQHDpx;?PLoHmaRr$v+!zJgqdt9G{Kbh?eigQU%GhD+cb!`@c_}(=szr7* zN9Q>@E~lY_0SKDqq;9r~py1I@pm$#Gi`x&=ucc-naOMQ{_F=_2>(C|81(1#+Rj}F9`C-TW~_QKF51fWw-6O zxBq)L*ogj<`|MXDX?!Guq-J?CgzmD3?6Hw&j!Tj3hwK(f?($M3>mfThBIzx*Km^}0 z_ql}#zUjBx75G?j&Pc}nHWb`yC!$^_2uFV(1298l$@~Lr=!~%&`m?sp?w^CVQr2dB zoPb-B0P4A5&@wR9g>d#JJ32&fvP*!C#+9%7PVMecG&xIH5d!p=2iWgu7CVQQ{oz&C(P;jtsydm zBo+#ulP4Z)AX&65v^LF5+DlF1BST5;SX^Aqo_O*kEkuS0LxgmptNJer|D8hgT8jdR zToS4+I6J~*TNxz@t~9NfAf#u~`&mYa48>je$kaLY-S-MZY@{v0vuUgZ30iM0m`9X= z)T18@OjQ0@ATczZ90QizF(7hdFpEH743O6__KKOc9GAxUm3*XfZXl9lBX5HK{z;1Q z;ITm+D8n>AWDjmWJD>g!x=2ozn%|-{etI-H3A3y;;NL#no~F8b{#f!Qu%*)2AF({m zI@}2rsdWex@zz`?C_nr1Xet&6k&=*~=LDZF$q5glBX{aW1On&h_;@t}UIelb$ag}N z@tMYoN*m}G6s0ePQ5pM<~ejhv>P3Xf;+*!*@+!uM_}M2 zsu>?6FrPT!Ln-U1lL0D0l z#|DzPt&ojbJrITU@w8iw4sKj)SdB6CV7-RTeVPCV_Qa0lrh;s3Gq-|UguKO~cIkDhUS zbd`XA#|vMxVQCXJ&WHK)Y~ic06nx%b9(h2hqA+=X73nF30cCZB|7XqDoUQuZp~`bZ z1JiVSoP19rQ0JnhjJLmaSPfvTGQccnpR%sQA1D!=*3s`pd)GCc_BlIT#NU6?78q#| zomZoEUtVO^T(kvh45Im=eayT!nea;-SYJv?iHnHWU4H1?3x5vc3$@|#Piy&}l;G&} zme!6tMoL-t#;ns91IsxL=LKV;4W@*b^OEDzhfx-QgolyMqRD6CC|ilkh$m4OPjQV4 zeKg6K(AtJ}?w~EKmat2rN_six60>1~C4~H>-gq2sEjIW&~Q)Kq~@E)xa_Y+SEWh0v&2# zIRY!xKqmrSYG5S-x2SqYZ0G`WTa8bQD=w}~Q}Nbk zbqQhyC+=VMPR{->*0kIIWY>y8hSk*8*T-dwLAXP7jqJ=ACIxp}g~xN`0x8Hmku#Eu zpgm#`ACn~wE8~V2P*`!n2U>-?c~%3BOI)r(@)(6^sg^YWoWA;3`c*qZ4C?R&3$oIo zwNj9if;_VNh}=Pqi=0~baA6c2V1n#lc5&?#!5w631#gfZc;2Zm93E+US8;!KdKbToIz zmnG+6HgX4f_d4zX=tQc7zdoq;D+_H!gK=b+;)p&iF3w5+JR}}4IVX%e#dd8$TVhX zPvPJTdqFd4q{^$uOZMUqOldtZ{+ote6Y)<^ccxjkWIdM-%V&&?AZhb4SQ2?JK%JuI zx(WZjB3Kam+;9Q&yaua6PY-9>LfyyM_MtfIp)cM}+b#WO6psB@leSZH^t5NURBWQz zRQ)9YLmJ%4%KTICy89@uRCqtvSN%4^4`J(%nw)U{i6%XKO)d7*!tl>TET(=qW1``o z$$3d;Ud+A7wQ?*poE0bwnr^G|C%i zwUqtA_cSc57%j*c&=jNjm?AaLW{E+=4aU8=?8_S2a9I=M?Tdz)BF9=Eq`#@Xv1Jj) z$JQ1pXq1AcY^q_zU^uHwq5`lPShPSAc$tfYbm|r=#l-IV@H%LLV z6tqY|s}%J1Tc2RGU%gz5L~hnlOk-PM?bt(19SOg_tmW?`YN5zUAe*sV!GJ(fJ#kbf zh(YInD6H&Tr$1KEIQ+ZQ1W33 z^Do$I4J90Y7aOrbxU_0c#s96EV}788iAgDB&fq^dk#h@WUIaIoQZC>JNCAZfYOpcW4@xF57w;`Ygeoq zUp%6)c3HO1ew*WSGlgj6!N9kHmwENToik*5dz}07g~Aui_FbbY-Gyz;;BL4RT$k9vE8Ez?A0=)u)_f*MpntjiJc+_KNC%z6R54G1O)%)C?^4P1OrK zjEwm3C;qtCuI@0N7lQx@T@sfe2E8n|Vy7`Zg5~ZuPKaW;w(Z6WF&NG2|6Z}Qx+yM4 z3}#DYkL=bHwzH*R#2Y$oI@x2=siqB^+`*gzeOaUwjPg;2!a8PAef83&(VC{khQZQNy#uQL{9Bb~Z?yA0@3NikScv`UoLAJYjd6O8FSqN?Y z%1&o3`RY9YhY_5s%nQa!LAi+(sqd*yZ*bU6w5_QF-zP;3j($YPSxou|jRjKQILj~t zr5pCTrJx620u(or5n_f3%sR3M){$+|Ix3Hmf^oM{jJBM(t&A|$gyl~3336f>4d2+w zrS^@RWsd8;Ig-q?&5kJ%WVSMn3jED9J7z?Xw|Znp4@;7^8hsFn&Gb?`>Ysh=@(tY%a}}dO;`SO59=|IYOEeL$0LF z=9@B5%}F~L%ZC)6e3yBAM!GcPHD+Ie6ik$YNm4L5hx}&WR@PSD+bmTSv4k9p*s+e; zHDoSi9q=Ht?6f+nQ0n8@p~KldR>zb`vJ|n-lmVtRBU73aL(bHGW^P87)Ke7;>*E1t zQnna`(mJ}P3Cn^3rWo~^l0oiv)CGn9{ z@a;|dlA9e&7K5|88T*W}TA`FrlV_A-a(sk~oP+q(41N)AECy%)hl{T8@{3UfG=%Gv z(lg~w1}+5^)-{Y@T3AbA^t$Z??}hW527Yf+FzXhBEie_P2N9BINR+(zMGT2z)R5>2 zMt>0@#^@w>P*D$YI;l9A9^ts>L&^Dj>i?@2V;T}g*j|cLfQ(q-CTYfK%E*jx#1oAs zaZWqAd#a!c=$YanM_Mt7R{U(m1Vm;wY@Is@B-*%O{2CG+6QOv+&xs#9k;?VNE6Mk> z?)?uJj9&OKR8GO{M9KJM8U*v!ZGZSQ1UVG31}YuR&KJb}BSs$BKMpcDDKpn^dcokk zp}AiVtxj+RMPN`!(*46nw)eHP<54|?qcFy(L(J)s;-dwl4m=8_Sa38&2-k16qa%(@ zBym%G{?ttY5`!NbvthQmX1+V3aQNd{6cJNMjiw|-jE9EeA6hDe%XILa?KQ#th(f6( zi^8xVob@_ng;`|#sA*KqN6;Dti)KZi%#yaD+t#vNU0lYzFk}U^y~P5wM#1u>BtG=f zQwtsff^4v2DY5&>VOh;A7QV;%)NFF^g(c)1+%Gr{F%z@soCvL4un@l@kYt2meR(Yz zBVj+b849t&4GQ^LKQnOgkBmC$aQEM#rQ4v;3XZ{}NTd&AusahRi{Chmq2cuJvj~pI zZvwIcl9$}Oll03d(mgxOefXG`j$J|=xH_1}8KyQSGBJ-8pWHRt_H=gGBa_KUEVuE) z?(Xr^B9n($_tRBcq9N8cC53V{8@p5JT;|8P8i?3IY&jUBI9qlUQwUa);G^k|9w+&R zvoEQBjFAOZ`R?Pp@p}G+xaly0V&W;O$cSci^VS3VUm!>;0ihXB&TTUpEiN3BRLMB2 zo#g!ZF48tq;&VIn7YGUC72=D+xFC`E(7h12ygX$cfrZe!j5 zhC}7uUqd_>1Smb&J*j>+L&`68(y7<^DNfDaUD7{a5m%ge8W#DHg{Q=V?Zt!pcZsft z@+ANw9dHUI@C15~JntzxW9Kho*SvRl2MaRk-g$!`+b6)GEoMWQ>*4p`^X&9E(v%b1 zAK%5Eb@+F)*lpy`p7cGs_FG5%PG1>x(Hk7_9Ih%OtNdiFlWKM*(KTX64W}(wk;O4q z`?V6vJUql4%FJZWTzBPqdOWdV{vEx)y>H@6otZ~p;Ep5}GiP?Ewb*F_(Vw}>X3vx? znDUv@`mopI+w6Himf{%OsrOI7%#Qb9QuD&6#C`7c)$aS;=`rBoKe_jFr~DuG z!Y;Z&38F$y)iS7i?^|)bkxr*v{BaoEIFgF?K0uX=8GmeHG|IMjgVTTbp~o12!Z_vF z8b)w@Q-YD9gnYYW=iDdMFfsP*FT>If%QcMe!uA@*vk3=((f0gsW!h%k2oq&*QQ?^R z+^D;}7xHbymj$H!#pD2Ls=U34qJK=Ozu-&r5;fDKqq&|z{nXD|Dj@j6z%ms`iGo0A>BMpnml@6(w`Pq<;8w3`UQardI z&HIz#-Rg9|s&CmQ77h;8VqTWE{m;1Cv~WrvGr0NtNT@U;qcqR(LI=S5o3+pIGE>rKI&d>?-BWZ}K)^dU5u?y1#YemvB@qVT4tj+5fn%gyHzje|c(^&41MmVU=Z2 zo?&b!W7o!Ro9{~>Vyq5MU1iZ1(`@g|94U=>;4=S8l&{D6dK5FL6&_*C{#yO#Q4vB1 z$9aY#-o38*VyYDO`ZM%3c^kw0*Rckaw|@=)%|R|geY!rkxC5&-fN+r0C*jXkbpLZ+ z#;VYCtosgHDmclaJ?`6_^wo9m1ruhk7w~LN69@~8jzj*+d-o_+QEZpn((FSkPl+gy+INBh1KQpffNXcj@k&?drP`D=sg)D<`UJqYcTM2RDKh?k-0&#t|RR$f;TZI&Z+y9v@#ZV7qQP<{xfsSZ} zfFUexs~9jqL;ajh?oBcLC`YCk9CA_$99J^B8TqazF5FXVf0gka-krdC@A9P>D1i;n zNMOtH!j0++KaLmfx3A~y#uS4Tskh)pLz!we`u{%%hbl7&_exRv*)S1--6vJ*%YVQ= zfI^`4=|20_6W`9q%f9e;B_k{aqEz>vOUdNv!qLA1hfLYLlni6gI{2j|vrA#JINNAR zTj}y8`g8vHKA!uHP5WcWwb;5EJCju=V%9r+1@Ur3?oA}FY>FDT`b6$cN!!c38Dt}C zfm`rqNX#*x3}Zr8Fl2OSQga1MD|{LKy4#xMv){K+++M+qdC<=jh35^->m~A*SW^@X zGd@g{Xx>a=SB*w!e=5wJd(r>H&;ZL#E`pQfUq46I|Mj!Wb)wf-q%HH?znjtuB0PL$ zd-xK+Cy`eu{sI^BJK52GPa}&nHyiT1m@F8sKsz&y<%bg1Z=&VJy3{`d7G=OTjAZ1gwQxQQh7q-~CAf{YCEmYd7EI?>Rz$ zMSyr_#4!5=pBSuO6Kja2m=fKe!Yp!(pCkrr9*X7Sd2G_&mfRE08scWb9BgB9Sl`BM z;WIbGJj9XCEeG6xa9Nnz?tV0h8=1+7Pr;Dsa}34R4-cAtQQSS)yV+2Kb7S<`hj7kdD-f>2k)b23C;=_7r)QBq_(|yvz8hPH< zJ^g(SW7A!4PPPGb`6MWetRs!=T}~cgVg1vD9px7NDVygMMc0?#&lX;@#+ZbOl~Lpg z7cODXj=r-Dl=~DJWL^U-Pm`_dgk8zLQt(Vxi-E@qj-(b|s zd9O29CR63hV;I*DdvXhGd-8>8VBIN_nAyuf%%)Q7q+sG|HB-h93#~uTvVR^<^m*C; z5$%-y0ivDHL9}!Jr$Uuz=eg&Q9c45xs4` z!K(AvZ~w=t^Vn|&;n-!4T_M45Axb`;1Tc~dr?KbJwTA($K@4_H7m&SN1u6x>j=Va6 z*9kP?g7AU_%OTh`lMz4#G4gi+LuONokg4n+%g<(A)yjpT$~P4j+a$kWYr@LUQK@bK zJt7omi!T3+0GMv3wvSVZZW^zQS+~NP^~sMmS28hoU19sLc#RVtz7mjv&1U1q;A(Wf zzGz>yJ|^PI*gnkTA>BsJ$R= zc#y*4dP;954FX-57PnPU!83$9W7qDk{0Tga)E)X;YZ68qTY{Z6`{RG#_56BEZPkHSJuzRtR=3jzv znFMPWJ1oSatF^SV!-s{qnIyM2!sIx_Z)8Tv+Ko(%AB;0>kw2vSfQHk4*#CZjRiuH5 z)x+bxnzdmS*0CRde#*YEDUGc!VCV=6KtD{Vf5Me$@)%;0VU0$`|W7-gWX>*0uLp z);{rB*3WRyvYfo`SyqqANtxn*TVszhgYOLeFa+dZPA`P0L4G6zuaFN>%X^k^JZ7IR za-EfzkKzR7$9)>Aejlak9L1%?jvmF87jo-sRuHTFq^!@Zn2ngOQQXR&QVET|we)mi zuq`!Af5(D==4TiU%$kDumBYFmhu#GRXltVG{tobzXlUlQkgv+76vOMEtpoyJz9aMgO z3Ri!RbIxs?{lf3iAZV`Lj8p!&)~#F%M(aPbfZ^uH%nlSu zA>;H7PnKbBkc`jMx&&YURG~DU5!WT`_4oa&G=7XfWGanE7d4m0bNu-D0_Z8n$BVLN ze7v4vZ=yI7CdYH`btho=1f@dAG&$aQu~+Pyv)?t#u$4mCk^s<}9#Sdo^_T`zoJY$jO@jqD&Z2ua8d*S=Yw{bTr=V z`O@?O=dUrWkI$rSCH(q$VI61jpP|NEIQEE(T~7t~_s*~8jdB<;D(SL|x2zIQptN&N z#FxmApNQAX`|Ejr*)EI%I_pZS+g<|Q#>kJ796ldwU8UQhi^4})7xOx;ica2Od6$zd zT6bKE6xhoNR}~w#DVi>B@`r?zv5DM7SVK)DeK4B)lykD5a^aSGeYnOnKcI`jYnb&s zo`o3CML$umPc%G{4Z0t+^N|obvMJso)$29qEV`#YvQMm>=Vx4t1)cvy*kXaZ;a}lD zVLZM+n#-E&BW;(}cY*J++BY3bqkU~j7@c-kzk%XMyr8QR_ENn z!=JgR7XnN|>sln4$Of1P{MT^wmaAy_O2A?llzfn6v%L~wzr6R{s{B-%&ABo!B)c@Uo%WoPxVo-8VR|k!j7B9gd=Va3F9?vn0CCz z-M1#p;67mS8pegfBJ@cHwkyCV13BRdJgNx%BEfuHsnM^W9MHKw-@>f7LKX#R(gsbm z=Y^C+6Q)+S3=M67hAb2Vp7*Z%j0H{h^Y7|C*A0iUHx`ari?~i>H+;5|CV!E3ed|Y~ z7*|sPoQSaI!ZQbElfTeh-4w-N3@pT)qw>1p>kmBF#p%5L;H)gV5#Cjhet~1x24cH) z1|d4=wBsL+h-bq|E<`IPT-#h}932$St*mQs%a6dM8IDK*kg){QJa3&XqrQwW8 zekGjYqn^LLM>Y1?G=d*(<(ECAQLL+iR%Uzl>LgPkv(e#ufVWPyZqSLC5b6N=Wi2&; zcB~G}Vr2Mgy+7pnYQ59H!SJI`tM9bN$X~4o8DAM78XPau^0d|#a9tX%`Sco%>8j7Y z!El9-d(`6tJF$k_#D{AhSRBw<=4(g^(OFGFEbHokwqn1<+voFT^U>CDgRU{46JP^n zn>~q9Lb1T)+UQLM+1K1I#`ZRvKJ;=S`JcuV%P*;YF_`uyioHO+=>~i{ECoZJc&qF8 zN)0o<&l!29yj+1(b&lQOs++WoUP!kUm43Gr_SRZERlaNC&y4l$70-E}fCj ze`TP$SWpzWY+o6wW5G{wW?j0GJ)sdU!ldRBCCSVs00~WIFVS#$=Ov13J%Lei=2x%SswOkV4Q7P%%^rNm zuHfwq+bue7IjQAWgc*8nQ*@em^DGV2uc1F2VWuB9@cTw22u5^6!_B&d2224$@fga* zk$Ndy{9uHl(>+8Bb(qP760*r3mXuILnuw>Pyb(_e$M{gX9$^>NP?QJ2#S9%+RZ+{mZ$B@EZdjd0K7(c(XB8JsIrofv;aa#lVWGl=iXWUa8m~v`X*(^he z@X&mtBrG9w3x9h|p^$E!khw)HQOKDxWy`82BuKJOaFIQwhb-q}(xp(cG17jMEs{+d zMLmWE8L*D-OEHBN)Hg4U=;3T{j2N5r-uKC)n1AF5zERn6p|p-jECNR6#J2uhFZ99i zS`7Ke!>cQIWJKUlu0Pls%#DjkKR2BDZUI|89Op^733BF4()c$R^&|7-tocl_oIRh( zlyme9yi4XY3G#3tQw#HftgRcNhhtB<32=>;5kk}<%LrHZRGq8#&Sbmcx=lW58Idc) zCxtf8$JDqOlS|8piNd0Pv8LWI&1Xr@Q^!bt__HL#nE!xuv@tiG&15I0$nUg2X%@bL z55p0f8QXpYNsd5q5i>%*I|kXk95cceF&k%rlgV0zdE>SNwl_XVvZb9&M%hm#$IDr< zBcT8LI}OaxZ_W2^IfF%O$d7%qUaNb9@f;_&GXC}c%wop>s3)^{Mw)z-@o!1YEDFKC z-+w2rDf8Lhx@e0H6auu(5l;n#_N~j?wr}TE=l^eJsTWJ|N*Vud|(L zUb^5t%!or-Fzhj%=7%Q8MW^|D<>J%)1IoJrOvvUVGW#??+xG5@0}I}Rtzam}btCCE z<-HmW&3_4!;hQwbZG&!AS{z@N((_ao8T$4vpccJ6UzVB z?Zp{lsNi3>*JO&JTvj_KvMmm6Vg##u>{fkNPjP4zYkFfP`3U=&p~5#;CWUe>)~RA> zG;2;IwuHtE7ehr!6g?t|q`U>ID2)o^a>dY_(`rK_F(6n<{LG4Nv}(x4PPK}~F|sjWVNDu}HD#DsFlCrKl)I_Z9U3v!x;8W_ z!c2TZH{Rp+tMDYc`zO{}m_E$ZohIJhoo2f`El>AQdy-}vtmj_W(!!lKJc;5`Z2!4t zid(lGZP*&Zgt4UQNtoM2>UNR1wW_mr>i}fq(kL-h0_mYNVjekKxAh2w6VfOg5lIG+ zv@z$XZYwtNLK9)Bg9xL2xwticcHLI+3xrA`gWSlk5VyX7i@_=onv_NbrDoq|AD_Xax~X*{_hDf^0exLY^cVA-oPDxH>{JkPs1(w?Ou4 zSKZcEAcMbq1mwmmxXae%bz5JBY&I^2Jkoy8O84fGX*W0`LvxT25ytbZxY={8ZY$vP zLvxW3^2jh%_{++=t#3nk6A~gqO?c`SYuUMVTi-{r8r%f($cXc-`_4Tm&4&=yA|WDfBuu`gZtKU8)gd9| zkx}YRthd%}1rKDX9tjbFgzh_$i%J3+YCuBBBV$w{Ugfm&5H3VQMBGT2kw%^`DVf3- zCes0VAKK6&*yE--h$cTdE7XYd+h;|(cRVFF|J-G3UX|`*BOc2rWOe+T;Q=r`c#o5K zcPqDWC)9DFreUC4*f#Ja?;wA?ge(MT>HUe32g*#!fR9ho-)>+bKFzZ2C9)~f;BHyW6=)bHU{#MQOvu}6;G^^+P)x&41FpN`e z_b038ed^)3dcf*3&Y#MwF%9bZF7@!9Dzs=+;aK&2wR(6`J^ZM~47=e3Fi$4%J;?P8vP%5KL`eEumHes(MV@w1zse=1;BeMy;uwZdasvwRYjphM|& zt;)OG`217ym)}2W*Ow6g3hK1q|+St=<>EfVRPJL z^6a*Kvb){eSoRb7`owJx`=#vp7}!;e&p~)jZBtzbRvJ1OPF{nc{7-OU zyBdF;FTipTySO}ExFmf1nZ-V0Oqc6E#UO9k{WL#y4K@&xH;oRfI=E=Q6l%4OR-P7) zJbn9ADYVo&dX^VUll8592~1#&6aH~VSb0bvZw+k7qwC(VjNhd=zVh1Q_7n^a%Xr76 z9oW7RE5HL%mP19sX6tMa;#KdU35>YxPAXW&7fvA9NOZZ$Srt!Qw;hUj4Sb;;g$m3w zG*n=+2GDkOStNW3lk&1KwxHQs_9Zc5*^?v}en}lEp=Bdg&uz;vs{#O!H^Xe^_i3le zx)=p$vyMJYGHeHox>ttLv0;Im_}RC>Q~eg!*z&qQup~yAL@~olh{Fsv4!NxY)g-v7u9eH^BZ&SGkUrOBgm)JBKk2Fdm^|p7^wsj;bqYSh~S=!p(*Z~5Z{g-a9hp806OA<4v z0e1snVA8U+~(50-LLtX{0KeG{`B%~9)NH;58 zz-&y$*6=~++@rN_*|XhNhLumdi{tO|9)vIu^gpSw1E< zo`eC;$bWpNLPUUq@%ES}0Fx{nK=V`|~d_0t?v@XOH zyItu7RDn|4qNM!zE7t~qEj{w&oXUh#OQ5dRhxC)C%rjZrIa>7vYp`UPGZqj(o4eojZG zF9zbLQrpy6+pcJ9|A*TmF#JiPOs&>Mz#UjRrnO}S?020EZHEf1vl#$lD0<6Jzu1++ zD_RYs|NJMh^BM_}L>;M%T9rnna~~5(sBd+$wd_>7_ukY%HZHF=6y^Md`v0 z@IC+GiqerQLjYr}APL*AvayRHztYmhXb5vv{Bv?kC*xtK!iSy7HQo42fZq$wlGzH< zbTWoW&S>ITnbV|k+Ie2nQH$_pr67S<4Awe$WH-C|_) z6Hq)OLyi^$V@w2nE0d%tfNq}2GCrXGSsDT23OLsqeL4uzUBvxC0hm4yvST2wenf9N zs%KJ2`v9>^bwUbhJRNP1fg+K~9i69Ck#-bmrxE8h*zyigs-o^Pibwu}lSu@2GydYj17k^lotRxDTqmt9 zVVyobHGj!J^r=ma#d=`2>uzJ=!BNoC*o5{{3`U0bTs<>_jMeCKdM2Dq>uHY)NUMU? zs))4T-9V&G1=*AWX5Pi?frU*{bs42EXlz?a?v<%FVviG7tg4{5(5 zK_RwOQQ{M9q+3Vkg+^LU>~EwkBki4JE`mN_`8VV@DhyuFgZSpdQ0yCG50H5p8DOh0 zmeH6((8kbY#pCxpM3!D+PXpbF+S?iyEpMuA>m#~_WhU}m8QId7kx)Sk zZA~8W>i_si@xj1XqkeIl(pq1?yscdsZ937>mZGGlE3F-i8`>uSrQ6CC;bUJtg3_y7 z7h*ecg(*X6TyR1Q8cNb@%&(eVOR9Kor#7c?L01CldwDL38IhW9+{Kmy8meO*iU?b` z9~%w_Pgr3=>*^9q^-{wPsCkei8_VH1IGoYdB^jALwQ784mNSlHNB3OEvsbCZ}+ zLMdYuB*q=rxL~3_R(YI+m3XEKQ#2iPETWM+Ot$5#jxi&wT?-moIvN)?CRl9ksZ?BD z+fiK#A45jqm`E;xm{MX4j1a^epjI?S7_?dBO6`=!qGcO@C(71ptR#Gd;dl&bfo|kO zQ%$~EMM61*m2d%*;%}u79lsD=(3Xutx|R_aV>S>9aN&=!)|ryWvK21%(C2wdqimGnR$@TJb%xFU`wx74<@ zVonJ#q{pcUU@a|&fpOB%)ln~YD)35aYHUg6ZA-CqQ#!gjeCC$M_N7g=D?en=xC{Wr z_ZU5kC}Vs>$Gc*nr9lZ#S*WykENE=0r9yoAtD(gm$=a4Ch;YHe+it_dN^NXey1WBW zE1D5(5z?eiCEiI}jH8qi010+9EFoI2)z(nqf`+DQi8S>(cfx`sVuD)hYp^6D-M@&I zXe!XpIvP?KZ|lNp@+r0P+<%P7V&X!ju|rwV+R)w--=Q>gHMV!8C~f_kxed)rJ62vL zW(!NJ* z-+Z%Q>>~J!q7->FfCz99WnFF++IgC!5z~r2OUMCaRQ??MzL%FAN1J_Q_#A+ zV-CX_;?Z$AW&xv*VYpEYH;%NU8Pm7GBn)G_4N7B670>@^G)`mbI%z;S$(z||rASX< zJpT^6v=c)caIe48xEG}Da0W&y9sku|XE3bK!bhpKv)y0T*s{FqRn}eIJdreSv8J;; zyNH4PzXGJZNHH~l#?NUim-L*DXAYBb4W5d|+)n&RAb=A)jh0n3v@L9HYkrDjwmiow zQpLn_rMCWV($1xf#@1>(%|;PxoA+}5mfB}9w!p)JVQVlZ1BcH>td$i#d75xfqKluZ zVTN4XF!C<%_!q$dmdCOvh4@sB8g`L3k@(+u^K_Lt#8gREd?g>_b;;PpMf275S=kES zbdw?9Ta}l~&@9+sr>CP!yhpP?^0VA%0?cS{IpMw}YXcGHctHyv4v`O;jvg zHE!3o5_saQ7j_>J(am0LKzXSQ-@_IU`7#r|pzk4VGU+#RTpz_HDovDEQjb_BbY!V2Pu8xzeLiJo8*mlf=3|0& zx3-P=sRncc!zp4K4b1!cI!w*L_V~J^vIWrT?b}2=dR>*4$>A`X!KsZqY0x(lH-ng| z9E(D&qyXyts}8M}f0flPU$2Jp<6Yv||blI6|H(hC%?D6j_zW0)iw?{zn{&a=}4 zY@oGyDaJUN49IjXd6cDRnX6j9Z-NwR*V;5vsDlq@!{byu-ubp8|A&|DZ|g`cp&mBS zdu6#4T7KO9E7SWFk#gIf6ZHU^53OJW@4K}TR6AMh7{^rHg>9brjym^^Z_xnvU1$f zS%`jZ8jK=p+lEoQ7y^(lt2=~tHZGjqMic<)Eg~1-8O$52Y2TuRx-1nkXT6yTFt;zp zhQk&t=U2W`ZhSMxcKf{V7u_Dh`7O6^a$y4PSx^MkR;fa|nckL60vil}UxBI5) z=a&@@ZtmG4eD_nB+<)g5qBrg-tZ^1y%m20J3yywPm{B{gnrN%l#td3*#e;7Z_ndv3 zp{;K%Nqgq}&xL~zo#DGkxEv78O=SOR!(8Ft?=o<^73F21JrXW#)E#*o+IhnwMo29-?2^61ktDBU*#HZ&wZBKOTOEJp{ zz#yv)k6_gl)@Ql@((g`Ib6GR>7brR+!meg{`a37n%oT`VlQJzVV%Fb02yLRyt{X(W zFJ|t#K@EHuzi$V~!8X8_x<>+TYS=!|Thqc+D07aQj?j^tUVv-$O(zp@+Ss_PpOL_F z*L%+h%&^n^-|HDUy+<`vYROjmn^*O(=x@cIcR#OZlJnXgYF^m0k}B`lmYs?(>iVKk z>YP;I-`n{`q0X=3&Cq1wQxqrwi<_&EG?9d%{V-!!>pbTz9vCA-J_j z_U$bOE=*5R7kLtkDrwe*LTnnSNHGQ7J3JH7MLkSG?KMY!9F57N%KQh(KJlqNs&l1~ z!f1r1O5R`NEBYf^iW{Y&b1(7m%&b-J04LVS-JUN@BX{!(d3$0NqVzwwd4Ej401r>O zXcbU^@0I8p8cTdy`a7BAPfI^>6yf4`jusAv!&_`{$G#WRtUFtTlwKCx=)%PK>&Buw zr<8rof5DY~%{0VZz-FY%o_7ITROdmTH|$zOS{{d4ee`d_M}txF)=F%gel-Rle`||5 z=C?!KGo6|NwO=In00%)B>G%RgHNgZ9l? zcKtV1{LwP`tDZl2-zV4C&nRKx-+ISJbLkgC)%{iu&||lg$v{ie*+RCUc(7;Ld=P9d zn-BPjtKWb|>m27wYtY>Rwf^5X_yS_V&uCr61KKM(&7ud6k1Na6%>$gWn-}CO-8>w8 z%d_+r2W^v>!Jptrc12px3*)ma^7k)o*Mqg%lBO{XH^~bs;Gj^Ii{19n1GB(1C-PaG zXJ0bZcQuJ2y{{;tLgV=^K2GD`8~@1!uF&hF$|pWI4{M}Pa_nz^%@n}*P6yB9K0`9wr8j2V0y&PvhzM|hHtY_?h z{I~?dCuMA2{|}H+zBpUY``@_UI$0-ooAtJ|L}B(kTFl6gE+yXo(DfH4N7*aSEKwdy z&`@?VU(@t~i(mi2W^IoR9~8E7ipaTFcEQc$74*sJ%W3FbQeXOgWuEiQeP#6QKA^n# z=VsnrmU?IbUsU;lqq|@CKQfQT zv8(VI@7J^Npg607;q@DF{z4)v#!z5#?b7m2niD-z>erR7SO&Zug!I|cxPDy(|MjPd zT;v_(UK9<$9jv+g2VhNc_PmXst@HM3?f|7KRet)2e{TDtJX6|gsxa8^4_qyui(RO{ z+7p4k`&YY8{xF*3kDSIgm$x<+i7%8NdpIr5SH{3Ow!`$zA8-=+;jZ@a4B*>(CU^In z;5WXaJx*HuJA2y*vEKq4lztm)k1KBMXrGM*cXQ>2e5uE_{tKpr`qnRz`b}bgl!@&! zv;2}3ahVZS<#VKd^M$Gyd#}g})m1w4`bXn?<~;LgMQ^3pAN?8T?ySSZ6i=ybZkRHq z2$+%WQ6FkP|4`pnrQg81rI9`C_zl2`ALi0Gd=W5R?7-&htEjhSEqmJ`l5Q)&Z`u{V z=9cX&**!n4D8%k;v=*uOfH_y@w7uiIADsz$5$uC}H zdGXot4?o{rBp#g&*py8rzPnhV?@Ol7aMTJfo@Y~OTQu&?#daQt9wwaP(XnQ;Af9zPAHBgf!bWwG-C!#@=bt;aTYzmp>3FcHipJXvWw z2Zt&pj2;y*T5bm{)OLLs#oODmy5oDS=Ra}|)0?~p<3dI`Zih=Rdlx%-*|XRgZCCd5 zu9(p-XLPO!7-VqhZ#f2}ArB}?EXv-2jXT47%SM( zG~r7aMZQGBr_KoZ%!EhC+pFE%<(3L79Q=Yt+teC!ET>#!qI>n-BpkDbr%mOKS($Dc z!>)d!;LI|bqjhDxJJ#Q;-4AE{gXkZ~vH<+_`?b7K(yI}-*evkpIQO-|u_q1_&ItpP zXs-^*FNF#IgZ!m14mu$j2#$QxpVxov5-M)i*q!UY-nOA0UcB4O`JRI%6_XLHf3~FX zp-R3a-eMcQ@9V-`X8s)USr(e((WCYMpGS*)Z~Nx9Pj7rVS~GiY73sysaHnn0*$fEnVZg zU_Gw!ZnEatWCV2nLT0}vnwz-6cV6E?zLUEB8c(CHgOc0``7UU1x=HgLPuZ6Wt$3+> z+1R^Ejl!1(t-jPquN@F3H#73Xlbg++E87n8LaNgu|1|lM65IVI32R^1>L)s>Y`PrO zaJ>KFp<%YDY!lzS@?wPpowRmBTtTqOcfibAA7=xGr|EuT)BSW4Mc z88oT}!<#A(kS0zw7?vg-AnorK;Q%F1>nRln#vUMRsWn~fkDbg!XN~x_y0=m4j}0Mp zZzE>Wx)31%6Rr@Y6qktu<3eyBM}#Pc$dS`?QL~XLPm}uP>x|Z(79!6;11{)GyKzDC z^xm7rf$`TF&2-Y@5+y`t%cs>+nbfZYN#iKPmu|)(Y^=;A;UFa!SBL`>9;4W@N9mxO z)zr1a7h0;wg2D4mQolRMY8^KnB>Utb>$nNoAEM+jGsS_4hgi)t(gpz%7o^M#X=XSr z?X8Mndc}bx%i4aA)bBO>K+71*LXA6VG4vvk)Kb}caiFZ0%z2`)jI8Cj^OSWAUx53p zV!U$YDkfj9a4=!z8^nRB%Ne%}9E`B?jpD%c<(NG7K~eHJC(nGG)8Gmv$a&=YAeSf4 zN?`NkssuJ)p8aoJ`wwwoP6F$e=c?DQHaBRK3+b;=nTXR&7XAcCR?lUQ5DNU53137dP5}ShEWi z=u|7PO07VbT7mn;ft6|nZc%f6P#m~bt-zY)43hI|wrkaFcZ-K; zf{lg=d&ydj7Is+wlufNi>=9d>TzbTo?>}rffXXBu&?9IxX!7I;g9dq;cAy9%4*tXD zOfIZ^pLp21gLBJ*THr^-!!{JypuwFawPN9F3G8YK4v2>xYQ@6TbdQOLT}XF8pYA^# zsn#h$Jw&M$Q`Cw@s}(yW9*$8f7ONIHBp#O4in-NXM=khE;$e)hH{Qrdwa63H!zi`fg=)D+tL1)0Je;SNJ73N8Rq=3vTJ9n> z)A4Gi#cHOni-$|pOvkEe-V_gy``_!x79Pjz=<|vFKGu`(A1GFj{qbcYj-5A-2~`G! zr`>sPv z4i(FjE7aOeRBQLK*gr|l6@53X{8O=i^8eRcnXbN&73!frO0`1_#HfAaR<%P6+~^ytcA$F>a67nsd9~Urt{{UQoFWgbK+ac1 z{Aqc!7EVp3agEIrnI=k+9g6GE^G?7U?<%4)k|?}4 zi6SB{Pg3ghk;66!vlf$KJ_^yW1%-gaMt_c%3};ALl!F8G0xn43U?PQ378s3A}OZT{Uedo`%5jkPSj9Dd=;xScr^6EG{j&n{^ER8VowSs zCeD>vTN}!>2NA%1cWp@o*xnLWX*`5{u0vR`?S|l~B~U$?noA%l#FI%ylGb9B@?Hpv zP|79jQ>~YfVwnO#u@~6iOH`bdh|K#KW!X671*5?Jk~|1*W}jMi87bT2AQ_94!*6Ca zDC3Am*4C`&>RWlp$2GDVlw{OmR%xGxt1*M>AHR?y@*r6L2=4m_1QT)JcSz|hMS@rlEj|)G*Lj)^NcO!nWn}hnrex8i7_T(VuFd0-*?FSeSUxZ z{zufXNP+M*QaAGw%svZcC`a?af8v8?_-G}5{c^JWTDX2V>;%ZJ6@sf`mwdXkJ zYVgp|Aug!04>_hr@Xpmo5KfhXCgCHPe&iwOE zKZkMCPa69aV21>oDo|^z6f`xGg656klPssFj^(BOwuK=g_qN0F?30 zC#sP;P6~QBl0qIUK-)MOa+Y;W1$zekkFK@ZWS8VwP)ikW4KxnLXY^vg&Yacjxnp`3`#( zydX$ZvEXAQd=vx|L9k2Y9R1&L1AWUqF$W*)3>3;^zS#03CqI*~seNV#($4*c9NP|S zsg6)dPqGd_E#)>!V0<7~$Wpr*ZAM2PxJewUFcJMNV!#tgCHDTMldSAs@XUI@{+X z?GXSx*LriW^upXKRFdPh2|TTpW*QG|M2y}eYSGhg1WNMWH>E9muK)(Iqa0BC7`ml> znN)kUKVU|P{vJn{yaX=dvZVl+fDXd1G^2@^5cUUoP6F_n2Y`nFFr%MOSMf0p*T0~k z?g`HM+EQTi1!DgAB940(N#DQ;U}*&aHY7d6lH%9y_^^hTU+Lm2U&%*IKn<@!A6Fys z<4AlBpuj3}oUP_xJ$40@Io=zPpzeVvA3saA$MKaMwntIOg=$_xw|rW~zjFK<5}wRJ zL@i{)7Jivyu&W`weEM6V_B5EY4@b0; zfU`$oin-ZSV1D*!Js)_uUo0?1tH;FFfq&eYng9Hs4tt`yQT;U%Qc#}>^4ZS>?SJGr z?(Uz0^L$^RQ78t-q0$dYKK~(=Ucl1e@GUumyT=dguJo@9oP6PTbM1xAh)6)Ke}(h% zh4=W_-x{JU|>cVRN8cTzE$(zuVU!zuTZGQ1Sl- zNW%Q`X}W*ur}#k~j<>`K05~sh#fbO`fF2fy5cHzc_;~|2nle)$f< zMoX+<#8ick$8QxUf0<{l{W=%$v@8HhdHL&No&5E3t#$y?SxQ+t{jeiR#?K*d(}H7y z!|A{PSOkvd_kaC62!DAnfcZefKALx49fUEx1At7_`aa25->1@VqY$2o(n3df*BV~J z%iosi8=q*9J#F`*fF5`7Tt*V80eu;%^F_u<`C$#W7AW^fF-+#Fc zZM!N0xCWVPmtw&27^r0cJOr|QPV%>(W1xP6@Z;7V!t|xg*0*EE65jcph)OaAdj*D8 zclcijU)5`0L9)6fJhU)7>YFj{u_hk%7P3!j=5;-=vhbnhKP2;`f&i=Xb;IUFaL%`% zMD{Uct?A-evU%CO^LsZy6{7YmFq?ObbKaPOuwu|2LU_RpZvV~0!2K4Fat;Hs=oZPp z?2xAXf7{_+*V)1xTf7e9^H;ZL{3!^s`^=fC{Ge)v;lTv95qFnjDX z(D%zjfVvOQ%DbHN)<$&aDU|RC`0Y>Nm%loXmw(lZ?6KEPBgfjFqVw)UAlZvZ#8xYx zk^IMJRQg92!d=!(VcmPRyly$x8sBlwKPu2uFC&7t#R;2IdHLSYeCfTu-GB_?iPx(r zczqScZtImz&R=i8LnEDtYS_W+Q1Mg4W;k!=Lws;HV2#i4IP=%fMF~MV_ShfYgrx<- zeCM&S!%{G9GlHM{~CcVS_~leD0W0R zj;|J+-#@@1^(d0T(PIb4jpO7kUrJWHjt`0E|(jJEMKYXnPftJab2lJec>my&oK^Tyk?vC5hu3n5z78(6%ZMyP>a!Tvb_^e8KB85|=sUk1 zlgUziv7eseW!pl(3fp|dSQ0S5;gdZzgJ`X*7AEnmt=1V7e6d_eGQ#LJm4WuHSmLlR zHWXiM=pBS#`8h-Qa_~zO;#-Mz#!XHRe@Z9~e*`hDwoKvckE2NbHxT^|fYr7P;c6DD zJ%NG$Z9OkLehaT~TtZARzQ$cWDDJyGV|dCHDlAz1wK@P?kLPB z#|;2n2W(SZ_@TCj0w07US97(|Aqa!?~BB{V(c7SngS> zlz|Hw)Qbug7QsX?b}`aI-Wm5ICbH{*$1G%OksVqvYq^F+Omg)GEOtRROpiUH-%}B? zUkO>`?r|)cF@u-Yac)^H5w#HkagyJwoHH5!h%!t|tv!I+R8CI$z*d^(W?>{S|44HB z2B|dt(fuudi7!pR4?wTzEXg*ln%ADiLL-usGXr?`*j4=V1BVO$H>~X$5Gy&h z`Nay&_-aFc;pDVUx=Cr*P(pJ5ZdAkj@p2y$*`pnXYLzI_*>5rM`UGiGf!C)bXMaki z+2at-2*{Ko4VAnWJBa9OoHM%#!{#$Yj6%-nBwo(>o-fUr0Km5BSSe2eF-YJ0hh`H05U5qyb#EleuS znQKoxMm?@U$vwf`!tNpbdP;5@3^)5~6gP$3Fv&iJbRLEIBjBiy6MV{AoS}JEGVcmF zN*?sYDR%+0Lq(z$TI1Bp2!LSHYYJ&SE(g+4Frd4QEaBVWtfnNNZv6G~G2m&q#kh!H z)ht;%3LHES@tYRR`sUi2kH5M0LF)psd{w+pDqjU9c;%~%@lX%5%C`0AN6l5M0uy%& z@64fm&ayS2Sq(l2m47;zgH0gi_np^uYL|O17o+wQ=W^z{PKZUul@KN{=>Q4 zG?_0zG+MMS5;7gnB&=-j#7 zboGYroUmVgR(}pEY37nsH9VM0b~W5E7rgrS{+u|C>2Y+@N34_X1+AC%t1sCr^m(dZFvGtwnBo89 zy)OGR@PXt=+fDM34u=0N2PvRkH_gfDyVl9@yX$25 zz4u3#J>1nzUnK3O?|B!)Z-$$d^f02IfDiOV^eIN)!bpan6vgPfDC&x(O1%sBA1d>I zFe=Z8W>oI@eWu>LD=JETJ9<}CvD(vf!isU|@fwQNzdbWG#cEAVCup7cJ9MJM2U??s zYn|fs#GKeqc=Jq6qxy9$!{OXr@NdR-lY1S=eU_2?wYZs@{c2;p*N~@v7|)uM)`K-C z3u!092XZ5AH@PhdtT~4gSW#d7)@A<`K8$cg=d$Lk?8%x_0AtCb*=s0Lk0qY4=Ba@y zBl#kgk^DQAk=!3y{gOcPI(`|jcqc=crk+eDXi#jrn%Rqy z{BAEs@}VgV$CpwVjv+|-b&5{goidk==nbh1#hz)boPXcxvX6!jU5kPyv4Zry8H#WB zW)$z2e!^O%zLdTz3gaw;4d2ELHhjO%V8gc{lMUaOJMi_vhweua&20F(ve@uFmc?o) zL-cp>;gdr29#+G)K5X=k?#o8+p}q{&zK0V zCFLVJZ6J$Y4gB6`Bj?6IhTyY<7%{^O+3Nj{-)IWoG&n*mMrDZOO!#CXO zvO`m1;@g8G-Xt%n({Hu$!tg3Umkv%-bA~J(T&x}#ay`0OwG@c~#p=AGrN(0QYSD|@ zVzqE+UyZr$rJuU&vxb@s;pHpPl>hYAOiPR&wo5R-sBKhF4r4f$BE=2(FeZ^Cml5%q z;h6D}q);6@VyQ7tZ6Co}>=?;feDY?OJqJFF4)s}Q{lr{K=dhAa(Ef*mCwsquOyFUIBpxuaNK>P%YG6*j0+^a#&B#L$8fZaXC>t! zIukzh|4Q`#8P+Yg#xo=jOkmyOnkWWTsoN%AkIqv&CbBU;_8~ULPd>!Pcw9Lf|^KyNSA}l8y1qNohV)-YW4li3*eO=e^K^T~{uIkk+K2WlBH z!;$Sgd>|&WbrZ8?3L~a#Dl7H)chD3CABc(QZespDl@ar`X^fbb=?uSl(;0qoNV*$7 z5EDtei8=aVhF{0Stfcp^LoL;eZep$iG2dgv{BQS4WT9^GQd>E`q+D+Rh9%Z;E&tWC?LG)PoKwCt2 z)7Eb;L;Vcgf2QM{d2Bk~HjmMlo6qPwbv~o-jH_Mt4e)`!$l6Wcf(4AeR~N97&4|`7 z?4~cGyXkvuA*1iSMU1}Z7cm?&7c(5^UFot{!Uy^yX*YcXA7ePSKgLQ5MfB(Jg_ZM| zL->6e)77<2497wrBkxHcn~yV_*?hdAnT^$Z&1|ezE@5N!%n~+M125ylf)6A`5#3|; z*`;i(=CrUHUik(e7JQ&5qPyuCzKo64&zG^Wn!KFhx@|eb)rF)d5e^@YMW_3drTDH^ zFjOroSwW}2#&@;yf3e-=+(HOn)haepU8~thowu4%^6F|v$-*^^l6Swt3Y9U<34CNf& z7ryAS?;1Ru`M?6LP>iz%Gx}@zi*CtNwt_ifMDBiB$=Ovn9+VR58}F1b1|ngmvLP^ z{D(qY6xS7H1_Sn|{@xsOk|7DD1dADq$X_CJJ>rc2WQzI!GmV%0<=`OlB44sZ>zC93 zk7lhQVIpb@LovPmp;90)suwKX(zyTt;{D|u>)KNP*l@C>hSMK*7;ASt$p?=pi^oLXvLeTr>>!sx^twaCeu1=bIZhT9$wRPx( z^GSj=^|cO#&Ya_mc`JlgLMWIYNNP*eKnfqy5^wTk-VxKtly)azh=atF=YxkFJ=Y%+ zF0;UeOkTZi=LNo^hOCeuhuYZ))E65c3osBCDgPppQHwWlax z>?#r$a|3xxYiYWmF0rQz|G17Q-vr?P9T!l6=B5j=J_sn>F*0^}3vZ2rG#eA}WU|cV zGnnY9^^-5tEUn}Eib=)1HiUXbC8xbh_6hHjGX5P19gKe)rWT(kf5WGdKD13dO~DnX z2n=-NVUebF1P!;Msv5uHPwuui2qFJ#20xp=!KS*7w>x3S?rMfq{kbq&J?_XfM2_fk? z7c%T`h~09Y))BZ)2>X(fpj_ewDzUbXw2sCp!=(4fn*JUI*RJ4|s1>}ZM7>8L0mD(k zd*}+3fZ%XEHSf{-wmHCQYJFA13pATIMCHO3-!ojmm|kR`a)GQF7ocYO0#wmHb^(|$ zHzZ&L%DF%RBT){5BQ8+r)C)B0Q4~`-8@>|jo(a}cU@;w7WWGm1Gv1@)mex_croQIk z$;p`?qoCGNAEO|c>o9#xQA-0*62c=trqG8!CT{~unjl1*Jjr6vBOj2vSJDS$pZO%G zE{l5$d70}#CS-n#0w#5LLi|#w+Y6~XjZ5YFUV?M#jML<9EsiAntkV#m<}_xWjQ)xy zWUQhYKDl!0!-~dVnoi;oLWBfkFDA$ukAA*GCkn9kB0^xIwWM3vpFkxi2T;jb3oJCi8p2fg zyY${WNYG{4;O+Fo>4G0l7yNL#;D^(NF3#`f73!`u-<1!^KNvU2{huj1ye&BaG&863 zL%nz7@hG~@LGJ5Al+0}0t%M)2CcI8;fC;@5(Ayd+XP=`7655BV5A;X-P<18V{_CG6 z91Dr{5Qll@0O0;s`Qi{sy)eXIo9EI|esYJ6rilQo$ zRCuhESRa`+;PW&*BhbzWwDUnSb^g>2-O$Ng=Z$u* z^Hws<=5asm}y1gESx=M>f2u2jMJt8qC59G3;ry%wmedOU*et##8q z*dMyL(o-a;xm=N8u*J#GM;++;A>4w{9c1t#gBKaR$lyf=FEV(Mp;}N<+aR@;&`CO# zgJ~jBfi*2r(K1KF959CbV`(m1X!`gzm#lkOG~Xww?h4F@bQ_0+y*y^cL!lQbn=8_U z=-(1NE?t=DKBIk0P<`4?y;i+KSM);sZVAM!6cMEt%P9V&fREM3U)Q_icnE`D<*w_! z-c323PSJcqC@lX5H2Cj-c%8c4f1k!|^Id;F)G|e@>@Oo-2cIFn$AOnZDq)>7*j>uBqUohI;{?lCn%D+(s`WmeC(HYwRu3yB6x z>qEtqv|-Li8uHBxL9kpadMRn5gPsb~)S7~{e;tRE?sIxvh&JPvqIrA(#Tl)KaYR3! zoQFpCKCNX2-a{^s<+Erg);|XAEyw)nOa5(gVfNKfhs#MNe`yuvf|iubS7x@V^mkrV+4GF2q9M2*TRC?r`|#I7|T5P~0?LR`_Z%4)$UGs^FA@3eKR;<109Awl`%!p5A1R zkrXaZud;wG60=WYAsh&w5}c=>R$hwM&RU{_4)Fht zWFA^Dg=DK{Rv%m|^^pYUNXS~&R1L=OcVZvO(^}kLGWV6tbl`2q#MN3JA}P%w5=9IS zk>d0}t|e#j zsDrmvG{QX!z}GPAP^4m>kuQag?ETSe21tk=@6sUl)Mg+&-5P6eM@iFi+X#yUR3YW2YNpx?*n~;4Gw!) zz@zN`KtDo}KF~)fd4ZBa8U2CYU=Eb>m6Sj!fH}p=*g$C|iu^#YQG!{6{E#?XyFB$4 z8Z-Vm4Q;LJ4|K5d)ZP-!|IzCcr9BtLMD4VTqW=5evBR7AZw!X=N67y0MbU7_<{JMN zy7~CopcxlMTi8X>jz!f2`jrYw&?rd^|L8gB5X&4f zTeDo8gEo}sYUs(TEVSVftcK?>V_$k@euGF6y&A+g?WyVHsw_h%Ec`5}4&RjV_4Q=I z$3-z82hEJJ*+OG%_7J=s4Wg$R;-9FaB$hXAg?&f%CBO*9EJ!oTjG_YD!@R;O)FLgq-XiKRUgYcLuM2FJz1sG+R0O64`jL4M}NSBs#H0K4%9(Oc% z1XR|aA4HoZBvUx#Z@FaEjg!k+I^xHpaVr>VC89@rU>KXpP;?6NHh-; zqm>T_iA4D#tyj$X;!x$|H*^Nb)6Yr3fbGlZlbkPx)HUKK#FylOJe5DNZ~2R$oLMCD zdH9W3mtoZ_r0Q&3s!ry@Gl7Jn>J5?KVSbeBXY2o^FxiKNReyPoq;ldMXhG*Vh?u(})!83g z87G#?d#%crv-&W_@;+$&Wqy}t3&sLrDM$FNU;&8d%AGCmBE<}J?xY6-ckma(4>UOk z<^E!=3s6rAbpgisll)%==J5gHi4wnp(|vD)o`dUTPaMhb&7JlO7H6;ecMVYYibj(_ zYAhK|ML%QtS|3xMhqdz`mt(kyjdNo5Jh1*>1qZb;bq}o6xr%>GlAx90N1G&iFJitr z8Vy|{mc*d~%tLB5gmcq+Nus0Cm(5HV{$w45z?X!1RMFr+U0N#5S^;j&`nhjpa3e+T zC3TdgtzHk7X0K{#eY7H}!vt2TZb|sWDK&EwYaW5NnHo!LBZRv*LUX9rPqlLOqV}3T zSV;6wlIp>{$mBd)8;>W(3G*XK22(bLxwR92@JOp_U>uc#w7(}}M) zvwI$AR2yk)q0p@a^-uq}fLk-5ya_9YXAkh=-x4$Op!2WHv2L2+pOJ&+o=)%#jR^FdS%*X=mB~y)!O3;@1FC0bU{2D!%VQK3%igbNb%@t%BKG@Qh zTFCWO`V?}G;m|sSfK^HVgT%*b5wNsn6mm`_6ImadqUWkCZCQn!U@qm{!%=7dRH275 zGF5O4pQYz|r3zNXdlN+!+~gd}4B*Amtn3^ zF?uf3(ng;FBava`$1obF=h8kyt27LwG6XDby3Zg_XJ9$T>bYu5oAEPXWY9({7DfvX zqs1gWmy#-2)HW+4MhGLuL;oX203*f(#9P{e7%}Xupow~JlBF$}5hIjU9mT4y)N|>K z7!j=Mas(`G3L}P#<*3kelPztLj2QkD&Rvr&=C%I(w7@ivga0WzmWihMLwSu#p{XQ} z2)6`px0{{Co!4(t;ZIusd$H2ANOG2f6^7O&YVUN$Y9V&z92*9uWblP$slf%RjfL`m=Yoe2+iHniyUu12& z+L>s+HV(?C!BO^cIkkXMtW5wjI(U?R98ZKJjdBk_;y?-x%nW-+D!-1BD#4l4ra^sn zFuGQPeQ@A<0Qz?(Izo0+Txc&;cm&C+G=TQ(bc7;RRVq?paom>BnHaut9Bj#=!t%4W zz2z?h=m)h9O<)#ueSzbW(i0Lb`590%IlPb@id?mrWbh)50kc}0Wg0lPe&?Judr;o* z037`zHYPrj_Se3M8mEGLs_pSV95LV7oKwLaJf;HSAm{{*`wpB#J@%w`+oxfiUTsVM z2<{P)oFq*bkt`8_;7I5>;(=N6MaaaJ0f%LPhLFRFhNj%*_5=!2NN_=Rhf_*l3vRi!LQvceuy3Vw`{h1s1#O?-g9|78nk4o4{p_8A*s`=` z{q86nDLS)tzzZyHZJEEv4RK@OtU~xjgadw09NMct7dLz`$o1KmcS_>{Ooq(Vi;|p^ z0lql!thMdAn>g|yupbTV`@I00KNxbb*5wemXmT8xKm?WWdB2LaV7=M)+i!`}N8JDu_#v%x=mg|y127M{)@htW zznSwJ4U@F-cN6R0148vcXh<(0G)XEbfY1h5>N+`Ux$BgM-xY%f4FrF94d)!0k5aax z6ed%Mk749HXy&DmUbMbkjG8P! zu``Q$9$tYTq!v-IapmQUab-W@?M)_E)$~E@5C}(01lPHZ~^!tjuRW< zt5^S)%7i(}%CUFlx*7o6p~|sd&D53&Th#C1b~BSH16eVzuhB!w(X#jF{rGVamuU?&H%n-Mz;imQ4Jhjop zkonrgkU0m=G0Bf1v(^vDs1ARY&j)A@eD&%Xe}+vXYOPXl!TpE%BmVwea4^;2xLHsg z_fO7*aUeN!rl9`%*P%FJ_)V~zRm*9r%Tg^Dt1B&^;4ZbpvJf}DW367?^v*)O559U; zZ(AtMQJ=7}I^BRCgRfpK2v{g>Q9A-Y!Odx5Aj7pikm33iILbbUuU@STVuZVu_PbnH z1Yn?@WqZcXP%RApgk3lXSIc>-!@Rr`x_noZz??0k_q3Q-#w6BMH-i3SE^6g+5^F{kar%#N}eZVEK+gGo(ZL}!k z3RdhJLe?=MG%VHHR+=?OpHE6zK4}8S!VLI0`<$L_z00%yjV9qs#jT^YguvhT(8MP;_7_O%LUxw0$KQCjMeKuRXe#* zUBW$;qpkY|`-cc|Nsd{$y?B5)Nx<>uGO=zxXPUn+Ud*sAlf(choh+~z)cGz0{%wH? zrulBMWN+2_cz?lnWmIHgCBK;G3#K+iWe%jVEs55)1!HM=fwd(OMMRnWb=**$o{Ns408Io9 zHt9L9IaRZrk{;u=-bbH@S{!V}+7?=exX9a1JXB@kJ~$Z`V10w#bODMp=R&K0RB|s% zds1DkJS2=yXq(@I&hy~?uB)CGm7HQ}PwzoVmi9CU*;2h6_J50bnCkPE;0_p)2Uh5@ zgSoD@ZH;-T$ZaF;xMX)*$Z2UGFOaKuvZX!QK!HP+W3D3CzlH>pyKS+S=ziv`zLq0K zJr`@CQSD@D?;Aj~4SFui(%#388!k(Grk$GgdOi*%Wdu_Ie`hgnI?a9ud3DvugM8vh zOS`~pc5~LWU0gzo$3@8^4<#0Py)Eqt4VIaBUMppmiFjI9-IV?yf9P4YoLpD z260wTJQ;TInlC6&l6b3Rfp*_7P>!WN7S}w2o{O_)UE!?i8sjQ)5Xh(flT&*C$w_B* z=+wD0XGf)5+C%;%4pKNa2;%2uSlS~Z`GD|+glid5360_nxxAipWpY+nY%AvUg0o){ zm#ee1yMm~m^n4#sB$%@G)~tR)u)4G9FtUB2o?GxOEUi|9Tno@ezfrEi(k`R5^Yz>!Yu4YeRObITdFw3g^Dw+;L$lzj z;j_sPRG*toetk$?-f)QgH3?kO96k5$AZy>Di|H+1wPtBKtzsTW!MTs>xftAz7*BAi zL-?RX!yT@=Cb6czs&ZycV%3z&+18d(w6m|Jy%FiGSvVb0SKEBZhaI*1OPXjoGL*M0 zCha_8J5l#MGN{WRok#v=4yrx|VU(+D6DO+MR;P${FiDH(yw_aF8jzta!$Oip-tu3v$R9;Usg25<@CZ4bomGkE!_?v zwoSQM27UopCC>7nYywQiV)?|(zQ(?sW9X&2qz$DnYiRFSZ1&nMko*b37Gt<=dh&*` zxYt^W{YAT#9Ol;2_>n()$TApuC079UWR9re;)_QC-xQHyMVW|ultV53cjzVg?IM>L7p6<1BdxVEVrV{TO?L|gN zN3}b<6U9$G1q>p9!F<469`ejOV&tSllu&;SRm~~mTtlX5Xax2D`jmhg<{S)X=j(A_~Gb z4$g2RD`a~tS#U1h@+5!|DATW^EN&$aV3LN$;##FWA(lMr{*2|cwbXONpL-}|%Y1TW z^BUS$gxDl(p{{ZXTs*h!UCxyQHjgKd0Gy1Puhvlfw%6mxG6iH?#D(;VqmXBQ6I|K2 zdVBH`5~U(hhvUk-=YdWzUSGaW5mB9!GJzXUAb5^^Jxq3xWZH zB$Ma9x zkv9nb>AJ{eL1TmH4PJxjV}nsmpBJ%O!4?Pm*7n>A3OxRi=A|%`=NBC3Za2`qmn%FA zxp6h_1>DOO>H_Y+K23H-HD0{BtBN(^LDg36cN5$01sgYbKPKK+vGW_MZ+nDYjX-PAaa8G)) z!Ya>{Vs`m&rXashC^F7(Gs&ix*Cgb0HcvechKCJ1n#()CsQ31oYDgTZ>pg{=KP}?d z2`=@tZrUolY@W8tsu{D24698=xR8{Xu3kHI^*RONyIBA0E;VBP8i+9cPhl_2gv4^@ z&uVQrWWWA+g{YimUGnnwl{%&Abd_woQQ1G(a=L0b2)77V)t<(#sp+;!eIeM3hwIC` z519J$w#vRd)DQ=%iwp^T*HSgmlmKhoKBNzxm%!Wn5_r2Yf!FTS*beN|cq;YSioP@_ zP(5Ty;AuE2~SRd{}YinY}?n%wg7VGcD}cfzA}lsOzy}1_nGox zMY*$3Emp8aJ;U|4Z`o=RH=CLsN87f559H&uR78_EpP~)hc`p^4kxIX^pDi?2oB0OiCtoRK@iHBE>imof=T%{Sd*cg zP8G%S9bg-Y$Pk}aK4Rp3368vLifB&4Mty|2Q1w|yn2n034dw|V8Z_?a*sX%+MD$$2 zvpZ_5;4X}sE4aC+{`H<6L2XvgZuc%Bvd|q%A@F!kI(G@~smyV~q4k1kpJ1vGiqo+t zo_fAt%u{BQAY7+*W|XZ7Sit0OKB=3prE*5wOGRW;^u64huN6_wHC)mRo_h>ef>&MC zJ{j+Qykg&nRre3PaVt;f=&TQ1GMjmB1GD}%xWQ$s+1Ag!H&aJm0MB<)vM<8Bx{hvx z84WiJT=7lpueYU=M{!&y2;(tz)-WU$@VS?Qg1uxupTg|K`X#zB0hmglQS^i;!n$0B zXnsrV8l&t4k!<-B)AaiUm>oCS9J~9)?^L|J2(7X4Nm8}i4$fSodg6h|3F@m4lB6wl zH?bSv7MvudtKY$WN`1nSB!$-P1oRAi*j0xlNh#_`xLw!P!muQ1iFy^TD!z__FZpqy zRhRq}`H~-n?!M%wuFtvTXRSMcz54F(OMWqR+u*wjU$&YSamlai8FPg&NX>Cp2uAbk zJN06P;GTqlXID5JUl@XMa1yVEuGe{dA?tOKaUuBiIM(ZW?C_7(nJ@7sn_p$W(9i~* z7^`#p0%CQE1K_CNT4QxiYY5I-Ulh!-I+yKO8`*dMrlkfh(iak|Gs@y4Pv8ik!zDv0 zZJ>lfmmjDDuTR%lux4-(HT$&YS0(?%TahJ3-9D`{Bta}vXGA54Muqzc1MJ=!tvfe6 zLG(2Bg;Uul0enP#L^1wk)_c##_%dTf8+$ThMcoL|o?abfOOGYFcK{8{?c9MD1f>Nl zk#T8&rH-J$+^mC69YAhO15~S=qFNQcPYQKD9 z?~8g$+z&ekF563Bw|f5Gfc7D-OuQ-!C zE;a*zxftJ0e;(u8q|CzqExF0R0|f1>XWf*$+?Udh|%pP(!u zZH7`s+5~kk-^uH;!DaTFCQbSNgd{5G+0^kWbM`RD0tae_OxCOKow`yBo#-ZV52X$PfSdGy1C_*2B zQOrbg{hh<+*yw7rPUlb?6LdNwL{fji7sfx>R;WczyX(aW+nK0%Dv{Fca?ZX2^AF*E zZg*g{&QoE9lVd3(_YE10X}jgyW>2O0w%M(RbMhn@3OW3-f9AM@V13zhb|%N&TxJB9 zp+HHTvZHQgSmH}P>sHbS67}WioODeg$S*@3_(cx#%UKycZ1gbEA1hQIOi#j|t`NlH zE?d!+^%x10RvnXvwWpX5cC2vf+6aFYy*f5=9~r54`=%3U+L!pJD5HlIU&PJ!Cx5OL zgE{kcCj`$Dk8KsF5S8)X<46Ji%zslLq!a%Q8!H=QjYYO6nh3(Z_<1Vhb&_Z+#;M%ryou&aE1>wNMT)!%{S!k+2m$1aBkWCOm$4z-V7F90`{#_w84!L1ZOI|aY2CfeCZ>S$g5id*?eNoo-yv|dchRVeTYkR((Xi$l@y}(YR zz>(KJz(S9RJ^%)$lIkBkkvL`0M8f&n=E29Kplf*{PSe&nJrB}(bJRL=ZRjzlS9Ee% z)VgulU9BGV{=m3prO#$26Bu%j%zgm^`Z0}iN?%>gcz-dsu75HhYtEUHB#0sPz zg~NUO#&p{4a3cdQRF+Lw*U$O|67fENihjoZK%c7FQwg5q2NrMVM@FZ{eYNMwQ6^mq zogCGEnTxo26}-g{Hsp-i>;6c<4kguZ(g}gP>517Yc`Myiaz*m|saCV<5LSfK zUBVjsajcxzVhOPqA4&;t7e3%vgIt1+ANC;{Qa0SYl@nxhl%LFfU`pXS{hsE`FT_f= z+n2QFT_#(!@)@+eaQC72n>v2dRb1`?7I|tCQoOI?DAin~mDF{H%{sF(viIxIThA%Z z#+^E@!H@*5>YudcrG6I7nSP0%ia{^RH+H3t!iRk4!A$bzfP>^5n5(T@b>_rq=~W|P zRoG<3BoNG55~oU?Jmr%O6QIqvp2~NiVZL3^y7Jlx3f;DgpS1(6@&$PZ*>EgwQ8~?e zLBKlDv**EeK9ntReRQ3#JAw9XeXyR_COO0zM@P7Pu-_o-u;sit>MYnWEbR^W*mgB| zstQE&e@EeCQKPSRC_2}f@iIW=UIJ^r<2877y~cl6#ds4j|%z>u)$ZN1q*M&Vn1knvl+yS=15 z&yw`5KDQZ?72u5JwPa5rF;UgWNgGe{uDCrgQ1JmiCeK^(T6Z*AnsIFK8Ny}JWC+T! z#C?!0$6f3nG&UN%xj0~1Zp5SS)wIQkZ*I8>&zH>};}Pw4aK$9}ZCsJ}oOu;lSHK$O zaxIQNEZ9!3D8^F)rkNv;Qjn8d>h~xG+G4%pil*?u(zo~9n-M)2&yWT~Sk`v(utOD; zmKgf_VM+`id>AHtt{o6)7&*8fB}8Z4q=Xpj+w@$_ zLCgZ!)-Q7e;NH8QBc%r%I~-|bi_)`!qr{%?y+a;#V?UDmE=o)eLG~2GI~1OBs30+I z{yUVIK8`s*B2i}ZN|JtDl-S3xk`nuD2c+L5WGh;n*zZSV%l_gWuty(xhhp*uzeD^* z6ZcodlZ!D`_>3Lg;yEVwm0CDCwT-);b4>y`N9@>L3C``NA&h-{a1=dvvH;+#Vn+_d z8{AG6jxRBa&gH}b%!wWE$AVcn3Q9ynH%0<-(%iAe4Yr~)hio}1R!;C!0t7#k)hhV8 zNj_@@cad3VOw8m?RG7avcCR@ie1pipGzO~^SviB{2Q&$p7JZwZr=y|YGZD$=4}URX zA6EGsR3hn>ezhhj`g_iHweUH`_moXmeY{~Oz7Y;AUcUy|ZD+isyZ;cU`jHxB-WeR= zeI4_|PP4M^KFPLBts!*ny}e{MC^JtR#o#HMl5D1WbC6*sZ~ne_p!$-K%7fpjDopts zh$s&h@}%roSRpHgCl*oE4vmTLA92uE!kNXz8r|`9oA1T}b6J(2`9;oRyH!DUzY3x@ z&Yb6xY+H?f_FD@~qLWv4dMUPkf!&=>2>2f4*fAD56LqFwRRm(Z3|Sn+&= z8RU)Qe&$cGbM@1F!fV}Ncn>ibQDEX&O_(TRsZ`B}ZVITD^3wkgS8oE}M78#hKWApL zCo`FuG)uS1)^wrGq#G?z+N3Se0<|raeQPO83xyUaSoVfZK$KPGDqGphqL5TCDqgAL z6_+chpr|NRQ9)5rxl&Z<|B3g$zt8*r;gd5nCzDBLdS=c!&+}ablNI9^f|Zu!e<`hW zrW~cR(m8Ssma=>ROBGK3ZSoJQoi{m|R@#*`KAo8{H@T|?y!tjIZdaO=+--Esc|xsb z61j6UDSsC)6CglGV@F?{iFSq&Ml!`WsLyCNYVoSem^3MXeH`%*YOQ3qn94vbZ=NKN*D@JKvctOPrgb$`0CI2Ka1 zrlk7QS;8Z+NZNcPj`1V1!j}V4zC|;r{WGeo0-VT>*Fxh^Tw$sUKt&cnOiKkgwDusF zlSZOP%TOpVFyn_}Bs8@U{P>k8Kb#4eJj_jnr?LW^nQ20PYUsMXkgXx<`D}?2l&7v! zsbBNPVho6k0VBrJjKxC<(L!}efU~jH0sMW%4ewQ(gp+faTrG%x4zlJVRs*u@26WaF!E7 zD~!U)MQjpY1$Q<6a?A=YegT*_Kw9zwXf>^%ngrAj6rUSK9Kj`1p?b8iLCcQrp20U8 zp$4z$QZ`lx);tXLE^7s8c`KlhmNk}=*}O-=DTm-u6ygn$M?nrzk3w!E6KobjbSr_B z5HlYnMJtI@|Ad^spCE~8sfTD~JxHoAAW3%_d}_97A&~EApPO0od4kcu3jbpB2wDLP znik?_^U&>CyN(cx?kGq}2Qiz4{oW9T(R_zCnny8@n3+5wq-T>}M*r>uL=&(IA;TzU zQ*S0{5<)E7u>QDvlj*w~nu85qn_Y-AY6@P@+$@e3;))nP#Lb`eEA11uj^aZ`N;!G% z{Cal=AL3WevSoe{(^m*_ug2u^A)9v;_fCvnIS68ngYatxp*JCZMjfkGvDGPSB(B;X zT-pzaDt1^XMnfhVr%)IG`zD5~24evqLZMe+`W%u&eEV!PRZISkdzTMIYgF@RPi{n4 z@72H_x=DRn&HlQN9#RuqJf$X+4~f@^CC9(_S?sh|Iq|!MAbfU-= zLdL#vFuc(xgoH1rkHB3*V*V^`O`Ks?9E^^0gg7j=j+%yR#?r*35Z~BlKe%XcoSCaX zt(dr7OvS!T^9yoYbl88c?Sn5gpz|13oEabQ|vqhhX15cT+}xb>K=kWO~`HtX&vVY)$! zpR*=F?5C$8+EJe5(CtvdFA9vJhtNGdUhlb!ao`m=G}@@_o8}DkeK;EY?-*OPMZ=IR z(B)c|xEW(VRq;5>8d%cfjz3~{I=f=cPWWxCxbE4$#()Xf&tIUFW4VcA82K71*U|cq zqdl$Kou`~DEGtJ&G@FeFpfpz@Nv18rbU4usb=wk2tx05*x&WH<(!D~^TW-Mbr%7i^=OI#brHPANsb5#SaFTf7A0(-?Y zb(4a|FeyyyT^h#(9dTEql2$H>n$otUsR~UX*`WFtJwN_}o{D3Yp?||idLeqwA{U$0 z#G?aH(AsE3M1Cj+(dS<*i7DA4h{Xf>OanV*1aCAHLA8}_2yl81$eTP@ZUDUV6PeNL z7t5j8^^1FxAK8>p+$50VZ!XT^>zJiu`Ob$m?ABj=j8$o7EzN%{?ag<#e6H~+mU}SP zFa!9`g|=S)kVGj9!R=0GmbpVxE9Ux_!Qa)~{iQbP+Wn>8*qZxGrQ#eSup0$q@jYU$ zxJPgft^}vW{RX9Yhtj^vB`_8HKw@?Q1p}a8I-8}T6IoL}^=2{p%{g>__2ao7{>^S= zpf{m={NK(JzSkSw37O9M*~5;j_>ld?qFi(aQnEfLrK)RQibxL?O<5)avHiMa9-7Mu zA$x#ra-j0-+_{Zb<3lQnLRo4m9`f+bz7XZ=3)ZY1q12E=W3*(bd!wF!x;M9pKP797 zfrbYA(K{RG*=y^j*3R^9Wff{Srxbg`bYS!65>sy`2IzKB?_`+~MrX)5!no#?51rP9 z5JuLNo$Mh-Ev(GvLwS_-!eZiBo?g?`#NQpjcLb>X<-=x2te@{L?OanUtezF|?VK%? z-C!NZRXWZYvgsG&#R58~9c1yugpiXDWnw(oO%*OQ zX0A0xWm&+K;HCOz={-5d39IJ`A@}!${?RC}&il!zHkFMahW4dip>`di%W*n$?;bL+ zcT-}58U*(tYD-6shU#nQLpdDSL%q)v<812gaK59rhF}hd0)iy;{XD@xl`^{5bj4iY zPYr&UN@AQew-V2j}fBZrxqgc=2QV?7>~y9lwu)Ml+JhfKc;+W9d{c{g&ZV>9LE^Zqow^> zd`Hn>1@DwWdx6=S_?Oe*YP$0EO4{TN^aR7Rwf$b zwz`4z)05Dd+@0P>7~!WkB~iM$=)pa8?zgM65YIDVfpNewdW#q9rY@+N-Fy+$xsd6j zH0NnoM*3UI`AI^^!FP-fDUHcBtL$^#+q$#)jxiQ6_rms!*#B-SmC|C9pEPUUbazH3 z-V?@kKvt>bQ1bg~d^d&CHqNb|w4kQJosp%YC?N-SUOL z-&Bab)KHYlKOg;^f=gjoQ^QnOm zGNqZ1eFK5U9az5K*SpQ{)+1U1j zqS1ClnY4RV`fskwwW;x+G2+(v&qNVl|8M!t^~ky){`8}f`|`RV ze*Yt^7bgYq0Nc;x8NHvAkWjuIJKRq)v0ugcATfB;s25DkE89{!ov&<@16b&W2QUlp z;D{;xJWb|jyK3V942bdD1_?2L20W=T4^Sx5fRDHfktnZ0zDdoEqV;b_$w8cEa&k8P zbtW3}MsZ5B4au+DP-Nfd`a-v)f4UN?jGzi#mTMHFiOyNWWC3i62Bc_4xVhx%XpS|< z%5lumrAA7U}9A6(p&_czYE#$@0mSa!iFNT&3hTc zg0LhYs5TU(bSXC!B~DhhKn#P5igXKLeiW*jfl)lsnvbcDL$`XWmPN}?Dbq8ps%sZ@2dZ0L|yQk_lCd_|R zIDI`+GsUEeQtk?>uk}$fwD=&F;?2Ed(BH5GlP(w`z$pyn>3NWZunTexO~d{CztRjA!(N^c*hnA}{w>@!2Z)caBt0hm?&RoLa}f^m&1w4!-m`oqp7@cc3l zbnC+?#YSZfB14(Sn$Dsl@2;}|C+$VZ4Pnm0ypUTcL#`jXa-8IH5^T(O!jpYL*oDF3 zE!FFd2kEzQqY7Umu)!Mw#`L4fN3g+vfIp@;@*_E9+41W!u=OQY})Q(ig6`yqhb~+;%iu zui&IFG|)vu#V5?)Fl-Mbv8LC_3QNk#3NiU)g^)adj-t;PbJ7lQYLeUtGf%`3rqo$F zji>Ek=?Y8}*9E3|0?tTo+z}k(e9Mk&!AMafEga+0NF88_Zv}JQ<`!3J98NmNO!Rcc z;KsU`Rsa)f_YS`*Mi0L_yo>zYZX13Tag$ZAekEEFdEuabz8T56w_)K5nz5z^#X4~5 z?25{CD@IdNIBveqn?|Eh)rx$IyMdg@`I!0Qa={RftT)b~r8%3@DBYXq1cfr6yEn`# z2bg!kB`?I1W>OgzvoA*-DoH#Gsa}P`o57(dmDC?YTg<-WO27jnF8#R1hnrk6i4+r#>BC5)gKcS`s(6jByLKO!eBh z@0-~bRRR8mLL`qic(`B;w@QuL*`wBE9hJ;|29t$P!`4-KnEE&qGanIYh_EgDA%>@- zHcT!PLU}e^iKH^fVKuGb1?6GYtAJtZz&s?F{_5}fl7dqzIHTeYtD^LavanZrK;OW@ zG{sh8VrB%&O$ATrJ#PSaZaDF^xBspp2{C7e$DcxoZ>T?|Y^rIl8x{}WmG-A7^QW=H z=S`Yj)BOB1hH)l&bpmoixj&zoqWx(bclH@OcDZuM-R}t;rN>MCKg7-|I0jQ&FcP@9 zXqHlV*~|+Sd?=sNzD~%?=1?{tPDH>_M>3^<@AHb<#@V$sr>_^j7(+#WNPbpS;1_!f z=hrt(nL5|o+&C#>=le=pgb=xPkPs}CQ72n0z{&KV7QT1A{5&5{#Jn2q?)R6uxAU-MPnh(5_JN8?jQKqdOR9Xuv1ZNrVOSp&Fc* zhy1_U`|zPb_sEE{nuU|mR6uNefzl3vrXot!*fe#vbti3tu|lN~3S33RX62g>?WAyj z4aqy@P|W1RMF`;SB8ug3U?8QcZD_>NcE)V*2FJDHRU8)tU3tESZj;zyTAE#h=h$SV!V$(=L{<@kQ-bZnIM(}^;X77Ec`tw@D2CKYDL z!v3dsIzuy2_htYenxTclfqbaW0m};_DBjTYeLLg113QaSh0r90;v5l67Clpx&4*@{ z6R}}1kgTVfJW?Qp2H6S8;==|- zZMJ)Nd%~q}JTojbm=DcISXs#%&p1QPh~6C{^wsWsm@6Yp1hxAx;&f|;&=5Yfus@Mn z`jeO$;6_>nT)MDi zLwL0QHz=&YkviE~9vUk2y}e^9mqe))ZL402$+fc=Yum|L zcBZ)T!M4*A_GC?>c#xNCdUoU{gqQW~$Pq$i(?D8!YsX||1ySw%Oj;eA?2%Utj7{!W zAgrkGK{&;tq}^PPT4`LoK*v3Ar<6sMh`?5M=M|h%R=N1_hF-(M2o3f=0j&25`!LP@ zZP#w4PazKfr>Z=c50jvhm5L2|MMV{*dU)Z-oY8k7DKLW%j~b*jhG#16t7h)_JRw{; zIHB?(O80PmfX&6RaoMvrqN}fJOuNCON9}9xGG5TBd4JN!SJobG)D)_J=vA&XGkXfKkG!6Uw zNFb9BkG-1$zf+loLgLYYdD!H26KQxy*5!;_v+2(>)n zCt3jlAWX2r_{kb7)xMSH41^pQNvUQvHrFF2e=VL&!;KUg%Ni!rH0mK#bVGEl_9YOe zV8^V+jIZiDk~>N$o6KmxAga^Kd372^ZOy!?uWE$hQBXTw!`N%)MbxACunF&?Dn86R zV9PYbnlHBVVU)8g#0!H-_qoUyUW#XCf%uW-*!DofeYn@Ie3I~EE05eJ^W1oj4xFHc zC7gDy)Hwt0@ch}7>z{^flaLvMgxPS@I;sXefDk)B-{K`(~LlIyt~Ivgt&+O zhq%}F^-&fPaolT)LcE{N??c*Z&+7{2dB_k#<90y+`OJPE3}4}VdH-J-_D3hi5eyYzg7v`ZsD7?_?m)X>yQUPbN}J?h>2JT zLwz<&|Gnw$os)659au9Rk5RuE^<}D4EU)3m3lW>V3+wCfRX=;O22t73N;td+H)r54 zq3B@{Z94>xSAR)`ioIAnGZj@N(HSK3PMfd&b;KxFzae0C!#De)$e_I`nUnESynq1Y z@mM(vQP)LWuA}{(3vl3_Q&`i8P;zptEqYKlIQ|t0-j|VqO^67ufRs{a1@NCH!Pr*Z zZw^Aa_aZ3!{7zDHemhn)Cjs*dL=V|b9Ov^9sf}^!(0s%lPC5t1_tOtFwMU$lLJw;X zD9%B2?KyCKi179`IOYzuAmn`yL{B{j_77((Va6pBRxV5eEq?OS*gF$mrdEydrkc;Ei?_D_(36~T*#mLq%hO-Nb#B_h$^I5emIGu$l<*9fy4 z@#asgNCx9iw}v#e|BT>}Fd1+_fxqvm6}0i^Z{nVBzl#r+FpUWCwj?<6H=G$99)+*b z7SJvyj`nzL6?0eTBpo-tos+;h5Xkk+;D6<)EQla~nX=!TtAzUd>+t|e1gG!Tu7}7w zZC%9PbK$x8CkggyVHMhUB|*x*LcD6H@G7QYof>}to(=ybo)Mm8Sc_kMU^1>?hCHmd zfTo?KAEh@S&K{!-VFO;`yQD8UG#5Y8poFpKu#&|?e23fEh9g%qY{bb6R<&PBa?p5L z#=eVnd=hA0pOb!+bSJ@@_pkzIIC$>1R}M1iM|IVB@jk*zq#p2?_Ialq9Nc&$1K{2q`x)vL4|ZtZu592(__Ve)BPfEgQmE#SkcxM__6Wx@=%5N>=Zi5_$jUaRf@8dA0k`r`L`M+lC637<90 z!G7rlj?yjoM=SQ-^V56VdV_UXriLEp3w5e?f@a+JzS{mzqlzPX%f7(x79Q=$(vVp~ z*qaSeb3Xu;8O%c_*W<5JPN~NYxlCJ#)1|UdDv+e|MSc=hl0f82stGGAw-f{MOgK_Y zF^_3;=$gSZdk20*wAAu;6_u7wy-LmN?QcCzRejhz{BfiTZ2Tf=`7T6Ke<}tRq-b$i zbR-#^N%J2^gwRIT-?J*a^Ay!LHNE~6HLzC%>>j`A<@xDXX+z)C2tG9<_$(DlOArg6 zO!YX9k4OCWvGF+m!$O+ec8IF_0<-hOYYyT{Te(wnunHPG58%e;DxeF_?4hcFlE8|* zr>PObKx>4X(7UY^b1Ow92#Ppf?$VTekUD=*L@G0))F}>h!*C=GXmB|UQ59coesv9# zgk*x^q`&a}H;aOb`kypxByP|Y%sgld)nKzYr=W^g(Dc$iwOEfWXOw#7s8?^ih6`zN8rN&ov55rMw1E0DmD`48FODHe8jQ0~VB=~3m~HE{iHZy$Q* zCfI?dte1u&a_ru#qaKO(&C7M}a>jz(l@<$N5iWow^#X{!E+9VT0@%%t3!oocGN}mB ztUo=KLFjkZq(9(EuT|oM^J^r0xk)UjK3fUjr8+lyTr0Vc*CdE9YSTPN9~7(Oz2}YE0^eO{_BrK00{UZ-WEKBpiJUS29^J}<`Yb>~@L3XKQ9#L`U z*Q7|!^J{#P`TUyc(#z-9WR?Gp-%-JkM55{%VNrCA5ET0vzXOvk_bO6Ov8YD9k6zxN zmbvgA!j$7Ix~rPN-S3>wVWgigBmC!T|0>Q=#ng6U&h3QK;k8o!c#JDMTmJjRoQ2rQxWhy9(QPOc)Dxhxhy~Rx=N&2ygSSPWlZiOqc7H<=g z`ZW>1U?wp$W#oV%V^Eq{56QS? zaJ8r7J&}IPpxR^bbjj~B&UGlpBnNO!O6g44W6)+omF;U^{8~s|iZTM#VJo)2r$}{@P ziR2<$Lh89cR_Mh5HmVqGRHrc38i7Tx!w4f6ZZpT5!)@GkMbBW|P)Gx=E4E4I>k7X_ zt}FE172Rg(*cF{W{;4ZEZolp!4pcWAW06;I$pWeyk`?>p#`h85Pi%;pmaxc*6g~J4 zgJ$?9ibT5!AAfa0+-ke+t3re%!;|tFSo`7o#*5Ipc zijpgiv!ys}m^-hCPuaHO(2>~_5&r+L_}qBtRzhyP<*D&8p3bQ4AlBy`l^wVudD?WC zVBSRZ8&r*baOWE7j9`&#)n|l6`E|t=MGkkxs+EK*)^cu>LQ(!A#)H-p!c{AlN=vKp zgzKvDgsmh&`oW5=)PSuNS7I$`R)Sb>Y^8rzE1Kojfh{7Eul}M_Rrmet8Q2S>Y*K7w zbKe{sl?6p3On?wskosxm)};n+8@G}@X!stDhpe} z(2EY&x}gmbH{z;)U37T521hCoiYDTU%I-9EZgUpxBR|(~b4H%%(VPEtc-jVDP>7}5 zoiZ8tuHJ6WyP)tsX6|+je*;1B=|3Iz?2hYpI3F{=J{IqB1W6V3vC@nWlLvJ$`3rnD z=AY1mJ>NHJ9B&x)eB&-^LieXz-3dC=i)+DbSqof?o)}*{7v!qI~2*H zBnIp)0Cp|?#V}_OTc7dF%VTLbt+&&|@1rqJ<;Qs1@x_$pPr|+aygq(2Hh21zQ~G2r zDxw}!bBkYLrQ{3HORVu@*!BXXO6~Z!gB>(iK^w%c^FWSa_oMnlT1pAf@YQj7+ul6T zdFxZ|PUNl`&604<*dnplj2}8%wRaTU5)3(J9)ceh=>3$bUoM7-fa^d;&&FnskuqA{ z+vMNwU(^=JU050=WvXkR+`8t3miCaCOu+$}26~{UO>U+k@i5a&iyG&|l+Ltf+EbI- zOuICx*w%VA)2iH<#6U`{N%h+VO{~d`JSf-AM0|=S#+vL>e5?s{YsJP<= zrfue`Gz#ey7TjsmHfh8~#xMC#n@&hKW261j#nYx{PcTc3kBLk*J~c8Lh_@{x*5Pra z>y^&8d^qS2`m#(Ohpbkr7fey(j*he@h4@yLQVymzDI}S=)aXug39W#B&Q&W#Pn(3l zvXnuDF|J5xccoV9W}m>fSNBmXr3ZUBWB{~^UDveS)*}Y-lPXAwG1PW4#ZPd4OjX(X zUbbh(*C4T@o7*RuySWd!{mRXfcfZmv+4d_>$ge%Hk^<@Y8T))QgB&{tjbyvG_I;8V zq|PeMWQS6{?`zkY&HKJyjzqO#=qj`a64VQ(GR>GCupmw*d6UuEW%e6-onkK#DeB?* zDo91g`cu~Yi9X_|B;ijhwyR-vMlbPy-^g$DCGuSCA*kxdtxa@z$N0aS&gI&aV&T!N zxYWlV$DH33UManP^lDEW*O94+jQsdYq;}b96=OnPTY`yJpNUpi89i;TV@PLn;lRq} zi&vq4x1&VsDs|up-mxT}`LV&>DY3KAy{=yRu_5yC;eP!dJcXbc(x7D~qWn71 zKJqZwY3V&X$`XF1LJX*dMNPqqL?Ra{PH5CD-oeeL=t&&XCD~?EiS&ULnD|%zR8v(X zO9fSjiK|m_n20skRf6U^GUnr$4QX5~73EzxVE#s&v~z9+VGw__W51TGKtfyV-TB1&k(trt?xJQi;YqHeme3L1_vL}^9^_AThUP$HFYG9KY_UM^cH`Q4 z9N;(~{!$Hgh>xCmhTE;0m$?koPj=98q!pn5o=$Mqs-2T(579NF|E$ zbn2?WS&s$W+-^O;AU~t0yIxr-=s=DX-1p7AcPzL*pE9Ylf#E=MPg8#r{6rKNnf$SB7DxOZxY_ND|%vHgDmn3dy-=#Q=)5$*%Z$+%5u!Kn7K2^6-U<035MSHXg?uL{mX>Um7 zoX@C`9`}KQ@maV$vymNb;XoZ@A)rS>vxo_ai zD-ii=SH50yDG{%VAOV+IX04g*T(tu zI%hm{j*=&S_pVLFZSSR#E50-FD)klYTN#ZvYIM;f49;Hk+kru-IyzddT+9YZM4|Qd zp&sKD6(=kM-=Q8iGqzWeRanODUNS`%%AQ)1CKUhH4ms0&c^dWbv1N;<&TS+|q~eSw zO#o9&D<^IM%{ z7}BVyJj@FPhx}NF!R_qS>B0~eO#RL^w1$0{nVUOx%GHJ>71c2hCk7Pyube=^`Joqf znCZMm<^+%n$D_jgx1ow-1vizl>aRh0aEwiP4d}>H{npbc zG7`Yk8MPR@3m7LEA_d!sD8=>Vjrimj%0663aXE zFsrTrQC8tT7+Au9%*e4=nPHoSgV%L0VQ|=1bZ)l2-EeNUvAyyoPdGaPq6an3b?9y- z07_j6;og@nx`&JvXEHf3d3gvca*u#0m|zhJ4#urMe}jAy{O)PUA*=Vky@@$x%C0ex zZ8Op}26D<&(1|)1PbmvPP3{y?vS0Prp!(nLVp^`g^Vj-!k@DKtSbDm)t-^=l)>To? z`bgo}`pyl-Xpgvgv}br5KD}`%Y<{_0A@344+FpY0WY@Zl?nq*tLs^K85x)=rdZ@y_ zP;OlpIjDa|QVI?|!uu zf8CBnwN=e-PvV-BkfDjKxdyr0I=Kx?3cZ>>;Yuh)K;y=4`LxZNG{PyHIeN|C3gzP zGE3A6+;w_2=U4aiG;%|!`Py6VocJS;r=N2c#yxeyb0!++t!*|FE0%T-aS~k7??{xN zR=)d%C@40sf?HKc?^(WfL7tF}m8du?dnk<*+>$ zF+0ct4ydjW@#c-aiMN%@3E*;)={AbSr5b<|^ zGGciZ+&BBuC;sI}aiTZ3ElF!!?aqO1-{>~c8l;0HB{FzgfA1F2P*pxo!?si@`g#%y zy6wr~s+lIXBbQrqAdx#uk;G2L4#v!!p8#+7ZZu@7??Hhg1D|CH!+~W4K;4ORgr56UQ6@T zC~-s6pypBug*p|ff9X_UDeSw&vZ;idc5FGfgPOoq5Sm+p&12sZJa(?K=RFjGn5C}J zaciO8aE*~_uQB*$r1;86>G4QcuzA&DNpa_xdi5$$G_4nmLyd{81~)P5i;1YY5P*s( zZm3boDNh*Xx1vmsh&a87F$wD{*#;hBhVU?HgN_aA`{M9ngC2*3k|9#C zcuyCtFK379AmNc_EH*2smE*DZBrE+BUZL#m+^1VMweutKp@x>;-?$M`MMk`$ zJlNq;ZGo!}N`JV+={HoIh8Gxr7e;VDKLaC+4%!hrwg$DRCx#uJ=qd7x)Ag2W7%!=^ zJ85pOsQHhfNPu~pcip5Hi7_;e!KwFfgSe5H4OK6dbNONv_Y0p414aIukwx6^ybAUP zq^H05k&h=C3Tly}z<+Q5NCc20kf&I~1Pz-n8kcOks2WMRS@-ITITki+;z!bwsh2FN zY~HzxY&0sc0{tZ&aY-T4|Gj{&_2mg)lP_s=$$wrJTw=qehT_$$vqqTCDL^7uudl$? z#s07BmlU~viENV|5`)DCFeqUHGg=7e8JI? zI3PSl2=`}Vg>XKK1cEUlQdm6xTjTf)%2=%cv1!P+N#TO=-+I`*QQsDtgs^|uw~~L< zx9)0eIJL@(-%(B9_dA1$*dg~B->8>SyR-`Bdcs5B=x1NmFd#*yOy9nM`CK6!u!BR7 zj^frpvVu`2AEXOG*h=Axj!rfr;%o%MMYgK@D_m#Pk99`o7oyhx8ln%8RXRu$CvS#9 z7-+mkEe%QP9~e~F_y2(SpUn*NbGRoMUgDp?VB?qHqe;g-nS~d^eV-_+KCuUTZ={Tcv#6{h#w}84%qCKnfg)vp(W`(-kK^wjBqHRX zQKU3hB2pt5{Ar3F;H@6h{esP0L!-0b-L` zymL_CPn*L8)x#Mhd*u5>rrCQdIb7_$C5H!iZ<%GrYNg0>Av_Qp^`Oh7CzpJx1D~=; z#{_-v5Npea#5OusDV0qB0aC)H*NHUvI>boVc)maIP;?q6Pv2BJ-z+zB19IR!S{xL z+b0^`SsZsOu;MkWs7inY-DG`VO1S9hw9d35hHg@_SeiIZCb)u=o2V*;X^K~^bltDc zfLLCx_&C`td}VdEqnxd$hA+mR$Cw%Gyoo9Y_BKu|k1E8f8um1z0NDr%&~O?h7?)RY zqxw?1yxWOSu@gQNG~dTq5CfLjr2s;oFBb#n%l(0{zx&Y`G@uwaP3OHyVp2GKNX%iK*~MOc#eDCwcRI`{C+O z-?N7?3G06(p!Ac=@>*jVLp$#6DtxYDEncoM7dSTXKSeza!DbB_DSCV#ZJ;cD??QF;`+8Kl!( zGsle?=c$Q(f1FDbTZjUO?~ju_UA8KWid&D5bCz1GU_Sa{RbAr)Q|G$c%s76VS|{S7 z0J+GguSMao=kzrl3QTx{!ZjQh33Zt3;jdvpix|huHnZ0-aQ$I0wWdDu3e1LJBE7hqGt76&VEfV|BZT5 zktuaOsZb-|7lVdk9FErfS0~RKzctv4fq58;J9Ij!ILr%S=2>68X!T1oWma#cYiV?PqP z-veWrM&{r{=?W*9+eu(gPUFlU3Xi4oxn|%>spAp z>C7O^O*us7c(u}x-8Zz{>6=Q2;?ozQ;v%+~IWO~Y@og#Z^v(XxiD3*+dZ_dTgmtkSUGR)nT+mNo9??cWJb;y2R=Ld7@1Xq9 zdJ2bZ0~z~Ys=ET}_)f4(#S@G?l6MQCrdS9sWbK?SIv1r(Vi5Wh?jgn|-`nla|q z!w7dk2ru~_qL+RT(z5SCOOJsOLnDOVLa;3_1i1qWksr+Dy^lJ{f8z7g0YzCt2Tlr- zf+pmWQIjwycn8z}bvQI*Ix0Lvu8}mGaT4WgU$_kwdk>u5IYXcuuVwNb^fMny8H2yA zH!>)b0bOzjUGZ(AVGwW&rz!Qlfcxg_wOlL#S?_82DxY0JxVvBG`GgKk04l!ufXw+I zu|xIX1Lnd9s&8@N_*E5KOSo(t4=sT@$q*^nB`}?rsWATGHCQhUwC zjkMmV)0u&9Wp2T(oZb-EzX4?thT+D560ns%&8N3NqQ@uq3J^L}Ti#C{g_aC)Ybdoum)mg;*s)td@=e_JK|UvJI$t&jfQvEGOY+pObQiJV1K;HoIrkYsV@DdlcT3)EI6N^+0IL4|4qL1GPgu4MXa*gr^aN=7xK-zN-rN0n@ zg;A+enOB{_6#d8BiE2+pVnBDHW%D6$eLk zVqa@G(8m*u^AT5aoRJ8z-7ND?R$?%wHcO1b1WN`~L>lO7NYUvM#MB0Z+xX!H&c zs^9cHt;G56W9B<+ClwixOkC)MtzT@0?vGLQ>$U1D*{Jz-1JHa5uXg>~DNYBjyst-M zsvhl)^k{FSzW}@*FC)%GoNc%(oZY$cOLS!{$GAWeUgzukmr55Oayhwo_vxfp?`GQN zEj`;WZpyj%$|#)=h*HcW)x`*D$~f`b4e;B{{x6p>L7vZ71|b?zVUW_3HM}BIj2q zjKTaQ=<#s+aT;>{A)~e55TkX=AjxVg=Ax`G=NPTgy^YpKGtAa+ycF;6q0vV>oeiSF zbq87sGJiLEtVqP3^p|6^=ppv$Ta=LU@G4wQk5erB?cYp?j#8n8aPvY0#&+-+c5NRw zEKZZWsi8xQEIadZ_?fPsH)-zFX%Q*%4v$7LV9xxSe#0yI=kqA_f$yeFozoz6=xp)a z=uK8835IW}9XX>w=(Yh&`3%3?ritB%p#@2!c)Gg&i52#(QvUP{zfB8L8v@y`HDTDtB3 zk+m8D>>0;jvQ{xrfxl_3WDZIdDYErg4mFB(P)sO=?%Z}^~3H=tH*F= z2cIEDt5S;`GxPB2i38RSLAxSawE!#ri50i7Lc{>6ZuGDGtidpS)?}|d?f~VJ$)8E6j>%Wj(x+Pi5gv9O3m{>3ZFgC`OjR2scG{AwA@vcI0!5&9fmvg^bKC8O23ct zm;D_xej0J7D^vZ$1^8R8Gbs4MzKgp5lZ10Gt<+VF_<>J-j6&lfwuMfy{q_L4#=2&( z0$Br_sduvA1b8-T+i!c?B02ifce1>MOLKA0^K85pA@lQh zO8=UV{0sH+EP4_vqIg!@aXqTH?mR4VKOBFIt30fbUbOMNfUn66T6pgj+?13vdW5Mrjt zZP_cQ(6=>Th?r`OXo?|m?ZFll)D;5VNS-{>Z_1fY^lgp^pRK{=y}V6CMzKAV567Uaj7Hk{10p&Ws`OO(M(i?^h(fN_C6OGtNX;Kf#LJNO z<~!0$k^ZlttCe$9oL0gro-bjMSeii8CmkiY-}MBZi$p49=_q(pc|DB|^Ee-b|0-Ctsx%Ki9wp1}dXqE#vy)!SXsGX$ix< zVZy(4_A>E769cc@w!&EkBg1;>zRdy5DW>>C94M$GeGnEuX@(Mi>%E>T)I(c^xD@H5 z>k13GjEXFy;lILZ?<&&$r`jAAN?*p6;2{3<+v1j7;(YAE4keN_dHHKy7Ey_dTM53) zd(-qKAYLnh;wgxXy8$ue2B5N8GgTQ;HXGXnvgOD(!wit6^ZU^F#qd6$6=|^+z;45|U`#cKlEHTldDi#0Q#-l)$gHs!OzR z229KUMAe(o)c?TwwpH}wQ0Irc1(aM1w?LP+4@*<=t%w`S5-EN=I=VKlc5g%)bJfhlzx;6&OlMU96N`N8kwVNm?H zIHxYA7RYCQFQ!HzC~O-JbhH;Sp#Hv_^QkFaw$I>GOJDggDdHk1!>ha0YRDq-`+REC zyeu35Zp3DxevCUsMaB0yg{ffmNK^C@;I=7t$hYp*DPN8M`$gbxXdjo?-}6(6aF~-9 z-TT3#lQuSSM(@s;Jw|9U$f@_n3-s%5gvJGR?81O>gsd9kM@6CF`jRI`u*CtPBaW%C zmj*iGS)T~zDiHFM8}-SHjOJ(OIf8{*L-_od zg~t5uQlp@QbSqmOi?P;JptiO!Ust-;m%P|A6{kNQjDWYe*a`;(R+t!j?XtL%^wQYa z+GVkIwac_TD1(dG+GUcub{QINV}XHpF1RQG>s0>|* zq)y&8ImB4R&J-qwd(7<&YH!vt!qbf(;Uo12_@s`(K1gylqaSHD!DrwDjG(_TAp0&I ze{D4LfZ=NNl%SlS!2L8^8&8nvVg8)^;8TU=_>(!N!u10s#dzY9QO;J!#h`oRyiekqaVp!~o zioHY))~K<|64Sw$#F!XOK56D-jHH{ymY9UZ!uzcG{=V<^yRP@2_m4Sq=1kd{*_kuv zDffM2PkWe@V`Sl?oS+NO;d=5t48W#q%l;ye6LXaZ+!xVYXT?Ygqh#bYLS&90agMu| zN{NDexRQcq)iRVuTqtaKXsEoOv)(bG$%D<-9-`8mwu2_GqZZC=__ zI5gMCwI#Y|%%sb?wj{0f&82Mq19fFGswino!=WmkYfILK`-VX{)L=bDYmGt_f~F;& zZAT5CQM8^%Cbc3Uty;lXR>M>IGIR9Cq1rd3sa4v-IvH_!7*}W+My;12Cx5t=nyHKK zQWoQZQa?pg{!?T?%V&Z2IkoPkqrQ{jgU-oQfw?(C=b+=C9)1rFnzab6euKxSdPTKM z_nfTp|FEW{oYOA#dS3V{1Lc*zk6!9sy{r#Xp>W3-B&zPyGAx2$7WO96*DyYrh@4wx z4D(q@5aJwtj2-tT=5~yGGeQ{nGRTCg1#jwfnf2##7UAxBm@Vp&RdB~Rwk<2Rluh#w zb!_a9Oda|m_G35}CVD)Mjs0Ap=MDn3dvLtkH3eX{%u373v|WA(ruOHfO6^7A+be!dq@X<*L0E;AL%GPWH4Y56bjTa7#XoG1`fE{_wdk#Y$TsUM51%`DVE<4TD|FrW962zn zbav71Nk*b3PM~H@6ndOvk+uOjDZ0m=!TD*NC*|QXh08cUjq{{@T&8gu=cnoJ8;O#= z6P3b^?F32hotUlMnvaQq>;(z24uNBBxyXVnA*4z8^xlwCXC|_?52UuH$v;ZjK{uqj ziUX-v*tY(p9Leb>)F3SVMCyHlR8B<%Z{?H;NCaip0^T7r^}<>2F&4p3=#Dhzy{&E{+Vm;1u-e5&`wF=+kWlOMs9c($!Csdg6Q@!U1Fb@dZwk^I?=(gNg> zn$?y;9EA$Dtsh$JJPe)fL~@x`DY2#VA2^FUmtc znS!UiFOC}`1^!?jgmQV1H*tDpoevzu^&E&17UqDhDu}piz{<*}8q%!(qFHIBY})`* zmJ|G)B(L2Zr$l%3wqtG9oRM5R6 zR)Pagh?UTf445a&3h()X`r}FYOQ2*V{t+#DHf$Zqpo{32WLIa|&vJWh*;u(~D|-^aHoRFWSJru;V)#=M4HdkkWD zTwS?Xbmrh1YLd=pEAH2D&KYd<%Rgf;HhB}H!dD}k=S%*xPe>^3Uk z+1>vNM^uBBw-u$@_w|xPSx_^gs~T{1{%)kX-{`gHgm3f$sj=S-+oGPnCk(Bw4WtI0 zv+%PTvt;?7)viu`HYSaxzs>yOXuK?`rtnLHs?bSO+2CSk{Ev^tN;TpGHW&{Qe~y788r;~H;4tr8k; z!Kftr*ptuA@{aY8{gvLaC$Y4T^;8C{)JiNpbg(@6r1VHuDt%*5O1j^f2C+tFXIM~B z<%>`?tv_>J&Ggx29T!9_y>8K{)p`O>q+klyFDdpeIxflnbyai#b9bTxL2HJfteDKB zJBbY_T8x;13xrynqrkLWb}dGEO%Fj%jyEw65dpX8M6#NgJmX)K(ye7W=J*T+ldwES zBosmW7*i|gZ2Zk%N37RA1SXB>&E!)Uw14CjOrAd4Ih{=iQ?_m#y~EOX_b|HrDT|G+ zP{ZJ*^>ot=CCoT62$@n<{oZJk9AiF(Mi~8MJd9^Zalr_NK6Ek}FF?FvGPNJj+I$ zGrf3PCBe28p$Aa|6&k0E9Q>Se0ASRlXrMvK&NRkulDjHnniag_Xph(#-K?-Ot%uM% z+Ik4>Ei6L6mBncGD?%NuhoVr@l|=iem_aHCX8&4G<7Re8|zQaY9H2$jpPKeEq!2+WOjQ6Pu+OY}=4C z{M>2PwX-Hv)mx!g8L6`ZJL52fP8tur%1Mg@h&rjScG`sMQ-kUz%tAT&38+x@)HQy8 z74n>otDROeVU{aSb`Gd@Mpo~!yc~_5*`dfAzBJ7>SFb%D=_6iDkYf1AYj?^nl5ATs zN!2*LT=OW_0y;EBEMZh*aRQey6mwMz7>j4)2)1n?Iyc*je~XasLMq`w%;teoIH`y8 zk?bH8Zp#N$|0q#QT!_xEc{V~hSb{2U8M}?Pw&LAJXY;82ms$DJ2&1&mX0v2zvG+xB zBr@`&Gp}tRn1lRCvRN3CJdPk_1m?COPlGPdBF&3{l1S5yIdv|-{+QezqyL*C9&fU= z+|$BnZ%Hc$Qxi_Mg)vdvWMcG_iNsmg7v(lR?Z3@>mxRP_V z4N*a8*)u8}Xq2P(_o;a*O?^C?pF`=i6;kFY0hpyy!ZxZA6DMvgmAZN7W`TK*>*=8d zqDk7*b5Q`C+4<3ZHKxo#8Y?}&OmjII_a7!L#FtU!Z;qm^!T|j1W010-Z8*>>ZqV8& zYt!WQQN-e?kc@3n%4Je#r9|E$O|gg+y(PM&haQU`(8q}q9I@d1v;;>i(tM=pzIHHL znXP^=J`{&5b)m$%*YJoV5Wf^ks3szV9%2|?j1Gwt$2nKmYB&;Kuk9jRG;SQq{+*20 zsqV;HkgRCx1ZOX^mW9%Jwe^$6DGYs`hz=br2EIlUs-3BH%=nR{ zvU);24{Walu$_*V0Xuaju+wJXg8T9~>uFKpK>>^y4YyBj{dzC5AAH*fk230@eC{)B zz<_*sZ}7Z(!d(y67_rzQl-AZC!2}Ri!rg9Rp<(+17a|aDcVMlg$k~1B-b`78T2_xNE;TK zga%v^l;z^uu}MUgQK3$-=C3D4W>~ql(K((~WOA)%! z_Ej#9rv^Y4EHNvXAZL>GxM{c>4_)Ph@670m|Cfdzef7kojDu#h*q5tuQZ{6~5Vi`q zrja;}LeKj@eb7CP{P_!!(`<8w*%3l`jzxZfYI{*ADcCjvbqk9gO@?Rb z{?oX&c?n=HnNa0@@hawHmF>WN7E}OVTmgD7Za(;TioM!FIj`=l0P_Oebi~I;JuiO$ z9S&4~v`W|p88sMt*pm%gLuRn;{g9bR*#{id4}BnXR2yac{&XL-gLA2??S%?yKOF8_ z@x55HsORlxn>5o3-jr3;yskw`f9Ft=D)UbmBt7b|)13lno6KJ|IPs z&b2+`LsyUGu=mCH7a@=A$1sd2-L2=A`aIx})!;5uUv=x=f1A87fAOQC2xvf}ROAT7 zXq?l-t*&9)iw@Wt1Mn|-*vda6*>=;LQLAhJl1$uCEu%^OquK`~zI2t-s>fB5(_S{U>X7xt@#FM!F2eRptP}nDY-~uY7YFW@ovcJFNsr-Eq{*bx`fu7-$&PFQ8D8$m4pB{A7`{KRpsh}_24!JIc zW|-Bo%~~^kmNkkCsPRvKrkY~^7#~sdM=I{EsfX~WdX%8=qHVvo<4$Sy;Eh%oRNM{g z^l8@W2}nU!jl+Ni4G^N~3$cX%96m^v!VF--$?Xu?lx#q!L}x1A>ozKuB=i^63&Ari*~Sc|PRFDGX0p z1%uTpz+!xV`$6bx32A%KAcd&?@C)d*@esQvBOZufAnCzB5G^5|O*9zsfxnml)<;LB zP}L*HpJ4Yvczm41K`K-b<4i@XeBH<*Ad)0iJxW~77lAI}svttuW+OPK&Cy=39xOl*c-~rkr5){V?XfFv;8M zB(UssU@5;<>m6?=x~ft;lKNT_jkdA3?1!ymZ)I0niRpSv7O@vbL)4zuVLBcsp%o1; z$J;Yw@eD))S{0TVG-MI%$iO3Xi4-vD9xw#FxWbuGfZKJMah zX3tsl&H~pu?as`o&W64skCO!_W{0RL&Y212e^jZ*dzh!jY52dlTM%Z(c_oLBW0XwI zr(CkcKBve8W(hZc8)s}BDiyUhtsaE^n8TIyZ?5>zhkvVTFi zI&JkNUwbw;)@B=;?&=aAqHX(SqnIPyC#|N4ekNo1e1s|d&eh|*+Ly5)Cai^ zzj`0LXaW9>G0g2-ISdnScKekLvM7X2($ubT zq956Uz$C+k-iQg71{Wkz;nc)%(T^DvAe-FCzc(EhNL*mb1RCd_yl&$&Q*dEE(qpOw zI1gmW_ZYLQhJnHd)qrqYls>D1Hi8%Sq1R4#xEb#;;SnnLXA1Fl{1JRLCTWFF6_eEPXdZl`)1zDt)07#G zK~d!8kX>LA?s|dcZzf}?RnkJuT#Jb4&Qtm2EO8g;n@^*mtag9Tqvmkx5+q#Ilmg>J z6Ffy<3Nl##j5y&zV1Wu+IQQrWh!fo=Pe6pP*WFp*l(;JMof3po^c6evoD#}q%T1;o z@8y)!x*XKZIM`PcFEM4uOSo(gl-jZ}D`B+W!g#RBgG#yM?Ynu7 z)7HC@%EkUFqnL#43)kFX^SalehG&~vFt(`~x7T<(Puy)>GYb$`tQY*H=mXhmNz=QC zbAChngV)UoBdI`_Z!{ksy9mAij{w^do#A zK&isy>N0v1u04iQg?xXxy@QXI^zB5?A3j)ZQk8pq=x_bh-m_vAJGQSJ(j<`4SC7OK zTy9NY;-my(`%-GKoynWlmkdENxmkVDBYuTuS_loFwY1i?FJ(WF&2sXqMQ~&{Q~3-c zpVmt>dXUXsFHIwu$i*uCN1Gtjy9qS-EL;P%+Z>L{O5aJaA7&6a2dKaMxbhhpkx6i2 z@V(?dFfADMeLMUM^SHoVlSH_)EY~E=eX~tmYH>=blEoO|y$cJ(1mP|uiF2@|gnoA++_EQxXC6P0 zB5#;cqDL?fb|)N-A@TLgnfa7j%(4QRELe4@>`48+jm6aQXw<{GK|bWF{<~Nrjb@mW3YA;qc)O8lB}iuEK(+8x@Y}TuUtg42 z`a)pDtByJ{NwhiZNU9_p=~SATbTH3``-DzuRPmW_RObhbK@FX7Q#k6+h68U_p>L}W3>68Z`vpR^ z;ZV)6)np`Xy;D55Nruuvfw0lQ;T~^khhsDgpiHg2xCvNM7RkG1#IrIb z8}N{(DL^E;Cr%&dY6(QJ0lR{>SI#LCiuI!tigb_jNA;CLuy$nztaFPk)_q zz4%iLFa|X#<`Vu0qp+qNd+E2;aQYLwh4_eq0$t+u-+h-jK&_YAzV72o$NTN5((QWn zsS?z=?jD0`ns07r>Is%knH+Ywo)DTJsc7Qz{d#%=7qHQ~k#lV`XxZF-@!WET_Hh9_ zy?7D|PZ1x_a6KX=S!M;)QL_uq;y*NTKpn*@!l;UPQc^p=wu;gvAob&TN*AkyyBaTM zJ_a19*EhY+nal>9NcK5>o->6FxJZd%Temco4Y)~3UF|e9mI9Hu7K1Tqx$eU;q-6Gt zN@u!R+LBO|kAKJPtx)hWrC$4~Yf=7jSR^^dWJ})44z-(_c;R z>MwnME74~=^Tt-_-N5Bz0@>2cLtC?o%=)waQQzVmC?zi9t`apNX4lU^l47*yw9Y4# z$8Pjs%&L4&gwfkjdExf<229WlV&_XzOKQ15)H_?lN@y++Z6kykxO447r}ti}&&~$2 zUk2|&Qng~oYt_@|jIYDH7^8Mw15XMmjU^+!$6~Ttv(T1u z�^(S2v*sb1KX}JkPzOxq#T{WeX%b>f2Sw8{1&5O{d1gV@}BhJZN=t0WTLw1?}JK_+|EuuiQY zlX`K1j22QaX#=7e*!WQ(26{gSB0pmt%z7J$$BNaS-0hWZrK<% zu!xi#qNzoc|5@w7J@#yD{$tVM2id1lF35rArOS^E7J^ zp#N>v)ra|vpU}MU^nF4=$9teJPW_Od6Wjc|_u4RhCQyh|{}2=-_&rnNfe;F-|9J4& zz@H8QSLBx-9Mxkb>hzOF`V`@c`x((AnAV$cBms;$@et!pBuL#_Jd6E!tbqg><^8xD zXag9M4$PPEa4=;6ei_iAv)uPqgQ1tPL$dgJXZn{s=*0|}*n1YSa4(agV3QBe*&TkMi?mTt94~5AW585%@ohkxO8BJ>G$8Cm42Y zr|^FW8Fi_Tr>e36la-I+ikc8gAL)YVaij~Z6LKZ6e?GQO1ar3Ewi{{oM!uF6nN66$ zRP~Tb7W|PWa81}dh00_6k-1o(xOeK4`gjvW*Y1s>B{-k5A)0nX&cfQ%rYPDKIqUWw znTwWOht`>ic;o0~vfI%_%(;g^$nnC`ZG z_8d>uxEj18SMU^OM1r`|{tgM??0tX>%*3WyNGCfP_g=Hggz0uf6tNB^cqlx|`pIq} z4eNdHNN0dyJ=?0;}Tv3auf0RDxBt+ymj;W0LBk4*_SxOe?VOS6dQUy(?Yi9I`l zx^`I*vhQ@hr>ft1{PoB9Qwt)&eSk~{*MZZ^4wN#F)vnvK^>-l_hb3+tmf+B&8KG;J zcJbF``YZlIqWn7R>%OG&ZFp0UqS;{C*qjbBz3$DAp1Vu*!?idJ>BM2kCCp-e^OH!M zkNE0&Z{H`SKOl~|}|R=No!{`56~#23#c ze9$|n(em;R8^UsSrdK{Gzlprm-$96d78gL=Z_caCgVyDyH z=;$fH!j|8SE*9-{(Vy21g1a(B?+~fv^j2C&opq6z{dbbkZOb!qv4_x6Bpw30Ee@Z# zL3NJZ?h9ay!Wedr!wSjx@BIW(odUvc!mQwv!r#xA#xx>ScB>892;|_!6Rh2-`85J< zMHQcZAtUL;pF~<%Jn<2FVBXT7jgr9~@ngc;_;HXbtw6E@l7uz5Lb&ruI5_>T5r@#2RO!De1>;|(fN{Zw zh2mS%+^H&y$r^*ny+*`Qg%e3ZuLRJm%`h*thib&}rytW2nqqzU1p59S`S`OH=9KKu zhSo0>)km5^!>5F}T_+wkqb57WyH}2N_$f^5E=-_SB$a;dKsEXSGlLf`tcd2MN2A4N zEuyIS12a%!7&WWmC*&o8@fbQZU6);>bczZWg^sPtxFLFcKm?q4o}H8tcA^fVZa=<; zd5ix}9=xkx?Tu>0MI1?6dvnP2`gtf4YLwxMOSmESfPY`a4Da2zg}$>6=xe}uq-y?F z9i*RmOnRgtC-6wI|4u;`+C4L#EHX1d?Hr?Ml`8S%ib22j8U)v_z6PPVvA(Ge(7e@) z?o0Mz$pUtSW!csHw{w?!l$&qz|yUE?7{k^dJuz|z2d|IvLa_B|}L z#R}%)+cKsYiCY7YTAsxRz`&2dc;Km0fRbIfbs-ppJ%u0_=R8U#si>)sayvQ6Xr;Z8 zy5WXQ8MBGj@P@P$S6t&JnhB35AmymI!?kKQ#Z=>;zn~giF)h`=9GNW7-=bV_RFA(#14`UE(t;tj*eSpJcY;(z~QB{XEvXVJ|?vHX~n1MX8_ zzZSgERx(UHtZgM_!u!=o{&oFf1%;ewYKi0Ak$h5jC|XgXIkKr~ztY54p3E_wp$P*0 zLdnfS(>lB9$&wAwrtC>`V-@EM2?8?^q=2Odg*J~Yf-tx zNB+bay%-cMcKdZ-fNASbYFEyVvt+4lJCt9Z=b*n+8#jl8eb1&(NOY$0gc|HU=A~`) z3auk&)J~18@44~cjzB^Ya)or}^?zB@TBYjYNNuPmbo{{c8LpRl^n`O;;&8$ja>So{ zKK;oVtj~v}S9?^irI+9tq~hl8tL%3KoevBsl@<>D!yQo4h;Lm8$%=!y5HiWV9ZRMI z(`P^8W>B;Wy;A;YO6QK?)kyAT`2d*|C-6ZHp39K{ujy6N7FXojc2j3%pE@Z@>=*cw58^Pzo z!<4Rxb@rTR;UT!fajuw;zDQ7uFNbzx4mU~5JD@Qu?A^z&X>goS8sxgZw8algFfj)6PQ!WX z3SO~JD}>jf*K8ABu@HwzQ}%>MlSoJ#LT{6}_9SnU#QKxYt6VluIJ&mP^D42@eO^Vm zyW+9BIPScvm&it7ReTD|B=@d}O$1Y?V1-ZdX=cu=%%Z_^Ql8`@*HorbSry_ zU05cGF+%W3t;DjIcnr&=AVHv0Ot79;Ws80+8SyREc~zYFJ=R4r#uj`?XWIVfAr)V? z;V+7W9ZyGKMjL2h_kKNXZ++Y?ffnQ_mil@SSflQ5fAlc$YV6v_b$Wg|zVS;RcNksI zJk}{J>vj^1wYOB>CK+GgS%iKiG_PO7GfzDVPe36p2yfe!BwfjRml%B!(8zX<_C$zH10^}T^JXRfZ8<; zl#Z{=1kKoSfq55R}s%_#Q%`+O#Mj*6Jj6TH3*(1S7B5 z?-W1(vzVaRyWg1v?E<`c*A?Mq656F&&@uk{df(YCe-1}4HN{LCs$t4QW5n91^3W3T z5|&{wiL!hD+)u`KlKV-aF$8+UT zhcFjpEPt;8gaGRBg4|4gAwyw4bYO}7V_IaC9J4w<`ol+s5!*<4%sKJhKYk@;K7Rzg z;CydG!y3#^GB@O>d6bzmL$7|q-$T9xwI-_IJ&^ZC6x=}mKFW7H@s+6ddM>t z52Hv?h}@yO$x?az5l5imtu*P4C5a?wH)iObeks|o@ca^`FPZ3*Oni1Mr0DRT5bEa% zo+@!D;y+OAA@KC6sV>RLk#6KKQk+fHiCdFuL?^a4I1mp~l}%5KOHd%}-~91dLiYxm zkUfd)GbP8tAK~g$-_+{huMN!1aJfBKSxMVL{)d$qJ~s!42g@Gu$OX44^3b%K*gfol z$U{KH=(>KtHUtN*2MO|Bctk`0Sop{;?|+yXcU*zQCpmd40cAe`(t!VN{0A6L(gui4o*K=>UXjrM-2taY!$5^_`fr*Zb_5S^%AY5{X)$f@Jj4XC8fFp`3gHhL z55OYL%G5F7gT{HdolNVm+#k?IBYCE8Lmx-cKY?ixvQXW4OQ~F7Rv&9X2M07Tc9Ev{4K$ zvI*^q7+Qvj!OuPmf)wY(hTg4#MQl5A=W^|^|M(!>vFX=z=2o^B9`(i~4RSJ&)zj49 z)0%sn1i{` zAEH?}Y?z(Ms`$wMPUa*G=ciVDU9VYrBe-u^pr5{`!)}0V*v+M+MPlT(ldU-ge zo45G7b9&VfU%PROSb3+KfxFL=d$n#*N$7m6ATY=Q1U_`NP}AwK8Ax<;>_=Eo;2haA0{e=HX9yQfK+ ztxkimW}y^dtB!uosl{02=bTDFLx!eR1MPl^Y9L*D8D$GfFRS3iu+DQE(egz+Z^uSo z_x?-bcub-*M;;if9A?*e%+hluvqjqX<>N+bMGe>(+J+0$UnaE zIootOf&AmAgST)VK#q=C6@sHtwY#6q3)QC}R=Id4EjRQ(&@gBGF1F z(Ml$@MaJ1gD>HJ~PCh&x68U@)p2 zxNMJkR^EnVWG-hPvwEbGss_{cZM6I>4wSf?dtsp#d2-Fdz1IN3ZoCGrTaSLC!w4TO z=UMUFN1JFF9c6@B8oCv^ozd!CqbNEC)YP zh1!xeXm?xyoA{LS0*Y9z(gv*(_W@-aAuol}DqQKP83KzqHXO6hkQ#*;KIr6VZh1J; z87+^XD;V&3Fuw8r`Q%Z`=odGz#p? z%5xZg%j=b1j9)Qk=Q2;OHW^{k#W*!6L02j=#&|oE6VJ7)-aMb;r1OWpjnF64Y!^f+ z3#YxLi(k#?X5dt3dYe(AYe?zY){#d~;;PU=kYDmP-T!U!#7hX7)RhhaW8o#-qU>Z2 zjTo~~Ow7`Tc;A6hCs(Wc}Jlwv>d}ags_}dwCs@k=+jBn3t7}2id+SwEa7L?iAbrL2h6Gp3< zWK3J1p>a_gmii(Ddvkh<$-m`5Yi z^Im~@R;F`5f;Am1o;dlw&mj*|lmj2mVDIVeD zju3G@6=9+@w{5705F&gZw2^jFc8YYx6Rng<*GiRO_tZ68rDGf_Lin|}iZ1EFm$MXy zgWKtiD&g0C8hYJ#*kVA|u#-}EjMleGN*<6}>ALlDll3#1(ODsrcFVSE>vAy1eYwu{ zVF`0g3fAm@)Wh_yW72Hyh{xI5l8Lhv6K8BQAv1EDNh@URxvfiN+YM(-K|*74Y^$#Q zh~L`I7nNFy!b+KLWR;+!O5vul@QBAOziZ5+Q6TxeG(>W3g{La-*UiLG%wcWU|0p#p z77euKotD6e3)o;dA4V%>bfZlFGsZ{H1k9RuN_2U%Mpx#ckGI|ULI6JAMgMrxl@s>t zDaXywtSlk)*;6vH(L7-aC3b`$d=9~QWv5(~#@VOr3S%7%>oj1`&YX5t>gSzuDD)^W zge+ZRi!H-NXi!wT0+ppvo$Bus5RLV^H^(i=r zWG6}WjBrAv<-kOpP^4+-+PfQF{)V(YI?rZ}vDCYVFVE8U(r62F-)524&*m?5X$_-Y zS~h<3+wAcEI0|}8WA&>`!0LxjG#~{}h;}~4)#ux_(g-a%R|-cXm==v!FtunRh<7Wa z+s)rAxN^Zs|_S~Wyq-zk4(i~N_rG*Td6*PEO zcEZ&j;a?f**(w*?Beu#TF|&M|yns3Q4v7!zCUhP($=G)(#R9qF;5!Na5evb7irTU| z4%JMd^mH-XZv7DQrm^ipuY62BW&%K0V8$w{nv4}%+-b>2fz+po`r3XENN*f zP>=~$w%r*DWv4J+=Lm(Sd`vjTCVMErGeObKW-U7Zxtc_UDw3w=Y;~E*lC8GW#r+k1 z+bw4D&YLj`GM}_f*@7%D7@BDp6pB#ASL@j+kq0ME`3@Vb$bIbv&-_GATGr|Xx%}(n2d1F2CjQ5?5t} zf3ian(W(dyANa1zA2#q^KIXy8_O8%@?@F!OW}VOO#Xr?1)Vqm`gF3ucP>%6?-75o#0v~< zn8LhsPwn=Sm}B-(9;x(w`5WD#EL(stO(kYwnWP>7dnh%{q|N^iqGZJo<$+!h+f8X33f2W!ApPijOGN8!f>o#qbIh&6YMRnMbo^B0+9m z5*21zxqvygL=zTrRLRrUDPL&)2>fa9t@4paeXjYN*G-!~Yiea(?ZRz3SXz6v29v;v z)7x|dP;q+cH*xsyZ~D}^p)?E_tvpC<|GO+kck!A`!73ug=1;oJ z>V2CavOQ`O=yDQ+6bg!!p!Fm4$Pcl(8n)e?N;sCfQVCAf0a-vWb1}uISv40^B1uw` zLvx!7SR%x;7*g2wOeYSnR|IzniVp_afg$g{P_9D~qAT#YZ3OLVReiMMKsc97)A?<)FLwuJtP-DLvu@({k3^OnDXG4V6OcyIt$z5|FDKA zwlJRBu276jB9x;Yv$u(R$|y#@+x-XBet!|S{85SRZZIpHATLSr)c&YOTdEk_#8qaq zsSd0+F$oUx%=sRSGWWx~Na#-1{_-*Id5goXN_O!Voe&ba+U%*lQzwCS7#3|$0&_;? zWdd7{g`IFXOaoiP)>7r3vm9H-lfA>{rmEvY7 z4xvrTUp_P*nS{BVM|6y6!Hx3pD-?h{e-a})*%G9 zQuhgCR0f-vPZ-Bx6vpJWIh$nQoDV_=mgj&)pPD zORkP}*c3X}R!Iz8k5G9mkkn}fT+<-HOtU#<2RY^f=BC9W`egfZVnt}Ec10+vz6?PO zQW9K#FVS)a-W$s$O{4F9+(E>sQftP=bs=4#2{)laBz6Mlk`PG(2N#Ix=g_{%QvA^Z z)V&sL)SWApNDF28ZP+~VvMWr{$Ahh*=Qg?+TBhZUv`o0uLFk2F4-v(p&v#OaPs_i0 zXDPv_#p(%`9VnDV3r?&G;B?ZW&sc%WY_L!T*92J)VC0|7y{#JB3Z|Sj+xVMnwjssR zH8bRsV0p{pTEC4MZ3>m>DHEMZQQt2|v6^OZbt2&bUwafxwxgJ`N;E5Ful&VSyp)cV zhleFCAXK#=L(o2SiO+`^$#Ae#p~-s|g{$+G^4NDJ6<|U;QkGDOKZ@DLs77{EVg)#` zMRS2b&YufJkY^F|j0FOPL6}kh@h~0aJ=Y%UB-r~?==|)U-HdK`maurVTyDR^9jjql zq#DTRjqui<_hnD5arBpM0-{18UF$Lo=yJQ$ z6vA7Wm^$t@KB%`m3cYaKqe!Daz*w(bkKBtV8C~bS=VW?(lBBpC6If^OlAL7J(Q2V8 zTCFxQPBq>SZs$jgYfLjL+H2Wp`u@1P$!1lZTjNs zjQ^qKf7hl%R{rY>X_FI82+B`$&DEVT*#BW7%E`Of4IwWe#VsxROo&@Lbx4Pv8q&dx z*63tII&?P%b?`}pI&5ch26c$5$U8|9G}n<$H~F{@?8mz1V;@*;@};65M> z)h-i$OwQ@valuVI|AUy*9r}??JPbWQQ0%&}R0Fg60o?a66<`w-;a;%skj_h8lyk<{ zJu)e`u$k!~Xo%Rx!~5(QL3AEe$EGEKqx4xvOW009^&t6R23~sR;q(EC?_K9#<2 z{)0q-;o<)z&A@-?P@H!3BY;E6G3~i8B9GeGx@^zsfbK%w7%2~>ML>jr*QT{tbQoYzKqrnGXwqb zVfG-k%bF^a?{zUTq6~jNMnw4;(y5+9Wapcu^#p}8`D}tp&o?XI#fY<8%2=o@p=dB< z;$StO$dYgb6YB;HEDjem!28Ib1yMm&<78?Iy{DmW2PqvF173H zf>6nUkJw8I*}BWT(ljs<%wM8ucKK%Jgv%ZH=L`a^y;TibIQzY+YqB1=0{2<%UniNj zj!B4{zuQm3&EJzfME5~Gk+020>Y9}gSSDU8kv40Eyp<0)v}7o2PPcAY&}S)*Av&~b zF)6P@YZT7>q(ait0_F>?;j%)y06SpvfE)*i1~p-wxeXa~Hm|^+M^7}#sLA9~>Y&lF zx@HuPWKC*U`sBYK)5qPe^xtqkEIX?I&%;W; z7QlVC_N0wTj*JpptNZ;UlViHc=<5d*9s+08c>IC*<$I5DA{Y7ouQC;Fz}zPQ6M%Yp zp2L{*|ChFnY*P%sa#IX*S4Il^?#hsR7YqFKqKJ)9g;fhSGTUO7qKr)fb4AwEQxuf0 zVVWirj&CAA=xuZ~;D_736A7BPUvcfRH70?4fUsk3wN8xGhC3c6z zom3T5h2=n#F0Z@6Bkm&_JSySa29G-1LEc*;Dsim3M5F{oDMg7ykPpOy;#N$&%&(n# z1>rnpkVy-Tv&ZV(6FA2h{4m9A6h4g`LyMOl4?Js55Vuj{xgKK8f(JjOthqNoelDT3WpKMk*AEqU>uUy$l8hJ{cP3{6VB8E@^k!RwEP5}E z46^7gv1&U*B%>gQ#LYhhjU6nY8E1WIcx{Pk&PZTTwniX(qX{~!H;`(%naL@!Nw?aW z2tuaM4=1>x;e_O{nF%8jbBoxQ%D)C7-%NxJ!g^Ucs7=KGL)DwdMOF3jquY_uS9&ehW7o3e|c>xKEVsmZ%3r9QlAK zvZ(NoB#&zGnA!{9L!2f&-JvjZNd@>J;f53Z$%XT{5Ud#J11K#-~L}s zC;^T?K9DM&Y1ce6(m3JjaO0?jzd3zFKZcR4&#%HxY9x;X$Nq7msSV!!PchZ5dAOfqPm6W5|;Qh59~HUZFlu$}QAKMR@Ui1XE#0iBkxoAyQ5d z&6D~C(I}~J5Y-5COFfU&SpjwLfI2gv9`@Kj>hyrRS3sQ>P`k#J2)p@kDRnnLP)gp- zM@J;}A^HL;D8|3U2Ogw^HmbHjnDuRx|G8Ue!*kR$)zq$>OnKOSluB`<^>dZ0UA<7{ zX`1@Eimp(ZhwVQlyhjZHYzo5{4yv3WJnj)vxll7Qc`+m zKw)`9wb$lNsI8eDpFyV4pqY#~a}1*?pEYIT&-aXJ8OESlp`>{%!$aflwNE?t_!#l{ z*d1C}Zgz8KDfSiQuf~lbmXh_vQW>Ii93Qis1XT(6_bnw#gH0*CG$CD>BZf=%IpV+w z^FrfT)A3Tq5EWcErK-Wy9(2JNozQNqBz5BPQd7H#$XHzgD||SyNSLe$mmHH71H&SE zD9AiE_^}PtIC}%A5QgdbY|6eiNm#ECBSNN-Wbyc8d-QU9=pMaZ_^Yf`*h<5t=&g7N z+*>IP9=DYy)zw$c=A@|pLbTlOg3=776uFh^g~$qTZnK)WOh=&p9qLI4B8U1I zaYt!hL|{5_j!A5^E1NiA^jNVZXA*H`C&X;y5Na@GeWMK@6op?8fI1e^pn}01eE&l!^?q4LN zJc@A~ysIGPhkK*fk}p5v4wIlsm#dpqU-86R1b1}sD{kA@@uDOKIhjt@yS;VJKYYy?wOY;?E6U-#-hz9bK=F|K- zCaC-f3EA)~F?~OSPX4|g>&yZr`%bGp#1wF2{0EvKBkfB!GbY;e*<=$9dUn~CpzWK*nkT=tSj*ZuUPG z67srQVfrmqIpsR0GVN}GhPLERE|N170z4Ln} zF}*vAo$`Jj)M+iG=bue2B<`;#p`MD)Z$jG(JNi2W;-2PB5_0blYkKE7<&<~fu4+&B zknrwwRUAuS;!T~Oa+BY2L7Uk^vRL{9_QSHbsHyXP#)!q%8@u2a;((M>u^-mFG-=IS z=ZC==&e^hXJlcKG>Jxa=zrW+ByhX5|zBn8q7rQaxG)x{G&O&JWVK=6)ARGoo9)w^ri$%@ z@tpP@z&O|K!A-r7ZbK6IEY>^9%e&eBRz<3*eK;Vbw;JNu0anJeZZp4Y-DLEFuc3W- zGzlMcM-#^m9SVuh^`=Q

JG|hBwm5d=d8KI? zx?{18#Gw`yG9jZ28I$i-g>l)d3R_VNi5LrAX+W1mr}$Rm$BHva#JEBx;&H6N;#_(P z7xTYZF$UMY{7GELN!ta}k|ebei)}2fdzGsN08ATorX|-5Q?E(K}&467a^!C?olRQ!dgv8K3#S6mM@J5wv#&N0Og#d~QNLQ;pO@BG$k3 z{L=4P!*3n!%<4~>N0^jy$0Nr^Su?EA11^C?;d$apB+nz7D^pC&PHUlwr1-k%?Q#=y zf}0fW1luplu?eL3+Ir~X-GmJ7l^Rcq6W{7}Rm_Dd4yw#)kK+T|+C8m`CFm!N? zo0P|p;$Ou6g?G=kNu)Re$l2fbC%4N|GICgQo6KG&MK0Z^67|uU#*S+rvL)}|V%8u* zWwnO!9V0}~=r;00MaTUb=9dB|KBY1cIvov*@~a09N9o3m#N(nPx> z`#;5J3f3ZQ7jObX*1I}(TAAlSotr`zAbz0IbB&0bS`YunViLW=`r%ym=vt3Mb)L#k zi>GL4!k;Xh4M5-bw)HpQjzrH$#Q{doFe>Wiu<5fCwrZni2m{85WJPbYB6@~d(_@a+ z&|?mhK1X5wXP1DGC%vdxE%FkA@XL=7KEKI z$)4@$*|>$|Y(@sqyaVtdeV$qL5U}3x4v=rpVrz7Ko{2PHuP1Q_ZmKAnI~bP9{ue;L z8{iqpI;U(P^uZ2%)vHYJ<$ogCj&-U2UvacmWwH%ph2r}rxga5n5Rt+f6(SR=zN2^*PtotW4JN7WZiSt7;eUWxLii728`fiIAO}XAW1Q0otbNj}MvlulfLqbM98D`%7-8viH5Gi}26^COh4 z3htN&wIGUu8AI(eqQ*oW5jH$diTI_yzpK^~zXkdcOYpRKS;Kv;r zmYdHQwrCK@ZZqGm#FhH76`@Vl#Bu?buTaAY^?Y}NyhN<$|B_dk>-nW}xTT(#>h8nM zG8(lF@&m|a@}{7AzDRxmSs<5Nq49WQ>Uj^1uIF8QJu!Sjxo3~yx#Y(ET6I=1dSPB% zKV<}vL_D1?Bo5cie$L@^b@0r5-qv|mFgKnRq>E<-op6=~KUX~;CSSMJ^CZ-8R?yZO zW~lJ%QFdDaR!7O(G*Xj9hw(x!W0XI#<4#M4vj_%iWTZ7&e3o1qoP`5E0CbaesBMrl zVE|tye+p@ia9$J)m5h*eP9>!B3@$Am8BuNtb@RGF2*#gbd`b32&`etxc?UA5S-DIO zNJmgWUc5X1I^?&gduY#BcuyyCc_M3&+&riUhSV^vr!#gB&Mimla-!n8uF1dU=!|aV zcjR=v1-A8?Xi$OQbUCBLv^+*+JZ(il6{|rx7Ej&Pz`z{|T{(0p#mF~81KpfZwLyh) zl#>+yy#8Wnx7LgB7CnaPx4amif&B9pCAS?)lun~UX|Cw_z;lt=#Zd<<q$V%S) z!%AK*Q=PO%b6Mx)gV`soDmt!Jv63$u3S5=oqShYUBgVCAuZ2kOtmMO($X3O*5XZI< zBPoD4+pvQdq@OQa?dGpKNWy`om#xx)jg*sK+JQ%OrUPq>u46>(yPDWKztxaFKg>nMNE|Ei;)P|SIl&RS zMlNd^e}_{#LTye*sOxm(9wgsHo&i6q>kMx`9Tw{GIUBSj2UIwPTDimO2-OO21ZT>9 zBi{&?>QeuLa~id$Ly!D#G_|CJSnlQXLWZ$BR*s6v01xurKjD2xZG+6mW*FU)BE!fD zU0jU34o$@AXBf3JwxiGK*v_{BxD~GI;;^|(AiPP6L*GD;X|lRUhHdo?{wS#Oxh7U z3Go0?To+QHLJVT^S(4E6Vm>47&0)E`HatXyK;ep+PtALaov!leRwJ!8TAi48hE4;3 z&~W*Ml=(oOxongSmyJ5G9ec_!tgH5@!D44Mr|w`Q%8mgQb&=d((Q}cK>~NBvi~c7! z65h%WQDhH*%K_gWyQrqF5Kl3Lo<0Y|-A16P^DC4yW4rLiHG>7(; zeVNUnDe`H^NVpv`<>9@NtR-)Pj8rwU=DO7yn-{?oMu3;=`_$t~b}VLf^ASy^$*m8@&dbkJTK7m z3&?cYIUvyUPsloX!N5Sz&VhmYfI)$tYX${+^7(dUnvbG`V47kwQ-t|8mz{6XZ5_og6Oihr#$Ln9`ZDaa=bLGmDNgRTpyk7 z#bcqm=WW7{gmBq6+!&)wSfkO*y!5BaK!$c(c}lcaQ^j3vR3z3RB~>*l8kW7ij)nm=z~r z{vv&o6Bi@Ys> zh3|P_-mXo>C&{?9c3M4$)YgUcZa5&d-EAjQ|Aqr95EaiqAT%6M2#jAV{rVSW*xCaH zNWsagJ-{TbS>ykN5bs3e_yPZlIbQS`Q7QcLtDM5Gfc0>#N)ZUQ6x$zH`ME$_p#VuP z+7ou{G?!`op+1e@n5*%#VLN$^UrN#Vw~|rc9n1mTVlH?w9y@CA+oZS8z$s_&ixacF zV*5mcpM>Q=o#8w}lYTbko%pGKSb*ckXLJ!u{(wIfH~w%4Q#U+qOq%kuG0E|hcUhI8 zc=gi~3{|XZh~J#?7~u>3ipPk|<%JQYaxMZS7XCaKz49ta;c6}CD?7n19Umaz^_3Xf z865Ra24A_WrkSvUMlWD~VT96Sx+Lh=Pp;Yt+h}|F>x_#iUT191amS(=Zrm~XXwEng zUKB8ODL9j(-p5}Hk-nXH%wYg2#a6%a+atvPS0;F!PSJwZT200&5UN$TTq(do3`<5N z?rPn~RCMlr0v8Wv#`cPjX@qGnnQ7d6YMM0ZV|rb}dP6|Oiu#XfH0O&sA;3rus4)}* z*sd#21R0yA5RYN}JYp%HN3xBY!g)k#Y~YD$@jMb%GLN9wDni*0PVhIlgw^5=E+Pw? z-yv2KnEj2S5*AfJ#M&%XM8cv9h?r$hg>gQ_NQ5b=4cT4F8yhY23&7RYVC5P?d~Is4 z_bB3jlii4np{8%f%q{!oUpR%z_+tgMeX_Ul0t(MvGYt*ds8>CDW zzJh*Lf4|n__?Xub(7?GI41||{`U;6sXXmDPXTD|!>OPyu8p=Ifw84_0vL~zt=sp;YeR`rPI_tnR%OPe%c@(>8o0#utcdAnd?-G z_)7}})gtf#^(Ko9+C>)r%-tI2#t3lnsl>37zvu z-^~l1E1jDcMz>F1`yIfEn8ORfivFGET&-z##~kDAbWMN2!GwTcQ~6tsbI#Lv;9}=k ztIy30*M2@TL?2V{tQ!M!$v#}7n(@HwJ~_=abI?@d%&({0rrBqQn0FKB%=chP{}~;o z!z$S50gLhn%fO=iwMgPZn+~zGx!zd!pV_9mn7;~duw>uOziSflX`cEQdF7hNnXpQ9 zHTG=jE0Z9-sCDIX7Y&!s2~+M{*}>|#&5FEh#?7DU$>Ba`^r$!Jv$Yg$(qyom<_8j8#Z>H&SYyzq)%B3l#)+G6pl;qL9pNT z<2E8U6_J+Tnc35sfqtU^vC<@Z`>C4$BClr1o%HHJ8B_XqGo6yK#H3=VS?K!HCJF0I z3iIZwG4fi2|G$Ftk?}9emX0C!fps)r$)sohr{c6ZGS{|}kt{2j9&#zWlCju~D;aj< z_j0GOl2OVRG23NTU2Q@u!`O7Kj7{6hDEFKvtxV(%_2OGOfS9}io5+q^X0*t1Qz8y* zmdUkEG1o*6=!Cy@&V&WrT$5?rrMvt+l4c&!J?s2(pP!IB^Q2ivbdBgS`&p`vH{`!) zi1H=Y8A9t*jUib^LXt>Ql3^J9MDM(74vX6bH|riWf?@wpOY_GQlv6o+OTibBht1Cmdxf00=Nbx z7PYIJ`Q-p5>HNc-xC*2KLEDNn}=&J8j6*9uM2VjUZ9+K{@eZo|tsttC3PyL&C^qrlZ1 zpQEtl_f|-SK7~{ES?(xeB;y@LiYfo4kM|Dqn*2yaV_vUKxx4m%fa;UR1X0KS&CIH_ z{qNsLJ>>2OruL+Un-8)dEBI6fY?+U!ce!)V7MPXHI#%YKBB_Y>(r7MV`YRV z?jJV#Cp_culbaEamZ48DDJFl!Uz-z6e)`-#V+QitBnv5L7$p08hbO;=1-Iv8Q?Tz(^y>^#*hKS)S?uW-bMTAxNvt53@m(n7x9>cT? zhZaGSO@4sNbEQ<+c)udfuWKQFO#YC=`;bd(3e6+To_)I4so^j(0k+&99Pd}7W;;ws zg#9pbFYi~y`}xBNy+s6|Z^%|6?6?m?j_y&>e%7Nke4-K_e@+Y+H{H)|UmC31^sHHR zAp(*1f?adwS;i@e8YdBT?>?)1^S-lbYPvM3Fc?XJCbcnGRy^t0|LV-vUHjV=M8pS6 za4MXphdyz(W3E&ME4N=sF5e4E*}s+>6d#=aXKT{_qwx1^sKgpIM)s2!+57ySL4vb? zU7fW5Am#|oFys4m2)j3$;s+#S&7hFh#Qpm(<1c?;H_6k(PYdPX@8Xm8AAoyh%zAVe zn04odHW9G}zLu6HAld3of`*@en)~cQ$XNIocH>drSc`sesIiye#dy5;e&U(<uc0)Bjf>W;dAy!d!PlHrhqbqICWx*1T| zGbF38F!Z--K#_F+E`0N0;I8~+>^y{t&+i?=q&Nyn^<90G$`3r9+CLC%t&NU!YE#Z2 zDoVqzxEs22#a-pmZc-M;9ql%+I@%rTMXTi-pf|O5*Turx*rsjoCLw4c`bzhDcTos* z-(>+>4~-Z}e7(DlPCP9&wT5XEPU}9oL&lw!o@x!_Y|FlnbumVciSE#M;hoaOu-f

  • NX$8Rpqu~t=1C!o>7kgX Jr^csff5N9|fBRIP1`|pS zBT8q##~1RI8_2V2Ql;gKwPDVTh^q**Yt`=eCnOC6| zIH3O!&mxv*=n(!s)059vu|>{?!YX!Ghaa!vV7nduDi)BKGnJxzDQXnd$Q>6AV#!5= zL|ru4El2=Y3Y-Je5f!pjaytW{(sstvkTeS90{zw-Epjlrh1G?}qd`u_WscBgNZeHH zHKHmxqHbZ87Y(knjuw`^Xwc?xGn#>rxGHA3k=H5KvdfK9-{nS&ca{W!O0$YzZlq>} zFch=xtOCt7bSu1o0vle9-5m(E;)YNwR$nwk28jYYP3TZA8e}LWfM!3QRT$~32Hbf( zX>8|X4L#2}JG6%sZ+5BhwgI-gL4`IfuW=nxd@j$8#fj#VfAm=T#f8do?ofFc%D0f~ z>3QJny5Mcx<@l7K74qF3=Le0H9Z5$_O!M;Jdn_5A-3qNGP#oz>O!$=MJ2|_htCOLOmIaO^Cq<%59VjP1Iw})=+V=%n4OX{3z(m`knQ=!)iwF9 z);RI5b|BZ?(Uipq26#v0!DH9?x}f!DXAYR4N@pw`#k5#bOoPZfN^4h6Qd_zpSXE3% z`inuqqd;L#F%6pCGM+D^uabL|of`f%Rbbe=){r@eA2UJcwPoEkxz`#N%ym*#$+Wa~ z?*yYfAxnCVv98^$4KMT2&dFs*DA|FWWN~DF>8472xNG*8*$u_yT5q>wAgY`l0EWcC zfZZDq9!6lS-&+0ye`AW;()-2~Z%uaj1p=JktwQxCB1|&W5pK0E2woEho5HCBALh0R5J(9USBN$EE`;zq*HPCt^R?@m& zwov()N!8xh*=4Dip4|bxT;E)0C{+M67jlwk;oJMFhx?6)<45u2^p|^u(6C?(xQ?Ry zod!$=7l4MP145Htr0%JoS=pCVC#QT9)UJ%@3K@a+F=QIWf3(jeZ|q;WU&$WbQ9%I} z0IVRJ8KuOpWGF*5%}t}pHwzlWp*Fli-d@yb*h`IRy{`$ix3>_Z`Lh;iA6f|WJGBnZ+OTJKHtf3Hy0QqH*#2h2c3dYCjH z2M3(ChH6CYLsP1FtIig*AIV#uF8pcacLIpMc&U)bUpkF zviOkfi;(OFimv5T|sUa_{&n5S6@6<$*8*`=GIW`|LQm(IV8!5?Sq%3mBKqIA;Ke#=Uz`Alf zM@1$PY0ZecMz6YfT5r-A!f0z+gTH(8?e&Vtj%1bONLHz&WyvZt$H|7M1Az z=++U6ANlxnxqHya#~Hc$)Er9TH7l`2 z-?*#vagIrPT=o5M%c$>%%WZK#3=bQ7I9gafeQ1q_8}_*3r{QEQ(T{qZx;EU?7H1^^ zQ|B;R1Kkkx-Ld^93N?QXpVH>Gww=d~#IC z)mQb(-^rcBlq01aFQsXQW*3-+i-zf$O0c*z-L6qm-_{UcP5$!fHujSmLGekAN%c}I zdATNkh0mr_67ow;+=>)sNJU~OEw^eP4)$@+K(9d_uP&^8gj#6(5IcI$r9S6>W_KFOoPZKc<4s ztckh|2o%?;fBCp|Mr_RoVfP3ZqvSXm5GZjQ+AH3JlJ+)yFJ3_4%av7ZlfM{PekLg( z2M0<4Z8sGhfb!Eo_cHnKod-6-=t#kDGP@N1@k_*<@k_${#@SNpvq()D@4gT0z|4|k z>FK0;3)bZ+TSB`Apa*X9`~C;#D-JwBa!-Iv<^*q?;PHo&lfB}Ert^ULx}qL(!*V4~ zkc07Yf_7-o4ZA5eU%9G(=8^s7V}V6heJ)O*B*!f!BkFTk=Y;?PvrQQAj9pbP524s@ ze>8N%K=kPkAo`Dqp(3%Scx$(wS7o{>ZZcmDY8c43X&2v=~7AG{>f>@S>=NG zav;U^?6)PL`pNtAEDvYVeWyvzY1r=3=!idtV zdU^=36Y~)7feSZ=&FJw{-3^?bG_3;za*xdz3hrH`e5MtHx}G#uq0MGfbWq?Ih9+2H9t6iqKkS5)pT_iJ2%(A_X9gomP*S#d-oyaoQrM zaHoh;?6(I#xRg0#6f9Ar(5TiRBOz$MdJ{m3?DeD&Xp5G5VnLSQXx53hkdNGG=IRM- z3xCqtde(XC;aMF!iO6ddXLY=H1X3V8SFOQxc!4r2&+4QrXLZSuhO;_ym6gw+vRXm` zFj;4HT%JOERyRHbllA1o5e6QY%4-etc_UCmBTbVHQY8QcD+gi&R?Ail!6@Q-xc9## z;eB$3$gPTVg!hhC>CO@a@U`OWVkzE8nY}CR`P?KyVWX@W9zQMaTrN5zAL5#8Aog{-vrj_-LB4W<$_j~}B(U3gc%Ql=81oGLc zxDV{?LJt+bFoQByWl$$(Vho*)H`riwf3}q75yY}&KRnmDe{RSySf$1cL!7*HfL5=; z8BaX|gH4@dXY0i=n_=c}0@&YnqEi$Rp?=>)sr2RqgsqIYH36(L07;VQg+DN!z=-Y% z&cL8ICc4_(v)WW@13$oENM1T%fI(kq5ET6kHu~~f+SDk74h7p-$s#Ic(1&KlW83sr^;h5exVPc--vaw_Cpd5Wz2?>*xH4J<+MSyp^7Ux=)VWQwFOL?hkP$Wi z9xWO}179DVfjy{?jeg;MJ(oW|dXPX=%?&>8AXJj%zhlB1G3>c!XAnzV`MSBZ&V2`? z-tS`MfTty?=xIq8Q)qKK9l0ul^T+;39DP&<_v_gzgM2kZWzf2u>1WS`r}VOW{4&P1 zpcmtsH`oj1KyoiT0{>M8PcR8dK9amE7|!Zev+WoK<6s{4Bhiwx6_(p6c4vb_XBg`S zZu>2m3*;S=PpuR!$!aoRl-4!BZ}!H~YKw>*Sx-3~)&~-y%JG`**o;gfdv zvrrFG`FLzOwnqJkA!?P&wTegl0Kdo$m{D=76=R1x%v-`_JKS3hbKQn2!UO*oOC**( zV~p(he4XU@e4WnYP)&F9`;SMAJ?cF`ZLSMe`d6C!`U&x3K35_?YR3AR30H6~fFxW+K#s>b`{ z!~IT9#WDMx(kJ_!v83jG`D=*kF_FZ}GNKls2w&qDX`>cQkw|;e`5VQg7;I>M$fUgdBo5P`=}c@-h(!b;5M zD@zORkQYB-J>bM$@yo0Fr-<;38AsUTzqoneGKu3torO*$Z0Tf+X$WD*PqH9Thx5D` zo^K{>yv`kVBZqKTniY4o^i?ocXq_jMkhCV6GVEP$pLKw)d#XFjVh^~^Sn~O9jcXs^ zNGwMGZf!UL)JutE^8SGQKv5v4si%wU#w0?>-LIN^f?W4&R2~%3n@nMb)h5rssQVW4U3<9T zovD%5?h_I1LQm2#L)T)exVkXhdIVYnBN{n1PrOb z3Ja4iJ*%UrBU&1`kR1qoegP9`pJP~YXE4VQQ`H91JWQJYV_@dDKnv=d6#+SX= zBF!v&G1jmpmUq9HohmGyoD%B@3>rvjCxrticL#zS1Eo8N9;#see3(*YAlz4Bnp^Wr z4llMT?#>rgcjtp6T`_S!W|DWdVJ5kPKGWPfOLf`BE>^q6%ZtK7U}jd^`*VHVyGKz0 z@lu^LJJjCD{AYK@OTx$ZG5~BlU+rAl2T5n|YnSlFV)Ce7!2)%+I9 zYQA&pAaA5c>4GlP=@j)~{a%33mK`_rQ}GjAO1^PF5W~70tobGTD@+xOC}(NSjZCxm zKkSW6ww5I=L`2!UxaX)BOJrrYLppcV8!PILdgT_#3fMA6mu;5QkhhReDejh(m2G?9_%}Qmudd)Gyy)z4o0kIaO=QO4V{I?TBf(;cSaG6Q=AahaB)l z5QAOOvS-&P%VJHP^W5B=86fw3%G{}Zb3N?4`+r3%YpJ}pYPe7#1O^NB+20T7WNobe zijA2Ru)q079vN&vmAQq<)XIaRZskFXw(@-};i@aswj7PkyZ2v!%(e9;*IcH5Zf&6N-4vL6 zF}ebHaD-wTJ`Z^h@3A6sE}i0@Rv7}(etwFg>g?`ZozQ-4Kk+H|V~<#U8_)EZjUL&_ z;;Fy+nLOllb(B;fQk0^+;gdHnfY&SLl|_YsrC zQ@~$&lcJ;_{sFJdPeX5dG?eVPLR)=WcDj-i@;KsXE8@s#Lmu9H;$i-s!^Ex06UY*_ zOlVhYa<&}Sgq6i9m@*O_b%m3x0;!dXGZhqHqwwbno%1F$%g`$T@RE1)<@x6~$7~l8BOA9I#|FFNe_8b`tkH^l1sL=Cu78}Uo6uESu zno}_LkDMHt3IDTB0D8@NKBDGF#?{5~3~wzpvqhYRM0|$q1l~ncCeF(?GfNRmHiV}r zGH~7ckG{oqiwVp0V*99snncz~REaD(IaI2|hqU7rh8@m}P=dX}kZ_75viu$rQZT76&DTWw=~r)}filfVmBB+x2&J=1)L~?l<%~Q zXmjXrjimO_>a5>#M;^@M)lRvCw3-<}&5}!r?4U8k`v+f793lnP?#*AwM0L#V3=eM% zH}FFWdr613&^DhTpq~&tft}G5U~N8Cs!9F~95yRx2MBU0{)jd$ms!TXO*03+0dk(Q zYcIZ=-pTf<7l!|nwrLM*t+V?PdsoQ+)Pqy(VJ-6&YvS_*Wl2(pUA@`_L{X5jk_HWci8pAef z#j+O^(zE3S#IEex`SkcMctQlZ7ZkZ#q5cI$Pu~IUT8%Fnfvfm~3cJ-#zK~sNy!BvX zGqiLs(u*r%rWzbHGN6EOkDVf5N%7PT8FhT!af>iiz!vD}J-|5Fh7hX*m z(w1Wi8dcQdQd7{crWSD&Kd4Mg%n7Ncps9yYFZHK(zQ^NY*|s<%fdikIMsb`97mib7 z^VRgI_;)FZz{f*8LQL%2a3rf(NX+5pg=B02&N>$omn{sQ0)-)IIHZM;jtWUF3*j1i zWDyaVuW6+=2{ZC+zmx8v_*wqE>F^CK71{>V@Tm%8_IaiP;YkSUUfOA*H{=QQo1Q}K za``I?_3$0`p`pbI`g>4+MPX%@=h>Att6pvjMc4!lKcv~X3ojdMUfR)A^9cm}CtKB@ z^ca;*Up%H9ehvcT_B@;V>=ye76++s*5SWO~9`d#h+h!lJ1vkD5nPBuMnBaqLufzU1 zr0ole?L@PAr@am?n!}ExY#u-&!Um9Cf8j41ja_391)F66F^(>ZY8t%-f^Z0IA;IfA zn#L+1z*%?PhrcGVu1s6f(;fD)LvXKloQN1n+)2OU1R$5?k-sJhim4f@i!V9z>;6cx zlMzQW(LDVrACUla1i1s-L`5R`zJ3;AS}$}l{E2@2ukjj*Jol-R?3+~i0u8<~qL!nn zLzA?CI$x2Tk|+>EvfO1_kt|`GyCT^gG^|K=PBv7NB!}VJREzG~R1rs{?nsLk)|ZK? zCa<2JN4d5tWWNs+*%OImU4K{)^f5IBem*HTM!M5eVkerUm<~-6-xRIn7Y^rgb6YRW z182ewLlR%zK0xYU1(Vtj%+F~I_isw1s~G;&RGqgMtND!oH|3~|flcql^j19@T6~=f)dT4_s6DOH|V9@x~e!iDBUpRbKzC?p!1!h ztrfKH5rf9Ng}IX^%$r;lj~?$3sI+t?^JHO0Lt~?kjGI1pnh*qyj>(=yQbDZz1UZbl zV;^gnHg`fw<`ROr<>jCqoi*stxz&_L;iXjTd4BpBRO3+k$2i?p#)=!t|+wqnQ)m69<1k z?BJpM#${$gsIg7Kc;pj+KN$uNs3KSes)pds9;^ZrY5L6M8RJdCH27fqVpCuY2@?+4 zi|hd8sYabY&eaAJg`g({$P>{ENRecG5rBGv$-RgzsTWb#?z0!%>qUmvLe>j1$kh|} z+Y7#jY$RmfUc?%b+v1J(f=_!9*C^s4R7vAY*s4(bM^4wo| zSQ!UYb>3*;MavS6*WmX97tVpi=Gsr$OTsxaG#z(He~(zxo`$f4GL|&b<4ZCj%)qy% z<6Gl8DEq+Mc$6#%Gag!O(f>o zW)gEbf!KQ6S-WF9#y-p;!Tv66nLJ97eQsQA?%q!Ymapkm0G*@lTbI&!43*#;8O(*w zv1kKKEdx{giGpG2xRhHAC5!BeaY@0aZZt?ZbkeF7z|>s!kxpEe(qCMZ(m#CBM>?52 zvAA06%AfZ}Zroh5Vw}e@2WrQT*&(%K$E+3OoDDM<=-6Q+on6ffbe;|*va@-`IHj{= z@=C(~&`)+u{-K}N?wB-VoC39jjSF;RS2ThkWr2>!%=p(@pmcn#h3pzl{#J`?H#zvz zV@%!@dRC6Oc7emWPFTV_JL=y0^{$BmO4{)U1<&Y=trylV8uMc7qL>%IdC>Z^zm`-} z)V2#V3IF%}aCRXH*DWMe|FNPbbG$J0kCOP;hG+&ED+dkAS9X_GW`S9?)Y;RAF;F>R z-WlZQ;d0tdC z66(gdkfr^Dx#TcNm`*-dEUKXWOVe4tepnJRD0(y4UkH>b<^w}hXb*8cxDmJ0@go^(A!g$AGtjarkT^R+#U>rO`=`Wn$RP@A4(n|ku%hxH<%vEzM^hrO66e> z31gNt#{gVCAoSJKHLXmN{0354?nbJU{41eh$aff!M8VzK7m1x>pWdUIde@bmK|6WZZ^wsbVtrY)zh=`xzuu5i` zY67a3T%$V#ofUhzGXBAX%axcfjPjn4$a&)d>g_y4%uhmzmL009)`#SCAdjE+z&Z3$ z-O(Xg{Rqq`#CV97G0ajzjQ+lcw9ruYx_Ujh#~C)3@Z)Xfn^nja|eQBwXz zn4kK<@SjW%8V;?B<-U6gbB;)@?kPrjqtQKuFrN}|(;S}yowV88WqdmVp0&<9e{Um} z;5I_mA)@FIsH(Eh?~|TCL=&=lCAeumnZoY|Ak-?;ZbGgyfXR?g{Qcz=Q9k_l>$Ebr zFFXCqDfB<{u*4n)t@Nr`cd6AdGHD(6!)Ykbu5VC|*12uUnH9A&BP2J^YDDXm3v#nf-OvY8+!ga zul8H@s4%^16002L<~?NuV<0!1umuSg6F$sf%kbzYxy8M+NeYZ652X!uaLC!AskQfD zEwBI^A~k z08(C;D-lI`olfG*>on{@M4A6*1P~d9GQ78lvT&gynNUwYQ1S>#lb@zustfrGi07VE zyWj8WYH+n`paDG@t(T~$7BJK{lAGOnp%{AGlpo=hjvh6&btdWh z>x3oS6G%MhT<|z4?Ca3d;&GH^lt{J_5f8u<$`He<>j*l-L>-?8?v?kqyNR<^lS8%s z2WlyuVQEVB$nj-)rG(UX2UEqXqNOMCQ4VNAXFin2OCX9}fFWL7tzLhWWQnAyU-}C6^tR z`UD5C_b!GE=EdHFdG;vFPN87ipI~I)Zc?3SqWlKFK9Tj&hPg_LT&im}WMRdYryvS@ zKov{Epf-svjH3)#N*0oEmtk7M;9Ro-L_wqpFA>33Thi&Zql{UL2P2ATu-cd~YH)b^ z;@NZp5%ZF0uwB$T=xm#zan-0=yiw2}=cFg~j`SIa(3K=AVN&{7)-D9|`xCA*RtOe^ z5abG@2uF1ciI}#4=-(O=mDMMM@0i0Ib0$#KGKy*+?KV^gM@v;-_Et+2SHK#34xBgk zOpKXQL_if*(NiQ-jIs|SEsMUN&VNT!D;R|5w)2{VvDq@4J}%Qiz8_RcJvGn$&3~|I zqsWp8W!MW%-P<=)8D89$mRpJiT{^`--jbDvWnRf|G2(ztvAkkzgWVK-Zj3iLa6~M> zxMieNx~PSy5biash1T?nrAPc5Im)cM!l{Qjj1%VCCr*HxIaqulO&#%tabi+&)5M)9 zm$Ykb%7c;-97e{;|4B_Bgoq8mg$$bC;?>?j!fQgw_W3Qc#k1~H*16roN@ev4qo?T3^Vi3UxmN{h?JN)fKqpAt^Lj>l^YAEk$E#@9Hg<#%EY)eqNNr5nQw-?K-RG|D`73Y_G+!yItG+nG{#l1@Pw;jcS|v z{a(gJnTf_l!wSQzoQY&-SkuuQA{^~EP)!v~Vunu&H(p7`z$jX=thFpf65{^!My6tc z8?C_tH|ARurK3n38<4oBn8~iV2*hSo;((P}ir?K1D!oB7!jt72SRX(qQCsOM<0#ve`Z+y3xgA3}GMRtWNt=&H8WGE}a3x}iGD+Vs()|+S z_8@-3?QsRt+#W&W_Lw%gJq4S74yHa8E686aS{+YsXAbXj-k}RyNI=Z%qGMhQhy;Lt zjR&IXBkhJmgkKk~bX(X%K-*K3*NJ$uu-)0^Sx<;>ZBvg!(d~~%{#OU7h%tXXvt4i} zV~$xqx6ZHV4mguZ0o{7xvt%stTE(7svr~E+6eBv+$eCh+};c+*LqxFfYvdf7;A4p0HP>`uxFDyqH9F)e^ufhwkf?E7t zxcm2>zZ~$M^=?w!r}%=&oMqE}N_=>qGH+TqH&h2se&){_iIDaDL4FbmW8EIlCdDL7 zz3}BE;!zxfrV;aN(}>i28i|zlPYaPhLMlVr25BawaVkfw!h(V)aFocA9>{@yg=x`m9C8mj(rsQQ->??&|x zAWaEX&sK%LaUaBMrjhuS51ZonX^6jj1(l7n_9lp$$Kse#@HyV@_J|fsEx2xoT>J2e zxH+O>X`VwDPbPOWSw*=rQltVy(CQZlsOrC%fmDc<%>mIGlmc|<8AG8D9|953(cr5PG$}B}! zA!20~AA!0|6_K|Z^45#;DqRHX)spzFhQjrsHJNk?OEQwB2|ehI`;Wzm^40rTlS!_! z_3X?%Oo_t`fm@LohGh#6u9K!=BQMpCiPlL8W1@3pMN5vLva82oH+*@hG(1O`2SCjn zA$nFit^=0oyb-qQ{i3lJN8`JcF&&>M+v=}GC$PmHN@iB()i5*FB7)J>maGxR5le=T zKTrs8`tm7un}B0)Z_z z4$H0h4n=zeb7!ASDOOT;3u~sr=`CuM^R;cApQmo!I#qSM?tbpM=lqTw_tsE8UOL5t-2hn7M-KJkZK@|41M2DqY_Da`=7~Eh z0)4+5B{BJ7RmzKlf2Z*O%%juu1hy$h`Dt?H~ z8&ba?OZRcaXyN|eq5_-GXV}QMR++Oz8E&BjOCvyCK$+_z+k#y$sl@MNqm=vL2tX(< zcq!NgEoRN7STdOxXK@}f_d&4-Y`3@Go)hg4sg4Q>A-*DJcp=t}VQ`jEvXTj1wm8oGvyv*Or(msu; z7tN`g@6Q??t*jsaxi3!Y3-3nKs0prVa9L&ubonyO({H=XRsEtZQ$BR%OYKvG(SElS z`sV3XFXu_^(_C0X$HAC*wZ`@a;XowF4n|uH2czxkg?^WCVwii=LKWGy z9u-mr3)P?fM0>u>yy?*e=1m`~9Mk>eD?OxPYgga^z$)E1*1zxNp+tHau&4Af*dX58 zz3=5hT*EAr{t0NYmK0Jp2iNuJy4DZCc}GQ^d^&xAA#l`ad91jn(7)Xdxx6WeCjWG#|jitDB(P*=)~AlfD@Lz9?3D(iYIRC#U}meT`;&Sz6&mjy+pTpg8J@ zD2@`ol8|LCbI9zJXu%lO>1V9^cM>G%VFyA&ES839v*TzK`D?~?sJfRgv0#)~015ng3MOijDmg_UutBlyg&~iTR5qzCn7>%(eck>)n8mCQ5bwCOXT2+5beT9Z?)OZwGp9y~-cHzpHDFjlKR z*Ti~hIkjc_C_W1in?W)Q;5*fPWu2Dk0Fqg|(Wi@b#}h?oi<=cdcPdoq7;9N62ILu5 zE4d+M8+3V2tGvQ#)zWc_wIqwCg$BMr68NmIEvsy5h^k4bYz~*Mb@^dnz65P`=IMQ8 zu~Du{b`qIeSr#Xr;mq>2Ts{904^cNzK5bHajn02v#~HASvoRT2ak|x|NqRX+L$M?N z#A6tSK0->fnoKFpHa#V$)cJ6p^A^!elRu)S@iC1+?SFr@n3iEu_}o{i)h#^EMm7B2 zgm-FRrR(LoS1F0fGH04zSQGD$Ps-p!WFSXl9wp|r0G+naPUbD9VZ5WHnA)&{%a%+< zDV#W$=ve#OlC>$OknM5aT%;oL&Mih1EH}%v4COIabk~z>( z%QQ*BOw&zO`y4pvSv%QOfkkH{%B9&KaO+G>FuiH4O{;Hsp!Pylb?wXw7+?||-?3Qwr&Obph_B7In!kLyhu9~_Y|Xf) z)AY$97oU|oPHT7)>uVECRmfKZwzVHrm2esJd8eK44F^8P0F!~`xE1xD}H3QML#l(kBvZPb|R1$my;ald_}5#-=U9AKa&~rZj%Aor*E4cxQbhm6tctp>av~L4Q{6Lp@5c z{eIqkAF<514?grp5pyh#TB};z0!7YWi9Uh%pVtjs+sHTT$o#{ju|_^z46xYpnLQB=OEV z>R;`yqkFTYwT-3~1=7xn2jhG#ebFEQv0Aybml~IC?kM;+4*yI%}`^ZtFdXby-^%PVG$a&ZY4g*1F0KI7(0$iVk zX^Y{!2f!FJXG~i-vu5T(IP#e(wXeDvCHL(a1zU^izx6TuUr%{8O7-kS$sc6%E&`(Zt_88^}7DoNY9m6&c{H zs03b$>YTRmxHRJuu8g837mQ589Mj{&Z$CBLpOGVlM#)$z$b|Lcb91H9@q~*Zk3~G& zWb^@e5VSn8H@$IDV^yO+GhI6HM)71ROrOLq#pG71@f`+QiE1jBA%&Sp%Jbla$$FMM zytJyWv2NZhDa?&zYUOb8Xu=e!Zz`dE$_;_%p-uQa6tf2twKx>}kQ1@*%bg=m+c~lh zj6&VQnbnPdCx#D!1OVG1sYXY{X9(%pY}*R=Gd36H0gZoIm2MjmO=R_VJfEN7(%=-E z(2M(3YYD@pC9s&LEvj3Ny3eqL`+_YvI60`kuCjzxOuuMmeGPWr7Wy+XQME^E)u~}V zi7Zqz{q%+z_hA<8l|<;XEm7bkGztW03aLhN{*0`@^Ymms4d<&Z#4@r}P(4b7&&iH4 zmT*5okX}!`*}{h?JuEcg?_L~+*4CHEtCp&mJZ2E5QC?35gi-z&7gKl^H|BYo-&`*} z8yA6Wxu%NBA0~Pw?FX5^1_6+2LLtd9fI8%f1E?83bIOR}F;v;#pxE-D zDi+`KCU4>%Bvv#PCm$vsR$9VCQ63w{OB1Eg8I|}ruhJjn#Y1%bLUe<2OE~{&k~u+w z-z)JcIHh9u{8MfmW7B6~5LyZEN}^tGfU@uO% z+y{Oy?*a9o-$~)^s(RiM?!oL^4DD(2s~W3orLY!hE#Smq`T(~9D04>*N0#{eSi-~b zWjjiWRmP>dY0Y&~Sl0v0c-=Dw7rIhJ#lJ(#r8d{?qNgokJ=4!zHXki$=8RG5JB&%k z23Y>GOslC`Jg>U3u3=s}sWveEjG2w;glr(bV}slVeU!cyZNtc1a8>;h9W!li-J-cO zXsCUa6xK^&L!p{~pA$dRM~UAMb*?3BIs??gGell`h6qj(k<2qhiwYNa7w`#>IAsTHW zU$EOMF=m{k)7EIDP{n;{MQb#>R1*C}kSl#Ei)}R8(c>g>wf|EA1KX#9T3PMa(`Z|9 zZ({r#vz0`nHN8c~hKeoW(S3!1l~SlAhKT(HkJw*e;vz2H7uIL;^2|(Lg>lW0z#GKH zsu+3XE2NKH^9m`2bBPQ5aAd~u7eL>BM&wz4Q3+1xUsQ6|*ThonkiyQdv1@w`!-nCn zsu8}h;{uUuj|1e~`2oq3jUSM4a@_}{Og2Sgvp*mcl#Rt7KsX#WwGequ3mj62i?lgd z1EV(N`p3vvc$SDn=SHHNtdZ!v_vkozNndW9++g6#Wb^&{`~4Ee&{)GC)lSz}YHKz$ zV&{LQ7M#&vspXs;YAJR};piO7#QqfCCk`@MUT}~hWhq(PM_!n$9WPs_A-P4whi!_T#QMmKC$T{$y)oj90!DiG8w?^qxxL}yEzV-p@u;;k%&rTd!e zYN>uXhQYc;q64bOjUp9$vZxYEIELx<45|f#FmjaavBekdu_dlei_CH1m_MN!*QPyV zb76vrbeDEDOI@4Ri=vq0wyLG9(@c5Ouod}<$5rpoSZWx6MH#V7=>eNjW|~L% zW{1QL$60rSD270?g%^j@0rJSPq(ADskPc8qQSl3rfF+zL8zX^fE-6Rl%_RofkBBAk zUzUxZzdd_HlJ#;z|RG?$1AHL>DRU#hhX%(wa>78&L>19=Sm^_nO# zNb}^8C8QrRIe_+4nW#7u{T>$JvM~~vW|Q&AQ-1yh9pgI>2A=4n&C&ai!TQBuJ zhmKcBF@Vd;?oFC@Z;V4O_r#cO6DN>3_C^o&t`y9}r7v5|<3>^TMIZW(0AA*W9#hCu zDFZ7k;qgzUWR^>n(M0nO)175-R4#t0;l+oU;tj`L)+v9v@3Kyi<1g!YB^Mb(&mx`8v&S*WKM|Xd?Tp!_X-`CsM7wpV!FuKd({Y(t9FR&K~7g+1#W2&YW+C z%4=V-#-kO!VoeY`H1>aWz79pM_a|FgSwpj7`K z-7RwK|F^ptq6Z=E6R4~iPM$qu_VN*qn|<&opa0JMTpG^la` zR~7!28pveX7zs=bWD+vlK#UQImIt?>Oo0qV!cEo#(6NA2J&~2c zm}nv~tcI(r%?1$}QhBkYZPYU~`a6*Qb z7vacCv_{La${PKz(m)wXJ!^85H`P6B{#`(dY<)#K>iPglfv1>3jUEQt|Khh*OgVSuDZ3&OPy4@QZ`Pw^%V-bMP4~R-UrY7RI zZx@cYgab_1_C_&y!U=D@!BxW`#}Y1ExJ%r2m>2DbBh#e&g>>KAw1w|QrpdKw+YUSB zQ4PDOsA5rIrV?LkYpnNY^siaSp(`w*%@fde;mo@!H*Nwdx>S}_G6~y zL>@Yo13yqSjRUVg3PJ$(^f7IwC0v~b(b0$pKM>Ei7{$Nq3;B1S0TAgj=$RG4N0JOw zO0#HfRmo#QU_UN%Q>2-fx%knSIPn6f#eiGJg^bo2oA~@9Y4iaSrLzP7R$}5-evtaE zDOb&+7Qf%LsJ3D0v{?;Rvt;t8znMqu5CZKhZc{PaYDH_O6!QCFL=1u@*!ro%WdA^1 z`>D-s>G=9HcR0yLx0@^{iIy8()%Z0hdH}=G{3-vd+7eF2+8yw={#;8(0E_PqCkrHk zzx$Fb`=kK)`O|j3M`}JnDGvBEDbAC^$q%dIR2PUd5zHXHK%&LBRl?~ub&ZQ8Dt^i$%dP{=%B%SSgI)Y0CXZam{HiU2JYqW50eXTD^CZ$g ztken-u*-Qfm%0JmV*I4A(9+>^(N(Lo{2&1O+QIA=MghokbOgxL0U*!9Z`DIaTRQwp z_2Mt5qs3RDPTKwSpdw3$_aL_Du3r$JC021ER&G~0mow%dm6u-Sx&>!!B1At|xh`kC zi$1YJs~*?55Nq~txEZqi4fn7d_YK!eS+``7eh~Ml=ChtmJ!8@0S^hqPn#CmR4q%a0 zHE%}Ryv1{y^s1jI`;*4m^G_P_fjC|~K?+sSqCWhElRrj_)+V?N60J;Q0$$nkg?=wT zsL&FwaoOawl_)VIH<7mul}Fz-#p>gDxg?gSqFb~jh9>LD^Oo=|L2Y?cWd0#+Ox-+4 zTB;4^MGFkUrFD(9j#ys(jo62(l+fh9)FnP2=TM)uDbj=!wm9%wa@hb%#V>6(tk4xE z+|Lzf^bvF`I3cro(aifebNOGzfuT{-_|=@L!=AX>agSAoA9VP+`a&wkdN2cK; ze1wY6sRZ#wRvuYFPq2h*pMgZ?R+45*ggr(vLY2V_JwsI#hNJXkb$*V(C#yB?nM)D+ z)k6LyC7k}^dvU6r5fM8Tdy=u z?)7KAHfm8CH+lp{@C?pgbT9Q@pJE!z;075kxo8F_mt=7FQpfkrCI;Q#b2Y zR#uz1zz96)5dV_I#9mw>#1UDL)oK1lKK_S$jd~b7Fnq1)L2SL#*%RrO4z(ay!r9qq zQw{TH!ohDJmKM(H!=|krDusJzs1pH{op0$7KJ>;bYlmLsqQwPjm1+tXH*_Jj7QP~i z{nc*na}Gmcw%V;aL~S{T=(a3NhX#_Ia5i_1-%8_0KSYIgFN!F~4yOGrWFp=~-{R!) zZ~c}D@jzTpZ-@3RuvxRE32))kU)Q)g#mm4EH<9af zl}n8)z}}c~8tIa9Ncsqu4cNY;Y~(4RncG1g?=q{23brOr9MNgS9y<_{6&$1clBN<@ zJRVu&%OV~)aD>;Q>_p;zdbx+RTRJ!E{GuV=>$mpPl*MjDCaf17ZSss}C+i){?C zBtdKIJh?&3Tqy#zgy%B#()$`~{h12M9O;T5M5I(4X@lTK5@zv@?G7osmN+W}5;x%o z@`9zq!PGSitE&B(E0CKdBq`kUMdAsKT0*i%yKMg?Vhqu;FTk&)4kj#?*v8+avf0K2 z$?hfO5}c>mm^O_J4F_Cyw6orXvu8HajFGM^6}3oEv9tkzVLRcYvOgtKiGx~fRm2;% z7elZjkd(0YV=6qsyrH5TBB^p7p!_he6EnW`pZ9>bmf(4%hxQ6AWn znEN8BvJy}SK(oFXsU%Lvi_@-vTm`6sa6ZWEdy=Hy%X^ZHEp=nnDaoCP^^ zcvvb4tPb`dedxN`sl>B*58gikI<{_{TT@B$h8>_T-397VP>18`M}k?bFWm$|x@Cu& zOnDFF5h&K}c<#RScg%)RM}3A}q#>)(mF3~k~l zn#xv&2DGo6&END?7M?B#DRcrgx3i2--}KZMK(Tq|0cM_8Yi?hMGItsTl@duFxcs{L`P1t+#$ej!*u`EYlw(!V4t2dnj|i+k!OT zpO4q8QC=4(U`?S#sd+vQ<1@bodBzbUpw(HPMQi%oL+EbDK%9B_UJG&cx~b0C0wg-} z@;ji`plI2;iv_A=OTS(;eT(%tiYuxYg)S*^w4f>my@-@Of57*i!{fC*h&eQysaC^( z>{4!f!|$&VSHlx&Bm@{h@`E%ak6WQJQBzjzi;E^$0MD%0A zbv;O8+xiBwciK%{&Bie&h9vGi5JQ}G6E*1#Pwha%J&uMu|Igx!mhcj$#&H`K2aK`VvprSM#-Wr(!1%<`s>sXy1b)1^;{dEqByQMMFrkizrF z5$D(Ai0kLAWd0ZU;Aa++gP#2RnE$3hd!4IVIBW6Tne!U)KBl+ONG9;c>DVR0s~FLt z@|UzAvz8ov2F8pH2Qid{7kp*Xz| zq2w$zIdKhT1A;&)y$iFbKYvV{7hu8UTJW&Big8of?o4UzFax$rA>nboHH^#H((4rz z^5=MM*=DHu<*=l`dB-v{D^$T_w)3+}u6@Cy-{JkoC4Bkv3QFU$^h-(dg|V5$d@Yld zq=S6_SS%(o33Gh{;+yD}!HW_8^8QZ={ipElLL#lR;fTVME0A^iP*YRWWP17gXd*RZ zcxs-EKVM-d&Kqh~`htChD)Pje1Re<9s$l-_;xxB(Y1p>IrcT2`ONR<`EWg<4Ep-cM1Pjcr=`)P)w284dQ5)(&9QF83zM z3pQfDFW9UmU`5xg#I%L&yFaCngjMW3&2|-7oW!~A36j1@^)}oXU&Dv5I!EoR7Ghi; zn@+aD>S2+fBbJV_7A3q2n@O%u09m*EUjfrtqB zoYqx*XpwjwiCIRxhSFt8&N$7PwCaY%SftFaT39uA(FrRwkrLxztG=6WS_I^L*COla zBka1V!wMiEth3W<8Wu_&@JYi2ys;>yg|)=FZ#GL`WQCFxAdXbUZ)=(VGos~ta~7#LNA?t$GkbHk0TEFB z*(5<_nN5I@D-)iNqCCqtDnfY^a)){|KUxNTPkCiF@RGYVze3fDVDji)Pi8sXuZ?+5J);A9;7l`?PmZeIq;kiNP?3uZ2}BHU zPhnbrQQe|OC+Bss0b~dsTR&Hw8?|)cB~{e6UYc7ZY8`_n*F9}6{D%RpbyGie`T`$J z>a0J$4ztPSJ+Wi#eE1t<`hw)M(5LA_^Ds_j(x^Cov84l$HY|4sNq%Ht7TNXzx>FB3 z?pJidsaqE5Ep?bMYrdlp^C5-U0wugn+(A?zwe}L+8L-YY&zM3z9cI4+B95rq%_QNe z**7^Xg)E)gs3d4>J>xA>`#Vq;2?xkJ^BWb?b`;;!dl$N#)M5R|rn<=$W?SB_y2+VyZgSS?5(cEzrmOI9hkyuS z>OB07>7SYfaNq7)kh6qfU-xN~^x7C{wbAnSj6!~!jj1s}qH)b7Q8RI1gQnOlb=YbM z$#M9`KFAU{_8?1gBt9-Q)g2DQ(BK94r>wZc#bjri=DI$uZeF9MBMRDrb+hLAkxM&M zL)3r)b}H|uKUWfG@>xTA-3!Z+ogYW4@}rrjl4ySx8X9Y7F0{N|tL27fXGtAVQiomY za7-aiajjEH8JqqIu9$qTGW$Vn?m?n=el2<~fF~}WhbI$0ASsXN&^^y1#ZK_U9RkOX z6p|f}o;IX!>O86@wU?kO*#R*5q~Gs&gW1=2+HxIFj5r?g45)oil|eUM`m3e(AEWV1 z5=Ov%A512~ZsK_AD=pkXBpq(v1SjeBbXy0ehZa=Ij^UPEep}N5+Z&FKFF-2AF&=fa z_uFPnEcrNsaU}X;9NGK5gd~%3q=2wDj<~y}p|NJe3)UY3cMX9iJGmVKNF-3uZa)Uh z;FTkSx1V6~--K^FNl z>pz{O+psg(CBpnp1gMb+P$Q9Cym^5WzuEh~qtr>La`8QAZz`4dr^B?e5z#)K-;e_& zJM=Zes%mmW8;PW}Uxn3H)s-YNb|2FJDv5YozjBhoQ#%W~(jk}sGM$XQL~d;OM>=dd z|KTKk-m_vlNNl|Xx{uyS#@XBXg_ESbyA$MsPLQkVjguGCi9dAFNp7SJ>S{?Nx0|4l zx!Fr@KNKLhx1<1yvzcyRNr}0Ik=r`tL5DoRxC_U{n?Wjnl+2*+nekFLry+O7;Ndfy zy+OPj#LEC(R+BR?H{yLBcZ$7N!K+1==`*u zcE!Vl;jV>rb?bsR+dn3ycVVddAkIHQleB~saUYS=BJyNB@S{zDhH>mHA`ip^PsM|u94#7a7}TGk{e{eHqw=9MxJ28F~Cf^$W2GfLX_=`r+DLjqm&s3>;>eBm z7f30hZLQ=+9ikVs!J8i3huU`~=Y3C~L`qr@1N?3q9Sc?5;fIr;dTWEM1*Kp_DHu@- zMwEhaJy}JK-;n3-6@wCd7R`2W!9n13!}R<>JsDd?ZXA53o)lI+LrVQDg+A?P-VIM( zgmKSPe&$Olc-+tAcl``i_ULKGd5u;#Bd6HKi=6oELuhupr$$g<4Q$}Vt^qiiryeKQ ziG$n-q1vQ3IESC|b`3QYxB*UEL_#lj})oH_A4I zGeP0LulJJ=*TJ^biu)+plMnhy@q@T7L>Y9`LdFp%BvA7US^xK~LxXUaH!sMz-{6nT zs@@klXBG{3>a(c#J71W#dOG|?u27ME@o2VyqU~~Q zi=_!>ScN8fDxK6i%}M3R5eQ9j(m+*(lX|rk5lf26MJy1SRK&c=lag3dC(P|d{GW~T zB`i=?Uc$WE@+2U^m6b5yi*O}OaCgx88u5UJ%-=z}zL#iM8|S^dBab%Rl}Oh{X5du~ z`5%1;%f2Q;2e*$QrSQ)ZDmhEWp;aZ9+#$a!jyRkw=xT}HqpGPIjV_3Y_v)x3>T4YZ z<%*sAX-pB7;DHwKq~;l^Xi`m+Si3>q0g zS~QI;&@O;jC!k0@!Y)A#N3ESIxVYG$@)KVHV)Sh&{odX+a5Ja(_B5{HygiyUB)DrJ zJwx>UzvmpswDP`krkVB~vi5x`vu*tzd7&`-+J@1d(nw$V7-mzYB#jb3fzgqwcnhAu zfKt2^=TgRU`;gM3EU`7`C?iglHRmFgvYjOOJ~F+`P!hu6ytUCFPoGcq-rvJ$rq|&g zsX<7mX8_H$18x72Nf==y4d-r|8q`@tC?QsmH=bnMTbj$dK0z8Yh}J{J$pG;F_#^1| zKgs3`fIwFH1$+82G;QS^QL2;*otzlznX0m>jdQ@3Bu`yCrPDIR?}sI173R>Uwj=IJEmg}?=hXjb4+J-AJcsf zJM7Q#H5d9}ShBp$E7j&b05NzQZtnLPgBZw7=K%%W)_8#hq$2J8Qu*v=mg+AhiDE6Z{jMJR1Mbg08J?yxI4yrH!|@weiZ< z0JLCaTBLC(8}DAD0&GRZJLF&nL2w3rp%)!%Oj)mPFuso2)F>T+F)Sb!|*ke0&?Tn%*Yj zIZg<)L~kQJ(hr{FH1`m=K8+x7wMBwM2)6IWzn#NJxJ#KFpUZTeuPQ!7Kd{OWE__WISL*W!#-CqDP1UmdyZp~Tg#E+{ z-l$yrrGn2_KK><^i%H8sNXm6Rs)X}ahx)uVy84y@L)kO$p<<7jF#iv{%w+B|BU^i6 z%6o;7Wi1%g;xDq|Lm(bEa$-8mm$#>512y*NbXF~2L)399 zohest<4)R#2*o^Vl%E8`h`c#c-b*4u6@s^m;CP3?=%f?#$L1KyyPyYuK&A7(8n;(9 zu%p{Ymf2lw8>C1sSy@JSbF_i30{cf{hzXD+v>lm`SblSn05W%txR>%kcBGjeEjtox z(_gl5X2R`d8N&s(mqlR|NXH1q#|T+q$5dJO*t(N^7TPZle8W9)x#;94%-QXXoiLLb z4lAoA_@ZT2U4GjY+9p5`8(&>WzoMnfNOtQ#C^qXa3ZBT>-+9?djv(=Q;OFKAZ-?@n zhnuNFRbV?~r3=Km`fHBqL>~A0H zB((R*iLJep z1aiVI^*%>^omt3#xg2Lt$%>1Z5GKRxjl*%&fHVuE>D#fsH2Cz8C!D2TpV8k$?MrJJ zxud72W2LmyvDI6_?x$O z+u#JumRuSY=!^qxL)-x_I<6@?Kx3Pty$56ROes|{c!5T*i1r|Qsp8pubSZXwbc|<$%F3jywOJVMJi(*!lve9}Oz74^_={mWdEahklP~RN-6gVPH=8T&62LUF?ryy@`=60>tMcbt z_s%kKSx$>H@JjUzJgqGKVFsHern2r9<=Rc0x?OTri$T1{rgJIEU_fM`%O8yl+}t^aCigA#P6;^3$0c8=-Z?Ckljh$ zca>h>o)exRxjlnX5?(BY2(JEMT#oFks@>rpNi5X2bK{B?u-8!_ZXd<2d$yeQu&nmlU@%Kwf z69~OM-|Cz4yeF?6A^D+eh{pGB{Te4<=qk)K>#6lBPm`~J(7W|3gqg#?(jOn;{Yp>D z?6XN(@6bQ=Yx2Cw|41VFotF^>e}s_9ZZzQDo(p<^UhmG&5PCO!R!?>oe5NmL!^|0~ zq)JQk{DER%%ybxD(MI5Wb^g7PdN=&tO_c(~g#5N4`bOyCMy7%M%9nIb!jzy7<8r_= zI&VOLj>;S0JqW|^Kvj_&W9&#bA*ovHh+MUO1g=BF-DD7k;t{w`Y=c=BvxZq9xNGgcHW}^;pd)SFoB%178_R z^9KV3J^exN)zqwfUu)|AN%oZe$ViW*p!Z}777wA6q@b)6h)F>Kyy3PH26AhlcyTfn z>L*%HR^%%oVAIHnt(wcsF62>dMZTu1B64qdNq-xypD54ns<0}L)>P)_E8#191x~r% zeXhh;{D&*xw)5k}JCr82I}a5&9ES?5IL6sYDOv?5vm--%-m9|;>EQ2|P*Tfzo4ly> zV?%%^;_>yzqRXBQ@bV)=Wb=u^q6oNI;H*{{#V+=+HKmKm)2|KF`?lAW(u5`8LqYDT z+_~Gu`YBfs#>m^8dR|^$G|;TPd$(v{zI?0=wr~TB2JV&3MFWG%FTdK1da>T85^H@b zAi|uby~N`j4Ycn#&IMYxALo3-x9{fc+hLa8x%C+5+pzU0jo->!l}lTi%n`Rx+-6Fe z%#lHM;|VG_+D_0wOHBoUtF6)W$xM(ei>){rT`}7l_arK zUrDfl=k`>kcpw)@Y}aB|zXCssC3KaRlx~3pJDwCkAfq8e&aGq*H?t zGb9Azsk}%?X;wdRgLerxihB0rwmKaFSt6^;3Nu^;6qeKb2Mc0f7`@#KhEi zuwS%~cn2CQ)#MIV68qdN-ny5G2S~GW_3i;^$u~yE`$kL=`%V*E{3Qf0gMZEgqkWCM zDlflA&dK?afWHO?ND^6I!>uQ8FHIjh%2G9!jO99U|T%6o5$)WucCYOiyQck?mpiSHTVB=egZ&M+` z6p~AFH_2={w= zX`AJ@#PiTb@OYg3{vj#o5V2fXA`%l(uvKJH6N0|4G-&A@{uQ?y<`6-jAIB^Oxs%bd6-+jcOad zyAqqSyK(h9Ty6Lr#!S~X4fMT znO@6mESPtjl^Yv(Lu+n5WE{tb_X47H!$%t-q9UgPu`#;MOvb@Wx>JFg-H(xw(?{!x4{2mLZmp zNbPr1@B5gYzX+B5mvA|`B#BJxgpl<8QcAXVQ|woayeFu?$8`?&jJPMK?=1XHPQL-? z2zwV-fPLhSp}V6rl6QBM!$DME+}o94$QqjhIsATVo*HD`|6LAmR&xX8j}}}yMKe2o za-X6SJ4K5k+Z1~+a2HhY9NkU06L!AQE`PU&hs1wCmQ%=p!-QSTdw2U_u%%9oflF!a zXTY{gKbX(=MI=Bo3|!1s4HpbS#zi>89aeqy!EQ(E^8E_A`6WF6K+_xu3|X z;I$HIk6kW%au=3i$>1pq5QEEZTpmoE!PZnI{w9ZC4`SdJ^BqjUB0Av~S|>S=g^vjL zeu7F_ZER8t4&r9?GUHQuyFLpXsxBgL*QLU(v?i5z2&p_5G`Ty~e(EpifxlO0?A)pURsHN*I>}PuC^P z+zLh9${>WJCCs6RwB1_5NW%Y-iIVeX2;W1U{}PE7F|e9U@BQ^k5%WFw<8POWlGt4Y zUD&}eq-6I5q9^nk8$23eVds>$Vj8jCcStX088pg2@1EA@D;MuN!Rlqf!^CNQoc!Kt zy)(`9QkH-#tRi@=N&ilxoVBgL<&t3fGCtueW6JcGrQ2lIZZYU6`)54 zvQX)@MQ|!TtCqyiDl&8?3jFG3$IA#_%*|%wWBv zWU$^^?8cF2vZv*l0-d8EQQZKE7a;5k^@0){4q>a(R2W&5g@)B?0|i5C!E_I)C*IZ} zwOY6{6^W^*bYl(8?^x<3rf#viZZ+EY&ErhTX1G2jrxBA)zC}#=O5R#x>Zc?j>|QK4 z6O%zgo%vo`Qo%>Ay1QSE6tU91`ie0rI_(OCw1|}{XI9%{Us8;}4u)W~>x!|_)~<== zPsQ+EMxJ=MI~aN9UNKg0g&^~LZLSuuXr*Q%St_;O4Rfxmy#;fyVSI6WWFNUMos8?m zda=$e*lNLn4m7L3jtK7eV%I1l8TU*F>)u{@UFRKMxt}Ps@|e-5&J>S=XLQ@7*YUsLtUQj)4?fzIMC{C#m`uMjagP&KLx zC0Ep?^<5o#jz*76)d#9Zr0Tue5qoG_`*443pr9~a@4Y$<<=#3BZX=YvgVIs%7Y9bl zy|bW18)yxdXuZRO_0V<=+OX6ZV1tZk0REw~zm53#OA6J(2vI zoa=&HZy;ne+~pb#;weV}5(P1iLilHeL#wD25%zwWFuzOQ!e$XZC$A)ImisH$4zoW)UUI`(BoEahP z{i_O+ggymYy2s?}6fjqt%^rcCU@0CUvIxXVj4sn+M_p^D%VPD1V*3_wi1-*itwbm> zBQC}|NER6fS;BAv5I`qM+d1%Jtn+TA2wB3(U)OW~5Qcz}&^H(jm!FW#jNOMvagOw4 z&(1-%IL&n~rQo*N=sVd}OXMy@l-BRg#~Nhs`B*^ouIP5O8&+tFKkla7IRi$@ulMV{ zbzh^OdJuzj;mUq}!1L99z3=3gJdOVHoFP!~k8=j^)yuUyU+d*tCi~c1rhw9S92uX$d#fy^l`vn+q{~#A z+7@3E!t~#)zDPw9t+Sf0)BIJOaGf&8N7tzphm6DRID4HsJ_O-|>of+3;|$`be>)r# zaQ!~w@8Mw_Zt;{!gR%WOHALfyX6ANi{xRMJL{1Myn zS6?|qmDX4M%rgmUZ%+jfUR^2{+$SVY zUKI2&hAR84XSKX!I;-`y*muvC)VpWHugqmFG%L&{Lz84<$xt)Q1s}FfxXdX}vdf&# z_q^?nDr*UFv{bm!Q)$0@nd=w-{2o!PFni_Yk!CopbPk``YTHH~)@{^^Lz1>p&1o%! zkEbzunxWs`YCf$s>{81YF8egZ#)={`$Zc392v-;v<2d0LR}5dQ^zJ5F_{SLTitlJs z(IjfCS`*6`!rBIc$U>3h`*|aB$WUZIG_vpG=kif#%K{$XRmZu=CmPPF2Jhq3rN1h6DEXdU$<7|$xkwNH9)4Ng>FSi0)R>{#pR`6A~Z&i?`d$}{G&B2J; ziP;@&!Jb4BcPXNH(t@VjvXb0>r1_%01Y5?D@-`fxqT{Jz^= zPsTy@pPxe$_h{mS#V+dTQo?%Uf)qM};1 zjpV0YU%HKmYm`={x@(P+uZ-?Wwd!fmBda63m{975EbW{!C*M7UGdP*AV9fu=*}H&8 zQJ(GN&pR`FKFpr7o8!)&vb)(NJ2?{|B-s!kAprtJ2`5Q71_^?S7%}KBMg>JdiGmi9 zC@OfUXi;fPD>1P}ODih2Xi*cSEeI+qYE&fudxC!L*YErFyRLt(Yu-6#=AGI1_&oP> z-`hPxKXXm#^AHdTSXFqZuw!G?p_WOP9GIu;i)d7LJ&s|(l{Jwabo!T0Y$bUj+wAdG z#453hEd0%?A=lL0%^o=3O*`GiEua-o@#)H7U+)=>O?UCYNTyX4_mr}*%D=P}=JisB z>jp}Y=5Hur;q-!-vhA$G(Vik~`IZ*JzV0o;?PsUrsC;zwW=~piOO$ysioLl=eXr#l zp+q8w4V%}KGgkN%G{ns046`pwKE?`uKU9gah3^>5(pkqa=nrE|mI$-tjG>`isp^8q zF29<8!BZiBbKNQ)>Sh_4@<-PxCnv)tmf`oa;$tf3>SHRL87c_Hw#LbIf1K?1#mRY} z@>_NZD!Z=ZVz6fm_PX!wGW%-5LhoXSx`P9o`>ehVn>{dUZpP)C`mFxf?v7LC-PD*$ z8SD_jGhfMNMq?wAwc18FM$$6n2S%&}-Nrs`iv0eFeOkEkZ#}Q}*WTL1q+64<263M_ z$^CY9s!04~`NbcI4@pnt z#~w=~-nS19jjQTU)V3#CPE8Co%q zzf~?BuCJ;e>+5^pRy+ODVXdSU4;Wr`Z^}{PV6T#|{PryWusjCoOOhTBmH#q`=eu{| zzl>VwS`P|{&%9E3@O0(DWj{7DNrMLrLx41YbHMPjd>_&!^6GDtMxyo`G!n8CN4Cmm zzCK{^%kO{P7YWIY%lje~(Te406#63YFn*=%_8=7-BjfyurTtla6AO7;wGj%ewJoU+ z$t_FDBJi3og5{<s-wPa-^(%rl=;?HVEi!hG` zW(CBRk?e)uD>0s%(U%4_<23C_Dde5DEo_^L(OhEcwy?)JWo0Con5_KUWDMpeVXwP> zWyDuo-=5`X*m90iE|`czSpXHt1GOt7b5e0kE^S*GNegrV zT;@*~n{-PlPtCk+;9rx-go^?TpC&oX*Gu`Ic~JB#q6FB}G{}wY zy}9D#wXVe8TY}yG3!J?+r(R~*kj`-}ZupK-_g$#dF4SpP&SHKcEl$8ZQEth}mYI-~ zZTLdNz|rc1ovR$?Fb_zH2VmRW8XP1soSo#Ky7&TR4vo1$mVu``FA6a95$*`A_ZNga z0ub{BYC>MNL3(BmY3E;reC=oYQ*9Q;%V==RalEAWWV?g97tXI6mGn0Th` zj^|F?8yg(3#RmKDt=!!N5KKyR+>&z)42pD~Q8g1!LaFMWdQzW67nUoT9XaBXI7U(1 zg8MjWi!sL#(6!ECNoDP{b{leaf_LrJ(Qb=Sy+GVI-4tkP-DycG+iCIbaG$kUw$iMJ z3jot8!62r5e~v5Z1vG1x{W(`jWB2D2NgErCg3DW@cCi|@wrq0)l&c5%ut_Y_Yvu1R zT1;uu{^ZL9=#htWe{VTb85(Y^p89@!%ER(aNMDlblz~aI(pLQqirNP<7F%A~I6N?s zo>H2OE~Uv>`(u-F`FCyJp=8Mr&OK=PGw!9dRWFrg?Ue3V8Q$-n@nbWU^X-LXzwG`t zocp0XfJWwK`M{vkLTy6&k~BwoUY7E_ukk#kfqMHJrGYx2Jnb>%X?Oqlv?XYP@U(P1 zP5uYkp(WCx3z19h;?KTTny6MB+$xV5ZldI`!?__@KR=vX5&fzKO;k9yTMCDBD`opv zD{sHnKd^S+_53P8h&qm6ui%k%9jjPH&y7@_s}8X>Xp468_8Wj)xS{DjO(=0a4xCim zuWzN))lK)A4yH@j?Pa{j&7NlJeJr#iwT&*n1}5v&K*+DV1|0EM!%NzcE65(cRO01k zuHGlmf%Tep*hZEEdsXS>53KhMv?Y_}SUqz^4&>V02XYr2#LOb$JJc#1OP9CAj-~4} z@4EGHyLdR4Q-Hf3e^x7O@Jot3QlzJ07awYwvWus9*fx0%Rdi3LV^N>nQ+@0Pqqy&W ziS^I=u_AGbfZ^Z z7ws9f@BUzHa0DZ2drf7xy>b&z{muP~n#dGs;3Im~a+8lrR zYj<&n@5kXbaWAxqKDc5p@I$X5{e}Ge57?F-I&zy)Y!}dW`mSgf)=R#2!5@v?yAKd1 zVXFMb+*74riB;y~Eij zXby|IKEdL=&}1&!0Y62TAhN?IzHNGw`b_h`n+5z;S32i^v?QIg zaa15T&+QYmm=*^xjjWkCcgUq>BfHnIQs&QE^K_Z(hWc{b`2A}D%PaA=vvcA!Snl_r z==fW%M{zKU>Cwaz&*+eM@h*dX(P1VnI$-uZdSg&ZrYeHkDakGKUos;R2q3~VS zAXNra5qm&AeNeu0XfVt0ChKO4TSb{ws z%x0E0$7Qc4E=V%d)mQcHuY|=V#(5|$*Qllbz%5!iKK>vqa7YaP*MF$QpqeF1 z4=7I3PG#5!uaqFoQig<8m3s~lz8e&G5YEwkZ~$a4R&jCYVEcCTPv7`ozvb_!tYg;?R~I)tW-6)-0vUx*ecFBv}$&RbE@y_qchmGUpYxA61i?MOrNT}b&5%XKhUwu9NRXgp7Z zyb%W)+9!gEEM&ALjPZsp>;XnD)IK(t2pV}`Rxkipe%IZho`AsH0v?Ka1Ju}hryPMk zfzzM0yOGO!Inl_45|N`-nkKWow#h89CbLIwNjq9qZ}VYv&>u^RX6|W#X|hW49jziW zdYp4Hy_A>(GU20DWm4okrA1SoJcp(pcR_!ioCFair9VGfB^f%*8eyZAN&}&7zI`12 z!RUA&7|xs9N#2Ir$${dhcKedzyM45e(E*?fP#`!AJ2(tGAU7>q^u}o7sRJ0r-Sed-M?1i$!$bTYWr)u_qhSW< zk{0A}9y*yMUxxnnLwE9}S%v${no@D|4V$E|l};PenEg_-^3>cPXBGOd(P_(Hex=wh zjw?@n^~a~~_-c4sF&(RyWjE3#^3Zu@TJhF-rO$r&ywYc{Lh6?npHI*CQyE2PU;~DR zByER0GO-Y|DW7g3?C(7bIxDrV`RI%LnY{(@uoh*19`*w&`#ki`S71Nx3$eLJD-cU% zpM#mh96BlcqCL@*va6-xRlDv~v)q$o%#ap)!)OH~2gu(OgxR_&%Ad~|ZVL}k`r>Yk zHh1`%$sfxA3cDG0mX#a*iFCA-&6MFzY7NdC>p+m%kyOgRcrR_g(|6H!G&TF8t?Q^k zo9)Z8Zbyj(apK9c3`x{xC%eVcE3m#s-q@hc9wCMqhs#1S#k9Ck!*32k2S%GMZPjLn zqYoU?X4@|&OY=U%$aTxXmo4r)EZJg1*euNwm=K8xVLmj#g)zSk^8G5mmz(3Y1s%oW zxpJLv?Q16~_~-~vF|FSScf_e|gJU%OmUu>Ts!$_@TKF1)_Ga=2slFQ+pranup_q8E z!sws$`ab3yv5#3SPm>fmLI#Hhed!TISL||U$>%QaavR*Ic4v!i6Abo9KrO`8t}KL$ zo>KFN{Jx$r8l=Nv%lsn+Q|7=LxNEOr%sqeLc7Lopkm<~9Qrk}-fk8gdq?WX;T4_4W zwXW{IdsSV}r!MGv9+(y1MSXylcqIhy*|y&!xwqeAOwHKk^TAPGA@1@e`F?XahZXg1kDIR+TG2{x-@{L4V0Q0LoFcm#vO!ekB{(#c$S zg%3lYb#s$Bee{L5)8UilG#zI9Yfq1o5*=nws5^oKhu^kmoz!Lzgp)Z}D4F9AzwKjK zBN%Xhq@g<#!GLr4I6~HHvH2l<-3}VFrE;)&(92BQNom!D!*5G}I{Y?=j@clV*4=OS z9X~I|-!%GOeaFIuo_aCi!@< z*RQ1a4B+%e`MFxyE#nU*huFA7$Mp zK!D?ru1@~r$wN9`uC660tiFFXO~`I3OJ}ap=`3|Yc#`g9$_fl#cW_snOfmbf``d1k zDpuS&N_7r z5TE78n3hf@2M65ksSzgZf(M@8#SCeQzH+&X+X=zRcTX+kdE<75-EGVj%{|>n#`PGy zIuDhLVt6ViIa;R~qC1>Ve3BMjtwNR!|x1L{F1L9yr%$Hw0sKZE#mld>ZcRiERcc z+N15#NehfKOjML4mTKbi;J7efDD@mSpiMY#aFri7*vG`#gfW1yG+Al0NnP|RkR0-8 zDtgreU+b&tb}C$2s%&6H#YP;q+V^ytTrG{8g0bS(JpbvU{iJE!6iO6stK%CtQNyyJ zxcLCunEdU97&~nO)}|WPAQ^ib8aG`RlMx}jd2BT~Si`2VAFT89^p_=M8Mm99;W)F`uCMnoY?$hu5?}8W<^kZ_qYv;T z=~jL(ig^auYSj*vOZsC2j`WRr;vr(87R_PKr3NIYIY~T4%cW;dkw+x03L2(}j5VTZY%xGc zSBFGwPCKwxY?+a^QsRUHJFts578=#28p<8WCy~uqhE~05E820?vtg63^chT zJ^m)Ww&*^wp+psld6P}{*Y-z)2@eRFF7!XV3EFQ1_l!d@SGoo9aPd^?&n0T08su$FPgpmu^KF1g|25Z1=7v+Tct$`8{pY-Nfd&d<}64+rQ>-`1v zy~&oCY3;31XlwJqDWlLcMi*V(X6wzh^+qEU8>gJ7uK>iX#r-GR#z8QoP{WMoEV}x) z5$xQeT@2piQQ1W4>b>-sj4b8{Kr37OKIQBYGwCrP9p~pO+_)2ukU5jA1y#&C@;eX$ z^~w_CZz<$d$XkA1kfc02<9=YbMy3`*(U(~+pnwEL3E7}%a z+rt@3h-Pp%7ujl3$QWEqvBqEHBlkwQwtT-c80GYzm2(CAOTmPnd+>@_j=?PVkHeW z9Gi?^2P!dIu#_(4O!I6t_z;I#IvBVQv#8vg_s8Mwry@pJ4t-U2&(g`&kSI@IuhO&7%VtQ_0g&)tn zlgv)E2jeLpEZ$0b`|9yz7SlO|o~)sAaZt#>r}HP~fY;vGi)e+{2$;bQEFV1FxX=v! zho6(i+)R=k`4CUDT*;w4_s;Z2HcCHBr;v?`En1L4B3_|BLkG714Bd}x|5|vPu@}XE z;}eJ(y3yiW1i2w6t%~N_yYz=BK$5xPe z17x5;HU95!r~2vb280Z)TPM}4bR{C<$M8;O7Bv4HlGZv-JjE9O^Ig(#s9a=PovOno z<#pI*m?NC{gwC&I{A1D?qa>ceTTZs;*e}Bmr5=Us*Q98D$bQWk?f;hjGvMg|e`J61 z8SPKmS8nC^-m_M3>m6b1Eq&c1wY=`JontN5-dV#Gwh#|( zM$`PBcSorYg~T+*^%dn}H&OY%t1 z=NhQM+KZ88ymyqXcQkGV;?ln|(FZE%=X3pNE`T&QZY0N5Xo@n~lv`45%df|+Zb{7q z=lNBc%;H#qTRi~w%{0LJZscaP*;W{XeS+ZulF}?JC2&hRgu2>6(3(QpD%E`3E$Pb7n4Onfd*?nz1^$y1$gY$e%8l<# zzk-#S$7#?MB#GZAjTFDh8aly$W5S%&?8z_bQ%hxkHuKIge>P9gM=!Hz95(?)VDc)n zI***?zrj)TG>a2NUz$Y>zZWPfLcL1{jbq2yddmlm?7R^jPsIrXFS$k=QXn;@NX(p3 zak;m+4*fSBq4P$U)O_9uhWg1rsR)^1?3*0o4F)FtBqL;8Nr41(gtU+I^YMDt-qu>< zk2*ryUkUm?!TgpWPRbb?x{~fUh$Yy7lR^}|A#qvp(9l?=g7sGX!JwXRTZdof%4LS4 z$+pX`PZ1XYI=XIolU^_Cp`!AQLAEu$XUH(L7^Imk1}0uGIGwZgO2Jy@WEBmz%bm<1 zjvbZCU12m=jpDyDXpuTtMZnhl5&q4AsnX;mgbAsQ&Ybl(FH4Cf=GYQf>Qukr^be7| z{$@LhQKA8=NJ&f)VbI5oRSnkOtK!D7iOIIaO}v;e+7U|EsFa{)Yj4|QWSzN=iMz-p z_82b(f22tA5g!dbSQ~y&FS?B>#$OwyDZe%{F=ljz zo}Fe;m;#dreDh4oneHIaXsg9|rQ@2x~(*cdT0JC55ve9q@Nx;s#=cU@U*2IZlv89qjx$m9nb5OfJSD|)UMLT3FZa3lA zlg#7bSwmR%GTo)$QYD#w+Qflo$^0*S^N_h^Iy2XBnUw!CL_lAhf9ZdQhQ5Zt2mj+8 zl)XFc|GIbkY95_>gBxDDAO9c{v`kkmUEbavRqDYl&R?LTQPLF0%p!c;`yfwc4ue^;v0(r zd`CK&Ohf8na`PCt%{2;Fd2fle_Xf_d`GXEKD(Ho_ExN|mxf}$qw=J+u8s;y*Ef4(V zm?q>8lazzMT%j@V%?5!v#wSY~4FLM%HC`R@+SS-jcqUtjpEpy)~#o7A7uYkYq8FWm1Cm zaQbUomM@wINxeX+o4&OzyjCSl#fVM*)P}Mu%VBa_~uTxYzd#gFk!bK}VnU1+iwY7H*IDwZgUK}Wdkf1WH zNPc7kd5X8GXiGotJ`S_KivilL0Y_l(cq|i=DEY0CUC$5kLi?X9B} zDL~0!tnrMwNkuahuEqMfv=~x;*4LMZKoomzo{B2*)n5O_J?CgkgYDjHt-Vt?6^3Sk ze5l@rM#FesfcIW7pN?dMM-sH>*juO({=s|hz4m3kw|9y$s4y$PJV+^{DV&-5AbH+> zUPXWZ6whkFwbO9&;xQ0lzn)DEdvS-q&SKN2;^eddg|nVV*8aK}mxFk{7v-dP1};zh zxq-5>=Yx70lD}KNz?sXj%m~oV+(&*Q<=u~w&|Bq{DW8Cw#M%p7ZPK9(+MK`UM=DGJ zoSKp-rEm}Pd^id$%iD2>S)gn@7%!*r$UCxV??=0knZJRhv3GVBP2U)g6U(A-?8z)l zl|T6!=RQ-YAm?JaB0wp1n>o)JXzPNd%`$HiP4B|>giAG3!9#s(2bQ(S{e0wp)4@3D zGAMKUl^IlM>z$uO&bd%I1VO-4EIe;oDmjNfV;=Sw8*5mAn=eeIq_SiRy?f;oly|ci zc^xLoToj_Dl_ARd>m#76+<_N(57#bUM@f}o%6fl(n2w@M-t4~@N0(3vhi`e>7ohW$ z1zr1_F%7r%wqjYDN#W04d7T2cR9aavzjW4Xv?zriV5|VM(l2I^XSP{ITibBul_2$v zg(?iw7r1~p|s0PxoOHh-SGxqA)X>`{aS^IbykcO_N6hnwIvq!znrl)8Im@Sz`Bo!A_P~O@MpNil{ zRjeNE-C9$_byu}qvviBr0-7_2c^ajRZB={5y``eZF5o`b<5Tc#4Jdji-NEIpmAb&o z`tk4o?CEVE(Aua()p!skLQ_cLnX?`c!neoMDLi{!I#~77DRXY>gMta$^KK_gXrkI1 z`ucWq+;Hbnbp^jSX#tAhC5B#9>h%-JbG7a7x^wA9kPhGUBlV}5zFn94Z`7afJ1$Xw z{?*ZV-MjSMdpmpVV+XrV5a5JYe<_V!{=VM!z`}P6=wV4q1vtL^eZ#x&5&Hn>SKvI9 zpw)yLATKPhy=$_4HJwW6QR%gJmuyAr7>D^ksru-c z6Y+0fD4d9K?;c0v2MVf>`6x!LxTVtZ%=vt81yVNdg0I}M;lp|5j>e1kzW*U#(OhqT z|3gmRS*L_D#b=}3aTS%ztyq<`T+6nT?;0eO+3&j=Ys=LR@&Mw;sjmLYzA{Yo>c_Sf zVS2n}1;gzSm=Ogz)xh#g+*KQ}UL9M`0357p`NqBs42uZM*nl-0Vwc~GXpNG3c%GNy zYQ$wM#oFq1(CvuJz;C<5m;34TC7{;wb$>+fpRp~;!=;PieE#Kmq2l0d_DjIh6do73 zc^Wb<_bb`2>A8~{6@INdXgAT?Q??B^3t49&he7pAq%w=@n z=c#7EZd-0ehd%SHy|a}ZortqS&dPznU3V!YYw5b-kgVBTaJUMG<2a1`p1v7ZBQ9b( z@;jams^e9I>kyK$so*gGuo6i$6K>$j!-yo(Y5VxXKa3bU3?{QTHvzS{6(L6%Ur-y$ z+Zt*#(u%+M>AA;mc=a>^tp`eqDh-hO#Pe)PJTC$+Zd%#-Xf z#8IE{+&!^gwL%Fqo;CQuS6=%M=c($At>3d&RX=x$&lB+-{k-|fG7Of<>$^dldA+szGc=Zd|I)lUYOWrrPHu$~+TDc<{7K!2HksW-i?V+H_zUl^p&j_6r_7NA}`q6mbJ&Du@| zUksyb6g)eQ*sx65ibiH9r8ow5Qszr@cM?0Vfo1Eoxt_#H-)kMlv!t#k`;N`pxEE31 zJ4RK0J4as}BMfAGtnMtw+EjT!ml{=@OXw76SUxy!4^2j#y$3r;J{cM+%OhHftZ7;l(6&t>~msO{|q|c z6Qe^~UrX$@e-v+m^p3W8paQ9HLq(V>V#=mk_KZHK1uk+Fif(lb^p$PoXQc=p0%zx* z5nYr&0_>t{XJnP&>n>W)zBKfpoQyA`#tJPMXbV8=>Y?ZU4$Se^lASDX6n)!l^d|~- zGRwN97nA1fWG$U|m16T&R!D{Fo%*zO@H$3!GCLMYS%Ti2oh-<*acIw1Uqo6W*z;!X zR6;q7?79S?A+$Nx0ZyUNcIJN#2qQU28};r$LQH&@F*dG{g1&khAh?z@Y?n%S=S$54 zAKSAY_*fp$1C;_=P%y3bXo}#QdEnz2UJX2C)-zxQeduHRhVIYfu^;2UkDEMqtE;tQ zo7vzUXVGvzx>G}MP*)Ybc{dt;P=m(Ka?&@))ocrxPlxG2?>z=vuflqotX6Tcv*KMJ zXVBCi1OUBNAFISRV(z;pUE~DL=~&MPWA^pD@3gIn^L5+S^PeI{>f50d^Z-_b`qN`W zh!6kjOiFImU?Y=EZ+?RK@GgX7v~m1F_#5@-!JgR$bn>20CEVVh&@|Fmz+|)9xc`kj zvyIz40GRYJd1fmot!qW7_%pU<&c5ZSxT$L$y}1c5r1~Vot=o*~sI!$IQzh) z#G#)Kb-*68SBUvOOzTsbs*PgpIf1t6BzF^L%+Oz>bS8cJv?^HvF4P`Fu68l1*H1$P zGh_97)^Ek$O628AApZ`KrB#c`7lQv5V>b>4hbdSe28G)X3(-#h_5uofX!nIUCs%QC z@N{Onj+mS;9WhB;n&45Kf)?F1Y9$HVM3G#2)hg0&7AyTI$J-p@WnU}d_5aQpxeL@o z$!b>P)l=gEOSngSzyhFXt@eT{!n6wckveX*XXSn=_H%ond^>b+B!<|R$bh~HB{QId z^&OmdaR$nvINLAQ)T_-R*RAV2m&~=F-)R^Q|Rp+ zoI-S@q>mzfNm7FgQaov?6)QDEPI0G2$ACQ@9I0j8gcqQSGh!`e0{qbmEzQW zc3vtt=`$Gnv)Q4Lyl!qd*XPeH*@kGaZ6qGg1mZTgJx41=+H(*+yRtxjP~D#6xA$zv zIBRQX0TnS?UqGEf%ZF_Rd4Sy*>2vNcUJ#*Udn-nf3c>o_4Mi>DlS(+m*|5zAAi~-3 z{Ms*uT;35)WDlJ!h;;eRhJ!KR{*dpq*TTu&-u)p^Moarc!GwE%$e-n2$faiBlJ4}g zVP9?f%3y?HE7+ZSHterWMeW1}IM?{IVQ_h=Oj7>=)Ed~NUEYPE;DBvm$i87==n`?r zHj;W9Lpd^UZVaWlx*J3G+Jjj#Gc@9fOxGB4^)!Zb2eUMnw(LtALq4ynF(e+yvdV1K zfvg4MoKU8AvtDctWk?%6T0vetR1f4mKNl}5ca5&d{hbyt6$l|vHc)% zS}7h5;D2-y*B&Tx6}Jamh3x@*VPn8nI5^G!nf{n$$zLDf4tokVxc|4et(lP@!j5bV~5Mw^WB-9QxnrF)Kh1XPIQo=b#(fVK~pIC!!#%Hx{RNDNj^ z6iO#i<1rx2>**NL;W}GgzbDXwG2rKXZ18T}{ZC4qio)Fvn74&0tr()Z zdG}xt>$BXwF<`TTI`P0Xc~fL_z!lAywK)J-1|6xPfT#KH5(N8>s`gKHqtJ-eetJ4! zEUIt3{`8P*X+34Vz!lY3Z$-Hp^aWe0>is@l)oxzyiPih1U{6K8KiFMf@Auc12ZU5? z1bfPG$4bi?wvIBvHaCstcEU==Qd*<7xN~4B9<94 zjpvB%o*|amheAI!Y+_oAi4Y|er!QtX^MX-C^{$Q}BdVkQTLlWs3n^%Xgkyq!}RiQ8=2rp{l7a!pfWK{2Rs;g`_b}b%rUG1*{Q0j2zD&{;9)C+U!FrRqm`) zNr-ynD-M3IG&$Mqic?(b91F;A=A7bOv)9+9MgwT6XQiVJ!gw*%GIM=hTET(3v>6tI zeFnztm+!toDmhR`mRE8@((IfNf=Lr6J^8;LA!PS;K*fZv2 z(6@99@NQmgLCS+GzjjfgA5Ly$6A8Me!dZo{@oiXsJI>Q7x+a)VAJm9+nci{7VU4;}Ei~LFHJ`n1suVd8zEfNewAq%yRf635LvL43(WPSXbokP#CP4MVQ;K6>(xGrM`vR$N&*$5KE&5!+&!6*L;%@#7;Hv}@f9z8a z#wlUjCqT7#e?nX+c9uBmc+`HThU{lB>nrtW#a-s1S!U9R$A!P5#4_Z zV%^XHV$p{p;+&+Rq2G%a{%NxQXI_tq9qxbb{r}i{Jm}@i+`$3X;kIum5-qV+Ypy`V zTf&^Du!v=e``o}D?fcKq*e44A`GWr=U)PC*k>P*(yFEBCh+KAm)8Y2lesh>Pzrknj z`Kkjk-(O+Nt0V(oVt2!r9(1j4B~<>nTM3m{(npd0r@Mn;=U+nI^Q261@9h70{m^CN zzA|3iJliNe8u-t*eqKEH#ecrn>HqU5yj?8)Kk_p|+YFL!M56zPzh9a9MvESVH~)vf zzlld?{)f{zRX98_>mZBG*+E09u2*38;^rxA5raP|#FP=M)ZN7qBX1g<8x4eu-fSZu zI6>Ha!2Y3F(%|-IE$nCW7AVwb_3pGv7=Rm(vFIE2V@zHUO6PbjK^C>>~|4bK1wxfq zNgMa71nYI1F-2Piz%mjw+9VZhE>@r|Q!rD5h%G2vsy&E0DxD()VlC-^0yGTRF){|<~1QYPv`La@Wl4l^fnOlevA8f*h$k!qqqK4u4;ceWd z_~A14W$>o};sFF>yn@FlA|;AxXsaH-4$Q>=E7w5)Tn7ZMgQL7J@UrmMx^}BGXgy7-#+`Pl zRm=f;70|XfX>`;?{^$=K8j0{B+)|f<(X~m|Qp^eSRGf>;Q@L24%1%ZV@F$IP^zxIl zYP5#N50HWG0C-MJ7V`zOcuX&g7tB*3KmVNEb)p#>F5mvFnRh*OTqQeaHW2^K_2!vF zt_Lg3302It0}*}JzVYgqZA*(>?_rD;g ziMhib%NsfM(yNxP3IJ%i#`a?9pI}qlt(ov}0;)(o;{c>8!oC8POrazH4GAjHOu%=I zpuG#+8Y~8KG8ID8DL_u9(Dy=OCcv4ObR3tgS_G}R-Wz>1MM0D%h(-@%NWXUfx+P`i6}3^Wt!_3sCg{m9n*g;ml6fi6rgzk|FsJ`HO()%wk9*uZ*LEwS1NzBY zn=`BwjXMBT*+VR8!U!_uE5J$vm*No-7}3 zjCu&U-#V9rcspbny_|XyCoL5?74M<66|XVXt@P;4oMsr5mY@GHvjsqUUzbhOY|kl@ z=rqsTyOwjF;rVU|vnt5lYGW|Wm*EE)k8t4ew9nSN*4h`sSL#E2t7q@pX5L<%PuRGI z6#^M&C;l8u!OF0Nw140lw$xhtvRlalx3B%?UK(wCj+@H?@WD)#fRIi_lJ$HYn5aED zq)5EpTEv7C#D9Qc3+b#A8p!lInfH@ax1Z$DK5;*>ZjN=6;bG#VwBOoCoFbOEJWyIf zW*4VBN~(7WhWBz?A3e&%cX&=Ryu;VZ&rk0mivXG81JZHkNS;OF`z%AHBJcClFDLWU zoM=D`Yc#Of)oNQGv-Y`QYvCAhyEi_h5${AVV7imW$+o%#OelCxt$#;NL?tD?rWT_+ zY7PQ=1R&m&y<}qJ$y7@6?W;<$UBYN8oOd;ef4Dkt`0Dd#LeJLl4Uh8G-I`4K-4Cs0=wEry!g6;UB$PMxSN?47!DvrMIBS? zy2%XWoqZOC#CKU(a;&Bn;A&Q5*Q8SE|E_>ot>;w3NDT*Y5|EHr1mb(E0mz`d8x=gp z&Nagd@-K!`gy+e+*nbJOP*Rs-96{k*gJ$B>6cKrhUGnM_P=*yi`2D>%0hz%7$4zmd zU0Dn@wA<l!54@7XA$FhDsYer2Q3$Va|6|8BVsin_}UaEteu4^htO z`Q7yR7&zSfL@bsdy&Z$ww$F;iMk)0U%9-%iC<@now}L$UZ7RBDAI`uh@9|UXBp^Ea zvNnsBCsp*N`p?*jpoZ_ux&(p;q#y<0kSC@f!&?L_DhIjmbx>gHiOpmO3N(D#uf7vK zLk@U;hsf!AmvUyj_bP?wjw&Y4_rOtfHRDmqz(|w@XvPWLJ@qVkQsBCt22tF;G(R6n z%nk4WdhqFE=<#{8aCIt{v;)*I5B~fur^v}WDB5xdk_8b5J+VlSqkzb4(O$~Q(Ixl_ zKf3)>G;pvly^@%{+(yA=Cmtq;ZXZRL&sUN!I$3nZx}6lg+J}2x%k89`Yfs!s;p@M+ zlX*Tzj#ll*gFTdTkfJv{h$3}kCZp($uRlZ4wcuQf-aHDJ&zoN#$^6#RB+6xpXQ`Ck zzGg3-r_;wNW!V{ItPl7E&A{_Gap(LXeMM&=;JoaUQ8}o`y!O0a#6}XFOlc796(am;aE1$%GnluC97at z9t4;{x(~zb61G)8mN_$CCVA^4F5+AdxX3AvWVsJra}ARpzH&L*(r$ec+y*D!#XmlJ zB{o&>GT{Xwi#@i1d+8&9ESCK(fZOK>DEP#cbD651t{wbrlWj*^-MuBcUTazK*j!kt1O~(oZn8UtS8VjR@yt4?_ zD(Q!)8)mtF7s4iJINt> zpd_7~KIxSmRf61qQxU+B)PcwPm=jLUgZ3N-xh`1kYi&8q$86tu=7XK%b0$XJ%;$FV zpJvK_?zRji+|+KFpGv>;@}Q2dQl|>OGecGGi+m5pcM=?J-FOR^hdy7d?Sy=p=Fh1- z{>5-2)l@^GJ56x8O3D3cDT#NuQ{`8N?r^6`$MGF3ecL%j8|DtTnSW3U{>;?K+4p|n zu6!7SwK<5}R(pK64?UP6KFwJjpEr@=Y0kbHc5Z>slxtN20vj6zUL{RD%klETD&>>* zm*(N?W+|J^ekH9;Qw~^_&A0}suSMO(yF3SBLFBu5`yOnx;OhostRE8&@{q5aZi)y^ z{FFA>es>8m`Luc`46kk93#&MF)+R2-mDM*o66)Gw@Q}&d{i|`T9*f{y%cSj`R?Jhh6h92J(}Kg4Chns#();^Br2J=i zFpXFY$hf&El+Yg~mk#brbnH$oa@wuw17XtYTudB!I1G>~Rt*mauF^&(i+>s^h_8=S znSVD@Y~$z2dyI!+bltpJ7?l5L+AL@uzG>nmz1sQv@j>ei7(bh$G4pO6P0SLGXyo<_ zO}cEk+q_=`rc*t0y>^y-uOy$PP~3T(Ig`$kUzc>8NshDVvUBk=ys60`S&tbCrCTN! z2obmC>!5gC3FR}~QDCQbk~XbpmS~ox)KI?(Q-pSKlxP6+NprOmthRD5+7xLx(zExN zQQKs;utD*DnLlEZ|MWcwtffy|G2{EQQs;V<%Hc{I2g-Yw z2jhIBhTm5c0-!FBCHmG6YU8o)(RKPNQR zoIR^m=NedOXYZA`E$@|RtL?!7zMAuI0Jr|tAfZaNR1MZ}(_mOB=Z->?1q9WTl8hRI z{K9wJ?6c+flLUd6p6OtM>#+{ztMYa*7tJ39$uR6~$e6=Cv5b0_6nk%!q8kQ3_?kjr zOIlnZGy1yFnYvI1>98;asXLkJuv&8Mwi)P)T$lT(3e%v2%P?DsSkdJ>$QS}1#ltF-{8e%pcsk!gX{aUyGN)9dqCHbhP-OFMHGfwu z-ch8_O`%VVDNggYqChU$%?r|)e%Bm1Gqnbv@w>N5h0qs}rnfu#R4!Ye%4w|;K=g2d z&mOQmS&kq}t*=(xrSdT`$6?vzEO`v?wFzYck^_}IH4EA}zhWjd0|!#$Jmuqsk%LZN zTb82j)9!y5k?K%K1A0!dx5;UQnq)sir(0r2@q`Rq`WA_(H_T%bwal1AUJ)N;#D;!q` zy{6-8|L=^))%MimYKz;$^T*ZBN7DJ}>jsBhV_q2&OT(PXI{eAx>qQZ_Z>*b7*hHdhVah0hMY+X(n>TW~T9e79K+ zdU@>NUBJ!^D~B!~Ph6?qBR+Xmx#jMA$H-N1Z|i-}c&l09siDA2z|0jphtdt4-Nj@$_8J$XQeRaw^rIK$hTzd71BI+MFZv) zmoPQ^1+TB$ca{o&@kfXN#Mv-7>8|Ka;{>`qH1^? z6bBXSg}p#&lq(XvtPM>*78#YLp6u z6R1EzISweqA;8)ql{uW*{w@w>$8$J)e<%2J;Uz3$UO6|=q$-rIQ`)BAAdyv>r&J@@ zPL(u&J2Tj?TS<{;-#Er-rz-u*vnsJ3%t<}?56a0%mfsFaVmx)Jct~xOvqFc|JUC5Ef@_*!@;_n} zOg248NOy7>@?)X%pj%RTbdvN{18IFR)<9ylLnj^ug=tH87fRJX+C(T6fmDdP0^<23 zlYId1XJY4*Busw=*VYcLZ=Go$3sxFBv}nGu`rd#)QsL4u%1g64oFVzKtW!dv z^ojE7#Sw@EiKU#CVEUYco_?FgFB%}0|%0|ljeI~G^LapuZ*xb1nznJsUn z<&hm2qPfZa6Gx|)qrR2J+ol*G&cULo~N}XIiz|)f_ zneUYpBym@zKK}zA(Y8L8WTE)~N7$QyRaLEV<7@4`&pfO%aR#P+1~?1?8x+S-4u}c@ zf{Ka*0)hsLii%?n9MqiC9Lg*Wv_Ts!tu(Ws1hs3W-3D!htb4UdD=jLE@3*nZ`~UvW zcb@00z4p7`wf5T68s6deHuLnWM<7&wA{HZ57W`ixPBbA<^rd)5@KQWU3$vo5W+X%_ zCYIskDM?PQm$VqE3h)f?C`Iw~P7F_FTyH5+szmqr?zJAi4(?hHm}`-1J@}o8)(6f+ zu$_RH-y}ipX5H8sAGW?T-nOzc9_mt)_3|VVwi%hZ;k;xCz*|F#OMZaxg;2~og7rk) zOH_J3K>Rxt36|0zMu$-GHjuMYPf_`Tg{qW{U|rxe0mL(4;JdEX@q<#G#fbL;mL zlh>SrTXFAx2qKBNW@o&cJ(Z)lstk@3X8vCs(@h#iOd~PV&&5`UtzJQP8jL|_hU_4& zBwL~~Sc;Hr*=S55^#$-|UsEU47LeC$mJ@@tv0zFNvP>j7T}TyWr}p)^p~SC+U-@Yx z4!VrR8O&fzoj}SMif({>!L;B`Vlv@8X8d6qjg_%!;}Md(A>3HEldLcXvt&2-=b*zi z2Kz-2O}H}xb`iwB$PS!+644Mt&?q*Kgw(<3{Y1c+W`=!xa<{j;(>MvF3?YD3T;^a} zX6%RE!J(vAu8<~@z4Xl)+X`GsY^3IZH`y&(2_W zZR+EMjUhsG19_Mjh7&OrJ-c1MmV~I+lJM+7gf$RBokPlMEhmN=6M9m&P?^J<(#8{0 zk%pS!7U2$-4WradROoT5NpHI`uZr;Z(=Dl}T}U&Z$gaulJKPw%jEGJh)r9mrLri%U z#F09Jn$rAO#f{`32-2zF1!@u(F)Wd&N{KzNg47gQo;4aPQ%FeRWWuG8>nhya-g z2%U+9iDM@c$3V+kUl_z&3&_2G^NAveO}5S-4bkSBNn^1v=WatX8lh{{Qv$eWmhch7 zh+--cvqGramSv-skv3|}!u_;DoV8}s-NcxgYd%r1g*dV{6ZdN=4-KPnIV_YKb3rc5 zBnBsCKc8Uf4f}Qho-B%8@MKAZqr=L(K!lHq+DDwKp9Ut+?D2$;kT-9$ z=baxAry1ZQrcB5mYQdC$Fc77A{gDAyC1gLkw;|<;hR?y+^*A(Q4~aEAiyC9_60Cdz zlmg;1`JgnOiwdrNPR3#pf1+>?yaOPMjLy&89up42NSM0%Nci_C9WovD`Szl|A8}wb ztZhSj6X76^>sTLpSiZ<64e+nXeYL00DcU>GrZ=0gAT0S=Azk%Wk?&yYAV z9tG?QQkDg3F)15T_$|8BD{mUFQfQmXfpF+RqsiGDp4})JN*_{%%rv_p(st zb{i}Pv+*8-Y4et`3?OYut)xLuV7ZxAOg@_6&rt1z^|}&CBfk@p|0FU!%tz_|Nn++A zycPo~`Fb*W)kS(5$tQ-eqnUk#D#DD+Wo@b?Hbo^Fi#5ahq==~XL`WMu<|n#rYwOSu zOjZi1xaU76b0nulR2xd(A%SPmt&%cnvleUdq%mBQnI0TpfC=ZC_b{Zcm=Xfxx)kXG zXX7H6p6emyAdrZTylI4@hty7FYR)4a;MG_is%+d~$s^b>7*r$mdAmH3Nx~Db(kJg( z6z!xG_n=u>Dd>E_e+XeqX_OSLkgX;OwL~grImr!N!9a!como+=832o4G?Qd0PT5RE z^-|7%ch^&9R!hv{eOQgDn>j3h4ARF+tV~8DP?_V?2gvC6agjyCEoA3Jc9z53Ty>UH zaSsv6_*fnZNm{L{Ya-V$9Q_OS)+A7_%=MOsT~T9-k&CY7pBT z*cc?^#CT(I5t~y8bSSWjr*@~ZIZefy*ga&Nn zV3FlckI>Juh6$CJ2&8GroIK0gzCtjsoVZ_(8*bt@lBqKINwClXq!ULs(ut5n$T#K( zfpd~A--@TN}jq2pdtfyd|_HWujLWqnlBZ8VVZCV_sO>2gh>$_R#Kj9ZZ$_1_npAm-XH;B zf0X`EmIr9ecJsUE2?(DfqwdHjc zRhC0&ffdJB&%_xlGK>mlHu{qODOu*$D@EdjA0a)-x=wOZEGH&@Mnv`*Gy?NVRCt>U zqRp-PlSC=4jy^?3iiT6bzEDrzJj=3rsJT@;jI!TLENmFmzdnXuSJ1r}DC#F_|UJxYDb-5Tk{ z{N0-A(uoBL)X0vOdQ|O1oYPKbi1XTsmJKV5mI6S7%Z^SNqov3_Tht^L0 zf|}T*iXwFd0^V1kx+xW?uB)QE`K5Ae%jD+ot;|$Qyf{hXYs8W+%(US9JYcG=o`>tJ z0Qc51k}&{aK}WovLm6$}$~`uh5VsP=`z}CeDEj^@YWwzDn>_f^V?Wmpnh>Ay7I& znF_|77r~hO6c|J90r@P*(Eh}ZY`}?KnCX!_i2Zi(joVdBTqQ@S+boOWr-7~7M_lDc z;C8;!fj_n5j1kpk)HSn=x-}=j^gEblfN2g0hC!&R7iXUdro~{o!^Az$-@qj(`haUT zMo1bob8giFlzSbN+VLcft{Fao#L{(przFqof*0wy_i$iN6p7nxS9`T#TLfRl z$45mG_fL1Bf$vl}7K87Z*C!I!b7tzkg2^PQDt9bFZO6>?d>u8^b;`1n64{iz#N9_p0KXi7&J*r2m&Rp7)|;5-`p-Rphf z-HIvfILtg+0b}X>DLf{5-iNQRBI6=KQBNchzpdwEdAdzVp7-y=V1yfND zpM-mjNm(m&(uq8)p>e$VBz3<5<=D7pko7oo2ngp02t^hvKIvfV>@K zBP#TL56ZvZSwY4@j@HV+821Ah6R!y;=e-7J+3>>nVIz)^y0}wW5*Z`|$&c>t`Ma5vT;+dt+^by-Ko?JTF zdSP21_VA_V?41Vi}YSAIo(Fj?0qPoz}`QiA@Nik8-|hsJ&ajkNp88j88Sq3GpYaGOgb}QD3eFMn=L2%N)xPKtkflC zDE`%#>1NkamLlSoX zy9sRc;0X0Kj)lZ%lD<$Lnj~E1MDGKTT!r?IvqbLaW9q{mQaC~%QdmOQ@?y&=3GZqb}#DN`7P3JUAxS689QD3rH75} zypL7sW=bWjS*9N_Rq496Ncom3T@P3B#j zDo9@*G^@$U1wu0_%g&v~62Ei9B0y|prZu@9R?kSx{mE2Z5?LA&hlrp=G7 z<=yOH1TH%6piI9nKG}%6$0Tg=ye1_k5?xn+F{%4*^-gZ*Uy}?e*y$&Y@7YZYNtJ2e zAO)>|pKjXqzJ+o7q$m3|%e0^SW7D7QhbVIQZG~}e9OT0#Lss`yj2|LzSU)~QdSfUQ5p3H|13Tr(m!=LYmQVdmwpxW+_A3*lfy3)l z-K^1AD_tMHMLw31*JwnuzQ}JhA{-+0BmmaXO{|ZM7Mz3YC*@&2n3Xg`@XjcJ#KLK< zcfA!fVJg%^7oZ26{)XvXA{KWu-1nauJ;SOUF@qEwVOvjC(anq5qUm1a>BZ`^)hu!e zVgBkRqngKr zCA%iWT0=QA$P7f)ZLwhwhRZ8o`^9k~h9j>E*T=bH-YhmfeQ)u$r=fUnwGkIU99(fB z#o#E0~$F$Zgn zjUre}l0(F_&p;h9yicMF_UZMR7w@OD^YT5~SGBGOA(B<#CH^r06o5$S!h z-G3XDtxqB*T(kzJf=dA@K8c7GlOPqwxbM(36FzrWOa`_NHS+&`imjc@g{uB&i)o6$2^tW&m zm6f+jxmBn5c&dE*S$~W0^t0Y-;jKr=YcGz5gr##&r9Ep`!{pA}9vXc=%p5PIPV{f% zitT|t&{S>uT%ofN~tfXKKZQOcugDQQB`q#Go%2@lh2aAJEiRn zPe1NUx=+_k$?W^|U(-@I&efVg2)P7bXs7-XooxfiG4VVXzcpPD5qK(@@!S06my;<*>tzKfQ9; zdf>wE{&Ewl%3wHh`P}c0roPAhLBmqP8rS!@qvLY{D6C)Wtkpxlr*FYtD)R&gnrk4` z=@I`RJ=8S#gb<%J!~#g$eNQr?iWe`n>ueg86Ic66jciqy+TiN#bnX*-c)M9-C zn!fTUIKeu8T$3Q^Sf{Q(+s?|F+M`GxFI1~MF{1NpcVu|&sK&%#!Yi8+gMyVfu*R3g zwa%cmTcSK13Owwx9z-EEm?qps1{B1&(i5VFnI9+l)a z6rL3+Ooyc{9Vk{-kU^>v7;6eW=y1{bD4oX!(*dl6Jj%B6wCU9(`#J+1;)7jWSTZ}MGhq~KDloN!MhA(j(Ha5jLY*?wXM;W{$z^gX;7o4#kK7~Xr24b8O+ zGPsoBh0$Uygr}^ZP>OIEVwz;LKu1vAQ%&i#XQg2HNT{9zBZZwLZLefZ8w-zRt?f3H zEfyC|6834dye)Q$z_w5mAV=S$x`GCqkl-eSJ0wWKx&tKANFQMff%{g^zo-<$LpY92 z=HZ)>FB-eId3g}$WFMnq)hwAjfLl)4NI5qMx4Ao$jyv5fd*J5FH(T9ZYA7z?D!RoM znVz0*5rQpBwW*R&xl`sHAf)zTgJs?fz-a7l zO~MT3!8*V1>kFg0;a?w~wIT^PP{4Zm~az^Ypj@Wo3)>R2}1cSYIZm zWD-&os9D(-pl;?lB~1ly69$l((5 zzy#~F(O-?e7fY}`g?F&}DO$d4y#HPy?+$YPtH8Zb&3*Wr^kvt^Ng@n3$miq5VC)hY z>u|A4t+#bJ9EnjC=lspx*GMi9&71i5fH z1^=-txuM_}n7rHaQcW7!$cYGankP*a(l{N$1JnqP;HulLajR~J%?o^ZTDbEF57bE< z9{eee9Oxuu(^sr^N`H2c9B{P2jbsbaM(#tPFLw%YQ9Odr-?_ODj&ioyPqX~rIOEv5i)nfeaCy(FlC|8rpnz`>-Hm6|$(#qV5)i_O8 zmrnt2mx?VA8rCZZs%*2FTL}+(w-QT+Dk?7-&J$f^gl`OV{Y7NMX?$CSI+bCPaQ%^)@qcc5(>?jiLM0My95_*hkY+ z#ZezkV{431>oJEh?a;{C39jUgTZa`vbO)!tZH@h!acQ%G{#Pd5AkgD@N7;q`Cp*Mu1+ zcca~{30pls#S6eL*O4`0xiX6O@-XSnyr&F;Nw{2km@*aJ);{ z))BR8=KK!!Q<&LUNsPk@YrLkDA$e8d2y{c@H47aD;8QMi@QK0kk2|6oro$v$>xWp< z6|O|DSSaQqxGxX}>uDD7T-cy+*;1iKG{}jup3DG3B5W3j`kG1Vbej6KZ{X4t#z6`( ztyNG1mh#_(FIb)C;;>Czo%Ri^zlScrOGaZJxT-lccd>y16w4-PO7=i#A(Egc0@nQ0?|mC9qsGBZ1(- znT%Hn8;z`N5wO83r)w5`4AH8oo@B9)l^%62usFxN^l#t|+!?84J-AfS5=P^VhY33t z$zdpsXMiFUZSuv*V_&@cwZ*AAu13K+B0X$ZR|1O$qH0!@&SlL7v>&I&v?t4>OEQ*s zgEfn~+t|N}Q}Y2$&vGfpb38WcaTtWMT)Jqsn&ykSCJU`|j?bWZuW*_H?4C%00^ zCR4$x1BREEMg#8ml`Axn` zG%Y0o_PkQm4CKVD@3no{W-8-9TWO5(X~MqIatP*HCEDbcZU|pWV))Or;_%P3(drUIo2zc`|CAvvoWb- z*d2sp(^4O1Z@>?4VXB|)0@nH3)Z5r0eE#>Pj$^-J|FP8ZXewTo)WP&;E&CuOie1pG zS44$Ncc$EJiU79x-KGRq;qm_Q#Z`C);!_LNtPGDB`XIFx!nJ4*wT%HJ@d8~G+w}J* zwu}xo=2BMb`TyREQEn%M1!;?QNx}R{9#-HU!MT9(KO{s4JJ7s4bPjRE5}nCfIELu& z1%CSkD(LRQRzY3XF#vByFvYP>+>2L8CPWqk=jeKlu#80mX5&TZq{b|c6?p!>74jGJ zCR7@x6=X0BjYM^p?Cz86>H7yDsPpE>l8Yk0(ix&nep(yCSCDvamQHGzJ{wV}^#1#8 zn0_W;cG7i7Oh;y!7`VCHDCVZ?y1MQY?vKPJWf}PB)&8SV_!NtUxoUb?&8Dcs^w-s5 z{&h883$;Bn+uS--Lql>yy00l)g=+$CJ=8-M&XxTw9c>w5ZXNcOx+k#eLuIUSGy5LX zwG=S}n`L6Aywlb7AX6p`Q5=iIGup0{pV4+@JkuMZ{&+@uL-#Y%@~ZSSm-0!afQ|Y| zSXZU#4AJ-i{^|x--0TL6@zMToH+VJC3E@pnvCeqDKO4h7z~V|^=KD+(NMx2-N8P9VgR&4JrgnL1+VzY$8kuEc(aqiE=y(4-FsA#! z*gp@fS77yz$?>331(YhQl_mu37` zT~fpJtvYt6b~xwkj($+JJY2V4Cl;>5Gg`mg28`h`_>?wdaQ(joJIEYsZk@0}*Rwm) z0b7r6=|^hJk8oj$=4qI&BA#Hr3g8%_xIM^Fa~?u0jev4e7(sf%!3%DL+A!iAGmJzB^TS9g z5sJS3I^0XXi5>h{*9CXZe#rPfhty00vL`fy1+ZjskA$7sp;Qo4AS|Pl_@N+#5-y4E zwvyPlp3NifWzfWpT?CHQ*>DB=5E?Z1%0>mb^At#s$C+!P-@DjzG8xFnJccq8d*&1O z)4NdSJuvj0L;CSke~BXhdG2@U2w(7n)(?`uIbfgp>|~PoTm#Bn*5;EJF2cQN{uh0~ zkT!?J{_r-=^A%KOYh<0+K*$g0kc3~?ql98G4l5SUA#DpCZxYu+mlh1^GA%fVBrg-;htrM&dLJM}J1_8EBe{4aaH5PX^HFohXudf(o@{ zpvu9Okl2)0fu5TYibGiKwr0)b6r~V}ZuJxQkSv^H7l=dQ!&3@?+SSB849d29o&s$c z#H7I(5;b`5oy4ZKl8Bia+E3MF!4#dr6?JAvh7>*(1qt(qy5?!{}e>Q#`6@E*+u z_xzXXK*O;CR^t4oFMo3JYjDY5+$w-!49fhx9w+%1l-8?c9p+fPMYBm7qnS7j8#Y!E z%kCJfNM8KYt2hl5)~(}EgsqlIU66{ehNPnv@^Hm$60xaBk;dL%VkLdeIxZJ}lZki% z$Q9l`9&flgv6Pn7I7Y51pc>D!9NLSpd+%_P zyf}RlE@LNZte8b&cTdNK4{63ZWYK;l-ffxjVXys1A@qCGu1~Iwf<*cg-O&GLv94`nUxSy{*+>qEuo<>Y{zJRlz~tCiEn+q(-)mY4RJj|pOqyx-g#sYw2FT_Jj9 zVu+lmLGw}7p6hW6lFbogr+<%eC+CghGrx>S>`JUcDR57LMXJHp+d`Zq&;s~_KG)xp zy{ckh7gi6!_IsCQ$UFAIWr00=-5}CuuamGdk6c$D0fL;aop{%2k;~AwllTrbcB^H; zI}ehW7UfM0)*Nh2xSNwv>08?xz7{K%e5LkB3Jbo174g6~t(gHL?pywq-uvy=m%m~S zUm3(J4PObi3kMPW<{N>Xp&quDcHOBdgBG?7_Lcj}=u0e%CTM^OSP_mqtaszf&4hX{ zn+T0>GG%e`87zzQ!cLgP2j#?LI0INFK;0FTLy4UwC?O)q5@fi$&pDe&Ptjwd@^cQh z?lMr_>pvipnX>CWfc&(g?yfG~zCXRPxcDeTXl$Mk-{hAg^~y;{v=gu@-H?2Em1HoF zJq>_Y0ffW}y~f*WdP(owKu+lEGRe7i_`VCOYpw?nPy$5dFy8sIEpjQB1@rmH z?G~%<2*s(`7R#;JCq&PW{pD}y6I09B8v^31j{W6|=TF=dxOr~hyPxU22dp1)R>wj1 z7SJiq-33=mplu?&?;oHiSE;k0op(MasJh=lK@ijd6JFLx68i`A$s$28FZcucBofdk zEa|r>buod`c9l6jX?4gdvvl}(f${}Uz;JPkxod&^F5$Q1&)11H+K%9D>ROH`|1 z;OpvoSeo{u;2S0>V&uKQf5)WLy=2Nc>B&CWo|4w}yOp7<3-N`#&TdG&`=#fEK4OVFaAep#vNPJ7g#v$Gu1apn25%@5h!ft-{ zaoEOpgvuQOJj_PPo|V|Lbv-0~_<0SkBV}gI|6IrQ#WLlbbYUsB zr=;hW%k2OBaou0k|H5THFcbmrHiC~xzkXPcnxENH|35X)-z`(lN#h%_Jtg(tdnddYO=!uoi0;nRE~oVhr0I>npj+fvny>3sDdFE~XzVwKu=9`K zG3l9RnQ~6r@fxqv|N{1Wb)JJS;xweTb^F zbm$wuSEA$HjIUx3fNEsSnO$57uz;^Br~G!N%Q5oId8PM3o9w{)S)*=?9Jz20T-S_6 zx_aOX1`#9~*#PXO8ziY>8@JjaP8f`U8uCf`G;>8x}0^$zk*sbY-B5-mp0kS&u?gA$(9z_54{0c z!&jcrSuhfsJT}s$zdO*W$656_s~%_71Aplis{e{0+%HZn1!QmGEDxNiYKX7HSksL( zyw13t{Ky$eQ9F>FW!RhTaHibVP(`Qg!_^;sql|jP)M^sH{Z+NWAJnN0*0>v5sY9za z$QZwB1HGXYO*gb86&DbNY5}n{7{l7S8(LGw4ebiFxgHKIL}wA-B)STgpv_1JF7*km zg`G73jCQA>FO}Vge*c`<%-FC!o`#*o2$k)oR+yZHNb1mM$hkx(h{fp&TdbN(qq_gSy zMmcjbJ1LcW`nf%1yqn8;{BhaFG?4ZBKSJr8VPjWdJl^di(d9vnG!9lY7U0sQY25^WlD|?0A*D_xJCZ6r3+p z&Ph`jVS7r-SaK_a{OuE;fF81|>wRg^?n~$$AKoDE{rx*8RqvE3=cN4mu{|Zlf$i_Z zf8+#d)poh`rl)Q_cuX33>}KiSFL#$VH{Z(8)s-lA1mqsfDm}kJzKYg!w>A>p^Cvg2 zVrED8RpeZ}l>t}r2R3f4uNQ)ox_vPnqT5H#P>a~0%JAoqwrVJ%Ku^ba zVFLHVQrH|5+M1Fk@BRHdCSA{#DHvFCvBkiWe=CE0^SI_sC^11AT2+K9R+kq2PZc>e zGUc368@hEnMBqq*?0Of2 z@Z$s~3F$&GHWpxWn1|^lq1Z!|=|Y2hYPSu*gT#-(Ts#ZIyuw%uT~&fm*h)vrfoBCR z>76h1lSm_6_9~$Kf@6h;ShM2^=}(5p?iVpc^CU6B-z`xKeJ)1E7&($`Xw*4sPR=I< zP9d1^J`G{9q>{xz4d5kV;-Z>A6#mJ*fKMV!$|jugP68c_&15^xi?#3bc&0DH!{TLL z%swaY9LCNe#EUbX>E44L{Z5@h966cc*hy0^LR+23fzLy#dQz*pCnYg7DrgdEc%4Ya z@au%9V<}uaZU^`VRVXIVp2^zOC@Kn1KpQkbSljKl5x5}>RNKfWyr};~KFb@T;g7Ac zdwWLM%d-$4j=T&RXm_(-fz0!d%$fzMR=JR@?eEvk-v;n>UNmROlSlQvox z%8h!Ntbuck@k%*{Bcz}{=f(`a0*|B5> zJQFK~>>?@&fXzX))2O$(h~l0!G_@xcu@#hO;nV0oL~tkOf_Hxp0c-sG4;SF^!2%_1 zt8C+vXpH5k(N7&wdV+9j0-oNq-m;m7(Z<2;!z~%zj}wiunp{g(PRh^`+K{YQx`dmN zel3S`iRDlptYF|#f>cIrvdB+8D?ApG|o6?j!iigNQ)VA{-&`T=Y0`nR2!jW{tIabh+SIy%rfs36}oj?cIJ`~Lia zcN3x-1$Ez5t{vzF-Eb?w7MXA;&^dWq!L7I=e1YO2@jdbftieXYPUdUU&6KPe#gSD+ z{OsQ&1hEa%O}3FJzUP!ewe0CxB|Du$QM__mpT6`Eb;lc@1mwnWUeZQ&P=P8qRSSpP z(@Cwd!AYHT@=)B1VV%?o1@#z+iMA==V(eCaPJxK>IhDM^=QJ%HYow281XQb3{BR3( zS`=I8>@u7O*tyiDUdiK$EQ3oWoJG@K=Amci*97dzPxar7#>m)slQOk@yRkvt9W**k z_Bt&d${j3{Jx}G>(L(k|LP&A8!d&5&KXiAc!hi?L8iYi)p6gnud783$oUnDNWq&MQ zqSmQiRY+QdN(@A(Sg1RngyiNEaauk}A`Q1$qec+%_7S9qvWVFAh$2u`1cy@tGSza% zh|KgN%-hzd6K*sSXN)G%B+eUBH;jli!{A}E5dkvAnQ~4Jk}1x5m&Dl@)KYQw3EF$G zY<7eSYKuq;KH+IVqC-?8aSo*@XL*qq=RQGt@bB7$5mcNvg7&r}s+w4bvqf*fM=Z|2 zP7b?ek( zzeu&#xNnGXO$`I1=Q63sSftX3g*jFsI#@S_<-@^DpGnAK7BA%el&LzaW_KIZF~-WV z8of)yauBTZenZ!1B04t>H(z6|J;YlUAL11sbM7EH&PNtbdI)ZzsBmNCm z53Y0)5%NsN23T^Uns`F(<_Z#S`4Z@CusBP%8H1@xfxJJI84Q-t@axc*U5AgMyFx|Uo!wwXmU~0d^>)aD!#b&rKdkHeq?btu?y*X3 zI91mNc%|tcqWD=M;@@>HYNKVBLuymr;Je=8A9f4hszlYdDzwIi6RT0+V?5<=6r$!E zMc2Fh?r5n^yUEdYN^wvp>fS+1d_v8a01`c_>iU3vn`)N?+vJ{I31afxJ_gN~oH?r@ z)i&vs9%A?_J*ZnKYD%R;dzi8wNOj^L9aQ%s>TRj)U=N=p6lU}vj?#@ix^}VCoLc<@ zRl{(gROniy>8s+V3Sx0ovQDfigSFV5Y=Y3Ww!k0+YX+q1$Pc`=N>4&zn#}Tr7-P*q z_H73G@;y;P^68-wu>fj(jj@xtda0rA9kog;Wqbfdd;41wo)$vyx_3G!^5jyPMw!bhfkA_%Q=UR@|S=tQd zHY2B;J-7Pye+E#OF)fdVz!&iUg=y)t3vJ7=udJEKL zX>hz{wSOOm>)`l(M4j+#0iYXUbOLC~s36?@5n)?Kjtovk{cHj0ycmWOCz=2+2iFK>hOv^REzXC1Dz_gV&O$%xxBgMQ&r3TsO}w+-N8X z3xX3Zh+Kz@pJ+wM;xQJ4EFL?S7@nYx8i_k7`&$Z@qY;+i@Y{q^Ir{n79=uv=s0l^v z<8g?6ypq_8T||?_XO1(s*^>C4V-Q@DFt|yvm+3g}EH7H|HyUO4<*R@rfi?|cECK9+ zFqg0Pv%K0zcGx^pZFzN`<<%O?%0Y5y%my36VCGw1j&&)Ws;gXXcQnkSbwFRFcsu0y zmyJfmzXUwva2a8-Bexq|u@IPx6gNXf=8QlDOlldIL`;QmYplw*HL<#$O11m=BE%*9 zmRQx{NKvoild;y(V9&YtWw{a^&X&5BfWH{`R1E-Ok0kr3~a$ zQuE#4?S`Bjy`;Zmb4a7V<*txMU-eyI><&f7-?1^I(YtP==Rp%h9RY|9-aM;CI|A!T z(VK~T>LFlRhwP`_0@kZQO8y`D3Ryu7Uj;CEfS@C<9%g(~73K$e&I+LCV6}I7c`T`04sUc= zphuCI@?}j;7I^YWElZo4#OCr^gqVWxVh^Ijr8EZiAoA77y;u1?G8BzJ@ND>@tT6^sW@*sq7ZZp zN<{>)0jaQ!!b}pNa{c4>`CIzN?ekXmtszf)5S!`~$l3SAH*;hgXq`qcu)D(L6 z@1&WV@)~5m{T2H;uk_h{rljptWT5C?xGGJr1S+-ktfyj3NAfknE`e4p6_Fku>6+kx zU!W!NYv?o*!QatiDfO-Ef$QvX5ZFuQ>>%LqE*g-BAPS9-OMD1|DEZRVxExh7RVO|a zZOQV)jXfY+_sM5^RUCNY)3Rua$3^`boxM|ZPfXZ`K zBG8qylJ}l=6k!_Rn55#@Jz{@Vpb~F)b37g@@PZ;?xwr=pHgX%b@g_2q>x@+Ie#8KQ zlx4>wRt7M4aj^MO+n^EKhHM8atl`lxM~2~1>*do=17gzfDB^;s4Uam4AjP$F<2o=` zW`FN{I|Rd{Ccwvt+yg3|H(L7+=iTR4lZ}9>?v5R0qNOYGhPR*R$iB!eq>}*>&auTt z3xM&?9}WQsxZ=^+&CS4W{suRnJ{r*-NJ?BH&r7DtNnXmMkPQ-ZYa@EBNAU;|lNy|b z04#5LG=!Z{Q1P|Xk3k@Z+x7bsg3b1AIAziMivbrzrKf*8B?u1tDZvqPO0e2a31t4` ziPnrL+#zc~uo@B&Qd)==FD??o9l=F{rdY*RKOPW~K)a!lHb*-3%-dwF6a0^NIrXGc zCe;f)q`tq^3qW5$DvFy5f%*<_89}V95=>IpjVhRke2J7@e@E-ktkpQwYc;BzL$D?- z;-!7cBHkzYgd#o$hO-8kg>usV8);AzbcQ;T)89MUtYNiyi|;}rQT{yb1$RO?X$orQ zjkDDA{-$(64H9wdq&I$*HG-|bUQ-Mc3r@hAaWLUx*~sVer4PE!P*qBmFmr5p@&LgZ z9?c(j4}P{l2*yNj0%DA%%_$Up>UJi7>edb4DFR_xmtd?rTd6j9BBCZlXM!_tYejm6 zkmm5jN?PZU2;SI3R2PY?eWzB(`6K!P6zD6$_QGQA0TLD?*k+Qjz^up^t+SBArqSkH zQ^~Kr&*&q{u_Qd9kR%C(8zNc8xR}sMFOE~hb3+p>hsW$KhEIX0hRys=D%Lzy9H%bB zY7!G%E;`ws9i42BicU6FZHfIDvlw&R0v%C3Rp$5Z5N{}^E~+h`Rhd*VZ)(!a*>%+m zrn=x`C9a>P0pKD;I4SuX1X0n~PH}T#V4c$>z3DPT8MawIGV{@!{sSFiwdY=0^20 zw}m5%IZ#xpxh;ZI&ef5hNN>w(l!)Y%^QxCjjq3ZAbN12YDh(IChp=Dua$Mpzm!&Nf z6d{EE8W~CZXn9Qg7TVqPq_lCXS(!D zTxM6P%hMLR#N|0Ye2L537Iu%z9DWZn5l3C-jnN0Hd5KHFWf zng%83o(JoUtK>_9xk8(0Ie?2_$SL3Q{2)a2G@o=Lu=3Pt^P+m|{lvvaWsn%%fDDp6 z{k%DhtKV8^X<2SLz>RL`Y zt9<6XsJ@mq&mdwm{1okUJmX59aR?>`557lK3Uk|R&OL+*WH_l$0wQ^xWp&=taO;3= z#1=7z#OAy>hPX9$oOwzMsmI)7wI5&+IJ0U=5{W8#+Z1|Tt@>T>zrxeU8W5OrBNWAV zL5Q}=7ywT9l%v!Y)Bc=GYd?J5>Z?BN(pr!?r@^vbgJr!2%X-Zity!~MFKafYbiiKW zcTEwQ(zF#BGvcb|Y{k$Cg{pXW5eXZev56GDTm&%Ljon-Cfel5Zw0uMNPIz9+N>a2; zEmbruQ>)yObiSHvQIlnA;dA2eSn)ZO-7B^bZw7LP=R!Ta0aorfr@MT~&)RZ5G#AFl zo^-9mh<_LS#qWL2l|Erxrtu}MHRY(w-{Zk11ARBf5=yv#-wU;R5LW+kaLiyCksaKu zlZei?DI_#(Pe`aGw3sOR+wJo(;>OL>Q>kO_Wv5&9jNTD^MsJOKMjz9mI>OnNz3tZO z?_VkOpbHO#zU)w5BBjtAP1rW-I6&jpAMuKzYSJIdq)R0Jh%uQf^~vD}fTa_doJ>0J z4r`u#kU+)(IY%<>+(_9vV~F_GNV^+~PU`n?K$WC48v)}8&{NBiL_QBcwql|c`jLYD zFb;4NaOf8i+F^<`-E$i162C{&Os%KeF^H?NSFXy5uxdI?{uZU1*qVAf2P5`s&c`Oi zS9U6^BcfXPRiqc9u1;?@c?P^ZO4e$5qa#e22D3VWW6NLBTbmY#iVq^{gQ>iTGA;ZX zsE}{WW!urf4nCE}v~UWOm4nhXfuoW861d1756J!p(?!)5lIm}QU64O0;EBb-+6NXG zoVf2G(MMi9NK79_+Zp`g*eP1~Gn&!k(c4voxKnjc57A_=m;1-TGszyoTZ;h(^r5|pXl!qc)P7zk9Z7>0B zjVZ$1;<_C!wSIi$G+Aev!R<5w&gd}H#qz>PCzM(2NwGU5NO`!k;4=K!Hk$AV740Tp z2j30|H3R>Ip8V(aIgRFw&J63|hxG2v-t$1TFmd4~aqts*tu?=QXw2guACH)ddDLca zz-=*~i4GMFokVMUEefG(;3RS$_jwUDkNgRhJTVFScdE1P!?8Nt#!F_-9DD0mxezVGg>!L_K)QYFAIPmfrtMhN81tmUg zB|dB=K5QlAb?H=j$s~VfSu$Qh5%JNGB0@6HSZs2*5RB_>)>+s)RT_;=64Oq{7M+z`ZUJf`+6>YucEwkhGF8-}-{<;ZNrq1CTff`wIQTU77@! z>3ZnO898SFMt(>A_0TNd(&jtlR9@?s6K!sbe$&a;4v@{FCl833jWHpLbH7W}+y_qX z2tmp|?2B*;*{g^#S7B+3${~hfasY`$qA>K3gGbB-IM9zosWaYIfY2FA<85&Ih<2&5 z9fGY^PtRePYx9}gaVC!B%^sX)4+3UTDiG}btpvMHGV=1w8`aE_RQ5Ca=w zY`>IfV7m)x&;J_mE+fm0A5*Bb7U6egTG{!0D#^rPVOp`_1a#9V0_Q^C&+wPSk98keG3hQS< zn3uFhj%+zvb%-BurYqz%tu3@k<4VtgcO*sGs-OpzaZD#>HtVjMl^@n&v1=Wz$t4{^5} zF*I?H?ZTjhFu*_Ge!<(IoN<9&77dpBY`Q+=Ue)Xi^xg1U47oB0^c@%c4a)Bj0`g9? z(RX0=Ic8aHHnQK`RBB%FoBQVKSqj`C&yW{G(ir10&9~TDhS7SU>tal~vD|1k?66ob zzhR^uM!m9c*u|$L{l|9nf*;#;@fAqxOoKZE7eeSmIlAb0-)mH!~_0m?ob=CbDR z_Bgf;yC58-=J2*5PSHC$G7LP98hu_-Ek2<^J&)F6Ayh zySs~*(|ySM*fMt^yUI;vZcSI$)2yCbr*3jXClz9Ng0K^O8cU$7SxLAOAd_stP_6fz z*~A<>`kD2qW^vb^+l1g&^x|a*X2bUr%TDYR+`+nyeaZ1szcFiZU&-j)&=);%UEdWw zbph_vN&dZI#zdEUY4|*s5iiBC=}W^+!bIx^pmH4sJlC)l;g{NI$&==M0Z1^MW9ca+bhsUs|F{HGI4`MAu%Pyfp7Yx;Gcak}*6BX5< zLK2ZET$L{f$zlHSboc6EKZV=vT!lJCYkD5vN+&)GU?l)V;t>Nrku~Y~2O_2>g?x$F z65{Jf;vU14uvZ~OeYe?=43?8zBuS&!<7jC-lIl<-b0&cAj!KB@=*sWpbkh<-(&>)R zJ`&r`Nrfhw=k>u6p^=f(9E_gKcf z1Cgv>r@?xCb)>_(I#NK;=qh5@-siSn-YrT^n)LyZEJ;Z(m>1YKGPG2NMEE@&2CCae zvMIfWkTOm@r^bZit#4C|latsOyOGs$Ez(p)E!WjmBE74+xgDa#_6)!u@FgY#9e2Jy znd_Rv2v;o{3D@H`b{tk$MC9r>jx@Zcofa$4lkW30zmBVUh{B6(*FI zlZ!Xto$8Zwpv6cXG4*nFS*A)%DqWH$K9=jMHFiRNp^T9(^yuVqupc3;UR@$}B-X3D z8rhgMjqvC?dS!+9>J8xDe=J?2{`**-D zTZMZcVz&_)2j(^)S#PjDLt?}QOKGafl<^4sj}q7fbkF9|H0J;C^(JslT_7G+B%Uam zx~WN_ACMkyT|*j)cKhi4FW?xKa4P|IkkcGT+16s>>48&TyqmIW!vR_^L^ zs<{i|r+oxQLj7Dkt5S&d*)2}(q^!Pma*eAKTBtF72ZE7)_{;S{As?@EctcJtciS-s zMtbna>sYtPihCaJ!pId+^om>&u_`EYJqEdov0IF$v0KQh_0psf=CPDGPd7S%Ev<6s z^ozHU(kkPv(ki!ZJy#oNXRqg?!6P+@TlWxd7;shQu+@Bh zRUZ!VN+s@rDizcXX5MTjoQ~*2g+qaLzbJaCEu(!3DrdAlGaxIZH@TT2&xf(fED|=< zSh;r^XU_pWr)K_>ET9QyImTMsqxsl_3{dTc6Xr!rV=Y z)4QT2!!?Zw??05=GiyrS^oq$-gtpXvB$E+*x;wkr5}%k{2L)x0`CDUolZgm;yAhkl z)f2I-0q&E!6xP(GNW`%E70=_&IRAa2O>mMVVpkI6j^%=3VoEA(;OCSwzx0^hfcp{pUhUF zSt8?G3?UH}>erV9E6VYdle2P14|zFpbjVma`YYtF3Qi$+sJOc_@^pG!>z1A}G5h)= z*$8-U3-uw>9TWB2=#1Ss9pjQV7w}J0ndzGq)%-tM8yRRoqMN=(-gxmjS%~3qDe0Y& zD{0+kaJoJmqz z$_;JljJ)BU<(|HVwjnq3^=S!9C$#m$I)0=Nh@ou&qnK1%3GE8F1`$LThE4#9fClA- zARk6RKrx90-|+qLcIW*T@#0;fnPiP7-wiJv;#N5s2pU(@jOFY(O1NEjQffx?htZ@)F;6m zW@wvskxV&Mf~Aj_Yxq}&rOVFJ^Bx?tIWs0ZQw(h*_7m`zzoYW=nap45SRR%r7GZJ7qJvJ1z7-d%PK?$S}u5jpE5St>)@=s}QDpt6ytMMK+|lT=ilq^yS% zwhoM^WEL?^f0Nd~%3<55#Ykv_6;4F@Msci+>c#Og%8R8ks&&5B18p@jjHXD@Bxw_` z;+~o)qXF4Cb`Z*9*9u3`X#{-V*1~-#?A8|BQs~A3EISSl@1#L;-Ii<|j%icoJNt;r z_gUe!vBGhlKBNq8>&GMZmdldU^M_yt8_ z+Ghd{j^_fH%ZCgT))YC~`lW0%^j}kCyU_Dw;3h*Gh-(#7ok>j_vzEE6nm-QFcx+(f zMhk4ph+|6R8<)EYLe*AXAYtQ4;W3p}9!fMoy+pTpR*~pqTpx+>s2f1&(}#t8(Bslw zoAd+n^<3I0hAXunv($rN3 zc@D8?UzqW;yr%z$xD5yN!xLr*U359&ibdCAI-zB9hj_FAT-~kgp~TU4iU_ zhP}Or9)8^|Z(tF?vfA)yU*F1iZSM zJRG*RQ3wh9@}=+RMcV9R41Xe|E+ks1qMV{DTX5z5|) zHt^Xpp+P$8nHL|CnkiqQD}Yl%8~&iRhFHh^L~Ktyg)>&ft}Au®<3DoULshmbeclMjP6OH8C{aXSy_+Xi^(8{w

    OT72*8{t^tg)HZKXpu;!Lj?)gF*;@CcuN^(syby}UfNQ5t97a@^T z1Warl4im1f$0d}LICl2GI4vqnZLPMq$sh!V!|_9=h}e2vZvpeRmT(g>Wcgo`7O(?V zE%~D_s+*Vjz@@sqS&FV3L!4yfWVC`srN`(mJNxl&-QWHe8ACR@mTq-O`D98T$Ayf{ z!<*2$B+&7~5`+iP{=s$^N!nY+njw+;*bIr(H3yBI>zf8ZA@y%T?#ZSk02V{`8^d1? zB1wB38)CAL6z*hz_M2@tetm_wUjDQ82yuiaZiw+DhGt~ZO(n!0k;&~{7WC&+jRdjQ zdr^)q)%<$6K=yXn$+6`~440vNz2#URDKiaFkK5x&4l7$rg{*soTT4gYM@V&lB~r~i zs3gqLW<{e_w#b!dpC_kdjK^^?T;X8$8^o`336k1yB%g@S9K`r@EJmV+9EH_wK3pCz zQMLXL<)@FuRbf2Bx$MFb&UjIu6z4ObM)gNHrKw-W@0&BTUm*NxRv8?8nkAKTzLd2a zpM4`7iLDmNm8Go1rzmBM{)xZt%4b6y`Ro)#I(9Zq$Y)0e;;%j|CN5E5Of>nd$mX*K zKG7B^1}EB*LT@}^_>&4v+-J&@3i2Hj{yM@f*)PB!(-$el8X1VxG&06RItNKy+55JT zc|uNfj<`+%4bcju%W`c9KPorwu2VwUZ{iJ@O3>DOS5=8jEX1)rICg@#0h!%qtV63o zZDVvU2mgp>K%BpCRIB-*GAL*f5CZLk-5r4kl_bd2h%|BaeQd495~cik>Z%Z)S4OA= zTy=)$m0XE314)z0scc4XtZrt&4km7Uc!|=Ttt;m&c7{#`q?xlDscEEZ-+=8eD9wdEfPe1lk9$mJ`mj8b?ft%*`71gW6eG+hU!DUFg=L-oLgl>J^x~ z?jEk!uq#|GS`8!=H5%5a8t98_4L~hZtznhVrzkaSRHpK@PVv(Q&;hvyh3d2dKi9qt zx7I4dQ6(F(J^Zu+`ofwSyV3NnVLBs2-NO_>0;44y92?=5HKq3TIy zZ0~EMiE)`3T~FOL75~bsdO>Gl_-m>PXaF0OsW>(2RGcgC!iZK?DplTt_9PoydlpXe zA%W-Ep0zJwZXM?0jp655G58!C%CD3?s4YOV!Q4)J)}~=@lzFA>BgCKD0o`TWA#?Rd zT2u=Ij|4@KOl6<%XeH+;mruz*V%*>Tmdr&dLwdS8)%627BmhDgjQ|i)X>&QqF>*ob zZw_%ch!Q3I87=Z1NHTbAiHpinYvryY5;*Kxv%M5?G3H8;aaAd$yLW2t5%@RmftNV7 z7?CdHe660kCnFXLw}(`Q-+e^+)1&~N7!{vGIzY8;$=MDsFz%7JS;cM6I7C_dB!zz2 zk3wd^8+?vRlF4e9@yy`Ud^y#dA@Qh)c+32wQU!s>N~(OjR{Y^w5Ma?K`|^!6vYQ}z zPsY2p2OXsR(lA5Z_u)ITNMo40fWPBDRb+&QXMMSey6Ur!j9b^~t0( zN0SQ2OMSAQf1awuhg*4uo0{yV(N82Zwv2lRNtuA|)dvYBQwV+YbUO;SjXz&OZw>JUnimQ#|RysQOo%jA&U{b7)4TQhw`_GCI2nr z-a7j&te~I@_QGcD*>p6W7T+R03fBgxQ{Mu*{s7!F2S|`@B!nBvUH!N^#~viCO_w&LACb`k7ByCp6%A&{&^PI% z>nSnn_?zqoo95=w?1)shq#@mxxPm z-qw2}2q}~gS<3uReJEbO)TGHLd{^^dQeSKFa{Ej0E0q7Hd7@?^;qNvdhL98GZ#2vK z7$%hexH(7CT6qsk{P|zHMHO@apOF;C_D<3(W+YnjPc=uj%{bLen-c{kzMAI5Y#rfb ztK*{Cp?|1sO9nxrU?omu-Mh^nWdZLWfUgDs$#0PJ+0b){Z3Xa=qoIn>HgiUk)o8w8 zTOsN2L(ZdZ_NJz&Q_QBOTq#}7rY6Uv8Jn77Y|}P1x!3EqHJQb2+nSV)^}60>*@iPg zPdwe^xLEacliPAx(5##|*xSU3(qq(>>EwsF>=FDB$3=%vaQPf~qEy%e zhA1QBT-uH9ArU^&NyzXT0h2Ku;F@Z7+;FvoeO3xau@fSIgO9m7LQq>3VgocH^XpG1ix^M_z@(IH~{|ToBUp$}a-4~3q2*sH0greo|J*E^PSBj7; zMaY#R=-a^5t^*r(ZSX}qA7@}M+LaB=jCHU&*9PZ&;J% z1YAF+Fvos+Op}U-o-&jw%-S#~r=&>pmADEVPPdyW>*aJ96Sl>Y&rK+;!I}Pmc8%uGbyMHF z>iKvCr9`v+&X^jpgeDx|Z>rtm{3# zrBOvHd+_@kt?q}t_BXOI>ve}3-J2d=jb=Bkg5%n^Q0Jqg=8L7ubk5-`|M}Nhpct8i zwt6+$>lB(W$juav&5rnmM5WufR83z@=YnGf=1b0Z{Ui^tGOsU~0-P3tH;aN|&5I0E zdk`^n@2@O#C=E{RNa9ZuL(_;|4w?t}8F8XkDs)+-S0UIQrI{pzez*wnE*pH_Qn|+X z9I=aYOK6;4&t&jf;IuUJ=?2gK1}V!MvVxuutvt{eR=KB9o zMoziQhyTVgm1v%bg-g&pqLCB1{6y#K>cj0h*}m zI?a}>+a#N8kQc#2r}D)=%3+pH(|(6%vO!b2pq$}mI}?(Y&Nj{YSM8a%>>8IsC85Ie z&ipRBJv*u`yg0?isbY}BuLojW#1Q7jo$`A>bn#`8UAdagciofO_W5SAuc6D?d7Q%I znFWt00}m*s$1zRHMx8|+)8m*X<)F@?j_GmkBb8e0$WCC`tpf{*swsKfKpH=dR}Z0N z{-@#`f;b09wF`nYsf{l7o4X*bkto>$6TyC-o@J}IA1v~<#L1imM}VlBaZmvT2AE8For@W3;h2`_CH_IKPXIVf9T1OX3gmesg;(Aep+BQ5E{m&vgX#xvOrt|dx_HynhR&P#b6U@3~ zZ8j-mQ{vQ>Vz!Mdk5Siz;+j>*exXvBy5PX#3uT1Cz%sQ^X2>a&-6{bNatS=vz8zq6 z#B{2TRLpu}P7VB^R!m|l`CEGWsg zx6MOLw;9o z$;LeJx|j=;4a8VBYX{KTxVl)XU3q3FX~ z2B~C;i?P4QSO)5a$^2!2XqUMzvtiiHV{E+B2lj`0Bh4L(q%V6LKyTwySSx>i@#;ul zl1QFHmZ-Lc@XDTDv{<=+i8yHg639E|?_VOfO3YC7m3erS=vU*fwgqV^J>#lJ9I;P+G1bo*%* z&yD)c$!cMjRH&g!2t0J@{iX?27SU zN;hv_pTlnmM9s7zum_*Mp^BfU=rW6e^Au5h;zqCZhb&@{^!HA8H~*?02nG=a(g7 zsFz=6pTI0TF|vcz9^R=q(6|9NeG{;m;sM7x_3bFWq)Z!khMD4GC% zTS>TMCyFadnBs6tvZI8tB-_U@m1Q4jV4(oG{+Fo5$|Qrvk}L(ZqAEhxCYytcQv_>c zlB>mvcfZeaB-zo!Vk7#Fk9~p)(-uq(Taj7dW8Ysu)U6~mh>V(zI6EMe#(EObYN#gx z6E0NU2DYwKbux`Qkv8UJn(N0+SIc^LXh{)L1RU(0ktxlE!*dZ2c%K@L7kezQ`Bc&6 z@&?!(%3`YQu|QT&&GJVB*<Xfd##M& zH7P3bJ55Tc^oR7<7EKV@rTsD>p<_ysiF|yDQsm#7-wiKJPDw^=p7P}^Op0>Qnt$bU zSqmSHxo;7q2kz5$8iQw%Fh(tXrS|9*5WVYw(REGCd%gm}rUh(VGc(pYvJ=JEIrds!8nWs8HRC%gZd?@2|8+4&e zNZHqT2`rpSIq?I@@;iBTsQw#@NkBb@Zmt6L+?{HE>VLctXq2~AC zNbTFh!Ytb(9WIeQDfRk~&jP*y55Q7eSJ!PE$p2{V>M{UqiP}MP#nCOUOnWX9@wLs# zDE^3%9oZ7R@5mO(2hbXp!x+7P#K8WN3^WTTK^mlTAIh$-U-%mf7V+g03ti3Mj`^>3 zV^1HbQ7z?95Cgv>50Hb|ykkJVGu`~`);xY=p3L3#-5$zr`sa6D=4Ok|7r1q?Vd{#x zk!#gG=38wq&Sg%YbjzoUZ?NSXmgAn>boYkmNy5orDzGiff2n}JKPv^CvY~Uy)A-59>qJU)H;mvTJ@|@bV0Niq*};yK{-oG_>Bv^~`{IjQaFGuQCbv+(Zwsgv>rOe^wd zzICb`*?Z59kzY8KpGa^No}{+z=!`++dZh zDzfd{j8Rt`y0NDktcsntZ2LCK$f!qXkhM2B%At%r&u zCbD=nH{T?O&e@-|wplNQaoYY&S)w-m#!#>=^j%yi8&VR=MscY(nxp*k8_oLU8_hk{ z`NK$f?920Y$C~*ga=ZRe(3iD;gBqe=aYX)!m={AGwqrxFE(4U~V(7=p4a@kR)Ozgo zUvczK?Lj|PPrTQ9(#yIhm-7iURDbs3SGBDOQTWvf^oFQSpb>h%?S8HQ4>ScxO*%B$ z-Y4){AjIw0B+%=Myj6TWwc0+$2)GOZB)@j2=6#?qoz!vm`buo*W+EDOPWnFVZ#3#V z?&$P)@90ES-iI-cCfnB8G<-6pD3xB(`upF(1pX4_bzpld`T5Z1p zAX;<;jY0wyhsDzm`Fra*emm>1bs^nO89-uw<97Ca#YY?XDU9X)TG`vMxD+$cYzowU zA{tvc$NRO~IyCaZXbf!SZipu7PX&f!@pd!?;ZMQxU&}hqhU}2cH4Nwd=C$mHJ$25b z>xgzozdSBypNYzlY5If0V>Xxlopq{plPhLVnQdjsSXvo@9j|?Q+NR&l3PAFNEn|f9 zHNyEh20!R75}VhVEch)3zk`uau5YM!rhKr@;g9-Y-4eeQ?HX6FX_Wt9T|wRM!Qg=$ z(7jGZ0wU`#8S6c2@Piiv637f^U&qS8v1ZZ|%qY5fG70emNeP0+{@~bZw?8DddN%mA z1^2v)3}N@+iR;`wj*sj|14jc>9omoTQ~Ocl82F54Bd0Ts-aYtKjoTl3sz$QZcGtvn zB{e~5IJo%<;5Qu~d4DbV3Cch~v;(OzERgE^1VW}dkUEc#45ZP=M=G#zn4){(@21E1 z^yTkZ%buUX2U5;`OgUriT7>Q&@CJW4gWM8N04*`d2G5mU5c9HV zdT??U6?4o&$59DQ>Z0EU++G(L|;FPy|9q4 zq#SWD{HQgP0;*_mY85s0<%!!LF@e4UR*na|jPt-}ZG}H!6pzlJ2xwj@V zFg=9oL-Eke=%u-Yn=Fb(2798Ym>ESc;r5cMS*T`9)ip+`nuF>oS65N{O_W$k53QI-^T|Q@PyyTzbzV9V@tzU%f!OfviC%j z^f!v|H-<}pV@>EEYOoh=oG^1~qr_0&Jlz`9gBZdU#B*SQ)uJP{cBt)gx}WdT z_}a+ThD59euJOzYFYu$AH5Ys z+<{F!35mAe*+i^_cfjR%JYGddCD);E z;N>(|MUH-eLzS}&7D+bDl9nvZ0LPFl7;-f0>O!;n>cSw8X+XpfPc#8M&5*TmAm?XW@#ZFIQ zc94PF<2=80JT@kEJeDLly-6^5?Na3V=$j#HTYHk?M$o8Fz$f37Mg!u!?DK>qA0-X6 z)(2ko*1aAQU_9g@39ol4l%#y?UiyJA@kk$=`S2q0v;6;4Xr_qh#}pCaqa%I9hZtJu z068xv=D2}eG4^_~o z-;#NGv7^+8I5Teg! zOS2p;5bgVCz%}g74jcvv+S^Spmnhd@={C6@u;T1pY(PYX`~e%ZQ~cv95HQ&zwG z^f!Zz7;>C^a=?xtQgq+FPrbCi0{=X`b7g;R$$j?)1?u|Ux7YA1`;&4BTCg?Cb{}a@ zo&D{?;tfn9`P&&K@odeaAJp}CY;Y~@PvR9|X4&IDR(KR$^6hZ#G-BlD!@e|OUv|Pp zY~b#5;+dTOocKa%e`R4K&bTQ{R(uWSI#L2rfPjmm44~$^lSv^KGrxU~BhS9h-Ikes zi@S_HT07kx%;GK<)^r`inqk3D+<}W?g^kJr|Ky+TRPFl$Ym(^p^E#v9j7`0=!9``y zE5S&6TWMUCPZ90IePCzaRyrHQ)ekP+<(!rx#$NFKI|*YGlEkk$RpJ6^P0(VJW9ekXMn_t(E2^(#>Y^r zh)A(vE|aaP{ALs3k6U*T<1Y}Eb(&Vc+MmE z6F8GvN_W594vi!vm(PceTG2-|sHpgoO;^9JFW;lD+@kHC!U%%P;#ii{w=xP;7 zseNoj_ijJ_`2uc9xg1VdGJW+$dagDD@YLFDK!p5>_o=GxQbY^$&(T3yFAMH$T6am| zzJ2_K(E;L5v6obZ9@?C?moT*85AXCLZ@f zU>i%GCmtMO%y~MnK3Lq(BQaWPkQnYP2^McVOG0Vs7?IsG2As3gW0Yce>c?usM>yo+ zhl>Kuqr^{C+|1?g);baHRL3S?Qq#Yuxzx7hmu5g?R5)OLqLBZdQJo#Q7Dr$Rd^-N* z@0q2xfiLYPWuWo-dw-AMg`UI=7s(Hd@@!rax)uC@A5wlmx4injr06@;`uxDaQu+aX z6{_z?@Q)Z(`S4J59chddQy-z{a1T~^5QO3x5_m*}S*0y2&ar`>#H0j8dOk=%v)o1Zd8mBlW3G#*Q68ZQ!d)$W)7SH|he) zXJ0{|d0WSegYKit>__M_9bE=5HQ*3rKvHQ~nCk38BrK?1d=2fn(mz~Sx|a<91hpYI zWMZWBFSY!|Nix1esXDu4FS<6T;>V#fcBy`eds1z43Tk;B*d}&f=og_ryDSEsR=kbo zd}+s)2il7(1jBqwnLA zNf?UtBmtb~FP4r%!gTziEh1OQkGcPUK!}sh4X$ z?-!$+`rib)l!Frgmq6D*#Cmc+amoIVKvy5I8D8sVGmseaKLol&6O69tHKCc1+q1n# zMN2pdX_I99{*u)5l{&c!;gvy%CD(;VzLM!!2UrkC%hQ)*OuB``_rY2y$vNjiN$$Z~ zkAnj@0QP8l#?~xi8yO^Q(xxYqHRLMDGwEbjdZ8qN*Is1hkFzxVx?9E%19n~3t!Z~= z4fOqvtO<@+vg~Xc=A6b#;VBxUs zL0w&_j@=})amn@p`r?;7`qY;^Cp;>7S(SIn^h(Zj(sK)MJ%fJ|VmZ50UCvYUW#8jf z7dLy#^eL0;YiC()HaZ)i4eQJeXKeIeI?mu9|8FpJyzoXnWEc$oageK+QeW>(IzC^R zczix}Nr32UWt2ZYKPN-*k2~Jrr2Pa%MH2q&2k5-887 z>VK7WLSV>~-vXd8fi68saoN43M}65hpRATto@!OyNA!`5I>Fq`3P$#_vK6*^>n z=8xC$6!`87wf`62{p<99B4fjr^ zqp4wGp3O7IKJjNF5$^tr`P%gT4fodb!@uE;PaCwxXSBB>q}t|x^In^R-r6mzI1n`R z%gTg9b>!IsM@8M2l^^I}vFTv3>0q(xo-r77uNWjhxw+$Efw^_gFo%}`+|JIx-a^Xl zVG)N&Jy9Im%YR=0eMSIB>If4)8Q213S5u}+qV!L6zMD<;Ylwl{Y0o&P_T z1SllP_;whd8=$_!@JEruu!MBEz*u|rKLrqs-oU>_*;NN&a!LXSy(av30fd`l|F-}_ zoFst2_n45(?_lRZ^Z=Plc^l*9C%h=IyL2%=VULdg`&gBuH@{T}cH1r;w?pUh3A=P| z&mWHhSYIj-h{HgO?X;T8JFTIWoz|e7PU|fj@LFR$ynVSae!Tr8;~j5n8!&0SN!H0*tC8pVNzh04VnGb~ z<)B*291%nhNI1Fa462AAE=Bd)Ib7A;IMs0zX$in!eq~>L`<)q2`sf|!%%x#-JD^k0 zC?`jMuM31S2jbr^)7q_*K=*v5{ZNFk|2T~x8|n^WH2Wr1mVym@DAG-7DPiYq2Rj?_ z^E>ujoSxzvGu=MjjhO*@-)=`dqSQBL5+&�g@XtDF&%cmLr2p~s~M@)QW4>95!gs*M8&^U{Ko|uh8nkE>x@2GWc-TN%M9dc1zZk}O2a$Gwty?T)v;?VbP+T|LzmJ2mnFgC~0#^l+v~GK+Y^SC##+dq&*s z>E6jx)O6eAUqHZ~{M%Eccy)XwBTpew&iEfgZHMZnEz6%Q_$$vv+^%9|-WgtJA{@5< zDb_)x=xBp*sP5NrZ5&AuR=J>n97*C1)kPD>vNYED?kbnTU#pVEjl`zZPQ;=EoT`@* z`)*bW{wk1mobrqUp=x~?6Da#;s@-3?L2Ex$_e_}GU-e9wZKG{(vx)EEo{GT*{RF;K zE42q$*iLWv!8f%?8zAp?mA3`+R`7td|bZYF)=-vPaINB8q(xCnbmF89udVU$su0lSYVZyYK*h zDf0soQDxpm#J#(S+5Iv7Ov{p8#JxSJ!N3~>-_g3Bk_n z5rA$l_DHZ^~H00VH6uoQ9vR@1Uox**w6Fd)>wD?AcF1SmppvjNF_Jw#T~EU0~p zWm9-jJ%!hF5j@B5Y|eb#A!I(jz1j14IB$(BVBrk%E>>>q<{E|#dDZH+e{zNA_r=z8cmKz0vORa^~spBiqbktEM=v+|)5Zw7Qx z>wcBH&9H`)>xoYD;ma&Ay(;%_+&Pww>g-%eP}R5x$Z`ltX@ zpDp1YYNQk?CMhiEui^5A<2ndDAJ^%MP@kcPK({)(HJmFAARhk=F88$F5c_$r3xdBE z2IxvKHHFEGl^)=8Ei+WTEjnB``m}+(HTL@%ddmV8n7%}xJd~8@0IJDZ#5ny_s5!=e zHRBdkiVf}MU_`FhyQ1UbWL@WE1tZ^%5 zL!in(k1E52wf?vFQRNEDm>+P8~ zFEXkLd3Oi(?FAF-$^8=Z^U3}02XcddCZhx{bxH$-v#^F&dm8-pX0>7b0ix+e5@#{W z7pdKu@~sL2TXTC6^2&b1W@aWur310BZCx*+YMsjNuUnzAFLOzG?ecc1gyrMb&Gyf< za)eVop@g#*VyqZTH|OG(noX=E0%)dhB1n8~*N2&m4Z<``%9D(C3H?aYC0h=a5J|p^ z>rV~@+#$l7W%!nxpw+c`7O^Q_!g{V?J@v$@j35@nS(R<3Y8%<2ibLaEVzuFZH6|vh z%p_%9)vFj4ygE3Kd=z*bGuZsALx|Oa8!~LfcvTQnH9MlI&q$TfyG+52OIff(z1jo^Y6KnaVzFHS`mj$~zdMycdtm;)v44EdP&R+|` z#1+91OpGQ%&pztR%q^LZ?-PEoOe0PKts6R80}8izDwnyNqbirN0E0^ILH_m%?gVaA zXFOyWop`a?F(*d&#A_?K@nTST38a)tzHqmMl@QU~T722uQheDl1gT4+Xz)R*D86i5 zRebsVOvnil046ixrd&j|#*TTa5HK-7vvS!3uR`C_R1SShQ!KRw3D{bN0p2y0Wpz}m z{t*d+)6F=f?lMsZllJwbgfZ?0Z1EaypHplq%RZ#L;aL(1dDwz``BRXfR;UE|R+fzD z@Aj#WGJIShWN66tfSgW-9=_i&={7^Z9Yi4*6{UvupPKA|N7(^{hjCRsF)47?99M|( z{y$V?<4T99WW#5|Px$bK-@00j&;>ETp&Lt$9kKN7H}OVo#S8WnrsbsQQ<$R1*YqG! z8upWUd@|L>4Uyerjk`abr+*F)pqIlva4v_DUBSkrYe+Zk=(~aFGavsGw{-((@IQ7o zK$SL7~$@H48l%$Ln03Dyma1oKpKi4o1?v zaXyAh6NC#nMQX$fCzPg^;GQz}n?v|1sSb5E;d>la$)X6~|K&{^8yI$yvyZ{QKuaw1 z3tytgsZ--BdMO)sl*32@CXy@5;tc+U2}0KR zU(qadN?Qh>|InTRBxt8w7{s(nWS z%485tSP2{s`7}j$Q_iRMMZTaALqDBh_f60V5f^giJSQmeRmTg0X3ldoUeGth3r1*r zMi&JCq0)aEF?#D~;kXr%P`f&UsNx0Nr#B+V=sGklkTO;7j39SE+lYgE9fNQ`KuzTl z$nhThpQK7FI|)IeHxMLpjlUF#aLVt2B&uxE&}AHf#ONKD0L@8h*0vO7luy2vH_O)YEHc!za+qh=@fFMg&<}yW$=(Ui`T)&jCEVkE3u#bF_rdb8~oK!5O`hzacrJZ;%qa6uY{@0pROW zNBOjWK;=D@MyQ~=tk{y}YEg$$4mmR#N#;_ATYqP}#^>W74-ngW@k^pWNT!E{?lQqI_{0YVM_E*rkrD)>tXk z5&6#L>!|@?xzQ2P5p(&aprC_}C|{3HJ;ol0C`Dg>$&55tK~Zbv5j~=!NvGTe)l&?g zGL$ePU|944jjk%9o|dr=Qv7{AC5|(j>JE=QW1x>;k3KA(i9SqB*+mZi$d{aj9{iF$ zyxp-b{Kk%q-&w>h9F9MQb78K1{T}b&;PhP=ezvDmdw4o-`8yB#M>(bd*AewxaQV0F zR6$8tdvf5eIZK9=KqCs{Bo{9MA9TzG8HF_Kd$;`Ybi>m7dv zrZTSQtRBYLvBB0EdE{HRt-Svyqs5H-5kScsY?jP5rNbcWD7uw=^T_OX)9zt4$R46s41`)HTmz4cN(X=Np zzJ}=V)|!5iFbrry?JsJyj*KI#)S4zKnzqxwX-m#6oM z3X`Cw^b7f>wIz%7bdYV$3 zt|yN#bPYPe@iSyLu`woA&k2KFt4K^N(G4P>ysF%(D*Pv`-~%eHQT2{Y-*01b&Opvb zHf3lQvk3{hd>O0HeU+s{(~UVdlT98oTR%Nhc(al#;z?bdlvF}jDknBBXLxUYe0Xm? z^vtR&Gm(HKwF1icnX*`2&aw=^){y7r7Aqv*VrfUZm^^A4eRsA2PO{m?d^`}BTukqh zbwEVhjF+An{ueX+FJ?r{@)e5V;wKC@q#CdD{Aq;Mzdemi7)pe8GL4X!0=~Z{ki=&= z!i_bIuD^!wH7x^8W^yCbFri|Lti75!BV+GCMuBv((J($IBOtS^#HDl&tEi8wx?Rc4 z!7Iu-Q+xGxY!7WhCuN2tG}iIqnkqK8+-qs`ck)AU!Evumgej8zmV^N6GE#i#tAnZ@@5pd zoD2J_WQV+Ao{QYD2cS|Il0K=M`yeG zgjYz^UqY|b-UN5M^6)@;?5mtTrU*#_+Et#B``VSln+!H5wBI9YV2WD31pd5#dtY0< zC0Mf6EB{~4*H*8-yFKFnl%pfs6?jy(dRsUsYqWZ!x_hK`mmL4U{I09woq`M-e5A3r zE9b`B+vO;h4Sp_uaJ$0FwRg{%{Rtzve-xUr?i{w`YlG>bk z)oZq2^%^f;_41if3^`=OL=}8DGs>*J>V@uki_Pdw2shh%N4Tg0!exhgM-*4!;?`XC zMrP5c42ZaUxh)i~R5M(ux~tw5gq@1w8l7OkIwS!lxW5CI#*NhK^=$#UQS59?KNmiCW@7}y&-Pp^7cR3hh*lh zow)GsK97T`1u}JgkY2Gfh`H_Uxvb`{*C1~&Q>(u4O~$Ic>y_DVT?6D0(8_imwX?TA z!IB-Y7TfiAy@?Tff+u$dTkm>pO_q^Qz~i_xqlW|_z3Ytu+;n`8R2*q|8t;00;ns@T zE}*@`knMF>7`_-A;I6En{JqpJBhJ!kytdJ)N}CR3con;F%{>-e6}s1~=4)^lQNnuG917|7RWR2ytu<+l}+ zJefkfLA`Zym}g9-SUj}4t5%;{CW<*jt2OW_+=}GKAwgYNS9z2!^y@f%?t9Vl6JeL4)Q zE--TRoMm#>nY;CN;%`M8ECJ*XCIKqr?O<2ccB_m7`}b{h{RuUm|0_jXS(C;&vVN9# z#uJXRqwSCaveE}Ao@@;fjrty8VgcVnF8kIIAIJoxdufsP11S5nTe0i~i_mU5LXi6# zlH=`xtxhm)&N-E0!73ti3zJ_CWkPfOp+$!FASPfUWmHv51U!nM%XrZ{$ATVncg2JWcZP+JnTgret1B>6^tuyE&8yV?)W9H6=p3 zWj&NH)*OeQol>QaXk{q|_2Zu-Hpf5y+0kyi8DS7^;!SLpYLbrin z9awO2u{rV$HHQ?Lv=b^fGIg=aR(N!*N*}bnDyKbyQU9v6SJW?lf>}G$w$gimPz6!s zLQmrJTw)s~y}A)6Z@0$QxwJzyCKEU;E}qd!)2KiuhM3|5iQ?|hsG7}pe>SP`v$ZKk z^0&Gp9E;&6jQCtCqrQnj*<-I%_Bt+=?rNz_S|F9Z6Q#0mR(JWkRA#8V%kxs1{h?G2 zTrHJDc1mU52&pWbB$dO1rE*kEcX>xD$NnUh;}4^>lr5k}=v|sCN`kP9FTh?9mRs<( zzR0+yeRy}O^ml4@-kWM-191Vx=%cv9zmP|LP|DUN37;FHY~-3Diut(4y*+sSO`iK+ zYu>m1ChWzcM{!Tf&CgJ{!&SlvUS#=zmJMC9{O;MyW&!M zj@a1x4jeuWjUQ%B*=N5%ipATChb`ydCJ#7CW9B>*pYZ|_Q{l6L5&3m(?@xdB6htl+ zEl8MqjuijoQNb_edZ;npyc^`+mwcZnTpg$HL*X5TI}?SdJ5Bhe4ld}_L%6wKhtS%p z*CDd;dUZ7?n-x>>nrxQ49Ui#v>I1}? zr34~4D6TT1Z(^==7Q=HDaDB1PG*`I(*J|)(?ja|MIF-6v!|&0-W?x&ixuUJwsA{Wr zv|8^`?h18K>*f92iTyKt@N)gQY17toKN>P0-=h4tK0x{=Lng~g##=#ow;CV*G}X1w z-bnewzcTz)YKa>tD@L9fweSmhFE?hl`tYx!{o7!T!>$KP>hP~dG)P}jcZCTteYuB( zIIb}4pR)lvvl4skn1F2@+5J?&0 z>lj{qpdJz`zKubl{^;;IlA`bq7-URdc**YrAvhci1zhU+7Q?@#@+kY7pB@FTo-T9K z)d#^VrmLpQdb)ke>9WD@no_TKSP zRD1vUXWI7N*`3{NN!i)mB%8jQkOG8|Y(hd!NPs{>4Iu;w1PCE00+A#TilT(#g^Nm6 zQ4~dNU_pX<%|=l~ujO8^0($L*VhI-VeGmHF=U$)Z`TgosR)&YYdhoN4EL&b!QJ zg0)ES@oJsTqy+z|oz0907V2g*RdVTU#^67{6vYaW1iPD+V%faZ_Uy)V? z|M9c(U)y~scixL~wMbBN9;KWRp_HpdS|zVlc6Z*6VueV8-N;1E*_2`p$bii)(keMc zDOQL|OlEi#Yv)ibxt*O2+f2!24JTJ6ABdmH7@u2*b!Q;PS*eU|R4_w=@BCE3sQH)H zQHyQX$t$70SASBcT6;C*>-i~TowZ3$wY~_c4=bjVh=o6S4GU0fw@$`%3>m-tiiO89 z?ZI>eQxT?zu;HJ-VBvmD8!+92DFxGBYuO!uL6 z)g+!HOYptOk6mhC%hfK%-+c9NH&ckQF4#$Qf8^peX!&gS%_hBXXw)={JGgq+YE?1h z*8pm+!hd-PeB#cijy@_Tc|Zpg;gdW1(iv0h_zfP@?1`-dZy)L3He;_N# zb-9AQ?|q!`7(0qW);u-pXf{>E%tEmmvMhKv%lge1<9ye&CH$H0fr`IJsP8l|)6Ykk zq=85}w0>^y0E||@Sx|66f$?Y#q`gBcU z8%7{g)?_76~w$0n;Xb?K57G1yoy8I^R-UG@|*w3BPBEP zhecB5R~v{L$yaOLG27#}W=ENhWd;veB3v{K*loiW7bUEp^C5$O4zDTSIaN9nTc~<_ zI5)VPwg|qH-Yo*%TW#5N^tL$Dp|{hlI|t>6xr4NU5;i)Azp}n3f&M|DiUv)A7iO@jO&1Zj;WCIBUEiP|qRb4Eb)8 z-Xf-j;l|v8UbidI%~j+mUG=stk-T;BTLj=U##uI-R*`wrCnM#^oLn(j$miq|*QR8z zMfQb}S%6&sJj;L%|Fx~gz`cCYDCL_lCmTn1O}lTZu$GgwySLCuZtSb5*?m*R3JxIb zL6d6?+nBzTeN#1bbEVjv9>L#330~$1FKN?!Ge1lLNR@0tQRvv0*YIp+>nzz2&%Jjl z9bp4cT|0t60TXPKDp@fYp*jLHyC%lhCY?8GUS-6$IAfqewQGx}lB~BLf&RlLwnh;N zXpdvffv{@VeVRCymKbPJ6)n?=#}NMXs>g5TfZXs`U0cpZF>hgff*@FO631J1Es<5H zJNSk@gA~k&r(L6>u2O)8AvG+z9++v#NZZO*-X+YN#4Mj=PW>szoH1nJTnE1#MQ*yw zQ)GH^fF*x*mN|b&?aT~BD@5y;1I!sBSzKjVwxS0IFb4! zz*uFj2PE=gvM`Y;#BWDV`a?(p45Y;vke13up!h)YAuy|?w_5L|Sowy5WE7ufhREi{ zuvVDH`*iH4(fD5mw77<0Pj53YCAvz=VHQo|#b=nQvJDtB#A<;K)9tmuPr)kwb+cEP zD2Z=w)~n8H+^MA+@vLS7e(^Dl631xZAEQl|M`upSU`A`iQ5vH-naP*Oz(GmeJfm7J zyM4wKx$HJ2*`y@5&Pb5UZkZ8_E|-#QP?GgCCdp;%X57!=s5+JHYiH!iWou^e;&En* z40r0uIG_NND&}iq#0Pe4hDgzHOHW{x#v~8#fp{QHC}no(4nA^t6(hE4L{vB1W0uQ$ z%t6$%!{FH&GrXO#Rk+B|29g{c9an0oaHk4EpO?&pHZLL!3-TV`MYc(ZH$G>MM^i)saQBDnHT;~J7oYm?6ACi2 z_zaHlZBv03$b=x{`aQ_;l{_Y-$&}MWz`b7o`%*mWE>gjiJI~US@um}TjwzZ*(LGTW zr>Hk*6Bu!d#%#n%PtnL@ra(YIIq8q#>XGMCeau~-YkrZqsJzLVf>MKjvPLIP{qJ+G zynbIz*8E@h)nr`a|L^;1D(}^sTykEu#xKsje!_j%Pqjb}&jY>x5zh#(|jI4iUe2GgiMPn~7w)ABCHAcBOUgHvNtvr87BNzKLF@_3& zRW+iFlRroihF6(_VwdU_hQmxVnB}61BQ?yhWFA)>R!w3BlP3e~J_JwIC}t?GxEW`^ zfU0Dpl9(3IB>cMtq{kK(Xa7G$YO>)>a)=o$n-|bfF^l);{Wyv%>Ucb^7F_O21l97g zZy@dW5E^k1U7m#d7ff~WBXyd1fFtokwM)+V5Rkm#RdNRYTh6UkC1=pxj^E4N zE8p;;+AfcIJ0VscY{f&Cp8ormS7q}Q%_zD3o7owf7q13;a_`4u5x5`KbL^@^JgA8< zjVIVOnR4D$wNboO`>&I>8og!mP^0(v zjIU&ya>L~R+YNJT^mooox!}A1+SA{}yDrC(;bHI7F@}dNo&ATc_Qb=9+?0rWJ&>HD zDkbipJm!LC(S`K7{*f3f=;|K^J|F?|QBv}7dcC{>4Xa)hO2wcuv*w-t^!h@8oU6K! z6^Nt6?w{hwQ@a*9e?d+VZM6PIe3y>mSKlEcJ&p!(LwBLf0UOEyYu}TBGAp~t^TKju zJdKP2P^CRS>h+iFKSI;2{+}4s?#V>fkB?LOTp@%Vbs#4T|4Yd3LRNepes?pnvQcPB zBXUZzkaGiaa!}|IkQhDnsmKA(x@REDe0i2hpW7LS9ichcGYEpi>Li3p?!`gVJjO8? z$20d`GQS*meRAYtCkKSNdm20wc8P)6(ZAS)>ng{C2E zC<@gmg+`&hS_RC1Pd;{hH~vurpfoh`dq+VW#l3en^@v?H>3hen&pyuZJ*r*xaA@zt z+Dgp>)cx|dZuD6;gK>8IrU!z%JA~6>@NU}v05@kd`nk88w5PN89n!|Xk}>L#_Kn92 zm_yp(-@6mME8?GU+!X(Wb$R>~_T?Tll5V{Gsqga}Je0BT1{nAOJ!U%O{|6Y2H6N2H z(9Zb&L2#RMYm6^J?=klCW@z{|Gq1`CUaUH}_c65inWNVGq@(b)&#a$&pJWPOT@7%` zJHYz>@Wo(9_fDXQcY;aAfxY(-m5Ts?Tnd-q33Hiv0B>LC)xK{q6c4=1M&A#PLf;P< z>u-dRi0=n;yZxKmuEIW16KZ{$Zu#(x2-mKD(0@J$Q=tFMqmwWbHFrM^tjc&Vb18|# z$(#r7IksELsfCdn<~}d;=cnil(LJoF`sOC_Bs)&rNv9p>*M05phOnizVcpkgL;+NA zOkubkgKx?0Uu(rP01+HSSRa^zF6dRxr2c%df_*N*t3Lvdkuv}m=ltNP&H2G!sKLtT zSlNe_b`@5VvNVtsP!I*_=&jaWPY)=mnEyk%*u%Aogco|1IEY8RpmjNP%_Ewy5`znlEC9P6UeI=6a z6`O!rS^-XBsjM7ADL}M!NRxx7J*D!0?s6AE60^mx0?UF6)4vM*=eB>~m}-MB6;%J> zF#aJn1yCnV0l0`P7g1r$MMMC~m;a&IE}82R{~kO&qw5bF`fmwNU-Z9Ze%<=V%NGSlEENrSOx_9QO;d|VHf1=yu~2N!QA|{?umD;j3RbBQ3Xz#=ijJTQ9X37@(05b&NDPmJ zQh%cj6;t%Mi4+B2gPKi1U>kA~yxpXr@BUk9ZW!1{rJx?IZ~6blKMI)QFsOKd5rU?y zcbWd(&|PU|1nE5fH40Tk;&s3q$~ z0t@4m1#r^k3Ccnx7A7hSldw>wEL7uzKN$*w=b7{=Jdi8WG)z-tX`rcn`8al8G4K^o zoUJnzqqFEir*kBrxF!X4p}WpcYhtYxBUtN54S=ct#>}c!m|42i4RnVSzXf)qXWAe- z@*6h`zCnB_8|18fBH)@8a@G)1-^|0)w~JDBwiPVZ{IB$^R#OWA|E59HIQAmM7h5>q z>baY{oc}MLnnC5_9qEF^fT}he(+J`j>9Inj;Qy|Z0RO|gAd#2g1J4!x&RrA8#Txu? ztLPHWuCiZsTh_^&M~ANNVclOUOg3#|NTCB?%DJL)BJS@5V8jW)h!cR3$O)mo{PPLs zs>2D=o36yb7O3l^aOmpQoPM=Ja+`th%!dw)3t*sNAbvbL^QCM-d@q|T|2v`*sbqaa ze)~7#8%PV{{0A9}vw-m=n+$YA0CyBvf44J!lV>3lgITyQy`7bBSS;M0&Gu(u1DuxU!8 z&L)(onX|OzX2G0pQeW19k8nl{KEk?G|L+#P*J;%g*h_A}izN(lc`-IDDg(q3Iv^{h z_5lE%+%HQTyij-Kq+x0xqG7CZJ$%?*f}AX@p%?0RLEl{(g^bZs35sMwdqe>zrATGb z)WG0=F!;w(T&KUBq98SAgOFYnTGEr-Co6lW*Aa=V!H?J3rS{1?h|gpUCMPYv&Q$0G zLMvL;KuUaZMm3q`YEtc`rk?2%_&8%sG+Y9efhCN@UF66BG9j!I6(%^+`(>Ar-h`)y z3M*q=8f-hsB?=d|Fdi$Kdux;iAOJg3EHKd>e!Q7ju8|r^1+$*1G$hGj{umeq#fwIM#Q2UiCzd=rAAsN z0j`I}l%m!ihZky^)r|J2xr>Sl`(#?3(WStG73R#jxA`VeWE6(hCwx~Mhmk3u47*1R zsYLvE9lbdO@#7bRx%3UcSP3(2-~W87UaCEjIsgwDLgCx@|9uF3!M7Xw*|jMl zJL{trAd9$6 z17AN|_?~s*9x$~JLMTgt!DaB%jvJmV#eyQtZ8R0XE5K&!1HoCmOBlR#(d=EqVjiSe zzW9)a1#$Cc&6pG&{66JkkhB>iLme0vR*QPI084T}=BS7nX8

    uHWd0Yu5_DYLZPe z2b=8kP7yQM1eRyeWQhx!%*(&Mem!NpjbhBz^G(A0hM7)<=9&Jc&XV ze?rb!Pqt2==}H%C)&eTsCs5@S-aPE|0R1F>zk3_?xp6PJtyB0-ZbWat<(!A|U^)3G zUh~K~fG)q?%JjKayLb^se3k*6{5OM+&k|s`sMYkb+%+wbX%p~{=&8E{aKdDUBUm&I zY{CDUoy_dOWj$u1H=Za;X2fqusDanixuX|=#=P81{N~@>rI=Owi1iFKLHnv1Kdb*% zpZtRD9@^~1y{Pc}|HMoML!aa8Z(`V`OoGm{nppwCgZo^3s8w$$=J5$v@RDy@qUXJ7 ziNPdm-c&@v{ypLBBj2?A*W|$R_09i9$og&5fBaM-WGS?(dbLi?e`<`J`Kd95$LDA< zKFKY7^{V3lk!@I^HgC&`sHSmwC#OFt_>RSu^=hb%( zv2MJzKw(+T!@w^=PF2arZL-I1S)Gk*mV1$`Y^yoe>(Lq%_o~*>w|FM#hcM+sdoBK1#Y({Q0gs$J^7jtyD|9|LBhg+ z5|#fVSWMRhg{U0pjvX#koC6Jd^V?SLj*!^n)H(+CIHg}}r9|4cFGL?$n=n3f9@2xg zWmFB^`mAV|!#eI0t97&TL7G)bvlM3PHLZb})eWnhYZe1Kz0ro>q?5K7@X+Q)&?%vx zAT0DR3HLTr=msvXAybS9pRbjja?IA?fR9ehFcu$pr_K2eLM z7Ky$dCQi~CCyE;<=j zEeuaM&(7Cz!f<~f=7DZzk zS_GR_H#o$AR`r^LO8HO++5so|;O*D)SZ>2Q{MN&_3)vB~JktIezA_~OI6KwQ2HQ-^shgB)&s zx=wS8#5dUEds;F)wzwlc_OfTZmIEC6JCAwh8#=?^C1)rFAtgLX%mlJ8OQpH61($km zFq52@V%B1eE0(YH>%YDc^6ZwLmHLqJmSVr-g05zELvwxIDKyY{Oq-==xmqoqNQk2CWyq0or4xx0wBmC*SMWsAnV12EX zRReTBHfeyaE#!w8z_yaU#OUvY8QX^U?S?qp3@hdkXe-3LG#by|YrH;iH?7n1#nHZN zx}(A@WxV;Cv`*`Lzi7v`#Qc3M)xt52Rrms;fN;$RW^BUu)J<98}XV==>U{X@XX=(ZYUgd*^)x$BrAVP6OlE*NqVQ3FCC^G4Ly^Qza&PC1V{UqMB@$C zIFpA@)$h|pB?9=(SKOIoh~+CzYwliw2SMst$yYo}?m=)5yf?|LolY66Oj*-Ot{hG= z2`0}iTG<&#X~NUmnAWcezPSeZW;ZiRUhQUDRAC>3Aa0nxr#M~uQPS_w^NAFVGtwN^ zXGvjpPbwQg=Qu!``%)9ae20OVlmxrq*dz$E>20OzU(L z7sXd}CY#zJS0{FG{AN{Fp`MHz<8JgZA!hT!`6~1l@ivme0vsQt6LzUHPCDVwF@*5Y zkNGzF3fo?Wr(YTi<#VY*s)xnuhQK)VB2T1^F^t$&?c(1~w(Yv6=Q9m&YX1gNM~r@K zgTJ572Er{`&d>WvI+6LJJH}jd+is=YLl?-}~A-El=f?}f9CBAEjuns+AkZ*g}KvC~eG(XK4 z+u@o9+D>Ym$zVV`bZ4|$^M&m@aV#_y%3zyN3PATL>|g|}6NW!l(pQpM(pQ{WO%Y(2 z)(k_x^!#!i!XgU4CxFK+t&8bPHM4z5U2I>1nd|d+aeeV-zAvte2meRtbKBa^=9?iT zj&7se?qSTq>1>}77HhiQ>BU7rX@8Rr?0C`N=j!AK{C1_kX$XNlrc1Vq{!k{u1dQeg z#I55D!CJLOmPfYZ%L$@dA-|oqe!hBc@;)vO^jdb6!Kwwv?N!zixylf99(p=M5T{Pb zsQ4SceV-N^U>@R>4`~d%JReO_>)7pSV#sK;b|%}SHoniugR0R;O+QAF=&3mQg+JN0 z*O^KSr4wUK&Y(U$gKxa7s+}fvwwS69t81`fclEP^Gg;?Mkhz3xE?;G_txY)FUQuWX z$LmQvYW9oCw$l@CTGTQxFsEU;%S%^;^xLj9UJ+uG?vJ0_%((x72(KzYW zxzh2K((zT&@mA?ru_df#RrSryOXCJx!WveM9n6MvZ2W*=SRFqgPFq6Jnys;N{7Y^v zpF|f~OIXXQuWR>aWLUzon*T{E%C&?O-lsxFdamZd81J?bI->1y(JQydl}xsTy@Sb? zIGB7##|%3EV6jKitOtYV(D4Fga)xoP_0OGVwT;nTb7w9 zl?f4IV-|^b*=GkIFJED|<8un92mT1d4Fx1)N0tqpAuD*%7Q<1k*v+Y8r7@rZBr$yO z@rolf4ekeV9rN)ET`&2>SMd@a_bQpnQ3=sEaSOD6VcRU>D13@L>+AKblh3q-VTrcY z64tYNM7?V2ct=(h)pRsSVf|AGt8_HvxU?9qj}*saB)xPgAQY3yvK&wG7->W7uLO5E zwLBgPjMk$8v6UxGBa?WM71KHz3X?hLMQtmSmXtyw!1-j~Ig~?lA8(9OfO_s0CP2hYd#l32(~!S=Gl zyh{9-VdRMu`1I8F(qU>*RJ%;~K@KC2KVnhCk3>2)M_Rkk=Dx_DNR&<`N{^IFCqmMR z4CzFarI+3^*wNLi1lmgKz^8X?}}E62FK z$5(xx7&_kS(q+*8VwVBM!W!V;^DI(-p4rsm9x&QvUJ1unDhb2MwnVbIWXU#OFWG88 z%}cX1TPZDqwNjExcV6;F!8q*zh|ghYqi}`06DTSwfh^lqw6+hKB79HFC?aMi#c|!a zlqBPA>ve!Zxa|nGnz40;pQ5~eGQXvwxvoLTw9KT4*jI-NgDEa)w3T?f)t?gCNwyE5 zD)F}(@Bis0LZfe=m_M{)!T~VxieAyg&WZYSP$IlW2!!upgfGuQnFj4T*@KsEF>{9!5d1;;2ej%@Ov^Z%MHYo6Qjt7T)*|K;yHL z#qgG-v>bh2-9xtEUUd*$kh~AW2 z9z=wzZHfZyDdt&8XZ`a|TgLHzQA7Oe%4*$mMr{r*XT;6Tyx7Go3nuYhcyZj@h1b?hNG)-(=lS~?MVv|oYC`4y zr#~4&S8n-I4{79o^nla6Fa3Uu_6G0AXs?o-57=A+pJPv}WPPL3(0-0&(l8v3W@!P! zy65A;Q)LnVEdrSm4eNf0(u9nd`@pJvyhuFfWVrX);x-Lc_7(beC9m>YH=_p|8L)Gk zyvffz&ogvPDBX`0~A|!7j!K zBxn~S2RqeW40nB5EnjGfq}eml;SGOeJ0qLA7<;UsX``ro6hvWot9CI4>^<1-gCh^H z`pDydLC_4Vdj6u29okmX#yPyJBCX-?1i5`xq$hcwfVM#`{|hWa4XWgBv<)1{w-KRF9Z7 zkXpB%xz@%&*Ng9C#7&$l*sA-5QER$jzdMaXjLT*H$4ru+0g*Jg``UL2vY4m>{8Kwk z<|R!kFQ2PM-N?)HH1~7mE_kgbYNiLr8D^^0a`&?`@0%6rVG=x`k=r9Y47}06EW~8D zdKk^@F@=i6NV?!Z#iR?e<)n(csNRj+*o{lI8@IGO6WyH0n7-XP2DDAtJ{J5z6U<1| zpbu&@`Mwtomw5MMJS5tLKGkCaxP_{|^PD(a2=4S(a-z4vC^ESeY^&r(?!?^?;vLM9 zl-LJ!efYi(l0A`{oxHzL4da*3Khyd4sh-ZHL^8hI8M*J}PCCX@wTk(Q#=}22pZ$u& zS9zCrq3LG?@Kf5l+#co)Vk|$c8zk!YOZ!a~Z!o5ZE-==zq|8^sS59`q- z-Hh(&I$tpdn6OyPp+ZH$x6U_{lQR<4{M;m5hE49Lb0udJ=Ll7Bey`O7HR%eD-U~nUFD$)XTzRi(_BxUIyHH0*jRUQbV0>!+D9Xa?~ob(26Sm2|d%6Z0(2ze7mJ& zBL7C9>hW?@d)B9k=t41RNuezC@S58cMFb3Ej~hpW$D1l6sA&Scp@iYk`%nkKGHYJnT;Q#HDg2S-BNH1Cz5 zxww<$nVqEdy6}CYHIZ^`C#A_*orDpGWSOr`X6ar4m0uZa&ZwL|d`-Qn*arasn?57t zgwAJjhPakt_NdxZ(SI|nEuNIldAxUFkUD|KQN$5%c**VQOhIyd#Y=8_#cghV#Z99< zThZn~w+_yClhPTB+icjD$1jRX6;}Kh6`_^Ls!B+Q->zskFW_T87p=T3Vu6V@T-0Es zV+MLMyD=oJ7|{LZ09Vx4IeY;8=U&M3JvQuxJa1;n3wasvp&J+#nt^WB5F6c@_I%-E zzk9-E4$n+yt-JJk@dZvRrTq!=Hc3}>n|I-{d>4;hzXYx?oN#!8s-u1{I>6glOdOr@^B>!3BU|fuj(SKNeKOJ^-L`|VqG8uX+kN!LHMaHWY?izl!0_Fn@dzUk3!uL)f7*EkIs>pSiG?rM&n?_ zrzj$w<0n2v4$p&R$$OB@v%4}a^SUzSimpr_byiu@o3)Y?UJ*~SE)O3!d1mzN7$`ZB zdUl?AS+1oFyywb7b%=AO2Xg(U<=+*!6L;kr)A9@I_`J-Jz!s44gFM7h9?gr1>mhvu z1yz;j=k+H>W^EkJ&CfILV8qpEI&`G3W@d~5dZBbR<78Je+y}f+q(Ostq8jz2*~a)z zBEiVbHYRvVwT;P3N1dFVUA_+?fjgNP-Ytj&23dlz4#KN*Ey)+E%LVaM#wn>jWz6$p zc}wa9LC*S`aV6_)kjps6TUB=!i0NcCJX#>;0M55jiLp3i5a&_f)+9FQ~ZY zOER;G;BrHcR!HjvKv}w*AX}p@X_3~ApTRBcUP4lLbJHv;st~`M>++qGDy>+sh*~u_ zr&e0W>k^OE2GKfX9NZck_zW&GmDna8g3L#=dSu&=XEhLCf2ALK`lMp%B%3h_* zR!dk>Y73`W!kKCoLT_3WsjX{iSiDFIr=oKlP8&etU&k zgHrW}GU)w5$kr%|kc|zC>VuSOoE0SV;2^cmu5W}qa3iwB$ROErXOI{qHu@|!4+)aI zG)R1^<(42- zl@>PFqq3GBW)dCq3pr2wYs0w;KUu;9Zq3{})e;VABSw`Y4)+7=S+uytGY5)#vvWOC zH~@D&*5&vv=xKj;1bGr^cjm|{DGa`Fq6;nX>rTTh^YHj(lIz|nNl`_yxbi^Nf~^(K zelD0GUj{lVRrGg@WqRpQvmn!po`uZq5zOz(@v@sq_BRnCBs9X*wHE-pV0YS%P; zof@VQAFTCHqoDlKF%o1SmV#dH7~Z|IlG&Mnx>Yw<3+9TpzZ~dhn_Tuho-vZ&x;WoEsX_21CQW6v0m%Y#z2ad z-ASu`v}G3tpeo^Au|?%X44tm2=is9riC$VHdTEj9rA4Bb_C`PaNM5xes_?RsoKlkK zl;oI_Jf@^gLuTwh|}y^z~7g8*6{+B2z-0#8|CT6Qh2v%_Go^j6dtH0 z+aOGXF=0%>HUv{1rlFYfwPY#KQV7LE9~jJ2Z52}0KMds{EzQ5OM4QgEuLDxd$8 zd&&~H0p-+mBSh$LJV7aRbOdXtTh`nRlhm}4r214lhdYIvesm7)t;4mbYr{%$nlXJO ztIwd9)0WoPEnYNR3Ktpt!=9aLwUvHgp=gC(0o&CSIec6rP@K($_G1_55>6r>bvuk z+oe1{g=Mdr7z|mK05}&eD&XyE1260_^Eq6CFuI5!qXqOP=si)S~? zX{f6`VPdB9^l8y-#7if!{Ap2LMt?%kK0F#z@o@g2`e`iSdmJA2Aor*7m_tP>TwZRqx`NkQ00@GFjQ4iNEE?U8S>r6d9BUd}e|T~8O=*n{OIu8y9+J0Q z(6aMe0UuaBK1|#b_HmZ*1Xdd_&_|1oz!1%}w5hS7rKWa>u%&rvi{U4`B|P~(9(pqD zZT1NEaT^8fq4839LJX53g)4QG1o_29p72D6eY_=H#cF5JfQH%2eRc_Su=H6hzZwxo zJ3_K`EZ?-axn;Cnnh1HbsvA43)}Q%AF7kca@hZ7mFQe)vHwtp{X@MM1XVdw~7}K2$ z0~*9yA+_~6B3L!o)l(siYza?gxw?7HtH?>;Y5m%cNn~}xyIC(yqS_in>1u{gqN*m= z*jPJ}vZe6U3bIw_k@Jf@dbF2Z0J9q%?!oM(W1WQ~z5{he+#d|;QtlMMbzq=_!6T|5Q9IhU#KSpnF}O-ozq7fRupbaGl> zVQLqD1K^kqo)0VW9#Su3A9C94Zq1q)lz9qSM8?9pXXadx?)Ta$4eKsXV zH4~uAN9XwVg&v*5Kcm41{~3+`TW`U?%NjqUiIRmI0dMWYd*PcJ`}4dBg_ug=}DR@x`nG8nRH~ZeM9VS_9&AVX|uuJ*d4;O_#j*a=R~vPCNEt zaseryUB`aLiOFO1J3=Eo*0wkVVMfWv9c_(<*8=Cv}Z zjQ>JsDnr@guz`t5WqckD7l|9QNVAW}4Jk=0$v zR6<0v(p|ww+SUziANYHA^Pl+{+fPwA z)3d|wojcln=$JdZh;Ev90FmZC@d^-u==84!?1fnh3Q<#1;Ct>xkU}G3tb=c|JGP+F z&}xM~vn$Zbg9u)0FAo9eR|;jbFc?(x?v$6_a#UOTkU^*kGK8JrvDZckD}n0%aSgw_e>#zCBR@(`>)+74R$^b+O}iBbGe; zuk*xB#L?ex7x789n(hV`zuG_Q;;gSzwVBJP!1ojjKvK@pSojX zjo8IS1b$WBQG>vWzeDHblh13A)FSaQf|F193-9Dj-`*%z3c5h2dO6EDdD-OTIo|;g z-S;?}P%js$Z}BBN@BA^El~hXxiJ#wMu|}LPfdth<(7)|bS$BMXi~LeFYf*1!#P4V5 zWX%TPcB0v~a~Jz7v(c=Xr;?+-LM!f{zh<$H?Os!ZV%x-z9A)yFrZq|_E&fPDs>?jt zSU2GexvFlTZ2UpR;bmh9FJSovXvkZ_jVyW+S}@1Ro?b}@jVg7$Q|&bztZK%gti{u}=r1cZ19Wdr1d3$h!&qNTu1GI5 z)>mX0`GNHb#-gc9+P=9i-p3xw(K$}8-t61QOx--|y5K>~7*YOULKD$znwihTBW|y0 zwLgwI6wvucW@2s~J-;-p{pL3(dXn{dt!!B-L(42lgBd*0tQ*rB@!EWnz z(zkU3RB&!N$9WEfA~*OnSXw)#wFgri1OWYifAkHF}n) z*%P=8jU+am*fG5DEIBYi&tVL6^oB_O83ESx&j?&>JDb-g$!4-LW>5j{7MYh`3yO#S zo@t~tDt@3qCqm+lLJY45`&o#PAIKJYKANH3Uc)N_geM|`0{61OXz__v@;16c-tJH4!y8-}Pfw1FufgX{hjc6aG1phX@NWLuPqHyh?x z#`CQ=ZewQby|F{1$la&^6*P+#PV+SXZfkY=?vd?9rgU4nXT3Np)C}%Wixj@;lO;-@ z2f8XVSEAh;UZo>*>wAl-uh|p6`PHD8)x95}H1S1xu(lPLyXojzL91w0L5X! z+7D7ys{BH*!7a14_zxSk%PlPI8@O}}9>x&x2C85`$Cu%SCJLaH~ zomSh}n6^Mmv_Y7$G_7{o@)KoNVA4A z)U1AcHv1wmab{1i0i6el6|EGJw#~=hE2mp}Ez77#W$86f2XC87>^K3*j1fGuaTsM- zS)}N<&t2A7+gwPGqVcU>x@-=xGzEDSvH@^i!T{*}mnAfi(w!`CVSsSs-XYa-^eZgA z5s+bQLX&y6)T_4iiknH&-04%DC-ne?LP#A+f+sPlmmQO@v77H3hQ9kSi0t)h@6si3 zXR~s6$W6`~G`!q{&&Qh@U}We`4QEOmCdLIF!S^UG$jR@0V&JJQy^ZImqpnQF9YXqs zLH_w{jO*!*_YQlTTw^}Q4t3p@xL*FFSbExGu}p1f=~cTxR?=rOn!^L{EBO<-NAo@O3yeYcwpZkR?-uIcqcy2@9^=1e5d3Fw&Y|CRa&bX+O%G*$BLHt}AHHCs=0MbU>_ z+G_UFr3VodGt-@^eQ6LM_a_!fzdL11|c6$|9<^vQN9+!s2x?vx1Bw| z-hx){uX9X&F{00*PTrv|ji$aB^IayFB^?zU>;?mk;~>yMUEr4_hpeL z=w?4H5*?S;%!y^SPYSeh8uv+jY`5@9yj=(2%S-k-bTQPoeb(PN`m_v=Ixzup>aC3Y z!sDc&TwcCbbE{MS=5;+UZqvjEA7Hj=IQiKRSbpo{xGEY1e{$=F*YfRn%av?r8Fz6y zZ?ZkkiVv_la1;vl#BV7cYXV5~@SYxkH0dA$%Dquw?n#{)QfIKbIdSd6*(3SE1CsO| z`Q*L#WIjz|Q6%~;wcohE$pq#@K%64nnG`V|ftv$m1R##o8*>m()|M0yYp`@KH3swoY5A2GUIqX1^qO?Es=hmE@=6Gy5XV+D8)`pRFK`$0$+O$Li z#0I0D##tX2S!b&qS!aK2>Q@eCWS#YaT`>_@FLxf=zJG5)tkrc`ayV8o%y$I^fG9bq zm&s?H)1&3v-%#<^mA%pO3=en`4$vElkH+#xHp=a)7;~^*b#9B=47UbxK?3i8_u3m8 z$9}3a*owq?94i;iL$pm$Pbue^OB#J62WnFzr?pla*RmyLt z^9!H5J*Ay=#6DQFTGejGUCU~!xQxRGF{1tjpuoK{2A&lq?#_(YoW66+n-03k6HT-4yC$mdzM~$m7$0wr zV&v*5W{+(UM1FOt!mXU?d8a6mz!b2wwYHpuTPps+a-JRIG0J=A6NV5t;=&^abME-N zC$3!xMnlDPy3$qNImE@EdWO$n4sZU&;MvkNB#;GbB6gtvvAzIP2rbvMYstIi2K?tweC8kd zwF}VDI99+43u~L=GBEnq8`qHIJDKzdx9mJL_P*t)DIt4*0%`8?*ZN<)&!_e8*95!c zU%U?#fLP^`^-a6SI;wYzkHLZfrmZKAXq}$B52BWyb$XKBx*OE=ucZf@hI|htU1G-e1>DYaKe1 zo$Q=sGX(|hzFenNRD)qEJy(zc?UZwk2EZ9$s@xowqozkF^!GoI8Vw6gCS!aH3x;=X zPu~TL&v>eBctSd)sf8vNz2jIaQ=98nQuXRtH;`RDCvBD`V_h*At*!2}Zji8UFo3`%U5m?r0AQ+9F~;num8p1^1uZNyp733$5tgKbC3~~y z;_>WNgV_FKH_2%Kf|?SMzOT}~>;z;Wr_sBb!NjxKr$x;2Dvv39{iF$_rh><-!yzzX z%z0UX!d6Y0yeFnUb@CqQpQ(Q@qj1Q29#2?1?L}BYgX^v?HxT5yR)Sm@qok*<#XrKD zs z`8xB>M-%&kWm0p*@5pt0Yynbvktyo*%YyG2iakDdE<^hKi6CeL9NPfE+y57d18s=? z1BDEn!DKc^3eCNd3Mdl7z;zK~*j$NcFVgW{g!=s}!|GGp_9>e5X7&Cp+=$Nhcki%{ z+6M|WdLeABHb;j9MDfP}#i|HH1EZiIrZOPheB+Bm_MX~W>wI5~biOaOMpkNwtK1N6 zn%n|z#CwaJ){1_8-9~X*X zPFvexk7r{qYwL$|UCYF-6mUdZ@e4pUCX`X)-uFR`R%|v%HOet>5&X=|I@hH?GrvOt zcFq9Uxqt-PzYox0rdP`i(z>*AgGS0@wyGIW3#ehG|KZ#&B>ls=CONP&4-lSVcX|ui znGWey&4+WBka@})6@I}UCk^9Xuxm;7LM;tz$L;{^Gza?qBqdX86JiRcBc0V~y5o>m zRQpVfV_}Q}m9H8JZ4!G2;L-($^YVrIls|Nl&Ec^o(>SAo{ZO>)wQHRFmjxNdEQ6u2 z**ig@USA%!e~ANH6ZV>#r3s2?>*;eZdRn~>*3%SQ0JCbt3dtE;tx)68Hzag22z?>Q zrWK)YWRS4XH`JgT4HD^aho{E*B?usnFOjIOHAOX%tL2{BkinD~8SRi-g8}FoP6b`y zECDltpE{t!*P0TCSnW7OwBZn=?O$eh$i7?_wugO5x1oyHLKeU|&w_-I3Bcmn2sW#i?Z*v8K-dpkWLLPiStYp*R*K~7?}CFw z@?EfVPsH4)0AKvPh&|DN1e@4>CS%ouU}-6PTfsP%^^zMN);7&?4}4h2;J`f}null;f%e}QnfnGg29O|EhScTGy)`>#Gon&@^Q^?;e^1Z?Q zbDL_1$Oh&HDBXJJ``ZQsOL(j$*{vsPrx$s(J+H+E@J_FAxDXA}z->A;ib2hL^siW9 zuV#rBe($90w!`9Zi4J~XwiE(7K5t+~R|sxE5IhbPmcdK6#_d1o2H0MI%F_8AQvh)o z_=9`Gj0bBvS-OOw-A=f{opv%jZ{lKSDo44d7pfyo$Lg^N|wCzTrOGiF1sKM{3H?aJSS8BDM z@oJ-6Eo+D1P5o^l>0h`Evs3VmJ3Ljk@ZxC z*VC%`krtQzVj$_i7#wKd0AReuC%s(v0Au=6WMSV_i_6A0i0R)Cz`q#6i2WA>Xcs5J z8S}`>vnH1Q`BbWP-!Kq_Ngxd3WA1sqpoLxxKH!vT_lp_nLKA6UeaR3YH8gFb5^4u`gc#P*PNz6I9NlKY#_5^G0{6dhpSEfmdqNj0tqS&JEjM$!F25YdB3z_72WKS@rHQr8N z5@N_YGF(hNknUI#5`>b|4FK|f5iB5^GuW7}h1eX;q*MD3mMKsvY>qZ(hODI2F^Jy< zHXxrvJ}aq6`6!AlQ+w-}hu1+F`Y1}YDi;*s6pjL!Q3Nz~%YF*4rxix!tz2V|L6l?9 z@NCMLZ7_lb+Ctd(cYhm|1~Prl-6+SNGWdFPt0}Nepi}eYiXdxG3qWRp;Zbo9fPKl^ zNY|eeY3hACIHs?OFN+{E?9Ev2WbkFR8vek?}yh=)+c&w17e@CW-o?KcndCDlD z2lTDk*bLI!=J<({qrTwf$W+?y&W4qW3o(C1dXjlFxId09e2k}Vqpm$;`?e%Qb zK%u#x&U4uuuH6(E%2sf$9i}seP=_!f&O+aKotzn$#tG{-JJN=W>22TcoHBe}CM<#} zYj{xt_(d0U)Sp4L4i?6M%}-yKanixOr2&X`=5?LM`weQUq)s}FhQM%=85o`=2PTqv z($Ow$T!rztm716@y=pk=SRzhWMq#Ccmp-DE4kanoYFXo;h+z&z-d)A`9IkPP02!@o&bL!#A6}1GWs~ zn+KQqX7;BQU;{X5+#PC&kMtkn1LbA49q6xTeyDEvw*iL>C~@GS{vlP@?l8Hg<5H1`2jmwW5S?E><$XarwQVMj@#0M^G>%1X+qe-F)z4 zbmyY6;E&@s!EAO#iSSX0FhCe633r1V741o`5fJUhSlPh(U0<}y6UMk+Nq6K$GW%bnC z-O|C`*0df;#j?}eE(J<;OQ3Jf93ME5Tk?Bqcjuchx@fXM-MnA9;*%bI`Q`;+LNG9e z84$1Y@P3w!-a93SAp>)mXQtkD6NN!h6c`eMs|uC-U@x8tp5o!8gS~^0Dsb>TfSF7{ z+H&d)-#my`%5J>fafyM6Tq1gXQ7Eil5B3py{dStRA+gAYd_bFZiZXUxCSym9%?$V= z+TzjR56MifTp8@TC7ucZ zl|VnR%ApQPIf=03-I+~>d}+~n&C~^u&hu3}!f@AUoojf)b`AS$7gbg?o^en^sI+J$ z-eaPu|1{zOuNcX_FTn}1HXmnrKz`2f81dXhGqGlP=9Ai34NHc#d0DITkmR8#Bgp7) zEpwHlF-53sA`bDWN!lJ1L_z{Q;MZ%K*{Dzrkm#ke@&#Q=oVA4;&N}PHZ8+;FvM)Ky4_JJb9~i!qAC!o)SCrUIoGMa% zdNy)yfF0G^q^pV8<3&9C?H&L;jgYK2vzM0 zRHaYkey5dVeWE&u1BWU1^eSduc)1NQ5H@iBX=T<~f#}3y>9C9`El^;R zPKByX5r8xFIag==x|4%4p%awB*;JWNvCQDEH7+w`0M#i(j#fP8L`G(tK~+DoXgg4r z7;;hHR_bA%;gy>_KwC#;wY>yJSnxny1hAmeM}HU8M}Hqj3A zqet5>RVXnCd`!9;LYC~r(|YK|K6XR+ThCVPM9DG6kOc?Op9Wr@qhC6=AEs^{TX-)? z`i?rcKlG)jp9{6;4oDTuFD4~S*Iy4rC;OH?T?=MM79(=dZI@=YJY7q--4_@jn_}9w zxNInmZQJ63Ud@^Y(bo^)2(uoQruU}QHJ=?VWMEa!5~Um{AiyQ3M`63sB=uqKMh>S> zRN<9eKmxfYI()xTU~;`M1y=7fKxgrGnumu)?y#R6m6Kp^_@{K_Yxv?zFemu?cJWVY zNAu8bBf6E)w!Wwu*mOots~DApupLa4S86U@jm$hWPpAi+;#Likmgj;MFJga}V7U)| zaq3KmQiDxFz*?z3iXzn)(t86xonn=qO%1cFATo!g>C+WLotdLX04EdQJWOc>&bjnN zzIkebfj?55X0FaK@Ph}S?aeS+Ob6$S&C`Y=$^#^Hh`T_+>e)~ZhRO;mvc5I}R0MqU z+?~iAz8*Gm!8aq1)XNaC4v_p>6qTXpn@i&;#+(WIgK{IR?lbUoL<1A`bQFpIrZ}+B zUEhPJY$Fz;B))m3gEB`rD1KH3q6DM`SD5=@DBh1Uokt?~qksy?&E5~v)|~yI64LKS zS$q@}kKB)hQ5Z$m_Iw2yHh?|x29#xrZe##7I|tw`%X^<@d4f*^%3w)#Dl$ro0#m^= z*h(y?*N%|WD?~Y6+vOvqAk$Nk0neZarF?+zfhNH?8KvRRIG3(ed?C!P13!Rg0M5*x zL3%0!8B!1t{z4vR9WtyyMC^w=K*8zyhj4!~w126>5G-OE>Csq2I%`l;J5;dlDS7k| zx#~S(IJKu8c>8qB<^)-RonMH-G+0xDGj%ZD+%(u3gEg+KCEq2Ebx~cfd=h?qH=q>W(wl( zOhHEZH)2;U;{j`7jR!gJ!q9-SD;> z{~6Om>)n9;HyPFLx`Rvk_v3M{|NoDh^ zXvR~nsiMQv)!`OF)dtRyR5LO?<;pgPORa39Tuq8=pR&JGV#6*bX%n;zH3`_2tzqnH z2AR7%UJ+o<#6H@%!$&J%Z*AO1-eK&Ha=deF2oZLUC3q$k=h?0=18jz_j8fHh*L})( zYBirS;JKM`wW>d5*rinHcEEXMwxWl5HH=LFP?JuBU1&Er$^xUeJF+0rB!D?UdT!&n$#$f$iMDL?HBj z=-JL3LSo)j7dpkFh5>kdd=KC~c;;8WDuw1L*TdwgR-AE%H*qY(bY)#m?z=(U!gLFx zVpIpthU$$ti<~Ypi0ErndLJgOdp@;^-1n(dSa9-Pt}?+Na|k<{luMkj3wGnCp5TVQ z@EQ?1ofW%v+~G{64(P*u;Klj=Tx=u11_6i2zt@8Y&_l>`eQM4He4AcwK&d z!B9)VOg9B)x=&P~qf_92J1NJi*)YLfef)2yialk=?>hS#ya9Nx)4~LxBEESvt@sm_ zyAuH3pv#a}_ZwC19a}z?Z+>NibM3IAAQ0-u(3WTljgAeOs{Lf4Of|%M@Kh1iry14*>>*zta5_*AdGAbc@IWT~e80?M4^3%ej|L><6u@L?2+1I2*0M~7t5Z$|Zj8Mo& z1CQ-rQ5MzJs4)HVHzV0WL+v|KMd#MFFr!QumI!!_ioXLoX`-FGK{0@Sn`IeyerU|Z z&xWFa8T+D~Yrwb{y}Kb3U`XCD^yVzs8*82jzey(a`5ajEYypMETEJ>Y0T19!$bzDC z%K#Hfr5c3kQ7pTmB(5oh+E79XQLYebgc*V9&)Q``MQf*iA`G#~W5l-Gkd(IF3UEL- zmkVk>mnF3Uah5dWK%gJ0BhE7|>^NWK$wX_3?=`X#h+u`)Itli-hOY|l9 zAuRPN zP#y%bSVcMUar8d-8hq8SAswb&2-l!Et_+1#l)+{(GQ$*<1-fuL($l0q3mb5%v#@t^ zItYv@;nv#~HI$flBFG3+gRVs$rCQoYsVpFWpl%~2QDi}{;9$Ln1K`dN=w}*SMXTYy zU*MVCDtPp>XPNB%Bv;0~B9JlWtVZEYvtW}Re$!?F?op7*FDx@YN1>H7+$eJfY+UwN zqxfVzJC>S6!T6u9n;px#l06NACm9?KdXhtzO$ANf)V%2+1xz|v1^>%LxoI8au08_`i{W)`{*X zyE;aVkMxh@0xBNIsWydqwyV|y7oQ4tMnj^l`U9TOCIzH-eZ?SkkrObyx&xj7!vPQ3 zc_K_#p@TgYeE4*jH-V0M760bZq0?a@_gp@F=k*}^(0Y6`uBY-gjgzAbf&Svz4ZyS0 zxJ4~{Ret8d5%l|1Mlv?UJ?nv2)5SO!c-^aL9WGPZuu<{s0Cv!ocx@+&D_}`Q0ShD? za&T)UB~$j_M%oZ41V1#D`Ur~KgYZhY{7s3&zfhxaPl(;NJgGR)ZDXW>C!cGXLgC3X z>qsMRw2b8XTS!HJ3*1l+Ze{Vn>H#SXX5Bc&GEcv8mJq*)4{wotlm*z3Li4;n3OWNl zJUg^TcsU0qfe92nOZ7ghX4UQ@|>6ZgD!fGU*e`l~%D^yXiMPZx?cYt|VRM-4%ZL&6j zBvi$@^5i{cN)B4JUn<09-=|yC-{w6|4P?&m(o(;r>qmF8Q=>bn>x-?5`eNpxA2Kjq zhc>~NCbaGea6MD^XSs{ZMJRMS=^Lp~a3htQG*+abpqx$#34Nwc2?=9D1_SfLqaK6L z8J7NyyP{C+>SSl*bHR6~tCI=83fQjiKUN`y3Z#Wkbz#W;jC}L=Y}Ig?uJVhAQ?Wyp zEX@ja02XNKylPe&|J0$H%zji3aBeEJHt~LS)k+QU>MzfIsorS9$f$;29}XGwA=W~y zgP$IL20JPPQz_v6#i$HJVuc82OoyKlj`HvWf<@rtF|HhddaejE%xtL20mJtg0nrK+ zTg!^bI#P%DEU9!5xbvvD zmc!8(`-~E6n*R#lu3S}}1m9WH$W+*Zx7nTG1cn;PczYi{_5wgu28?1Ct_BC;AI}UXpV**=_o@{>aQHBDi81#uH7EuY&{O75*Zg#LVy>`KtMN5V z53v16nRMy2)`tGyE*rA`|6Mkij00h^0M2Fvx-j|n?$CKjB|f-8hvO^lNsBNN~ovMQG2FOY@?M0*v>#wqIDS9kVig_R>S zS<3Ovr=TMGuJ2Og)DL&^_4-Ls&3z+gn9A4eG8E_IHM=YeWTu9v@pN&%0dL%;Ol9lR z#L={~;hTy972nDFplTHtdc*@8xCd9~>;=}o%g5|fdLZX_pdTEV2FIuUxh#r{hc%@a zCgXXd&C`=OSDHGB17noWS9@K`uB)XXhts)GX)pTEUbPu7u0-KeaT%~bsdrSeT-+Pr zt-?mm6mqsSg`w80QyR;l|DB#2G9zhrxF#iL)@1l&)S9e*oLW1K1y0DhwPT?_X?%%@ zsZ{d)Jq+nz3081-Jj}=+5}`sfJq+J-IE}|B4bC3~*ur!{;jDOCZ25hThvLR4rJKwc zWe$Gyrjva0=*n2CDdJ_ zTLKG6JzHlKR_Zk=ppn9&Pi4*yhbY`)sIR(O@Tsc|56fLPx!h3XuJZH zP+y=DNUg*?ie6I9qsZmGd1S2pQ)lSG!p9Y=s5(JQ%ln?7DQ9aC@Q~NQGv}V5!3`)a z@~v&Ou{AxO%=?J`J}*mH-p8>(SwlJ4vJACqFEzOu{FZ29_E3x}Pi+JU3(BnNUacAF zm3xf^KV8SZmA}KM*Z7 zqj?toQxRyfppfF@_2JLhGZ6N&0g)#=&O<^cX90L936l@6hgff6s zLv&-VDoW>+3C0~@KA6C+n=JU#)WQnV#B&j;3(KCs%% zysBk?`FeFNSp2s$u_`Qr*E-qJ8hdq3U1nP^_$n@{SKNF+m&c&~7x}cdlb~*d9jX2& zvxaq!M*RUF1<;#*PWqu5;=oAAM?fBwjB1ESgZbPgzK0u`Jh_NIe#CWBef-En)x|Yw zZ916ibYO9=1B-JVSe&1vbbBb!0aB_%bU8s^OiwBQ!HZ}EJq?)kU(TfXPt zs-XxyyNQ1@^Zo8IhJE*ke$8p8h{5Ax1_I^P3HAP;#S_)A620}J%V}Gqic0i0{7aBFF>R>O{4a9sfzYWGHvDi@1NmnGi8*Jzg z^A8N8ey(!4(cNXsi%Z<#1;MZAy0XR%xMJB03z(Xi1iz9^0aKGK4#h1 z+OL6;oB3R%{?%gb+I%7eK3ZI@(Wr7w)MSl%_!00~+6ygC^enEy{`VM*5O z)prQ&v@CV1`bvwttNI3ui?l!CvjMD%^lc6i({Xk`zdbzXDo%~uI@jNaJ zCWWU##I9JA4KRr>@=+e8dp}LF4+)xm=m{0)?!^0b0MhcSfUnW74o8AE9L2}GQ`{&E z$n*UZ3q}9hY*1@z4|8#_*|SdTUh4d6yz<|d1JnUpCpQ{Yb}$wDb;zy?L*e?K0b2Bf zDg3GWJm4jkI+f1Z`0_4Js!)JW^gQ)&ZBRX4R1a(Uc zxm0-%HGD_uf8GZEWuT8pEsQM04|cM^nU~Iima=@xGV!}9%gCia4})8GW}lJ?G(hs+ z>taK!ku_hLv>a4p!8B!bHz@d5K-Ql(pW|=6sURVxyELZTZb0zvQWHk*HnhB4nF&Ow z4a}FgeirP6Gxf7j8|WH0lCi%--z7}wG`p65gTV@E9WY9FNRJjtn1Cz=JpOS z7S&&|mJvm;TcrpJ8fTv>_9{pLWjh#NnP+}sNXmZQGb5Bx=8Tz z;En1$c+(4Bu&DtCc`cYy1Mb#l_)*fB!l9|CH&WApwB{|=c%`ALYX7a7@Xrb}mL33H zYW*acd%F<5fuHR{mf-1MaIrhtPD{Pql+;~bCC%;hDyIOhM6Hp7O=j`hYZHYr z^Fd8B#wHRez0;s=gxoo5L3q%%U@4MXu{D9b2z&A@pgR25dEHt0fRp?o13J1HRP8x$ zJq?2Sply*MUlhr)SBhi?ZR;dWgHVz_fG|O#*cDqtrOps`lIkH$AQvwnx5RN5P$#Jm zgbC6{PCl`ft6~}4^KLT97{AvlO;p_4mP(oc2!d~I3jwg#t!?x169ol0wj!lxdyFx_ zl@|jkDrVPuI%T(Viw-7Onc)t~wSEzUYrr z;<67{Na>Iuo^lf`pwdNHK;1PYShu&#@znC41c{N{QEThtc=-6w2C15PS^Yp6P6dg3 zAIDqEp*&sJ7$n|(93Qn^3->J79E*3UHACXjHQumodH}U;x~%$aRUC^Km&s=;m1NO%wbc|6i){Qqkaa;m8a0*EvTr42g?O@QqqS0Mv$Avk^~v1L0Pa zkts)(pij-pJd-sh(jsA~U3FVrOb2ca1rywv4XO zgzg=6P)$Y!nyRG38G)u}S>1spt;B!>O^GBS(3Bgn_|HuYS0|cPD_#;~zSn)@;60S;D1)9XWSC>*h zEYoHU#eQ2s|Yf+735XeJ+l@eo;dUA#d0Y!%%k6aIdZbX^Q0XReDjdynfP ziMcMSNbGen*m-gaG}uqjGT!UpEB53O$bAnv>AHB*;)65eu8Y_b4~Yc%lEmvGE#K%x-Np3y({8iGWd#Efc|rI>y^2HEvldC3D|#>DxC@*awh(9lydCey*4Fj_uiPZ z2bn*PN`dZNq|`k+`cQ=he~RGm4DJp5T?GFNf*;@vX|y99UCEq0vC7-OddG0;P38h#CGofp19rHtDw%u5bsa*HL`Z~g^h8$w=RxH0Q1?XyB;h)!d*|BmTh-GFUHKd*TOUsWmaf zonTk|Wk(-ZJKmfPHq5#UM`*|9%ddJfHea!!x)0p`-e)Msq6rs~M27;`t#C+gI88vE>JAqb&P|1lpPl}!Bv;F|Qx|{Ot>;vmg z*MjP0N2x7TW+s2R#|h-){aIt~I;txNqeT94_7^B>uW9Te$)7bTIhe2O55U4?9lkS{ zRfIDy<^tKm{bi7vZG|(H)@&_0$@_C?#RTY|Zr@Q5-LsD( zmE`ZScov(QZKq#eAV=)W3z(qn3!NbDoNWiQ9^KE$_#G5Lvfn|)x}8hm6wS`13`CHT zBSX$nI<`Lhi>0PwJJOG=F%1nsy0%%SGCK;gBp~h<3bKLAyWRmPC;*I2pCabLEK&Hr z5w^t{_B55sUoO~4bE$$qXAS-ASvMy7L%fF8GP(!o=VOsdZm;42S2U$k_E|Nxx_nY~ zWqI}FDR8oGw;8>wQr95Y$-pICkw2HeTvEpwi{Wht->0o!_`2`QCIn!_nlg_D6IO?h;l zowauJo&Pv?E@*Cx-?`!R1FdSXzB*3u=kZrY-O^5bHyj{ZS4RJ)O|j@aWwK{1Tn31= zI%Sz5T=^!mo4+y!{@yD}T8yFUWgflh3A%S9@YI_bFMMh}!NPyThLNQs zCXbxuj*CkILulAxQ@IPvcO&}02%uMZ3JVmNFS2&AC;>jQRSca9z`~X7kzxfyrxe&# zJN|1JOv5IXjag0|$r4hoKMF4D z(+2C~xO`d}ZwQTxPcWoe_$%Z4&_*ziu~r5tEPY@v4%8l`&mPK-1KLd5)l_O9yCQ(2 z%}_)J?4c;U7XVDzdr?2_X%3EQnm7g`-6>$31k}&T_MGuVdnA0+9+{4FOmH8yB6N`n zTr;Y`IL8K#5f$PnSg5iJQd_4ri3K0fVW1f~3f(UMYl_nS$XSKzXtpdGL|2b}-;Yr? zVa*)|z(+0+WrLR+qwUcReSJGOX8=3;8@Vuq59TddQ28*Bzp}y@ySDhE?rAPKr)QG{ z*+;!%sDeoWSM_(F0!grrWJNF<{5Be>Q!3%0X1hW@N4HHuLu5#TSIM#)??HoS*@ceC z)Dc-aB3nlkaF1auaI4gzI!^?Hm(q%f<(1$XEYuto8?c9_J~h?ueHj51&tG_(!#n8> zbjwB614NyK5C6&(HLcOWa2uYXq#rP2CQKetKA{xwk(HAwWzNT`MM{f5@G|A4=(`S= zW5HdACw)Eyu6c3paBA+80CCQf03!e9HBASE-Qk?MJEY8MInBDL!`V5_B;oTwEzW5+ zOJ}NPA|-D<*-V4PzuyTY!e+8&F0A_P-fq1Q_c-T}ZjHC~Rl2b8oC6vA$}F-|CZk#5 z@fnA6bQA>>c8``IE!KMx-|{I^MoqSkX`#f?Efg93b&$g{GLiO_S9}@dQdfWmq-g|5 zoZHLqcwBkq4&VWh{WJ+j+-NQzJa5N(76mt2P zPf_L}rmdxs0p=xM%!~ATUSZ!upa6Osv0Em%(zCZr;OO2$k65qn``#$lJ5DAnY05hM zvkC|mlf1AM^D07Y0fk`au!qMm65$@vSn8p8f>g|qBG-0yND=!4Nlpl~=;*Mtn`_eB z%Kz(XS@Q&muN)%y2^ek$f_nYeT$-wliNO0_<8V@pSxQpw;u!U-j3qgR4LzUqDnpV| zSQ528;Q|w09&h8AnL}Moao}y{6wNO4Riyh+|I6Y7rzkye0^O&qjPrKr6Yj=>G7f%X zjI5la9^Q?Hb$%YeIzwT%@66vJmIyF0ZuJClj4soY?vWQ8VKz=Y&r6WxQ%+#4Cap1{%Sa8FHOlnWkLQP;53WJz=u_R0X;HVRA=C7Ot_IM9 zuCg_VtIkNEA1-@VK9 zh{Z`=rfYU_j?L#2e~#Pi?^+XM?0(vkF8juvM$oVwHZ(LoTGTAytiT`dX>~2&T+3YJ zSt%V-om?)mfb(n%s)nU?ARLJdtVY(>3wlqJeFo>Mv^$X1SytqsY?C?HUNE<|mXGQh z4l8Dnxu6frchBZb`00>(gcq%K9JcL7i)JEalUo=k9jV>>3b9o-i!=Ke`=Z! z*md6D7lhHu*`x0K+&fHYn*X#@u545ws#-AOF z3KOz=9Fz9qT_nU>_zsE_-kh3t1Yf)t%-%xIc63AHO)A zLYUs*7e^sE+GCZkBi6(@Xt`V$-w_)UI$~pDM=Z?qDgm_vYwx6E8p8z&&-!+uYB$2} zZ?iQO2=_ad(YLmk_fPp&omTG=3Mpf6e_x&FCps8JrJrbDT3sdY-}RkiZBfYtYy?`$ zy2^{k0`SzR09-}sN$zlPrIm&7_jD5e7zL^sws&2nUBR%l9IGG(_c%#xMjzfk-AxPm zlr9xK2Sw2;(kBvx#|075AY%=rwUKExv%qpYiTBSmBjb#dC|s!jGfWYO#Qt$;OvOYv zmW+P|X@1tH54sPh1O8Svc!4T;A}~HKr`2TQzmzsK2^r^1LaC*+1-5`v%STp^LosLy zga1-+X(k~Ao%|^;LU?XMjRER_Y0VoN`fmGQ@pMd~Un}K2hl_ZBN#E+4eOwT|@{DjIR z#@Q$fUsHye2FL~#|3V5Jd_sY>w3i5aDoO*OhDnVG-=RhmlYG||L4Bzd!ygI|ps^|u z{_3ClbA>1qR@vjWYYb;~ct=KwZxF4i^p7Z=Ryoq$d1|6q|7GkOmnk*n28n0K&}|45 zo>hZsEx5Uzaw9n&+)N$2>slK6B5(Askoq2T3;w<@A+EcZ+knz@d4Cm0#qs{h5|ttN z2kSo9YhD0^HJIDx+9N23D6#RqkYf!c>r07LjS4iW| zrv@-xDPe3^Dmq^Wy8m~69;m9+N7eQmr^nlW9%uj;DqDYcYObqa6<}V}JUt|F?OjqGi$YReOg*pNI=P0!G(gHP`3EX+QUw`(nKoOod8bwa6 z9*qvpS1bCpGimE=zYNyG{*$rk4SWs(La523Er1WBsWZ4`!l&Sgcc@XsGz*Qy8BLLf zHYILS5yMR*AY;rod4Dmujh$6B-3@(q{s|MlWRoqyKejUvergK9gUn!~=`WrQH|}Z9 zM~PHM2Jc_6m5QhxwvD15vbe$=Ne@HP1vCsMptM0#=5sCpfO%&^({7<1=PAlcKAhxH~aynX!WlF()M=9JtOAKR5 z5Yd)E`7kk3PQ#8ZblHxyo`+{Oh{Ko$*urdp^Y@5*m~Vm2>RUibHHp#8C`62(!8td? zOlBHrxNpD$=|5tzTpuBiX0guH{#;RhZkQ>DnT6zrWAQv~DAs6L{FlapRu3e__eB{3 zcpr>x!H1@~RTGP6AjE-hLW|rAt(s)qh62>VG~RqImirMA+j)TfjQ=W~g9fpmh6>F2 zDoq6q5^z%!j2o#e4k{2RH^@y`O{_zOB<#xCUbzcXcBBOAqo@msMZ*$*)FSGBURc>h%_$p;5o?CF2 zG%A3DW(k*@(+Xykk zU|Y#X8Spuc1_xMuQf)zrl)&9ZB=!Kb!zWOgGjJd8C-Cw!fDBEN6CZT6f=_ORPoB3z z+$YbU9sf@v;gkPug(SHZJ>ED{N?6q z8Iqf$wd30n0dyrr(lfO&hN*~y{+Uq%Pfph+;op!|^-4f$u3hm#5)F|me+W%-J3$A^ z3}SS+6L19`rX-S;pbf@Tfipc@g2ZmBI|o(;IWwSDB0-t43gwX8P%UXsW(jP!75c3 zlKWIck)ki4NuENJG=Z<)K2J1JIFYh)FM@l@&!I`$ph*(x9MbPMXbHJK{eO`YQ1t=p z9o_LEF%xfyu4D}w{JGg=7>?91uYPDwhIutW{Zxy~!{XNR{t{X{b<~8>Gm}gSGm}t0 z9aHa#K}kbsZA+3XF0nN!w6BOOcA*w`yNv%nNLt2x9dUZ#>VYGJq1p0B> z>SX@H5RgzV6yJb-0e^`iHDG8wDu+3bzc9?o`1lJ$dsBSA8_^|+z5U?yHZU2ytXhJS z?WW>H7@FwOOw2-ypGx8VWvVoD=XexSqD&(tiZl%==F-#wJ?fL^mQNJ?Lj+*_P;5Zf z5gSlgyl)XITBPDHlzx{+hQF7qk`}1~GHj?XLjM^j`Ahqv7#K3k&iTOpsaJ0>)XT7! z2U43rb0yUFf&-nvk0WxzDdqWyQiQVM{t*@heuGovdJbVN*FO8kNXq^pWy_J|5CAevOg`^hN6S z0e!Um<-V?NAJE6h1LzTT`(Qd&PG9awS1xh=&mcBV{(LD-`+z=viK}A_oA6I!qCAur zXxfMJN%F@#O4B}+PnL)B`I`2jyhmg11P(DQ-%Fk=spFUN7`b|yy zP+lz$<$q~XaB);Ne761Sv-u0tK1O&{fsSO4DhMEjh7}>u7b@y4fpPT~5>ao_*+z~o z2#kjUD2%NeryCr4VMad-KRu4>EBHt1JY1=vz=8t?53!BTwV>hFBL67CUlBDfXaF!z zkLfYEQ?f8{ohf0o;GdUg*i7qons9#1Ahw>yoAeC$Dcl4NK9!E*&N5`ySx^sc0(k%P zxn#Ed2W-+O3I6D>mvCfcj1#b2sWchR}I(;s})~8!XIU1b@Wm z0QFpp3a~p*i(k>xkj^I;i}PRsp=ad-gxa8&AR*5ucyg{9Z_sxPr0fQL$6vwylTdUd z5PnKU66JcZCs>Oz@e_`y-czZkt>?Z$MD-2)E9;`ph#47hMgEofP4B8xGmxBOJGs@zVCV6EPUH=kTO_`KDeHYS4a$&*jS( z_atEkZ3Ujuexw|)&2N7^iGX{MNcl!@wU>BtVEY*{Bu1`6tQ>fu9=N8x-ft71+;(zZ z;^f+Ql$MeN`8J6L?I;}Cet9y8+$|+*$;GcAdqX4q(@8qr(Dado4NYene={Hkgbh5d z02=FS@bq;WdPwK5pHH$~1H(Bf}3bi1(8?Yrl*Tz7y{KNmLe zCOEm}`7E2(@_d#}|0j{rk!YV~aR@X_E1ddV)KHtXxTS<57Z*WG+|sDp1&tp6hoF&t z3+f~b89BF~KREXeB;@He?+yqVQ7|61YS!UWsAH=phUB+uKF9av*K5@jVxdqCrMcMG z9*-csTQv(v5d_%NUNREr7RuLoaZr0chV*aM%$HkcL93>jT*B?I5hq=u;Cks2-Kv>OF14+a-=&;f zYHGhUPrAhIbo7#+Wsz$0*CuZ!mx3F#AcFiej^Wi%H?y`wB>tAgFZ-fl9K##4c`SmQ zA`fF~5kwtX64c0v=fjv*0O>{^sdRit0$+faGiv3rtbiD>_MhR4V65#JvW)*E_}nRRfN=fl*fr$XAN z<)2G{q2A}Ro;&7wA}s28!V~eo(qDLo6xkv9wL(P#p(1ZXdjvvz$bw&_9j@vS{P0j{ z4_T-LxexDL-SIETPd@g%ZDi>$R;f+HhhPqP;#ezP@;-6ol1nA<&QBbT(k0(T_)eZU zptr<5ag2~I#XoV(l`bVbam<%4B|=Cpy#_Dw!~y-v)t-ozE_Hh1$d)dpw1=JB!!A!8 zv!zQfJaPE(PN?Y9vhdfZ?m!8M# zpU0cl%EKik&!w-emHVOwZ+RYXdmis-k12UghWE5zmW62rQB4qW)Et^zdS`7C{tTw} z!*E_I6$tAvd=ws>M;GFco)OFW9s z#-Ft3bIFiL(Q`@3qv-i$CXGg18- z0_QXMM`&)t^ABYd%+3FND6c`wgD)fbLm^}2r;L3RJ&II5itbBH^1P|a>6kai%k$

    VJ?|u(9R{3<%zCJo-YkK9W&?@gEpT`mFLN7IhZB~)8(0ahCFkdvpZ() zS@LXo9v&}G+;imXb5_WiTr$s~?E|VLgEoQtJ%za8OCC=~QbV41R-4O3DqCoJqf z>kX>A#wiq5Ja*O&d-buiY5vB?&b@f!V^p`Ae($lMJMb87dz?{QU^gCkEC>f48%^N3 zs3Hhu_($3yDX6}Dtc*kKmB*BXd?nxy8u3FSkkdaj5V`!rf>3;!T{R8XeAB?D8-4|F z$)FUJJlHNoAqH&RdPXA9o(n$2o2DVq`uPUfZAr*HuoPt?c45f0KivAdX@7_o0mYb? z3n;Si@tFsXt-k@G!*&E}crdIJ!ca_~E}c;1fDAxQYycd_nOA_w*bgpS^b{2zfvy*W zJ>8B<_(4%OV3b?_oc2m>Mf*zPkx&OFc6B9IM0R))eSH|f>^qpSkiD}NS>Ek|lvWg3 z{@J_8xfyUbyVk3o`4Y)j&%b=@_(lx z&%^*5vdmh5+>>u)QerZ^#?S;#*h#J6JkYM53M5 zKr2c$)YR12qfz9%pQ8UCzTO2cs;cV)-sdv+%b6Pt!vJSyfPop20Yyc;4M>R!ii&w9 zK~y9!<6TQl2DQ{EQ87f+#7k+}la-a0m6W9>ik4QIrKn}*{q}@U>3silX5f9FulM`> z{mx;n<=*@3{Xc83z0aP#*CO_^)l#zgF*3}-f6+`5&HyD5H{~}__DKk9oqrMkHMc!U zl)TcOxEDXyp6I_t)r5^g^V*Y$%J#&yRN0=`r*uHt=OKNzJwR$tB46xJ+ooKG4>eyR zr1RU8>?L^YY^pnTWn>>}H}&A#)i-l@C5p!oBjA5Of^=sTA0MN;GRBV= z6ZXm;WX_qG`>-S zTtn6oThlMdbrQSw8>NsGzE9b|%R-VjA&?;0DlX-5k=sT0Rsgf%Yl680gVwT`QB&5{s=!b4f_lN3j~jL(e}U+oQT10yv9i6k;p39l(p1vD2EvU znH4XATSrpYN}%)zO=f6}LMqEyJWTd4BvOP!6pci&RZQwyl>v#KgM>%f?bi{z2DK(Y z#)eECFQPh}6e*@6h22Tq-983Tk5P(#0wloN()%WrvR40Zh;R_e&=`wi@=#2e@Z%VY zi32|j0Hf+UT;_NGgKvV%?x69#i7hfl-Uk~x&@TIT?_;-K#+tiZ*-U1 z*Lswc4wtz-QoM^4sg+1^A1RX2+PJm`ruNH##y1(LuPNctq(E^{xmrS~#v%GwdT zfxxH;6ah0}88TLyx^~QH6nYSnOh`semf6=9)2t2`{0foC@leU})kuMzppCupf?0XW z+S0=)r7Q)KY$TbB2bUedPrL_M^OIBT8 z)U`8hD0UeneUaw1rzrhw6oSj#5BwWw{@g8;4wtzOFJV4B5hiJ)+$og zE@)y`VzS0dz0bZX1 z@p5!4f7Q-iy9&0saj26x%^AD2o%n_s7{uOuUW-A@X&GFqm1Cg$0t21Xnzc*ornvQCzT|UNc-2ceq%CSws8++7}-^;k;W$1y*5=nZZvv1 zh4IfFpM^p2d-y=wq_7kslglf!ZykW{vzcHZw=k58M7Fy|*|!snM%gH+$VDUzsD!Tl z25|A0{F%huZ2}kG>m-S+U9PYlJ&UFv%R;i^lT>8=M^fFfW;Ck_BWmMVwEgWoM*rP% zg$|dw1pG(8GWOG1c-lR+c^nY^yq(Iv_J>+Vhs!)3363N%x-+@l+_gVtpoj^O;5FEP z?hHIPK~M_8&v?pti^jIL*`hH|gy6~*nZ6kw4lmi2<}&cNph1`ZgNpq+7Fp1hBmb;r z^uOjYx+{5%c@p?Xrxm&@LJ?Ojn()bZBPz*v65G{_$aAe9@=QS*SWf*7r~@wZRPa{t zchJRfnSJ2nf0pX+Et2bSnWuqoj~?~_JqVY1I`~dd^gqEr1V00OFZ8g#z~eH{1mE{4 zV}CRO?K+MJ&Vpd*48-6H9KbxJhO$968*k&|1mYa=#W!pij$$}Rb*N)y;qchGn3aYT zPhr0#I5;Z&=4&>N%Lpe4V@75X#1yfVq#9CdBvAgf7}p!;5KCBO0*SnvK=k<->wkf4 zE@UnG&ZO+}LLL#13ghbOlK&V7J0%5|%*;YGGzKn?St zzM|ky)Ft&d`J9@LFjB|luofDs46W+;4NC6R0kZcDZjIt5rR%gzSz6Ntqnju(;th8# zqK9?G=p_oGFC)~ikfaAp7bGrC`~kVGria&1TGIN6zv;+_z^9un+CAtmTL;}=jeA;$;kk)@ka z)iSx5!ln6qoYq!Twj`{yW|A_L=@0;(#H#1kOo6>U76Tx}Z$q(5)xlD@*nfwm*1RZ1rm3M!m?7zxS1~$VLfyD7 zDC8v|`!bMyY;bXz9hIpyD?1_=aK;ATjWfFh0o(k4JE(~u<(fSv)5OXTsHr2h&0&mq3} z8ODBIiD%A00YU~Jp3(dn(OvqCh#BUlP`XQ_w52t_V(<}D_?JoTSEG<+Nl5V0xA@N3 zt{!%6Z%D8PmACTC-T@yK0H;!49POQx{6{ z2{iDb8c&%O5`2k@{e^iIF0s&~^VIf71PLaF5`1@8VSChqG6F>*$xr8)LxI~Ev}&p0 z5IqHpaS7iXwG0LuVcI_o0u0FZS{XpaWgZT}L#aBoRxube+K-WE1T3zR!py%`1>-Kv z{6`{ zjwzJgl8Xd;kYEh5^vF@A)<#1C$Sl@e1VNu~@fd!BwzSsnK$=pc%Qy&gx>|b`W2?o7 zkxY<`cwLcN8{ZE=;42Dg+{O|pYr@#*(ppz|DA$z#NKz`-*EDb9vcyeQNr6^5RaE5rw_6tZ+2izMHKlGL1IQfoWGLX&xFv5?o$#4b?S zu25K^(6_*M1GYV&utHrwcwS9 z!=|JD$At&Ygz1>+L{(s~MZtVDX!c=h*lZ~A@d@$nu*Cp&E(Fh_J;!lYKkQ{7J0F7i zXb%Lgu$nAGYVE=t6tX*%WP1y3_lGQ$nCER^uy`3#+zzGK2V4DOqP4VkxjQ8J5~g=~ zy1umbrKdxZqb;=lWmF!QOnC5V3?(baN{6k4nG;Jr4}D#g5K&sYW^hPy6%Sq;8rH=m z_u%ZI=AgQ?wl*@9E>1?!Kn9cB3{VQ6baDBxHIG^Aa(Q-bCA9 z3)x^%AWWR=QMawZx|v~db=yZON^9SM4G~kMqL4R^SW0Vmjtxn=0@}Cmk%UWVk2w>_ zzKw_D68Zj^X}z<>R9gFPK`6&iH0S*&zy^yc7Fr4%_t6kM6B77fW%oT9Q(F7UI8ov< zKfB7BTKjo-q}diqvlvR-Fb#qqLxPu4kuNcXesxm>*1Wb+p+AI|hdZYcwL}WM- z%CPgULU;58-p#SjA<6rHEA35bNU|X$_yl=Qra*xC9;)gxf4Md(wf4J2NUA~-7~a&{ z(>6%($tyPJyK{{G2em|pOMLK8DCA6NpcfOMi`sv#K#o5`IquAn+s`k7;Ce{#5O%G3 zH+ssYh@ixR_i6vtgd__>0u2=Q3Yv!tPjOko;<%LBt8XIDHA5&#{Obz)jn&BWpOB#a zU4{KtB?R|Fg03SKx_jYxoez>jlHQ4|{y`$E`!kUhDsSnJ@Aro$T8B&IhpuPsf2}|f zcS9M*Kt~?sx=U*VPl*zjrF63{wT{A&K`;jqsx}=1ULA8+QCcT~4H9s)%!etclY~oc zb+T}&m}v1i2Fw=9R;R$cOh~i*Hx^8mp|nn=3}st|A)rpRhA*wt(4pto;rW^c$i|6E z8)->TwAbljWsR`1LNV_MTf2=IQR~9Q7vi$)!vI!i#!JNLBqnJnqEqWEXjM?)wj71h zS}~y2MTb(HehzKoW6DE#hVYzgFQAZkH5yy=SL>8-B=)+#SPts{jM($7 zv(W+jV{pn7F>_lN!4eDvk4tRIa%iluu!T$HS7G`xvTN<>h(HLg!FNUTcf*M2*GKHnqEk}1J zUkKH3M;8OUm!H#>)~(DI%Wy@P-PhRaR#qmK)~)IpDt4x@!m2|}=7rKMggvXP$%bTC zNU{`Ds=C@4kem%kR#vNQb#(@PY2C)|p>k@`!q+fmz$Id^b)3>(R}T!g277b#+vAk_ zx+h$vb=xsRMTOnb_|(*IN0v82Sw5xBwz@Z##Ff_V934vX71U)XhW@&@F!T$JJT{F3 z6P{99_jYb5&1n?#4zR@~HXCP@Og+`kayTdUBVu3$ z9MY^;l82iRYws5of^+laPJP!H1l_zx8@(;(W62#C*z+py-RATN5>T)4ws3Iu!@<=L z2UkBFT>YG9xN8^iLt+G>CfK9sf=${YxRHz05vGWw_Kl>AhzY+5!8aD$%c}-Qd&*UC zdeY1L3&ga?b{34M=%{cfUkZ2csoMg*R-kP!;=ZpLQKP<>k~!me$lNI^3b@n#Gf7lX#dpm8y1Tu=C26N16SAV4UB!L(F_djXjD z;Y4_0Q6jApX_ZK;L|QM^>-$@fmutNbDW?2e_{rnHkHVfx;V=>$q%cj@U*L%p(QTs1 zL%8fuO@%)b;;2>0$x8g!$?eFzgQEFqIQi+hP$sm$=;;)kaT+Y#`Utn~f{-K$_XF{O zl#do}_{EgvR` z;meq%pGfW`Vd(?k;Q2qmFW(Bpgo`8ahn&g6opI(o#&{$h{W_iMjeJcyia!qj$o!w> z47o3PyqdJ!GEgmo*WDOt`L~Y^a84)W9m=IsfzAlz!k56SCcjljP3G>CB!qL}OB%^! zoG#Y6o3*=%qYO8E7d~)(Q?!|By*uV?z{EBq=`c0=y@_EYW%nKwpRz?cWk+CsrNDF72rF=QY zi2CA1M^HSQP8f}e$Z|-`%^WBwmBB%W`5$ohE9T2;mK#n50(-gpvf12iNg!*>^ZmRJ zU!!BLIn>>?ZkzINVr|HU)6iT52A2b-`drH4f)>U!pVDzSem)Iaa2A?o(>i+6Hm&aI zbaLJdXOQSAU7$GqIwnz)EdKi`#uTlyPLZz7y}+2?+^_Yt`|F&pBw1tnQOj@L!LZqN zcqxFTq6Yvf@3w$)+cUuK?3zo(6?csw6Ej;jp(CdeI1k%R8FBHQcT=pj6PUE!lqoHO z{GQdaDF%I9>V3G$Nght7wjjRhD#6qDV|2~2$KaM&ANDtKY;7+msrWAxA0wYe#=_TO zL5yyiDRyVd2{HzU6Jx3xP1bDuMqN+ry&XIfCay-2{i&_sPGKYChl|<1Z3;)7PJeR`Zp~dzKl}5_pk8uqmBsgSc^kVdCH*W*LJJvLG8F|iaVvCxk^PomoJrYxl)Pzy2(S4I2a^C zm4EBUn^_0FILv60mq#9E#;kLC9~SO`MR@`}A=?A}!=CF|M8iLtg(w4&YATyMAuCS) z*?L0eiFlk&F;3m%6EX*VSM2~JcyC$pUAf@osM@PsQ$#r7>@j5Z$;&I75MJEuy*0Z@u zw36h@D96>#8%S(@XKd_pL((Y?{>l$1ob_orB-Y>2hNIFZ1O7Oh zJJ?8AL$#teb*C(qrN*Osa8+4*C9%yO_yQ}T?kvY&eWr;_>D{s^nLL~&;oI+sGE#f# z>7B{L@)+;K-L$S^Hyt)=H$65T4Ij_%ryLz`^oVj-R~&@=yPjs%mJf|XFUP0(k- z*=;#3bfc%Ov(mGetunx6ZimB&9xXj6m+@a7l>J!9PAMhllpRW$bG|LcxTf zrp;A6o6yYK7&BvIWb2OHStF%otU z3(dbwYCm)`_AE=z&}m8;DGxv}!6`orIF-nG-S*NG)6i=ExE!!V=&y#fl_K zF1Kqc1wYf3lnP^7C53<}&Pm)dr-WOkj>dp)4Y-p(rV+K}3qu35N6iKOkNm43CT;XvS?wHd=nqL+5;OaN7!aKT1JMRWTZwPQq&J&fC`x$dIXQDek-6@T+u zL|x@JNzVNg5tSyx{zCfUkvTmX;LQ@StX6#X<0%IMC>Bc z7zx8^Zj6*s1yKh5E}k5YWQ%b2I4m8bW>^t%G@H_?lUkT}EzG+X<{j##*QSd;Byp0w zyCPh_hr}+|S7KL8w#=-{mKiu;>BlXhSR27HKSqm@brb5<5uEHtR)RC_N{COe=FE9q zf?WanFiS45`7u?9xD!WGqRE{d-E^S5%{Wni&goTn@7AAl;)rsrAKEY&PB2}9RzM{& zpM}^_OfQKtD3(O^y2-?xa`qc2gu3xE6#PfQP>R8BxV_whF~_0I?`22JIrspH>2VuM zDrdRf@?MU-tR1Y`vRlsYnC4{Nn;-9%yZx#K5{E*Cfv;hg%zez*(%x-X9F!S%o}!J# zdt}MS*Cer?FQo@<46iBZsP^>6q(x@dw%E9wj>SBt&Mg0Rfg%yJOP*wF%{k?mUW}&M ziL%s-5m6Im9WI1N-R{j^r;K4bfM)(^dX_4JZ_;^* zq^o}}bpRob=O&T~4Rff1O&N)>_p|XCfH~gPSzzjC;WJ=2iR#*{BSnNPktS@)fCKLh zQg?$^n8Ir?Z`hH*ERj0u)!mZ`>uOi7-S2wpBEbN;-!*pj&479OlZdX&>$XwyQ*wzd z+!|{O=hO+&;nKgQ=7tM6Z@xi=*bwT3v7FqyIuKo%h4?1kmO%aCY`CvJoZagd6Vn*S z^O22l5!^Y1UK}0E{}dsWd&)Cf7&(a|T&~f=$#LwsL{7*0?%fEOpUsie0mNaXB0QT1 zY|dfanV2uTo5NU4uCrBcdzdh}Hm0$TzD8l*id#ax9u2wNj`6AxzEp`mzKa#+t(f8X z`k}<={@YMu+r$-q3W%f|mm*u}+j%`;uFp%61vVhuNtrJi?8$*CG+4Dv$(N{Q=+wh8 z`@J+Am3#48!0Z}4Tquf}Mc?!N@khYCv0xV5>lFI(KD^ZY=A|P*@8#lfE<42- z=SzTS=cu?~yC(Z~{T?u{Exb+zPWe(n`p1amhgSmTDa9bmxj5x2Ujo>jC2`8YUU#u2 zj&@TKvuMY1^JI#fXI1iB=UGuL+|b(Vw2?0ncnD*ClYc|u6Rr!@lvZ2gxpA7$eaC+d zm^EdaWhlCmRdMrVCNAF^=j#ixeUeG2)_voTzV|N!{V5Z}g$9L#zTp!a5g{w{Exr^m zcbyR-3oPUAcOOqx!?}D11y`A3<4iQo<$Cb`ay{Sqwp|72`d)3E&j!&~ zbH!Jh>j}jB<~9e+WzT^OO!0kx0S{Tw27f=W(Tn~z1_GJBJ?9ak#V^o>J~Qa6i-X`k z_e;QB_(G8W`DeVYWnvv$fi8gP!HPDZ&zuXGn=3_hp9XpC6_LF3Q^35hstxD@un$%X zH9GC9J&O!$1@O?Q7T;fI0_G9x{(;*Zh^MSKwc>W+M>KIm5Vzi-yS^sYNx*IQ5732r zp=<|t0jJ>Po+G{s-y`|9;jJK%i1;y(9D7~FNG@RX!D)27ogjgc3G{=v+Avyn3UPY= zwO7RG?soz6!rcO0=o-6I5Hd*F_HtLu3(D~{R5*t$M6D=m|8K40ekFd z5F>vh!Y>>b>m*=w^Ju{Q@(H2rXbujL+{ON=r`=R})YFdTi>@cTGZ&$UH!nmFhwD51 zaocfAXqX=q;14H%Md-~*F;#~IT$c6zaf%oAZOodLwNg_$a6=i(P`fwUm(MM5#c>RI2UZ# zpZ`GkPy_4{mfJ(UHx;b^uOPzJ2cR^M#5w`tMHJXf0&D^S`~NnB!k0YON+eu9V|8ch zHhU7AwVOR;$3r8v;~`Jo|4o`utj3o0(Tq{G%i~r-BCBHD&58@2*fItD7lBZD%E_*F zSR4uDFbGoeP?+);J;2>Jf^($DCG|_?TVw^ zIh-K=pFKHVUO;rW_TFc5F)!I6f@c1+kg{uSow)L zllBeha4wO8k6Jd7GS{#B-Prf`37%T_JL_3YLBfC7h$+|YMxy3-G!nT3OCHw%7?*a{ z!cIJHzL|D4CI(+7HWgV0&j*QW8^>Nne3i$hd;Ch%pE^gFb~599=h6NLV^-pWX+`5v zmVXkHICBa1gB843h5?C=rG=mir?ptx6#Faa{bCuE? z+-41mZsc|`zjBSX@$jT1bmOj{4hyCdw zOnkWN&i8${-h&NG3mU({pdWP((jUBwQLC$HbXpBz5=3jewHd;9cf&;W5UpQlkW+ez z~{{}*yRDO$qIgIavwy&W(=%=w2U900MVzp2#{?%jpv z<^?UG74(^bVx@$!X4zY?`-6qD9o#HWTG!%kBp0Y>V6N`v3|*t>&Y4|F)u70jszC|< zE--xyB*re=XhY`+qC1dA$*{g{@03EwvV22Y3W+PmVxJ-Fay~YyyWPags0wn&?tK$a zAL?a1Z%ir3Wt`0^UM6-q*7JA}yfZV|i{NnWy^P}s*6|$vBrijv24M}|*bW0)OKR&P zo<37Ih&q_hk3E=gb_~LK0Ovb5y62GVSQpCC#4Lw7JDAV#W7&K&|8pgLLx*8ej#(ru zdH9n_V~*B1)JvT2A8X8s^(P<97me9Q7_(!`uqY9OGOZ{(@?btZf#mmRJewdg@!<#a zb&>9a`7GAd>V-A6C;w+ntrynR&JA?LzCC<675_FZE~z-&4Ujgs$?N`D;aY><{?MJ;DQ zWpG6;v!#miY-LYSuXOflJc#8pbnK^v zdW(>bg=y2ub37>+1sMpI3nd zLJ!wtI#}I?&=jz%UY#h;rhce}cB~WVLSF{x!nzrfX+AEYDIP3eN3T@i|U+4^l=+0;VgU+s% zFlY@ybX1@%2iwqD^h&_o_v;`!S6{}r=;0tbxuC<21`&Cu5^8WPNE<*uY7%SGiq7(v z@D2BE8#-FBno}YqYgVA1r$sUX5f18N!!beL2=0Vr@wtn)Q!gt|( zh(_ELQJN^|(6@`xwA&z|L#d$s_u5d}UV$PXM2I@XfmXB#bfIsCAKyR!2_kd495wno zNT-7y9}sI4LTS-EivS`;1EvD3EKK&LfuGHY*z9{A3M&!Go*?sNtuQTmXCX2vXrWH0 zeD@b1hg!sGBDCl!us5{-!0F`tfSJN}so*78=AHUOn}=AjDFB1%XSzeozcy^RJPnCu%r7q~duU^+7g8XR{) z{50$hx@&?!7y4eG4fS;ep;3UgCk5%rv!IvBVtrbb>C#Mm8K<-<(?qb_JBZNSn1Ozr zCXzEiF6`WjlJC-V!xhd}w1m(>sFR*?42xSKb`^HZ}bNl@lJeMZp*|}}-_%gs34iwT)@zqWO9D~}>(SX$# z1ksuM46MUbL3GZR!FCM~BGLo&pix13^F(~57m77$MaK-$)iG`8Y$(Oovanur%4Y}J zP$H7APXOBE+t4wCy;>SXXY_bvc%}`V&&EO9ru+k)t`HadOs(i_EkP5f2hov&Za+(` zlYq|5u^7ANgwUxiMsuJ2FLcZhU7i0w=u9ob=<|FKonvDFhrbP-Ot6`YgXp~VH2V6| zAUaym8exeAdNjQd>bW9FpBjxpqf)F%D?0rlvaD=F=ftRhS+YumWGKixt3~qcNT6Na zhE9L5mYN_sRU?pLeH%J=heOLY`~#gS5U<)~YDMRVVQAv!AUYYK3%81O63}_$DGb%y zg|hRwdDjD3zI{Uh?9LOd-RnBKR~LxN-VzZi7mUy=1!(TSKtg|R48fCjw;@yvw&A@L z(Fh$KjB0-%(1pHa&@T%METC5nLht`LNZ-$gz1T0-rWK({5Y>LxhS2SSFtrCnSZ0Hq z{)I^XX8>ApunnO}U~9h?YINGSI}aI-hzOOVcNxGwI{FWUUe3jvJ#K16=+FLW;)x(a zBSHWCtym`kp+o&JDL5^Z?FhxM+3V@(_Aj33Nw8N;^bE#^kDY$62MaP-aG}bB`#qLp zIp%-XWQ2_#Wmu2lQc{F9n3NRZ>qWS4#r<2~+kJuInex`T!v@S9+CfzNQ&1^W0C`0Y zVl@Afk|IFf+y@w6XoGwx*gF?5h>(B&BrL(N0$u2Hfc{iiaRI&b3D}Z9g7oj%us+wt z=CwjT2BIT3+aSN(8$W*D7I7{ES$|g~Z)V{Y-fx3^4A>+87HV|bw=EMH9tM>%rNt)& z+y3u=K<@XV_dGU*AYXK?7n(>I0rSzm0bn#(FAh$x7JbqaBZ7nxO1JY;VF9LfKSj`e zZg4$j^2&g1(Puqi9~6vQ75tRr5`kWK$cCy!^!5wm!J6(E<24Luj0bnSq08u6;afBT z?Ar!rGBES{PGq2Wg$Z<_uOsMZ%|Xmw?TT^C5~Lrdqk}|=Rc*y@8bnKD+VFeO1$t@| zL3<8lp+h7Co$+qsTJc*n4eU~}=-O9XH~bk+>^YP){`xH=80+}_lxvwwF) zD^r3xI|lTT4q~OCvx^!#U}n^b0YHIV&NN2FWv>+0=rPCmJr!?1eMf8eK8Wr;0iw4v zM6`wr-TTuN*!LbFp=(i~PxopC%U9(AK3Q^6*Zz}?rezCsp|241$tQ#O9B7ZZY2P3n z3wmFFv0ANItxrPl%4@@l2YY0o2++26(4s*i=>l0lq!laQdN=Y66>4D)h&q9u?rVc+XDq5dJy(Rt2>RhnfiCpTao{;~ zg0P&iV-%Vfq`QM2I$x|#D@52evydFr#xPbUnH|Y_E_8o(fcvTvs9?j zXnXJbo@8f?!bVY~3alfe*qCsG(&w~){;V^JDh;>(xgpGj0s(_AJDeT-U(gw_X zNxXbBHv|LJvh6|Tfa7osQawTN)ZM}0*UvHk@wkk_<+7Exu*Y<_!&o$ViIC}I618R39! z6cbN6h{2ANWvlj`kdl8#HT)Z% zDGmM(aGU&bv=Fn$3AVS45`x9hw0y?+nX@O)itAv=gV#)Qmp1I2A!7}%YlX;1O-RD_ zCPkFKiGlNQGBd6tf|N8#%%qE9=g974#M17DCT0L>cmhQNiS7u%;k1wwtf4Oi{R~gw znH^a&0&i69#P16J{+&n^95R}6BZ-xbM3B)ZR}i?F=AV3y$f<`!@dU|2%nIEk>O{f# z8B>zSPoG^p8MU5IinRtmYTk!ZP9(hyOP|Cq?Hwt#)OC2N&A)6*B z3HCp@xiOBnm7^0QGH7J7mZbR(1gL+!Lvf2bWta0$4v=TZ}J(jE* ziC6O)qcCLd`>q37iH)F+>aiJGvX#kR2`ynMC#BEQI(F(<*nM4=_P_Ta{Y~k$CR%8P z)2|&)Ig2&Ju}MyYrSb-KmX`gUiuJ30r-V45F8mz}M~?-^RW>rVULnNam1E1b0pZs0HPh7;zj(byjdH0*tE5|PKz z*lMv^<2BEm0<_ zRB>#2DoN1B=~SkO$I489XQip5N|&Nk>C%-dEKUKGl^4gR3XZcbc0HWKqP-p$s}c4qNvAVOOp{5N*@<=ET24n>bRL>=9bNxXz=&b zH|Z3TWW*hqFh#{DPf;mZ7s-EDp>I-MRhyI*2uiciP@z#PwM3pyF6f(Nv~*nYtm3$? z`X;rG^wQG_Gic^-HdzQ!Rf0f6vu4aLK?tvzhIb38&HHTnCJh=_6+eUQo`=!lPzfH1 zAh#5yAQHQ}4{BwaNb zn`tRpuA*2^rFs$>#%qL|b`p6Cj#MYLqJr23orn#dJ%#&AM&bVAoK8f=y-9WDb(2UB z?j=cLY{fGc5~==>VB4dF*N>)iw^l0pRwgfV zvso!DpTCeX5G_2WX^G9BrzN+Q`X&XfnKyF`hT8En<{(C12a6mDn`BWsqxvV##YC1X z?8ecE=(`D~R8A};o_wdmnZ9@Pa19`q2orH?J~k0!x{0{Beq}n_S9hhvc4*`=#ck5DP$@3Bp35k9=weERma7x3%uhg;R zB{^|cXU*W)NY0tLW-8~nx;m2c)UVzh%{wV}Du;L|5H6<+5UfK-M{fO1=NxwLO)VFr zjpnKe#f{YK6|)F8nnb9(6K)qzhbNa41Ys@5*$dq8`=5;<2&)OF3fkF-t+?GXiX4m% zCoy{A=f5FXQ`zZCB;hV>ht5pI#>iM~mrOvGdfejt&SfNvy5mC7Asb?|5-;{XYo~B)OCqI}jeer$bDs?~UTV>LP5Sc*x!~3OgCgSt{AY&)mHm2aVl>eW!#T3=ekYz|k}ph5s$c1? zk{~jLB3U7=l&B-<bLVNZQY=7Q^Z4a0BV0^hxNw`MrC#d5pvHe*HA~2c+I&j_TeF>Cm7YWBH zALH^3?GiE-VC0P?_J|CG3`$chZ6pqb)JCv>n#LMklDPj_xNik5RiTxI+s&B@pz1lHR*X{ zj*4VfnAo_tUAO66L&cN$(#uB&GDMa90 z8BWJ9jh`FNXY7kHY6cUJA>)%61&RFcOqp>K?1js$i*!$J>?arpZU zj4|}@5Mwi1p7bz3M7g>sf0Enp!STV8k+76u#1aWp`%S#~5%?62r#G47;eB&tbn2=* z-@+KLfW#6{RQ(7QPu4uZ+3Y4Ou_Pk4dnP?8y3?Ob~_^AdA(?D8cZ6%Rt@*}TXc zjrrH}!hSH@0`vlYzCe}_!`<1;e5o=wTv8d!E~(6RTomY?msI3rJ5HsIN8ejzu5Z$q z{Y@I9t4V`B%;*cdi8|)eZba7BNW`r*E4gKajwxA&y{I@nz$MZjBs42`5LusaV_BbY zvmF-&dMExCzLWxW^{mFoQ*D%d&1d26CD@r zeXqHjjC-E%l{p7G1*f8@a@%+tC;t991k7CSC1J!bC zWuFMaj`3%NS2Z0s-LRACoK7~*SYwRjN}U?xol8$zUXD$qxk%50$M|&3zVSF<_EMU| zELS9p;u0m}x&Bs3ucz3u?S15K?YKLU*8X~8t5kiKEin+-US5nLrx6~2xN=PI6$7=| zDiZ(VEZizN6>+{~v=e>~%w`vz){m)6>h*5wDJl?w(^%4OkFAWo=^(-=x1c-lkF8Q$(-&AmIq3vzJ7bM>qdP4?VEaVyc2kC@m-392 zO`!Zw=NQXhR`KO$tTO(NhAXe_PCe)jDcQ%@!gQgtlr(t(zgTaO)BZf0p z#`C4_jJ2C*vF42Riu$y5NEH-FvfOGmV^dS1l{`6AzJW$5UVIVRUmL--ln`#am5woN zx008wU^Vg|X)X?WQdNkm&ndK4@v{r9a^CbK8lespS`YC<3ax<|tba?+VV#k$~- zW^$P_sTXauJxiuSXlRPHk|b@!O5#zPo~JoVN|P@}NGiuiMnx08e>9PgsZ_CkTQs4i zvC#im!tom6ri~@q{woHuMGis@rQr#Xg7p{fFB!97>*j1CTu&Wa5l5j9Cld3xzAwqp1xA%`{ER?6^kEriWc>zk66 z6Wg5P*<}fp%6CbEGU5}7MnaMQFk}TwmiIJ`9w?9ZM<|IY|AWG?d4;UvG~osjYRrlp z)}NRTudu9XpWIWC<0H{nAoW9c2JORnvHs}+AkwvV*3^aNbvCW=KifGKg7K#Gv9kJ#&d*!C(gmJ4 zR=PlAD$1H)#tt`>XbVgWNYVU`hNk#?gI>+krsGT8$rfQ=Ej4I|Y~gDGM+~%%}8BKZ<)1r&=;3SUQj* z78#$uk3y6`2^Wi#pZ}#L6CH%EVWA)Ra{hm5$pB!11zWr`IgL;z>w)h7r6tm(43xy< zR}Uj{txv|Sz;Ba*z?*`0R+#!?Z(d^GB_@-)7a2Iq(B#Tk(vSIz;l1Arn@$67F-C^_ zLd0!1uMHCK;suq*3;(+fFDVG>HdL;addbKKq2=cc7tQB;!b?jJW`2tsg4t|;F~L@R z#-2ocF5H5l;-o7xQ_>W^o6nvy=ArIUJvI7bxk zMo>X465q^6(+Pw0|B+)J9R9=?f_ryIaz4^*BTS*B2Pu zAEt`BVClL#Y#T{lGUYzmj8KqGy=4-^(H^}K1E@b{j^im!BL=myvtLG<#1Qj6=P^kY zWjE%0t#3-EWs}Qh&O#u;AJ*BHI?oc9!SA6m{b+T}UhTd)QZ3=~D4To&Egwd-Gics( zZf;7}2z^sexYz4HpJJaQn)yOZz4=t6sh===zVR&67m+U60aRGOf$O;kM8&5(ARP@| zA0TG8^WUUY`j|F%tDs~GihD#4r%%wy{=5o`dxcW*t})MfrFmpPcYRZrjWl=n(6|oz zru0f;_xIaD+4>tM9O5L0g_xIP4{6lSkJ>GLatAdq&rtEq4oXT2atxRLJe#k;!Z=ec z&sv>g$m_XYU)c3|8qCvL&_%2UT7Odm~>I%bR}u1@d4@BOcTNXgbK!y)gAUpH33`(0P~%C%p`MC7Rj zkajC1(V6>*tM^4DZvGEE2Va7Blct_{VE>U_$fZ2E0@^f~7*-d-Lu^JEd1Iiv)x&!j z@eCU2M%N#77xz;`;cH|QJSeR}z&TkMxjZa`7(U0Gl$Suq*mml8iR*~#ax!Y%Zm>X`Nb=FHx5V#RoXrm+-&bH5N*+oTe-9`1%R%Kp4 z(~o0!W#Xho^vZJlP9eBiQJ>NDctT3lXB_3)#xwl%gLBw{W%v@GOc(nKQ2YbwWIC|J z^R9d{-7fZG^wo7T-9mGwZlU9PQPFua?IdY98QR=o1LauW0eEG0`1=LA2%$#^XY8t% znCmtWM@9I&L)py?{bn{jzGm~bWE0<}ib5R7$A6n%&L!dI-2aEJ zHvx;P?Ei=Fv&_DnnRA92Wo$!Jz){tRpr^YKx$vNCx;2kiI0?{)qEb6xlSy}$Q%mO1zKU5Vim zY)NEYb=h(+vzpYaqqqGDVT^2eK;%=e;&azmQtnmy+q7MuOFJyue9EH9rv!CAWm8{f zy+PGw*3|)C&E$xZl<6+BM06|urx7Ids|gA1jogLf{3Jb2UAi7Gan-T{;Igi>)`uHq zL%3{AdiACeAh*PP03#7Zmv6UTmn-b0H7~Ozh4@Z0sO4NGJv|s^*qKR5RZa82_inwo z#L)`RR0a_t6(JeHjo_0JV)<5mHilU@h7tR{``sDnvQ416ZPi_YutC9kSz&@f|?H1d6Leb$bbB6 zQqw_3{f9UG;b2yLZ7BZ3vB%gt3?!WC3+p{ul(XPOp_To~k)%2>i==MJIVLCNgY$@j z-q}+;F*Gib;&%2_i6@49?=*13z25ln^cU&Z{K^zpZ)0oW{A-4^|M^--fU#5V+P2g! zLl(+O`p9+U-D|9$8jPdj#I$DY@QP^p$d4VKtT7~Jl7$FEQ;4D86YW@Ds}%IsOEUN* z8c4DBz(C5%4)XQ@G>rha8K4v(o01$4vjZqL?A1K!!Nh2_7wm>f0Psl0qP*lK(>Q>| zub9dK4m6p@1H`@T30K^*;~pJL-|&mXvWYAY=`Qr!Af6_oT4*SlGf{Dl6%lD#xZiE zoK#nACC1kKzN0M#c$)8UrYiUj3cLf7{i@+~PJvZEoMvJQzNgu1y}0jbjU7ofw}*_^ z-jzz#cWDLyhy?WAz|al&yEKbTQ#WSr#$vmH4M6HOXN=bSJ+f;o zJ=*yEd$i+qGUm0y`}o#jKha4&m!y!?#)-dS`Mm#6d`HC+m1={})i@eNsyoOS4l>rw zL}Ivw8Z`!FlqABf#ZH{WkvsMwWQzaE)-ipEb)W&(I!ATlZwBQP#CgP zW#!O>O4v<=9=qY10(NnN@jE~ti}R3GkvOW%hQ%_8B-*IC4tIwYJ_)SFq)#Z8dSpv) zRV;O6i<2t*_dDF!%}L^L`dU0=S$p%6w?)XOTs6WX*rP$p-UoaIGw-DgxnPrEg&P;* zs51RrlNZ7*lwHe=Pb3q(;oD`P$Nx?XF4gZywfrXWbbfu>>?-;dDN2gke>v)Qt@;J2pcFZ8e!AUt z{07L3;TsLaeErkyZq@Y$!vFWv?XqVb=4+E)b|qiK+i(9*K2&3`E|WMzHCLsEh&3g8ejppxwBA709 zp&ji&5ln4eXfiNU237*g~V4t9V$I(j4 zaumqNK$1W9P==3SPq0pA`Ect?!iW2b`NMqTYj4^565oQi6GY^59v<-x{{gVD6on2+ zcXSA;miG}w4x*o;gLoGR<^w=h9RPx0eiz8`{Xh`R?*LJ~1LSQWZ%J+50)k-PE4A4R z1i}2K)MgL<+C4K8#I^Fnj4!Z9eVEavD7@jl1<8>jJ8zrRCLoAKUD0Ad8thz*&QFbKk-q1FD zh{3IRTOC`Fifoadb~EZHZ?2@w|CSzh6R?_19?HB481+Iq<7(cBmlN8EyWUWa7yCRO zK??s$QV9P7T#xV^($7f{;aQ}gX&}>|0o8k5{$=PtufxqAUyJWHyfz;%_GzH1r=@E> zg($K{dXzQN#iXcxHPBV7kqSzYa}{pq_)2t(V15FK>WK!@X9X!cDCa5}kEqjEGHga# z-fbveKYJz7UITivx4~Sm1;;E={8*o>VHGD8T!Tg>$~YJnBVS&1HK?}}dw6FLgD||1 z`2Vf{p2UUAmE6rMF@Y^yQ!^JAdHMuBY|2Q%{LoW=+hcFyS`!FEG@Er`3hQ@svdcFuO=y1_W zxxAY41q-zbeklIZ$WV-E9cI$}Rc8@})lyk&hY-EDu-+kuMlTueta;rI3Sk z4&We!fk+ROAVN0M0|2GaAL)L8QpiF&3$X7rHTRLu6Nrh~dP6%+?Q8G7ndN(9zyy0s zZz&A}#F>ima$LlC35!6f0KTf`UKlT-UKlS_3O=Ofo_I|NW`89^ow;RKow+5mku$fr z9r_;TL}_$*@OFwkNKqc?*<5I}%7xeClAg^eeV7isABXg8cIlh8OAnub@3cobbY4F^ zWuZPi}M%O?n^Ipzj>?zKP z#n{Nf*kIMk!truqv6K@MHG^-CnKIDBD*u(u`;~j=l$y&Tge_L*gyrP*Tl&Ditgqh^ z!cjGst)`S2>Jm!daHfplBkW@4bg^|bpdZ-PQlye1C87ic$j=1_!jsQKQflznBuG{C z5h<9C>{fNa`5}JxVH9n;y9ONYJ5*qYZ!Y!mG1pL1@5RjD(pThrX(ta+)a`f&M)7w9FaZ#0MG^&mg8VeKm- zowjAji*u72p2h}lB3MP?G4v~<_VLt#5r#Cn?Smgrjdi!Zxir<4PA^Rr-=r6$s_j=6 zq^e4YY)yF-r=X9bq;w4$Pa2sG`RS)}bR)1$wy8%9JOkZ7KP)kdV1Q z4~CN`IX1e+yqUy!xhElqS{+qnSx@Rzc4|5)OQRglH1&rN`}6pwToNV0#gkswq`h@! z(vKpi`p?OQz+P}~?jo~k)0;s&^BT-*e$P1CN7h!+!lq3}e7SoMn=C!EdBMNT zVE1S9jw}c{mg9r-ZB`4(>v>nZ*CTi*?Y+QzLx~>ja1t-@MJ+hZV?4P%f?MUr;DY?4 z*(o7T4^h32ZT*-T^#|t> zoPzPU5nh3AvyzW^*9JYybHzl)6{{U_XuhT zy?&b4&Wne^FQ^aAs;>z_{Or3a0jdF_8p%gNm>y95{S;n4p*O7;aX<|vXKuYi5}7BmD#-HYN|2|G ztqx$3CP6qE4{Hp8()$^9r>0k$bY?-8B|kMR%~O}>xt zZ#{@m3pbov?-fns(-41s3NoMEX(FAm&q!2J zYUefx5w{N}Wgk$~&mq9CV0Kgz--60PS*MNM__4RlJ*D5~(YcwZ^QZGB-J6uX<0N~2 z#C-8IOq0S;YRQzfuvhn#e)CY49Xe}22&dC2cBpHuErTNKK1*w3blC(fTW(XL%F=g6 zobYZL@ozKW7JrP>y%}IC3HK(a5>+&qbf&v!seDLG12FgL$N{@}_n9f$_zcV-WyIa? zMWdteNLogg2fYy3>V7Z}9&ELp*$JB&9#}!7+zv8Wl8i$}2D*83)K0tBMs~sy zVqv_uJzmt|EBu_=Gyp|@r zaK_en;S7snG!%{>vRlI44Fwe%x9Gdu2}M9C%p%@)4XUj|l^{Y_6H@a3ZDMIzb56RF z)Iz!skj%RqxPt5?hqyj3Q|As0mu1>Xrmmy`H05+%=Pdi`bRB%pr|XnmQG%3;CtRjZ z8EgY3@Sd>oVS<0Nozd;w1SIIfo=G^L-$}o3p`5+0or1)P*6_eg z4GG7(S!#~P%cS?xG7nl@Rk8;ynn1kAVjB-$&a?$V+8T`_WAvz5|1lS@Qk?ZHx*3wMKli|5;SROlX z@k%@2T5BzI@Z$39*NIAAL4LK(q7}0yLk`;0$Jjbg!5CYiv+|GRb$#f;>5~^!*VIlo zwmuf*2hXILDK4R9pBndacn04((^>`bp2PQRiEZvTMe-wtpK4I@&SRLTAv)bUYYZg^ zS$|0lxISrhw01u+2EsRF;4pfa@gHA44y-*1_%^uz;IhR64XP*sliQ}Pl1d^C^JC} z`o7-=d#HvOl5pnt!5(hY8Ux#_)@poth+~T-_3HX9)>&9j<`L_&#MhqeiPTsnJz*;sxU8St%Sy9uYN0o=)FGV_8J*y}t3Dq$>Et!XG< zc!~Jq&fg<^+EbD9a3b;cc%Yn$k;M@6pW`V2uliUB==dc_F}>VBML_s4ui zV%&cj*^fv{;;1myln6rPidY1ziKO^GeUNWT2GM@S421hlBu0E~rU|?PwXV<^1D&z4 zlW?`gZ~~t8Kwq*u4V|ud0O3J$-4y(tAv^EP90h*dUG-Jni!C860emi$W)@b>3Ie(K zTpM>?B`L&oN~$VVD1J70yPXf-Ze^&Q8>_AxTPBdQ!wmKF3P8IO=3>VH5^^I2@FHfx zm2HLwTSh&kmD)#Rs)1(uNSyjwN*58$oE9vbZO`T|BC_ioKVp}j$|rkNSZPO)vK(|} z5^fnfgP&jgW%08)B;n^gEUAO;0QZq+5~?5D-`Y9k^OeNaK6E9KjY{AFv2!j=cwE4l;^Xs>W0}H zEqxmVkr)~TjVn)|qIDhCn7(s|`ANM=`DC-aeDbU?R@orEjAP%-B3dnuWp0&4e2Rw9 zCfTe5TF}p8{{nk{;qKF-ee2VrArQlyC7!MFHf>JA&TzEd5E##3jt#5Nhytml#Et5s z{W;_`%x09Zi&aU(B#JO_+zx#4k={@Gq+CowVGJs-X6f7oaA4B zab^C;Xf-LAB3l|1O_b5_kv>Z)dfe*;x~CmH&~a zQe-1b@(tWZ)+#0{HnP3NnTUIeuOSx28;E_%6gin@bl5xB7(~m?HYP@#scd5ya;u=AOnwS0G8i`o`xpCpV%+d$?sjbX;K3q{)%YN-1W9V0pyyT$!JbXR zmPra&Utq0dRX(uyRHRVFGr6kar|?n2o*xxeG6u_;Tm$uV&RXiW9v{<*zf&njxUq)j z1Y->Q5>7KzsyY{+b>t=1(DP<7S+6e0-T&m@V5gJ`I#x+$NQzJ8f7jD=JqsCG{Fxe1 z6E~=DnMeb%Z>XgW!s&bv0`dvFgA#hLCqj5Vv2Xn`&ty+rhx6oyeJpz=PfP%L-58ju zg)Q>7&BUU}qT{Iblq*cK=-G#Hw}0QcOeq>t*_r$bC%Z@nx)Ag*jKvzVCy9R|o-O2` z=%Fv$aMYN;;iw^X$5C^}qZ5s(8KyUu8jMla%gpek_A^mV%axn@QcN_hkC}DUPd%Nj zGh4WV6=_zs;V%#KWr2) zo*6Z098{lOuI-rbvEM(1;ylqsiD!+jqk+?`E1Z1R=+!2l)roDs%?6F&+O79(cdvKZ zU>9EuJ2qo}58E-nKa;ze$hJSg)Yr1Rl&+Q@w~YR<6w!!sFJca#QqHb{Wl_r-P|xAB zLPH8&!nHMon#Ny*b-TWpxmN)G_nF&9kug42$X+J~=sQB^u`g)3;yUU!KZIOL!;JcT zz!w-oKU4^M5J}aNU6e7{pewNLT)(6tan@XX8H?#t0ZezrGqJf}sIvqMav44JD z$CjMHlE~gOC`rG+{R-D4avkb4r9>$em z*ZQ>@e@Np>aJ4903E~PwjL66zP$>@gx~Jruf)5@_pA!_`4eHkwxL7iju^urQH|Z1T zqYAQ*f*Ne5Hg_JrxPz2(&|U6Rwa#+#Q#IL5Ca=Xl@2M$DL!g~LrB-exQ`Umk@f3f= z?0v0swTU{fw)5xJVq9M&8qcfM+);CmIHmKbStGG#WeS~`%$`>>1gzhrvyeq|be@Nc zvwjM{9trz~^JTbD7&a;5|D(>8ZW*E3~K-p z-@1FBMG#-TTT3gfri>RgJVcv8w{fll{Rui;Hrw(J8^#V)PnqtKBuJ|Mr$U4p17TlN=`#Z<}& zWo>in3*Vs(*%qCleA~mFauZszS&&VKVF=@CEr`;e)p|G0q`9gHNsYXp^nGn&&uCSo z48kE>O{-@rHmHXxXj&LUc1en{p}F_Z*=H+P`IwLE)eg!I^KANtZ}d&2Pd2$!~<<=)>czfO!%Ev*R6t*L()+EdX0 zlm$y@)0fmBWQ4YQmKSVJ`5d&%sMZ)2abRq&cr2C-=#_zt4~WX76_*#7v|45}iRfv4 z&8*s*S<|OYpi8028%@pX^$W4kDo-&aVgoZnb;jsOu~*m_)zLECyMFrG0pS zQ*hi%khRbALBV!rBg>5@Iriky#K(P{r$E;4+vVJBB5pTE4YXojb*OIoc$p=09E&4w zG0Px+B;UsEY_zGOOv#cOt31lk$UL@CDO;1TAaYDbhUqNDeY;R)Y~E6!e}f=t6AG`f znum$KFr>5!BYHzp_XtZT6h^63Bdu93e`Rv*^jV&?-o|L(YjR~0nab0esq>~Mk-Q9J z6cqXR(u+i>bt^^~`6yqWVXr+UsO`f)6Ld?BQGwP#4E+gmvJW;4yBDGYA2mWPJegKZ zROF^*8lz=RAAczD!yw%f6^y5QO;CJnrr8=#S|%)OoDReglc_%(6_=8ctH$tA6KT$) z`Dn~{`J+yYDr)L?`9icvR>=34-m82yY4qZ)Kvmn5)^{LDO;xc*!nlVdj7cX){Imf# zJ$cIPX%9~hH|OH}$Q@%EVlkdhZzfH#w4$bd`b?TGihBlnRC;gY>E0XYlyGS> z8SJKYwI?*&C(rVvXW*lIq8~)CY!9i{%$q)kk6N|f{$zRrs)T0tCqke8WELN_;Z2C- z#duor;B=6i(lh@k8WXh|Pv`8THpbEHgUHc(N6_iHDoRi9!+Sm8f$R?-jT=w&A!6*Y zo&MEvbE&50BuZ@%>4vomQ05Gd$^8#?yU^)y5tRhYUM9@3WBFUd5QFekBtePU4C>RYa?1(mb@{@UjWLQ~9VXj+m0-$lx^N z>Hdk#d^aEU7*CfQ7(=3xb@Wb4WManS!}Ikce0m~dm?R^XNXOSCbJd#MwWd@)SULt3wiF(*vkB9{&6fjh4t1L^Gpou?;k zADG5R6B`t1*sBa7eK5f#sPITn>{2%Gd^}vjMy3N3~*?|t|e3J=h}WlDT#2VrJoneu%aV{n8t2LGg(l4VLO`&T!V z-+_UkWy&Mq3ysivKcw~lFYjnKEmc(Sp}U~=&2FgQ+YJr-x*`8oH#EK74bAU#!`S_F z*M)4O6*MkzhR&I;^`497Z!5t zX`?0O+u^1+CFNVUy|)zQ_k|0j3Q9{8&8RV9lVpL1Z<;q|40Cgj^Tg1}9@kdW%{|63 z^YT5*hmIRV$2~(H9&?=X7Y&fwCWL$W6nWH$R#SM$l$x-lal$CF^}d z|B6*YW-;+<)bySV74?vrm|tY}$juO5J-R0~^5Gphsrfj7$vfa9s+ zArhE?8Aubl((W0F@v<9Jl!Sot<$&Dr{7YUJy3?9{*MOdg#Ht%u)0q#OdO<+r;)rTm}t zAyAu8AnS;ikawoM6lsq~S6R4MFL|YihEawtvke1?b=aLD&d7I9ke7bgj2g)Bz3nCD zoePGU?vEjs;WwU?#}LJ?0*QiIGWVA!0c|61J?YS0$F;e)h+&W#R=MbFtSAdRloZ|~2!pCOyG&6@4~$(cl%-0e)IiIpXvNjM@!722Ep|)hTknDl9_(DQ&oz9L( z@;Z~Qta2asB|-k@$|^hgEsf12== znNQTh5Bcz%nWH45fuC*%!F>a)-ruD`FeV1-WW^|&`Z?VH`JQCg5Lcw{t|3CNdXO%Y zh2U2rm6e&$=eru$cfC&z*0H&vRJbVJO-x%$6H?(+GU=t%-PG+esx|=zvBLZv_3usaH|KDPrWI9Ggu-A6fh&=&g+8a;V~ zkR0+l6QsruJ?ahj02YeJJ*eWrhis90umLNwN#ayCNJYe==Bk_3+=Z8E^6V<*g_qd| zVu^XZT8M!p(9LT0$6gc=0hv-TzFy5-t0pTREwCAe+}^oPj@HfSG{iyHD2Qk6zDXUf z8rA|!zO@tlPGBu+U^O?Zy-qbSO4Z$toU9-VWx|I0)44?zPEn>@Q~^QIvsvPLS2=M9 zCMtbnM*J7XL}vBkUV2#ryGz+Ga^m&QSr2vQ+iUJrEK2y`P6anX)K=wuIT196wVB*u z1*KIMc?<7O63H4^Qffw5RSJzTWS83W%H+$mky3S7*ye=z8IbrK-XA*HmcIF48IuK8E|JdkSNu1D@S9bCATXuBuzQeDS zk-@Mqm3(Nex4j8&?;^uwyV+yDE6n9d~d7WGCsD$H3){5cHC$(T;f4SBhdf_bWXT4B{uLf9T1AL+t zZGdMzYQwI*vdgsjU(y>mzgBc2Vdt)`rIV+UYip@Gy*Z(t^HJ-t`M9|@J+zj{Hz&GC ziVl2couJ$Fr2m!2kICE(u3DYJI}N)Kq7g3c2(EYgW za*EXH=0ui*#R8!{@=^N|Qic!t=O)0H%6c2<)JX!&`&|gGap8G^34f+J;jz9 zU`4_x$^?jba)t+J;?Fer&-dZVaHr$TNbff~sq=kk$Sj2YAm#3-V(jo}10KMGu+(J= ze^1YzBDw9X$maB>KeiL|d)q-Drzs_EUXs33{BULzG~bg@@gyH{1(-YhXSv*qLf-9j z9Hk|V&joKM?51yXsf>Y)%0-%C4W+3p{MKd>Gh0dLq{?nbiPe4F6eYF+brkfzK&S|u z62=Y?2hRvRqfGDzp6S_;Fpc6IZ)t^ztJnD7u&*cVWzHK4Z8x}7q5Z7bQnlS+_qI>U zHn<}bF$HaXk_Yfp6SpIy0&{&-CIFZ#B>BPdXjL;FW7a7}?c;#18i!PH+eS6tDlCx<^ z#T`a1j4vmmD8B>cxwJcskXB6DQ|~YiOW+OztIv$ktAUCGwDd$8VxkhXB;R59WJ#zD z35)Lz!yH=d3;ObDi}w!WP9%q3<~Ez~M%|FF47*Ugqt4QP(Bx}zbf=v=>U@+P>178j zp;7C6!5&B-G+83+>wMujq}Si8Z|zPykx#{TrAg%opUv?0CbJn#sN)dM3vaCRhD;Ji zYGa+H<**4pTnKz`NkXC&B44|qyN@9HaB@f&AFzax4(X7-V6wDi9q>goU3I2X@c-W6 z-)!Pm=XuK5=-D>!!}#_Ok1yMF~5vo45y7 zb(YxAX0B6nEIrxi-(ShyGRN6JeSR%#e;PueM){fw7qyesb16nH(9cz9pf9Vc;kg@1 zhRe)^SbWF+A{M(hpA!OGT=|^kF3d#~bK;wS9sXnk>>W)cC+Wa9f9A5>W!M|r1@+{W zmO0!;0=I~S=HlH->`yxV9AN~zE?t9W1!+j)WeFSV5 ztX8R&)3n@5=3TCqs)4Pm7vP`gK0B!=OimU%{qs|*;39tckUz)9rraGvrkqSoV>AAH zN(>uDe8!k!TTbP;**aK2fVWV)55mI((%8~?q8QL>PZ`ikcSTAw;r{xJNnwkVhz{08 zpo17w`oU(CGMAc`#J8sCiytF7etnta6e&%DJ%?gzDCa4qcXAocRZpcH^P1!&P0ZsypDZ(#B|M+%Qwgk`dfCZUFMvaN`h%xg72=Z1VX= zkwM&poE}+K-2eYf$)So#pmI3*>TMA97~tHp;LNre3x31lp!CQ79?Q*%oEe^cy}{lS zVX|%D1u>F7kyD6OX@BdXcAYBy*N1ya|8?8qYcLh#K+-}ztc11_`TauyL5?x*q+U=8 z$3Ke^!t-mn5WIi1$aE?T`h=xu>=?s<9-MX z+?SMz^At{lCH#U`NPa=f)qF#1Mhaw)=w0t>pF@WC2^7iRa#1gb$?RzhU0|PqYqkGD zvUfU3OyK%lO6TGqG>9Ft$_E+y`(Fzze2sNl)=+8KBBY5H5);SST{5kjJU2zTNmG!l z4=Z`1xT4V}lX#zzP=8Eej%#3i(%c&gdaw=z0qflGT3amtHM?{w?IxD|H`ace50NTL z9@avjmYr7h3Y`}D1kB7iQM}KQg#9c;Mr|$_!=D(Cx`TXAyQ}EUYpKWYcaoidH5ueT zH&x|!SuFjg30~A-se#1&P8fX+20u(?vP*Afc&)7V+xoeoS@Y^3`xL03KKHpPRO*&* zU;miIhM$|V&lnv=%csJ`u_tY8k=$AQK^e{7KidO}A{~1_kum0Cg`gUguaJEZC9g%O zzs8tH9W2t#)f(~#s<@Xz8u<*e))*ZNxvl8vv19<~z@rA^lWm%pPZT2vlvYQOcqpt6 z($KJrN&nqt9+Q3YKFLa^{7NO$AI37TKds&^5wxI5Dv^DDtVEgmhf1l6c02YL`Br^5 zFoZ%9##eO#)8sB-p40_mCw2i_Wr)d!<;`sr$UYRim*O7dIPJeEJAJgVv$LG-n86*P zVZd|P9w*BkgVTk#?GUm^gv@ZXTtR>TfFv{gBWOU&vwx&*+{p)IENqU!+%fo8|Tva2p&!~}gc82ZKC9vdiJu1M| zag8kA8y$nv2f9nEyGuD0J7!i*{TX!+^Ar@;b{9U_RXEw8Vn&3jWeMh~)iV36>aJdA zN?=K@QN@h;=t=0i+q}zWqqMHO6iKO+N9m^3U8PO+D4o|`I=8DdT~NuVzREo)ix*p6 zpHWHN{Y0*wNUQOvD?x<#$~)6Of0|r+g8J^~{31ojF`hPkFnvB&^q$tJC|r$;~A5d8K|Ev3G$s}Q53uI;6H?X|t6aj#Rd=~@6wv4%Lp-xo(L!%PGOeF!rSan85OBD>SJ zd^Z=wId*TsSYjQd`~jSo@oh5=OaK1yp~!L&E29&dkI2ev3A2a2u-h8v-;=tHI|N;7 z>mf|7Dff710i?t+`@A`G zV=zmTH5kuTh4?nam@jOZ^rV(!iB=2R7`@9tgK;nn?i?!y^XlM|u0{G|UbG4S#Bv~4+yykuMha;7dI;`=v4gji2}gbPl*jH>rvN5OPd{koD) z+cx?dsFtO~G9yI9pRY(Y|2Xni>b7|kaBGXFpk}p~Br}SXpVGF~fWs>ZVMZSakwJ|0 zQi$|pe3u3g#}l7|K>5t>I?IFTwNKx-(zY#*;s(y3YAw1QdLG@XXYX@t+w%F|1>0U3 zg#4MPIrUZC>T`ooGZ#6tP;>qn)U+*~L>c$A()Ygy=5};8Dn8?VIBnZ2yHN3UJ z~y;9Co}b=-%7 zdJt=WsimD?6ykx3kue_+BvYtE#3p;^j$_*|w=OQ&_V+;)EI>^sYIYpJTZ*uX+B-S2 zKD5;3;CEO@MD+(EVcmYq!>Ct+dYvh_b}AY^5+e4{rwmD!&Hj{0jr4dPcj;UFj^$BQ zT>R*Mr?43nx1!=AR9xFtamyqsHPV|!#eu^q%VIpvtF>70lhvrHMa{=i^Zl-xC-B^n zp&|K#$jF6+KTS~eYpLqMg{b-nawt^&xvT0QQl}L^;?JB8;_hk2OZ*B2^{#W|RXjR~ zxTo0=NmdL=qn(lYMO5|UAWWZ@d5JpffOEd|5kWEJwA@Sj3{{iA_k%p0@S^`}vf_=q z@1$;dCtFUE-hKTk3%5kGUT5Q}xUVvx0P-`j?)_Pww&lG8c#6;%6(BK+0P(-`K!A|-@{BDXr~||{JV3s9HyxK%A;4NP1A`tP zOaLq4Ljv0a4-thD`^lqB#m_mG{(Q#B!wiU8O7d65o!bb-1E`EM2t>`1giG?OAmgqCv zx$J!!XHP}^`aXw+ykk%Gi6kqAJ?<__t|DTx;?A~&pwpu$TNL3Fs;`ob&$*YFqkoC? zq=gYp0(IdxOI!J0-mv2(n9M{Zw%g%6*iXe(QT~XvigG7gE5U}UqBJ>G*W^`%7PtRL z+Vi%3AjOVn5%+7KLUxeMa0sz&>cS>Eme42PRc3(vIXQ!n4<6?yWe|4|){5#td|3;L z%PZgI1}jLJmQ-Dm^japo^haLqA8TF5sN8l4{l&kQzX>K_mM)q#0^3s^bL<`B+2h-) zucF3{gMVZ|W?_@NeQYe@4%6|4?Pa8_3Mcr{pmoPm!su9vA0>H&jinTlN7#|6ge=^} z)HnGn#3iaUW_JcKBQn7 zpimNr8v5-b9NwF}Ed>%iW5}?_grbd24r)kwlj86*=E3iU-8F+jpxoT#rShs8-OWL0 ztp`yxm|NB8>d28ANl|!ERiluMe%c2DYsp5{nrx6-kV6fqM7#bV&mfrl0qMvBf?)0o zB)Kn;Odx%L)bs&@V9t=*^ag@pPOoefIA8V*q&E2@ zF3HE36WH;rCVV$AFBGy%HBIk{EeUmu-O^r+w-kpg^ks1-z2~KDK$?MsP!f!-MMp?P zEYj;R14~YN&(dCqMkXLNg-s5pX-!kiU>F`~=h1Q%S_aX;X#{c{NEk>6#+Bf`_B~6B z)RhiM5lSdrtzFaI#uwD!EvWHy$5nVg2xet>8()h8h+Jw@^)CxGc`5XNq&6p3K>z31 zPV}58+&I?hbvx=9Qr$$#UWfHo8F#%A3WTd)TC1cUyKHCw(Ug^(f+Udi&g=kvmbX(-p?O;;GEn~)trMudo|9x)rEq>7oLF; zzF8*BsAnwGk)c)ioYS-l$@oU|RIS1jni@+&dAFa&pl>*wS|yG7FOFc$ADs+cHpy65 zo7}_gOj0V_&?X;^H?zUzQN;N@3WMv;+cA~-Wb`D|_zWad-ze?t z+QWiBI04oRj+Y-0!{d__Zhv^(4rtboMPBp517c`Qk^%-QMguLnF8Ha@_=+PVlN7Gx zkx3-3{j%T>mjF{?La?+Z$v>JF|oq9`FVWfpoM9{>ae7 zf;Uu- zp@_-bJ^;w7g$I1W0r(I4<2jD^!{>@%&gyRCgK7dXXQHGC!(Sn_$&lK#seQo=l=KF2 zeCkGbIQ_6-ccGdqXoFvM-;{brxl!$p1n_MqlUA|4SE|Jm*AoNXFO36jtJsp9YGG|j zz?zT2ueuL!i1JD!;jr2tOvE^EmqvY!ven|uI^d;T7)#C0I%0RGS{w>xt2c!4E~r4N zYylF92T}xtI;Zxw;|_#XXc#O$;B{Jo90wAX+E{?7&Z)cG!~iKOyw^tPZsQLMYYzA* zKGni#QQruY1wjLl{c1}@+3E}Hk;Y}(_p5y^TBN1hD@FrNcRGYRLDjwbxy`b zzzgz?Y7A|Uu;;?NUSCxmn3oBM8E(;`M3*c9oO@p`wC1m>?JoFWtFzC)s$OJ2VKQ}w z?6D@(BKs_pDOOzT`siKGwEUxY&5t&)Y^-VOTClnPdnevxXR351=`Cw%R>!m{+@Yrp zgsD=dcRWR3mhn%;5~@lmEk@KDEJiOm_$Q%z5qvTh^Z#?#)qUDm(XmSRs#Qrulu`-g zs)O3$GTYXe$hyOl0Xv6oiurfAesfn*UJG4&*uTN%(D|wI-701ICtRV)6*neTrD<~r zHP^MGb9AAJl@Qf!t-l3JUR(%BN1G!q(&q37hwla#s?FgI7w=bCP~uh%t0P>S!(nM} zbHKqPIw8=RT=ccmKt~RA>}^#+9E= z49xUZdAN@(FisjH{k^XL@mDimyP=Mu&S~wos}2-AWcQzgpm4)Et(IG)Nu1sH7W{6C zi!>;jC3d8DB_@gEGrJO<3uc$!fJ^57_sXXax>x>1@SpOBuffoM!M*bKqI=~dhyPQ) z>1U|EjJ#Jqam>B)&&vNPfA2C}(M`Np{&m&8@}g<~lwbG({tv6~m5-^tSN`$r?()%I zC;JiWrI>2D(9B%7gdV--4N^clUcH(h0mW~hX13(p?dGNYKkb396rWt>w4*v*v!A;J z_j&U@y3WI1n}LPmZITWvDE^bHb2;SB5+8mTptEz5*s*APEE0GV`@V(4x$wO^`E}X7 zJDI++`%V_j{^Ek<&hK9NoOSog+n@WV{I{>+e{kcy^8ft%Uirjr|CC$4g3rmud*wB+ z+$;Zj=Rf6HXR(OAaj*P`H}92?dHbL8@uy+_@W8$D(4l+fr(5vA_%({NPiaT3H8^+g zGV|vYnJqoZg^{FmKeJ!yqk5L^x9CgvkA{P&wfg)$qb1&OQt5snDVE$&K;v5v_OKr8 zVLhb%^^o@Or1V!65`VZb0!3)-ID?5*T^@*zdmw5N_QVo@n{gdBl&(}VDgxtEfPSY7 zd(IXI+_PduECTdXh>|=8(k$_&V;lthSs~^E%rJl*-7f4S^p0KF9qibJ z#offi9u#%sxDiVWg2~W@ssJpoM`F@ppa>@Hq=2fV zO_dTTrdFUu02TxjE(Wtys{jnL9V$-&q+2``3)5DxRmFI)k!HY(h8~@i(LsS(9-%HP zp~AFY2^H&Y>y?WVeqFER_RIYKFoW1h@0YooseN)DM;(Y{U6;k;e~HEa5{v&O7XOQF zbnflVbcy=&+}nlaE?b{v*sNwOBSOcTPsB*?Y&onhrDw~9Rcj83!L)3-+aDAU%KYuU zvgL62f)kPxDeQK80$24+B_%CThQB43+uLu+2_x-weJDBZ#lIHz9%Idk=t7lGUhWO)bLE1nO%78t*fT}6Xjs%Hw@}DwR|8qqCWrQPwjA;s9?tFhH5$*k6~x2w zuFb8ao?Z999&2v#qKoW*T`dkgT?lSO7EEBz&myE)azaxt2;tHrFtDKtw4A=qw*sfp}LzX(g|lR z24Rk+_k}SkH{Diktcz^bnqq#crcG)ZZAXeW1^j{>-Hflo(w7g;Mf=ok#)q132_8h_ z#Q(wgnX3zSqiL!I%>KGyRBfEvz6yCRP!V8bP;b|}O4tJ%BK~&hTYYJnjehw};*TXG zjsBp<=jUo=C%QJNm05Bs))Z{?vyl!zX7EQ|W5rWh)UPfm6`T}x`LnvvlM&t2=noh& z&{R4+n-oVn{x{0(k6|=Zlag{kAmH2ENR%Gnh1M-sLc zKg*p8x65cdNeP9JKip+Sp+iK$=Xd&j{sc`9)*Jhck%hd2`xTeH@-_JUJmX*=ddU+>N%@D5kG?hRnK{tU)Y2hs)WhE$Q)^8%* zBcBC#o__6Bh0Y;Wu;vn9RtGl+9hC)BLHAS+a1aEZYy}&|l&vaim4pA}HYN8kDbDKB zqC+P&hasu(tw!inkLx5h<f6f_m!Q2xpOfF z_<^K7w=64p(=mYIZo&$zV|IC`ZjO-UpVcD-54QL$N((YsO*2;tS+uDK!cmQl=<sjc191cb}u~Fdy-cuN9?n^@Kc}yIc@q67d4T7xvdq5`%AI zHzL>UNk75>;lijqxQXn`#=!co&XMrG*pKh)voD7e)hA4H_anKn_No&m#o4j7Gu&QT zqzjCKokCTaU~)gyWD?!}TzS;?PI^2yjy|>f$G^tB@e6)ZP; z+zmdF?PYP`ZVtpr;E7&6>DXRIQ@g|Q@83o52K?o4=T(k%UZx14{_q!~l8)gB{C=0j zxf&G%`N(-o!0`8}c)rqgG>BkwcKlE^mb{h9(c@n%>>8p*j>j#YLIhf4D(e`84?dq` z-|8e^<<3^&kJpXI&Ihhbt0~5{T(xgH9ylg}z4%84?8U824D7|wiI}gcS@4=lvq6Qg ztgM@SWfdtjOVeBz$T=$R*1w&XMZP~=DCZn5?B|VVUJ$lZL*TbpHq)%%0Z&m=fpfpo zXn-bL9J}%AaqM4R$B91W#bn~eWa7nS;yq3(yq78W6blWpr?7pg)bVMcTQKIJQvuulrW0HE`l%aN*|i04UHql-1wTR%IfNR~@;6&BBR8 zmjMGs%9Y?$QmL4c)O>dm9Kxa@_Vr28p(Af`G1_NN02xU6hxph0kbniMJ2&+=lCM;`1KL4GAmtmYlzSw^ASb{-;((A+5xFP=sJ1OsBQP`(P~*Legv) z$GlE`o{-5qgpb5=HKTBqIb@s?n}b+fJCfMHJLVt+b2DSR79s*?<6_%Su8WugBfoEC zojbq!*VtD(dY#$i8%^m4e?)H68ZK$?)BOeMak+s!Fh&(FOqsb_o`kqcg~Y*xoUI`u zn2-}Ou8p|K_%kE9WQ&pfPUQqq6>mYR%lUXvgUoOxAOfr<#a18G7Cc(;lZA@G`b8$q z&W7wQU+g4XAfNkgF4vaXkG7?G9w#+Xu5IP#(3hw`O%^Dwm83aL4iaw3myWy;02zEljUQnW<()RBM!GHEZoV zV%jiQ(dawz?#MaaTgtk4j zGAxIF6-`!S(NrE3H~0Uj2mf|GAm-ngc47qTQxB#PHvCmO7z`;QaBBZm{_Tfoi2slB zZvl|~>13uV-z5zlPmB>V7rKYg;hjt%^3y=POeql(s^&w23{YZ;KH&!&f}_$oH@T9W zY)xe#hDbHzo5N9x?`U$A>if6pR4rjhESTHyUX@0i++WG3c+6r|EJD?jl#*>EAkEej zh%T_I=t5Li1E?`>6os0AfuVh}Ww&Axv=Vi}PITjl+L!a7Q>Pn2_yke%)h8-Ylkx;f zhhmTF|L*vYYOpH$wVC@~`?FGTSXByUeo+cmPIhqqduAh4^&z+sGWz1YeUUG#5YVh8 zl?-PLggY8avI27(5FhGC4j_~XFJ}UTa-(XBkJqZ{h0(bn_$x%#nM|7iu+Yl^eK@9? zquSZop};8C2jZr2KN^l}p+MY5?q4%L{{4B@et92oj{jm^hjN17an~OpJwE_Nbm0No z(~ghj5`l7!bUX zUdR6pG`cqUpX{2^KTFzPw2}G`&{7(uV=$6ik6|6qP#kO*y?GAan-@-i?OyJlSxo+1 zzYZb`sAPsQess0m>QkPEz6GE)`X61MH9Tf8#qxq?rBiMnT8!6*Ow zCE6#r<^9WRobcSRd;n83j_mqHY8isL7!^M=n3=%6R8P)BR`Yi9 z(?#-EELEJF^-?A$y4FQbFM_P~FWTpx`>fP#g=D$-iwaS&6f{u30;!k*j*2VL3H z37v$v)NK>3DIcR9On%UVv-}yW^gN=%{QqGwA1JNQt&w6WUyYO@4^1PwktFtvbtDN5 zkjA{q$JUR0l^2DJ0-Gg`>EzM1hUl6l;R>2=a`F{YAS{#8q2bcrrqUIy3*cV2OUB*c z&ug1&p>%+m$JM0u1u{jnW`W!%#$tJe*v26G?G^HqUX`a+Y4?)V)>N=BbQKS04!;TA z6mUlvud-?wsWsIPN1Z8>l4Go?kb_$1F{~|IW8ZoLGJ!z;yjwqj9d|;KQhu4$EFk7- z#HM|L8v9$J-It5tqds@uR?rt#L0cTxpGSmIKq-OvZnbp}bWZx>lBA*U!;CPdPxs^u zDDV(|v~6NvEYdU9-&p<6hkj#?r~Gd11SU7vt$)fYRsF##RU;;PjGHIi1J+9hI24Z- z;f1Il_V0GG;~C@;X?HXq3M8g7FlwN%334P+VedVhZ{H<|oE+dWas-Ln@;N-bBx)|6#*3G?I|}!is2PsXSqnhWF@ZB(V}i9^xbgMG~jvW85k4$RqXhNidl^pNwb* zdj7e2zOI;!6hK+~%OQ2i98zDiYj_}<^W_lo0j zLs=A8t8B&YqtQqjhL*Pl$oH$wftiuj=CH5dF;kd^;s*WL(P6K6oJ9PATT9p%rijTG zrYuHR--6D%rbL)9+?-=zCJZMN29iGy_a(DlGz#iscT~I&Wd5QNYu#kls>xV?3u`7* zxullpH%wOU$DBw`4i_5(W8+wQb>z(Yfy2Hw37p(fcyD)3O@w8ZQVE9_0-B?);{TCM87mF^!O zC*PWCcH@Z;l~{5**h3}Z-CDjhkTCP5;SLjDO7f@9{#i2KY?|?@9;C)*6N#4~LS}j* zujDCmtt_u3mtL^MOAsUD7>@riJ%Tm>rH1f*YMqU-(K4%h?t1B&BTm=ViW$4F~MaRdJ?PZl%lk()zqR779 zM~j5B)Eu~9(@C7cvvlD$9N8LPGPuu&b(R-tCfHv2LJ-j%N(g~z7>1n(-(pEf8+-G5 zJ!PvqFp2}Ndh1Y~!rVGkA7c)Q)N0u^1`I>H#t8GR9^T9d`8VHS$)v&w>e1`5=cPu$ zL%6&Ux4hPpJCt)>u|$#_uVN5Aw*~xs{LVmmp|ol6)&8|@IzB1xw){@p(uYAbYqu)Y zf8gqlzGv{Q&pl&kJcFRG4TK|pbNGO~6*&K1Oh`%k64yu$sp9qnHSflc z{)|Wj?P||U*n0qym{JjmQYymRFw|yg$-lT91oKPxPE_^VQkfvZgY@?$zG+fIF!O~e z-sbs`H+A!32(R33KEh{5iT-OpK1Ak72tS74-<#r}00p>I)Jh^TJ}tmB`At^x9{}cP z@fQGQVIB`DS4aNO2+Y!QzVd$p9P<(pt35O$mkVaNq@Neh0xsdmn-TcWp@YkL1b2wO zHPo8Dh8jERb*(kkf@R%$Tlm*leYbuW<4fL$v3|Yxy6``YbSU4N%3`>trJ;gLf`WZi zKV|3$p*T@&P4z!S=sdpFn##sdde#Yd#{j>;T8N#y(;GOHf5~jkx?~os)_Y~vV2*08 zd8mKw$5`3`f0XLq$HI}Nn+cM%uM%_u01c_^Ip&bbSZ6-Ko5NQ?Ndxvnqchwj@7BnM z=?1Z5w^Mk?M7Eq~`OB^7K(NBbPKX#E%nzA3qbtzH-)C~3;FgEmjlb6fMj1Dg05#rc z5_yDLTr|YdWz<}46`2hVm(hz*rWho&dcr$ew-_*NZ1kH#+JEA zj$_XjSkjXq%h)0PV5$%fZQr}fRd*2Wy}gKpogBAXC^1mw)e?iAJZhM69gBx60lUrn z_q(0KAn0LdQn?k4xO}#e9b{JSH&a61h$~x98@Mf-a1p4p9y01ILrmN)7qnv0((r5* zY;DZlXbbVKTZZT58jD&uXXb7jc{O5>KN}VG4VmJk3Zg038b+$i{DDH9M)X79ki;9o zevz#iZ03veG!EBPt!MsJZ3bQrGYGsMb@WT>4@X>;ha;RhD}gSu`lwwj*OK!fMTVrK zc2WY(VVPgg_z>=?Iop)$|Sr7l7TqO_V>>R9ZrLzucDB-4Q{2Qbe&C;_rH&~81i>8wu|0~a{ z7E&K4LE86=?8jr81{8oF+GwG~s|?z%G$HAV@oBvmi%4m`1w=p)1YoO%)O0@?2K<2P-NWy$CV+7stU!xmdL4 z%%aj7{N^42{Yp#(cl_2HGgOv2o2|)Fw2KB>AR!5!0|D~1$V1D1bMq`rylA{Ul(2X>b z#RhSQ&b1h8j6}i6o=PGNs5Hy|=MB!^45)EVZL`+sd%sF*(f2EhdK=JxpiV z3o*=sU-9S>Bk_M@u~wXTy+L2=G7SDFxWl)1}Piab3L!X@eOzV zY1%U#ljHR~27?0LpJu)wZ(Yx0Q9A-9wkJempGvEA1mS}4dwY*&(pD7@@(!e57P0XJ zufkcbu_svmiO(&hK7kM9CG^mFlVMdWw$4vf7;$q0N!7*UxS)@c?z+5(dGgYPSVO^` z4wL-;5KB06>!`8owqR-YFh=S#j=YPktDXoCj+ z(oAZZO6W#>UkrO9h=DAEBmCHkuSi0L<@ngXuY<}vV@@$?y;Eo*9%XS0A<6|cSrssF z3YZ%p#H1$TU-*#lK5vZ;*S*iPWWPpf8{y>SRn~Dilx!zL#4!@f20F~o-Ev!y{M&8~ zeQtTa61%PvQ=F`A3A+r!V$j#NuTMij)5eO$a>Irykj%}KqZ_JNdG|033h5Q3C5ai43vk9?zLk4@#rrwebIbrXFU7h`Xly%!5uNT-p7jIu?FiqcO%F#U-z zmnR=t$tO{=Ar1H`5LnWNsNCw4(odFnp-V1^Qb5s%ZX&1CXFh|u@B{7f`7o>4m6ui$ zJ*i=Fjy*@i9N^I!Yd7Nn?TB%~^&@Y##9GHv9@hYr~>w>5;LLA zmW6bk4@|->7V7&Nc;&_`_u=!EHe3Dg-q>Oda++J2FnjZ(BKNvI%zlh_j8&Q?Kfmjk zM@0uY&1g(!_7is?F1{cJnuJd5(42dE$B$}anvDlYNz#?1r6(PgZ5H)hT*vgNM zV)x1jXNwu3iVRj_m!et6Q)rwcbeuI+!FZYE(&aOkE`xb&aj~uH4kEPR$U8|k3_L_w zi2O}xNTpdd;E2~IiA7k2sxL{M61fRU-c4}XjsXvOG23_b0`(T0d9lGL>HAY&-j&QS+0{b5X)wt|77SMUwsi62ByojD8`K5v?TI1D-)m z-bvI9JVw%n^tbz;EYgx?3-Dt@Tl3cbkzq@=4VO!{%XNvB2yX7Q1-e&kmuIxE=qqrs z##=jWu%0bHn#m1ZrtVqgrSl0nGe}-CpDbSjgSgm7&9FE`$kLF!C`2YKBK7{QkwKBB zg%3i>7yH$Y1rI8^*adQj!UnoDNwaw2Xu5D%PlQ|DG@VQtG~)uSN>AQm){DD7vgJaw z%hVrig^1^LJ$TNRi?PZ+t#u3b)k%!LGvPoYG|;X)OPqT??H5k6kJ#lXJ5cGmO0t#3 z(=28%t5HD@>E$j4J0j(EJ)N(_^t3kC&FX0+7O(1I*g%uPN1csqNjRbLQMvoc*-CpH zvab8$bTEVu;*=9U0$JrGIxv>dOu|*3pG3KUAB#VyZ$u(Yb#W>m{NqrisZl+tQMKwd z(!t8cMyLXpCiD>E7!!M5yOIjtCy*RxRw;SMnK`lVb;l7v6sMbGT|dR?O|c<{I2DCS z+WE1aKTXos#1h6v-4Wb=bky5NKzwGw)qBT`JT2!k3}DU;FXLc@tGDe-t$WPk$B)0!;!emywtzB3p2_t z{#mDRBHfHF;R)iBPoztzAbR`4E?oA`9~WsdXJF93PYYVR*g?LQ>ecnVibVWFrHP9j z>HYo|gF@F9fZug(fmETAB!3Z5=y8v>bQCvhVLn+3Z$}{<5$1R!ENyvQ@vg9=-cG1L z9^`Y=ft*f<-TVH8XPJ+3N&csdnxBx?m{`a+0IB+l93H691XH%fwr?mil?Cq8M%K>r5A zMrY`G+eT*wSOlSL>>;kI0MS@TAw#(L2Byi21ODG0!g}%=#)8qr?dwM}>;=xKI{*%$ z-wY-qUL!zA8&}y-Ux22t0)A|9$LvAJ+II$UN;OPw_l1e`V#5f|4%^bqh7n-4abD{y zMuV$n5&zD;m{ji#){VuYvo#DZ?j^q^X;FWU|G}wRvTi>vG7kJRft;-VqhWAE3@dph z$1$GzGX{L?3gR-w1o%3X(ne&GFj>hMw9oLl-Ab= zz?ydF|F~dHTVrx_$^vYeWAV92mBx1_aIp&&l~};U)Y?4(q$1h0TSyxhBD-sZ*Zm`f z)8jO1jPNzVTgS-8iGps06Nm~p)1yepSDWbVxx--^yi-Wqcc(z62y*MOp@HouYm?kl zL+h@>%Cr8%>~OmNd`vi>?NuC44Xuf_N}pOq;UAdrHVVQk9!<>wOzo@bEb;zFo>a7} z=^tWmBh8fUtEsT{0h-lJwjvaQI>ptLEtwGL5>``959{P#p27~Dpt`%QWv>(n`>AF@ zChm7Y*P9>Mk+!iwIFfJ4>Czp^=VJM>q<3k)kmJ`c%_qA?amS7duVmVD<^q>M9?uT! z(LA0_j;-f78f=qRu6JN;ty3iuo&;z{ag{?^?=YkLvNFaphZ%uft2}c30q}52OpjN8 zj1f+Jg~vY$p`y?5zK1BEo=?{c=a@w7py3?DDmR{EIOmviOyH#X9OG<#YkRl}^#Owc z)~1i*E+%V|Q}+?0U(M<2IeGVs1i0)?FD|$px1Ve*9TeOxl@4ORV#JHhS*EMZ!uhCw z(72uZL#)YkoU+R9*V0ngt&MBi?PU zhhT3#6H*fwDdgn86>`dFElhdrl%)k9b7>31dFPF95VjhZm>(YLj6bq7>^D75NYB&U zmB9h8XdR8IS~%jiw}^<8>{duX{a^WP1zcO%9M zqW!9BAqN?XcY{G`E!uKy>vhS{_X*bD z`^J=b>sE{ylfYN|k3`u}DOuZ-XaH5=nHvlh!6wd7(XWgupo3)%6*{V^AeIV$LBdi& zPZ!J2JXb8|KUZA$4AXNV|C!<=&tTtm6#K4xt_mBSOJL07hE$a5x4EvsH1qitLe>o& zJ(+O&DK=j}6{gnsKvR6y<2 z`@{B%9K$Lkroi@!i0S0^3f4xV?j_5KpYpf&1sE-c5g^q?g984lYZaPPmMx>;34rBh>|XeEMpSZscA@}>9MAblZb@F^Xku%r{4i*_ zX4eWoafY1t!GFkYFD9Fdxl`Im(+D_ex=zJ9%FdN3IsTHTUn9>B!R~l&QLN#p%9pra zx`EL6@LU-7{>}_c6pUCsIFKw_JvdPT7)m2i+FA!Ym9IOhImSa3^0bbR4PfH%>uw%Q z0h$m_>8!CN^HCXqff6Wa-qzWb)PBMZiWijsBsd22(BP;6vkVF{zM}qpT3cOFyCHB_ zbP^%f(|JTp6eWW1nzl_EA0hSc%IC@hb0gYF2YzyO^67eqeTy+79EhwxS;sT>61&m|HxcnetvfP_HWcbkKwJX4`UcmPQI+pNL6 z(jaY@hJX3p%l8M~1Vl8FbOFQVT)rPF1%P@1O6ahoFv<=T+;{uKT`~%H$p8z=1E15r zK>;PaZGYgPRRw4Qa1Sscirs>GGc`%_x9yjscAktnWU=tlr=t#OEIfy6nr_?wGwyDH z2;3bG>Yg|!)~-K*R+2LYW5%s zjOb%O{d5BCP%nc=>V+S(IPa4P4uc5<7P%bmj-0V|u*{z|JibO8V=vFE;4?>0cGp|S zI%inN`nfqdgp}4PwV!QS4D3CbUNRdCyk@=}#CGNyqqfGOu3xo{e;u#)|D*CpQ*93V zLgT6gxBxyGza(~_cmy45_7O5J8}&_}jL+~rXcqksnib9Y@x#$Ovg8-G5ZYV*Krehf zDH!lL$s9N_STg5y4dUuzZ3DTwUXI$Rv*3!;+5f1Y{qR_5@#H?0Juvu&I^bC^Mfk24in?GmRP)dp8R+jnlkcGmXMtgV9^d4^ef|hAAHe zKAPxi9(sdzz9Fq~zCpOjFgIqjjh|$+uHM&N3y;U6?nYzaQTOU4wp?3&u7hvURHn!G zO)_QyYq=!G`)-DmPjb*IK!D=SbyBK@t9{29OJ$y)rjw>#npO%I3On5tA1FxJhrD5$JKRF&UDNRcD=s}ZhYd0@&ULGW6%y>v zm0M|7jQ8xrnCbdGG3s(W%ngLpkwIC;%JZ5a7w;$5JnGigdOQ$Izw^)7VLw=&CeHGB z8sSHVR=RbWI3zEw3H5iL8cs$XXxPI44b@=`E3aNb=jbOIN!(Sn@ zrDr09({2>X4m#Z2&Sk_-{B1XXoM#>TdET-!qupRmG|m7Uc1 zmIe&1W4@b~JLVlyIOd=HLIkjvmDT6WU$}7I@308;BPEINdG0Amr}b z*n@D|yXtZ8IrrtJWn_8$_tgFiwkK4~CGL9YswuCbZfrlYZa(U6Chl_7eT+L*_akIl zhGSlhC+r`6w+MT#_fM~mkH&^#V!TUT*1nyu%9kus76_{HK_@=)WgI(9y4UK`j z#)g3TL=vWB{_tAhV0DQ2nyUX8b(g(?s;XCBLo_H*o};S??3_t$V_>&q%?u&mYstxA z*G9N=G`!pKn`a~K6-_Ioie>O(R}@oUE#{e;f_+bOC#SV}4>2$s@6uk(!0dE#nkn`+ z`*{W%i5D#FaujZ6w*;Qj-oQ^V;z~04~}N`FiJ$7IB2-o>IhweJa`Du^h8LV z9)bw5db9tfa58{WlmCJw8?wCN4xc*ED=3ZHE<35i8}7Ss`l-Zg z0LtxQIhylV-Az-4x181-yS|8M3bKUjlf~GL`seMHsQ)q2)CNf zv5_WYiU%Vx5sP){dNe+v(5cQWg-!sbB7PSC`Fdp_$yDM@Y1JGU z$Kxk-#@M~46FOED3#qWk?&o``kk%}Dza6azPcfj3$@Mm_So`wUmgNviOD*8)ceU8f4=)j`?^lX86@{PYz3$$M+4 zMozA;u%;I47;9<~m~SZ8uYv!LC>7rkeZLLHbP`N0tfH}GRqhB9*m zhH<+(cZA0BL<6XrtYb2*{zG>ndBT`!4eqY7k6;5MB=e{1C4RKkq33T))6EclL%!6K zIm1Avnp*Vr`m|kPLTi|P!{EM4L6nPqCrm=th9RQlEl-%^iExweCAf6Uuf#f(mo&Oq ztM?@h2$V9$i0Og0^f97BetcWhe5Y|bzSFR5lvJ#Zc(=}2=&(J@2fO71X4?3kwd^ws z@XZeCSzhiQx>jtje=oYVY}2cnsqdvXO?@vRj_BFqx@`nKl;pd3KSQgB3PX$mFD1js z{l-9&|DGp5>G0k{ght|*hnHqY_6=?vR*0>J?PS=m-+WSja|%qRy3Hq*KsyNyCY>k9 z9hz8k@7gdPmBxu#lHw%2uDDRxUznz(?JrE{<1Y$hj0?%PRB#Qn=45b>43?9>sZlaL z13AU#8EDJ1af{Du_pJADF6jvu-Dd+jcHC>w804Vj16F2sxxubQu7-HLcI%Q zVi{DE&b=1_vf=YI;q5dnD}!VvZ6$eSZ-{FQ=*4A!&KSTK0&{34yjCSoRzg=@c3pa= zpKp29dzGsC99YO~6o4&FE#W-BRqQQ@DVpSpYD94gb+puarmoN8ljM&I|N76a zF?tTB3sqEPiiz&CbV29Q8!z8PmM<9j@>p(?NJX1Sz14QAX(C}h`xBTF%f#vY|G$%$izRWcU|Z#TbAj z9njLWZ22uxYPsLg34_qBaCU4PBc+y^Yv$CZR#;QF0rPyjDim;w%J~HUM89h8KEhUz zh%~!XFVg3egOJ(9b;9w-PzU!w&2sy=I}B$wS7@&nCt!wMhsU=->2+`_K|03%j8- zGigz>uOf)uMQ(tj;cnq&#)#%0#GQM4f4zf8PTL@gi-zaYla_vbW=Lc+$Sf{b%H?bQ zz#95Wzz1)+Z%`T!_OB5|z_%0-TXqBCX5kY70N}`-Ma+3DE*e#z_hu") Kind.Parser.dom.prop) reply.pst$42))) (let ((self49 reply$48)) (case (get self49 0) ('Parser.Reply.error (let ((f49 (get self49 1))) (let ((self50 f43)) (case (get self50 0) ('Maybe.none ($Parser.Reply.error f49)) ('Maybe.some (let ((f50 (get self50 1))) ($Parser.Reply.error ($Parser.Error.combine f50 f49)))))))) ('Parser.Reply.value (let ((f49 (get self49 1))) (let ((f50 (get self49 2))) (let ((self51 f49)) (case (get self51 0) ('Parser.State.new (let ((f51 (get self51 1))) (let ((f52 (get self51 2))) (let ((f53 (get self51 3))) (let ((f54 (get self51 4))) (let ((f55 (get self51 5))) (let ((reply.pst$56 ($Parser.State.new ($Parser.Error.maybe_combine f43 f51) f52 f53 f54 f55))) (let ((props$57 ($Kind.Parser.dom.gen_prop f50))) (let ((self58 reply.pst$56)) (case (get self58 0) ('Parser.State.new (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) (let ((f61 (get self58 4))) (let ((f62 (get self58 5))) (let ((reply$63 (($Parser.many (Parser.choice ($List.cons Kind.Parser.dom.node ($List.cons Kind.Parser.dom.leaf List.nil)))) reply.pst$56))) (let ((self64 reply$63)) (case (get self64 0) ('Parser.Reply.error (let ((f64 (get self64 1))) (let ((self65 f58)) (case (get self65 0) ('Maybe.none ($Parser.Reply.error f64)) ('Maybe.some (let ((f65 (get self65 1))) ($Parser.Reply.error ($Parser.Error.combine f65 f64)))))))) ('Parser.Reply.value (let ((f64 (get self64 1))) (let ((f65 (get self64 2))) (let ((self66 f64)) (case (get self66 0) ('Parser.State.new (let ((f66 (get self66 1))) (let ((f67 (get self66 2))) (let ((f68 (get self66 3))) (let ((f69 (get self66 4))) (let ((f70 (get self66 5))) (let ((reply.pst$71 ($Parser.State.new ($Parser.Error.maybe_combine f58 f66) f67 f68 f69 f70))) (let ((children$72 ($Kind.Parser.dom.transform_children f65))) (let ((self73 reply.pst$71)) (case (get self73 0) ('Parser.State.new (let ((f73 (get self73 1))) (let ((f74 (get self73 2))) (let ((f75 (get self73 3))) (let ((f76 (get self73 4))) (let ((f77 (get self73 5))) (let ((reply$78 ($Kind.Parser.text ($String.concat "")) reply.pst$71))) (let ((self79 reply$78)) (case (get self79 0) ('Parser.Reply.error (let ((f79 (get self79 1))) (let ((self80 f73)) (case (get self80 0) ('Maybe.none ($Parser.Reply.error f79)) ('Maybe.some (let ((f80 (get self80 1))) ($Parser.Reply.error ($Parser.Error.combine f80 f79)))))))) ('Parser.Reply.value (let ((f79 (get self79 1))) (let ((f80 (get self79 2))) (let ((self81 f79)) (case (get self81 0) ('Parser.State.new (let ((f81 (get self81 1))) (let ((f82 (get self81 2))) (let ((f83 (get self81 3))) (let ((f84 (get self81 4))) (let ((f85 (get self81 5))) (let ((reply.pst$86 ($Parser.State.new ($Parser.Error.maybe_combine f73 f81) f82 f83 f84 f85))) (let ((term$87 ($Kind.Term.ref "DOM.node"))) (let ((term$88 ($Kind.Term.app term$87 ($Kind.Term.str f22)))) (let ((term$89 ($Kind.Term.app term$88 (let ((self89 props$57)) (case (get self89 0) ('Pair.new (let ((f89 (get self89 1))) (let ((f90 (get self89 2))) f89)))))))) (let ((term$90 ($Kind.Term.app term$89 (let ((self90 props$57)) (case (get self90 0) ('Pair.new (let ((f90 (get self90 1))) (let ((f91 (get self90 2))) f91)))))))) (let ((term$91 ($Kind.Term.app term$90 children$72))) ($Parser.Reply.value reply.pst$86 term$91))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define Kind.Parser.dom Kind.Parser.dom.node) -(define Kind.Parser.forall ((Kind.Parser.block "forall") (lambda (pst$0) (let ((self1 pst$0)) (case (get self1 0) ('Parser.State.new (let ((f1 (get self1 1))) (let ((f2 (get self1 2))) (let ((f3 (get self1 3))) (let ((f4 (get self1 4))) (let ((f5 (get self1 5))) (let ((reply$6 ($Kind.Parser.name pst$0))) (let ((self7 reply$6)) (case (get self7 0) ('Parser.Reply.error (let ((f7 (get self7 1))) (let ((self8 f1)) (case (get self8 0) ('Maybe.none ($Parser.Reply.error f7)) ('Maybe.some (let ((f8 (get self8 1))) ($Parser.Reply.error ($Parser.Error.combine f8 f7)))))))) ('Parser.Reply.value (let ((f7 (get self7 1))) (let ((f8 (get self7 2))) (let ((self9 f7)) (case (get self9 0) ('Parser.State.new (let ((f9 (get self9 1))) (let ((f10 (get self9 2))) (let ((f11 (get self9 3))) (let ((f12 (get self9 4))) (let ((f13 (get self9 5))) (let ((reply.pst$14 ($Parser.State.new ($Parser.Error.maybe_combine f1 f9) f10 f11 f12 f13))) (let ((self15 reply.pst$14)) (case (get self15 0) ('Parser.State.new (let ((f15 (get self15 1))) (let ((f16 (get self15 2))) (let ((f17 (get self15 3))) (let ((f18 (get self15 4))) (let ((f19 (get self15 5))) (let ((reply$20 ($Kind.Parser.binder ":" reply.pst$14))) (let ((self21 reply$20)) (case (get self21 0) ('Parser.Reply.error (let ((f21 (get self21 1))) (let ((self22 f15)) (case (get self22 0) ('Maybe.none ($Parser.Reply.error f21)) ('Maybe.some (let ((f22 (get self22 1))) ($Parser.Reply.error ($Parser.Error.combine f22 f21)))))))) ('Parser.Reply.value (let ((f21 (get self21 1))) (let ((f22 (get self21 2))) (let ((self23 f21)) (case (get self23 0) ('Parser.State.new (let ((f23 (get self23 1))) (let ((f24 (get self23 2))) (let ((f25 (get self23 3))) (let ((f26 (get self23 4))) (let ((f27 (get self23 5))) (let ((reply.pst$28 ($Parser.State.new ($Parser.Error.maybe_combine f15 f23) f24 f25 f26 f27))) (let ((self29 reply.pst$28)) (case (get self29 0) ('Parser.State.new (let ((f29 (get self29 1))) (let ((f30 (get self29 2))) (let ((f31 (get self29 3))) (let ((f32 (get self29 4))) (let ((f33 (get self29 5))) (let ((reply$34 ($Parser.maybe (Kind.Parser.text "->") reply.pst$28))) (let ((self35 reply$34)) (case (get self35 0) ('Parser.Reply.error (let ((f35 (get self35 1))) (let ((self36 f29)) (case (get self36 0) ('Maybe.none ($Parser.Reply.error f35)) ('Maybe.some (let ((f36 (get self36 1))) ($Parser.Reply.error ($Parser.Error.combine f36 f35)))))))) ('Parser.Reply.value (let ((f35 (get self35 1))) (let ((f36 (get self35 2))) (let ((self37 f35)) (case (get self37 0) ('Parser.State.new (let ((f37 (get self37 1))) (let ((f38 (get self37 2))) (let ((f39 (get self37 3))) (let ((f40 (get self37 4))) (let ((f41 (get self37 5))) (let ((reply.pst$42 ($Parser.State.new ($Parser.Error.maybe_combine f29 f37) f38 f39 f40 f41))) (let ((self43 reply.pst$42)) (case (get self43 0) ('Parser.State.new (let ((f43 (get self43 1))) (let ((f44 (get self43 2))) (let ((f45 (get self43 3))) (let ((f46 (get self43 4))) (let ((f47 (get self43 5))) (let ((reply$48 (Kind.Parser.term reply.pst$42))) (let ((self49 reply$48)) (case (get self49 0) ('Parser.Reply.error (let ((f49 (get self49 1))) (let ((self50 f43)) (case (get self50 0) ('Maybe.none ($Parser.Reply.error f49)) ('Maybe.some (let ((f50 (get self50 1))) ($Parser.Reply.error ($Parser.Error.combine f50 f49)))))))) ('Parser.Reply.value (let ((f49 (get self49 1))) (let ((f50 (get self49 2))) (let ((self51 f49)) (case (get self51 0) ('Parser.State.new (let ((f51 (get self51 1))) (let ((f52 (get self51 2))) (let ((f53 (get self51 3))) (let ((f54 (get self51 4))) (let ((f55 (get self51 5))) (let ((reply.pst$56 ($Parser.State.new ($Parser.Error.maybe_combine f43 f51) f52 f53 f54 f55))) (let ((term$57 ($List.fold f22 f50 (lambda (x$57) (lambda (t$58) (let ((self59 x$57)) (case (get self59 0) ('Kind.Binder.new (let ((f59 (get self59 1))) (let ((f60 (get self59 2))) (let ((f61 (get self59 3))) ($Kind.Term.all f59 "" f60 f61 (lambda (s$62) (lambda (x$63) t$58)))))))))))))) ($Parser.Reply.value reply.pst$56 (let ((self58 term$57)) (case (get self58 0) ('Kind.Term.var (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) term$57))) ('Kind.Term.ref (let ((f58 (get self58 1))) term$57)) ('Kind.Term.typ term$57) ('Kind.Term.all (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) (let ((f61 (get self58 4))) (let ((f62 (get self58 5))) ($Kind.Term.all f58 f8 f60 f61 f62))))))) ('Kind.Term.lam (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) term$57))) ('Kind.Term.app (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) term$57))) ('Kind.Term.let (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.def (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.ann (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.gol (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.hol (let ((f58 (get self58 1))) term$57)) ('Kind.Term.nat (let ((f58 (get self58 1))) term$57)) ('Kind.Term.chr (let ((f58 (get self58 1))) term$57)) ('Kind.Term.str (let ((f58 (get self58 1))) term$57)) ('Kind.Term.num (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.cse (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) (let ((f61 (get self58 4))) (let ((f62 (get self58 5))) (let ((f63 (get self58 6))) term$57))))))) ('Kind.Term.new (let ((f58 (get self58 1))) term$57)) ('Kind.Term.get (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) term$57))) ('Kind.Term.set (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.ope (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.ori (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) term$57)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Kind.Parser.forall ((Kind.Parser.block "forall") (lambda (pst$0) (let ((self1 pst$0)) (case (get self1 0) ('Parser.State.new (let ((f1 (get self1 1))) (let ((f2 (get self1 2))) (let ((f3 (get self1 3))) (let ((f4 (get self1 4))) (let ((f5 (get self1 5))) (let ((reply$6 ($Kind.Parser.name pst$0))) (let ((self7 reply$6)) (case (get self7 0) ('Parser.Reply.error (let ((f7 (get self7 1))) (let ((self8 f1)) (case (get self8 0) ('Maybe.none ($Parser.Reply.error f7)) ('Maybe.some (let ((f8 (get self8 1))) ($Parser.Reply.error ($Parser.Error.combine f8 f7)))))))) ('Parser.Reply.value (let ((f7 (get self7 1))) (let ((f8 (get self7 2))) (let ((self9 f7)) (case (get self9 0) ('Parser.State.new (let ((f9 (get self9 1))) (let ((f10 (get self9 2))) (let ((f11 (get self9 3))) (let ((f12 (get self9 4))) (let ((f13 (get self9 5))) (let ((reply.pst$14 ($Parser.State.new ($Parser.Error.maybe_combine f1 f9) f10 f11 f12 f13))) (let ((self15 reply.pst$14)) (case (get self15 0) ('Parser.State.new (let ((f15 (get self15 1))) (let ((f16 (get self15 2))) (let ((f17 (get self15 3))) (let ((f18 (get self15 4))) (let ((f19 (get self15 5))) (let ((reply$20 ($Kind.Parser.binder ":" reply.pst$14))) (let ((self21 reply$20)) (case (get self21 0) ('Parser.Reply.error (let ((f21 (get self21 1))) (let ((self22 f15)) (case (get self22 0) ('Maybe.none ($Parser.Reply.error f21)) ('Maybe.some (let ((f22 (get self22 1))) ($Parser.Reply.error ($Parser.Error.combine f22 f21)))))))) ('Parser.Reply.value (let ((f21 (get self21 1))) (let ((f22 (get self21 2))) (let ((self23 f21)) (case (get self23 0) ('Parser.State.new (let ((f23 (get self23 1))) (let ((f24 (get self23 2))) (let ((f25 (get self23 3))) (let ((f26 (get self23 4))) (let ((f27 (get self23 5))) (let ((reply.pst$28 ($Parser.State.new ($Parser.Error.maybe_combine f15 f23) f24 f25 f26 f27))) (let ((self29 reply.pst$28)) (case (get self29 0) ('Parser.State.new (let ((f29 (get self29 1))) (let ((f30 (get self29 2))) (let ((f31 (get self29 3))) (let ((f32 (get self29 4))) (let ((f33 (get self29 5))) (let ((reply$34 ($Kind.Parser.text "->" reply.pst$28))) (let ((self35 reply$34)) (case (get self35 0) ('Parser.Reply.error (let ((f35 (get self35 1))) (let ((self36 f29)) (case (get self36 0) ('Maybe.none ($Parser.Reply.error f35)) ('Maybe.some (let ((f36 (get self36 1))) ($Parser.Reply.error ($Parser.Error.combine f36 f35)))))))) ('Parser.Reply.value (let ((f35 (get self35 1))) (let ((f36 (get self35 2))) (let ((self37 f35)) (case (get self37 0) ('Parser.State.new (let ((f37 (get self37 1))) (let ((f38 (get self37 2))) (let ((f39 (get self37 3))) (let ((f40 (get self37 4))) (let ((f41 (get self37 5))) (let ((reply.pst$42 ($Parser.State.new ($Parser.Error.maybe_combine f29 f37) f38 f39 f40 f41))) (let ((self43 reply.pst$42)) (case (get self43 0) ('Parser.State.new (let ((f43 (get self43 1))) (let ((f44 (get self43 2))) (let ((f45 (get self43 3))) (let ((f46 (get self43 4))) (let ((f47 (get self43 5))) (let ((reply$48 (Kind.Parser.term reply.pst$42))) (let ((self49 reply$48)) (case (get self49 0) ('Parser.Reply.error (let ((f49 (get self49 1))) (let ((self50 f43)) (case (get self50 0) ('Maybe.none ($Parser.Reply.error f49)) ('Maybe.some (let ((f50 (get self50 1))) ($Parser.Reply.error ($Parser.Error.combine f50 f49)))))))) ('Parser.Reply.value (let ((f49 (get self49 1))) (let ((f50 (get self49 2))) (let ((self51 f49)) (case (get self51 0) ('Parser.State.new (let ((f51 (get self51 1))) (let ((f52 (get self51 2))) (let ((f53 (get self51 3))) (let ((f54 (get self51 4))) (let ((f55 (get self51 5))) (let ((reply.pst$56 ($Parser.State.new ($Parser.Error.maybe_combine f43 f51) f52 f53 f54 f55))) (let ((term$57 ($List.fold f22 f50 (lambda (x$57) (lambda (t$58) (let ((self59 x$57)) (case (get self59 0) ('Kind.Binder.new (let ((f59 (get self59 1))) (let ((f60 (get self59 2))) (let ((f61 (get self59 3))) ($Kind.Term.all f59 "" f60 f61 (lambda (s$62) (lambda (x$63) t$58)))))))))))))) ($Parser.Reply.value reply.pst$56 (let ((self58 term$57)) (case (get self58 0) ('Kind.Term.var (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) term$57))) ('Kind.Term.ref (let ((f58 (get self58 1))) term$57)) ('Kind.Term.typ term$57) ('Kind.Term.all (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) (let ((f61 (get self58 4))) (let ((f62 (get self58 5))) ($Kind.Term.all f58 f8 f60 f61 f62))))))) ('Kind.Term.lam (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) term$57))) ('Kind.Term.app (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) term$57))) ('Kind.Term.let (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.def (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.ann (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.gol (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.hol (let ((f58 (get self58 1))) term$57)) ('Kind.Term.nat (let ((f58 (get self58 1))) term$57)) ('Kind.Term.chr (let ((f58 (get self58 1))) term$57)) ('Kind.Term.str (let ((f58 (get self58 1))) term$57)) ('Kind.Term.num (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.cse (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) (let ((f61 (get self58 4))) (let ((f62 (get self58 5))) (let ((f63 (get self58 6))) term$57))))))) ('Kind.Term.new (let ((f58 (get self58 1))) term$57)) ('Kind.Term.get (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) term$57))) ('Kind.Term.set (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.ope (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) (let ((f60 (get self58 3))) term$57)))) ('Kind.Term.ori (let ((f58 (get self58 1))) (let ((f59 (get self58 2))) term$57)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define ($Parser.wrap opens$1 parse$2 close$3 pst$4) (let ((self0 pst$4)) (case (get self0 0) ('Parser.State.new (let ((f0 (get self0 1))) (let ((f1 (get self0 2))) (let ((f2 (get self0 3))) (let ((f3 (get self0 4))) (let ((f4 (get self0 5))) (let ((reply$10 (opens$1 pst$4))) (let ((self6 reply$10)) (case (get self6 0) ('Parser.Reply.error (let ((f6 (get self6 1))) (let ((self7 f0)) (case (get self7 0) ('Maybe.none ($Parser.Reply.error f6)) ('Maybe.some (let ((f7 (get self7 1))) ($Parser.Reply.error ($Parser.Error.combine f7 f6)))))))) ('Parser.Reply.value (let ((f6 (get self6 1))) (let ((f7 (get self6 2))) (let ((self8 f6)) (case (get self8 0) ('Parser.State.new (let ((f8 (get self8 1))) (let ((f9 (get self8 2))) (let ((f10 (get self8 3))) (let ((f11 (get self8 4))) (let ((f12 (get self8 5))) (let ((reply.pst$18 ($Parser.State.new ($Parser.Error.maybe_combine f0 f8) f9 f10 f11 f12))) (($Parser.until close$3 parse$2) reply.pst$18))))))))))))))))))))))))) (define Parser.wrap (lambda (opens$1) (lambda (parse$2) (lambda (close$3) (lambda (pst$4) ($Parser.wrap opens$1 parse$2 close$3 pst$4)))))) (define ($Kind.Parser.items ini$1 parser$2 end$3) (((Parser.wrap (Kind.Parser.text ini$1)) (lambda (pst$4) (let ((self1 pst$4)) (case (get self1 0) ('Parser.State.new (let ((f1 (get self1 1))) (let ((f2 (get self1 2))) (let ((f3 (get self1 3))) (let ((f4 (get self1 4))) (let ((f5 (get self1 5))) (let ((reply$10 (Kind.Parser.spaces pst$4))) (let ((self7 reply$10)) (case (get self7 0) ('Parser.Reply.error (let ((f7 (get self7 1))) (let ((self8 f1)) (case (get self8 0) ('Maybe.none ($Parser.Reply.error f7)) ('Maybe.some (let ((f8 (get self8 1))) ($Parser.Reply.error ($Parser.Error.combine f8 f7)))))))) ('Parser.Reply.value (let ((f7 (get self7 1))) (let ((f8 (get self7 2))) (let ((self9 f7)) (case (get self9 0) ('Parser.State.new (let ((f9 (get self9 1))) (let ((f10 (get self9 2))) (let ((f11 (get self9 3))) (let ((f12 (get self9 4))) (let ((f13 (get self9 5))) (let ((reply.pst$18 ($Parser.State.new ($Parser.Error.maybe_combine f1 f9) f10 f11 f12 f13))) (let ((self15 reply.pst$18)) (case (get self15 0) ('Parser.State.new (let ((f15 (get self15 1))) (let ((f16 (get self15 2))) (let ((f17 (get self15 3))) (let ((f18 (get self15 4))) (let ((f19 (get self15 5))) (let ((reply$24 (parser$2 reply.pst$18))) (let ((self21 reply$24)) (case (get self21 0) ('Parser.Reply.error (let ((f21 (get self21 1))) (let ((self22 f15)) (case (get self22 0) ('Maybe.none ($Parser.Reply.error f21)) ('Maybe.some (let ((f22 (get self22 1))) ($Parser.Reply.error ($Parser.Error.combine f22 f21)))))))) ('Parser.Reply.value (let ((f21 (get self21 1))) (let ((f22 (get self21 2))) (let ((self23 f21)) (case (get self23 0) ('Parser.State.new (let ((f23 (get self23 1))) (let ((f24 (get self23 2))) (let ((f25 (get self23 3))) (let ((f26 (get self23 4))) (let ((f27 (get self23 5))) (let ((reply.pst$32 ($Parser.State.new ($Parser.Error.maybe_combine f15 f23) f24 f25 f26 f27))) (let ((self29 reply.pst$32)) (case (get self29 0) ('Parser.State.new (let ((f29 (get self29 1))) (let ((f30 (get self29 2))) (let ((f31 (get self29 3))) (let ((f32 (get self29 4))) (let ((f33 (get self29 5))) (let ((reply$38 ($Parser.maybe (Kind.Parser.text ",") reply.pst$32))) (let ((self35 reply$38)) (case (get self35 0) ('Parser.Reply.error (let ((f35 (get self35 1))) (let ((self36 f29)) (case (get self36 0) ('Maybe.none ($Parser.Reply.error f35)) ('Maybe.some (let ((f36 (get self36 1))) ($Parser.Reply.error ($Parser.Error.combine f36 f35)))))))) ('Parser.Reply.value (let ((f35 (get self35 1))) (let ((f36 (get self35 2))) (let ((self37 f35)) (case (get self37 0) ('Parser.State.new (let ((f37 (get self37 1))) (let ((f38 (get self37 2))) (let ((f39 (get self37 3))) (let ((f40 (get self37 4))) (let ((f41 (get self37 5))) (let ((reply.pst$46 ($Parser.State.new ($Parser.Error.maybe_combine f29 f37) f38 f39 f40 f41))) ($Parser.Reply.value reply.pst$46 f22)))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (Kind.Parser.text end$3))) @@ -669,7 +669,15 @@ (define Kind.Parser.lambda.make (lambda (names$0) (lambda (body$1) ($Kind.Parser.lambda.make names$0 body$1)))) (define ($Kind.Parser.lambda.make.start names$0 body$1) (let ((self0 names$0)) (case (get self0 0) ('List.nil ($Kind.Term.lam "" (lambda (x$2) body$1))) ('List.cons (let ((f0 (get self0 1))) (let ((f1 (get self0 2))) ($Kind.Parser.lambda.make names$0 body$1))))))) (define Kind.Parser.lambda.make.start (lambda (names$0) (lambda (body$1) ($Kind.Parser.lambda.make.start names$0 body$1)))) -(define Kind.Parser.lambda ((Kind.Parser.block "lambda") (lambda (pst$0) (let ((self1 pst$0)) (case (get self1 0) ('Parser.State.new (let ((f1 (get self1 1))) (let ((f2 (get self1 2))) (let ((f3 (get self1 3))) (let ((f4 (get self1 4))) (let ((f5 (get self1 5))) (let ((reply$6 (($Kind.Parser.items "(" Kind.Parser.name1 ")") pst$0))) (let ((self7 reply$6)) (case (get self7 0) ('Parser.Reply.error (let ((f7 (get self7 1))) (let ((self8 f1)) (case (get self8 0) ('Maybe.none ($Parser.Reply.error f7)) ('Maybe.some (let ((f8 (get self8 1))) ($Parser.Reply.error ($Parser.Error.combine f8 f7)))))))) ('Parser.Reply.value (let ((f7 (get self7 1))) (let ((f8 (get self7 2))) (let ((self9 f7)) (case (get self9 0) ('Parser.State.new (let ((f9 (get self9 1))) (let ((f10 (get self9 2))) (let ((f11 (get self9 3))) (let ((f12 (get self9 4))) (let ((f13 (get self9 5))) (let ((reply.pst$14 ($Parser.State.new ($Parser.Error.maybe_combine f1 f9) f10 f11 f12 f13))) (let ((self15 reply.pst$14)) (case (get self15 0) ('Parser.State.new (let ((f15 (get self15 1))) (let ((f16 (get self15 2))) (let ((f17 (get self15 3))) (let ((f18 (get self15 4))) (let ((f19 (get self15 5))) (let ((reply$20 ($Parser.avoiding ($Kind.Parser.text_now "(") Kind.Parser.term reply.pst$14))) (let ((self21 reply$20)) (case (get self21 0) ('Parser.Reply.error (let ((f21 (get self21 1))) (let ((self22 f15)) (case (get self22 0) ('Maybe.none ($Parser.Reply.error f21)) ('Maybe.some (let ((f22 (get self22 1))) ($Parser.Reply.error ($Parser.Error.combine f22 f21)))))))) ('Parser.Reply.value (let ((f21 (get self21 1))) (let ((f22 (get self21 2))) (let ((self23 f21)) (case (get self23 0) ('Parser.State.new (let ((f23 (get self23 1))) (let ((f24 (get self23 2))) (let ((f25 (get self23 3))) (let ((f26 (get self23 4))) (let ((f27 (get self23 5))) (let ((reply.pst$28 ($Parser.State.new ($Parser.Error.maybe_combine f15 f23) f24 f25 f26 f27))) ($Parser.Reply.value reply.pst$28 ($Kind.Parser.lambda.make.start f8 f22))))))))))))))))))))))))))))))))))))))))))))))))))) +(define Kind.Parser.lambda.1 ((Kind.Parser.block "lambda") (lambda (pst$0) (let ((self1 pst$0)) (case (get self1 0) ('Parser.State.new (let ((f1 (get self1 1))) (let ((f2 (get self1 2))) (let ((f3 (get self1 3))) (let ((f4 (get self1 4))) (let ((f5 (get self1 5))) (let ((reply$6 (($Kind.Parser.items "(" Kind.Parser.name1 ")") pst$0))) (let ((self7 reply$6)) (case (get self7 0) ('Parser.Reply.error (let ((f7 (get self7 1))) (let ((self8 f1)) (case (get self8 0) ('Maybe.none ($Parser.Reply.error f7)) ('Maybe.some (let ((f8 (get self8 1))) ($Parser.Reply.error ($Parser.Error.combine f8 f7)))))))) ('Parser.Reply.value (let ((f7 (get self7 1))) (let ((f8 (get self7 2))) (let ((self9 f7)) (case (get self9 0) ('Parser.State.new (let ((f9 (get self9 1))) (let ((f10 (get self9 2))) (let ((f11 (get self9 3))) (let ((f12 (get self9 4))) (let ((f13 (get self9 5))) (let ((reply.pst$14 ($Parser.State.new ($Parser.Error.maybe_combine f1 f9) f10 f11 f12 f13))) (let ((self15 reply.pst$14)) (case (get self15 0) ('Parser.State.new (let ((f15 (get self15 1))) (let ((f16 (get self15 2))) (let ((f17 (get self15 3))) (let ((f18 (get self15 4))) (let ((f19 (get self15 5))) (let ((reply$20 ($Parser.avoiding ($Kind.Parser.text_now "(") Kind.Parser.term reply.pst$14))) (let ((self21 reply$20)) (case (get self21 0) ('Parser.Reply.error (let ((f21 (get self21 1))) (let ((self22 f15)) (case (get self22 0) ('Maybe.none ($Parser.Reply.error f21)) ('Maybe.some (let ((f22 (get self22 1))) ($Parser.Reply.error ($Parser.Error.combine f22 f21)))))))) ('Parser.Reply.value (let ((f21 (get self21 1))) (let ((f22 (get self21 2))) (let ((self23 f21)) (case (get self23 0) ('Parser.State.new (let ((f23 (get self23 1))) (let ((f24 (get self23 2))) (let ((f25 (get self23 3))) (let ((f26 (get self23 4))) (let ((f27 (get self23 5))) (let ((reply.pst$28 ($Parser.State.new ($Parser.Error.maybe_combine f15 f23) f24 f25 f26 f27))) ($Parser.Reply.value reply.pst$28 ($Kind.Parser.lambda.make.start f8 f22))))))))))))))))))))))))))))))))))))))))))))))))))) +(define ($Kind.Parser.lambda.name_term pst$0) (let ((self0 pst$0)) (case (get self0 0) ('Parser.State.new (let ((f0 (get self0 1))) (let ((f1 (get self0 2))) (let ((f2 (get self0 3))) (let ((f3 (get self0 4))) (let ((f4 (get self0 5))) (let ((reply$6 ($Kind.Parser.name1 pst$0))) (let ((self6 reply$6)) (case (get self6 0) ('Parser.Reply.error (let ((f6 (get self6 1))) (let ((self7 f0)) (case (get self7 0) ('Maybe.none ($Parser.Reply.error f6)) ('Maybe.some (let ((f7 (get self7 1))) ($Parser.Reply.error ($Parser.Error.combine f7 f6)))))))) ('Parser.Reply.value (let ((f6 (get self6 1))) (let ((f7 (get self6 2))) (let ((self8 f6)) (case (get self8 0) ('Parser.State.new (let ((f8 (get self8 1))) (let ((f9 (get self8 2))) (let ((f10 (get self8 3))) (let ((f11 (get self8 4))) (let ((f12 (get self8 5))) (let ((reply.pst$14 ($Parser.State.new ($Parser.Error.maybe_combine f0 f8) f9 f10 f11 f12))) (let ((self14 reply.pst$14)) (case (get self14 0) ('Parser.State.new (let ((f14 (get self14 1))) (let ((f15 (get self14 2))) (let ((f16 (get self14 3))) (let ((f17 (get self14 4))) (let ((f18 (get self14 5))) (let ((reply$20 ($Parser.maybe (lambda (pst$20) (let ((self20 pst$20)) (case (get self20 0) ('Parser.State.new (let ((f20 (get self20 1))) (let ((f21 (get self20 2))) (let ((f22 (get self20 3))) (let ((f23 (get self20 4))) (let ((f24 (get self20 5))) (let ((reply$26 ($Kind.Parser.text ":" pst$20))) (let ((self26 reply$26)) (case (get self26 0) ('Parser.Reply.error (let ((f26 (get self26 1))) (let ((self27 f20)) (case (get self27 0) ('Maybe.none ($Parser.Reply.error f26)) ('Maybe.some (let ((f27 (get self27 1))) ($Parser.Reply.error ($Parser.Error.combine f27 f26)))))))) ('Parser.Reply.value (let ((f26 (get self26 1))) (let ((f27 (get self26 2))) (let ((self28 f26)) (case (get self28 0) ('Parser.State.new (let ((f28 (get self28 1))) (let ((f29 (get self28 2))) (let ((f30 (get self28 3))) (let ((f31 (get self28 4))) (let ((f32 (get self28 5))) (let ((reply.pst$34 ($Parser.State.new ($Parser.Error.maybe_combine f20 f28) f29 f30 f31 f32))) (let ((self34 reply.pst$34)) (case (get self34 0) ('Parser.State.new (let ((f34 (get self34 1))) (let ((f35 (get self34 2))) (let ((f36 (get self34 3))) (let ((f37 (get self34 4))) (let ((f38 (get self34 5))) (let ((reply$40 (Kind.Parser.term reply.pst$34))) (let ((self40 reply$40)) (case (get self40 0) ('Parser.Reply.error (let ((f40 (get self40 1))) (let ((self41 f34)) (case (get self41 0) ('Maybe.none ($Parser.Reply.error f40)) ('Maybe.some (let ((f41 (get self41 1))) ($Parser.Reply.error ($Parser.Error.combine f41 f40)))))))) ('Parser.Reply.value (let ((f40 (get self40 1))) (let ((f41 (get self40 2))) (let ((self42 f40)) (case (get self42 0) ('Parser.State.new (let ((f42 (get self42 1))) (let ((f43 (get self42 2))) (let ((f44 (get self42 3))) (let ((f45 (get self42 4))) (let ((f46 (get self42 5))) (let ((reply.pst$48 ($Parser.State.new ($Parser.Error.maybe_combine f34 f42) f43 f44 f45 f46))) ($Parser.Reply.value reply.pst$48 f41)))))))))))))))))))))))))))))))))))))))))))))))) reply.pst$14))) (let ((self20 reply$20)) (case (get self20 0) ('Parser.Reply.error (let ((f20 (get self20 1))) (let ((self21 f14)) (case (get self21 0) ('Maybe.none ($Parser.Reply.error f20)) ('Maybe.some (let ((f21 (get self21 1))) ($Parser.Reply.error ($Parser.Error.combine f21 f20)))))))) ('Parser.Reply.value (let ((f20 (get self20 1))) (let ((f21 (get self20 2))) (let ((self22 f20)) (case (get self22 0) ('Parser.State.new (let ((f22 (get self22 1))) (let ((f23 (get self22 2))) (let ((f24 (get self22 3))) (let ((f25 (get self22 4))) (let ((f26 (get self22 5))) (let ((reply.pst$28 ($Parser.State.new ($Parser.Error.maybe_combine f14 f22) f23 f24 f25 f26))) ($Parser.Reply.value reply.pst$28 ($Pair.new f7 f21))))))))))))))))))))))))))))))))))))))))))))))))) +(define Kind.Parser.lambda.name_term (lambda (pst$0) ($Kind.Parser.lambda.name_term pst$0))) +(define ($List.unzip xs$2) (let ((self0 xs$2)) (case (get self0 0) ('List.nil ($Pair.new List.nil List.nil)) ('List.cons (let ((f0 (get self0 1))) (let ((f1 (get self0 2))) (let ((rec$5 ($List.unzip f1))) (let ((self3 f0)) (case (get self3 0) ('Pair.new (let ((f3 (get self3 1))) (let ((f4 (get self3 2))) (let ((self5 rec$5)) (case (get self5 0) ('Pair.new (let ((f5 (get self5 1))) (let ((f6 (get self5 2))) ($Pair.new ($List.cons f3 f5) ($List.cons f4 f6))))))))))))))))))) +(define List.unzip (lambda (xs$2) ($List.unzip xs$2))) +(define ($Kind.Parser.lambda.get_type types$0) (let ((self0 types$0)) (case (get self0 0) ('List.nil ($Kind.Term.hol Bits.e)) ('List.cons (let ((f0 (get self0 1))) (let ((f1 (get self0 2))) (let ((type$3 (let ((self2 f0)) (case (get self2 0) ('Maybe.none ($Kind.Term.hol Bits.e)) ('Maybe.some (let ((f2 (get self2 1))) f2)))))) ($Kind.Term.all Bool.false "" "" type$3 (lambda (s$4) (lambda (x$5) ($Kind.Parser.lambda.get_type f1))))))))))) +(define Kind.Parser.lambda.get_type (lambda (types$0) ($Kind.Parser.lambda.get_type types$0))) +(define Kind.Parser.lambda.2 ((Kind.Parser.block "lambda") (lambda (pst$0) (let ((self1 pst$0)) (case (get self1 0) ('Parser.State.new (let ((f1 (get self1 1))) (let ((f2 (get self1 2))) (let ((f3 (get self1 3))) (let ((f4 (get self1 4))) (let ((f5 (get self1 5))) (let ((reply$6 (($Kind.Parser.items "(" Kind.Parser.lambda.name_term ")") pst$0))) (let ((self7 reply$6)) (case (get self7 0) ('Parser.Reply.error (let ((f7 (get self7 1))) (let ((self8 f1)) (case (get self8 0) ('Maybe.none ($Parser.Reply.error f7)) ('Maybe.some (let ((f8 (get self8 1))) ($Parser.Reply.error ($Parser.Error.combine f8 f7)))))))) ('Parser.Reply.value (let ((f7 (get self7 1))) (let ((f8 (get self7 2))) (let ((self9 f7)) (case (get self9 0) ('Parser.State.new (let ((f9 (get self9 1))) (let ((f10 (get self9 2))) (let ((f11 (get self9 3))) (let ((f12 (get self9 4))) (let ((f13 (get self9 5))) (let ((reply.pst$14 ($Parser.State.new ($Parser.Error.maybe_combine f1 f9) f10 f11 f12 f13))) (let ((self15 reply.pst$14)) (case (get self15 0) ('Parser.State.new (let ((f15 (get self15 1))) (let ((f16 (get self15 2))) (let ((f17 (get self15 3))) (let ((f18 (get self15 4))) (let ((f19 (get self15 5))) (let ((reply$20 ($Parser.avoiding ($Kind.Parser.text_now "(") Kind.Parser.term reply.pst$14))) (let ((self21 reply$20)) (case (get self21 0) ('Parser.Reply.error (let ((f21 (get self21 1))) (let ((self22 f15)) (case (get self22 0) ('Maybe.none ($Parser.Reply.error f21)) ('Maybe.some (let ((f22 (get self22 1))) ($Parser.Reply.error ($Parser.Error.combine f22 f21)))))))) ('Parser.Reply.value (let ((f21 (get self21 1))) (let ((f22 (get self21 2))) (let ((self23 f21)) (case (get self23 0) ('Parser.State.new (let ((f23 (get self23 1))) (let ((f24 (get self23 2))) (let ((f25 (get self23 3))) (let ((f26 (get self23 4))) (let ((f27 (get self23 5))) (let ((reply.pst$28 ($Parser.State.new ($Parser.Error.maybe_combine f15 f23) f24 f25 f26 f27))) ((let ((self29 ($List.unzip f8))) (case (get self29 0) ('Pair.new (let ((f29 (get self29 1))) (let ((f30 (get self29 2))) (let ((lamb$31 ($Kind.Parser.lambda.make.start f29 f22))) (let ((type$32 ($Kind.Parser.lambda.get_type f30))) (let ((term$33 ($Kind.Term.ann Bool.false lamb$31 type$32))) (lambda (pst$34) ($Parser.Reply.value pst$34 term$33)))))))))) reply.pst$28)))))))))))))))))))))))))))))))))))))))))))))))))) +(define Kind.Parser.lambda ((Kind.Parser.block "term") (Parser.choice ($List.cons Kind.Parser.lambda.1 ($List.cons Kind.Parser.lambda.2 List.nil))))) (define Kind.Parser.lambda.erased ((Kind.Parser.block "lambda") (lambda (pst$0) (let ((self1 pst$0)) (case (get self1 0) ('Parser.State.new (let ((f1 (get self1 1))) (let ((f2 (get self1 2))) (let ((f3 (get self1 3))) (let ((f4 (get self1 4))) (let ((f5 (get self1 5))) (let ((reply$6 (($Kind.Parser.items "<" Kind.Parser.name1 ">") pst$0))) (let ((self7 reply$6)) (case (get self7 0) ('Parser.Reply.error (let ((f7 (get self7 1))) (let ((self8 f1)) (case (get self8 0) ('Maybe.none ($Parser.Reply.error f7)) ('Maybe.some (let ((f8 (get self8 1))) ($Parser.Reply.error ($Parser.Error.combine f8 f7)))))))) ('Parser.Reply.value (let ((f7 (get self7 1))) (let ((f8 (get self7 2))) (let ((self9 f7)) (case (get self9 0) ('Parser.State.new (let ((f9 (get self9 1))) (let ((f10 (get self9 2))) (let ((f11 (get self9 3))) (let ((f12 (get self9 4))) (let ((f13 (get self9 5))) (let ((reply.pst$14 ($Parser.State.new ($Parser.Error.maybe_combine f1 f9) f10 f11 f12 f13))) (let ((self15 reply.pst$14)) (case (get self15 0) ('Parser.State.new (let ((f15 (get self15 1))) (let ((f16 (get self15 2))) (let ((f17 (get self15 3))) (let ((f18 (get self15 4))) (let ((f19 (get self15 5))) (let ((reply$20 (Kind.Parser.term reply.pst$14))) (let ((self21 reply$20)) (case (get self21 0) ('Parser.Reply.error (let ((f21 (get self21 1))) (let ((self22 f15)) (case (get self22 0) ('Maybe.none ($Parser.Reply.error f21)) ('Maybe.some (let ((f22 (get self22 1))) ($Parser.Reply.error ($Parser.Error.combine f22 f21)))))))) ('Parser.Reply.value (let ((f21 (get self21 1))) (let ((f22 (get self21 2))) (let ((self23 f21)) (case (get self23 0) ('Parser.State.new (let ((f23 (get self23 1))) (let ((f24 (get self23 2))) (let ((f25 (get self23 3))) (let ((f26 (get self23 4))) (let ((f27 (get self23 5))) (let ((reply.pst$28 ($Parser.State.new ($Parser.Error.maybe_combine f15 f23) f24 f25 f26 f27))) ($Parser.Reply.value reply.pst$28 ($Kind.Parser.lambda.make.start f8 f22))))))))))))))))))))))))))))))))))))))))))))))))))) (define Kind.Parser.parenthesis ((Kind.Parser.block "parenthesis") (lambda (pst$0) (let ((self1 pst$0)) (case (get self1 0) ('Parser.State.new (let ((f1 (get self1 1))) (let ((f2 (get self1 2))) (let ((f3 (get self1 3))) (let ((f4 (get self1 4))) (let ((f5 (get self1 5))) (let ((reply$6 ($Kind.Parser.text "(" pst$0))) (let ((self7 reply$6)) (case (get self7 0) ('Parser.Reply.error (let ((f7 (get self7 1))) (let ((self8 f1)) (case (get self8 0) ('Maybe.none ($Parser.Reply.error f7)) ('Maybe.some (let ((f8 (get self8 1))) ($Parser.Reply.error ($Parser.Error.combine f8 f7)))))))) ('Parser.Reply.value (let ((f7 (get self7 1))) (let ((f8 (get self7 2))) (let ((self9 f7)) (case (get self9 0) ('Parser.State.new (let ((f9 (get self9 1))) (let ((f10 (get self9 2))) (let ((f11 (get self9 3))) (let ((f12 (get self9 4))) (let ((f13 (get self9 5))) (let ((reply.pst$14 ($Parser.State.new ($Parser.Error.maybe_combine f1 f9) f10 f11 f12 f13))) (let ((self15 reply.pst$14)) (case (get self15 0) ('Parser.State.new (let ((f15 (get self15 1))) (let ((f16 (get self15 2))) (let ((f17 (get self15 3))) (let ((f18 (get self15 4))) (let ((f19 (get self15 5))) (let ((reply$20 (Kind.Parser.term reply.pst$14))) (let ((self21 reply$20)) (case (get self21 0) ('Parser.Reply.error (let ((f21 (get self21 1))) (let ((self22 f15)) (case (get self22 0) ('Maybe.none ($Parser.Reply.error f21)) ('Maybe.some (let ((f22 (get self22 1))) ($Parser.Reply.error ($Parser.Error.combine f22 f21)))))))) ('Parser.Reply.value (let ((f21 (get self21 1))) (let ((f22 (get self21 2))) (let ((self23 f21)) (case (get self23 0) ('Parser.State.new (let ((f23 (get self23 1))) (let ((f24 (get self23 2))) (let ((f25 (get self23 3))) (let ((f26 (get self23 4))) (let ((f27 (get self23 5))) (let ((reply.pst$28 ($Parser.State.new ($Parser.Error.maybe_combine f15 f23) f24 f25 f26 f27))) (let ((self29 reply.pst$28)) (case (get self29 0) ('Parser.State.new (let ((f29 (get self29 1))) (let ((f30 (get self29 2))) (let ((f31 (get self29 3))) (let ((f32 (get self29 4))) (let ((f33 (get self29 5))) (let ((reply$34 ($Kind.Parser.text ")" reply.pst$28))) (let ((self35 reply$34)) (case (get self35 0) ('Parser.Reply.error (let ((f35 (get self35 1))) (let ((self36 f29)) (case (get self36 0) ('Maybe.none ($Parser.Reply.error f35)) ('Maybe.some (let ((f36 (get self36 1))) ($Parser.Reply.error ($Parser.Error.combine f36 f35)))))))) ('Parser.Reply.value (let ((f35 (get self35 1))) (let ((f36 (get self35 2))) (let ((self37 f35)) (case (get self37 0) ('Parser.State.new (let ((f37 (get self37 1))) (let ((f38 (get self37 2))) (let ((f39 (get self37 3))) (let ((f40 (get self37 4))) (let ((f41 (get self37 5))) (let ((reply.pst$42 ($Parser.State.new ($Parser.Error.maybe_combine f29 f37) f38 f39 f40 f41))) ($Parser.Reply.value reply.pst$42 f22))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) (define ($Kind.Parser.letforrange typename$0 body$1) ((Kind.Parser.block "let-for") (lambda (pst$2) (let ((self1 pst$2)) (case (get self1 0) ('Parser.State.new (let ((f1 (get self1 1))) (let ((f2 (get self1 2))) (let ((f3 (get self1 3))) (let ((f4 (get self1 4))) (let ((f5 (get self1 5))) (let ((reply$8 ($Kind.Parser.text "let " pst$2))) (let ((self7 reply$8)) (case (get self7 0) ('Parser.Reply.error (let ((f7 (get self7 1))) (let ((self8 f1)) (case (get self8 0) ('Maybe.none ($Parser.Reply.error f7)) ('Maybe.some (let ((f8 (get self8 1))) ($Parser.Reply.error ($Parser.Error.combine f8 f7)))))))) ('Parser.Reply.value (let ((f7 (get self7 1))) (let ((f8 (get self7 2))) (let ((self9 f7)) (case (get self9 0) ('Parser.State.new (let ((f9 (get self9 1))) (let ((f10 (get self9 2))) (let ((f11 (get self9 3))) (let ((f12 (get self9 4))) (let ((f13 (get self9 5))) (let ((reply.pst$16 ($Parser.State.new ($Parser.Error.maybe_combine f1 f9) f10 f11 f12 f13))) (let ((self15 reply.pst$16)) (case (get self15 0) ('Parser.State.new (let ((f15 (get self15 1))) (let ((f16 (get self15 2))) (let ((f17 (get self15 3))) (let ((f18 (get self15 4))) (let ((f19 (get self15 5))) (let ((reply$22 ($Kind.Parser.name1 reply.pst$16))) (let ((self21 reply$22)) (case (get self21 0) ('Parser.Reply.error (let ((f21 (get self21 1))) (let ((self22 f15)) (case (get self22 0) ('Maybe.none ($Parser.Reply.error f21)) ('Maybe.some (let ((f22 (get self22 1))) ($Parser.Reply.error ($Parser.Error.combine f22 f21)))))))) ('Parser.Reply.value (let ((f21 (get self21 1))) (let ((f22 (get self21 2))) (let ((self23 f21)) (case (get self23 0) ('Parser.State.new (let ((f23 (get self23 1))) (let ((f24 (get self23 2))) (let ((f25 (get self23 3))) (let ((f26 (get self23 4))) (let ((f27 (get self23 5))) (let ((reply.pst$30 ($Parser.State.new ($Parser.Error.maybe_combine f15 f23) f24 f25 f26 f27))) (let ((self29 reply.pst$30)) (case (get self29 0) ('Parser.State.new (let ((f29 (get self29 1))) (let ((f30 (get self29 2))) (let ((f31 (get self29 3))) (let ((f32 (get self29 4))) (let ((f33 (get self29 5))) (let ((reply$36 ($Kind.Parser.text "=" reply.pst$30))) (let ((self35 reply$36)) (case (get self35 0) ('Parser.Reply.error (let ((f35 (get self35 1))) (let ((self36 f29)) (case (get self36 0) ('Maybe.none ($Parser.Reply.error f35)) ('Maybe.some (let ((f36 (get self36 1))) ($Parser.Reply.error ($Parser.Error.combine f36 f35)))))))) ('Parser.Reply.value (let ((f35 (get self35 1))) (let ((f36 (get self35 2))) (let ((self37 f35)) (case (get self37 0) ('Parser.State.new (let ((f37 (get self37 1))) (let ((f38 (get self37 2))) (let ((f39 (get self37 3))) (let ((f40 (get self37 4))) (let ((f41 (get self37 5))) (let ((reply.pst$44 ($Parser.State.new ($Parser.Error.maybe_combine f29 f37) f38 f39 f40 f41))) (let ((self43 reply.pst$44)) (case (get self43 0) ('Parser.State.new (let ((f43 (get self43 1))) (let ((f44 (get self43 2))) (let ((f45 (get self43 3))) (let ((f46 (get self43 4))) (let ((f47 (get self43 5))) (let ((reply$50 ($Kind.Parser.text "for " reply.pst$44))) (let ((self49 reply$50)) (case (get self49 0) ('Parser.Reply.error (let ((f49 (get self49 1))) (let ((self50 f43)) (case (get self50 0) ('Maybe.none ($Parser.Reply.error f49)) ('Maybe.some (let ((f50 (get self50 1))) ($Parser.Reply.error ($Parser.Error.combine f50 f49)))))))) ('Parser.Reply.value (let ((f49 (get self49 1))) (let ((f50 (get self49 2))) (let ((self51 f49)) (case (get self51 0) ('Parser.State.new (let ((f51 (get self51 1))) (let ((f52 (get self51 2))) (let ((f53 (get self51 3))) (let ((f54 (get self51 4))) (let ((f55 (get self51 5))) (let ((reply.pst$58 ($Parser.State.new ($Parser.Error.maybe_combine f43 f51) f52 f53 f54 f55))) (let ((self57 reply.pst$58)) (case (get self57 0) ('Parser.State.new (let ((f57 (get self57 1))) (let ((f58 (get self57 2))) (let ((f59 (get self57 3))) (let ((f60 (get self57 4))) (let ((f61 (get self57 5))) (let ((reply$64 ($Kind.Parser.name1 reply.pst$58))) (let ((self63 reply$64)) (case (get self63 0) ('Parser.Reply.error (let ((f63 (get self63 1))) (let ((self64 f57)) (case (get self64 0) ('Maybe.none ($Parser.Reply.error f63)) ('Maybe.some (let ((f64 (get self64 1))) ($Parser.Reply.error ($Parser.Error.combine f64 f63)))))))) ('Parser.Reply.value (let ((f63 (get self63 1))) (let ((f64 (get self63 2))) (let ((self65 f63)) (case (get self65 0) ('Parser.State.new (let ((f65 (get self65 1))) (let ((f66 (get self65 2))) (let ((f67 (get self65 3))) (let ((f68 (get self65 4))) (let ((f69 (get self65 5))) (let ((reply.pst$72 ($Parser.State.new ($Parser.Error.maybe_combine f57 f65) f66 f67 f68 f69))) (let ((self71 reply.pst$72)) (case (get self71 0) ('Parser.State.new (let ((f71 (get self71 1))) (let ((f72 (get self71 2))) (let ((f73 (get self71 3))) (let ((f74 (get self71 4))) (let ((f75 (get self71 5))) (let ((reply$78 ($Kind.Parser.text ":" reply.pst$72))) (let ((self77 reply$78)) (case (get self77 0) ('Parser.Reply.error (let ((f77 (get self77 1))) (let ((self78 f71)) (case (get self78 0) ('Maybe.none ($Parser.Reply.error f77)) ('Maybe.some (let ((f78 (get self78 1))) ($Parser.Reply.error ($Parser.Error.combine f78 f77)))))))) ('Parser.Reply.value (let ((f77 (get self77 1))) (let ((f78 (get self77 2))) (let ((self79 f77)) (case (get self79 0) ('Parser.State.new (let ((f79 (get self79 1))) (let ((f80 (get self79 2))) (let ((f81 (get self79 3))) (let ((f82 (get self79 4))) (let ((f83 (get self79 5))) (let ((reply.pst$86 ($Parser.State.new ($Parser.Error.maybe_combine f71 f79) f80 f81 f82 f83))) (let ((self85 reply.pst$86)) (case (get self85 0) ('Parser.State.new (let ((f85 (get self85 1))) (let ((f86 (get self85 2))) (let ((f87 (get self85 3))) (let ((f88 (get self85 4))) (let ((f89 (get self85 5))) (let ((reply$92 ($Kind.Parser.text typename$0 reply.pst$86))) (let ((self91 reply$92)) (case (get self91 0) ('Parser.Reply.error (let ((f91 (get self91 1))) (let ((self92 f85)) (case (get self92 0) ('Maybe.none ($Parser.Reply.error f91)) ('Maybe.some (let ((f92 (get self92 1))) ($Parser.Reply.error ($Parser.Error.combine f92 f91)))))))) ('Parser.Reply.value (let ((f91 (get self91 1))) (let ((f92 (get self91 2))) (let ((self93 f91)) (case (get self93 0) ('Parser.State.new (let ((f93 (get self93 1))) (let ((f94 (get self93 2))) (let ((f95 (get self93 3))) (let ((f96 (get self93 4))) (let ((f97 (get self93 5))) (let ((reply.pst$100 ($Parser.State.new ($Parser.Error.maybe_combine f85 f93) f94 f95 f96 f97))) (let ((self99 reply.pst$100)) (case (get self99 0) ('Parser.State.new (let ((f99 (get self99 1))) (let ((f100 (get self99 2))) (let ((f101 (get self99 3))) (let ((f102 (get self99 4))) (let ((f103 (get self99 5))) (let ((reply$106 ($Kind.Parser.text "from" reply.pst$100))) (let ((self105 reply$106)) (case (get self105 0) ('Parser.Reply.error (let ((f105 (get self105 1))) (let ((self106 f99)) (case (get self106 0) ('Maybe.none ($Parser.Reply.error f105)) ('Maybe.some (let ((f106 (get self106 1))) ($Parser.Reply.error ($Parser.Error.combine f106 f105)))))))) ('Parser.Reply.value (let ((f105 (get self105 1))) (let ((f106 (get self105 2))) (let ((self107 f105)) (case (get self107 0) ('Parser.State.new (let ((f107 (get self107 1))) (let ((f108 (get self107 2))) (let ((f109 (get self107 3))) (let ((f110 (get self107 4))) (let ((f111 (get self107 5))) (let ((reply.pst$114 ($Parser.State.new ($Parser.Error.maybe_combine f99 f107) f108 f109 f110 f111))) (let ((self113 reply.pst$114)) (case (get self113 0) ('Parser.State.new (let ((f113 (get self113 1))) (let ((f114 (get self113 2))) (let ((f115 (get self113 3))) (let ((f116 (get self113 4))) (let ((f117 (get self113 5))) (let ((reply$120 (Kind.Parser.term reply.pst$114))) (let ((self119 reply$120)) (case (get self119 0) ('Parser.Reply.error (let ((f119 (get self119 1))) (let ((self120 f113)) (case (get self120 0) ('Maybe.none ($Parser.Reply.error f119)) ('Maybe.some (let ((f120 (get self120 1))) ($Parser.Reply.error ($Parser.Error.combine f120 f119)))))))) ('Parser.Reply.value (let ((f119 (get self119 1))) (let ((f120 (get self119 2))) (let ((self121 f119)) (case (get self121 0) ('Parser.State.new (let ((f121 (get self121 1))) (let ((f122 (get self121 2))) (let ((f123 (get self121 3))) (let ((f124 (get self121 4))) (let ((f125 (get self121 5))) (let ((reply.pst$128 ($Parser.State.new ($Parser.Error.maybe_combine f113 f121) f122 f123 f124 f125))) (let ((self127 reply.pst$128)) (case (get self127 0) ('Parser.State.new (let ((f127 (get self127 1))) (let ((f128 (get self127 2))) (let ((f129 (get self127 3))) (let ((f130 (get self127 4))) (let ((f131 (get self127 5))) (let ((reply$134 ($Kind.Parser.text "to" reply.pst$128))) (let ((self133 reply$134)) (case (get self133 0) ('Parser.Reply.error (let ((f133 (get self133 1))) (let ((self134 f127)) (case (get self134 0) ('Maybe.none ($Parser.Reply.error f133)) ('Maybe.some (let ((f134 (get self134 1))) ($Parser.Reply.error ($Parser.Error.combine f134 f133)))))))) ('Parser.Reply.value (let ((f133 (get self133 1))) (let ((f134 (get self133 2))) (let ((self135 f133)) (case (get self135 0) ('Parser.State.new (let ((f135 (get self135 1))) (let ((f136 (get self135 2))) (let ((f137 (get self135 3))) (let ((f138 (get self135 4))) (let ((f139 (get self135 5))) (let ((reply.pst$142 ($Parser.State.new ($Parser.Error.maybe_combine f127 f135) f136 f137 f138 f139))) (let ((self141 reply.pst$142)) (case (get self141 0) ('Parser.State.new (let ((f141 (get self141 1))) (let ((f142 (get self141 2))) (let ((f143 (get self141 3))) (let ((f144 (get self141 4))) (let ((f145 (get self141 5))) (let ((reply$148 (Kind.Parser.term reply.pst$142))) (let ((self147 reply$148)) (case (get self147 0) ('Parser.Reply.error (let ((f147 (get self147 1))) (let ((self148 f141)) (case (get self148 0) ('Maybe.none ($Parser.Reply.error f147)) ('Maybe.some (let ((f148 (get self148 1))) ($Parser.Reply.error ($Parser.Error.combine f148 f147)))))))) ('Parser.Reply.value (let ((f147 (get self147 1))) (let ((f148 (get self147 2))) (let ((self149 f147)) (case (get self149 0) ('Parser.State.new (let ((f149 (get self149 1))) (let ((f150 (get self149 2))) (let ((f151 (get self149 3))) (let ((f152 (get self149 4))) (let ((f153 (get self149 5))) (let ((reply.pst$156 ($Parser.State.new ($Parser.Error.maybe_combine f141 f149) f150 f151 f152 f153))) (let ((self155 reply.pst$156)) (case (get self155 0) ('Parser.State.new (let ((f155 (get self155 1))) (let ((f156 (get self155 2))) (let ((f157 (get self155 3))) (let ((f158 (get self155 4))) (let ((f159 (get self155 5))) (let ((reply$162 ($Kind.Parser.text ":" reply.pst$156))) (let ((self161 reply$162)) (case (get self161 0) ('Parser.Reply.error (let ((f161 (get self161 1))) (let ((self162 f155)) (case (get self162 0) ('Maybe.none ($Parser.Reply.error f161)) ('Maybe.some (let ((f162 (get self162 1))) ($Parser.Reply.error ($Parser.Error.combine f162 f161)))))))) ('Parser.Reply.value (let ((f161 (get self161 1))) (let ((f162 (get self161 2))) (let ((self163 f161)) (case (get self163 0) ('Parser.State.new (let ((f163 (get self163 1))) (let ((f164 (get self163 2))) (let ((f165 (get self163 3))) (let ((f166 (get self163 4))) (let ((f167 (get self163 5))) (let ((reply.pst$170 ($Parser.State.new ($Parser.Error.maybe_combine f155 f163) f164 f165 f166 f167))) (let ((self169 reply.pst$170)) (case (get self169 0) ('Parser.State.new (let ((f169 (get self169 1))) (let ((f170 (get self169 2))) (let ((f171 (get self169 3))) (let ((f172 (get self169 4))) (let ((f173 (get self169 5))) (let ((reply$176 (Kind.Parser.term reply.pst$170))) (let ((self175 reply$176)) (case (get self175 0) ('Parser.Reply.error (let ((f175 (get self175 1))) (let ((self176 f169)) (case (get self176 0) ('Maybe.none ($Parser.Reply.error f175)) ('Maybe.some (let ((f176 (get self176 1))) ($Parser.Reply.error ($Parser.Error.combine f176 f175)))))))) ('Parser.Reply.value (let ((f175 (get self175 1))) (let ((f176 (get self175 2))) (let ((self177 f175)) (case (get self177 0) ('Parser.State.new (let ((f177 (get self177 1))) (let ((f178 (get self177 2))) (let ((f179 (get self177 3))) (let ((f180 (get self177 4))) (let ((f181 (get self177 5))) (let ((reply.pst$184 ($Parser.State.new ($Parser.Error.maybe_combine f169 f177) f178 f179 f180 f181))) (let ((self183 reply.pst$184)) (case (get self183 0) ('Parser.State.new (let ((f183 (get self183 1))) (let ((f184 (get self183 2))) (let ((f185 (get self183 3))) (let ((f186 (get self183 4))) (let ((f187 (get self183 5))) (let ((reply$190 ($Parser.maybe (Kind.Parser.text ";") reply.pst$184))) (let ((self189 reply$190)) (case (get self189 0) ('Parser.Reply.error (let ((f189 (get self189 1))) (let ((self190 f183)) (case (get self190 0) ('Maybe.none ($Parser.Reply.error f189)) ('Maybe.some (let ((f190 (get self190 1))) ($Parser.Reply.error ($Parser.Error.combine f190 f189)))))))) ('Parser.Reply.value (let ((f189 (get self189 1))) (let ((f190 (get self189 2))) (let ((self191 f189)) (case (get self191 0) ('Parser.State.new (let ((f191 (get self191 1))) (let ((f192 (get self191 2))) (let ((f193 (get self191 3))) (let ((f194 (get self191 4))) (let ((f195 (get self191 5))) (let ((reply.pst$198 ($Parser.State.new ($Parser.Error.maybe_combine f183 f191) f192 f193 f194 f195))) (let ((self197 reply.pst$198)) (case (get self197 0) ('Parser.State.new (let ((f197 (get self197 1))) (let ((f198 (get self197 2))) (let ((f199 (get self197 3))) (let ((f200 (get self197 4))) (let ((f201 (get self197 5))) (let ((reply$204 ((body$1 Unit.new) reply.pst$198))) (let ((self203 reply$204)) (case (get self203 0) ('Parser.Reply.error (let ((f203 (get self203 1))) (let ((self204 f197)) (case (get self204 0) ('Maybe.none ($Parser.Reply.error f203)) ('Maybe.some (let ((f204 (get self204 1))) ($Parser.Reply.error ($Parser.Error.combine f204 f203)))))))) ('Parser.Reply.value (let ((f203 (get self203 1))) (let ((f204 (get self203 2))) (let ((self205 f203)) (case (get self205 0) ('Parser.State.new (let ((f205 (get self205 1))) (let ((f206 (get self205 2))) (let ((f207 (get self205 3))) (let ((f208 (get self205 4))) (let ((f209 (get self205 5))) (let ((reply.pst$212 ($Parser.State.new ($Parser.Error.maybe_combine f197 f205) f206 f207 f208 f209))) (let ((term$213 ($Kind.Term.ref ($String.concat typename$0 ".for")))) (let ((term$214 ($Kind.Term.app term$213 ($Kind.Term.hol Bits.e)))) (let ((term$215 ($Kind.Term.app term$214 ($Kind.Term.ref f22)))) (let ((term$216 ($Kind.Term.app term$215 f120))) (let ((term$217 ($Kind.Term.app term$216 f148))) (let ((lamb$218 ($Kind.Term.lam f64 (lambda (e$218) ($Kind.Term.lam f22 (lambda (s$219) f176)))))) (let ((term$219 ($Kind.Term.app term$217 lamb$218))) (let ((term$220 ($Kind.Term.let f22 term$219 (lambda (x$220) f204)))) ($Parser.Reply.value reply.pst$212 term$220))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))))) diff --git a/bin/scm/src/main.scm b/bin/scm/src/main.scm index d0716d3d..345bb576 100644 --- a/bin/scm/src/main.scm +++ b/bin/scm/src/main.scm @@ -4,7 +4,7 @@ (let ([args (cdr (command-line))]) (if (null? args) (print-lines - '("# kind-scm 1.0.85" + '("# kind-scm 1.0.86" "" "Usage:" "" @@ -73,4 +73,4 @@ (display (run_io (Kind.api.io.term_to_core fst_arg)))) (else (display "unrecognized cli argument: ") - (display snd_arg)))))))) + (display snd_arg)))))))) \ No newline at end of file From 2fd156336c22d4f375a41da2450bec4c45acece7 Mon Sep 17 00:00:00 2001 From: Rheidner Date: Sun, 15 Aug 2021 22:40:54 -0300 Subject: [PATCH 12/26] Kind: fix files according to the new syntax --- base/Cmp/Order.kind | 6 +++--- base/Fin.kind | 6 +++--- base/Monoid.kind | 6 +++--- base/Vector.kind | 4 ++-- base/Vector/main.kind | 2 +- 5 files changed, 12 insertions(+), 12 deletions(-) diff --git a/base/Cmp/Order.kind b/base/Cmp/Order.kind index 30aa6e9e..d68fd501 100644 --- a/base/Cmp/Order.kind +++ b/base/Cmp/Order.kind @@ -1,13 +1,13 @@ type Cmp.Order(cmp: A -> A -> Cmp) { new( refl: - (a: A, b: A, H: Equal(cmp(a, b), Cmp.eql)) + (a: A, b: A, H: Equal(cmp(a, b), Cmp.eql)) -> (Equal(a, b)) antisym: - (a: A, b: A) + (a: A, b: A) -> (Equal(cmp(a, b), Cmp.inv(cmp(b, a)))), trans: - (a: A, b: A, c: A, H0: Equal(cmp(a, b), cmp(b, c))) + (a: A, b: A, c: A, H0: Equal(cmp(a, b), cmp(b, c))) -> (Equal(cmp(b, c), cmp(a, c))) ) } diff --git a/base/Fin.kind b/base/Fin.kind index 39fdda2a..78093127 100644 --- a/base/Fin.kind +++ b/base/Fin.kind @@ -1,12 +1,12 @@ Fin(lim: Nat): Type case lim { zero: - Fin.self + Fin.self Type> -> P(Fin.self) succ: - Fin.self + Fin.self Type> (zero: P(Fin.zero(lim.pred))) - (succ: (pred: Fin(lim.pred)) P(Fin.succ(lim.pred, pred))) + (succ: (pred: Fin(lim.pred)) -> P(Fin.succ(lim.pred, pred))) -> P(Fin.self) } diff --git a/base/Monoid.kind b/base/Monoid.kind index aaf15b39..ed9ed616 100644 --- a/base/Monoid.kind +++ b/base/Monoid.kind @@ -2,8 +2,8 @@ type Monoid{ new( op: A -> A -> A, e: A, - assoc: (a: A, b: A, c: A) Equal(A,op(op(a,b),c),op(a,op(b,c))), - neuter_left: (a: A) Equal(A,op(e, a), a), - neuter_right: (a: A) Equal(A, op(a, e), a), + assoc: (a: A, b: A, c: A) -> Equal(A,op(op(a,b),c),op(a,op(b,c))), + neuter_left: (a: A) -> Equal(A,op(e, a), a), + neuter_right: (a: A) -> Equal(A, op(a, e), a), ) } diff --git a/base/Vector.kind b/base/Vector.kind index 31b126ea..b0ed9eae 100644 --- a/base/Vector.kind +++ b/base/Vector.kind @@ -14,11 +14,11 @@ Vector(A: Type, len: Nat): Type case len { zero: - self(P: (self: Vector(A,0)) Type) -> + self(P: (self: Vector(A,0)) -> Type) -> (nil: P(Vector.nil(A))) -> P(self) succ: - self(P: (self: Vector(A,Nat.succ(len.pred))) Type) -> + self(P: (self: Vector(A,Nat.succ(len.pred))) -> Type) -> (cons: (head: A) -> (tail: Vector(A, len.pred)) -> P(Vector.cons(A,len.pred,head,tail))) -> P(self) } diff --git a/base/Vector/main.kind b/base/Vector/main.kind index 19a63152..db1b42c8 100644 --- a/base/Vector/main.kind +++ b/base/Vector/main.kind @@ -1,2 +1,2 @@ Vector.main: Nat - Vector.head(Vector.from_list(3, [1, 2, 3])) + Vector.head(Vector.from_list([1, 2, 3])) From 09c2f9f2c1f405d8f5c3bd3d7830dee9c8e499e4 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Mon, 16 Aug 2021 07:59:07 -0300 Subject: [PATCH 13/26] Update SYNTAX.md --- SYNTAX.md | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/SYNTAX.md b/SYNTAX.md index 59fdfdc3..ceae9739 100644 --- a/SYNTAX.md +++ b/SYNTAX.md @@ -298,7 +298,7 @@ branch as `name.field`. For example, when matching a `List`, we gain access to its head and tail as `list.head` and `list.tail`: ``` -sum(list: List): List +sum(list: List): Nat case list { nil: 0 cons: list.head + sum(list.tail) From 9e87141fbe7f48b402ce2055d2d8b14c1181a3d6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Mon, 16 Aug 2021 10:39:24 -0300 Subject: [PATCH 14/26] escape $ in Makefile --- bin/scm/Makefile | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bin/scm/Makefile b/bin/scm/Makefile index cf131ad0..3c017951 100644 --- a/bin/scm/Makefile +++ b/bin/scm/Makefile @@ -38,5 +38,5 @@ scheme/bin/scheme: cd $(chezdir) && make -j && make install scheme/bin/compile-chez-program: scheme/bin/scheme - cd $(chezexedir) && ./../scheme/bin/scheme --script gen-config.ss --scheme ./../scheme/bin/scheme --bootpath $(dirname $(find ../scheme -name kernel.o)) --prefix $(pwd)/../scheme + cd $(chezexedir) && ./../scheme/bin/scheme --script gen-config.ss --scheme $(PWD)/scheme/bin/scheme --bootpath $$(dirname $$(find ../scheme -name kernel.o)) --prefix $(PWD)/scheme cd $(chezexedir) && make install From 4c955410e413ef00c32e3c6bb11b8150290f53de Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Mon, 16 Aug 2021 10:40:09 -0300 Subject: [PATCH 15/26] get rid of annoying important warning --- base/Kind/Comp/Target/Scheme.kind | 5 +++-- bin/scm/src/kind.sls | 7 ++++--- bin/scm/src/main.scm | 4 ++-- 3 files changed, 9 insertions(+), 7 deletions(-) diff --git a/base/Kind/Comp/Target/Scheme.kind b/base/Kind/Comp/Target/Scheme.kind index 7726542e..d996febd 100644 --- a/base/Kind/Comp/Target/Scheme.kind +++ b/base/Kind/Comp/Target/Scheme.kind @@ -383,8 +383,9 @@ Kind.Comp.Target.Scheme.basics: Kind.Comp.Basics "" (kstring-append (if fst "" sep) - (car strs) - (kstring_join sep (cdr strs) #f)))) + (kstring-append + (car strs) + (kstring_join sep (cdr strs) #f))))) ; Short alias to vector-ref (define get vector-ref) diff --git a/bin/scm/src/kind.sls b/bin/scm/src/kind.sls index b50d5688..7cc4bba2 100644 --- a/bin/scm/src/kind.sls +++ b/bin/scm/src/kind.sls @@ -62,8 +62,9 @@ "" (kstring-append (if fst "" sep) - (car strs) - (kstring_join sep (cdr strs) #f)))) + (kstring-append + (car strs) + (kstring_join sep (cdr strs) #f))))) ; Short alias to vector-ref (define get vector-ref) @@ -1659,4 +1660,4 @@ (define Kind.api.check_code (lambda (code$0) ($Kind.api.check_code code$0))) (define ($Kind.Term.read code$0) (let ((self0 (Kind.Parser.term ($Parser.State.new Maybe.none "" 0 0 code$0)))) (case (get self0 0) ('Parser.Reply.error (let ((f0 (get self0 1))) Maybe.none)) ('Parser.Reply.value (let ((f0 (get self0 1))) (let ((f1 (get self0 2))) ($Maybe.some f1))))))) (define Kind.Term.read (lambda (code$0) ($Kind.Term.read code$0))) -) \ No newline at end of file +) diff --git a/bin/scm/src/main.scm b/bin/scm/src/main.scm index d0716d3d..345bb576 100644 --- a/bin/scm/src/main.scm +++ b/bin/scm/src/main.scm @@ -4,7 +4,7 @@ (let ([args (cdr (command-line))]) (if (null? args) (print-lines - '("# kind-scm 1.0.85" + '("# kind-scm 1.0.86" "" "Usage:" "" @@ -73,4 +73,4 @@ (display (run_io (Kind.api.io.term_to_core fst_arg)))) (else (display "unrecognized cli argument: ") - (display snd_arg)))))))) + (display snd_arg)))))))) \ No newline at end of file From e38ab4bdaa63b497225c01cc46b73d564f06cc90 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Mon, 16 Aug 2021 10:45:01 -0300 Subject: [PATCH 16/26] avoid segfaults in deep recursions --- bin/js/src/main.js | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bin/js/src/main.js b/bin/js/src/main.js index 8b30ed0c..d14ffafd 100755 --- a/bin/js/src/main.js +++ b/bin/js/src/main.js @@ -1,4 +1,4 @@ -#!/usr/bin/env -S node --stack-size=100000 +#!/usr/bin/env node var kind = require("./kind.js"); var fs = require("fs"); From b8e134975b948886e8bf988e46b5365ba977cc47 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Mon, 16 Aug 2021 11:03:36 -0300 Subject: [PATCH 17/26] update INSTALL documentation --- INSTALL.md | 91 ++++++++---------------------------------------------- 1 file changed, 13 insertions(+), 78 deletions(-) diff --git a/INSTALL.md b/INSTALL.md index bbdfb138..50a3ffd4 100644 --- a/INSTALL.md +++ b/INSTALL.md @@ -2,96 +2,31 @@ The Scheme backend handles recursion better than the default Javascript backend. That means it never stack overflows in deep recursions. -## Linux +# Prebuilt binaries -If you're using a Debian-based distro, like Ubuntu or Mint, you could download the [latest debian binary package](https://github.com/uwu-tech/Kind/releases) and install it by double-clicking the file. In other cases building from source is the way to go. +Kind is distributed as a single binary executable. You can download it [here](https://github.com/uwu-tech/Kind/releases). -### Building from source +# Building from source -**1.** First [install chezscheme](https://command-not-found.com/scheme). To check if you succeeded run. - -```shell -scheme --version -``` - -**2.** Go to the Kind directory, pull the latest version, and run: +**1.** Go to the root of the repository, pull the latest version, and run: ```shell cd bin/scm make ``` -if you're fine installing the binary in `/usr/local/bin/` +It may take some time. You can grab a cup of coffee while you wait. At the end you should see the `kind-scm` executable inside `bin/scm/bin/`. Try running it: + +```shell +./bin/kind-scm +``` + +You can install it wherever you want. If you're fine placing it in `/usr/local/bin/` then run. ```shell sudo make install ``` -**3.** To check if the install succeeded, navigate to the `Kind/base` folder and run +To update repeat those same steps, it'll probably be much faster. -```shell -kind-scm -``` - -If you're greeted with a help message then `kind-scm` is installed. :slightly_smiling_face: - -## MacOS - -Currently, the only way to install the Scheme backend on macOS is to build from the source. - -### Building from source - -**1.** First you'll need to [build](https://github.com/racket/ChezScheme/blob/master/BUILDING) and install [Racket's fork](https://github.com/racket/ChezScheme) of ChezScheme: - -```shell -git clone https://github.com/racket/ChezScheme.git -cd ChezScheme -``` - -**2.** Then install the dependencies and configure: - -```bash -git submodule init -git submodule update -./configure --pb --disable-curses --disable-x11 -``` - -- For Macbook chip M1 run `make tarm64osx.bootquick`. It should output `Configuring for tarm64osx`. - -- For Macbook chip Intel run `make ta6osx.bootquick`. It should run without errors. - -```bash -./configure --disable-curses --disable-x11 -make -sudo make install -``` - -**3.** To check if ChezScheme was successfully installed run: - -```bash -scheme --version -``` - -it should print the version, like `9.5.5`. - -**4.** Go to the Kind directory (if you don't have it yet, just clone it) and run: - -```bash -cd bin/scm -make -sudo make install -``` - -It may take some time. You can grab a cup of coffee while it finishes. - -**5.** Now `kind-scm` is installed, great! Run `kind-scm` inside the `Kind` repository and see if you're greeted with help text. - -If you have any problem, [let us know](https://github.com/uwu-tech/Kind/issues). - -### Update -Go to the Kind directory, pull the latest version, and run: -```bash -cd bin/scm -make -sudo make install -``` +If something doesn't work, [let us know](https://github.com/uwu-tech/Kind/issues) ;) From 1500f394fea7700952d3786941ebb269c69e4884 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Mon, 16 Aug 2021 11:07:14 -0300 Subject: [PATCH 18/26] add comments about bootstrapping --- bin/scm/Makefile | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/bin/scm/Makefile b/bin/scm/Makefile index 3c017951..cace3710 100644 --- a/bin/scm/Makefile +++ b/bin/scm/Makefile @@ -1,13 +1,16 @@ chezdir := ChezScheme chezexedir := chez-exe +# choose wether to use kind or kind-scm for bootstrapping +kind := kind-scm all: bin/kind-scm deb: kind-scm.deb -# compiles kind files to scheme you could replace kind-scm with kind +# compiles kind files to scheme +# do this after modifying the compiler source-code bootstrap: - cd ../../base && kind-scm Kind.Comp.Target.Scheme.bootstrap --run + cd ../../base && $(kind) Kind.Comp.Target.Scheme.bootstrap --run clean: rm src/*.wpo From 0a001ba6f6eb151ad0ce3683c8161b731da74d3c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Mon, 16 Aug 2021 11:19:17 -0300 Subject: [PATCH 19/26] remove chezscheme dependency --- bin/scm/kind-scm_1.0.1-0_amd64/DEBIAN/control | 1 - 1 file changed, 1 deletion(-) diff --git a/bin/scm/kind-scm_1.0.1-0_amd64/DEBIAN/control b/bin/scm/kind-scm_1.0.1-0_amd64/DEBIAN/control index d726bf09..68489d52 100644 --- a/bin/scm/kind-scm_1.0.1-0_amd64/DEBIAN/control +++ b/bin/scm/kind-scm_1.0.1-0_amd64/DEBIAN/control @@ -2,6 +2,5 @@ Package: kind-scm Version: 1.0.59 Architecture: amd64 Maintainer: Rígille S. B. Menezes -Depends: chezscheme Description: ChezScheme release of the kind programming language. A minimal, efficient and practical proof and programming language. Under the hoods, it is basically Haskell, except purer and with dependent types. That means it can handle mathematical theorems just like Coq, Idris, Lean and Agda. On the surface, it aims to be more practical and looks more like TypeScript. From e8b4cf3184c89d4f90f315117ba8ca29afefce96 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Mon, 16 Aug 2021 11:24:24 -0300 Subject: [PATCH 20/26] update debian package version --- bin/scm/kind-scm_1.0.1-0_amd64/DEBIAN/control | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/bin/scm/kind-scm_1.0.1-0_amd64/DEBIAN/control b/bin/scm/kind-scm_1.0.1-0_amd64/DEBIAN/control index 68489d52..d6073677 100644 --- a/bin/scm/kind-scm_1.0.1-0_amd64/DEBIAN/control +++ b/bin/scm/kind-scm_1.0.1-0_amd64/DEBIAN/control @@ -1,5 +1,5 @@ Package: kind-scm -Version: 1.0.59 +Version: 1.0.90 Architecture: amd64 Maintainer: Rígille S. B. Menezes Description: ChezScheme release of the kind programming language. From d86135316b9371b8bfc8be8af6f1c1abfea4e570 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Mon, 16 Aug 2021 11:33:41 -0300 Subject: [PATCH 21/26] add init of submodules --- INSTALL.md | 1 + 1 file changed, 1 insertion(+) diff --git a/INSTALL.md b/INSTALL.md index 50a3ffd4..0168f214 100644 --- a/INSTALL.md +++ b/INSTALL.md @@ -12,6 +12,7 @@ Kind is distributed as a single binary executable. You can download it [here](ht ```shell cd bin/scm +git submodule update --init --recursive make ``` From cd873e7c2c36c0154dc082e6249cb371384b0bd5 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Mon, 16 Aug 2021 14:27:24 -0300 Subject: [PATCH 22/26] fix make recipe --- bin/scm/Makefile | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bin/scm/Makefile b/bin/scm/Makefile index cace3710..c9de9659 100644 --- a/bin/scm/Makefile +++ b/bin/scm/Makefile @@ -35,8 +35,8 @@ install: bin/kind-scm scheme/bin/scheme: cd $(chezdir) && git submodule init && git submodule update - cd $(chezdir) && ./configure --pb - cd $(chezdir) && make -j auto.bootquick + cd $(chezdir) && ./configure --pb --kernelobj --disable-curses --disable-iconv --disable-x11 + cd $(chezdir) && make auto.bootquick cd $(chezdir) && ./configure --kernelobj --disable-curses --disable-iconv --disable-x11 --installprefix=$(PWD)/scheme cd $(chezdir) && make -j && make install From fe6d46e582cb207e4529d705b4187e6156bd6dc7 Mon Sep 17 00:00:00 2001 From: Vitor Date: Mon, 16 Aug 2021 15:47:51 -0300 Subject: [PATCH 23/26] Updated mouse UI --- base/App/KL/Game/Phase/Play/draw.kind | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/base/App/KL/Game/Phase/Play/draw.kind b/base/App/KL/Game/Phase/Play/draw.kind index 13113196..60ef7ee5 100644 --- a/base/App/KL/Game/Phase/Play/draw.kind +++ b/base/App/KL/Game/Phase/Play/draw.kind @@ -575,9 +575,10 @@ App.KL.Game.Phase.Play.draw.canvas( } let img = App.KL.Game.Phase.Play.draw.board(game, local@preview, hits, local@user, local@mouse, img) let img = App.KL.Game.Phase.Play.draw.bases(game, local@user, img) - let img = App.KL.Game.Phase.Play.draw.cursor(local@mouse, img) + let img = App.KL.Game.Phase.Play.draw.cursor(local@mouse,game.board, img) img + // draw canvas board App.KL.Game.Phase.Play.draw.landscape(blueprint: App.KL.Game.Board.Blueprint, img: VoxBox): VoxBox let landscape = blueprint@landscape @@ -720,11 +721,18 @@ App.KL.Game.Phase.Play.Draw.get_indicators( // draw mouse indicator App.KL.Game.Phase.Play.draw.cursor( mouse: Pair + board: App.KL.Game.Board img: VoxBox ): VoxBox coord = Hexagonal.Axial.from_screen_xy(mouse, App.KL.Constants.hexagon_radius, App.KL.Constants.center_x, App.KL.Constants.center_y) {x,y} = App.KL.Game.Phase.Play.draw.centralize.old(coord) - VoxBox.Draw.image(x, y, App.KL.Constants.z_index.cursor, App.KL.Game.Field.Mouse.mouse_ui, img) + let has_tile = App.KL.Game.Tile.get(coord, board) + case has_tile { + none: + img + some: + VoxBox.Draw.image(x, y, App.KL.Constants.z_index.cursor, App.KL.Game.Field.Mouse.mouse_ui, img) + } // draws tile terrain App.KL.Game.Phase.Play.draw.tile.terrain( From d0222cb2ac85df84d8bf78eb84f4df2ff86cf325 Mon Sep 17 00:00:00 2001 From: caotic123 Date: Tue, 17 Aug 2021 00:32:33 -0300 Subject: [PATCH 24/26] Add simplified version of rlp decode --- base/Ether/RLP/decode.kind | 63 ++++++++++-------------------- base/Ether/RLP/verifiy/decode.kind | 43 ++++++++++++++++++++ 2 files changed, 64 insertions(+), 42 deletions(-) create mode 100644 base/Ether/RLP/verifiy/decode.kind diff --git a/base/Ether/RLP/decode.kind b/base/Ether/RLP/decode.kind index d11eba0e..c20d5971 100644 --- a/base/Ether/RLP/decode.kind +++ b/base/Ether/RLP/decode.kind @@ -1,21 +1,28 @@ String.at(len : Nat, str : String) : Pair {String.take(len, str), String.drop(len, str)} - Ether.RLP.merge_tree(x : List, y : Ether.RLP.Tree) : Ether.RLP.Tree case y { tip : Ether.RLP.Tree.list(y & x) list : Ether.RLP.Tree.list(y.value ++ x) } -Ether.RLP.listing(encode : String) : Pair, String> +Ether.RLP.decode.list(encode : String) : Pair, String> if (String.length(encode) =? 0) || String.eql(encode, "error") then {[], encode} else let {tree, rest} = Ether.RLP.decode.read(encode) - let {trees, rest} = Ether.RLP.listing(rest) + let {trees, rest} = Ether.RLP.decode.list(rest) {tree & trees, rest} +Ether.RLP.decode.binary(value : String) : Nat + let {head, rest} = String.at(2, value) + let decode = Bits.to_nat(Bits.hex.decode(String.reverse(head))) + if (String.length(rest) =? 0) then + decode + else + Ether.RLP.decode.binary(rest) + (decode * 256) + Ether.RLP.decode.read(encode : String) : Pair let {prefix, rest} = String.at(2, encode) let byte_prefix = Bits.hex.decode(String.reverse(prefix)) @@ -24,60 +31,32 @@ Ether.RLP.decode.read(encode : String) : Pair Ether.RLP.Constants.bits_128 : {Ether.RLP.Tree.tip(byte_prefix), rest} // between (0, 127) Ether.RLP.Constants.bits_184 : let content_length = (Bits.to_nat(byte_prefix) - 128) * 2 - if (bytes_size >? content_length) then - let {prefix, rest} = String.at(content_length, rest) - {Ether.RLP.Tree.tip(Bits.hex.decode(String.reverse(prefix))), rest} - else - {Ether.RLP.Tree.list([]), "error"} // treat this case after + let {prefix, rest} = String.at(content_length, rest) + {Ether.RLP.Tree.tip(Bits.hex.decode(String.reverse(prefix))), rest} Ether.RLP.Constants.bits_192 : let content_length = (Bits.to_nat(byte_prefix) - 183) * 2 let {head, rest} = String.at(content_length, rest) - let length = Ether.RLP.decode_binary(head) - let verifier = (Bits.to_nat(byte_prefix) - (183 + length)) * 2 - if (bytes_size >? content_length) && (bytes_size >? verifier) then - let {prefix, rest} = String.at(length *2, rest) - {Ether.RLP.Tree.tip(Bits.hex.decode(String.reverse(prefix))), rest} - else - {Ether.RLP.Tree.list([]), "error"} // treat this case after + let length = Ether.RLP.decode.binary(head) + let {prefix, rest} = String.at(length *2, rest) + {Ether.RLP.Tree.tip(Bits.hex.decode(String.reverse(prefix))), rest} Ether.RLP.Constants.bits_248 : let content_length = (Bits.to_nat(byte_prefix) - 192) * 2 - if (bytes_size >? content_length) then - if String.length(rest) =? 0 then - {Ether.RLP.Tree.list([]), rest} - else - let {xs, rest} = Ether.RLP.listing(rest) - {Ether.RLP.Tree.list(xs), rest} - else - {Ether.RLP.Tree.list([]), "error"} // treat this case after + let {xs, rest} = Ether.RLP.decode.list(rest) + {Ether.RLP.Tree.list(xs), rest} Ether.RLP.Constants.bits_255 : let content_length = (Bits.to_nat(byte_prefix) - 247) * 2 let {head, rest} = String.at(content_length, rest) - let length = Ether.RLP.decode_binary(head) - let verifier = (Bits.to_nat(byte_prefix) - (247 + length)) * 2 - if (bytes_size >? content_length) && (bytes_size >? verifier) then - if String.length(rest) =? 0 then - {Ether.RLP.Tree.list([]), rest} - else - let {xs, rest} = Ether.RLP.listing(rest) - {Ether.RLP.Tree.list(xs), rest} - else - {Ether.RLP.Tree.list([]), "error"} + let length = Ether.RLP.decode.binary(head) + let {xs, rest} = Ether.RLP.decode.list(rest) + {Ether.RLP.Tree.list(xs), rest} } default {Ether.RLP.Tree.list([]), "error"} // treat this case after -Ether.RLP.decode_binary(value : String) : Nat - let {head, rest} = String.at(2, value) - let decode = Bits.to_nat(Bits.hex.decode(String.reverse(head))) - if (String.length(rest) =? 0) then - decode - else - Ether.RLP.decode_binary(rest) + (decode * 256) - Ether.RLP.decode : _ // let x = Nat.pow(2, 16) - 1 // let v = Ether.RLP.encode.read(Ether.RPL.encode.binary(x)) // {Ether.RPL.encode.binary(x), - // Ether.RLP.decode_binary(String.drop(2, v))} + // Ether.RLP.decode.binary(String.drop(2, v))} let hello = Bits.read(String.reverse("011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001011000010110000101100001")) let xs = Ether.RLP.encode.bytes(Ether.RLP.Tree.list([Ether.RLP.Tree.list([Ether.RLP.Tree.tip(hello)]), Ether.RLP.Tree.tip(hello)])) diff --git a/base/Ether/RLP/verifiy/decode.kind b/base/Ether/RLP/verifiy/decode.kind new file mode 100644 index 00000000..bb55c91a --- /dev/null +++ b/base/Ether/RLP/verifiy/decode.kind @@ -0,0 +1,43 @@ +String.at(len : Nat, str : String) : Pair + {String.take(len, str), String.drop(len, str)} + +Ether.RLP.verifiy.decode(encode : String) : Pair + let {prefix, rest} = String.at(2, encode) + let byte_prefix = Bits.hex.decode(String.reverse(prefix)) + def bytes_size = String.length(encode) + switch (Bits.ltn(byte_prefix)) { + Ether.RLP.Constants.bits_128 : {Ether.RLP.Tree.tip(byte_prefix), rest} // between (0, 127) + Ether.RLP.Constants.bits_184 : + let content_length = (Bits.to_nat(byte_prefix) - 128) * 2 + if (bytes_size >? content_length) then + let {prefix, rest} = String.at(content_length, rest) + {Ether.RLP.Tree.tip(Bits.hex.decode(String.reverse(prefix))), rest} + else + {Ether.RLP.Tree.list([]), "error"} // treat this case after + Ether.RLP.Constants.bits_192 : + let content_length = (Bits.to_nat(byte_prefix) - 183) * 2 + let {head, rest} = String.at(content_length, rest) + let length = Ether.RLP.decode.binary(head) + let verifier = (Bits.to_nat(byte_prefix) - (183 + length)) * 2 + if (bytes_size >? content_length) && (bytes_size >? verifier) then + let {prefix, rest} = String.at(length *2, rest) + {Ether.RLP.Tree.tip(Bits.hex.decode(String.reverse(prefix))), rest} + else + {Ether.RLP.Tree.list([]), "error"} // treat this case after + Ether.RLP.Constants.bits_248 : + let content_length = (Bits.to_nat(byte_prefix) - 192) * 2 + if (bytes_size >? content_length) then + if String.length(rest) =? 0 then + {Ether.RLP.Tree.list([]), rest} + else + let {xs, rest} = Ether.RLP.decode.list(rest) + {Ether.RLP.Tree.list(xs), rest} + else + {Ether.RLP.Tree.list([]), "error"} // treat this case after + Ether.RLP.Constants.bits_255 : + let content_length = (Bits.to_nat(byte_prefix) - 247) * 2 + let {head, rest} = String.at(content_length, rest) + let length = Ether.RLP.decode.binary(head) + let {xs, rest} = Ether.RLP.decode.list(rest) + {Ether.RLP.Tree.list(xs), rest} + } default {Ether.RLP.Tree.list([]), "error"} // treat this case after From d6a36ed4781b73ca87ad4c1f0b8e3274399184ab Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Tue, 17 Aug 2021 14:51:03 -0300 Subject: [PATCH 25/26] update I32.show --- base/I32/show.kind | 1 - base/Word/s_show.kind | 2 +- 2 files changed, 1 insertion(+), 2 deletions(-) diff --git a/base/I32/show.kind b/base/I32/show.kind index a3481e1f..4500f8b1 100644 --- a/base/I32/show.kind +++ b/base/I32/show.kind @@ -1,4 +1,3 @@ I32.show(a: I32): String open a Word.s_show!(a.value) - diff --git a/base/Word/s_show.kind b/base/Word/s_show.kind index 0f8940c3..f6323df8 100644 --- a/base/Word/s_show.kind +++ b/base/Word/s_show.kind @@ -2,4 +2,4 @@ Word.s_show(size: Nat)(a: Word(size)): String neg = Word.is_neg(size, a) n = Word.to_nat!(Word.abs!(a)) sgn = if neg then "-" else "+" - sgn | Nat.show(n) | "#" | Nat.show(size) + sgn | Nat.show(n) From 8af9610fc457ff0bfff9ab2df81bf195818f5342 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?R=C3=ADgille=20S=2E=20B=2E=20Menezes?= Date: Tue, 17 Aug 2021 14:52:05 -0300 Subject: [PATCH 26/26] add V2.len --- base/V2/len.kind | 3 +++ 1 file changed, 3 insertions(+) create mode 100644 base/V2/len.kind diff --git a/base/V2/len.kind b/base/V2/len.kind new file mode 100644 index 00000000..32b2c6a0 --- /dev/null +++ b/base/V2/len.kind @@ -0,0 +1,3 @@ +V2.len(a: V2): F64 + open a + F64.sqrt((a.x*a.x) + (a.y*a.y))

    • n}%Z|2W#LVMa9#p;uu#=KsX^t7gebk^qR2;X1tg59D^`!-FH#KxW9Ddtr%lO zL%yhJ$d_(#Ed-JDI!1s2U%H`UEYkHxm`ncSV8+W=4GxBtns?yxEp{*)>m1nCyMlx1 zPL$Oq2NNyjI+!rNi<&iEw5ScXCX}Kk{obb&RXM*qVHp~MMDm{(SGf)QRE&A;S%PE% z6;regz#1Q&B(@DF35{2Tit!3<9#gRvTD6!;df2!;Mo38vmc*1qiPXC$T>_KdHtVa| z(%XBeHsP>Xy`=&~eo(!T9no%A;ebTBNt_ZdB=j`D9#7m1S&<|)#V}mKLX5yeA9ROs z#jLBzQp|dCLeEKAB@}1;^a?h}lUiBHaKkQ{!p=&$INAy3*)8a_JcF(qu=B?6=#;q3Vs*&N0pBWjUUZ@1(lu6dxI0Y+}oh96`5*+cp zZoY#N6FPwE7Y}hMt^*;fx3&YoXPBODtTT%oFRbKr39s62Dcw!t3wb76HKQ5^+A?NB z*VlJ)ww~9R)s9sj8;>kmM8lTA`UWf*_eGm|@0O*m^2m!eVQVTzFhMwG9w5{c#u^T0 zw$8AX)KwF9lJszfZ9i`fxdJPG$SYJr1;Kvy4$f)=q1utZ0YgNPpL3~$Q0ue= zj1%TVoNKTdH5w3?OnbPZ!cr zlJ=ycXI|GIn%GF@4~>Vmy0KH$?(=w_F8jyekljDnXrF*((;%b$ z%mDKFgKW+h_SFLwz4=ut?WTu9=+{d@fAsG>Yy2+4 z0+FXF^^<{8*rl&1t9_89@YV9&!jJhJ#^T8!d%=9hZ&P;5z9Fh^lb7y4`Y(K`!F%kt zU&_}Bn(hJ;r8OA3g-iMU3jD!{i_T|lslyY6bpRSUnBHsY{=>=W9I}pvIS(VmVqzFt zq3iHnr(H*_y|^Yz(1^NJuV6J~nZIKq6%Br*%%m~S{d@h?xZh9BVSXwNZKr0_{&pzZ zsTAH$e+|pql%i~>Ns6Y7rBvdQi`b<7yJxgeqVrfH(plrMMykG;C6y-@5s6JKQqga- zMjRns7ZZzw5A6owN|r*-;bMw#j=P_H7YPA4CTUW7QOi)gf=>aRwn+9fo+2eypTi+v z#%hPBh)44?G!diVcY2D58*LUKcsQX?7_%bRhf;Ey(9#Xgb8Us2ot#Z2$O$B#o|4dv7%R$#&Uyb zY}A%tl-+Hp^olPBBS3!=XL&>$7h`%&@F?e&*UqT|ye~_gzaeD6`y!6&tt09`SkjA8 zDJ9`8gasHzFC@2UqE|dRnu{0xkw5?t_e{_d(XA!yc|zVJ=G=GjX{)0FlL5zlpq_hd zB<9ursIf%!Xo=g9>Lf-O+pW<66^?O|oFXJ8K0!!0vB!oJMHQJ`%+-qiIFO|Eh{os7 z=z{DdMEHkh7zf7^YkVp(_XOWl7Km;WOvIWofT)y=a2dGg^FN}-hL5Q7FUqA;YgjIE zaF&q%i)#aXT!yT0($f$Y)?c{F3J5aG1{u%C7lRtUExJ^f73vN;{~Sm5vO*s z=towhV?{(XH79CGS%ATpt8|dEtN@aAKG3NO1(Gu#G}`+zjn<*PL7_bbXt--wW54m# zD89fN?R~idU#`ZoyDv-U5o7#VQlDe;rvQPW4}EEzqA-wrkL{mTrJMYz4mN4`Jl_WVjyWnU}a`Zr914~!1fZATp zX<}sljv_-`&Vw}1-%G8jpVKfAu(tqNcK;ID5?9;Dn9mc{HA?Fk)krF991Q~~caj5+ zra$R6GjK(OA@3}mlq33+Ig18RzH@0<@m#u8^uw^_Ps^n%OL0eN zH7Zw*agEAW{zG<7u7MPA}EY&H)w%;$tH=^h$W~0+3U>fz(NLIV1^C zDxaubon{sBbZn5ih2(62nI~sUKMmHZ9wLnnc$0uGp@1%-sb6H9czH8P&{u)nML$xav2&BP6;5}8scagc#w-ZJUd*$@8YCF zGu$^hnPkcd{}DVn*+kTihluK1Jff(xZc0en{H^<(mtEXFa%}`J8d$$B2q- z>Cv2J$?x08v+BwdS5TswH6zjcJ;SUp4uM z8$OR6z|^p_rJXiT(j%@6oKu{hleRrAJ|=B0?Rfyj#l| zn-pa7Z(HzS54@cot^KtiosY1XtziB$Ulx^bIUPTmJ~IjL@Z^>?iF8dslKaEMDDm7r zOrj{kOnjJjT})!SE*%C#G3M#mNh!Ay_~^`m+9q z|BG*J0Sx%%cOAQL8}xH`-$6v0e;90erYKNw^~NXH(@+ebMS_F&zMHiBPGJ;jYJ~>O zmn1^(YD|P^lW&aTb83wV`-3Lu!epG=)x$3JKNYEw)_s7Kg!@DFE8QWHE8W7Pd*L>p z-Q_9Qtz%Vv#tF}-Q@OupI>)-;DA&*dob_mix%XE-oR_UTy%# zwn}krtee=%Ur7OFYD!rrCB-4F$D$&f_f zPlT~YH>k46lcNRq2$LMnN_LjMWdi`GC88XNG0zEFVMVu5dKDZDael)dMt($J$gl(y8%wo0+~zWmFjHHY2j1(1%lh!(n*}YCW+H}k($duH1%)j=O#XtLss)vp zK7fkuTEQ-pe~gkh`HLCT?y90$v#Vw$Og7w6i2eesRw~3AaX4PM0UiO-KR#bD3Zc@( zKYp@HEw2@X%gZC5EeHx9(yLNkZV04-l^NKuyv9L0O#YD!Uo~r%J7WqJm&6eMewX%P zfdgiWF30kS9X60Sv<%dFJ|eo$M@R!dAE8iQ8I;3_%aL_yS~Qv%F6alKwK$Z}z2q~~ zo1$9f7(8QkO=XqibuwwF=}nWGZmcrg(ZFnTIhal|$a;PvwB zgRBwF1Gx-s(VHR1ctoXe>+z)#>*q*%%AQhF{G-B-F+741^WUeu&$=a7qP>)1@ZmNPnOnYr4JwB%FHC0zjF3y+znH{z=IYWtK5s3!aRcH~PFE^ znjN1R8Ji6VgMRUuHhdeK`+_JO!6UIKjah}HGWQX~)8vpj-rm6BHRt?T>FCV-q|)$$ z@rRoxZ`b!!_^mSoYc|XX@!p_xA6s=RCXEzdr1ZC!QA)59fS{3BaJ>RkA5_hohouWlXpp(Z zqV;SQO44C^cWu_ppCxa6`}Yu=$thien5%81iLJVIyJ=MixHa5JGM{tr%_DxK8sQtn7u*=6Jzg40}dr z;LDqu$~c-w5`px$GJ_0z{4dsP1S9za@8>sfFIk^Wgx}sqR9~omK9R8K0`8Sg^RCB9 zZSF0F3^UDgxF!guiEvK*PB2X*`5cL-(htZ$OsGi%Iy&jYB<-aKO7 zS@LW}fEe8uv09Kf{@~zj3AdFwCom@K&Jzrp!3hHZ6zbaZu#gdelVWbkA)zlgDCzQZ z9pEz~9kk=7I%j=1j=JMccQLZDPU?dILl=Ds_gGY)Nv-IPCAUxAD1>bl$j-_aXXESq zOC093haCn$e1kPieIHn-k9Dj>2qWlgrI+$xY44&WABhtW-4xkV-x8OP7}=2*aUC*Y zjz=J;L>p6A3Kvz3(mg1;oWH12?yS@MhlTF+50hKHJEVa)Sg!y=-2xd_y2`X5`Kq=u zO(|O+SQKol0lIWV<)ZLc9nJT4H|D;(5gwAM8L#a5=(Xf+yLUm8Kx>V`Fcz zsrp74F%sb;W2iLh{n4>PuQ8l(XKdW;Ciwn9jboydz=Km&H~Bo#JliEVO-qXimnNo0 zSf%_ECQR36my4!?iU?s=xj}a`{2fLtF!?87wpJ;Q*cG8UB^ct30w;O+VDQ9FB}lE7 z;O@1X3zIR!^OiH&!-Bb-awdFOPsTjfPINsObBUekV;SR&kId^#{)yPtRI$Y_tr16y zW5lsy$s5k0%WUF^Rps(B+i_7HW%5tzayCb0kdeMIVsli31qn}|iagBTRlNu^gP6u4 zae4}s#!aDib6GOcO#$@Vh+v}M%$f^OJj0ri?5y9!nnxnbc^WNTS=sZWw>`PSnHz}APu5$S) zktS4ec5?-e)=#s`#j?kcC0Smj&LMnAcykplUlWsE zEmr)9-qnBNDo?`>W)X8O)}WY<;tpe;f#P?@40E&oHX}xk=S4V_u9RoG~xKsf00N6m~R=XTN9=7vNMDii^a> z;*vPB1<%E*C~;ok%K?C2I>H*Pfdum?B`A2BX6QVFNE8hT{!EL{3A5cplHu_;(=GKk~Ff!7n8e3QlA;_zU_wO~<&MRP5fd>TBksXCbXz6=cE`|p`X@4IIj zv-h59?4EnQN`ej1jdt^k?!@xz2>^ygD89eyu3h>n^AA#f`y3L7?!aB1 z-Hql6B1mgy-Y`EQ5>Hyl^Z;5?P^Pvll0GyOd!J{nCF-S@5pa8vyo{KURMNArYY_2d zi!TPd=)oB;IZ^vmjl=l=2t+Ot zle!BYE3k5U=fPM^=c4c4IjEJ-!KTiJKQI}YjhZhYytB}}Iuo_FfGDp=Q(cc*XB~uZ z2AZ)m9K>;Hx`o{0`gffU@Ro!F(ta8#K5fqFijFtm2@b=gVJaz(#T8NFP!PZOyAoGK ziHSojPPv?dDR@w61Fi4HdY-;nJl-(GIga721~}2K(~qu{&Vm+V*}^ z!ZwrJT+oOkK4aI*>$o%aaoHDH-PWZFv+v3k!S6x*Y-6x(O{K@|J9|ZXo#1&ox)?4* zOPJ8i;Ik^W8SaAUX1EJh?sR#h8^c|C)ymJv%AFN@Bf^2(R_-Kc1I;vjtM?r1qHc(6 z=l$WXZ1w%&38y!lXV+#^pDG8kg9@>xJ0$znWZVI8wY*kE-`mB(kx8SaX;xyj^9n64;|r3v7=%o}bV+&p|T=HbPPN2Yyq z{%~{6%HfSpAW-rE1L&YR&mpJdSVYCspeb$&v3&ExDx_Sj0F};iFod*3Tze+_u?>SS zh9NBXHj{SnA-(ks>3Ew|C13;a3WT`7xldOiA!7v+AC`k@paoFv*BtUPeRY`jM|CUh zQW}{qMJv#g9(70iRgAa*g4 zBNYJFc7+^$kVrPh&NLjwL@tHllUxx;|4dAZNMZF!-SrViS=cUeyCPCJ*fjcgMI1%B z0c8r0b{^U&H=s;WpgjO>lp9c{DA68>Hp&esQ&eaVLL21i=BOIFeAG42p*)Jx zJQ!^)+9;1|lQR`-;jFZshs7c+oR?a&imG*I8P{sfIY79lhJoLr_^PKZJ2gyqGN3)h zOl-u}VF~4!S3VNLLY2ZT`)Jp%4+1AwT#31!=E(0c)I!rFL^AS+1DU2YFsWbXvUa4SHRq{@n zqt=Cx9CgH@H-h=aBe>^p2^JocG)9;oVUpMB;PK<)Z@GLC{g(&)QNoolpv>x25txJV zc}H+|s{^ye)%0L2W{cUFEtdTm77_Z-MDZLIRbdfz*_bF+-wKP+l50CXt*?Oqf&)g@ z2I6{nAA|vvy9J0GphEiMw;Rp0(Bso`>!)mX!EE>l4qbq<=)#zfimPq$)yRrd6I|OwYdp!_74Y zs9lYkQ*de!Wzs-yCe1dEir&nsiE;ep?2)zN6mFPE(k60c4+dK&-XGj-sP>A>k3@hAC1B13xSR3Wyt z&1Uo+PNchSxsyfzl&O|v(O;cqnJW5gM7)A6p1lGOo^{U9kb%kLZL_H?#A2#K*io%y zF-?!Km}Z1qOmzl}sliQ5^RO($vIxs!WXLQDu}I2)_oVNY|8*WO)&~hV+G&~uyKQ>6 zV-mfPG?|Wornaxe?rdqeLnrb7!IWF+fDUnL?C&rD#xic=&}w+nJOkP~q;^Lq#K^s& z6bgae^q&lC{WN0F%(Ns<3bOK#GGG0$rP03u4m$L1oJCX&VO*CsU(B%dYt{FEh7|X! zH@RY;$=6T3vi`9F|bZvz zjl1!Pc{Sd+tMSHlK7}`K22h&^&V(SS(F3)BK4Wk8@75Gex#wSY(&6sQG6%Fuww4>Td1DTAB!gzj`kJPpaXm>TU(AJ*60Ygpg3UZnU?sx9q&syXdYsx=i4cxTGlR96ii zO^-7mXmVq^O=Ge{Izr4=3|iLJOpsTfAL$Iz=fjnI`?N)$Pfi6%hKu18;ECZ}1J(cL3s`MP zWVtCYH>V;BSEmt2J|AO&(307+rzia zovFi=Zo89ind{oF-ZB?CDqOzRbxECXP0B8(uPh?FLfu}RZ+67Kwa0k3nQk=OB9S$@ z_7D<$xQ!atY^zP*tT*GfZoq9F)`$Ojl=2KCyfS0B^krFawXoW5qB%eh8qZ3a9jxK< z5y4))4ya#L?tXBH{w7#ZYrX$1B82dz$Vrm}Vt7ELK*)FR!Ibm+vZn|ZvEG(Fq=3-fZWg(VDp+UyQ zv9XsJ-K?tm+64*qvm4y0X^F(S%-MrDeY^oel>(toh0sihb@;RsV>3+tdD+B~mYD%q z692*vpBXs?uD?VtaW(by645q>h=_C*Ly*ZHx*MRx;UF(-N`WakDiXl}SYm*;7yDtX z%hw~0n6e^4H=7#}{R1K|lH@cE2)52&Yl@8n(#aE0wvL2&l1388lN_i~82uY0F)686 z3^{8$!7-}3S+LkAC8dw2g{Bha>;zyn`;$VCAf@N!z=;M2mC?^Hl@e~8CU-J-;>)L_i$-0526FN2R zjp#>ws&xXTxDE*kQ@5p*ZkYT!$!`#wtoWjvw}sByd;^<2oAEmCb5GGXo-_mqfOj-@ z*4NmV4(yp&`hp9No3b+u9;LORzyfDzB8jCf4;V*VE{?i!Eh%YA5q*o-k{G&n)6loNaVPr-?$|K5V1{JNYBc`{a9^*f1q>-V0- z@y>E6KPxArmQ4~@Eh#6lD=qyRa<<_j>e7@68mmQ z3i)#W2_7ro!X*1wO3xb#ES5xQ)3j_3!M zQC2FkH>MJGBD&*$#lAkO97BQ@U=(1mB#$AvgT)hpDvM4{V~G93JBJ*l9~JWrpNt?%t?2(&HQ)p% z&b_DDku09z#TDbl6ABEU7cvlqa^kV@KCD)32}`0DX8v@3bWoJYm@G*(BJ*!^V0I(4 zgrz1i0@D)Kt3$_J5AtXsL~R4fq*^A)lGdq)Os-KgKZzbSbK4xHLff?$b7=rRJ4l*W z5ollK(QboC^KpT8EaxD3h|DZ@TIjn&IWSt-9ku>@deKyp!_e|h&L!@~>q?0Pwo{O?ojZwG@MQQ# z?}w#m?}yKBN6>l#$$}GzQQ@HDIFe1rt)$$4oGQ~aMZ2hDVG-R?C+QtHO4W1O%)3;r z5$kH76&Ye@77sZ>mBs44l%wFtRzfgbZkb~hU9rkJR(Gs^j@3gU_|0=#KF8WBnwLn7 z7%OE2UJ2KwmlzCcdSRcX}uFAx*lmVHTcqM7$!AieA(12F}r)K+6&2?a3;pP81o{N zWS?9^O|>SusMY(av|Y_q0bDvsfB;>&AEUn}As-WHOibSm+cv+%5iQ{ zH4zs%Rh=cC@t|0LWQ<3tAtJ_8 z~kew0ZbZTjssD6?lVPgo6MQnP(Kmz_J5 z+VGIM&tb*09FwnNOd1B^^(eyYQMjEe9Sy15=t8bEFoY@_y`8hmhZJ&S+6N<%tcpo5 zrov<5;2^x-`R@tXSv!ghB+dV*ct2GdETqb?wt)!&sWV2fOTfX;)&gvj{V9QUvsQxInG>OveB`nvYbDUk)=C^r zNxhgzL|h#S;Z%Z?BqmT(T^Uq7LdP!GR-MO%SZqeX8P4`Q5ZZ6p(X3nT;S6+0$dKF6 zaNDinjG!3KNEEMg-8*8#8LctljDi?sP~m7sdlbUd+Hja@3x|;!l|S;q>R+?Vu01$9FOxlutWsGww2P@+MS+DA(& zRbp^IYj&?T?`Nq{Wd;f?F+ER5mG#-Lc4(=$)@LJHC5g@qYN%1^dNpc`sPrnL(yE?R zmWN16{Yt9LQw584#dbQcRq>><0&*)U#VkfHFXW6eR89~d7IZd3_#@LH30Eg)B}1T8 zUx2-v;;JN;ZQIp+XqwXgttFpwy=2<1jtAmFWu%D2eh#uZPmmBv=U_2PtGZ;og^5|~ zO>{K{Hdz>BD_j>S2X}WGD+5YQ9rb5U0V;Nq|9}u^n z!?&e-@EW2H|5dzRj~L+!>ZA1vaxwx~i&i=09d9KkUJj>&-y^gqe!n`od&hU-jMi_% z83o_2PKLX7MAzVrSq*Vx^CQlz{~_5N|Hhq1P%=e6-WCWOn;&o_yYWksZccKwe-_cz zQTy5Y2+wEabzQ8>_Rol}F6xtruJ&CY;~frsjHK<-eoU-C`jj$$^Z-5UMVx4tUqs2Z zUqIK=dOn;kz^5agI=_OB`!Jkr!k44O{~;+`v$#GzHTMw^m4D0(v^(6-iCUHHpfZE{ zfE)xgC?~o)cCUaI!mgv7y>=HK+J=~`<24n&%CDj0@xO*7^(v0;dgUmW z6hPpz?L_k24kUvJT>h7lywQ4;i*H5n3CizTl;3KI|C^Kc7J9bPN8xR%)d7zb`+j?? z@OHQ$pG85ghP1yq=_u!Mym*xB;tFiWQ^_|sM~W}tsp8u=uI_Gp{wSv}c)^!MA>wLZ zkAkdSkAhtP07LMW@FT55IR?Uk|GDrptVOIf90b=OnYhMEx^z5?yIsMvxr^eo78&l- zx)R35hU3VxH={v z*@Ph8kKhuD?O7DtYOIOnS4HqMV3|kpF6{|m2>vIK5(Jli+4odVx>H!aa1n15)e^!*cI*Kt^ zX&;1fM=g4Lmu(QPrHWu!wJYFr1q#D=8i>@5Q9e^^?>bko0ArTK0`wYFeX>0cS8IP< zSJWGC@Kh@=@mj1M#__<~BvvJ&bUlkIec{hTY@DY(e%4wpX;Ly;R!$Yolcrz^O> zSfk@QqnEe8W^K3oB$BgCe9(r$2>Nhqhqb6edXq7UNQ+2QVo?S2y2EJvOE;zowXz&z z5Bm)dn)2J7%@P;Zy9DH8G3G+BYfMpW+Kj)sAD{%dy6}mt!3pjekESM*0YE_}fQJ(|v^LJy#R+6jLYir_3t% z;M6*ioQL~tC?xTQ)xC&uR4+n({3>~|u~%x|qxFP@h9qp$Xsx_$fzoiRiWrNl;8{}B zt%U^t6i-w`x_kxVn#gKmau4o$ifGrojs~uYpVBd&5$W$j%_`l zr{3r8cMWh7{x%G&a#SSsM4Es8USIp$zDF1ONmfv>R#xi2T0va#z7>RD^j55BU-Xv9 z-~E;gFQke|HvhAtIiinDG!K^;!hs|#a1uXS>Z>6smD(fqg#Xxo&~y8*U~cDDkN(g7 z6n0s^hXqqjdGjGE6sbB%q^IDwv#@`m&qCz%{|OEPIzS(UEiv*UJwyKO<8bja_ldHT zc$~iytU}D!jfI1g*J#ODJt-x&V4Y;_s1jiaTef8Em=dhq8iLq1`wUjrt5li_hAK8<)L|8Ek4D1k?HMZdJ zxB3o-8pDcN@T>UvDQ@E)=*GUHgP)dhx6s#jEx)ClaS!Wew4`F&YvSFP(m&OcuK)u;U9#LTjmujN|!S5aJPMc zh5zSH2|IZiU+|+qm0v3f4uCdo(Y3N*p)SNHa@xbE8=WC7PlR1roIeE54dW=j|3XIj z^8i^n$JIm{O@&eVf4j_rwUFigb7^U4uBkmVS6>^Ni{(+)KJfo*- z&vJpYvP~%>eW*gIF%x>x*JEymsfANNFo@Upn_0tW|8nvVc!?Mb3LI~Uv+zrla(fRGNE{W67sqAnaE>LdI)Sp@$qp=&i2Xc4+^ zWtQYKd#GzC`Zx4bc$@YZt;Zzsn&^)t>RE5uSg%9wX~@4#C~w7?^+!ua1Kk-Cy2_;! zzv8mbM>?|4^FJra`8PiAYcdV7x+rRhRljTB=dzbh^CS4lfc{Glzwc=(*wjwqHO}5| z`ka1Y_2I*5LUYdN3NhG9)7FZASjwya0Rx+m{%uO4JHDX@5n5<$OvfvZ%iKO%N{;)k zz^ly91iG0&tTVY+leLb1kLg7RY+pviUY5`m03inJ3}8Wi_5uIbF=GjAi`LCLc(<@| zg2HflKWS7qhsxmb=S!_?Lt~6(_jYUfnQuopBIdm)UkgE21TA?gFl(!P=7HY2kb#!m z7#!90HMwZmc6TJ(Ebml8*wwy>Ryzx8XVID2;G`-sLwe z*J#ejb7AC@`Q&#Qx-OuuH)^)unbyc-0Zu6wQ|Vc@q! z{SDza+-YGV$rWA5h)0<+ews5&7s}5l_k&}HMPyhKcBW4zcN!?MUsT)ztkr?ZE*?!ojP|zzo7P5i*^C zl|m?8?R1E~L$!eC)ci=S`xh~c(Rh)z1qWzerhyiq3BxDe?Zu3s^yU%NK>R@e5foc= zH#t;2^|sVR*_XOz-X>D26l&xl(_Nw;{}iEjGxm_VjPP}L3tXYxzbJMEp?Wj;U;0Ar z$^!A7@H4*>tb|2(bGccRK5`Z{FjE)u&7#=WyPlB$A6OrKi#Cj1MR}Gnt0*cy9O^Br zD8sn5glVRP$Z3SXbhir3gHfSKU8wh8guaOjv;RVwR{ce+V&E@4cGSHZPpJE49)v1Aqkf8}m2+$BYQ~`9;Mg;yc(4$PUL+^t z;6-wo=Roo3O?1rQk(7Rz8Q29RVh8`hrN`3RS23Ju9+ijk92HGfqWXkkX~Zn1LAAd+ zBD01RHyVZVe}z{`jUyDiM<^PCzP_S}NL0-5Mwu=&dLPNIfV!TNel-*Wb{0;VtejeC9|niCoM5d z^kE$#b+pe5P-%u(v2I9f6RhMcgr3MCJc%E&c|Z-j7Qz)~f%;sySf2Njb2 zz$1h1=v67iL?@@y#lyrP^)eBYE)$h*=lJ&6kvV|ggP6nN4=cIligGE;IZ$?U(yf^bhE{kgTzahPG92j6Af()Bt z%9}>jvh}uLQ8ck_>%VwXQOIVYD+qV|-zL>mk{xN$L=k1=z+QwefRjm}_yz5=gz7~y zjTT|h6x?{+K#Pp9iC(=${ZX|w!o`s~SRI5Ch~>m2C;!RmaV)pNtndD&w?b#-NDC~4 zLWx+EfdJAH@xsLWpx;9xt+yjP37Qi=C*VH6f+8&To_I}p7l+h9f`_^QMc%g0B5s&y zRX0GT0(gc{GHy^YF*#1a+3{aiTje04F8LG(p#5yiB*|SiXOaZZfJ}0jTZj8dm*7z9 zsfjVEB4zIO!gz1_?=?`n_!7BYL78a(0LmCEYOLjdj;zsA%Zz0Zy7PYKp|pa>FY8`>McAB3NQ@sX7Er%4=Hh83YuHvVN; z;7{H?nwY2eo8&F;7|oFlD{#a|EHkMrk~kA4d_Nw2u6U-%5IC{%!qs4gUBLryI* zZ!9`yEr0vpl=kg^OdX*MO{Sw)8VGfoj8tmJ{CYlTwy?CYZ;jK+6q1B3LkfxY5LSV< zH4rJQ3(cV;0DLE#$qv;_nj2R)&zb70F${pWrPk9+3`RYPd!->2Ch4^izEI7?*Azr| zGI0U1Zd}ii`?4RAN`f-^>sH})5gqsP?!aWJT!U*3z7Q2hy=A1+jVjmb_egoNY+p@0 zHKw%EF`7!t=1VK3*(ZDy7x`Zh^<^g(k3HKR;m{`oQ&D`hC=xyszx*9O6EB8y>)-Jr z_vLW(@+Mf>iL1j=>xyuAq9GhsL1P(|kGk;H&}PIX{lek)Zch%{!`bRJlcF3~6k9hM zWj}z`DdnQ|iB<3EJG4h--k*S@R3kmG&yo({C~5E^{%%*TxLZ01qiXflQLZRid?EjR zR;+0JJ}a7+{cPh;?bdp}VovQQ#h4fET@GW2R}yYI8uV*d@awPA7P9`TY9ZyaX%>P$ zvFR$QZ#U6RG4X!YNk4PsS7KO4q7SJ~ZOC>gNc>Pn@D^TA?X#bJN|Em?Ri9GRzJldL z2m5Cc+4(GK>7|-NJd9)t6#lO;{O;%*rN?o&sDF)1G{2G0`Dp2v%RLP3qj}G^$g{tS zPv%tT!;AB89Jwt6oyza2g*qf7)@(;!)mqw_O>6zmA4w!}{-~__1!oMMo`GA=l&+;q zr$-|8En?ot$eQr6L!RGdYw38q9cv%j%h%plRsTko$4je!L$0d>C)%5&PU7$*7Ap|i zvx6hFUX^ff`WBc@d?in~=OOyORLw2^jqGIcqid2p&oRX*m}P8P0j;u@Q%!ZtYY-BRg5VLTVxf(RKCO;&eD-P3}ZGxtD%aAK5LB zC&yI!@#~iY3EnM_{26CoBa!wcMEBlf2EGR;1C!Y_XK!b#_-}#*JxJUiTc$poxTTeF&km@F~br zdlUIL1}kFC{VT~Y#qN!!D5YTho@f2a+xckYeGqcD2q!iUOa(?{XZ$FZlP#yxqb(HXMh zUTs94=Yp7zXL&mO2F=Q+9Sxe{3X=+(a=3!|@~fnvqF(9p%k$ySH$B4MDyvswX^xDU z%n${Cl*m0zRu#Tf#>Pg~LKd^kg{=N19_r4fH2RTd21`j*a7_0=spb!EOcp;QroN)> zF8JR|-r_4dIQA}Of7x=Ea#fiS_>Ffd{f)AN?$(G$l6b%20mTeI=xEiSHA}4#@qVFD z#pFxrN~t9WgB8DaMuh%GzEszmFO{4b=?ZA3K%rbZ2FH!L`BFaNO|AW&J()7Smhk5E z2FQFjy6RMfzZ_m~n3l1*VdM(7v?oBy72|4LZ@ec?Q=NsROmddiJGRB`vpMZ4c-zVY$wAx>zy#yVp4n31uGzDTzI+&oArbir)V)LJHk%e*5*5AVlxjZ88z&(*4$n5Qq$*OD5Uj#_fX z7Q1_LB|A4LwxpYt?iXD1zL#Ai+@7dN$DSzu8i}FGa(J!8Otv!O<6e6B?OS`4jrY^l zm^)QVnGHVT$j&fn{UANm`t-b$Nh4qGcfZ!TuY|8;QteX{&QnPnIH-1YuLMajb-%>^ zepDgjs<-r_Kp5@?SGy0QTSnL zAn*C?^}-4flKOvv$v-ELm`r&@eu6P+PcX7edj79hV)%d2M7;VhTFpNYqs3d{4yzRo zBw4J3w@M)CEx38rLrE^dIw>NLiX0b_r(VcJ?O4c|)-GiDzjJ#5!#;}Ngo@yjH=!b2 zn;2G%wX!mQu#}ziL7o>*c$vrK*?wIOta(#E>&n5> z@~jyyS#icw*uv^NI&A;r)paPbu8RJo2(Dcf-kJAR?>v595`-2s9QIY(`_2&FhPu$( z{reqEIMCbk$Vk2N%N(JFg-C&mdStgsqWhZs(S7Z9Ho7nQJ(-{Un}z@TX9^Arw>FS_ zuk-3i3*QP^<~JdV@Xo$cZLPDfq3Ym4xudUDGNmVY4&I*B=z;i!!k(0w?nyD_{kTcL zW7;rOirVqAWS&-oSRkP}$F8O@FnDjlrO|KD}4T`KK4_VP{0Z#CisJAe&q89P^XP`3PEGWE_ zDAn`Q#Whd>XM*fIg|wAB+$XEP0YlD0cr*U4$B0k_^u1>fG6Xaw{P7r_R8!LRa#uQn!`gn|$jVu8$sqiGQHJ_g(L97IXilCoylIZOp5LxsCYsfL_hDb#}psW?r zaXkXk88~B*aT~QSiFvt*M9wr_X}s@hU;-uV{R6za62>uP%w0y`Fuj9}yHgC$#E4A-V?mX9rmDpK>ZB7+cHK1o!wa&t<=sifVhe#gO+&$)&`<$ll95064-BK3Y0k{KQv1@y zrw1!H<*VmO2Xj(N=rLDnYZ~xPo^$EqTe&*ft=x2$uzjT#?z+#~J_1!#gDNT~mL3k0 zDBX-|8;)w(E6)WMAPHIWvB-j!;jqg%t>R;8gt{o(sImRZmyM3|oQQ~sz{Dcrxl_@4 zVXDcb#l}xHF&m6Y?HVf56;xA^jzo1;y`UOuCy5d=Z%xFuIJ-FJUaH+ao+`4F)xVQN zMp7%|Z~PwTK1L0V5;tz>mNmTzFRa+0wq6;P`VhHDP+IBySPeq07~f`L{ohspEI}FGe;? zJWCfhOK9Wf%7;v|L|;{-wg=hG6UeGdFF}Q>%nDf(yZjnk16i5jC zc#w+@)!6$~@0CoV)MHckUMZRb4=yTmy6_Jjw4izD7;D119Ix-wh5yl^6K@r*WPzM1 zTIr%BMJx5YidK@(8Z+M4`|~ON#=oU}9;J4_Lfb{E>%Rq|>u;)5Db{9Of69#P*AKpbU}$L}&^s#MIxxINb07Q>%l6?(%QX~}_N zO)&ojRUBKEF}d%7VntTwWZm!>(mh`ompM7cIo@P2FRo^KXdqkvVyv#@i?P~DVafzJ zWY;PR=SwsItxJeR@}gu7*mc74rxac|hy5SFQB&fEWdFL z)rpz5WT1lDG=@}-Q?^7VE@N6EWd=Nq#i>fp-sjds-ii zTvx~#w?;pq(>*B72m27(3hokt55tUj=G>T2to$u`Yw0Pw}h1bF;WDdCwIwktN>r!}o zzb++hUww!BeDfo&tiCSoWflhhB=s!G`bjF)eiJul`Zrf_VEj+g&dwhEM_i|apD#_A zUiQQR{0J6rAG=81=?>H7ebS)wr)QX}pBZtxFFwIlP=1$g0KGC|@*txSEWGa4v)A2m zIaDg^VVLV~2YL8o>f-}+IPA(ii6g{!n=P;_#A`BmWtJ^J^b1yqKI?j$)L+6KCxSh4 zo45~`-XpRmN&iDE9Gu6>C&XF5=z|&^Fu_=JAvsYx!a+#?@e{r{k1J}Slg@vA#m1bF zIIQAk+8ayCrbn^c=n^^xwcT{tmX;g*m5d)gy&HO=A1%?XL~H&_!Y`-Dy64EF+dAse zZ_gd!tdDhBl2JKm8o7UQo*fYeX*8P~<9R#RAhqjztE8rlx4L7L6}rQwUL|$lkH+y; z#O8UCs*_4pGo&6yJwvMH^D!-NRLrB4WU?6Zcp;^kC-pQ+k4U91bqgT58U4f}SP^?p zvRFswA4t21c@Ly+@$>LR>qIzsJshkL2gL|Vv(Oon+nncFjnBn(lbJ17gX)(JDQxv>cN~*U&O}u=^ffOB;IYqWF1@>QxE9u%< zE7P^H+KlO7{=}(VH_|m!+k)aSQs|d-fm9If6X?%qqCS)I1o{(6Bx$oVr_ieFqy#Xu z&@@{{^yJFf(}ks2ke<@uhJ{aqTjpty_L?7dUQc5e)5}^nV`)DK`c{aYDP5?e(P2{a z(tddq4>!*9-Av!P{6I=-Z7AbN*Gge22~w$HD!?8$$G5rJoTY^pdaqkxkIjOL@+|U4 zytQF?nq045%9`c7W?9Q$dJsRMm7v++)9&KCYUKt9%AbeCdBtF?KucvaU)8Ncq7+-1 zf&5edK5`)gT@F;R7u4^F5ikT`NxzZAqE$TDA>ic}mVu}gZ6L2k^+0?AwuxKiPVwbY z32Z+u#W6x4@-qqA7k|r~@ZwSY?kopMj%&yut?>d*g)n{D);x3MyUxD^S?1@Z-{hl9zlE`=KZ#NSH z!BZfvw{n^b&Ytc(=a+kSI5;`mAG(;D7x%f=kL{7AeRlU$k>1^n;T|QLtU3Ml;-f@S z9Mlg=xG_|!DVjuzE=8MQT0 zkZesPwTh}R#MQ=EsF^Y%HvAw{n!5cUbKhV#e5LQGg7*fZDS>jfTq$<{`aaQLE+Ki3 z;d9{F+jc*T;IYQ|>(GnV3>@4A28yKbfiXv( z#?3D5my2t%z$IyaE5p@9vRIN%i8<#%4DNxWAb{j<8zWQ0`$4FMzeGo9f4&5Jg8EN{ z$4R}#HO(mo_lvUT6g^_N4saWtyF)gdqdu$={$2|n1h#Fn=JGpfwL4Ybl%Zd-iR=BpZ_-gzUf87hCJm>IwD|WXT3QtsCT-e!q!0jARoF^koHAvS zJKVJe?;GP35YCpsVtIM=))a3HTa!o*d&98M!Z12?cp{mES%ONFwN>3On5i)IBmHOK zZf8=gIdD6Y+DDU*G0TT)E9+fCw1%=4dQywF*Bd>@;Uc}J%Y++!5My?*JA^kP< z&q4dr!XBAjXImsAHQf}1?Ul#fRjdVgx$i4 z*h@V=YStD;HA+Li;#>{FCuaKkgAsydJFy2X-;5%e z@33c~Fo(c#LH_kge4b*TJ4H$^qKka*gG)1@Z~WS zjHbFP$n4QWpqG7Hv6W0{2PWdS0Hr>^ek)NX`GwDv>{b|kT;#W7dU}K2H_mi?cT% zsfYeNx6Z_R{(gKeOUmCLmcoCSt?OoF=X{vW#%?1w$09UnXD#4ONickp&Q$l)qiEaBKhtPE>w>$l#;w=g(AI_IN2(hBC;lrXdqS{ODJlb*~Vslu|=#b6CsVcpuAUm zp#<%0e$$K84;)kan%z&0i{yv06u{Vgk|x5-utT?4EY|ETULjQW#@3g0?=FI{XnC1S zy-FSi{B-=gw?#+ZCA0gRu?k$Iy`c~k3AYAAxSpne^ZhP{5&QXi4?-Y2%@|(uRK$tf$$|?)Bym;j{wrX-{y2G}$jK ztpn&a?AW3Bx7GWfM&tm@CUAF1_!dCAw-DYP7afof%o9S-3{{AEYK3A3E3A*eX^+ee zi(w-8o`u#~sTrkpfx0=f-6sgTs>);xUfNb$K_63MYa7LKgc=DL5i=B}H3Z^OD#LQA;{Q;Zi(7U{bytv%~F za`PbpL9&gZqn$Z`!vYKC9yeol=dydUmVrXcaG|9_*GAEN*{s0S8PliKP8&ava;aQ@ znw;{;bcKTldFWI15F%_F23aD;NQrQd$?r}ewB7963{}&ug;$=1fM_*dzGl1GmR`!up&pnDYd>%o%!9j`QZZ)ruSf_Qx2kutuf)flera4kF@VLIA^gUQGj5#}6 zQa_lEr6wb}`oQ5Y~QQW+iu=nY(zh5mIOhJRwK#jAd z^778)I#(}fLrRIY`x1^seAgsem&q^lJ!!48C!s7P1r6~PzVJ+pc=@@xX1-O*Ob7^V zlp^7j^(E+iDha)bb(L|76pQswGCSs3yek>c{7FpgQ`}~nmW+dzmot5x5Y;kwDD$Dj z(NdHzlvr3@n_5RqgDM2gJ&9(ASR9Ayza_-PEgQF5XKkagQa@^=Zg$IX{P?nQR-#tu z#g>shfXcnxUGWBC6nLVECY3HD-{D(+BLd1 z1;+d9<~Sg?&I@5}HSY+e^KwGl<@KbFE?YKE*Jfy7ghTgQliJv&%@14u1DNSqGBh|q*JgZ~G;lOGWkQ{^ z`zxd`{y|d|L}fICclDe{nfVjp z=IrazCfQEqf*IDPGxFQ1ad`uEZMtnFZd=s>f>)kI$<|X)NJ}7a&?lFvh_o&ur)8i; z(nm=~DD5p3Ba~WtWCFX&VP?8Vd{B|{CaT0k6QNB$z!9O&ba2xmH-~tzn8zr*0PPn-!0fwGE}SL`k|n%KaIU zTqT_{7@dQh-9O2=7Y71gLzQ;`E;@SPVi6n3DAM{T{0s{n7{+`wk3o)NkD*Zi zl6hu}cvN~kU6wmd? z$a0~w7*jj)Yh_Hi4b%L>|D?bOJOw|%fY1$^cfQt(##?6jw)iD8xj4#~W4fuKBVW z%diC{`e{Wdt-|~B2a^{v_|H@2BBi=URU$t?UxpSAGr z-=)%NteGV{De+Jh!`g%963TTVqK0t=4K=W8G(a!<@DYJPZJy=F>AY9Iejg^-+QBzC#XEHd)4c!OYVjX$(?$lBlUt1~{_r5Yj1~;&N{t|1^$832n z=>^r>%hmeRbP1-p& zbti79?W{;{lNu=%KZ(eO)ARkJf1@Opwf)7eVafJ#ehr(;7x(6>v1(VW$t&({Nxq*k zxlq@pr}_K3ctyg-49ZQoHN%QqiY0aM3}8)b``%Cjxj~z5I!&GD`RVjcYuaPLpvEFk zm`)cC6t-0vDdd0IM`+WJrpc5l&Yu)xEj*@8Zx?mG)Fd(gch>k`{6qZHiSOeo!|!Yl zY8hReMm-`c>6fgDJvcH1{dHT!@2qv%xZ@H0O8R#he1QkeWAFrBKJ8;D#ll&e@dhgn z97EsIrqtWVra+Ob&2)p+1;@YxDgB4&&3IoSy}{~xU1KM)>F{HbS4$+5dbgyqS@>Vs zpf@FMOfs^2rC_MnE3Ui@<4EV^-kRma5PdH$?3qnTwAf};`+2yHOrP)R-dKZ?eepP0 z;VWslhWKhvhUEd-Z=PhPnL20c;%HBsd2w`%r;W;wR(ph{9cD^wGrgmYp}!=lx;9G} zk_|TvKc%qbQ-^KI)NdU9+RPUAgwM=<2u_6MB34pVnP*x35%5)$WNkQfK@F$W&C%NpbRb65Ij~1m`RMZE^u-s z6ctau-o;0O5}PWr&+lh1T$%-s2X3%WKj;#MhR2fjP!|IxlEj zfL~T0zVw8*^6n-&WvoYB{2>V`(*L~P~flZ4^iVO^z2bYrni#x@1pRBY2cUAoS&$OeNP z3SJ8CJU{nck%oKrB6oZcZ9*s!Jn6#4w_r zx-oo;ot7>=X3gxjJ)CgR(w|eRGrL=igq<}dK|1SM+By;|yxPNql5N2WcuL)PET#P;;GpHN_fOW1t*sj*lie&{>g;L8G_}V94Am;vFTj9NF;{W*@-2 z>Dpp`^ccMh+IM2|!-&oGxN#0im@hm{p)zn$xIU(N5a#C$x0$p4(kWQdhvEKT?mQA?+jenV`!Hr5G7;!9h z4xD?W>W*dGsUKVz!h?(7tt%|Jj`>W)keWh_X}#6Y>DuCHW!?N4W4?KRUN06IChlG9PND_0$~LR^LncG_uFXsgUA;s$*G;xCV%IH9bhhw%!qbdq z4X)`U1Y=Y?brjsaWD||V%M60hP|TAA!`x!{R|m(qL-9mg{6;QVaX@N^_xWJVIh0_J#rKoT zz}kw%#g*V7q!9CkzfY_j*&Qw|=Z|7+C}rg^{CjR+9{9N^z>X}c8)JC*R zoP>vD(X)gG#vpo3JuxWL30CiHjs174HT@~Ee?N&(Tr32Ye{wnldI2Mb&s}xLW~OL# zs=mOIGwPx6E&UmR(^fE9RmUht@A@_B%&<_HZsA*lQOK!ZkitS(HtYFrF^nOaV#G7_8c z%pz_mwPO4B)-jy6F$a21phoPf8=(Cu5Q@ za_Rt7S?1^G8!Woxl$=@sV!VNqkw=P`g|X;PkJEB$Q3XC!RTaeYGnP2N#x~(NSK5|~ z$4Mn7AHY_+8qPWsUjzNJUr51RAz1edNnk94(!3+*YVZ{t{tMt(bA+G?SgXGSuwQvb zGJ8P|etXqe85egPy4FHp8JEy4E1S;lDzvpT=zhC?LYtipX{g3eXaj|U!7dIv8E0_) zCzXK0Oa1yDY3oPJp77(GS#Zh33Y`DAOfK7?NP{0T04P|dxLj!K_YZ~=%PpM6kc3-; zQ=b9a)o{pLGAvw#m}Eh1b{R@!7S4X0tE6>ZP?s+=8Vkoismd;BKWsfUqd)wwjGr>$ zbGexG8(K+Q|6)93Fd3B^B+ka+c&^Qyp#nP_7jAm0V$^N8%@xzB`7}~mcPeA+-qpj| zj!Tv@5124W3}_gkak$V}AvAD8!*G%d?^@DP>?OIJO2DvFcU&Q-5@pKle3dJkbJ@3O z9xw^PrT=E+DHpsW*W{si8-}q!;4GqL!&pn|5xI4P0yR-KjLnG^f^lPs<@i_&UTD_vF~S+J8b$>yO9@ z06c=dkNS}=tF7QB?)0P$aE-UScTpL`NlZDLGCZ}TgH9Pv+8Z5B9sha)L0Z?|7)AA& ziiJvhyCyiC_!}LynusMtc|1e#KkB~3r0Twe8TSgHq1~5={5Bu3-}~a8V85a7nz+Oj z;1ZYE<=iPkYU8vg7Vi-4mEF|*pGQVg@UuPkMl%1@133@3v~d?{kdy)!5IW=+SZ2<7 zy6iH30Z55|I7w+Ms4Cc-K1^T?=kgigL<`O(Fa(q)K(in#Ia5ZQ9j6zD4>X-7O#jn# z8F*PP>J-*bcAW&EAaHUXkye-3->0ifpp$8D$6niRAh|h@)Ut!c9Vh6rC-88T+Ku;U z`^}eI-$TyYoJT5|{pLLqI8K*6AyJ|X<;QW{+J4MHbh!&&x35twf3x%naP)lfe^FWm zSNj2_rOE(G>ufRUF@tP;vw8J@fupnE$j%MX5eX9ZyUb}p6xaRjD-TDT7a<9GM4Wuaq@g2L)O7y$xiDwsms#LkFO1kI`xfCqHS!Z zb$&~LTgw<50PDID1i~a3hIO?r2CVBD5Hb>nZ@rxjVIxjz1CK z{xpCXPourro?a-COzGk3m>1@A%>xbBKMzglF5{x+hFMilImzI_Q*@cUSz_gP2de&W zYFF7XGBccs<%$2Hc3quGkDdM>^3?wWHfolX0c`ZB&v}wNod(BR z7nnka!Be)$DCa{-!lW`xnI;(s9XFnXN3q%jLUtU{*DNHa8jOl2S_xSz(ND-H#tG;; z{Ns@>KPXhA(pwQY0+6ti(t`qauJ*AAf-o4iCkCv<(*gToxKA4shMtTMOBwqgJ2xy}tm z&lMa>mu=gKCC%->f=2r*;Y(Zs`RAKr+E!ZW{z~)wM%OmMt9G>x_Nwg#gMm+?5CiPw zCuCATB6HUd`KqMA58>oBuiCNeDpr55;uLr5*Lx(M+^?ehz``NA54%U|puQLmojXSO ze1;@7@HyEdjp@fwzs%*XTS=x>M4T^cR4ndwYbA;c6?d(+wJK^=)Yb)8 zLe^h2Fal6_P2Q0h*rL^NH_C&TH1t#Y0&=wurJC;d& zgkc+0)NOO4n83Ct*s%2=cAgc6nvfuZ4FHWMYY^HT3_39loAzL46O=HBn6`KK5$wA) z!YDy^>|yl;-w}qhw}s*CEnzr&OZb-cFkr>4hg{n_;alE>V&$8Va|i;jg<|6xVK`fZ zid5SG;%K!noUH=vozSZFFq*A|-z4T#!jDl<~qE?uksPAw3O~TVXhw z3{XaRGJG;J5r!+Ek%c!rv6ol^fIhFla8>sTR0LjuibS<>0*qHxZd4qs0v-zh^cjDf zbiIsxD%hM67pl9fcP(em{o#JQZgoJ$o8wZKFHn=AbM(F-O^ zzEi^Hs0=noC9pXv9(Yo-{^2Le%LF${!1Q^)D$2HpGOll!>S-&jXIyoq6_|qzpfHWF zG9E{Xm2sUNJ`rn%!@#szP0fM9U>J-{z)L=~1v5kArUNwEHpC8rI^bC!vJGLlP;yE% zVH!Iq77cLWKPw>>2A07qfz;d?i(Cx@;o=8k1`;h?-6OkwqX#yEL;bA)v)4Zs2CPCW zG)LUe3eB;P6=1XaY(qo(fX9T^t~2DDpduf7T|NMruY?_!Jg^y6=D86A8Bu78zb80s zxL;^ml|5_533nFsv9??o!az@`%k@_VbAj^2i$1G?m@D+oDd4sn-u^>s4~mqtZ?zgd zyPxkp1@F>$+<&sEXFDZ2iQ%8cFtTCbboshQR)+Yd+%mAT{tNEKG3(;@VIz#~EF9cR z`>@@Z2^C$SqRTiO1*tIu@)>Rv1*tI|^68L=)YuX7a0sa}1@dqVNr5MWR5R)zh4x{( z5L`R*C^mI3K$*S-xYRnTOn|3Wa*c3n&ARVKG8Rfne?C&h-pN6xrq4&B<2w+4lCk9g z=LyPGsaN)6czxZWK)}GCE5Q6$Xk5wU3sp_HvOF~#PEsb611XdT z_Jkt%u4N1S0K(}UD2q*iBm`w~`7C!ft3k*b(%PryFyV zY&RX<>3v$cCrF)x@sT_SGgkN`zJWLgA>%H54k@@V^14&p-j&T8JuXRQq+&$g()jQPLYBjtUxs4SIN1N z$upI}^zj;h`sqHj4s9TGCQ~$c3!C_xPZkp-f8ojMb7SfKbF_FI%@MUU2TX4q0MA?a zDUWq{Y_&l6Qu25XC877=I=TSR*jGI&BLKlF<=_5$C`oLr5y!^58mX2jDmIpzS0hz; zD-#;#Dj!JsY}}%eP$#4MX&_X!G%TX6u`={A;llrdalsVZF+DIAKe2kofN+k+Rvb4P zn_|;&1xQz8xf^vT#~;U}1x7*Hc`FEziVZ=?+B^}^Z_*k@3e|ZdVYG$mrqm6?iRw5Zn}&yiOl~X&**Pf4G{+F3=ImgQ=^;Tn3}~~WbSaFr^&MH0 z^K4Qv5wl}%l{7wX(B*bkptl3cu%0;z=zITeFr|wYUqnQDmYI8NKZZpCSQ24 ze0(M;CXxp|9u7ku;40!?P~~jw36o~9=QyH6521JqMl4SQh_q0SP>##7qrA3kTvTJ{ zn|iIla(*aZV^^ew{J6&Mit|?>J_~Z3k*={z_9d~6pX^Tvs$S$>jS5hy6g74`4cnLS z7u48kzV+crN<`O)^7&i78c{00?_rH7hHn7b)#LEi0K8vf4Z!;)7DB`@OIAJda+31?4Mdj#O!`t ztiJ;9ei=-4OCdD3-XkFKnec6m{3^c!07d~^Gzrw4L|qI@i|Db*5dx70R&e;-ErpISD1>F5 zTqw%q8X`#sIbGNBY0Nz<=$`k`O;K9p z4oFw!9Z(VOz_7ha*~x%zh+KalWhZ2bs24i{`nuRbf>xUzyai`GH$gDJ0Sa`(Z$j}` zq4+EKNJoBI6`@XwQbIS-NfA^!gw)w~J)?tA3mByTtrb!yzLwFUPzDSTSyHTN{mJI@ zw`biD`CCyDRJdAEdm<2&)}$Jj-w?&t#jh~aH{s9f+_?;ZGw-c1qgps~Q{=6Szb(ot z{}J65scDoXOAlQ}R3dYEu|BKqJIHaKZ$Wmr2LOU~!aKdH0P#$g`Wv-5TAKPBy*WCXz9H(s-+6FDWJKeTF>pV{ zg+(nduEyZ9azBNxZdGxaH{k#N5H6B&aJ}61!2=ivZ;0&l6IgaMJ;BBUPcXaRikba4 zUQmAQgV%7|!R~dV!Fy5BomKZ;9>)h4EzYy=y8)Q?{dzaor(riLIvQswKN=^kce@&P z!Y6)8VIYaeJL}z|J#m)ndxTSvi*w-@Sr6V??`9kK#kqr9>fKs+0IEQ{r4C%)76HiO zLhnyz@Qxb>6OJtlI9HZ2McTb};N!Lk=HZ3j+akohyS_^D7x_?&+i$PL?YFc<`)@0W z_FuJdZf6yBG6o>DYhwXI`zPdVd#g5;?wDA%n;2a#sc8Hd;eh@lJpPS>pk z&^#7EHw)HgI-RmwXbX|~Lhqf|?smq_gIrrkSg6$8cQZ8t+;7d13V!SBeYZ&{@SYv8 zjoK{MciSU|)&c6=$6|LkU#uOvQ6jh&s{X_TsQCmag9Ipp1So?oYH6m9Pwjbwkn^JM z6JroMs7{8_D2D{)fu8qX2i<5uv#c&do@GuytWl@>C9b%s6EQQzFQHGWEwo>vGhXpa zY;e#w5^PZJz(@aGBbLyuphf?bV8lNqNc|G-q+g=p|H<}CQu#Z7`6U#6Awh}Y%dY$d zjm0mq(^iZRW}k^fB@T_dfVMrQY#khaV0QfmzbO| zVh<~D=!PB?cSnETDi+4<;v9)5I0V28WZUALk-@PlQN6@42+DDrC?hJS=u8Ri9MPkUNIh~wLK%s!3-osbao7)2;#r)*g11C$*i4z0)01<4t;Q694!TiIHgoZyH)S<+x~Q`%K7i}gg!bI@-g1g zAmNe@2o@(nH@t9%3tsqHC%o{G6TZdafPwg|9hM`YT#M>O2Cfw*LmTwX2HT1>&J(e= zirfuRg`!ljmY#bv9!Ispt<7*zrCC@Knv2rJZfK>(RuNnG$|ZZi*v=$%Z$EJldg_UL zCfUAZYT9{JqLoZLuame{idK<*QTm)$kzK_NZ70>vKmokz@Cmv&t}Fg(*$t6*5lkrj zDYaFlxOxYA=56Six1eYKW>vvm6fH8g?lQ>+T4eN5Y<7mkEy|ShO+EWm)8GB0lJ5Qs z-TO>akwQG z=z0FHI0HH>K7-`0$M@Dilq53o>z-c36Dy39KnZ9x4V+<9)?hRuA{ zKilAQXYOo+UvuD28TpQO;Xb4;BSAF}$&d2Dk`={IxP8tCiZ%O3EjgZl@_SLQ8;ZM+L`u#at?}sDbpMx6b@Uw5)wIn~~<~gxB$bCD%gqk#Kj&Fc^ z-qbl{>3afu-`Mv$mC9p}y*Kj(c^^|cZ!1G&NN5EUS9K<^KWbV z{tsvJaO?oYC4)PVp?v*h?UZ7qzED9AJ1`#bK8GFfxkCjIym+?45lW5SpeyVIkd#F3 z2ItY2O9|NjKeV47SpgW6_zE93#$geg?-WW3@?@=@l+6Al0JPk?@;Q#?=<+!|Ru3^t zKe*@74p@0WH0*$ZS$&eyA+vGr=;!FjN3aQaEK>kSYaT{;3rUms;Y|F`Oi>w%;kxWT zfcox4&sU=HE0J*}#XY){l$=3rd$GEIQSb+GLiV>Pc@hi}*5q5iBY< z>yDTy16u_HC*#sdeYcQHr~6{;{;z?x{R^!?)(Ue0JI=eS~8-4DCf}2@}K)*yH zKF**ocd&8uZG4+9roe7sAKN_MntO} z?6aL1?Kq&h+v|3edaHvImG`EQBA;Bh5&cAp&XLmm4jeJoMxwcgsHt~gVItrNslmKQ zpR&>WPN`6rr}Uel2HbzZFCv3W%Fn(s76qQ22LWp^11I;e|?j@uC>Px@^hk9l} z9FPW+-hZA6AMmLS>=38UVFK#WC{jmiL#F%Uu4%4-rfZtwrr4ueQ7Co=)P-X5rkLGy zQ|vvrdeeriO<1;R0|89|-4qLYvCtC!cY)|*F$>M$f2C39RtJDdd2bqAI8b0w&ble) z;E3f^g1CKCypJBw1oRzaj&Pa$5wusp3f2S^eo@8a9|_+GEqIlMo`CZP>==qRDK*hE z6}=0Vu)s+FJxxZRB zYn8RvlFLM~#t0sh)>sAswt?*^z(Y3=P~)`WR7Gdai82_DMgt`F(ixu571n6;ipYZD z@3cdw+~0deg!F6JfoU4W$_U>KX)+g`i@+5%zq8tB?S0?_#owxa3p$vk1HYtf9rjPD zDI!Eus>Zl8JYYI{ct~zX3~Z#V=&WrX4v?+e)vJiyB5m`C=vV!KD>B{uewwys{S5_%64dlxz*VHVOpn;&CrF?C1X&=>>d!PczmK{8 zPmq}%lnU$88wj9YVWVgWMDM{S(%>f$Yjlw*1Ru0{JxGKI%m%NbWP+OV14`94k76KZ z=|F#Sc9u>cW5*D8ovpoyQ?WhN+Xo^);bV7mxdYpeVzAFw4A&AA?XV~#LlU0!Ef+P6FCZ+lrJs~;H~RzG6%RzKo#^y){Q*lSQz zw)znOhVgRt7U1i_X$iA~nwKbLc1S;}Fg7fK%b6W^%zTt3>6T*9%u8e|nH?U7W*l^4 z`t?M%@s*%AsP4-{Xn$XxMp+7EOHuumPB$quY=5}hu7 z(R~3j9PLmsLh|+}p7X3k?+MCQ>s&Hflg=Vttpk28p(MGd!aH>2D<5zlozl=w+_YsI zOEbe|hc?9#*fJDC97Nn*DM@X*1Hb15N_aZ~DB-6xBKlKR75<=+?!L<|havZ`MoH%w zs`49ELvubAn##P zu_%gRwIDy!3v4*Idql~=uR#i9`77j$#C>)!3|0M_o?dbV#CysHf;Y!4k($zoa#Evh zKWlgw<^DiT>$NtnRj>8weteCk`;wXLm(~)xHz^ZF8&+}E0a)i$$o?NfllkXuTC7nJ z58lRIH8FB~WXoK8fZ1-QI(8zZnjM|U>c&=h>e5bRt!9UFVX*NEl*&4h+|W*dkJVpe z?L^we{!cBNBe~d@ zNMPF=EJCF#;PO#BVfXW3O4g7j{|qGU&wY#4gB;l4cHkZ0r(Z9ltkAdrx)dWfRbhJT zCWXYl6$UVQlOFADL>>Qz4>8~L6Q08eT$jgB-rpQSW4 zV*PDLYIpr@^#)A$y{V#L@lI_%2M@k?*%?#{pe4-}XOKv_` za2`F$5F^jLfi*dBn66^ZH_s4703yYQ_p|)Oj8mAHI70CNG(y$U{eU4v5lk0Q;6B7U z{2^9hW?u3sP}OeQS18vW8Vms0DX1hgnn!jqJO@J46?P?Nd?7dj^G%ZbomT* zLJNIl9>*w0XyZ3SYlNmA1fCn%>2XG+zr7>_96Cv*7Fv5OiW2WZ22rI}nl%HOil>3B z)UtUcJJE66nOM<%BGlkXT2~&9MdUXGT6&BAEnz05X`~~x+(zvD8LinF_3n>{>F<(^ z;*Z7DwYcR|V18Mx@pPOVYoqs?$vJ<3uki4v>3hLzEP10EV2{V`HUCpy3BhHfr|vZq z!FWgWgkZc9a9+m8qaHASRGl#8RBD@FsWYH?X3%2quJyf4h?9}zkePe=ka-h2f^_4L zAaYfLe&VVGy1}#(yl5LtJ&B8E)F1R<-&rymZ6(op)J5Ao=?9Z#@((7Ca8XWLWwxVs z6W2v)MkxUF%$SjKN6+T*W+LimX}|5KhyMvoj>G@y27hH$(H|bguD9Zi{<^QJx8gyA z)w7j*StTHkaR=VA|27Q#$A8@&-!F`aR2_~cSOD2>o~jl3s{vv>3IiWyw<_dzb$=bG zJ4XH70q-i&8}c`pows`bDCQe_Z!m+=$GO?$2|8kc`OHy-_=tUjxsz*4bj&_ul+J9h zbd|D=&vHFMcw|q&lqzL!J<2sU{A7*^8F(qcYohoz{d#jugN~Pyt!59_35psMBW3G$ z8oU8!y_vtRS(PsV7z4@M)pU^=bL;jQHEi-dNjyu$#AwzLlRAijts0Hr?|H_sfM`a} z){tm?oc}pMaO}My?fo;qrh9puk^AJf8BytJ(&2GXF(l6DHIqe1wIz?Ew&c<3)f#%p zEd{DFa?jRjOx)dd8jAY?W>;>S&Qe8J5L$Mv&Jv~7Sx^PR8DV7SXq_e6*gk3-nQ>T<<&$}@Z^TR~e1p4_3ih%@d4j>u~03(sNj}q*hbh(e>Ya|bO zvhbuB)c@_dbcID{G*(!$EU83H0!1g161pl{Hu5fv?sqCIbWDO%lqe?0t37sECK#h6 zn=xCLr3SDn_-ZWPfZ4{bYV>HX(U}2s#?)pkU3Zu=9!4EWsz)vT>s1y1mE_GxI&erG8 zN8tR#6^Q~ogr8}ixZMakVBs*t`Tk?A9gUy+n*LGvn<;p5)Yl2R#cs0}ndG z+JOfhVc-mKhx(i$l;Dmu^R8FhaVm!8Kg21qa~v<+v}FNb?o4f%8HBa7U&fj=Sn;#) z2(#c3(qG1wSxXJ2^NmdN>}q(1`NnE&c85yfH%`R5GKlu=Me6!m5H$&NWs|T(k^!3Q zENxg$;05zuW}4?{!@9dj`#Om==_CdiJjA{RX(tj}AniAtX?`7?=D6V)o7pl!b^R5Q zw&Bka3t>ytGq8;JU2W7P&t;lt?FYwv&`cR5qNfEe5EkUxH~T`Hhyh^yoR?ZfJ;>j~ zn2^kXum}kI1=Ol2^f%xYN=8*z%oL~+!X)VHVE{`uIc5u)pn-p*;^(fY1>5Ptk1+MJFFFD~7P#6gnDtyoxzh79_-k zz4|v@$(p!ddZ;Pxn;vR4UEIw@)iG$P5B>HZZh0=N;fAihipd2Gddr7C{TrQljhh7! zH@eB^5G`VQi6&Tdsd*N#oX4f+5L`+xm)+od&Ek&muL+fv{7oXBM|*c0k`ksm>yoZ% zItP*vJqr!|m!fAm8xyW*a)Jo}bckGmco=cZXRvY4G=@0ALJ|w*KVD-X8Q2zsio9SN zXz<94#DZjJp2z;*4W||CzX@pdFwb&1`>$(@^IyHu4u|buJ^9Y4_<-%zF`hQ-Q$1Vv zA;9he9MuXRMTIweA{K05DUZRvCkQtF=8AOll_@V%v+r2s~5^t^j z>S+-g`2ea^JHamPjnQ|Ut>ZGn2Dy0DC3Q3y0dhnZeMPB(=|x-mh1Hamwn#Of|G-y& z0qS^|rY#fr`5CavKo|Mo7e7IjhPGHaPWRQ31ia7G8~4f~~fxUM6VU_j+w7uFj? zxSV)9!OKkp(^XWwowEE0q3m zH~ORNq%XL38z|~iO*&JJNVKxkDH3Mq)dUyc~dv+2|y%nQz>z9euaB_;`+ zNy~QT2%JgkSJEDmwyj0PfZG79l?6UoS>OKrn}|MfP1+#PCaFsT^!zcdAJa{0({#KT zpfA8PlPVgPzC3INHN3vSbNrH?&MZT-92Ky>;0qz!xj*0BC$Vg17T9d1eZKK5Dv|c- z5VjmF(+nJI)kVFaBq|@tht2h+6g|!=qO)G}R6>OUDij61jq>LsB~`uI zxT@Y!ZB@OEq5tMN$WvT-Rc~rT zjV@KmhcrvG$#BeR_)p>%Li4du!&Tq)pa&(vdUsG#Z1u<{u(BQ)k)+^m-PgcYY=u?{ zi@um^-=LATaCy`>h?b~IW5eK=l_<{{ldGysqD?B1iV+&-@7Qclntl)f_nD|@o0|R| zZ?`9{`Uauz8Ji70`8(dp0k{E0_wfb&mdHiw<2xWB>|wi(gj|KHD3)*ybHXm)lz;ze6M6G%WEcjfdis< zl^VbEv)H5V2a#E^$~MtS2t5%PFCi3!IKqPn1M8?$D zNVg26}oTdAq^A4o0PNV!|kX~c&+ zyh%-~X2Qu#IAtQG@Xr0K1KACScJ(E*@cc*d2zeJAC?wNy9TAT@h~x%j+ckj9z;891 zi4%e8@a@^B;oj*Fh*?~Wj1VoK0&%gys>)gI1h7}XGpiM$(=tci$Nv&Q&DJvTUxIHb z`j?mr9hZ^9^f>4#u{8@f?z#xegWaQ^fqee}+>_t?GUPq`o8yr#UJtInqn^Sx$BFzl zd(eDLR&M?sZrOSFeawm7_%j}vBirt4%$ECQW>~F+yL2TU$%YULci-St@2JYDz<&q9 zzlRc-aA&0_8^xWHXCuw)prqV~i(kq{kBPx>u>h^*oi%!L^%N%DB@@XuiS1@3(AZS} zu1WUxoO*&p(h(%D)U} z2l=j&`Q5Z1imsCUhvKW`R2oQsByCUtv2Ev<3^dOkaP<6~xb!8o#zVc}$b%MTK-Q~; zt)9Sf%>j?&!-@mWvn`AF@S&E919r6Dt;`z|SB~L* z(jr^%wZhcOEjaNSD6mHsc!mHrwwsk-scHNdL4BITD06_p8h>Xjvi%=m_jyKuoPX^zZRtk+uM(q#xqgVBs z(gRU-$|v znH?%o5#_3@j734np%oC2LcL;lMaI4Y>yTt-Y!{o|G4=^D51@|0`+bk>v*_}M(Wq#T zw&Vk5^k>o6F%;ehSN;MxTPHgoJ)j&F)oIHsOT&Jw7y|8483A=$%ejRV~VfXzLJ1X6$G{XB>|r*i63b}Qx(G${ka1E%bXofex-~OkwkQj zo(7+%pLTTc{wW(rQ7x3nP8l*PzmJux;aw|#c?c|O zibcu()a-*IE;O-T!~ZNV5|Pf3{GdeO)7U1`^GS;Jh?Ig~*=3;2nV`4~lW!~r?;Dnn zC~lyxyjHmlk+K?Tl(I%jckD!oYNVXJMk-;~-9YpliJslR8AZ`23FkU_FHCPwG<%;a zw14&Z%$`cWNZ*YGow+J(sfH63y`Czi0D1S6IAsc!OHS# zQDd%_o;jM&ZQrB7lqiQE)>QI^!kbL@9YQ_zqrpSyGUy-Ij*6%U&2$AUMc0-f<0f+e zUeWz#Bo#ZC8w!wXoh|3Q58Q$ye%D3_()59sVxJH?^R+apKUy#5hGm{tI<=aqplYBR zG5qR04mWn2NM|A~eb|#$EqDR_^Yrp6bHA)_k3KyRLvov7!C5m8Afp5r;Mi>|ib0dw z2gS?Op)5#><%EGU#Ch6?^f+f7u}AI+5Q0q;L$MLr5gV+RYll(iXb(^Yn6R$5AJNWO zimp=Nm^SjHf+bEW(2SSJ7UXfj2VEH3k)j0^o`sgJUxVp$*jjoP9!hc!OS4)@WuHY- zP6dLu?P^`une$B~tj=*yCSH3)_64@DA)w01AboCu?xC;O#)owES{{Q?@R+UFcH)oe zVihD^uTAFla9+|S&>sdXOQBMhg<<0yHqH78SA7WQdh%vNy_WU{d%;&kdctVMM|#w2 zyYdmJ&f@jPdM(Ru&4QDjNaj=s6wKTsy-ywMO1X#cHLTxfd|TL@yKFI0Q`q@z)I% zT1k{@Gq4R1)EN!Cteymr|7@VG@#b1GKc^0A(44Sx1>(1AS0D*z1bZD%!Y3uPkHIk! zWf>_k-Jr`zn?>$pjJVHawz084+MK2IF&-@OF|J1OIf4`Wm`;2o%E#pM4y%umXr@kV zq>;kTN1m^cMsc+VQYfxkFm~h$!UrPW^xUU#P6W~K6#?6w0{=p4O9)!smJsqO*sDH; zC{x5j+aagQjZot6Kl3RPbgj_Zj;HAzSmjet<3z3qv4J4}cl~0K5w{SM7F7KOw6)#O zo?s5i$7$Zp0Ib@zGEQWLm=K?0FnrTy0uW}O!UOyQ!nGMhR5(!{)to5j;81eM66Kxv zTbxhPlh3vL6q5Lc-Y_Ay<-vp)1fk%Ay(rv?zXRub@_7!Qg7!uN@QjXt(5M`KpQ0-d zsN#w&KGz8k$CI7mq{oqdLE<`_c2LfxU663`4XH|nCzx^pf+ACjkvEdu0+EBhjtW-x zMmKMShf=`XVs+h0`cD^I5|kW?Emr5*gf$v(C;^H%9*T`|!iVC1(s%-~P`nk>3v`T_ z7Av$^2b^i+pt6oD22fwfaeRZR#Y%b|#uh7oN)O*%s)h+f)nZlhE~dq5qU+_)qxn9b zdU-zoK1d1wReQaBJU1Txu&BNza&}IMoS*f)UZ2l!R^)CJ!kjuFz zC335?zC_-WZvZKYkBo%3i$UR-YjkvgNdXBrNfeo2#&o(_v7sz3bcP$<$ zkpg?(lLyr`5TOmqTLta?ncrilR*(@6f&K=358uHJE?XG$o(^;|;ESjEC5Tfw&} zGAJ$z-&S}c(hQ2Nysa=gZYxBaNrQOlXji3pGby>Ppl>ST__UN2ViN6?(l-=I{K}LY z3JHJtpBoC7?bHngjR5C)^IZ{|BSW<#S~;ozuLeMgwgC;(7*vc?ZM%{)Qs^8YA)A@H zfs}p?!^26KFQOskq$Y*)JG4f@;%y{X(`B~C`*W)Dd%P3(gRL_=*AFFGg;q@p-F~dn41BXq%O3q%Z%h zhG`5*SORD);S1oThnBV=FRf`orRQN_$!%2v#%m+jsZ}Ybk2Q7xp1iKyiB_eRU7cxU zXTs63Rf!VuC_hZBKR!^B&hH-pMB5)vG>E;VLC(TQkogKSH4h>4g$D8Fzpu<2i(o~% z`+)}28AwGnRPk#@wUP?&hn)(KQERKXire2%e92#%vEb(lO8JEB{5N;TQbmB7B#*r? zs|eg#cP2C)MFT1{GYqpAWeU4{IWooOoM}K?w73%m0CZ)3z?!109cOFC!A_hX_~eQJ z9bQ~4pgS&a904XD-nKut5Oz|+0pqN(4|Iz4RP(vTqLq&bsPN z!(@(HOjx-tY9(dk0Wu&5Q75=>rWWG3)qK@?$jMPoZxhK3mN~gvn~6-6nrdN%AEzSo)kIzpUef zlCv}y9};~oi3w0pb;%#!0J{b;L1Kc9{N!m(1lY4I;M)3_qBl`}xZjL~)waDFHs%r4 zz&-GX>^2mwFW&jT?o^2l{@MPy>RzHlPUUYCZjekro&FlS!rBvTBW zE!T9^q4zSFH}a`Wfa~m44eSTi;A}V*NfYHJF`7jA1j;X9Q!rX!)O%^p^^9+Vi8xTq^NZ`Inu-0kA zK%z7Q+#>~yx|Y}2+AV0Q}lA(E!{*K53;5x#KTlD{#hP#f++h%fXhc6VkL z_$_D@vk{QLde5&}5YA=7J+$Ge&4p}F?L2gTpF2G5OQbo_{E_6^JU-m>+PrAsT(~yR z6M6x=K7=V=h@|DY;3fH3`hrfL32B&Gxbbuuo&hdJ8?za4uoEyC)fR#4VkaDbblmYl zu8?FUM4uQPyi06!kWSRJQc185Ho!WxaG-aUfEjyykk%IE&}K(D(D6atAaeN+9j#g{ zv#n~At6Qf*HX6crKToHqO=1B>)-Ro3bekZ2r5Ly^P9#Fx0cBMRk1_~j$>NO$;^7!+ z52VQiw9@TxGVhoECegh9ky4U^*C_%J+i>rejW}*BIZKQNP8P+D)hLdOz+N2Knu*rR zfq5$Dgh9?PMb%wN;=DMqd%Jx?DL9E0U4sp}fXTj0ZC+7j+*JUU_Cq7NQ;CEu4F(ZALEriS-Mb5pigy?i9Q??3 zo7zv%+^>Fu;#!2B`tC9@5F^gKwmEBAk>_tJD#`0QdddwfK$92?yWCop30eZ8jK^PB>VoVT9T>*N!-h z-eW|Jg+AiM|0@cNI58XLilpHtfG2>I6MVy+4kLW_K4RryK!pP-vXFHF{Q#Uk-rtNo zTeC72pbSaBbr7L@8%5hdsM_c9^EKuTE{=TFMmaZHj@Y8;BeuF4fGUYVYfAlxn{xAG zh4&a$?e{LXWOMv=X>Ztg$>Ly|5uX7sSLO^r<>;v51=RfXoVSUQ?d=N(9tIMc3FU5& zks9wt2(Z@b` zov|ir;xq%lkoadzrFyNlXfoi)++iU-A5mcoQ}Fv*#}c+kqg8*tJ8QMulPHa%)8%OT zr2)_bep!|-_w^^l2?(Xg`wt*QW2SsrCQFuc{gdTx2obX%)BRN)P;0}JtQv(4byzY6 zXhp!=WPlZAYmRa{AetC>SN5t?~Ic!caSR@SN~K zX!nas9&3F?1neD^fm4h&Ja~|TD;dC;eZUN$#VY``QwmU_^NP}m5a3M~%ZM4?ag2-E z_=Z-t1|=;i24A*UDhRPea!Pfb;QC)DWYyYmH9)xiN{Gg5!xLpV@c`ip7s*h+CBPTp zR$;js(bW;c86NP?7$QOC2o+?gdTuN{(i7@*Q|XNBR0U3j z=}>G)gJNEqRf*al`d)iHrXjW3&!ir+dU2}uI9*>KjW$cDohs)?{7#j}pL7z;B#8ic zaW(;Rp#(cj=kbG0Ogxx{B5~vM4F*7g55|tqcgbP_Iwb}m&43#KK_Kp8Npj?G|4%CV zZ;y)C6MuWinC0qQ(~Ry{%;e1X_@HZojl&&wNfx{Z{(Dl8V4(`xG(cm2bSe5AR^c{( z1oWEA2-vGf)X0m5LO*CbhYYH72tBEf*=V?^8Xg5*98%75QKe+e(8F&iS%Yv~RMAU# zlQ%@J4$v1>1h?g;(#Tzcp-5S!;9cxZr397ooGn(V$$ zRouNnyR3oJf{us#fq5>%M5BSnp!nsc`*e%m2-E3I=-!(0jw(NlB|Q&VX;*cgM&ONVaA)*yvAO^qp z5lAD=L8|WHr>6s(n92kEm$FZQ7g6# z>M590Ou^a8EUcc1IKa{z&8Y+dr3(Iyely{#d%XDSMN_+@B)*;&8s>SrMs)Pch}k1VGGuOelaL zwiRH7a7R3Z6TiD9mDW(tyF;@N(reK3nqiM12VDBfp}xHW54N())fOOgD{8@|(b? zhDIpq`xlhyOY^BYu&|K(bf^44`J3FjN2BolzX;UR{x5;L4+zv}37=o||3{!c2^B1{ zs;f%S+)xH^sLB(Uo+5z*Txmlxt|}T42~>d*d8tqwfG8t+I*fm%hz3(IJqp^o4HeKS z7^n{l(vVat29L1BIFvvYb_8FMs$3)`zi1dN(93l^!>2Ie;xjzp13kw;NL;SYfNoz2 z{8LNEc~&Jx(Z}p)`X`{HkNCzO<|hsV5N_Zx2=kheTO+C#9{pQeJ(LL#Q+h7gg@s99 zGoQ9(tYp=s7atux967@y0QP+4N!^&?$bAS8M}>#L zXLVeYxw?c2k6`*h%Ps{6^khmCxEVG9tJB0-bTWC! zMF49mT+qjM@!;plaaR(s8DZ$hC}HHfS3L@D_ick-e>aLuyzKTn5-$swBP~|p!R(2b zsf1XAHx6HksMA##G>qnDkOYtrD{Kqrjzv)e-Ab>BSd7qLv9`tXgD0r>aTS-Hj---f zve{KS?d&RShnYC?5V9~4zwRuAP3hf~dIX-rqO!%v)k(ug-;5*rG}*c-017?D{eeSA zOai)=K21WmY7zlxeu_zivr7)LhIqBx3KgoCTBN>crtID{UT^mzY7iuLe6+y)>mVhy z(H+m9c_TIp_3cA}6BaxzVBA2|H6&v6VSS7Ad!9VK1Vh~sCDOurT2k&U|&)_ zj306ck?#x+Q9-IFXRyb|^if#EO<(lkn_eh@D6I2KdP#~yN>csZTT=^|DtPwr`A`))|NB^Oa_q4we=P%o(&%!yP%LR7$&zJ zA2&ER>K*L!+tEa33ZfsTprJG1@c5`)+hR#nuBB64FieY%BsuFuhcA&`rQp@ch?dBO zcC@dQNc)x0e@RrK6&9*DK(zCh#p;D{!3|_?{6X1+e3#t!W5JwskW3(RN5e}yvA)1p zL6!}t@tsHc!~lj{&aG|1(4(yplcpW+5p{!kRu9W5J$SG6;JwxZBFGaYDdjKYWM0MF zeEvlE0dGx2qagh0_~eNQ-FAc=xk_^#>>|`t-ho{bN`IRkwU`M{zjp}Vg-I?RvZ~X+ zIE24jIJ1DXfc0h4DoQ(ZNfE@{$I1<7DE#MxlHaxw_9EWmMxn3o*Vfq>WjBPrzp0!7*Po(F+wI zdjUPucGT118%~fP9#xy0sSg0!$K0%UbQWnn7ACc(VxGW zoCTQ}Ww~PMTre(*=Yf_zP-p8DeX;_XB%-o`I`UpFcW%Hbgni9*eW2!-Z1`8hXIKhJ zZpp4}WRy{R0eWa{7DZHZ{1T6g7QVrVY65M7{OB_xe(&Wn6WUY8%{ou^AhjP7^ww3X zQ#05t8&Cs=w+phG0x&uspL^hnb%h!4qRo#_#Z{=w6sR6LWS-igL&}?3nd$8D z`LiV2^1rIFuSHBvB?8cW(m(%*yyjh?@2Ne?OZWxzkMv+n)chlS%F#Vi%h5AmZyNzI zvd5dMrPR?qb)PiB6TA>6q+K3))I2?*j+3bSNz_%tsq*22U1ZtXI#&GrR;slw-qL&8 z=55t=@X){{tefbRkTx(s3KOFwHS^EC)tE9RLu>lkkT3E4OPc5(8M_olC zPW7k0X7u=}4WsLCBc|v()}qec#-wePI`6-!Q*F&npPr{7tt0HHvbCHI5aBSF zh9mum>m?b1QkfL|$y4qj^#n&RwzWb9cfAZy^oID%xp(Z;zC9|)joY`!u6Vi|vcvJy zOaKV^Mo+1o?1+nRdSYAVd>C04(1F9?SG#-!hUa5ieP2Aku3^d;CmK-61k_6~zM=~g z4{5eD0m=ywJ5D4n^;a_i#tG3i$UuLJX${MeWd9IwEj~rEfrwptZwREBR7+7~0{kW> zV01aL)SKww?IJM~a4bB;VWmUcq5lFTTg>+PvRXY0O=AKgTr#QQii=A*fcT={ad9FO z0Qv!P0Kto<5E4!jgY5CX7?dw&m#QL>Miz;}K3y{33uEm~e?4Uo&rY|RkaIa*?rB2qy@NavMPk>ouf8{c{=QiL*e z*TI6~*Lyh#A4p4onhr%EjpdfKO>_t1eF?2bI zhJ%?rKqF%>I4{Bt>D%Zne%>!02BES6ZsUKB*cn*{QTh?t7GxQ? zMubZ4fn2MFtQ|8+)RDfk&aUOV&e|H5&wqwu%(r(j;kxGLv(D}%&1Y>bOUlr!j3ub- zFD9etmc4ti1EHe~2Rq$jz!Jlrvw&aoPj(S3k87cDSQkFS5z)I)-LP-Qv`Z%Nsl+YNdD+XWnO~q4slw9EczE`_Kg0+9-CQ-sG&w0>@0ofcF6h>+}wH zXC}02Gu}rwS;lL~)|I~6ksX4u1lLg7&KsP}y~Nqo|8j@T+W#j+ezvi?vmf|SQ_iDP z&zNp8_1(@?RQ7op`lJkVQ@bHg zuTB033e&t(hD;n-1yV8P+njA%Z02HWzzs|VD6D}fH28)p7xC_cH>D|H@7sBkyo9L2 z=j6QTy*gx;zgH*Nopa&+2aN#`Hu*L{%qtG)p_^1sf+(AFQ?(c`Ze?D5C#=?HLx z-@=3e>dpEDVSpmV!SVM(!6e(HujnPb@(F?%5%D*A4rpdjrw&Oh$~Wq#T!7dit?Z3@ zYVd6{&knwwz+V9UmReCR;&#wAy91yWQ%`wJ@qWJ)}46b=z5C&k(ib7ORar_GvC??k0< zlT1K})Cvc3TXkaVA#i)bU~ihBofZL;nL6;egiWVcCP-fhg@GCrRE@Z@>Lei!x9+EbbSP>cyN=zWi0Za-< zF7=?Kf8c3K9tomo2*G~(r3d>Rt4>}7!ruKs=my~ra4xqN(Y?J=y7x_E8ASg}szCM; zkR{ZKz=wyjV&F6fGH9z)EY*Dvq2|7&@L9+QfK<|m3AHA!KMOgb50j83G92b?(5b;D zVN9{Z)Z1+O14Z70f9HZVc>s*$GK&LA*MD@g+Vwt2qY+5sLtkW!1~}2^+aU8m^mqW$ z_?hk|qh}6g@l1dp^%2Mt;i6&{m?aiClA6JN8Aw9LIFJdGkj3*Wz<7iIGSDj*Ig+kG z&Q6NbS>Iss>t1AY@I5c8zntRiY#0U^bxo%QtRX8>!l%bggOv0Xu(G*olRJ$1UL8ha zL9DwoDQ}vyHZgCSO_tc1;O zOvW3;8IGOLb*Lh+2@nz#QD+FFW+IhWM$AOsjZPoT5=I{evxLqE;BlD&q~JaXAjca$ zpT{_`Pq9ft7ZW#?5^hkcX&iw6Qmc`Ytd4cQ@pLspZw1pAgU_s5h0;;li%Tl~{eT-X z3z@E7Lb%z;o12kZ^JO~H{g4imEGk+IFq~4b9xxKxwX>=TSCkrsZK6^m$?8gt*hnKW z%qS~0qRrE#FWi*UI1d;d65AHr0TU-A^^mIpV?0UA|7>PR{*wx?h#ERg$xRzNjk?T; z_(7qeIzCjWL&d%2jEE}Kr*MluT?|0^GA{CWt-kYv#pn{wx4#BP+m@&O^+mSpu~}m8 zHBW!Nu++VsOc0j3wvz^Gl|gB1kOC&aOR`l4YKsXb6uXp=nsmn^yo<$q29lL;P=m}N z25mi8-`CNmt|0|#kE*ZAn(}nJ^y^!v0+KVOf`n{Ne zO8-#FYYng-fN5<2w^$Mm_d{uJnF(=`K+2~Es1qeXJ2XR@IRGKw=3SHpSMft*&LUTv zyauN>ol^lmGKQ3$tAU?Hgv}IFKR^~Ko{H(g))7tp^RtNm0y@FG1;RcoTjhM+?TBzb z%HK%yH!i@ubqbEryG9zQKS(7v>Ye%e&3};mhGOWo=SLc(X@%r0Y$l#S`g6$3QKFwe!7O3mazheEpE{^iGV^N4cP<+j1G{L&*1>4UYPigZN_e6B* zEFayq+-%xuWoOg&bBsQVV|G3t2ZZYvl~naYjkg{fCMHjnxI5LSN(8I=MyoPRb*hA~ z3y;>De*v4@sS<)(wBO*(z{`;OP!Y7Fr~?uu-?bQF${7+K=hjQmE*x>|xy837)X$k( z{@$S?2#LV>Hv&c3)EOx)d`XxmqauiW2m|xh5DuJ8nwy21;&a&%O{4RLK>yMCoUc0U za4(3L((!4d^OJc?$lh~#A{tQ+J&-;TVbl9?!_r75qvUZ?jRxHoIA*4zjh#Y00kAnpB^%zoCPCF6P%Da zcM#mVx4>9~on9|ZD3&eSWZ{9Kb0}EZ0s|6?xpetJcP)6^7+XhQiBK#gWK?W2JKMy+ zDyY9PEq~*0%vh(Mm%#?IZp+kv<;dtf+JPX~S2MprF4>vSq-!9BSBxy;)K{#6KXr?h zu=KsK-U4PMCVPvOHhp8tgN4Z8OdR`3M@+yF>L(N(Tm#H*czh%gh8{-RH;LzdO6{~d z)!%QTstJ{4SvHG#13A^iY_gnPRich*A{37by@7#`3c7W*F zfzt*pB2D3`c-AQhj(R9UzhQvK3E1HXx2lJJ4+*tyLT~vBD+S|DOE^Z@$?;P#e(*?@ z7;7jV5XdJJ-H0tv;*sj~zJ!29^&tq0V1vj0YX?*KJ2LSbF`yL=;U`VRq{YwhlMceY zNI97wwIoL*hLmYBQ1d$4OMs;Q?_ybHf#eq)Ye3lC{$x{$Gf=d;Kltd)GiQ`gViW`B zxhR5;*@O6$C_-r{K8CTWZ(_Mia^U+=c*#jbzV6h+@U1Q!0$wrM`UiM)1TDm2Sv`Tt|p0kh7) z{$SQQ0m7jnp~Wd5GG9)u+y6~l_0hTT5_eUt+mAK`Nf}<($OOvw4vea6Y~NqQ9?xb1 zmAxOa<45kdFo7Al#erc=V5AfXdrv%qRoDp0pVa3jTsWRHe?N)}jGDjS5yW0aXvqFF zCWz12-zfx%8T&abAERdM?~x13o6h4Ted0Wh{?SL2&)5$neNGaeRAX9BOqC7EwH)6A zF;AdF2S%84qlqhEBA5@$ic26E`SO0_NNCqU`!i@)*pZCzT8=&j6T%nJt^`Yi47a1h zL0G6%pS%pBQFe&;;r`U)pX8CupRD*dvE34ut<{;1t8F%;{7q8)CS{M1@yqNHB>DOo zXE*oy85c&seg-0imHhYR2+5$H4q9FWmW~MS`m%dM#=+Zf>V*dE_M46TgWGTJr51i5 z;}$HOM}^~z0J(*@#MaQ0aXM_=!VkEbxl-ztE-fhE$0NwLiF`pQE;nJX)bN<3)YC)h z!s_x2CMX5J@zP4?l_%6m63u!OaPO)Qnpa8O%LjM#2BaA2cVg)Ik|OVNo!G9jB?(4k zP7=u@>`}{kv%L;yVHI3;UJ^&((i13dOvCJC5e^_d`H6_d%0&Zk08QLLMicXI1EDWO zIL&>$1NrZgtt@z;Z398sN}%7q z5XMwr2tz^Oa+3$i^mG|2>%ytK^`fjL638hF7cl(Kx-fp?t@~4{7jHKau_>)GYv^ z1E9Vkqd*rJ1<(gX$V&mS4kUadc=Vr#bHt=y#0F~AerX1!(O+g&%Lp@J$ z21sJ1_tiy?+qV~brnZ8R0V3PJDtH2CLK|FE;CG3Yyts%knxLP|$@Tl9Kt6gAB;m;x zfnR$Oq2%fo0Y9D@&Bkrrc(vHJ0}AONqWTV8f9DJc=vykL+Uiy07h|bKkfx2*z^L{^ zD??%uYiN2F*d{`DM4V3=Wij@}uk43^_9~6mk#v3i5y%zp6O9Z9q7nV-MWyxCy*Qw#;T{>} zoF~gN8sWcv>lTkh@;EoWGgG#1w*$HlJb(cAXjBbWS#~zV%k2c&xKBt2b2>=+)Jo^I zq3$K>t9x9S?Ng4ke#-H%NqFSlAmaJzDdEHyZv83upUzIBNMp-0u10Rmm=3`L`gFIg z0Sc!T3i7vTXQ%eZcWrsvC?sG|1MFPx$9L^rzzl(WdLrQVTA3f;b#_w!PO;~KZE6^W z%1*80r#d@TH{P}9sT@Gggv!nqrftEip19Rs6~sX!pNw0qETV3cGIL%k7_ORx8{sOHmf;A~s=9Wlze1pDJd;RiLMN@~uWAFe!RWwHk_WXNj06J?#pYJulb-_rT zN%olK8z}0$Dt(Ll10yP=&1GCU)z@Dw8vAQAFK!cc>KZT*pLoeu*jHB3CVjvouejZ z;9;XDW=M-N^{%2!*7d2_)8&LlWKkvu8}Hb3ps#I-b%Yei6yA1rM?m~k3lz?b2(Zao z!$(3AP#9Qov))z`PhD2ixHh6wYWEulXR>OMM6~Gu@`J_g)mJ%bi-f!Os6wN?$v}I|`wj1ubtCsl<)6vknL&0}`DJ4fNlkS$3RlxoE<}A`dETVg( zeEcbIt!n%!p-Z_T0dnRP<4;K``wfG49gGKJmAmg1Sx+MkkY{C!xW?k;X&)&br?g~uV zzs3=mmW?dOfhmxmzH<$33(V*(qjs+8X(%Qo7)iXtYYJAd)S)#TFF&*fT!C{cMW_w3 zAOe$+(Qs%D;{Q*9S*qtOH_`JR=j$hf6aUZ}OZB`lyPfHEova1)rLyF1QK8>C4v`p}E2~b-^`g&RD(%pwR=3%hyB; zftmJ94L$FrucyufPh()#@-_MJuX6j*^G*!sXTyn&)TimnXP(f(YnZ6O9PJuf{eHh9 zv@**1t=ULDq!8V9(HyyP*F!31U&KSIFS{>-QRBGUzOLXnRcr(+-9iTG3olTrXtf6W zUDXeQCBlFsu+4!cEP(LGj#)e{vem>rCleP%(o@G%bkiTR>ACM&gyU5(Y4Lb1;2zDZ z1@yW_wTN!0MG^CBk-T0lx;V(TFQQ0IS7oZnS5!tK&0^WG7+#@OvATKF1{p;S6_$-& zSP8uhziWP)B}Vd4IAWA>gDvYaVe)waqzmp2l07w8*8R2sCg{bwrg9WR^(hCOtaug~ zjtxYX_G|g5L=9&y#JuRO+32%F=o)_s3kMH2zWB2q$ktBRdI9M0d)_uXQev|yx2vWs6;g$f+Kz1&o+q{g$=gQx#i3k}q0jKYu!SA` z0awWGFUTOMnZQvD7yz;m<1HW`cu^KYP0E=p={G_@GaD>{MQ5{QYX?NCqb|6j$P^Fa z0SQlr|K%#l0*s$}=LTfS%?=`RX8kT$k#if!h^Q6`#ceQJf@9(ms$q>7#JCM@bnsf! z)RVA+4C35|o}Sj|ARt!I`Q4tWV=^eEJTYQ}s3=IvqarrQsLeTg>iL|yH07B3ww%Kej7biJCm}e9k>-(i(v;V^3i&e+^rJz6uR*)=< zh@(z++$U%2g<${F?IP-p_D>u^`5Wz~gg4sLf*RQy?F3hug!R_Sn436tat^8nXJk;> z+RiwFs@8Te?TX8ms+b@%xjl*rzTF-h*Z)P$S&=b3c>P)PF+LZ1GHGiMSn5d-aQ`7Mi-soxm{yXSq;oD^)(2slyPHL z%2)_HBi|7agV6%1SFgIvqHP(D}C=00p)F0`KM4rCz;xOl7W<_gp`E^8@DbbZCuI9o_BoB>JNWz8 z*P}i6nT*F*G3st--_j0YqYnEcjN5Qn@7yM&Hlnd^??&CA4mBiZJ`7jz4=RxqWp>!^ zgM$%4;^BSv4xt8;cb6fJJ5V=;L4hV`gk{4z>x4H5We0zLH zBb72s1vl?rzt%! z9V0Mvs!q8$YOo%FC*(LBxgh~#hfFyR0;+LJ^{dJ(%lL)6ep{gZw*|$lUxu6nhhbhK z@`g$G&Y><_b-Zp>W-G5S9ni9UvQL=a7D^T*E6DtdTLkGrWZj&bUDCHO5g2tngCkJJ^6_|!8iXac)rP&cEPx)?g3uR=0?_(hL9Xs808wFe^AvM`qs{*x?r zEB)!dlChtIb0VnE^B9RX5B>R)vT>gWKwx;^6EWyivFzPA`jdMj#(r`UWX2@WXgd}l zItr%NRUk0gQHphQ2U7mj)Ym`cS82-9v~Nb&}}^BVRffGLXF}S zgaB^6e#25DSp+7iJ^SB{;DblX=<2UwzPkmFzY>6Wmg2a=MV&Behx`Ome*sUq7s@HT z1Qq$gkUjoI5&Eu-Duc<90djO$f@~0aL**sm4wO9gW5!S}%{ydxGFsT-Yw}QE!|d2a zd=2n}(0HZ+cUnUlFgnqk&XIm?fro2aBkmQhwzN%EHF`*hK#6cdq>c|jTFq_oT>7jb z1D4j4>0v09SI6vbq;fV8r)nkRVbGNM;D=gvHQIynoDHg-jg)S~$hKf_aCEjgoH>SY zDtrT))13u6#qa&0x_Tz2*?{@iQmPFDJi$IIjWD+YoRFK_;2aO0MkeS{Y={i@U2deq z$4a!R6nH3C15pjwUAL}RK3Fe%a~-v2-48-A_RBD;y0x4M+Sjjx8|+xKfr$*d)@-1I zKW2La&Pg5W$s5YRV;4-h8}c;{?1&E926lKuH3c~P_nQ>xtQ5U$LYqu137a^rLnlq^ z2&pG(Vy?_lY;4oORr+}>dUWF*uE@lHX|C>Pl}aQc@dVcajU+6+3texypW-0veo zFMy>n2$)&eiJ?gV@lDI&@c=(q(Dk#)pmU$N1a*Y~nsz@R1(UW@+K0Dd^-*7B!n{PPUl%+S%#dP|23%R^|eme%0{t!Eo;i39K0K;gu zk3L!0fUnZgyth+hsLjEf7qwOJtrFn zTf?br7;nD3x>>lIZf{-d3JQN0D5!OYM|9Cw)I^hm>k=hL%CWN^n**1 zslSsTPjR(g6oS27t>F~i>Jx%}=vEVbYx(O_f1CtI`_ipTEk6R1SoH*GrP8g9;$(sn zRvGw8VHNHS_S5&m!+S9)xjA8T=jVW-Ia*LV{w)Y2PPP^W`;&?P6=JfN@sI&p7d7ZR zbNba}zLFcDR7{j!pAa37a9~- z3}aZ(4mb!bKO~FkEj&^zOacV?*>1!5lk!U4Vz>7})oZ^;^Htwz&Fv z(b&!^h!QuyKw0WW)nsb3`}G4J?^1|9t9Yum_$#icne^#6wQVZUy^W}Z%cblY<-MrV zS^$n8-ivZ~4tKz4GHfJemkra#vqPJ+lZq0ujd67uWe^j^w7qY?Gvr!k#}HKZBH%A= z5yR{I_iJ+EsnWT#rblmk(YC)n;}b%^XD)iH5S2mgjpeZCOu0pXT^WNpv4R-PzB}Jd z^Z7RiSWJVOF=s~J654hr7hoqkbKf1L%_hR^)`8$jT28Y$B$nsTd4_M04fqDY!Er9j zfu?0as6Rkp#$bF~3`TSQ9Ll|Od<^Do6BoTF+(`f1t>^Wl1Qp+p(o2RwNZ4cbk6>id zhhaNt;YHimK#V;?PKCL?M#%a)y7U~m7ISu`{Dj#WQr2REHDxTzqyP3v0lolB`U$Q! zF&)nUcoO_Vb_kUrp(xzG8#E6#z9<})Lu4uesIDbRw%xu|;1jQfNyBax;9{*nKI%Qj zn!FC=$cWuV48R`TiP=Sj!KU%#BEXH7d3F)38(^Xwq|x0S1^=(pD{`Q-%YN{zy}@obcK{K<7Qnq~^WMaYG5`QH2AmGdL?l7h;M6E+-cdUcu*x*! zyt_*Yzsj!wVYC7uWV+?>kxm&j^JEU---Md8Qxa-IAz)D0IoYjvVP``#-j}b1i?(l6 z4|8$s4oYv@K|OacP9ZJS`|L7Bo&PZ74%d>UFi z7&))bP9%j#|DBxUqFzHHw0D_s_P^I4m=HSV3`fl*7(lH~40A=v(e6a1DS*J{P>v;` zBS_+`^o1Zvu2vpHEeJo_LDE0biDb} zC~zvi-T3!6C=s2Ef(d9Scypc)cUG$mYNKb_C~!|2N7X_V`%n1*F~LE&7=nxI9q~*s z7vFztq$7bn>WKCT!Q5z1taVxBP(%Tn9qnh(;-yL^I0UHc9!6*eKa8*(jQ~+1>#cCYJ}+<=`MTm^)=IWpEQz4E8-gEC!QugU{j6P(&-8 z#k%xgU{!lwm9$2lUU%71o3Q6gums5x?#pal@pYG#bIOFP#GEn$lt=XO9PS6`v^V9U z9k;s|sJhWSRKtaC(NPoP$q6pvISfeLR0-JVwKLG+M8E{cb*uxkcQOtPTss6dcNqrQ z#iu~?1Gth9Yg(0?5Y0tr77G{KXH+oMBrHsCbxs1Wl1FLZEjxwjWMJIQklK~poj;0D zkKCnP`*M*^{LszGPL^r9E@6^B(fsI3nDSNXAodtf0Ng)kG)X<_BjfLF8tdb~`6x;c3X~eE5&+d9xrHdxz$!!kbQ8|QhV<9WSAbalS)ISX3GX>i{ds<{Hgf+G zHWi>T#4*_xp*iNX89y~@C|E5=4aZ^d9h_sKj}^&?b*l|*jwMo7%Je0QBd`iuLgPAW z7tYBp;6j&rD#P2ml)rjR@*4OpvO@qiSUBC&DQ!kN$q_i|2=49@!%N{8K`Z)tjk}wK z@uCxW;1dAMC2=U4ei2|Dw1z%^S^q5c;zQz5lNI zJDeJz;K$#095~WkhJP+|9~-|DV4x6n zPw5qo&3wjS7B#vocPkUj$3v7ej$WfuVwO2U3o5iAO>(_wXfU4%7F|7DQvk5KGsZbz zPGo|`;R@}spvQ5nAtpxj#e6>a#e6dmC4Mnq&=ea%Sphz>!c7Y4xe{~XaRqftIR~Qb zZz*%L1~I{sbC_j!`C^D2s3pRQG=fS|(~_GR(Z^=m#o}K#h?m{qsyrgJ#GtAAP|8L= ztMXOfDiYH|HvV1*!S5^*Yp5qMoR;DCZl(-J ztBk~G1p`Tw069}wXh6(-uJCfLt%ZWR*yt==yJd{CTXki$y+t*lhJ}jy=W1%SBJ}dO zG89{Cbn+85@K9f`rezxRj0o|gG3fVEbr(1Q6zKeYl3%OF_^ikJlhgs1WxKBPUN( zpv$>B%g3?Q_9!4s>h};H+YHZmzG!>YWWE_|04lvS7MQYjz>{43dXy(v@H(XSW@d`( z;(#b?)KDPGDhoHOX2(%~E7T#PEPJiI9EDa1GT3{%VDx^*lJ&$E+R>6GloKM$(w4b0 z#7}IjNKB%yCiTBhm~XK>*}Bk9eKV&3FN9p`LZUzV<(%f^9zs2cpbEvL_#1`2CGSr> zJhfu3I&PZYQ5mJPR75$|^oy~SJBGk)*^t;K&d&FV{q%ne`0{VngeChmtFky9uD#^j z(b%_YCp-9K9Q`igkUm>)J*+~zBPbCBea!a|BSvMg!O{dzQ7S~9ghP@maQ%@y1Zl{{ z;aHSflXN&LIOMCz3R7=91rtQ$Q!wJK5yzmnDyG5Lmwo94u{D_M)yw;1+~WS2zH?{} zYK~UE;-yM*JR>0GEjY9g3(qRVs46c`6=E2GiUS?IrMf??>HdK47$(E$!BR{(3J}iw zSs%n=mz{Ux^v;>1#_XIA$A`ZzmKMj)`d_5`yHmJp-}{`H=jWyBJs2=$x8|et z5W@X8GSoDd8rG?$(nOf~d!>YWPS+=f=a!zrNgg z%x$2qMxgnVKZBpu>b@F5d>2N260t~>jf7(nt@Q`s)o-l_^1`UXdS8fWMs=U@mE#f* zPCocHl?@I8_^1jS%7$0H=1(RYwDr0_nT(M@BY5unBqlgoi!>urkS6IV;|`8^%2Y3z z#0E#cwJ!q3fVcKJNh2Hv7MA}QzWhH%CQ3#&I12$^O|XIqj`@M57d%GV`o~C93Hx5K zRb~Mr%48o>|Bm>{zayijJP`(nE5PV7`5dmP1eO>u0QxH*AxSSbI0BM*>|khP$KK(; zcW86f>>X@c6)+S6ZpBkfJ5Gz3>Oq5G$2~iNxD8P@V>L*slbAo&@cQoAgY{jr2XhVSHm4Pwnoi8rrQvpiq;~dT z(a{W@;nf)K+>WiZf5%n=4%g~lim}UdODUZeTAiAWFjlwjIjip04zVavS^p;p!T0qK2dbv2vz-}o7=2!f(LkG+1}KWs(1;`f zS;kAme_D%Qd;xhgANSi#eXo`1ZQpCD>jSMq9C3Z1go@QgGhYCc3O1Dn-exH98N;ct z1Uwy32$ziA#*2pn@u)ar=<=Xt}(`(6`y_5$?h?aqQ^%I(;Bry%tBb|zh0^m!( zrU_Wyx!)YNJM3JX?xZ6lnT(vjkw|a*n5mv^yF)L8yg&Lk2l)sP#o%LrHVbBJ^&=hc z>{NoRR`Ez@lL3RFyGtHw%0f-qmpZyjrter6A|XxhNQ*ej*F9q)?LN!f(qw1({BvC9 z;~JYVKvZLcK!O^Z2$&4#87YxorZzyPH&AGYs0sk_=sqAGnU$Y&6#vsMuuFVq)lZ=u zk%NKLK%{>P0BEqG;ZI?)^9wX!L;U>Rw2F=MvZiYo$s%(L}kIDEu;~{iUG=3a}_$}S~IjV-Z z$>6wG!e<-CuMcy|voO3EvKUv(dWzC=ZRLG9G7*ztU$Mj!WXr%BBdET|WdQna0=5Q8M7ZVO z@TuzJP|9TKAf;N2;28p-R~tk_j>1R@EEp<9X*x&&MN&B|n8%;NY-;}x5Lja=nEous zQk|$k_(wxBc14NH`YCkNc4E`mm0)dIIr%S%#~(g{(6Ljr&Q9jKR>~$)*R>JO5Z*GZ z6s~J+Eh?yGsNkiwDxrB!VF4vdvCR!H;WjsSN1cfFWxzC;-3qTE8)uWjM2jX$fq^%) zTokM0xM)_3=BLExA52e>Qo2MH0r)^8Ru5MJnw-+Tf|{Yg_@(=&E4^m2QA#Zs!V$Ve zFwL!`yjlX^s=f-e-j(cfJDJM@8+f=)u8y+d-;%kBkgmEWvh*2v;$xgLZvYU)lg%O& z`4g%OTRI6BPivg%NFHvk9mWPHvHrk#%1K~ogj`eP#HljXFw{*Bt7pf_WBwyt@^E0r znL-k|811VhBU0WMsX;3XcR=!xT=M}It{MpulbTd;wOGtZ9&T8Rs8uNX24u>PR_6i( zc_LuYRZAy_TT)Qn|B#b!TzRup?f<{*`~bAGa7J)86-0 zl$61YzZO0|?e!{ys;kjgF?0q<-U7+=oJNCwz*%2K1@LylLTktjurNP_{0!?G5$IpS z(w!a#j>tX3!|eXF;bBM;!KG!3i~7Ux{P(6r+v&cFa94WoyJ5N%1;E=T&qQeHKUw|h zjK@2}?O3m!;b^bGCef6$HtEA~yEPGpYgYuD01uWQ3P(o#kKvhMe25E84^Y@^eHK{C zVGm@mN6dcZKtFc8nHaH|8oNW~?ZjI4W1l1^0`OIu-`3?x^JC9N5HI9E!*cIn2ZfZ%oO z(-65#dKY9DF5C--=5NCl-hRa0D0Spm>XtN_8m&*jU;2>Ro4^2AsMBxIfJs5G0j0@h zSq52kW!Kne+M^a;g}X+=V}bc@utn<^7l7s(&B4!UOrtW3%sRRZX}Z_~v==A3Powr% z4A|)990Y2yo%IT?$C8M$73AT3C#F1{Z`-XHt+UlCK=S80hgJUKCeXajX%cOIS+>Ha zlnybWxxM0)bovjQxI3CeY(bij9`N{OOtk0HQoxCLUWfi({bd97@+hFq>Q&@?HR78F zKpzMI2<`KLMzk6*ScjMdf|yjNK)ok!_0ss`*tPiM7AC3xIH@bd8l9yNwavy#;Q4KSZVLA_~BL(_2HzrscfDrwxS1RAlOcYc&lGUk_$ zsdri-?o@()Y0yo-rL+Va+v&kA9DC%6k`(xl%+dfZ_V!k18N>HA;bJpy@|d z9P2ONKR7~r*Nbj?Ex2M;{`AIawWI4DJ`Y0wsY*p))y;WFo&$D9?K^UZzdZO6D<+~c zBp5sNpqv?YK+X)`G?OiVeI`Esh}B=C^E zY~V1;fMK@&Fw#6IM~39CiX|id-T?!RY}IlEE9wQYxT_mSeh8+_>M5;b!I z$*_KGhg<2)iDf7q!hCGAay#J=G201OzX{t3UxjKC^yHo=1T#Ai7e6741J$&JgB!^< zJt5MUhO=`#C=&a71oDi#@)?zD{REZ$@S(H&-royOM3Tk3OTE*FOA9 z=j=M8*V`J-%tRjRncf}x_b)3r*mUoklrHOgf5)(=Ln9{?uG%hWbwR7^6tp@|LhGaj zWnm{#*$Jw8%aW?cSH_ns`S#NklAfTPoySj5_Ppa`5D%4}Vm|r=b;((~3&t?(P7PQ| zcf??B{|-3O`Z}C=ZaXN>+gIcG_35H=LbvS*T69K zJox`soBivjZdp?K_(}pzD!5KKWm~@i3w~{b@oEi>SI@(Ewc31|65i`LP1#Aa*4f?G zp|!WPoq|^$Q5R|>^v}-#R)85=u62es3^x6$8CtgGEzDKh0*#e$U_~yjUjg;ya9~-e z>)ANz&?@zvoqc8`aSZ2{ZAJ7YYY*gY0bY#9sTI}mB} zYe%!liPb+5*>;ZsBYN$aCn9C)Vjn+hQZd!ss$m zOuZTlGeiu`5YeO<9>Wq+%tdGS7P^Z`F~Is1l456P0m$;ce+5}4BnfoJT$t4dFH5%P z4F)`e!CCOI<}FLMHRQo#YlXtmJ@6TtLCZk66Bz?niZwaU&|L-lU`In|UR8kLodjo>vZU{`l>rMCMR6-<_qo`oKpoY_5Pf|EDJaD%$H{9*r(J`2;&x7-u_+u~zux zk`kSTaM_|Qq1TE3c%-w_49z?ReF07Z;tX5x-F{w*zmTTPw_+us5iohxkV za1Pw%0or-5C~n+q#~$ASAi5vh@yE9rRj)_}Wmmgu*+>0}eLx$*JYU1xFxADyLoOan ze|(}6p>54s0BbC4s3Zg; zu^M8qdiRl(U4(O%!Z{$Pd;mXK%9`&{8VqB;%Wt6E<~aZb$72_eNf`0pL%wG&bry>j z#{PR2yGuPm_0*YWM)=-%rkM~9{=HgE2ygsdKG`^qzw9T;>6upbW)Jm()lO~pD9!Vs zJ_ABZ!;=d&o9{QA*~%zUs-I;s*@I$*z94(by{rx@tZw-!)A}zH{!pS zVO3q*#5ZmBh%DGKaB)9|Mfbu`OR^YRA3K z{t(vDoIIB0mk)_|EFU)(N^~fZ{~Z_g`ry02D*sB;E<2uvx&}%?Y7$G^msi1W0WeCC z4wY8L0REs6O0r38wE0IEOhSN!zoCLz*b(dEo7tG`yk^$Zozu)ZSLJ9}DI0Py4rW2+ zu1rWO`ZcqH;)jlyu8dHrFSJwiZIy#BG$+Jz+RVD5(`*VupU}D?6+Rr23OO7~x{~3@ zy0=-$0U1_Gh7#b4cxy=-R;WJA94SBKb!*^dGW#>wzorEbcdCTsyi$tl6P3UDgF*C1?6|x!F=%@ zHlTpjXi%wv&?okb%!88cQq{)--1iA;y>>6Ol|YaPleOznN2lyGpc>nv#R=R9RVBuy&`|m3@ z-%qHx01umX(!+j^K+P&3Xy6pzzpuR%gQQDUkNQ#ax2jfGe0&+MHDD#gkr(=r=J==&v^O4o5Yz3x&`;lgEV5=b z!;EIh2WjrE#iTbRBeqz>Nsh%Iq@_8D1p7lYR>-NldRfd^R3e12Hqi5JrZ1?mJ(u%;FJRtn4 zT|Dq@8tdtr+RC}=re1@IZ)<1*mo2w`Y%Gym4Wr;OzCAJy$99Z_(g1J>6Y6eWiggTw)&1Q>OGIy1-($2f{TNMJr^jO08~Pl>uDU)~u%XX=?8T|aXdY|? zz?cx45hOz?DKtq-Y9ow^aL^Tpy*uIBWgbiAb4nOHp4Rgz~B0q3KKNM#&%jb@L2DyFeH$Muy$H;*1@&YR&NJi zMH+PQVf4pGW4g7_w1fMBbPfT3a14ePo-TDe?W}_&#sLWs8A97tYo^9zLk3*K?KGMl z5O&TE(CxISfvXXQ%uVy|wEeH7lD?%ZVIq1ykuoN7^08)aK|-SRS?{Z{y;U$2>9`Ym zlA9Xe+a@i79Vrz&Ttbpk-ovT!;bBEJ@xEqur=4pwq!~-9$4NnUD$3CnOht;TPVN*h za(bcFP8GjZsncJn@UB>57AUElJzoo*)5v~`=>HX0#g(JI)7jH$;0WAbc{U%^OhuV8H7yqGr8a={!)_FUaFKr_5mx*ZhpglPWx(Ir%k2gZgUlRc9Gru= z+laDLe(h`8g*2kSjY7A>D-ty`vN_|!W4fHDk#4|utqB7(rB;;Pn9T|2ZwC@J3$r=1 zW}z2Odj%;qDOj`)#H8v+SvFW00}c1JC3jDRrH{Xlc3nYNUds=1RPjAx5OktiX1C7D z?5+pKI#6v{g{f+YUo=ovH1;R(L7k@FztX13gLrfbP+ERJALLcj5`a1HsVNb~2JBDI z=J>7$i6%|C6=^nLW-*S`n0_L18-W0iB}HooCL=X*EJ02r{h$p~3?0wl5kCnse--lE z96{krQ~@Nsy7xU6Cb7UH(3Yda0g~aXnNvS=@=KqAiq?O2(J1WCJd5LS#JZ7=!$1?N z>ez|j^OA+9i@JaVQbmVxf7X$uBeMCE6@S*Dm7@LGu|r=kLc|L6S~T|KeSd6}q4K`~ zOcvCaZ5wtbhi^GG&FP2xEmdfGt4Qfv_K}P+BIOb8KQf>WQ3667=%~|?^rYFiHH^k3bst)*V!9uz}b{MHAlPLMBwznbJH3+C!Vzu6*Er|GV z)S_99wZ54Zvlf}_84FSh}*NgZylivni%5Xa?yQoc?9U)9$fBC=L18#kzE%&{8dg%HQ(|x zLOc=xLiZQa1;YsCtm*}mtEy|}x>LrW$t{_DFbpJ+rIyUZQf)oSpULNkl|gJmWhWws zwq%-#0mvNKhh+qk^N4x%+=!roZ*l)1I@e_VAf^p7%dGwA(_hgu&YAzdLpY9>%Fx)g za8HfrzcLe%$Z>d9MtIguOnqovd$P77ADP|L$K- z=SrcJdy?u!yqunfA9~4YB6saeB{@eIzTt`wEggZ9?sKc{W>>RuwcV({YB30du`uMn z?-JXN%RZ2Kx^z&iJHw%E$CEVcv+pdGe;y`sca}116X|SH0?o-j?nOog!@^fbkgwi|W2QYjfw{?h zF?*jNtA|Pzs{4fK1c(M@w5L1=T;JUMJ(1FFG=C2%-abW9&I-B-d2SNdVC=&Sfpd2C zOHKz~8;)KA@hrrZ69RX~pq5_74e=zJK!{)Uc_~UzZsxUxtJCa3%O*`?B9&l?MH~t< zl>tvf9z4J=s?TS_vpigdxU(#fe5dY-Q3g|q-6O}?%qH;GOZ>*bHJ-Nc2bPxanz_yTg0F<8d_5+F1u#nPo zuM$e{sK~ycGV%#Ka7KMa)k>VI3l98MnP4U45ol<2l{>j`ofNe0QAN(gGDmY}kS}2&OhAS90gE$dE$mdkgoi_u(IB!6U8Y~X1 z!IU`g4W#7yKIbKu{-dhFmckm`x6+;V2>~+Mdja79iITgt&lAHB2Vu}1H{rFS!V#pJ zdj$6nWw7PtZsLwp8nN*>QC&G_C`oo!0Y+$jCGE zCRD5o+6kskDg$mzewYQ7JAf*)zN)&N{F{)4qYs<}Q$MF}syi`-5A+GKkukH+xDr!` zl8ok&%Jw)#7j(_vs!NNK%5I%<~CL| zx|0(4(H2zCA05dDZNO9`9UZA49L5JlMyU(>2sP-2 zQhC)iKIn}2pq&po_@EO${R5p0y7-`*4@UAwi`MYUF=%%zp{%T}uAE+7b>Jb6gOPB8p&@p3s(m*axmQ^3X=N$M)v z6V!kruUNwCX6k}51n=I0ieT10#Ybs{>N>=}f(*4vbV3)*0MVkL7nnoqus7(c!$pJm zU{nE?iM3rw9vh5KM#6Nk`aXk%879Q0;-VAr{PafXeow^r!MbI9Fa}OL!-=)}nPU*! zjvT8;4?=_<*RPlfM%oM-6VmF@GMLoO0z+>-($|}jiFyZpGD{ci57DlxM)NaxsFU}R z0rXgGt}=zBHt2(dxc7dqxhL?F!={5#?>LB4`yX!RmQ$2kyv{I-ul|(@Ltps zF1XT{l?mxU3uNRfF`XOq@YT`}sk#evr?NbrkOMQ_LK(3&KrhBpFn%$PuohxMFRful z^?|F_y`eq?kL0|$z7T(H83B)TLK0y}o5*DGLEja`WC5{iUjoBDTnXX=t4FtCCAXQ1 zl=%9-5K^DOdfrg#xefxPSgLt?eB)0$hDI=%WSe{=0WV5daU8OB;b4=iTI7>QJ?N50Z_jK?1no= zhv=lrhU@Lgei^Ds&4Ga`X{hyE^TGd*AR0vOL9D4JJO}AIJ^j&rq*wqeO~oRJY6t=c zoyccGa76{OkFdzl=1~by3#4`C6g_N?7da{}%TUWhXqSo1 z^jj!;G!K=N*Fxp%P}v`%MTes_92mMG0&O$&xkcjr*Z5wY(ZA~e`&Z<{HhosG#G(dl{#$nbo{x>H_%IoR>lYf$s|75o*7j`bJVPcjxZXx{2;aS{jH-WhoqA~>Tk7* zEs++=>-hG8#c-<>F!J5UFyC$ajNUQTaPtawUbq1e@W72L*lzd+4Ad3Z76OUwwGy!K zetj7mcNE_9R$N_b7p_96=vR+^HS&OI{c@?#rT7vmzJLkQg;3=gzz9s`w-djoJgAY}ji*E=GfLdv-YC6qlj;Td0P;_9HzSl-IK( zMCkV+RJ(|K3fN-H-cX{4e-D%Gk~jN^9(FiKqA_^SI@x1^LvJGlHZbYSIOTL z(0;mUM-n(4`k)7w=_xxh(1Ru?OhkJ?P@rZOOXl_S9PRBv)G---9~oENN5b;^U`2+_ z8wi*vW0Q#zn!Y3~%UlCIfv3NNMgP;2Gx(*?CL!4sdRV4m3D@7LSOR=0T~BfSVQQGR z8LL;sim4;NQjOi=^FOeS`O0IHa~FL!Eq9TN_t*>x>3{){(y?=h1SS$JfdQgBelV!h z$J>!JJ6?H>zKjiV?Z|l`7H)e*Y&#PDI1-iocx6gR`#qpxQQ{6Cf-sbJ0#9^~0)JJr zVLbu%&<$mq-g2v4X62s^2DF4hYY6UIT$sstEe;;&ao*6wJ2vBh0m3 z#)2hYKS8O`<%2Ho4$Zbd22Tt!t%IWiQ=B5R#~DgnT~_>B<+^X zwk6AY&`E%8`**?LR7&* zqn$K5MnrlrK10gCpM^>Z?Z21x=dP*jw$sFyT)zR6q{7ELbAfUwduOhv!@o1vImBN| z3^3Z(GNlM>*@KD12Q0doU)K1C0Fu7r5qJ2SynL$e$2WIRxuWSN0W_Jh|R2m z^KH>S`4Gf2?jy3CksPoW!5>o#Zq1lBLbxz#UQ8gGRd}(39v(Zb%)Ga)l^mgYAlx{;ghlu~6h zx|QOB=Boq&W#VgxSV??s71!<=1o7_zMHzXDA|I8ZEdzW-!YLL6>1Ood&`W&=3>OBK zt3-8oe-%|qcx;r#F%Dy5D zc*0^L%>6)L3`$YOM26(;3$N}D<`L@33Yg(n&GDO))+S29ypLdFnpYa7)ltu4e}OJI;uDlx z$F~%W#M~6GhV4w0JsrtiN}WkGMRLm`3E6yX(dk_F)EP2V4P*m+Fu(qiYgg3Ofd+5= zCEsq(r^lt-NRT&jCL-4Z;rQ3bor(DCHga|8#_{SDM z6|+v+2;8w|1$&I=%GM}i0`eziC7kgY2;|cXnz*Z|*c^VN*etHw;*Sy^>^nyhP=JG` zaTiSvaZ;1QDk{I!P~tD|XaPS9&y(#vSjRV_kgBffiK;HWDut1gjyn!9jhaH%YWTF$va*{%SHKS%)MdDkWS`Ir}bjazoWU7li58F^SOUV zdpI!&9I}>_?k_>xP#$+ zOX%faTbM|VJ?k<2Ww~HF3>HLc1Z||o$VF;wnp*^jOZWedA#!9E99_b#CHexD=~_a7 zG()CM_V={E&u|&CNMTVc;dusq&q(dE4B1L?<61DntXxZ&cy=uzHJ7g?NJlQQmKXuZ z&S2qM!WQw~7(rP;uLMKjW72Z)>=B4cl`pPw9$=1Ow8y|Lu8DvhgnzoSDF7u`>@k2* z(gKf!r-FzfoC?B?s6B?Fv*4KDV|WVe@?@5rT3TMHX4*@cZH!hQ4|2&xW7NtouP@63 z1N?BRG!KHQsqz8H2*N)T4Azf9xGtE5=+?Gl1oUo~pVgyaA6?OFzzEJ~L=4T~gZ|gl zro7kG2350~1kxGxhhg^9r@*~?2Y$l{Cd_#C^Pkaw2`>8!!s^QYf>Q$tu})3@Pd*P8 z^%84r8g4OG47Ui1eHDO^#S+WO${f;3|42*jlazaszRkU=GKj>hDkglzCo%LnhU_hJ zmXng2>IA>rGPUm!@r}&6T^9W%tU{3Oy`nPcd0bqiG!f(wN%4!9Wfb>|EId{GTv)~~ z1K2M3Ju8<_vJmmb=VxT=-p>IBiRMg?epx0Gh7`@6TwgPTLdy@gL(hD4A-ZS6t4&RS zLtEKb7aaNgz^n$sJQU%33|OqESA#W9?H<)Qr*76%-`s{7b&a2zwn7Xfc#a{yBfCF3 zOoe6qkSRM!naFSYB~-rh5{_97|}&BQ&6YcUzq<2*RZ^D;g_n-H9OZR%VJK ze;bDEM}Z3h?O$ma=|W!m;2xf8AY8ZP4FuT7OOD}-7(|^gh&o{qb$TPfML}roHq=It z)V(_BHMp!%W*8W8Q8zq3yU1uU|HeqU_|}&Mb@nvSe8{QMd~g({l}*vw)6VtZkmosy zHCO&@sq7dIKl{L}D}UZ@tK)+uy5ML+Hlt#0?n6tHE;tE>w^rLU|Ewy$ zC6e`gWl?wK*MseRG@tQjo}4MQ`U$>uF+_(yH4&*7h37+Qi3KqW!V`4CvKTV8f)Gf& zyRl+UKbdmL+XVCrNFo|h$RQ*oh>C~U`=dvgGpul@`x2<7((}6C83#yDrQvA zn%Y=91(5*o_!Gg|Ce&Kzjpc)-aH;Eo84#4M`RWVL!B9Dd}ac0%jK$dzO!Y6y-6 zBXY3hZLD279;_wf?uBD@PIeer8XRqP*ZhuP$zDGnq+WBhc)s=PhTZbpgX3J3z?~+e z6svOx`^z4npbstI%Yc}}g{G=vknX*yuvp&-xQ^n>P^jIGGinK40wxM6G=KmqNgJp+ z9jpa{M7X8weIG>6FJB0i6OdW!LZ1StoNpU}_>~MYm+8?yodwFH zU@Ot1=iWwqa~W*o_2|1W0vhRI3xieu`(eniJsJr^_2^UMZp62OiJ%pb~D@Pk?@lrtT!^}(Oich}KWik`cd&z-y1 z`Jrm21%0?iy#AtuW?vUVR7kcBiCvF3WcPFf>gGcbVL7(&6A*7XOX8nAuova*w!4Ig z(7m7gppq{@J*77T-75#zhy~qiHqfr!i67AhiQ5;`754(*DIigyu7t#!8~iUIScrM| zx@_7!;G{(N&L!M8XUYA)Wk&-_vN!wF>%TAEn1yUVy$!l|10F)zi#FJ5pFZq=Bubo}aHpI@3KyAq1iETgq^s)e4+X!X`@4b8^&5n-O*igyO8#wU5TEQrv zD?li4|MVty6YgmT*x`n7WEl^XhWn0#sm%2Vt0yfE*c4#!`_THAN!kN>T*Md z^R43UVx;o55WNT7>y)3$ASBz5)cSLN#H4ovdGl9Zk~N zT-5?B{(I<5Il7%DK7Q!~)08{#Nw3BC3|eG^?@hm>LL^Ild|5bs40(1MfbsncC34?^ zkDBfn#YfP?aa-k~01dNm1ejcag4TH*TpuW}9cz(6So#Hos4KoCfpT_AFWdt#6`;ho zH)YpiXO{qLsI!~=JzIfJeivem3w8nEcNd7^z|wka-gkiYFzfrjv&6u|h2H{xgeJ?h zNvNM<${A30Y2vR>kl$c|RUc0YgDXZjg`}j@pfjtMy680|gIq`R{)UDPl(&Oypm;^w zhv*PB{1W_i8xpxpiY(_gp&lC^781Ep`zh(};|+-lkvnx)?-oDbkGu}Niw4Kny^am( zBVqwmffgKgoH^Pzk?Vbh;TkEO@F0!~-_l5l3oat6upYjuoCXn4E&6Vu_*f4(s9)R! z`iV<`4^GL@%Khjf(l%|T#kVhmw!ww-NZ7W1o^vylq$WcfZ3J|B8%+wH^+*V;2W65x zG4KMR6($y=@E2boP(*)wz;ct8YzNzc#`ooRgoqC3K>vfkAKfIvaXR4)pqoVfS@?B# zAFUyn1P3*H?JP$C7UWvs3-=fBt&WCi>$)N!ym716^MMLSn5!nY&|d&O5&g}NQznzY zsO0amalw*zS+V9_)|v&%?Ll@hH&u;{l^tN08rOle(#i=PNaGC*?Lfq1mYo!Zcca(< zL@M5=o9h@-*SU;PxN~bO=J={-&){2xG0J$*kIh9b%qc9z~MHli&D{Q_MlDKL$dr(-Ivp~q;k;ll( zSPFWS@Z>7$6l;pO)t*3qt%10a!O)ph0x6YPmI_Et<$V>ja=V&6h;j_~L}mmKl;dLg z6^7{8gNfwcEAZpLfYAyI9`gP>d5;P2@w zWSw34g)Fs=ac09l28WX7yh1kr5_BCD=Cj(sX!&21a9X^s`vC~=fcKZexd0Zu*oH8~ zNTn6Bli!8z>_Q<6stu{iSn7Kn>bbb#f09cVHsJKreB!e-wH`XO#PtX;pb1!0d=V~p zXQzda-i)2Cp`^>T8G8yKaW*+OV{f;k?zTmQ%k8qk<@&lJy46Aeoy2))B)kCFx*5lG zg+r19iSc5$+Swh}hUkdfJnTMIfS{uS#(o8i{faiUH4EPI3Oy>h4ect_@D(04{*m2` zr9G;b6{JzIG~f?n_TU85-foC!>BQ_$6;vh`@YhqFO=xvoS2w9S7!7aqS|E0vXyX#} ztnUJuphwUChVpH~&)qC)VLV@;2TJ)skcUIg>%9}@Xm^hG+0)IV;E*+Z6M`rj);EMY zr*J;2(f#gR!$Yt8@Hk98*n?M4nD0eupOdb=>xI{LNIz+OGtS`Jbk>#!?(=lHl7J2^rco!kRhNUKc7XjR#)huQj zu&arGQN>)uTtEkHE+%N0%k$UW0t2~3mHF~U? zlu0sD%5&5FX8GYq!~m51-C10TOeSOB?saENvoMrZbwK zW?o)O{k_yMSi4MH0vnhqwWZuLbm==G=b=sOHz4hVLBQ?~aE`b^fa)pnLd4=AghwE4 zF*x~_E(;cC>)x9Q-REk*$8FKv-GT|sizn`J(!qpRt!lCE9v1=GdmK#PY9Vae zc^q-u7c$f*8ppwea~k}XhRSc>s~C#-mL;$)-SN<)vdA zpD%}H%Xa9O>R@8@dMb(!D>G^G|AM#pO}WK;+YHEz+h&yyds-|`Y+u2;-W6Lcf~Cb` zF!Lj|em0U1e{~P)A-#6POp8TW0i6LPDk+=PdP9(q(a@X*&(vBK8>7|={3)fK~;R7&o= z3lW)!sA9RnO02&+#Fz{3(^ep`v&z)sQd>F_9)qwvR7}1D!gp_3RfuZG6i`)uXjOrf z#!&I3Rh1dj4d@49iLx`6m=<`g7%SQYv6HpQg zBNji(RLOb%JQEq9cDLY@Ol~n?w)Qh(${t2eyx4*ldBPehnD7Y|aF}t04W58C3q5QF zQ&cslzM;^F=H0js!^nT)CNO2K!}!(#6PUQxVG|g1wFVRi^8A|7jMO?{G^4cxG@(vv z6`!6>#=FrowX$%e$g@-K;)xlq5%=Fdm2R z6UNyT{|V#jj?);>=8u~-SvWsQ?(B|$WN$<* zOoC05>hcE`nkAUb%3y&k(^IYQ1js6vgUL8k9ucLgFvs*n$ z9@7Dd*Qs8J!sQE*$Sg#xR%W|EEJXNqIZsZKua!ZE@H2el>l#iwn#$Fpo_OmdXWaV4 zCUL#CSdL_JG>HaUWtm(M3uST&O`$={1!~Lx@;+9M6)EU#H*y-8ocj`~oN4R9mjCnU zdLO_<|L2D`!Z$1WI32L2PY&s&>14}u~(a*rV_qhS5fjrV}8r}4N?3`D}+9;j3`8S@w#ZL>hE=KWz{B> zWuO|y=@hc?=j>EM1tLwD>ZjlZx*u+B5x%J`K z&j50#KHVoKe)~*H9G~%`f*box3_T)#(`-T(5?FAj^oi%|;f6KV&TOHQ{t&; zM27)+^3WLMCU=J+<1NsV4g;yUzTYQQZZ*(o(+PN=8esw41RP{$qH!kDD?Qs~F96V0 zis|FL;5(8k1$;4mfFC$MrVlAK#kmfKJ9A?0D?Detd>XJ=PU_I_ep zTb%(+mg)?b!(CisP!`v~y0WKCdnZFfE{_v`y?O;AD0Sx*I&OI!S{aR&N8@GDjPDw^ zJUUEz5q}g(3S0YJW0%Efsu1^lH0Q%a6*6{Lp~_!j9J!-BquK-tQ+IfO&n3m0p_3s0 z;fA*z=(mrwotaZ}&8Xzod6nnpMhXk-hFUl|4)eWCtc{S%K^XK))Embk?6i>xn}3~v zn37rx1>|VmBt@uv-2_E&JwPUWJkRsIss}p$7r+-kjzxsD`Ry;_M3`_;4{=RMHT75J z=>Fbc`G=wQ5THQxU}*>61I)x*dK8}L)v(gp@v{Q`*9WVf?_e$1U4Sf#?+`ke3Wl}R z?adRv^^Lj&kF%~o;R%-~AnseAO*DM#6VWxKD*_fO+d=&>Zuu^Uxb>k*>$^ukR3R3l z`&c}2)k>{92#0P3O4%!;)RbbNHsk5O{(LInwkotKRz>+>J~)rECMdKsfC)1l78?^d zBmg_5c78fa9Z%Kj5gMfcj#jE!;nl=_(3i0f&_(GWASS0B1Q&vU!|Q}Dj$B81M$hMJ z(};NiJ3R9n*xEF-wJ*QGvV1xatU#>6o)~dKqQcGTw=56~g)Ld)k_n@xn}*&*F$}S? zpMPp~g5u8Pt!jyE@x8moaK;d(d9;$-G+IDg z)`@v-qqQ1Wn{4%Had12V=*T$2EDR6fkNA~D*x)F_R=j+)?@Zo5DprHI2o~5$!C*x? z3FI!8w=Z@C7euo51DukLp!YmSP3iB|-C9X~q=w$ltk&H^y5Lhx=>l|X?9j!)W!XL^ zS~&3k?%}D0H;p{kUOqYUZ(L-0>V5Xj&==UGIkd>RJJUJe`)2G^M)leM}AiUZmUDL_<@l4pTss(RE0n9`3* zaT2lMvvE_k{;7cK~OZY|n)%NRfFdsmk`ZP}~F||vjJx=*}xpPyt ze7r+|U)$+WoVLVj3qzlx%4@kUZg1D)&C@+-g;oy5C3=|l9?u~Gg?HZ#%VfR{1Ws#`4 zH)0wbG(t4KV};Nka7&?C5|{d3G!^-R*xVMb_0=(L;qvGgCN~2F;Shw@=wI58xReOW z7Mb`0*MAJ)6kb?n%2pxys=@SdLc3BuM7yqhpMNRDfzZRXg}Zm_3ih#DPx9N*XEN2p zErGHj3W)7k`D%=I)%V4Qr)%XN=Afe0D7zI+DO!2(nmC&xA?a`*yG*T=*{8T}jU1cX zlXEin4Liq`=ww-(}7V3{Uz3%pHoW z)a$^%=Epq8!qrMWB{;YpK3bBG)cCEGM?e<zXsu>^>nDV=0uZ(^_pdQ?-4UGqKP1UD^|ohtyAz3A#>M6tXwW{cwLw zi$5Ic0r>4t*L8Y#79}x+rHi;rzN$lI0z_*s@I`sti8iBmt$^1!(1K9osQn(Un^ z$0RE!I!$3Kp=qMK98KN~P1U<27xd*jS3+J-k`$Dz;XD6|;*Ldzi(`&O&VluQ!eF^D}mk|E;IFSi$rapJ7E~a_fMHF6h z5&5S>v-u}NzoGUb(wiCYQ=gvrhrRA?VA7lK;zc*c&aUG3DmYL1;u5cBPYUbnEgq|c0B+6G{S6J@ggY2K+#W}n&g!}_ZVeg)1RKVU+dSE&P;q-~s#O?!YhNyy z%5O%9;?})UT5*W4KZPgS^?Y584AfuBgt=aoxUCqm^k)#c+lXC?5uaJb;t|j_R`}ND z!VoTnQ+sAK{^L|e^uh&iFk|;zq?8h-d%-!z6zMW{*_2> z@6bM8?5hxRdLAcIw_Ztne4H{IN_w0~ul6zLu1mRI^Aa*?(x#k$p4JP)51Dg^A4)c! zB&Hp5lRdYc-Y%*ppRBiX_eUsgb%pF+`v;NSrkTa1mA9lDLzQZzGmV2FHuLPAJ ziEoEFDKN>@yreaVR>sq1y9i9_kihFa>aV4*->N4*t_%M1^b38_oI z5ZlQ~!)$EE4uu`qsqGNyI)5)=shqzTJtU?3kDA*V;6;x_z#M)Z_|Y>-+vk&ZbB3)S zq8?;x2mD()*jHCSdXq|{_b(QkS(iU>0eQuDs0tA8$7x) z{TtLznqu8=a7a_CAsK`SgsY1a)EK}aW6ndRciznCFu+9I0N=A3a2kAP6v%0Q9F7xI zzX0OGKL*B@FWzx#y0LIO@%NaHbhpw|k+uuo(zL-??6c^BBtM$& zYEJHxWlV%k>XSvzIR$noJ3`+ii38@GLdF5JP6-1BE9J9J83#N*^d$TE5d7or?5HMC z2>SaFtV{nsq#dyPwN!x54@T7WtWe0ng~-838+kQbm-}1+y&h4wvT`9};K0-^-U=7^ zt)0M~3ZViQ9D|Y30cAUUW2usSs;{#{{BK_rMMweVS)TJnPz^kaBZPokOG_EzZYhKF z)ls*fB0ydftOI?rlXD8dJGXAVN`D$mK0s-N2Nnwa(4*p%!HAO{QKyqg<4v3_md(2d zk@hq|hTSV@fFOj4TOjCzt=uA2YJcCrl40x6ofn9yTXgw7JbD2+1Ij2Yv^%r7=^1J% zTE_cHZ9DIWTRU%Eo(PGan|8{?@%|`ZJOlOZ8gk=G*P`AZ2Z)M|S#nVx(s*J*i7b@- zKglOfuco*${%HIIB~JN)Qu$~_Mi~W#+HxIbD|epe#C~~M;^%Q6JttDv*Jd|rmQ!O? zy+lDazoS%B0Q1-3DnEJ9@A*Djt{EV;D4tpa^OZe!21s)P6Lp*4f6*F{2pYoU z+)2bI%mzzQ9v_(ai^VFfQT}3ylsbLO!*LeBdhiG^aplKqhlQW#av((YGlZvrk}8tc zD2^gGyTZ!t{44IEQE=MWRp4VnnCdz~Ku zJ1f#B{EgBRLxYzFf+52|C!8 zIR@+c6(e#C)+Yy1RtoC@o;r~|i-wA6XOXOu?@ZBk_65IYI&7l)4AiHd0cb@Z5sAZ& zz_Xw^g8IwakvfhPi)J7d2FcJqNLtz02RWoQTqu1;*o~ax{60v<<>9{48tn|!A1I2v z)Wj(I`LF3$5%(7S7TshF2k^gx>31E{tVE(P0vs>LutU_(Kx3t6tkF1DGr=920;3&* zgHjP=?9KYia_7c`aYJ=w!}7qy?wkAh0uaIxfd0mOX_`sqZ%?D4qfL4|=ReiI?@w zz^3^&@Hag>08Tg(8uo+etASzWw0}dL48D5`)MYM3aeXtEB6GjXiQlb+WtC!83RDjO zN7FcD>i^S`1jVW`&=xETomt~hT>sz3q3G=G>6Z-DMh;-iNv& z(B>*EeYfM977EIMMu{sL*?~MGR(BeyACWX_V_X$5^6U?4opt+bw2}jIjMTIzs3oPd zyFt}N@^1@4@!Lb$n}Gz#&I@IC)rHdXaiP=>F95Xe*T={J7nCuOWE7&4jNBRU_P-JL5?&Z6`w>f(i-`l_^p3`%9u(3PyRO)tOa$D`J ze}PEeOvQ5+Vck<((6ng#W@id=`yupZ)B*UUBL$It&6Ck)C;Ip@R&%wr`BJ>Hww96h z^@5Z-J>Mp1=G&N{*VC=s46N68EXM2<0L&`@-f=;02M%6K#G7O z!!2A$i*0vtTm5GbLF5^#hDjsTcd@blIFtjBTOg@5cX6!qmf|iJ%S&h+URgqm+7dtm zbd=E2`s@-~SziH-fnALbuP=ezADTwEwG;3VsSZ*`JUszZro$7kpqzjK?8$v1szd)$ zfGz+6{UsPFH=vkk3Sfj=KNO>U{k1<6)H}1q?z;r4|Kp!t<818`JX!h=q>OlY38suM zFTu{;`XyLv|Iw#_hqqVy>K4&e{ZD_&^8oA_Z{G;7nTHP*9*- z4mr$p4<>dT<{H~b8O1XVZ|CRy+H<(W4L zqra8~QzS4*)xU&5C*puzqCEU7;QDO;a$Jx?rdOQ5kckP%e3c?9q zVyn3$PFk3--FX%QI7~45K+>!SQ9cE1BY^&B80=NBXJJzV09VuLRC-6w1tzG~MIp+9 z$d!$dtO4|+=NZ9)#QAxMoUlf#2~?R7&^N_^=TcXRGI&ju75d#t@TThFy^MOsnvF6w z&005*bvEjnr?JweVUC_E$#1t4L@wBap3hBI4>mL9sT=t;@@Dt0RzRAo@RS zeR+Hn)&BOGEqgM_Oxh&fCQF;PY00E3Efm^xftId73x%?@P|8kOih^tnPy{K9D1wSe z0TEEItja}%1`$C~6w!M@FH%=P7OUt*1^PbW{r&!UKcDxHIXUM$XC^brS-;EkkhNot z6*BRksAPSXnvA7J_ZqL^ec7kn2#nV7s#(KkR{^mZtGJ(vn}xP~;Y5|AhIR*)zW|&| zal|5)l)=WlhJP#p$kb5l!l=fGs~Q=PpZ50Wb;c6j>9&cAl}zGN<=>RbUi(d~Usy9- zk%x6F+g5me1a0SjtV~&&jInDl2#P9G3=JoZ?ovwC5w4oRbJT8HyfdeidzI zO>enFjP~`C@}qr)p~M(U%#uIa_a4)A&~kMFKsBgj#JX*pNV1wzD5HPh1Ts09ACc+g z-%r%ZZ_w0!W#uLOWpzxP#4k#ez^3LtF~rMJ`OCOfjIlbJ@W+nWm@$tKZld)6IHEVR z)ZNZp#ZzSlmVyrExviD0;dtPogjH-GU@VU;mJiA&8%g2`{$!)gQ%rW<#mtbAiYnFb zHmc??mFW3PLrz1gb8~&_-UBcde28;3AnVePpW{)4Ud6uqo!_|Y6pZdAUUFORpqDu;>wS7lqi;r$en#&n#cZrzSMnE&G# zPeXWFqudo%)~L02ncZW>{IbT-5r%`+`gr})XjO@p6@7dU+~J^*el4E|yGB;l%J;Q*xDUwV4X~=iZ;-=NXHLjT5y{wr470 zPw@R4Is2(Zb)Wu(jQ+#ecc~_9#Bt6^!jE&<=^f|1w7K%GyhA9skl;wmUsOzHb14r~ z7|R6`C|-0mg}qmiR`A|q(z4T&tdimMB)xpFU{6tjbZ{|iev~z*S@*6h)bNX0hoslP zK;RIur)UlzY2|pZD@YU3Rbob25no5x6zNOjo%6Y>HO4}Q-q#oSyz0@2&^|FzZs~P` zU!=|wP6#a@vKL?SG9M08%Sr*p&+wy_Ghi+7Y7s_k(eFR<$a3%>^{f4E;Og8NxEiYv zG1W!LONmXnGf^Hrdxn@cdq#NbMaF$HrBLT|r0k>F%PP6UcUh$+&A;T)h*@mZxybs6 z=~DiODvR{R^Y5~mW6}y?U{0Q)mV$J%E-&Z_nFFX9YG+#E40T*6;SJ5v-ucuD4Na@* zy)#H!gyA0H$EdXku(<~|orb+q*M}O!>VBw6rcP^ww0aJ4MZmKAMB{O#71UEAj_`s{ zG<-c3C10X{)KdJSaxD}J?&e6jAM-yAWrI$`7Za77ckmNUAz!7i^6NhyEU#kMfBa`oPc(fb)H33qI3_%&`b6^$2*&Qc4~z4E!5;+}Jyx3WrN){O#V)$C zT4?-xSKgC6TOHnP9CckIKbiH4lCIAM-nqK&L$7hnbq)WDlJL)d1G1H)Yn4P=de2DI zBY|VOsBaV8UxX9&E}}Ml=u_uzN3RkfXy~IAqx)zrQGK*hWFL4seaS@`$pubKyTCaQ z=3n5rZAPJBO%H#WnZ#~Szu9VKm;#}f6CbYsyf-Nd2;c!cruz|gjV7{Sk1a|q?e zd90W>kF_++W2JmlmcE}_L5p$co|PJ>Hbhs zXBFLR*$B(ita>dQ&J0PGh!(>JpVpWM^zEwHlFLJ}G|Cp7cK4!HR{wzzCsi|5u zGOEP1!m})JSygjc{13?O`JN+`c@dPtanTF=`cpUsgiFD^pT2ws|_hN8Uq{ny#lmi zRV4J)Ky;4`1!l3K-{sHag0(e_odv`$MWKh2+k765wpWhZ#18!gFE}0hhE0=8+)&s0 zIMR#b&wfwYxYdGv@Cvw3oyRyct13Z$K((r#kXIm|9-mee&d zc$!%^3nf!YIEfdRmJ)g%@G!yCm`14biL8oPARLXRxO-?#JqdoG(0J2-f&0( z&oP$oSesfh?@PuKRIkV|73vl2oH1eR=3~h)U#*dEkrG;| z^M`^jvv|g8`FjF-_qg~1{z$kLG0|o|oAXF<*_@VtL%mqqu!>=&2DI-OY>xkD_T^VG zvU2&2bUfzpXIC-gv`&2NT}gqJSxh_QJ}6Jiq&_f-rVmUp##5~9;+N43bxf&TI*ANr zep6MzDqRlad0ATiy^@3edjk;xJ>Xz|;X8_tO!9l6^I>FzSneUe3GhpQ#B>5^SGCC8 zQ$EAoQ;6(6@(g>A7einh05>>Tz#9?nh!o+D1@z=y($;l|4qdj6w$|&}3BsGTN8iRD zYZXpB&ekv8EVwn+wQHEaZq9GSif0~M`2J@8;Z2cN5Y5MH!&vc9CzS=((^!DTvxQ~Eq$wi5C*>21_FamW%9Ga^_%|=b(3=(-7aSvO*IM0*VTnT1lwtI=*NuJd8%*;} znX!kXpE*g-|1ezv7RwJM=BR;qxpAr}IM&t}5ro?mor#w61jbu_iN)?nN7Jc*U_k=L zxF5KQQ`H`|T@tY1ErWE?8&ka&I`fip%SqUNK2>ppdBLa1_HOgOlE+?;lslN~ky=j& zeKMIpo@|poKAueYFR=WGNVdri3V$6bB*2~@d++iya+6kS$is%g4wjGD05HyjyX7ud zKq1951O^b*_h*_jyUk?Rv)VwYGBS*ib9qNa(-}#!i zowupzQ#%~+V7W?BKmQmWeM&S(p9&Y>`xhDe5t)#m@h{PT;2CtbXIeN%Oa$K!A8{mF zVmbv6jD#)hUE*};k=#~icLJm%?i6{l<)=Fj{GZ?H4#mguKYy!*6R#Rhyf}12Fn9z- z$Eo+bFi`YI^xH0cW)w-ziyD`>hl*BlMf`)e@a7xU(wzuEHqJdIy-<~9l>O|TnPe_P z-AFr`W1qAhcBW zJg~{C9{C17N5_=?M!#8S>IB-Q&`Ar6G2#U3mH=F9?Nf2eS63Y~bw5*m20ul$5zt4mRXjPA!&KQoW z42-f3X+x#usy4s?R%8%e8w|LW;L%t?hOAs->a?pUIZ&}2RaP!pjw)3l9I(HhV~STU zv9W%(CQxPSYyoyDODp`WG4<^9yb$|czn|(WgyE*nxuw)xp_7HfVCQpBwZc0G9C)dz zVI=JFFfyK_*?F<4^Efh>2su+o({Q1a)47eLp+e|X=-k!B0CYW}Nk{tfYR)DNQgMlb z^Af}V%1#noUjSZ*ohZeA%}$rxU$f0p{MYOZDe-G|w&a0KoWGf+Cb9HI*16Jkk+nQ= zkqujb02Bpm-wSz6XlK}0r2%KyL@DVEJ3~nBix~YWr`Zv6msSgSqeUMp1eHlCq+D)k z38V=Xrq0FDwBx|wXxdt%qluZggwE~L`Eyinsp=e+D0l}^C`^*%b5w(3gF^7>xZEn+ zkY^R6LN^>{>ReI@meop{{`-ZzfF4b9ODkSdjo&3$L`*e0;M>z$6+Vh+o0MNf13S#b z&In7pq>`Q(NRJoNPt*J*)kJd!1dm-(HA%fMsT#?7Wzi^8kS=9JZ7E~wJ)O*awg}G} zWc^?->C~1pW^NbfI2N~yv({s10CaBxLEQRuhSw2^Z)0pyaU0^sv)Y&$Qg$0NUFs7` za@v??sb3p2)vTyv9G%(;#Qs*|BF3Uz#7L?|%yOW9Eyh*3#p)Shd5amTWic~e%3sV( zHy12sWa_Ua%%hjCH3iieQTc$vlrfboeanLwMN?37UTx$#M$noV?uA|aCAvha_&1%{ z43800a6qhul4sAmO-~Lhx=l+Jx9JfSYlsUL{lJ=3@3Cnc#tAD3%mgV?;XW$SIB*{o zgF~LvvX7b?R=kf2iN{8kLlo$|M}2OF8k!24JG9?U=|DVtam8Ukumbj0ABbWx2dI0Dcerni;W z)PqtLRsj>6BX+Gd1xG45Q?ULG=9MOR@C%(LQ?PC_7yy1$nnx8eu`uqw;#}^0vynK^ zRuAa7QX3J5y#e-}aG_J2yDOSYJOJJ#1C)8Y_8aui?aHTxwu0?M8nKz8XxLqjLaBR~ z(iLI+oFGwQ<^>L0(*lQLB;hrrju!}{4SIg%qTrIm3gxDtj#kyAWO|>NFuS==fIsgc z34uY00RZvAfuW-6Imgo4Na8q9h!T+XOvC1X*B3073X(hArqCf&2R%R)L;Ba-0J@t- zSpRDtEAv6APx*X4M+UYMp>s}>RiBgOQ+70A6|fD0aHzdZ`2o9fhl?EAu@w>vu{nTK zMH0jtZeo1JO(wsx8DguOfN;^Le02&(R_ufz0)X(4-MZyd?s*L4e0w2_bR+1mxxY{O z+Cq*z_ZB2Eh&wM_jD!_TeO?liaMzMC!h^d2C>`e^dJaVNhQ?$3XFme z67ajgw$zyf$q2Br8_(id&ccx2nG6e530$zZQudFZLM?3DI=v7~(9_2AsCfPbsz@d_ z|J%einW5~TEr&4+P%J+D0Kpl=I;Z*NtWX8jYQXKpRCD}R8E>W2)*m_39J{Z1RNK=u><+@D@$Y<(bj{&%lW zd3`1xxQ;RAJgQ`SaVu^7xsIv-c^_`o&rP^v#J1-}%Gj-@jorz#B^Tv45C{HSEUEvk z9(D4Z6mD*N6SCiN@85^gwtSQi`e^%qlR2^x=EKec{Dy(&i0uS^>c8PxIs7Pug%G@V zlo%hxl8q0JKmafZKYrMczpb)UGf-(aWCI~M|8%wyz%54R1XWawR$4-=mo&6pt$eYm zN%;aQm23kpUDps)QGc4aQ5ywODY2zO7w@L*YHcxT(mn@S*+t)7Lj3@(@BhL`P$$F5 z?w_83;1P~QIB{R!yDY`b_@2z9ejd`6f)E?)-y1l)+BCOhqG>(uQSt1Gebj@?2>(XA zT48(hI*W^XPA*6>>%&PR!yQVg*Q42~`9mzZ^cxpP+)80diUO7NeI^n%iUK`0jlfU| zxD-S-Z3v~}$WR*Q42f@qvX%p()b>Oujm!_F(m14UM`{+uE=)~e;s-wIQ@%I~e;h-H zS6^C@$s`WRr0}%xKYlBfO`(V3qo{KzUHxT>B&Ix%cyaP&iZ-L8ivBVsrKE~pnvzR} z@-Z1y1wJym%8)u&f%l-+Uq)B+Pd3Mu(nGVHdj`dljD|t<;0M`MG1Ar) zcl-SiUe62BOy!~2kc*-k2{8G-xJ)4ZMm; z^{2k}ep#ft>t#|kM%DGQ5@!P$*FXn^B&92z{3DgGNYP6_035^Jm2#0dSEaPVBMUh| z^~o1;FYiU%D|(wJ&oDPpX0~F9m{0PB_GbBD>TTY9i!@7?Wg?*GSvGu~NZTJoL z!Cz{Ta?wGCgIV)*mFv2B6eXFj5y{f=>LN?vWR;kBvI^u8_z^%J0brryRW1sv6XW*b z3l;mQp#+aml=!A(IYU@?gAPV&_5Ro8pcWzV?jTIr?hX}XC6;AmS)Rpk3NCF5OP)A6 zzrg6QEMq_aR{7^Pc?TO`!BD^N5e`m1MB*#*_=D8FSMMN4wkULm6w;2&ER}RyzGIc{ zxboPTfAzk@KbM&bznz{RshAw+1?uP0H_ubm-*m9u)OidgF>;B{uKrw3(c9H0WX=%E z-$MFkb1Y1`hxt(XC1a?31h&ozCc7GJMgMR*R@edHvdq)0q+DKb@(%$npoD<+zKis@}|BgwMk{mbp^TpJE$gzB